3d: add some 3d tests for qkumba

3d/Makefile

@@ -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

3d/hello.bas

@@ -0,0 +1,4 @@
+   5  HOME
+  10  PRINT "3D TEST FOR QKUMBA"
+  20 PRINT CHR$(4)+"RUN LOAD"
+

3d/load.bas

@@ -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