mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 02:31:00 +00:00
peasant: initial sprite support
This commit is contained in:
Vince Weaver
parent
23647cbc18
commit
309677f52b
@ -66,8 +66,9 @@ title.o: title.s graphics_title/title_graphics.inc \
|
||||
PEASANT: peasant.o
|
||||
ld65 -o PEASANT peasant.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
|
||||
|
||||
peasant.o: peasant.s graphics/graphics.inc \
|
||||
peasant.o: peasant.s graphics/graphics.inc sprites/peasant_sprite.inc \
|
||||
draw_box.s hgr_rectangle.s hgr_font.s hgr_input.s \
|
||||
hgr_7x30_sprite.s \
|
||||
title.s directions.s \
|
||||
cottage.s lake_w.s lake_e.s river.s knight.s \
|
||||
ending.s
|
||||
|
||||
@ -45,6 +45,31 @@ cottage:
|
||||
jsr hgr_put_string
|
||||
|
||||
|
||||
;============================
|
||||
; draw peasant
|
||||
|
||||
; draw at 70,117
|
||||
|
||||
lda #10
|
||||
sta CURSOR_X
|
||||
lda #117
|
||||
sta CURSOR_Y
|
||||
|
||||
jsr save_bg_7x30
|
||||
|
||||
lda #10
|
||||
sta CURSOR_X
|
||||
lda #117
|
||||
sta CURSOR_Y
|
||||
|
||||
lda #<peasant_right1_sprite
|
||||
sta INL
|
||||
lda #>peasant_right1_sprite
|
||||
sta INH
|
||||
|
||||
jsr hgr_draw_sprite_7x30
|
||||
|
||||
|
||||
jsr wait_until_keypress
|
||||
|
||||
rts
|
||||
@ -83,8 +108,4 @@ cottage_text3:
|
||||
; Walk to edge of screen
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.include "sprites/peasant_sprite.inc"
|
||||
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 15 KiB After Width: | Height: | Size: 15 KiB |
138
games/peasant/hgr_7x30_sprite.s
Normal file
138
games/peasant/hgr_7x30_sprite.s
Normal file
@ -0,0 +1,138 @@
|
||||
|
||||
;======================
|
||||
; hgr 7x30 draw sprite
|
||||
;======================
|
||||
; SPRITE in INL/INH
|
||||
; Location at CURSOR_X CURSOR_Y
|
||||
|
||||
; left sprite AT INL/INH
|
||||
; right sprite at INL/INH + 14
|
||||
; left mask at INL/INH + 28
|
||||
; right mask at INL/INH + 42
|
||||
|
||||
hgr_draw_sprite_7x30:
|
||||
|
||||
; set up pointers
|
||||
lda INL
|
||||
sta h730_smc1+1
|
||||
lda INH
|
||||
sta h730_smc1+2
|
||||
|
||||
clc
|
||||
lda INL
|
||||
adc #30
|
||||
sta h730_smc3+1
|
||||
lda INH
|
||||
adc #0
|
||||
sta h730_smc3+2
|
||||
|
||||
ldx #0
|
||||
hgr_7x30_sprite_yloop:
|
||||
txa
|
||||
pha
|
||||
|
||||
clc
|
||||
adc CURSOR_Y
|
||||
|
||||
ldx #0
|
||||
ldy #0
|
||||
|
||||
; calc GBASL/GBASH
|
||||
jsr HPOSN ; (Y,X),(A) (values stored in HGRX,XH,Y)
|
||||
|
||||
pla
|
||||
tax
|
||||
|
||||
ldy CURSOR_X
|
||||
|
||||
lda (GBASL),Y
|
||||
h730_smc3:
|
||||
and $d000,X ; mask
|
||||
h730_smc1:
|
||||
ora $d000,X ; sprite
|
||||
sta (GBASL),Y
|
||||
|
||||
inx
|
||||
cpx #30
|
||||
bne hgr_7x30_sprite_yloop
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
;======================
|
||||
; save bg 7x30
|
||||
;======================
|
||||
|
||||
save_bg_7x30:
|
||||
|
||||
ldx #0
|
||||
save_yloop:
|
||||
txa
|
||||
pha
|
||||
|
||||
clc
|
||||
adc CURSOR_Y
|
||||
|
||||
ldx #0
|
||||
ldy #0
|
||||
|
||||
; calc GBASL/GBASH
|
||||
jsr HPOSN ; (Y,X),(A) (values stored in HGRX,XH,Y)
|
||||
|
||||
pla
|
||||
tax
|
||||
|
||||
ldy CURSOR_X
|
||||
|
||||
lda (GBASL),Y
|
||||
sta save_sprite_7x30,X
|
||||
|
||||
inx
|
||||
cpx #30
|
||||
bne save_yloop
|
||||
|
||||
rts
|
||||
|
||||
;======================
|
||||
; restore bg 14x14
|
||||
;======================
|
||||
|
||||
restore_bg_14x14:
|
||||
|
||||
ldx #0
|
||||
restore_yloop:
|
||||
txa
|
||||
pha
|
||||
|
||||
clc
|
||||
adc CURSOR_Y
|
||||
|
||||
ldx #0
|
||||
ldy #0
|
||||
|
||||
; calc GBASL/GBASH
|
||||
jsr HPOSN ; (Y,X),(A) (values stored in HGRX,XH,Y)
|
||||
|
||||
pla
|
||||
tax
|
||||
|
||||
ldy CURSOR_X
|
||||
|
||||
lda save_sprite_7x30,X
|
||||
sta (GBASL),Y
|
||||
|
||||
inx
|
||||
cpx #30
|
||||
bne restore_yloop
|
||||
|
||||
rts
|
||||
|
||||
|
||||
;====================
|
||||
; save area
|
||||
;====================
|
||||
|
||||
save_sprite_7x30:
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||
@ -70,5 +70,6 @@ peasant_quest:
|
||||
.include "hgr_font.s"
|
||||
.include "draw_box.s"
|
||||
.include "hgr_rectangle.s"
|
||||
.include "hgr_7x30_sprite.s"
|
||||
|
||||
.include "graphics/graphics.inc"
|
||||
|
||||
66
games/peasant/sprites/peasant_sprite.inc
Normal file
66
games/peasant/sprites/peasant_sprite.inc
Normal file
@ -0,0 +1,66 @@
|
||||
; hgr_make_sprite ./peasant_sprites.png 35 1 35 31
|
||||
|
||||
peasant_right1_sprite:
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $40
|
||||
.byte $40
|
||||
.byte $40
|
||||
.byte $70
|
||||
.byte $0C
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $0C
|
||||
.byte $0C
|
||||
.byte $0C
|
||||
.byte $1C
|
||||
.byte $70
|
||||
.byte $F5
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $0C
|
||||
.byte $3C
|
||||
.byte $0F
|
||||
.byte $0F
|
||||
.byte $0F
|
||||
.byte $1C
|
||||
.byte $FF
|
||||
.byte $FF
|
||||
|
||||
; hgr_make_sprite peasant_sprites.png 21 1 21 31
|
||||
peasant_right1_mask:
|
||||
.byte $03
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $73
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $60
|
||||
.byte $00
|
||||
.byte $00
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $03
|
||||
.byte $03
|
||||
.byte $03
|
||||
.byte $03
|
||||
.byte $43
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $70
|
||||
.byte $63
|
||||
.byte $00
|
||||
.byte $00
|
||||
BIN
games/peasant/sprites/peasant_sprites.png
Normal file
BIN
games/peasant/sprites/peasant_sprites.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 863 B |
@ -2,7 +2,7 @@ include ../../Makefile.inc
|
||||
|
||||
CFLAGS = -O2 -Wall -g
|
||||
|
||||
all: pcx2hgr png2hgr png2dhgr shape_table dump_table hgr2png
|
||||
all: pcx2hgr png2hgr png2dhgr shape_table dump_table hgr2png hgr_make_sprite
|
||||
|
||||
dump_table: dump_table.o
|
||||
$(CC) -o dump_table dump_table.o $(LFLAGS)
|
||||
@ -32,6 +32,15 @@ png2hgr.o: png2hgr.c
|
||||
|
||||
###
|
||||
|
||||
hgr_make_sprite: hgr_make_sprite.o
|
||||
$(CC) -o hgr_make_sprite hgr_make_sprite.o $(LFLAGS) -lpng
|
||||
|
||||
hgr_make_sprite.o: hgr_make_sprite.c
|
||||
$(CC) $(CFLAGS) -c hgr_make_sprite.c
|
||||
|
||||
|
||||
###
|
||||
|
||||
hgr2png: hgr2png.o
|
||||
$(CC) -o hgr2png hgr2png.o $(LFLAGS) -lpng
|
||||
|
||||
@ -49,8 +58,8 @@ png2dhgr.o: png2dhgr.c
|
||||
|
||||
|
||||
install:
|
||||
cp pcx2hgr shape_table png2hgr hgr2png $(INSTALL_LOC)
|
||||
cp pcx2hgr shape_table png2hgr hgr2png hgr_make_sprite $(INSTALL_LOC)
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o pcx2hgr shape_table dump_table png2hgr png2dhgr hgr2png
|
||||
rm -f *~ *.o pcx2hgr shape_table dump_table png2hgr png2dhgr hgr2png hgr_make_sprite
|
||||
|
||||
|
||||
474
utils/hgr-utils/hgr_make_sprite.c
Normal file
474
utils/hgr-utils/hgr_make_sprite.c
Normal file
@ -0,0 +1,474 @@
|
||||
/* Grabs part of 280x192 8-bit PNG file with correct palette to */
|
||||
/* Sprites suitable for Apple II HGR */
|
||||
|
||||
#define VERSION "0.0.1"
|
||||
|
||||
#include <stdio.h> /* For FILE I/O */
|
||||
#include <string.h> /* For strncmp */
|
||||
#include <fcntl.h> /* for open() */
|
||||
#include <unistd.h> /* for lseek() */
|
||||
#include <sys/stat.h> /* for file modes */
|
||||
#include <stdlib.h> /* free() */
|
||||
|
||||
#include <png.h>
|
||||
|
||||
#define OUTPUT_C 0
|
||||
#define OUTPUT_ASM 1
|
||||
#define OUTPUT_RAW 2
|
||||
|
||||
/* If you want default black a different color try the below */
|
||||
/* Useful if you are trying to xdraw to get red/blue */
|
||||
#if 0
|
||||
/* Default is BLACK0 */
|
||||
#define DEFAULT_BLACK -1
|
||||
#else
|
||||
/* DEFAULT is BLACK1 */
|
||||
#define DEFAULT_BLACK 1
|
||||
#endif
|
||||
|
||||
static int debug=0,color_warnings=0;
|
||||
|
||||
static int convert_color(int color) {
|
||||
|
||||
int c=0;
|
||||
|
||||
switch(color) {
|
||||
#if 0
|
||||
case 0x000000: c=0; break; /* black */
|
||||
case 0xe31e60: c=1; break; /* magenta */
|
||||
case 0x604ebd: c=2; break; /* dark blue */
|
||||
case 0xff44fd: c=3; break; /* purple */
|
||||
case 0x00a360: c=4; break; /* dark green */
|
||||
case 0x9c9c9c: c=5; break; /* grey 1 */
|
||||
case 0x14cffd: c=6; break; /* medium blue */
|
||||
case 0xd0c3ff: c=7; break; /* light blue */
|
||||
case 0x607203: c=8; break; /* brown */
|
||||
case 0xff6a3c: c=9; break; /* orange */
|
||||
case 0x9d9d9d: c=10; break; /* grey 2 */
|
||||
case 0xffa0d0: c=11; break; /* pink */
|
||||
case 0x14f53c: c=12; break; /* bright green */
|
||||
case 0xd0dd8d: c=13; break; /* yellow */
|
||||
case 0x72ffd0: c=14; break; /* aqua */
|
||||
case 0xffffff: c=15; break; /* white */
|
||||
#endif
|
||||
|
||||
/* These use the questionable palette my older code used */
|
||||
/* Also handle the newer one */
|
||||
/* Bitflipped because HGR is backwards, woz is crazy */
|
||||
case 0x000000: c=0; break; /* black1 */
|
||||
case 0x1bcb01: c=2; break; /* bright green */
|
||||
case 0x14f53c: c=2; break; /* bright green */
|
||||
case 0xe434fe: c=1; break; /* magenta */
|
||||
case 0xe31e60: c=1; break; /* magenta */
|
||||
case 0xffffff: c=3; break; /* white1 */
|
||||
case 0xcd5b01: c=6; break; /* orange */
|
||||
case 0xff6a3c: c=6; break; /* orange */
|
||||
case 0x1b9afe: c=5; break; /* medium blue */
|
||||
case 0x14cffd: c=5; break; /* medium blue */
|
||||
|
||||
case 0x010101: c=4; break; /* black2 */
|
||||
case 0xfefefe: c=7; break; /* white2 */
|
||||
|
||||
default:
|
||||
fprintf(stderr,"Unknown color %x\n",color);
|
||||
break;
|
||||
}
|
||||
|
||||
return c;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* expects a PNG where the xsize is *2 */
|
||||
int loadpng(char *filename,
|
||||
unsigned char **image_ptr, int *xsize, int *ysize) {
|
||||
|
||||
int x,y;
|
||||
int color;
|
||||
FILE *infile;
|
||||
unsigned char *image,*out_ptr;
|
||||
int width, height;
|
||||
int a2_color;
|
||||
|
||||
png_byte bit_depth;
|
||||
png_structp png_ptr;
|
||||
png_infop info_ptr;
|
||||
png_bytep *row_pointers;
|
||||
png_byte color_type;
|
||||
int row_bytes,bytes_per_pixel;
|
||||
|
||||
unsigned char header[8];
|
||||
|
||||
/* open file and test for it being a png */
|
||||
infile = fopen(filename, "rb");
|
||||
if (infile==NULL) {
|
||||
fprintf(stderr,"Error! Could not open %s\n",filename);
|
||||
return -1;
|
||||
}
|
||||
|
||||
/* Check the header */
|
||||
fread(header, 1, 8, infile);
|
||||
if (png_sig_cmp(header, 0, 8)) {
|
||||
fprintf(stderr,"Error! %s is not a PNG file\n",filename);
|
||||
return -1;
|
||||
}
|
||||
|
||||
/* initialize stuff */
|
||||
png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
|
||||
if (!png_ptr) {
|
||||
fprintf(stderr,"Error create_read_struct\n");
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
info_ptr = png_create_info_struct(png_ptr);
|
||||
if (!info_ptr) {
|
||||
fprintf(stderr,"Error png_create_info_struct\n");
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
png_init_io(png_ptr, infile);
|
||||
png_set_sig_bytes(png_ptr, 8);
|
||||
|
||||
png_read_info(png_ptr, info_ptr);
|
||||
|
||||
width = png_get_image_width(png_ptr, info_ptr);
|
||||
height = png_get_image_height(png_ptr, info_ptr);
|
||||
*xsize=width;
|
||||
*ysize=height;
|
||||
|
||||
color_type = png_get_color_type(png_ptr, info_ptr);
|
||||
bit_depth = png_get_bit_depth(png_ptr, info_ptr);
|
||||
|
||||
if (width!=280) {
|
||||
fprintf(stderr,"Unknown width %d\n",width);
|
||||
return -1;
|
||||
}
|
||||
|
||||
if (height!=192) {
|
||||
fprintf(stderr,"Unknown height %d\n",height);
|
||||
return -1;
|
||||
}
|
||||
|
||||
image=calloc(width*height,sizeof(unsigned char));
|
||||
if (image==NULL) {
|
||||
fprintf(stderr,"Error allocating image\n");
|
||||
return -1;
|
||||
}
|
||||
|
||||
if (debug) {
|
||||
fprintf(stderr,"PNG: width=%d height=%d depth=%d\n",
|
||||
width,height,bit_depth);
|
||||
if (color_type==PNG_COLOR_TYPE_RGB) {
|
||||
fprintf(stderr,"Type RGB\n");
|
||||
}
|
||||
else if (color_type==PNG_COLOR_TYPE_RGB_ALPHA) {
|
||||
fprintf(stderr,"Type RGBA\n");
|
||||
}
|
||||
else if (color_type==PNG_COLOR_TYPE_PALETTE) {
|
||||
fprintf(stderr,"Type palette\n");
|
||||
}
|
||||
}
|
||||
|
||||
/* If palette, expand to RGB automatically */
|
||||
if (color_type == PNG_COLOR_TYPE_PALETTE) {
|
||||
png_set_expand(png_ptr);
|
||||
}
|
||||
|
||||
png_read_update_info(png_ptr, info_ptr);
|
||||
|
||||
|
||||
row_bytes = png_get_rowbytes(png_ptr, info_ptr);
|
||||
// *pChannels = (int)png_get_channels(png_ptr, info_ptr);
|
||||
bytes_per_pixel=row_bytes/width;
|
||||
|
||||
if (debug) {
|
||||
fprintf(stderr,"Rowbytes=%d bytes per pixel=%d\n",
|
||||
row_bytes,row_bytes/width);
|
||||
}
|
||||
|
||||
row_pointers = (png_bytep*) malloc(sizeof(png_bytep) * height);
|
||||
for (y=0; y<height; y++) {
|
||||
row_pointers[y] = (png_byte*)malloc(row_bytes);
|
||||
}
|
||||
|
||||
png_read_image(png_ptr, row_pointers);
|
||||
|
||||
png_read_end(png_ptr, NULL);
|
||||
|
||||
fclose(infile);
|
||||
|
||||
out_ptr=image;
|
||||
|
||||
|
||||
for(y=0;y<height;y++) {
|
||||
for(x=0;x<width;x++) {
|
||||
|
||||
color= (row_pointers[y][x*bytes_per_pixel]<<16)+
|
||||
(row_pointers[y][x*bytes_per_pixel+1]<<8)+
|
||||
(row_pointers[y][x*bytes_per_pixel+2]);
|
||||
// if (debug) {
|
||||
// fprintf(stderr,"%x ",color);
|
||||
// }
|
||||
|
||||
a2_color=convert_color(color);
|
||||
|
||||
if (debug) {
|
||||
fprintf(stderr,"%x",a2_color);
|
||||
}
|
||||
*out_ptr=a2_color;
|
||||
out_ptr++;
|
||||
}
|
||||
if (debug) fprintf(stderr,"\nNR: ");
|
||||
}
|
||||
|
||||
|
||||
*image_ptr=image;
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/* Converts a PNG to RAW 8K Hires Image */
|
||||
|
||||
|
||||
static void print_help(char *name,int version) {
|
||||
|
||||
printf("\n%s version %s\n",VERSION,name);
|
||||
|
||||
if (version) exit(1);
|
||||
|
||||
printf("\nUsage: %s [-h] [-v] [-d] PNGFILE x1 y1 x2 y2\n\n",name);
|
||||
printf("\t[-d] debug\n");
|
||||
printf("\n");
|
||||
|
||||
exit(1);
|
||||
}
|
||||
|
||||
static int hgr_offset_table[48]={
|
||||
0x0000,0x0080,0x0100,0x0180,0x0200,0x0280,0x0300,0x0380,
|
||||
0x0028,0x00A8,0x0128,0x01A8,0x0228,0x02A8,0x0328,0x03A8,
|
||||
0x0050,0x00D0,0x0150,0x01D0,0x0250,0x02D0,0x0350,0x03D0,
|
||||
};
|
||||
|
||||
static int hgr_offset(int y) {
|
||||
|
||||
int temp,temp2,address;
|
||||
temp=y/8;
|
||||
temp2=y%8;
|
||||
|
||||
temp2=temp2*0x400;
|
||||
|
||||
address=hgr_offset_table[temp]+temp2;
|
||||
|
||||
return address;
|
||||
}
|
||||
|
||||
/* Count both black/white variants */
|
||||
static int color_high(int color) {
|
||||
if (color>3) return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int color_low(int color) {
|
||||
if (color<4) return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* also count any black/white */
|
||||
static int color_high_bw(int color) {
|
||||
if (color>3) return 1;
|
||||
if ((color==0) || (color==3)) return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int color_low_bw(int color) {
|
||||
if (color<4) return 1;
|
||||
if ((color==4) || (color==7)) return 1;
|
||||
return 0;
|
||||
}
|
||||
|
||||
static int colors_to_bytes(unsigned char colors[14],
|
||||
unsigned char *byte1,
|
||||
unsigned char *byte2) {
|
||||
|
||||
int i;
|
||||
int highbit1=0,highbit2=0,lowbit1=0,lowbit2=0;
|
||||
int bwhigh1=0,bwlow1=0;
|
||||
int bwhigh2=0,bwlow2=0;
|
||||
int hb1,hb2;
|
||||
int error=0;
|
||||
|
||||
*byte1=0;
|
||||
*byte2=0;
|
||||
|
||||
for(i=0;i<7;i++) {
|
||||
highbit1+=color_high(colors[i]);
|
||||
lowbit1+=color_low(colors[i]);
|
||||
bwhigh1+=color_high_bw(colors[i]);
|
||||
bwlow1+=color_low_bw(colors[i]);
|
||||
}
|
||||
|
||||
for(i=7;i<14;i++) {
|
||||
highbit2+=color_high(colors[i]);
|
||||
lowbit2+=color_low(colors[i]);
|
||||
bwhigh2+=color_high_bw(colors[i]);
|
||||
bwlow2+=color_low_bw(colors[i]);
|
||||
}
|
||||
|
||||
if (highbit1==7) hb1=1; // all were high bit set
|
||||
else if (lowbit1==7) hb1=0; // all were lo bit set
|
||||
else if (bwhigh1==7) hb1=1; // ignore black/white
|
||||
else if (bwlow1==7) hb1=0;
|
||||
else {
|
||||
error=1;
|
||||
if (bwhigh1>bwlow1) hb1=1;
|
||||
else hb1=0;
|
||||
}
|
||||
|
||||
if (highbit2==7) hb2=1; // all were high bit set
|
||||
else if (lowbit2==7) hb2=0; // all were lo bit set
|
||||
else if (bwhigh2==7) hb2=1; // ignore black/white
|
||||
else if (bwlow2==7) hb2=0;
|
||||
else {
|
||||
error=1;
|
||||
if (bwhigh2>bwlow2) hb2=1;
|
||||
else hb2=0;
|
||||
}
|
||||
|
||||
/*
|
||||
0 0 0 0 -> 00 00
|
||||
1 1 1 1 -> 01 01
|
||||
2 2 2 2 -> 10 10
|
||||
3 3 3 3 -> 11 11
|
||||
1 3 3 1 -> 01 11
|
||||
|
||||
1 1 2 2 3 3 0 -> 0 11 10 01
|
||||
|
||||
*/
|
||||
|
||||
|
||||
|
||||
*byte1|=(colors[0]&1)<<0;
|
||||
*byte1|=(colors[1]&2)<<0;
|
||||
*byte1|=(colors[2]&1)<<2;
|
||||
*byte1|=(colors[3]&2)<<2;
|
||||
*byte1|=(colors[4]&1)<<4;
|
||||
*byte1|=(colors[5]&2)<<4;
|
||||
*byte1|=(colors[6]&1)<<6;
|
||||
*byte1|=hb1<<7;
|
||||
|
||||
*byte2|=(colors[7]&2)>>1;
|
||||
*byte2|=(colors[8]&1)<<1;
|
||||
*byte2|=(colors[9]&2)<<1;
|
||||
*byte2|=(colors[10]&1)<<3;
|
||||
*byte2|=(colors[11]&2)<<3;
|
||||
*byte2|=(colors[12]&1)<<5;
|
||||
*byte2|=(colors[13]&2)<<5;
|
||||
*byte2|=hb2<<7;
|
||||
|
||||
return error;
|
||||
}
|
||||
|
||||
|
||||
static unsigned char apple2_image[8192];
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
|
||||
int xsize=0,ysize=0,error;
|
||||
int c,x,y,z,color1;
|
||||
unsigned char *image;
|
||||
unsigned char byte1,byte2,colors[14];
|
||||
|
||||
int x1,y1,x2,y2;
|
||||
|
||||
char *filename;
|
||||
|
||||
/* Parse command line arguments */
|
||||
|
||||
while ( (c=getopt(argc, argv, "hvd") ) != -1) {
|
||||
|
||||
switch(c) {
|
||||
|
||||
case 'h':
|
||||
print_help(argv[0],0);
|
||||
break;
|
||||
case 'v':
|
||||
print_help(argv[0],1);
|
||||
break;
|
||||
case 'd':
|
||||
debug=1;
|
||||
break;
|
||||
default:
|
||||
print_help(argv[0],0);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (argc-optind<5) {
|
||||
printf("ERROR: Was expecting filename and co-ords!\n");
|
||||
//printf("\targc=%d optind=%d\n",argc,optind);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
filename=strdup(argv[optind]);
|
||||
|
||||
x1=atoi(argv[optind+1]);
|
||||
y1=atoi(argv[optind+2]);
|
||||
x2=atoi(argv[optind+3]);
|
||||
y2=atoi(argv[optind+4]);
|
||||
|
||||
memset(apple2_image,0,8192);
|
||||
|
||||
if (loadpng(filename,&image,&xsize,&ysize)<0) {
|
||||
fprintf(stderr,"Error loading png!\n");
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
fprintf(stderr,"Loaded image %d by %d\n",xsize,ysize);
|
||||
|
||||
for(y=0;y<192;y++) {
|
||||
for(x=0;x<20;x++) {
|
||||
for(z=0;z<14;z++) {
|
||||
color1=image[y*280+x*14+z];
|
||||
// if (color1!=color2) {
|
||||
// fprintf(stderr,"Warning: color at %d x %d doesn't match\n",
|
||||
// x*14+z*2,y);
|
||||
//
|
||||
// }
|
||||
colors[z]=color1;
|
||||
}
|
||||
error=colors_to_bytes(colors,&byte1,&byte2);
|
||||
if (error!=0) {
|
||||
color_warnings++;
|
||||
fprintf(stderr,"Warning: mixing colors at %d x %d\n",
|
||||
x*14+error*7,y);
|
||||
}
|
||||
|
||||
apple2_image[hgr_offset(y)+(x*2)+0]=byte1;
|
||||
apple2_image[hgr_offset(y)+(x*2)+1]=byte2;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
if (x1%7) {
|
||||
fprintf(stderr,"Warning! x1 should be a multiple of 7\n");
|
||||
}
|
||||
|
||||
for(y=y1;y<y2;y++) {
|
||||
printf("\t.byte ");
|
||||
for(x=x1/7;x<=x2/7;x++) {
|
||||
printf("$%02X",apple2_image[hgr_offset(y)+x]);
|
||||
if (x!=x2/7) printf(",");
|
||||
}
|
||||
printf("\n");
|
||||
}
|
||||
|
||||
fprintf(stderr,"Total warnings: %d\n",color_warnings);
|
||||
|
||||
return 0;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user