diff --git a/3d/3d.dsk b/3d/3d.dsk new file mode 100644 index 00000000..78a528b9 Binary files /dev/null and b/3d/3d.dsk differ diff --git a/3d/Makefile b/3d/Makefile new file mode 100644 index 00000000..f236175c --- /dev/null +++ b/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 diff --git a/3d/cube_black_bg.png b/3d/cube_black_bg.png new file mode 100644 index 00000000..3b2098ef Binary files /dev/null and b/3d/cube_black_bg.png differ diff --git a/3d/cube_dhgr_test.png b/3d/cube_dhgr_test.png new file mode 100644 index 00000000..d2059d32 Binary files /dev/null and b/3d/cube_dhgr_test.png differ diff --git a/3d/cube_pink_bg.png b/3d/cube_pink_bg.png new file mode 100644 index 00000000..f976e455 Binary files /dev/null and b/3d/cube_pink_bg.png differ diff --git a/3d/cube_white_bg.png b/3d/cube_white_bg.png new file mode 100644 index 00000000..44946a16 Binary files /dev/null and b/3d/cube_white_bg.png differ diff --git a/3d/empty.dsk b/3d/empty.dsk new file mode 100644 index 00000000..0a2af35e Binary files /dev/null and b/3d/empty.dsk differ diff --git a/3d/hello.bas b/3d/hello.bas new file mode 100644 index 00000000..7bb7e0e7 --- /dev/null +++ b/3d/hello.bas @@ -0,0 +1,4 @@ + 5 HOME + 10 PRINT "3D TEST FOR QKUMBA" + 20 PRINT CHR$(4)+"RUN LOAD" + diff --git a/3d/load.bas b/3d/load.bas new file mode 100644 index 00000000..5733f070 --- /dev/null +++ b/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