aUCBLogo Demos and Tests / snowflake
to
snowflake
[
height
600
] [
size height
*(
sqrt
3
)/
2
]
clearScreen
ht
pu
fd
height
/
2
pd
rt
180
-
30
setPenSize
[
0 0
]
;one Pixel wide
repeat
3
[ (
kochcurve size
)
updateGraph
rt
120
]
end
to snowflake [height 600] [size height*(sqrt 3)/2]