Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

twister: work on tiny version

This commit is contained in:
Vince Weaver 2023-12-07 16:55:49 -05:00
parent a52d1ebb47
commit 697a9e6e9a
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
graphics/gr/twister/Makefile
View File

@ -9,11 +9,12 @@ EMPTY_DISK = ../../../empty_disk
all: twister.dsk
twister.dsk: $(DOS33) HELLO TWISTER.BAS LORES.BAS
twister.dsk: $(DOS33) HELLO TWISTER.BAS LORES.BAS TINY.BAS
cp $(EMPTY_DISK)/empty.dsk twister.dsk
$(DOS33) -y twister.dsk SAVE A HELLO
$(DOS33) -y twister.dsk SAVE A TWISTER.BAS
$(DOS33) -y twister.dsk SAVE A LORES.BAS
$(DOS33) -y twister.dsk SAVE A TINY.BAS
###
@ -30,6 +31,12 @@ TWISTER.BAS: twister.bas
LORES.BAS: lores.bas
$(TOKENIZE) < lores.bas > LORES.BAS
###
TINY.BAS: tiny.bas
$(TOKENIZE) < tiny.bas > TINY.BAS
###

10
graphics/gr/twister/tiny.bas Normal file
View File

@ -0,0 +1,10 @@
0DIMA(1280),B(1280):GR:P=3.14:FORE=0TOP*2STEP.1:?J
1M=120+COS(E)*100:N=P-SIN(E)*P:FORY=0TO19:J=J+1
2F=Y*8/M-N:A(J)=8*SIN(F):B(J)=8*SIN(F+P/2):NEXTY,E
3J=0:FORI=1TO63:FORY=0TO19:J=J+1:Q=A(J):R=B(J):S=20-Q:T=20-R:Q=Q+20:R=R+20
4COLOR=0:HLIN12,27ATY:COLOR=1
5IFQ<RTHENHLINQ,RATY:GOTO7
6HLINS,TATY
7COLOR=2:IFR<STHENHLINR,SATY:GOTO9
8HLINT,QATY
9NEXTY,I:GOTO3