| commits nodeShape v |
"Extracting data"
commits := ((NeoJSONReader fromString: ('http://mutabit.com/deltas/repos.fossil/piamed/libro/doc/tip/Libro/timeline-buscador.json' asUrl retrieveContents asString)) at: 'payload') at: 'timeline'.

"Visualization"
v := RTView new.
v addAll: ((RTEllipse new size: 20; color: (Color red alpha: 0.3)) elementsOn: commits).

nodeShape  := RTMultiLine new.
nodeShape orthoVertical.
nodeShape color: (Color blue alpha: 0.3).

RTEdge 
	buildEdgesFromObjects: commits 
	from: "#yourself "[ :commit | commit at: 'uuid' ]
	to: #yourself" [ :commit | commit at: 'parents']"
	using: nodeShape 
	inView: v.

v elements @ RTDraggable @ RTPopup.
	
RTTreeLayout on: v elements. 
v.