hgr: boxes

graphics/hgr/boxes/Makefile

@@ -0,0 +1,69 @@
+include ../../../Makefile.inc
+
+DOS33 = ../../../utils/dos33fs-utils/dos33
+TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
+LINKERSCRIPTS = ../../../linker_scripts
+EMPTYDISK = ../../../empty_disk/empty.dsk
+
+all:	boxes.dsk make_boxes
+
+boxes.dsk:	HELLO A2_BOXES BOXES RR NYAN
+	cp $(EMPTYDISK) boxes.dsk
+	$(DOS33) -y boxes.dsk SAVE A HELLO
+	$(DOS33) -y boxes.dsk BSAVE -a 0x300 BOXES
+	$(DOS33) -y boxes.dsk BSAVE -a 0xC00 A2_BOXES
+	$(DOS33) -y boxes.dsk BSAVE -a 0xC00 RR
+	$(DOS33) -y boxes.dsk BSAVE -a 0xC00 NYAN
+
+###
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+A2_BOXES:	a2_boxes.o
+	ld65 -o A2_BOXES a2_boxes.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+a2_boxes.o:	a2_boxes.s
+	ca65 -o a2_boxes.o a2_boxes.s -l a2_boxes.lst
+
+###
+
+RR:	rr.o
+	ld65 -o RR rr.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+rr.o:	rr.s
+	ca65 -o rr.o rr.s -l rr.lst
+
+###
+
+NYAN:	nyan.o
+	ld65 -o NYAN nyan.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+nyan.o:	nyan.s
+	ca65 -o nyan.o nyan.s -l nyan.lst
+
+
+
+###
+
+BOXES:	boxes.o
+	ld65 -o BOXES boxes.o -C $(LINKERSCRIPTS)/apple2_300.inc
+
+boxes.o:	boxes.s
+	ca65 -o boxes.o boxes.s -l boxes.lst
+
+
+###
+
+make_boxes:	make_boxes.o
+	$(CC) -o make_boxes make_boxes.o $(LFLAGS)
+
+make_boxes.o:	make_boxes.c
+	$(CC) $(CFLAGS) -c make_boxes.c
+
+###
+
+clean:	
+	rm -f *~ *.o *.lst HELLO A2_BOXES BOXES RR make_boxes

graphics/hgr/boxes/hello.bas

@@ -0,0 +1,2 @@
+5 HOME
+10 PRINT CHR$(4);"CATALOG"

graphics/hgr/boxes/myst.bas

@@ -0,0 +1,27 @@
+1HGR2
+2READC,D,A,B,V,W:IFC>127THENEND
+3P=0:FORY=BTOW:HCOLOR=C:IFPTHENHCOLOR=D
+4P=NOTP:HPLOTA,YTOV,Y:NEXT:GOTO2
+50 DATA 3,3,0,0,140,90
+52 DATA 3,3,140,0,279,90
+60 DATA 1,6,0,90,140,191
+62 DATA 1,6,140,90,279,191
+64 DATA 4,1,157,121,208,191
+70 DATA 0,7,141,116,231,135
+71 DATA 7,0,156,20,209,126
+72 DATA 0,7,210,17,213,121
+75 DATA 7,0,145,9,212,20
+76 DATA 0,7,162,0,220,20
+77 DATA 5,0,172,91,187,123
+78 DATA 7,7,169,31,191,63
+79 DATA 7,7,165,39,194,60
+80 DATA 5,1,0,163,63,191
+82 DATA 5,1,63,167,177,191
+84 DATA 5,1,177,185,230,191
+90 DATA 5,0,23,0,39,178
+91 DATA 1,5,1,13,99,44
+92 DATA 5,0,0,0,20,191
+94 DATA 0,5,66,0,81,187
+96 DATA 1,5,66,1,99,19
+97 DATA 0,0,177,32,181,50
+999 DATA 128,0,0,0,0,0

graphics/hgr/boxes/myst.points

@@ -0,0 +1,22 @@
+3	3	0	0	140	90	; sky left
+3	3	140	0	279	90	; sky right
+1	6	0	90	140	191	; ocean left
+1	6	140	90	279	191	; ocean right
+4	1	157	121	208	191	; tower shadow
+0	7	141	116	231	135	; gear base
+7	0	156	20	209	126	; tower
+0	7	210	17	213	121	; 
+7	0	145	9	212	20
+0	7	162	0	220	20
+5	0	172	91	187	123
+7	7	169	31	191	63	; clock face tall
+7	7	165	39	194	60	; clock face wide
+5	1	0	163	63	191	; grass
+5	1	63	167	177	191	; grass
+5	1	177	185	230	191	; grass
+5	0	23	0	39	178	; tree
+1	5	1	13	99	44	; leaves
+5	0	0	0	20	191	; tree
+0	5	66	0	81	187	; tree
+1	5	66	1	99	19	; leaves
+0	0	177	32	181	50	; clock hand

graphics/hgr/boxes/myst_tiny.bas

@@ -0,0 +1,4 @@
+0REM##  fM##f eM!& MfR!&fMeR$!n\9C 'fZM) 'z(0T' n*:U' h$A% 'q =*% vM'0''t/+0''r3.*%! q?.%!?sY,%!x|:#% + (y!% &Q/%   *~ %A '}!%A 0)  x0")
+1DEFFNP(X)=2*PEEK(2054+I*6+X)-64:HGR2
+3P=0:FORY=FNP(3)TOFNP(3)+FNP(5):HCOLOR=FNP(0)/2:IFPTHENHCOLOR=FNP(1)/2
+4P=NOTP:HPLOTFNP(2),YTOFNP(2)+FNP(4),Y:NEXT:I=I+1:GOTO3