Post #2097402

#bbcmicrobot MODE2 *FX9,4 *FX10,4 c%=0 PROCtri(0,0,1280,0,640,1024,0) END DEFPROCtri(ax%,ay%,bx%,by%,cx%,cy%,d%) LOCALdx%,dy%,ex%,ey%,fx%,fy% d%=d%+1 c%=8+(c%+1)MOD7 IFd%>6GCOL0,c%:MOVEax%,ay%:DRAWbx%,by%:DRAWcx%,cy%:DRAWax%,ay%ELSEdx%=(bx%+ax%)/2:dy%=(by%+ay%)/2:ex%=(ax%+cx%)/2:ey%=(ay%+cy%)/2:fx%=(bx%+cx%)/2:fy%=(by%+cy%)/2:PROCtri(ax%,ay%,dx%,dy%,ex%,ey%,d%):PROCtri(dx%,dy%,bx%,by%,fx%,fy%,d%):PROCtri(fx%,fy%,ex%,ey%,cx%,cy%,d%) ENDPROC