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.
Kaleidoscope
Moderators: MtnViewJohn, chris, mtnviewmark
Kaleidoscope
—dogfish—
-
- Posts: 19
- Joined: Fri May 06, 2005 8:43 am
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 }
}
—dogfish—