containerElement := BlElement new 
		size: 200@200;
		relocate: 20@20;
		yourself.

level1SectorGeometries := #(0 45 90 225 360) 
	overlappingPairsCollect: [ :startAngle :endAngle |
		BlAnnulusSectorGeometry new
			startAngle: startAngle;
			endAngle: endAngle;
			innerRadius: 0.0;
			outerRadius: 0.5 ].

level2SectorGeometries := #(0 225 360) 
	overlappingPairsCollect: [ :startAngle :endAngle |
		BlAnnulusSectorGeometry new
			startAngle: startAngle;
			endAngle: endAngle;
			innerRadius: 0.5;
			outerRadius: 1.0 ].

(level1SectorGeometries, level2SectorGeometries) do: [ :each |
	containerElement addChild: (BlElement new
		geometry: each;
		size: 200@200;
		background: Color random;
		yourself) ].

aSpace := BlSpace new
	host: BAMorphicWindowHost new;
	addChild: containerElement;
	yourself.
aSpace show.