diff --git a/src/dhgr.tk/demos/penguins/PEN1.BIN b/src/dhgr.tk/demos/penguins/PEN1.BIN new file mode 100644 index 0000000..602f575 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN1.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN10.BIN b/src/dhgr.tk/demos/penguins/PEN10.BIN new file mode 100644 index 0000000..28bc194 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN10.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN2.BIN b/src/dhgr.tk/demos/penguins/PEN2.BIN new file mode 100644 index 0000000..9db24e7 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN2.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN3.BIN b/src/dhgr.tk/demos/penguins/PEN3.BIN new file mode 100644 index 0000000..5580182 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN3.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN4.BIN b/src/dhgr.tk/demos/penguins/PEN4.BIN new file mode 100644 index 0000000..f594ce3 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN4.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN5.BIN b/src/dhgr.tk/demos/penguins/PEN5.BIN new file mode 100644 index 0000000..5e60a6d Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN5.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN6.BIN b/src/dhgr.tk/demos/penguins/PEN6.BIN new file mode 100644 index 0000000..98da3a7 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN6.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN7.BIN b/src/dhgr.tk/demos/penguins/PEN7.BIN new file mode 100644 index 0000000..9a705c5 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN7.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PEN8.BIN b/src/dhgr.tk/demos/penguins/PEN8.BIN new file mode 100644 index 0000000..8459bdf --- /dev/null +++ b/src/dhgr.tk/demos/penguins/PEN8.BIN @@ -0,0 +1 @@ +wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffffffVUUUUUVfffffffffffffffffffffffffffffffffU_UffffffffffffffffffffffffffffffffVUUUVffffffffffffffffffffffVU%UUVffffffffooooffffffffffffffffbbUbbbfffffffffffffffffffffffffZ%fffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffffVUUUUUVfffffffffffffffffffffffffffffffffU_UVffffffffffffffffffffffffffffffffUUUUVffffffffffffffffffffffVU%UUVfffffffffoooofffffffffffffffbbUbbbfffffffffffffffffffffffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffffVUUUUUVfffffffffffffffffffffffffffffffffU_UUfffffffffffffffffffffffffffffffffUUUUVffffffffffffffffffffffffU%UUVffffffffffffoooofffffffffffffffbURRbfffffffffffffffffffffffffffff]fffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffVUUUUUVffffffffffffffffffffffffffffffffU_UUUfffffffffffffffffffffffffffffffffUUUUUUffffffffffffffffffffffff""UUUUffffffffffffffoooofffffffffffffffRUUffffffffffffffffffffffffffffffjUUVfffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffVUUUUUVfffffffffffffffffffffffffffffffݙU_UUUUfffffffffffffffffffffffffffffffffUUUUUUfffffffffffffffffffffffff"UUUUUfffffffffffffffooooffffffffffffffRUUUVfffffffffffffffffffffffffffffjUUUUVfffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffVUUUUUVfffffffffffffffffffffffffffffffݙU_UUUUffffffffffffffffffffffffffffffffUUUUUUUffffffffffffffffffffffff"UUUUUffffffffffffffffoooofffffffffffffRUUUVfffffffffffffffffffffffffffffjZUUUUUVffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffVUUUUUVffffffffffffffffffffffffffffffffU_UUUffffffffffffffffffffffffffffffffUUUUUUffffffffffffffffffffffff"UUUUfffffffffffffffffooooffffffffffffRUUVfffffffffffffffffffffffffffffjZUUUUVfffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofVUUUUUVfffffffffffffffffffffffffffffffffU_UUffffffffffffffffffffffffffffffffVUUUUfffffffffffffffffffffffV%UUVffffffffffffffffooooffffffffffbURRbfffffffffffffffffffffffffffڪZUUUVffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooVUUUUUVffffffffffffffffffffffffffffffffU_UUffffffffffffffffffffffffffffffffVUUUfffffffffffffffffffffffVU%UUVffffffffffffffffoooofffffffffbbURRbfffffffffffffffffffffffffffUUUUVffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooVUUUUUVfffffffffffffffffffffffffffffffffU_UٟffffffffffffffffffffffffffffffffVUUUVfffffffffffffffffffffVUU%UVffffffffffffffffooooffffffffbbbUbbfffffffffffffffffffffffffffUUZUfffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffVUUUUUVffffffffffffffffffffffffffffffffVU_UٟfffffffffffffffffffffffffffffffVUUUUfffffffffffffffffffffVUU%UVfffffffffffffffoooofffffffffbbbUbbffffffffffffffffffffffffffՕZfffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffoooooooofffffffVVVVVffffffffffffoooooooooofffUUUՕfffffffffffffffffffffffffffffffffUUUU]]]ffffffffffffffffffffffffffffffffUUUUUfffffffffffffffffffffffVUU%UfffffffffffffffooooffffffffffffbRRUbffffffffffffffffffffffffffff]fffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffffVUUUUUVfffffffffffffffffffffffffffffffffUUUUfffffffffffffffffffffffffffffffVUUUUUffffffffffffffffffffffffUUUU""ffffffffffffffooooffffffffffffffUURffffffffffffffffffffffffffffVUU՚jffffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffffVUUUUUVfffffffffffffffffffffffffffffffffUUUU_UfffffffffffffffffffffffffffffffUUUUUUfffffffffffffffffffffffffUUUUU"ffffffffffffffooooffffffffffffffVUUURfffffffffffffffffffffffffffVUUUUUjfffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffffVUUUUUVfffffffffffffffffffffffffffffffffUUUU_UfffffffffffffffffffffffffffffffUUUUUUUfffffffffffffffffffffffffUUUUU"fffffffffffffoooofffffffffffffffVUUURfffffffffffffffffffffffffffVUUUUUUjffffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffffVUUUUUVfffffffffffffffffffffffffffffffffUUU_UffffffffffffffffffffffffffffffffUUUUUUfffffffffffffffffffffffffUUUU"ffffffffffffooooffffffffffffffffVUURfffffffffffffffffffffffffffVUUUUUjfffffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffooooooooooffffffVUUUUUVfffffffffffffffffffffffffffffffffUU_UfffffffffffffffffffffffffffffffffUUUUVfffffffffffffffffffffffVUU%VffffffffffooooffffffffffffffffbRRUbffffffffffffffffffffffffffVUUUUږfffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfffffffffffffffffffooooooooffffffffffffffffffffffffoooooooooofffffffVUUUUUVfffffffffffffffffffffffffffffffffUU_UffffffffffffffffffffffffffffffffUUUfffffffffffffffffffffffVUU%fffffffffffooooffffffffffffffffbRRUbbfffffffffffffffffffffffffVUUUUfffffffffffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww \ No newline at end of file diff --git a/src/dhgr.tk/demos/penguins/PEN9.BIN b/src/dhgr.tk/demos/penguins/PEN9.BIN new file mode 100644 index 0000000..2de4304 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PEN9.BIN differ diff --git a/src/dhgr.tk/demos/penguins/PENGUIN.DHGR.BIN b/src/dhgr.tk/demos/penguins/PENGUIN.DHGR.BIN new file mode 100644 index 0000000..a8a6740 Binary files /dev/null and b/src/dhgr.tk/demos/penguins/PENGUIN.DHGR.BIN differ diff --git a/src/dhgr.tk/demos/penguins/penguins.pla b/src/dhgr.tk/demos/penguins/penguins.pla new file mode 100644 index 0000000..c491f27 --- /dev/null +++ b/src/dhgr.tk/demos/penguins/penguins.pla @@ -0,0 +1,134 @@ +include "inc/cmdsys.plh" +include "inc/args.plh" +include "inc/fileio.plh" +include "dhgr.tk/inc/dhgrlib.plh" +include "dhgr.tk/inc/dhgrutils.plh" + +sysflags resxtxt1|reshgr1|resxhgr1 + +const FRAME_WIDTH = 40 +const FRAME_HEIGHT = 40 +const FRAME_SIZE = FRAME_WIDTH * FRAME_HEIGHT / 2 +var arg +byte xTV = 3 +byte yTV = 100 + +def greasy2dcgr(pixptr, grptr)#0 + byte i, j, cl, ch + + for j = 0 to 39 step 2 + for i = 0 to 39 step 2 + cl = ^(grptr + i) + ch = ^(grptr + i + 1) + ^(pixptr + i / 2) = (cl & $0F) | (ch << 4) + ^(pixptr + i / 2 + 20) = (cl >> 4) | (ch & $F0) + next + pixptr = pixptr + 40 + grptr = grptr + 40 + next +end + +def greasyImport(filename)#2 + var pixmapbase, pixmapptr, frameptr + byte refnum, numframes, i + + pixmapbase = NULL + numframes = 0 + refnum = fileio:open(filename) + if refnum + fileio:read(refnum, @numframes, 1) + pixmapbase = heapalloc(FRAME_SIZE * numframes) + if pixmapbase + frameptr = heapalloc(FRAME_SIZE) + pixmapptr = pixmapbase + for i = 1 to numframes + fileio:read(refnum, frameptr, FRAME_SIZE) + greasy2dcgr(pixmapptr, frameptr) + pixmapptr = pixmapptr + FRAME_SIZE + next + fin + fileio:close(refnum) + heaprelease(frameptr) + fin + return pixmapbase, numframes +end + +def delay_getkey#0 + var busywait + + for busywait = 0 to 3000 + if ^$C000 > 127 + break + fin + next +end + +def dblHeight(w, h, pixptr)#0 + byte i, span + + span = (w + 1) / 2 + h = (h - 1) * 2 + for i = 0 to h step 2 + dcgrPixMap(0, i, w, 1, pixptr) + dcgrPixMap(0, i + 1, w, 1, pixptr) + pixptr = pixptr + span + next +end + +def frameAnimate(filename)#0 + var frames, frameptr, framesize + var frame7ptr, frame7span + byte numframes, i + + frames, numframes = greasyImport(filename) + if frames == NULL; return; fin + frame7ptr, frame7span = dhgrAllocBl7Mem(FRAME_WIDTH, FRAME_HEIGHT*2) + dhgrSurfMem(OP_SRC, FRAME_HEIGHT, frame7ptr, frame7span) + dhgrScrBl7(xTV, yTV, frame7span >> 2, FRAME_HEIGHT*2) + dhgrSurfScr(OP_SRC) + while ^$C000 < 128 + frameptr = frames + for i = 1 to numframes + dhgrSurfMem(OP_SRC, FRAME_HEIGHT*2, frame7ptr, frame7span) + //dcgrPixMap(0, 0, FRAME_WIDTH, FRAME_HEIGHT, frameptr) + dblHeight(FRAME_WIDTH, FRAME_HEIGHT, frameptr) + dhgrSurfScr(OP_SRC) + dhgrMemBl7(xTV,yTV,frame7span>>2,FRAME_HEIGHT*2,frame7ptr,frame7span) + frameptr = frameptr + FRAME_SIZE + //delay_getkey + next + loop + ^$C010 +end + +arg = argNext(argFirst) +if ^arg + while ^(arg + 1) == '-' + when toupper(^(arg + 2)) + is 'X' // Set X coord + if ^arg > 2 + xTV = ^(arg + 3) - '0' + if ^arg > 3 + xTV = xTV * 10 + ^(arg + 4) - '0' + fin + fin + break + is 'Y' // Set Y coord + if ^arg > 2 + yTV = ^(arg + 3) - '0' + if ^arg > 3 + yTV = yTV * 10 + ^(arg + 4) - '0' + fin + fin + break + wend + arg = argNext(arg) + loop + dhgrMode(DHGR_COLOR_MODE) + screenRead("PENGUIN.DHGR") + frameAnimate(arg) + dhgrMode(DHGR_TEXT_MODE) + return 0 +fin +puts("Usage: DCGRDEMO \n") +done