module Poly
export Triangle
procedure Triangle (a1, a2, a3, b, h, x, y, c : int)
if a1 + a2 + a3 not= 180 then
Error.Halt ("Not a true triangle: All angles do not add up to 180*")
else
drawline (x, y, x + b, y, c)
drawline (x, y, x + round (((h * sind (a1)) * cosd (a1))), y + h, c)
drawline (x + b, y, x + round (((h * sind (a1)) * cosd (a1))), y + h, c)
end if
end Triangle
end Poly
Poly.Triangle (90, 60, 30, 50, 50, maxx div 2-100, maxy div 2, black)
Poly.Triangle (60, 30, 90, 50, 50, maxx div 2, maxy div 2, black)
Poly.Triangle (30, 90, 60, 50, 50, maxx div 2+100, maxy div 2, black)
|