View.Set ("graphics:max,max")

proc drawtri (x, y, size : int)
    var hei : int := round (sqrt (size ** 2 - (size / 2) ** 2))
    drawline (x, y, x + size, y, 1)
    drawline (x, y, x + size div 2, y + hei, 1)
    drawline (x + size, y, x + size div 2, y + hei, 1)
end drawtri



proc drawSierp (x, y, size : int)
 var half := size div 2
 var hei : int := round (sqrt (size ** 2 - (size / 2) ** 2))
 if size > 1 then
   drawtri (x, y, size)
   drawSierp (x, y, half)
   drawSierp (x + half, y, half)
   drawSierp (x + size div 4, y + half, half)
 end if
end drawSierp


drawSierp (0, 0, 300)