ferns-grapes.cfdg

startshape space[h 80..300 sat 1 b 0.4..1]

shape space {
	loop 20 [x 1 y 1.5 h -20..20 r 0..360] {
		petals(-0.5..0.5, -0.5..0.5)[]
	}
}

shape petals (movex, movey) {
	loop 4 [r 90 x 0.4 y 0.4 sat 1 b 1]
		petal[s 0.5 r 45 ]

	petals(movex, movey)[s 0.8 h 3 y (movey) x (movex) r -10..10]
}

shape petal {
	CIRCLE[]
	SQUARE[s 0.5 x 0.247 y 0.248 skew 5 1]
}