mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 22:29:36 +00:00
3d: add some 3d tests for qkumba
This commit is contained in:
parent
78f680a2e5
commit
cfd198547c
45
3d/Makefile
Normal file
45
3d/Makefile
Normal file
|
@ -0,0 +1,45 @@
|
||||||
|
include ../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../dos33fs-utils/dos33
|
||||||
|
TOKENIZE = ../asoft_basic-utils/tokenize_asoft
|
||||||
|
PNG2DHGR = ../hgr-utils/png2dhgr
|
||||||
|
|
||||||
|
all: 3d.dsk
|
||||||
|
|
||||||
|
3d.dsk: HELLO LOAD CUBE_WHITE.BIN CUBE_PINK.BIN CUBE_BLACK.BIN
|
||||||
|
cp empty.dsk 3d.dsk
|
||||||
|
$(DOS33) -y 3d.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y 3d.dsk SAVE A LOAD
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_WHITE.AUX
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_WHITE.BIN
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_BLACK.AUX
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_BLACK.BIN
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_PINK.AUX
|
||||||
|
$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_PINK.BIN
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
CUBE_WHITE.BIN: cube_white_bg.png
|
||||||
|
$(PNG2DHGR) ./cube_white_bg.png CUBE_WHITE
|
||||||
|
|
||||||
|
CUBE_BLACK.BIN: cube_black_bg.png
|
||||||
|
$(PNG2DHGR) ./cube_black_bg.png CUBE_BLACK
|
||||||
|
|
||||||
|
CUBE_PINK.BIN: cube_pink_bg.png
|
||||||
|
$(PNG2DHGR) ./cube_pink_bg.png CUBE_PINK
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
LOAD: load.bas
|
||||||
|
../asoft_basic-utils/tokenize_asoft < load.bas > LOAD
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o LOAD HELLO *.BIN *.AUX
|
BIN
3d/cube_black_bg.png
Normal file
BIN
3d/cube_black_bg.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 12 KiB |
BIN
3d/cube_dhgr_test.png
Normal file
BIN
3d/cube_dhgr_test.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 1.6 KiB |
BIN
3d/cube_pink_bg.png
Normal file
BIN
3d/cube_pink_bg.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 1.9 KiB |
BIN
3d/cube_white_bg.png
Normal file
BIN
3d/cube_white_bg.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 1.9 KiB |
BIN
3d/empty.dsk
Normal file
BIN
3d/empty.dsk
Normal file
Binary file not shown.
4
3d/hello.bas
Normal file
4
3d/hello.bas
Normal file
|
@ -0,0 +1,4 @@
|
||||||
|
5 HOME
|
||||||
|
10 PRINT "3D TEST FOR QKUMBA"
|
||||||
|
20 PRINT CHR$(4)+"RUN LOAD"
|
||||||
|
|
26
3d/load.bas
Normal file
26
3d/load.bas
Normal file
|
@ -0,0 +1,26 @@
|
||||||
|
1 REM BASED ON CODE BY B. BUCKELS
|
||||||
|
2 REM http://www.appleoldies.ca/bmp2dhr/basic/
|
||||||
|
3 D$ = CHR$ (4): PRINT D$;"PR#3": PRINT : REM ENABLE 80 COL
|
||||||
|
5 TEXT
|
||||||
|
6 HOME
|
||||||
|
24 POKE 49232,0: REM GRAPHICS
|
||||||
|
25 POKE 49234,0: REM FULL GRAPHICS
|
||||||
|
26 POKE 49236,0: REM PAGE ONE
|
||||||
|
27 POKE 49239,0: REM HI-RES ON
|
||||||
|
28 POKE 49246,0: REM DOUBLE HI-RES ON
|
||||||
|
100 TEMP$="CUBE_PINK":GOSUB 1000
|
||||||
|
105 GET A$
|
||||||
|
110 TEMP$="CUBE_WHITE":GOSUB 1000
|
||||||
|
115 GET A$
|
||||||
|
120 TEMP$="CUBE_BLACK":GOSUB 1000
|
||||||
|
125 GET A$
|
||||||
|
710 POKE 49233,0: REM TEXT MODE
|
||||||
|
720 POKE 49247,0: REM DOUBLE HI-RES OFF
|
||||||
|
730 POKE 49236,0: REM PAGE ONE
|
||||||
|
800 TEXT
|
||||||
|
810 HOME
|
||||||
|
820 END
|
||||||
|
1000 PRINT
|
||||||
|
1005 POKE 49237,0: PRINT D$;"BLOAD ";TEMP$;".AUX, A$2000":PRINT
|
||||||
|
1010 POKE 49236,0: PRINT D$;"BLOAD ";TEMP$;".BIN, A$2000":PRINT
|
||||||
|
1020 RETURN
|
Loading…
Reference in New Issue
Block a user