Context Free で遊んでみた

http://www.contextfreeart.org/

startshape Ring
background { hue 120 saturation 0.5 b -0.7 }

rule Ring {
	60* { x 1 r -6 } {
		Seed { b 1 r 3}
	}
}

rule Seed {
	basearc {}
	CIRCLE { s 0.15 y 0.05 }
	Leaf3 { x -0.5 s 0.5 r -60 }
	Flower { x 0.5 s 1.6 r -36 }
	toparc {}
}

rule Leaf3 {
	3* { r 60 } leaf {}
	2* { r 60 } Leaf3 { x sin(-30) y cos(-30)  r -30 s 0.6 }
}

rule Flower {
	stem {}
	leaf { x 0.01 y 0.85 s 0.25 r 100}
	Petals { x 0.2 y 1 s 0.22}
}	

rule Petals {
	30* { x 0.0 y 0.6 r 40 s 0.96 } { petal { } }
}

path petal {
	MOVETO { x 0 y 0 }
	CURVETO { x 0 y 1 x1 0.2 y1 0.6 }
	CURVETO { x 0 y 0 x1 0.4 y1 0.6 }
	FILL { }	
}

path stem {
	MOVETO { x 0 y 0 }
	CURVETO { x 0 y 1 x1 0.1 y1 0.75 }
	CURVETO { x 0 y 0 x1 0.2 y1 0.75 }
	FILL { }
}

path toparc {
	MOVETO { x -0.3 y 1.2 }
	ARCTO { x 0.5 y 2 r 1 p ccw }
	ARCTO { x 0.83 y 1.2 r 0.7p ccw } 
	STROKE { p roundcap }
}

path basearc {
	MOVETO { x -0.5 y 0.0 }
	ARCTO { x -0.2 y -0.1 r 0.4 }
	ARCTO { x 0.2  y -0.1 r 0.25 }
	ARCTO { x 0.5 y 0.0 r 0.4 }
	STROKE { p roundcap }
}

path leaf {
	MOVETO { x 0 y 0}
	CURVETO { x 0 y 1 x1 -0.4 y1 0.5 x2 -0.2 y2 1 }
	CURVETO { x 0 y 0 x2 0.4 y2 0.5 }
	CLOSEPOLY {}
	STROKE { p roundjoin }
}

なんかまだうまい書き方がよくわかんない……