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)