home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / tangram.bug < prev    next >
Text File  |  1989-10-26  |  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. to "rhombus  :side
  22. repeat 2 [ fd :side / 2 lt 45 fd :side / ( 2 * sqrt 2 ) lt 135 ]
  23. end
  24.  
  25. make "side1 "'53.03301
  26. to "triangle.med  :side
  27. fd 2 * ( :side / ( 2 * sqrt 2 ) )
  28. rt 135
  29. fd :side / 2
  30. rt 90
  31. fd :side / 2
  32. rt 135
  33. end
  34.  
  35. to "triangle.small  :side
  36. fd :side / 2
  37. rt 135
  38. fd ( :side / sqrt 2 ) / 2
  39. rt 90
  40. fd ( :side / sqrt 2 ) / 2
  41. rt 135
  42. end
  43.  
  44. 
  45. to "triangle.small  :side
  46. fd