rawView := ROView new. view := ROMondrianViewBuilder view: rawView. elements := (ROElement forCollection: (1 to: 5)) collect: [:e | e + (ROBox new size: 200)]. rawView addAll: elements. rawView addAll: (ROEdge linesFor: (Array with: elements first -> elements second with: elements second -> elements fifth with: elements second -> elements third )). (ROTreeMapLayout withWeightBlock: [ :e | e model ]) applyOn: elements. view open.