home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / logo / powerlogo / examples / sierpinski < prev    next >
Text File  |  1993-01-27  |  625b  |  48 lines
  1.  
  2. ; the Sierpinski curve
  3.  
  4. if not procedurep "cs [ turtle ] [ ]
  5.  
  6. make "zig [
  7.     procedure [ [ :foo ] ]
  8.     if <= :foo 1 [
  9.         lt 45 fd :siz lt 45
  10. ;        left 90
  11.         forward :siz
  12.         lt 45 fd :siz lt 45
  13. ;        left 90
  14.         forward :siz
  15.     ] [
  16.         zig / :foo 2
  17.         zag / :foo 2
  18.         zig / :foo 2
  19.         zag / :foo 2
  20.     ]
  21. ]
  22.  
  23. make "zag [
  24.     procedure [ [ :foo ] ]
  25.     if <= :foo 1 [
  26.         rt 45 fd :siz rt 45
  27. ;        right 90
  28.         forward :siz
  29.         rt 45 fd :siz rt 45
  30. ;        right 90
  31.         forward :siz
  32.         lt 45 fd :siz lt 45
  33. ;        left 90
  34.         forward :siz
  35.     ] [
  36.         zag / :foo 2
  37.         zag / :foo 2
  38.         zig / :foo 2
  39.         zag / :foo 2
  40.     ]
  41. ]
  42.  
  43. make "zigzag [
  44.     procedure [ [ :siz :foo ] ]
  45. ;    cs
  46.     repeat 2 [ zig :foo ]
  47. ]
  48.