Kaleidoscope
Posted: Sat Jun 18, 2005 9:50 am
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.
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.