Koch's Infinite-way Handshake
2009-03-30 05:15:09
startshape root
rule root {
arm [r 60 y 0.29 hue 0]
arm [r -60 y 0.29 hue 120]
arm [s -1 y 0.29 hue 240]
}
rule arm {
unit{s -1}
subarm{z 1 hue 120}
}
rule subarm {
arm {s 0.333 x -0.333}
arm {r 60 s -0.333 x -0.08333 y 0.145}
arm {r -60 s 0.333 x 0.08333 y 0.145}
arm {s -0.333 x 0.333}
}
rule unit {
CIRCLE {b 0.25 y 0.25}
CIRCLE {s 0.95 0.975 b 0 y 0.25}
CIRCLE {s 0.45 0.7 b 0.75 sat 0.85 hue -40 y 0.25}
CIRCLE {s 0.35 0.65 b 0.25 sat 0.5 hue -40 y 0.25}
CIRCLE {s 0.5 1 b 1 z 1}
}
