Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-03 18:29:53 +00:00
Code Issues Projects Releases Wiki Activity

twister: add lores version

Browse Source
This commit is contained in:
Vince Weaver 2023-12-06 23:59:11 -05:00
parent a49ae04118
commit 60ffe8b76e
2 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
graphics/gr/twister/Makefile
View File

@ -9,10 +9,11 @@ EMPTY_DISK = ../../../empty_disk
all: twister.dsk
twister.dsk: $(DOS33) HELLO TWISTER.BAS
twister.dsk: $(DOS33) HELLO TWISTER.BAS LORES.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
###
@ -24,9 +25,15 @@ HELLO: hello.bas
TWISTER.BAS: twister.bas
$(TOKENIZE) < twister.bas > TWISTER.BAS
###
LORES.BAS: lores.bas
$(TOKENIZE) < lores.bas > LORES.BAS
###
clean:
rm -f *~ *.o HELLO TWISTER.BAS *.lst
rm -f *~ *.o HELLO TWISTER.BAS LORES.BAS *.lst

20
graphics/gr/twister/lores.bas Normal file
View File

@ -0,0 +1,20 @@
10 REM TWISTER-DEMO
15 REM https://8bitshack.org/post/twister/
20 GR
30 FOR A2 = 1 TO 360 STEP 3
40 AM = 120+COS(A2*0.0174533)*100
50 AN = -3.141593+SIN(A2*0.0174533)*3.141593
60 FOR Y = 1 TO 39
65 FV = Y*4/AM+AN
70 X1 = 5*SIN(FV)
80 X2 = 5*SIN(FV+1.570796)
95 X3 = -X1
105 X4 = -X2
108 COLOR = 0: HLIN 105/7,175/7 AT Y
110 IF X1 < X2 THEN COLOR = 1: HLIN 20+X1,20+X2 AT Y: GOTO 130
120 IF X3 < X4 THEN COLOR = 1: HLIN 20+X3,20+X4 AT Y
130 IF X2 < X3 THEN COLOR = 2: HLIN 20+X2,20+X3 AT Y: GOTO 150
140 IF X4 < X1 THEN COLOR = 2: HLIN 20+X4,20+X1 AT Y
150 NEXT Y
160 NEXT A2
170 GOTO 30