SHOW:
|
|
- or go back to the newest paste.
| 1 | const PI = atn(1)*4 | |
| 2 | ||
| 3 | dim shared as short Min = 12 | |
| 4 | ||
| 5 | - | screenres 800,600 'mode 1 |
| 5 | + | const ScrWid=1280,ScrHei=1024 |
| 6 | const ScX=ScrWid/320,ScY=ScrHei/256 | |
| 7 | ||
| 8 | screenres ScrWid,ScrHei 'mode 1 | |
| 9 | window (0,0)-(1280,1024) | |
| 10 | color 14 | |
| 11 | - | line -step(2+L*COS(ANGLE),2),,bf |
| 11 | + | |
| 12 | - | line -step(-2,L*SIN(ANGLE)-2),,bf |
| 12 | + | |
| 13 | if L<MIN then | |
| 14 | line -step(ScX+L*COS(ANGLE),ScY),,bf | |
| 15 | line -step(-ScX,L*SIN(ANGLE)-ScY),,bf | |
| 16 | sleep 1,1 | |
| 17 | exit sub | |
| 18 | end if | |
| 19 | L = int(L/SQR(2)) | |
| 20 | PROCC(L,ANGLE+PI/4) | |
| 21 | PROCC(L,ANGLE-PI/4) | |
| 22 | end sub | |
| 23 | ||
| 24 | pset(300,200) | |
| 25 | PROCC(700,0) | |
| 26 | sleep | |
| 27 |
