startshape Top

rule Top {
	Sierpinski { r 55 b 0 }
}

rule SierpinskiOrig {
	Shape { }
	Sierpinski { s 2 r 7
		y -1 x 0  }
	Sierpinski {  s 2 r 7
		y 0.5 x -0.866025  }
	Sierpinski { s 2 r 7
		y 0.5 x 0.866025  }
}
rule Sierpinski {
	Shape { }
	Sierpinski { s 0.6 r 9 b 0.1
		y -1.5 x 0  }
	Sierpinski {  s 0.6 r 9 b -0.1
		y 0.75 x -1.2990375  }
	Sierpinski { s 0.6 r 6
		y 0.9 x 1.2990375  }
}

# comment out all but one of these rules for Shape:
rule Shape { CIRCLE { } }
#rule Shape { Triangle { s 0.9} }
#rule Shape { Triangle { } }
	// this last one fills the image

rule Triangle { 
	Arm { r 120 }
	Arm { r 240 }
	Arm { r -240 }
} 

rule Arm {
	CIRCLE { }
	Arm { y 0.9 s 0.1 }
}