Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +00:00
Code Issues Projects Releases Wiki Activity

3d: add some 3d tests for qkumba

Browse Source
This commit is contained in:
Vince Weaver 2020-01-03 00:10:21 -05:00
parent 78f680a2e5
commit cfd198547c
9 changed files with 75 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
3d/3d.dsk Normal file
View File

Binary file not shown.

45
3d/Makefile Normal file
View 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
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
3d/cube_dhgr_test.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.6 KiB

BIN
3d/cube_pink_bg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.9 KiB

BIN
3d/cube_white_bg.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.9 KiB

BIN
3d/empty.dsk Normal file
View File

Binary file not shown.

4
3d/hello.bas Normal file
View 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
View 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