~~~this is my tilde.club page~~~~

 

to line :count :length ifelse :count = 1 [cock :length] [ make "count :count -1 line :count :length lt :aa line :count :length rt :bb line :count :length lt :bb - :aa line :count :length ] end to cock :length pu fw :length /8 lt 90 fw :length / 8 pd circle :length /8 pu bw :length /4 pd circle :length /8 pu rt 90 fw :length /8 pd fw :length /8 * 4 lt 90 fw :length /8 arc :length/8 180 rt 90 fw :length / 8 bw :length /8 lt 90 fw :length /8 rt 90 pd bw :length /8 *4 pu fw :length /8 * 6 rt 90 fw :length /8 lt 90 fw :length /3 end to koch :count :length rt 30 line :count :length rt 120 line :count :length rt 120 line :count :length end reset setxy 250 490 make "aa 60 make "bb 120 lt :bb - :aa koch 4 11