y2023 day25

[shnarazk]

[Metacello new
    baseline: 'Roassal';
    repository: 'github://pharo-graphics/Roassal';
    load: 'Full' ] on: MCMergeOrLoadWarning do: [:warning | warning load ]

| data nodes canvas lb elements |
data :='/Users/nash/Repositories/advent-of-code/day25.json' asFileReference readStreamDo: [ :stream |  STON fromStream: stream ].
nodes := data inject: (Dictionary new) into: [ :dic :element | dic at: (element at:1) update: [ :set | set add: (element at: 2);yourself] initial: [Set new add: (element at: 2); yourself ]; yourself].
data do: [ :each | | to | to := each at: 2.  (nodes keys includes: to) not  ifTrue: [ nodes at: to put: { }  ]  ].
canvas := RSCanvas new.
elements := nodes keys collect: [ :c | RSEllipse new size: 5; model: c] as: RSGroup.
elements @ RSDraggable .
canvas addAll:  elements .
lb := RSLineBuilder line.
lb canvas: canvas.
lb color: Color red.
lb connectFromAll: [:each | nodes at: each ].
RSForceBasedLayout new on: elements.
canvas @ RSCanvasController.
lb canvas.