home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / ladybug1.arj / TANGRAMS.BUG < prev    next >
Text File  |  1991-01-13  |  646b  |  43 lines
  1.  
  2. to "triangle  :side
  3. fd :side
  4. rt 135
  5. fd :side / sqrt 2
  6. rt 90
  7. fd :side / sqrt 2
  8. rt 135
  9. end
  10.  
  11. to "triangle.med  :side
  12. fd 2 * ( :side / ( 2 * sqrt 2 ) )
  13. rt 135
  14. fd :side / 2
  15. rt 90
  16. fd :side / 2
  17. rt 135
  18. end
  19.  
  20. to "triangle.small  :side
  21. fd :side / 2
  22. rt 135
  23. fd ( :side / sqrt 2 ) / 2
  24. rt 90
  25. fd ( :side / sqrt 2 ) / 2
  26. rt 135
  27. end
  28.  
  29. to "pargram  :side
  30. repeat 2 [ fd :side / 2 lt 45 fd :side / ( 2 * sqrt 2 ) lt 135 ]
  31. end
  32.  
  33. to "rhombus  :side
  34. repeat 2 [ fd :side / 2 lt 45 fd :side / ( 2 * sqrt 2 ) lt 135 ]
  35. end
  36.  
  37. to "square  :side
  38. make "side1 :side / ( 2 * sqrt 2 )
  39. repeat 4 [ fd :side1 lt 90 ]
  40. end
  41.  
  42. make "side1 "'53.03301
  43.