setrgb 0,255,255,255
open window 640,512

n=-0.38
n=0.38
n3=1.19
r1=40
gdr=320
hbr=256
rot=0.04
res=0.5

10
setdrawbuf curbuff
curbuff = 1 - curbuff
setdispbuf curbuff
clear window

setrgb 1,0,0,0
for n=0+p to 10+p step res
for n2=10+p to 20+p step res

triangle gdr+r1*sin(n),hbr+r1*cos(n) to gdr+r1*sin(n2),hbr+r1*cos(n2) to gdr,hbr

next
next

setrgb 1,0,0,0
fill rect 0,0 to 640,20
fill rect 0,512 to 640,492

setrgb 1,255,255,255
text 320,510,"TRIANGLE,ROND:MODIFIER LE NOMBRE DE LIGNES","cc"
text 320,10,"L1:RETRECIR   R1:AGRANDIR   L2,R2:TOURNER","cc"

 k=peek("port1")
if and(k,4096) <> 0 then
res=res-0.003
fi

if and(k,16384) <> 0 then
res=res+0.003
fi

if and(k,2048) <> 0 then
r1=r1+20
fi

if and(k,1024) <> 0 then
r1=r1-20
fi

if and(k,512) <> 0 then
p=p-0.05
fi

if and(k,256) <> 0 then
p=p+0.05
fi

if and(k,32) <> 0 then
gdr=gdr+10
fi

if and(k,128) <> 0 then
gdr=gdr-10
fi

if and(k,64) <> 0 then
hbr=hbr+10
fi

if and(k,16) <> 0 then
hbr=hbr-10
fi

goto 10


