All pastes #196347 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-10-10 14:31 UTC
rendered paste body
View.Set("graphics:max,max")

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