CodeCity-Renraku_jam.st

| builder models |
	models := (RPackageOrganizer default packageNamed: 'AST-Core') definedClasses.
	models do: [ :class |
		class methods do: [ :method |
			REPrefs default rules do: [ :rule |
				rule validate: method ] ] ].
	builder := CCBuilder new description: 'Boxes in packed layout (isometric view)'.
	builder packingLayout.
	builder shapeBuilder platform
		color:
				(CCColorNormalizer new
						low: Color gray;
						high: Color red;
						transformation: [ :e | e methods inject: 0 into: [ :sum :method |
				sum + method importantReports size ] ];
						population: models);
		width: [ :e | e instVarNames size ];
		depth: [ :e | e instVarNames size ];
		height: [ :e | e methods size ].
	builder nodes: models.
	^ builder