Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

gr: bitmap: add a few more 16x16

This commit is contained in:
Vince Weaver 2021-03-22 21:26:54 -04:00
parent 5687a4d5b8
commit b09b6953d0
4 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
graphics/gr/bitmap/Makefile
View File

@ -7,12 +7,15 @@ EMPTYDISK = ../../../empty_disk/empty.dsk
all: bitmap.dsk make_bitmap make_bitmap_small
bitmap.dsk: HELLO EYE EYE.BAS EYE_NEW.BAS EYE_DROP.BAS
bitmap.dsk: HELLO EYE EYE.BAS EYE_NEW.BAS EYE_DROP.BAS POTION.BAS SMOLLY.BAS SPHERE.BAS
cp $(EMPTYDISK) bitmap.dsk
$(DOS33) -y bitmap.dsk SAVE A HELLO
$(DOS33) -y bitmap.dsk SAVE A EYE.BAS
$(DOS33) -y bitmap.dsk SAVE A EYE_NEW.BAS
$(DOS33) -y bitmap.dsk SAVE A EYE_DROP.BAS
$(DOS33) -y bitmap.dsk SAVE A POTION.BAS
$(DOS33) -y bitmap.dsk SAVE A SMOLLY.BAS
$(DOS33) -y bitmap.dsk SAVE A SPHERE.BAS
$(DOS33) -y bitmap.dsk BSAVE -a 0xC00 EYE
###
@ -37,6 +40,22 @@ EYE_DROP.BAS: eye_drop.bas
###
POTION.BAS: potion.bas
$(TOKENIZE) < potion.bas > POTION.BAS
###
SMOLLY.BAS: smolly.bas
$(TOKENIZE) < smolly.bas > SMOLLY.BAS
###
SPHERE.BAS: sphere.bas
$(TOKENIZE) < sphere.bas > SPHERE.BAS
###
EYE: eye.o
ld65 -o EYE eye.o -C $(LINKERSCRIPTS)/apple2_c00.inc
@ -63,4 +82,4 @@ make_bitmap_small.o: make_bitmap_small.c
###
clean:
rm -f *~ *.o *.lst HELLO EYE EYE.BAS EYE_NEW.BAS EYE_DROP.BAS make_bitmap make_bitmap_small
rm -f *~ *.o *.lst HELLO EYE EYE.BAS EYE_NEW.BAS EYE_DROP.BAS POTION.BAS SMOLLY.BAS SPHERE.BAS make_bitmap make_bitmap_small

6
graphics/gr/bitmap/potion.bas Normal file
View File

@ -0,0 +1,6 @@
1GR:FORI=0TO135:C=PEEK(2161+I)-35:IFI<8THENA(I)=C:NEXT
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):VLIN2*INT(I/8),33ATX+12:C=C/8:NEXT:X=X*(X<15):NEXT:"*2(%/',+#########+4%#####3#%######5##>>###4##>>##35##;&##5%%#;&##-%3#>>#3-%#=>>#3,%#=>>&3,OP<>>&9/OP]bbZ9HHO]bbYYMG8bbYYY95]bYYYYYbbYYYY

7
graphics/gr/bitmap/smolly.bas Normal file
View File

@ -0,0 +1,7 @@
1GR:FORI=0TO135:C=PEEK(2161+I)-35:IFI<8THENA(I)=C:NEXT
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):VLIN2*INT(I/8),33ATX+12:C=C/8:NEXT:X=X*(X<15):NEXT:"#%)*&$2.##+,,$###,#4>5$#+-G0U66#4DYJ4A>$,_Yb/>=%DGP`2=5%\,,_R5-%_'SbR4-%HbbJG+-$#_bPP+%$#C_RH+$$##PGO+$###KP#+$##KY_J1##,_XIbX,,5_WYYY55

2
graphics/gr/bitmap/sphere.bas Normal file
View File

@ -0,0 +1,2 @@
1GR:FORI=0TO135:C=PEEK(2161+I)-35:IFI<8THENA(I)=C:NEXT
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):VLIN2*INT(I/8),33ATX+12:C=C/8:NEXT:X=X*(X<15):NEXT:"%)1#2*(###########+55$###+-,,4$##4,#4,-#,-$.E-4,,-#>4$4,4,####,-4,$##+,-M-,,,,48Q95555UX@@VYYANNF@@N@NN?ANF@N?@N>AP?FPN>YY>VA>H@P@>YH>NO