Logo Koch

Aus ProgrammingWiki

to line :count :length
 ifelse :count = 1 [fw :length] 
 [
   make "count :count -1 
   line :count :length
   lt 60 line :count :length
   rt 120 line :count :length
   lt 60 line :count :length
  ]
end

to koch :count :length
  rt 30 line :count :length
  rt 120 line :count :length
  rt 120 line :count :length
end
cs
speed 9
setxy 30 300
koch 5 4

Logo Koch

Suche