home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / tangrams.bug < prev    next >
Text File  |  1989-11-13  |  640b  |  46 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "triangle  :side
  8. fd :side
  9. rt 135
  10. fd :side / sqrt 2
  11. rt 90
  12. fd :side / sqrt 2
  13. rt 135
  14. end
  15.  
  16. to "square  :side
  17. make "side1 :side / ( 2 * sqrt 2 )
  18. repeat 4 [ fd :side1 lt 90 ]
  19. end
  20.  
  21. make "side1 "'53.03301
  22. to "triangle.med  :side
  23. fd 2 * ( :side / ( 2 * sqrt 2 ) )
  24. rt 135
  25. fd :side / 2
  26. rt 90
  27. fd :side / 2
  28. rt 135
  29. end
  30.  
  31. to "triangle.small  :side
  32. fd :side / 2
  33. rt 135
  34. fd ( :side / sqrt 2 ) / 2
  35. rt 90
  36. fd ( :side / sqrt 2 ) / 2
  37. rt 135
  38. end
  39.  
  40. to "pargram  :side
  41. repeat 2 [ fd :side / 2 lt 45 fd :side / ( 2 * sqrt 2 ) lt 135 ]
  42. end
  43.  
  44. de / sqrt 2 ) / 2
  45. rt 135
  46. end