mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-13 03:29:32 +00:00
hgr: add bubble universe code
This commit is contained in:
parent
0642baaf70
commit
5796b6523c
30
graphics/hgr/bubble/Makefile
Normal file
30
graphics/hgr/bubble/Makefile
Normal file
|
@ -0,0 +1,30 @@
|
||||||
|
include ../../../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../../../utils/dos33fs-utils/dos33
|
||||||
|
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
||||||
|
LINKER_SCRIPTS = ../../../linker_scripts
|
||||||
|
EMPTY_DISK = ../../../empty_disk
|
||||||
|
|
||||||
|
all: bubble.dsk
|
||||||
|
|
||||||
|
bubble.dsk: HELLO BUBBLE.BAS
|
||||||
|
cp $(EMPTY_DISK)/empty.dsk bubble.dsk
|
||||||
|
$(DOS33) -y bubble.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y bubble.dsk SAVE A BUBBLE.BAS
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
$(TOKENIZE) < hello.bas > HELLO
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
BUBBLE.BAS: bubble.bas
|
||||||
|
$(TOKENIZE) < bubble.bas > BUBBLE.BAS
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o *.lst BUBBLE.BAS HELLO
|
||||||
|
|
7
graphics/hgr/bubble/NOTES
Normal file
7
graphics/hgr/bubble/NOTES
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
bubble universe effect
|
||||||
|
|
||||||
|
the BASIC code is based on some from here:
|
||||||
|
https://www.pouet.net/topic.php?which=2557
|
||||||
|
the original effect is possibly this by yuruyrau:
|
||||||
|
https://twitter.com/yuruyurau/status/1226846058728177665
|
||||||
|
|
10
graphics/hgr/bubble/bubble.bas
Normal file
10
graphics/hgr/bubble/bubble.bas
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
10 HCOLOR=7
|
||||||
|
20 N=200:R=6.28/235:T=0:SZ=200:SW=280/SZ:SH=SCRH/SZ
|
||||||
|
30 HGR2:FOR I=0 TO N:RR=R*I:FOR J=0 TO N
|
||||||
|
40 U=SIN(I+V)+SIN(RR+X)
|
||||||
|
50 V=COS(I+V)+COS(RR+X)
|
||||||
|
60 X=U+T
|
||||||
|
70 HPLOT 32*U+140,32*V+96
|
||||||
|
80 NEXT J,I
|
||||||
|
90 T=T+.025
|
||||||
|
100 GOTO 30
|
10
graphics/hgr/bubble/bubble_plain.bas
Normal file
10
graphics/hgr/bubble/bubble_plain.bas
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
10 HCOLOR=7
|
||||||
|
20 N=200:R=6.28/235:T=0:SZ=200:SW=280/SZ:SH=SCRH/SZ
|
||||||
|
30 HGR2:FOR I=0 TO N:FOR J=0 TO N
|
||||||
|
40 U=SIN(I+V)+SIN(R*I+X)
|
||||||
|
50 V=COS(I+V)+COS(R*I+X)
|
||||||
|
60 X=U+T
|
||||||
|
70 HPLOT 48*U+140,48*V+96
|
||||||
|
80 NEXT J,I
|
||||||
|
90 T=T+.025
|
||||||
|
100 GOTO 30
|
2
graphics/hgr/bubble/hello.bas
Normal file
2
graphics/hgr/bubble/hello.bas
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
5 HOME
|
||||||
|
10 PRINT CHR$(4);"CATALOG"
|
Loading…
Reference in New Issue
Block a user