Treemap

squarifyWithSevenNodes
	<gtExample>
	| aTree aNode |
	aTree := self squarifyWithSixNodes.
	aNode := self node value: 1; totalValue: 24; weight: 1 / 24.	"1"
	aTree addNode: aNode.
	self assert: aTree allSteps size equals: 11.
	self assert: aTree nodes size equals: 7.
	self assert: aTree nodes first position equals: 0 @ 0.
	self assert: aTree nodes first extent equals: 300 @ 200.
	self assert: aTree nodes second position equals: 0 @ 200.
	self assert: aTree nodes second extent equals: 300 @ 200.
	self assert: aTree nodes third position equals: 300 @ 0.
	self assert: aTree nodes third extent equals: (1200 / 7) @ (700 / 3).
	self assert: aTree nodes fourth position equals: (3300 / 7) @ 0.
	self assert: aTree nodes fourth extent equals: (900 / 7) @ (700 / 3).
	self assert: aTree nodes fifth position equals: 300 @ (700 / 3).
	self assert: aTree nodes fifth extent equals: 120 @ (500 / 3).
	self assert: aTree nodes sixth position equals: 420 @ (700 / 3).
	self assert: aTree nodes sixth extent equals: 120 @ (500 / 3).
	self assert: aTree nodes seventh equals: aNode.
	self assert: aTree nodes seventh position equals: 540 @ (700 / 3).
	self assert: aTree nodes seventh extent equals: 60 @ (500 / 3).
	self assert: aTree extent equals: 600 @ 400.
	^ aTree