globals [ theAngle ]         ;; Wednesday 11/12/2014

TO rightTri    ;; This program draws a right triangle
  
  ca
  
  cro 1
  
  ask turtles
  [
     set color white
              
     set heading random 90
     set theAngle 90 - heading
     
     pd
     
     fd 10   ;; or use a slider named hyp for hypotenuse
     
     bk 10   ;; or use hyp SLIDER for HYPOTENUSE length
     
     set heading 90
     
     set pen-size 4
     set color yellow       ;; the LEGS of the RIGHT TRIANGLE will be YELLOW
     
     fd 10 * cos theAngle          ;; replace 10 with HYP (if using SLIDER)
     
     lt 90
     
     fd 10 * sin theAngle          ;; replace 10 with HYP if have SLIDER
     
     pu     
     fd 2
  ]
END