Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. to koch :n :m :a
  2. cs
  3. rt 90
  4. repeat :m[krivulja :n :a rt 360/:m]
  5. end
  6.  
  7. to krivulja :n :a
  8. if :n = 0 [fd :a stop]
  9. krivulja :n - 1 :a/3 lt 60
  10. krivulja :n - 1 :a/3 rt 120
  11. krivulja :n - 1 :a/3 lt 60
  12. krivulja :n - 1 :a/3
  13. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement