Kaleidoscope

[dogfish]

This is my CFDG file for the sort of thing you see if you peer into a kaleidoscope.


startshape KALEIDOSCOPE

rule KALEIDOSCOPE {
K1 { }
K1 { r 60 }
K1 { r 120 }
K1 { r 180 }
K1 { r 240 }
K1 { r 300 }
}

rule K1 {
TRIANGLE { }
K1 { r 60 y 2 s .9 b .1 }
}

rule TRIANGLE{
ARM { r 0 }
ARM { r 120 }
ARM { r -120 }
}

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


To change the image a bit, alter the rotation marked in red. I particularly like 90° and 18.5°.

Feedback or improvements are welcome.

[bigelectricat]

whats the code for the icon you are using?

[dogfish]

The code is as follows:

Code: Select all

startshape FLOWER

rule FLOWER {
	LINE { }
	LINE { r 45 }
	LINE { r 90 }
	LINE { r 135 }
	LINE { r 180 }
	LINE { r 225 }
	LINE { r 270 }
	LINE { r 315 }
	CLINE { }
	CLINE { r 45 }
	CLINE { r 90 }
	CLINE { r 135 }
	CLINE { r 180 }
	CLINE { r 225 }
	CLINE { r 270 }
	CLINE { r 315 }
	CLINE2 { }
	CLINE2 { r 45 }
	CLINE2 { r 90 }
	CLINE2 { r 135 }
	CLINE2 { r 180 }
	CLINE2 { r 225 }
	CLINE2 { r 270 }
	CLINE2 { r 315 }
}

rule LINE {
	SQUARE { }
	LINE { x 1 s .96 }
}

rule CLINE {
	SQUARE { }
	CLINE { y 1 r 1.1 s .95885 }
}

rule CLINE2 {
	SQUARE { }
	CLINE2 { y -1 r -1.1 s .95885 }
}