Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-07 16:25:16 +00:00
Code Issues Projects Releases Wiki Activity

starpath: more size optimization

Browse Source
This commit is contained in:
Vince Weaver
2025-02-25 14:11:39 -05:00
parent 45cb9c80ab
commit f369e01311
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
graphics/gr/starpath/starpath.bas
View File

@@ -1,10 +1,10 @@
0GOTO1:SPEED=$)%DEL$LRUSR:SPEED=$)%DEL$LRUSR 0GOTO1:SPEED=$)%DEL$LRUSR:SPEED=$)%DEL$LRUSR
1P=2060:POKEP+8,9:DIML(16):FORI=0TO15:READL(I):NEXT:GR:POKE49234,0 1P=2060:POKEP+8,9:DIML(16):FORI=0TO14:READL(I):NEXT:GR:POKE49234,0
2FORY=0TO47:FORX=0TO39:D=14 2FORY=0TO47:FORX=0TO39:D=I
3Z=Y*4*D:T=(X*6)-D:IFT<0THENC=31:A=(X*6)+Z:GOTO7 3Z=Y*4*D:T=X*6-D:IFT<0THENC=31:A=X*6+Z:GOTO7
4POKEP+7,(T*D)/256:POKEP+9,Z/256:CALLP+6:T=PEEK(36) 4POKEP+7,T*D/256:POKEP+9,Z/256:CALLP+6:T=PEEK(36)
5POKEP-3,T:POKEP-1,D+F:CALLP-4:C=PEEK(36):D=D+1:IFC<16THEN3 5POKEP-3,T:POKEP-1,D+F:CALLP-4:C=PEEK(36):D=D+1:IFC<16THEN3
6GOTO9:DATA0,5,10,5,10,7,15,15,2,1,3,9,13,12,4,4 6GOTO9:DATA0,5,10,5,10,7,15,15,2,1,3,9,13,12,4
7IFA>256THENA=A-256:GOTO7 7IFA>256THENA=A-256:GOTO7
8IFA>6THENC=(Y/4)+32 8IFA>6THENC=(Y/4)+32
9COLOR=L((C-16)/2):PLOTX,Y:NEXTX,Y:F=F+1:GOTO2 9COLOR=L((C-16)/2):PLOTX,Y:NEXTX,Y:F=F+1:GOTO2