mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-05 23:54:33 +00:00
458 lines
9.6 KiB
C
458 lines
9.6 KiB
C
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
|
|
#define MODE_ASM 0
|
|
#define MODE_BIN 1
|
|
|
|
#define VGI_CLEARSCREEN 0
|
|
#define VGI_RECTANGLE 1
|
|
#define VGI_CIRCLE 2
|
|
#define VGI_FILLED_CIRCLE 3
|
|
#define VGI_POINT 4
|
|
#define VGI_LINETO 5
|
|
#define VGI_DITHER_RECTANGLE 6
|
|
#define VGI_VERT_TRIANGLE 7
|
|
#define VGI_HORIZ_TRIANGLE 8
|
|
#define VGI_VSTRIPE_RECTANGLE 9
|
|
#define VGI_LINE 10
|
|
#define VGI_LINE_FAR 11
|
|
#define VGI_END 15
|
|
|
|
/* non-encoded pseudo-values */
|
|
#define VGI_VERT_TRIANGLE_SKIP 128+7
|
|
|
|
|
|
static int output_bytes(int mode, unsigned char *bytes, int count) {
|
|
|
|
int i;
|
|
|
|
if (mode==MODE_ASM) {
|
|
printf(".byte ");
|
|
for(i=0;i<count;i++) {
|
|
printf("$%02X",bytes[i]);
|
|
if (i<count-1) {
|
|
printf(",");
|
|
}
|
|
else {
|
|
printf("\n");
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
fwrite(bytes,1,count,stdout);
|
|
}
|
|
|
|
return count;
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
char buffer[1024];
|
|
unsigned char output[1024];
|
|
char *ptr;
|
|
int type,color1,color2,x1,x2,y1,y2,r,xl,xr,yt,yb;
|
|
int line=1;
|
|
int size=0;
|
|
int skip=0;
|
|
int mode=MODE_ASM;
|
|
int lastx=0,lasty=0,lastcolor=0;
|
|
int tempx,tempcolor;
|
|
|
|
if (argc>1) {
|
|
if ((argv[1][0]=='-') && (argv[1][1]=='b')) {
|
|
mode=MODE_BIN;
|
|
}
|
|
}
|
|
|
|
while(1) {
|
|
|
|
type=0;
|
|
|
|
ptr=fgets(buffer,1024,stdin);
|
|
if (ptr==NULL) break;
|
|
|
|
if (buffer[0]==';') continue;
|
|
|
|
if (isalpha(buffer[0])) {
|
|
if (!strncmp(buffer,"CLS",3)) {
|
|
type=VGI_CLEARSCREEN;
|
|
}
|
|
if (!strncmp(buffer,"RECT",4)) {
|
|
type=VGI_RECTANGLE;
|
|
}
|
|
if (!strncmp(buffer,"CIRC",4)) {
|
|
type=VGI_CIRCLE;
|
|
}
|
|
if (!strncmp(buffer,"FCIRC",5)) {
|
|
type=VGI_FILLED_CIRCLE;
|
|
}
|
|
if (!strncmp(buffer,"POINT",5)) {
|
|
type=VGI_POINT;
|
|
}
|
|
if (!strncmp(buffer,"LINETO",6)) {
|
|
type=VGI_LINETO;
|
|
}
|
|
else if (!strncmp(buffer,"LINEF",5)) {
|
|
type=VGI_LINE_FAR;
|
|
}
|
|
else if (!strncmp(buffer,"LINE",4)) {
|
|
type=VGI_LINE;
|
|
}
|
|
if (!strncmp(buffer,"DRECT",5)) {
|
|
type=VGI_DITHER_RECTANGLE;
|
|
}
|
|
if (!strncmp(buffer,"VTRISK",6)) {
|
|
type=VGI_VERT_TRIANGLE_SKIP;
|
|
} else if (!strncmp(buffer,"VTRI",4)) {
|
|
type=VGI_VERT_TRIANGLE;
|
|
}
|
|
if (!strncmp(buffer,"HTRI",4)) {
|
|
type=VGI_HORIZ_TRIANGLE;
|
|
}
|
|
if (!strncmp(buffer,"VSTRP",5)) {
|
|
type=VGI_VSTRIPE_RECTANGLE;
|
|
}
|
|
if (!strncmp(buffer,"END",3)) {
|
|
type=VGI_END;
|
|
}
|
|
}
|
|
else {
|
|
sscanf(buffer,"%i",&type);
|
|
}
|
|
|
|
switch(type) {
|
|
case VGI_CLEARSCREEN: /* clear screen */
|
|
sscanf(buffer,"%*s %i",&color1);
|
|
// printf(".byte $%02X,",(type<<4)|2);
|
|
// printf("$%02X\n",color1);
|
|
output[0]=(type<<4)|2;
|
|
output[1]=color1;
|
|
output_bytes(mode,output,2);
|
|
size+=2;
|
|
break;
|
|
|
|
case VGI_RECTANGLE: /* compact rectangle */
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i",
|
|
&color1,&color2,
|
|
&x1,&y1,&x2,&y2);
|
|
// printf(".byte $%02X,",(type<<4)|6);
|
|
// printf("$%02X,",(color1<<4)|color2);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",x2-x1);
|
|
// printf("$%02X\n",y2-y1);
|
|
output[0]=(type<<4)|6;
|
|
output[1]=(color1<<4)|color2;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=x2-x1;
|
|
output[5]=y2-y1;
|
|
output_bytes(mode,output,6);
|
|
size+=6;
|
|
break;
|
|
|
|
case VGI_CIRCLE: /* circle */
|
|
sscanf(buffer,"%*s %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&r);
|
|
// printf(".byte $%02X,",(type<<4)|5);
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X\n",r);
|
|
output[0]=(type<<4)|5;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=r;
|
|
output_bytes(mode,output,5);
|
|
size+=5;
|
|
break;
|
|
|
|
case VGI_FILLED_CIRCLE: /* filled circle */
|
|
sscanf(buffer,"%*s %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&r);
|
|
// printf(".byte $%02X,",(type<<4)|5);
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X\n",r);
|
|
output[0]=(type<<4)|5;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=r;
|
|
output_bytes(mode,output,5);
|
|
size+=5;
|
|
break;
|
|
|
|
case VGI_POINT: /* point */
|
|
sscanf(buffer,"%*s %i %i %i",
|
|
&color1,
|
|
&x1,&y1);
|
|
// printf(".byte $%02X,",(type<<4)|4);
|
|
|
|
lastx=x1;
|
|
lasty=y1;
|
|
lastcolor=color1;
|
|
|
|
if (x1>255) {
|
|
x1=x1&0xff;
|
|
color1|=128;
|
|
}
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X\n",y1);
|
|
output[0]=(type<<4)|4;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output_bytes(mode,output,4);
|
|
size+=4;
|
|
break;
|
|
|
|
case VGI_LINETO: /* line to */
|
|
sscanf(buffer,"%*s %i %i",
|
|
&x1,&y1);
|
|
// printf(".byte $%02X,",(type<<4)|3);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X\n",y1);
|
|
|
|
tempx=lastx;
|
|
tempcolor=lastcolor;
|
|
|
|
if (lastx>255) {
|
|
tempx=tempx&0xff;
|
|
tempcolor=tempcolor|128;
|
|
}
|
|
|
|
if (x1>255) {
|
|
output[0]=(VGI_LINE_FAR<<4)|6;
|
|
output[1]=tempcolor;
|
|
output[2]=tempx;
|
|
output[3]=lasty;
|
|
output[4]=(x1&0xff);
|
|
output[5]=y1;
|
|
output_bytes(mode,output,6);
|
|
size+=6;
|
|
#if 0
|
|
fprintf(stderr,"ADJUSTING %d %d %d %d %d %d\n",
|
|
output[0],
|
|
output[1],
|
|
output[2],
|
|
output[3],
|
|
output[4],
|
|
output[5]);
|
|
#endif
|
|
}
|
|
else {
|
|
output[0]=(type<<4)|3;
|
|
output[1]=x1;
|
|
output[2]=y1;
|
|
output_bytes(mode,output,3);
|
|
size+=3;
|
|
}
|
|
lastx=x1;
|
|
lasty=y1;
|
|
|
|
break;
|
|
|
|
case VGI_DITHER_RECTANGLE: /* dithered rectangle */
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i",
|
|
&color1,&color2,
|
|
&x1,&y1,&x2,&y2);
|
|
// printf(".byte $%02X,",(type<<4)|7);
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",x2-x1);
|
|
// printf("$%02X,",y2-y1);
|
|
// printf("$%02X\n",color2);
|
|
output[0]=(type<<4)|7;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=x2-x1;
|
|
output[5]=y2-y1;
|
|
output[6]=color2;
|
|
output_bytes(mode,output,7);
|
|
size+=7;
|
|
break;
|
|
|
|
case VGI_VERT_TRIANGLE: /* vertical triangle */
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&xl,&xr,&yb);
|
|
// printf(".byte $%02X,",(type<<4)|7);
|
|
// printf("$%02X,",(1<<4)|color1); /* skip=1 */
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",xl);
|
|
// printf("$%02X,",xr);
|
|
// printf("$%02X\n",yb);
|
|
output[0]=(type<<4)|7;
|
|
output[1]=(1<<4)|color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=xl;
|
|
output[5]=xr;
|
|
output[6]=yb;
|
|
output_bytes(mode,output,7);
|
|
size+=7;
|
|
break;
|
|
|
|
case VGI_VERT_TRIANGLE_SKIP: /* vertical triangle w skip*/
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&xl,&xr,&yb,&skip);
|
|
// printf(".byte $%02X,",(VGI_VERT_TRIANGLE<<4)|7);
|
|
// printf("$%02X,",(skip<<4)|color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",xl);
|
|
// printf("$%02X,",xr);
|
|
// printf("$%02X\n",yb);
|
|
output[0]=(VGI_VERT_TRIANGLE<<4)|7;
|
|
output[1]=(skip<<4)|color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=xl;
|
|
output[5]=xr;
|
|
output[6]=yb;
|
|
output_bytes(mode,output,7);
|
|
size+=7;
|
|
break;
|
|
|
|
case VGI_HORIZ_TRIANGLE: /* horizontal triangle */
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&yt,&yb,&xr);
|
|
// printf(".byte $%02X,",(type<<4)|7);
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",yt);
|
|
// printf("$%02X,",yb);
|
|
// printf("$%02X\n",xr);
|
|
output[0]=(type<<4)|7;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=yt;
|
|
output[5]=yb;
|
|
output[6]=xr;
|
|
output_bytes(mode,output,7);
|
|
size+=7;
|
|
break;
|
|
|
|
case VGI_VSTRIPE_RECTANGLE: /* vstriped rectangle */
|
|
sscanf(buffer,"%*s %i %i %i %i %i %i",
|
|
&color1,&color2,
|
|
&x1,&y1,&x2,&y2);
|
|
// printf(".byte $%02X,",(type<<4)|7);
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",x2-x1);
|
|
// printf("$%02X,",y2-y1);
|
|
// printf("$%02X\n",color2);
|
|
output[0]=(type<<4)|7;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=x2-x1;
|
|
output[5]=y2-y1;
|
|
output[6]=color2;
|
|
output_bytes(mode,output,7);
|
|
size+=7;
|
|
break;
|
|
|
|
case VGI_LINE: /* line */
|
|
case VGI_LINE_FAR: /* line far */
|
|
sscanf(buffer,"%*s %i %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&x2,&y2);
|
|
// printf(".byte $%02X,",(type<<4)|6);
|
|
|
|
lastx=x2;
|
|
lasty=y2;
|
|
lastcolor=color1;
|
|
|
|
if (x1>255) {
|
|
x1=x1&0xff;
|
|
color1|=128;
|
|
}
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",x2);
|
|
// printf("$%02X\n",y2);
|
|
if (x2>255) {
|
|
type=VGI_LINE_FAR;
|
|
x2=x2&0xff;
|
|
}
|
|
|
|
output[0]=(type<<4)|6;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=x2;
|
|
output[5]=y2;
|
|
output_bytes(mode,output,6);
|
|
size+=6;
|
|
break;
|
|
|
|
#if 0
|
|
sscanf(buffer,"%*s %i %i %i %i %i",
|
|
&color1,
|
|
&x1,&y1,&x2,&y2);
|
|
// printf(".byte $%02X,",(type<<4)|6);
|
|
if (x1>255) {
|
|
x1=x1&0xff;
|
|
color1|=128;
|
|
}
|
|
if (x2<256) {
|
|
fprintf(stderr,"Error! X2 too small %d on line %d\n",x2,line);
|
|
}
|
|
x2=x2&0xff;
|
|
// printf("$%02X,",color1);
|
|
// printf("$%02X,",x1);
|
|
// printf("$%02X,",y1);
|
|
// printf("$%02X,",x2);
|
|
// printf("$%02X\n",y2);
|
|
output[0]=(type<<4)|6;
|
|
output[1]=color1;
|
|
output[2]=x1;
|
|
output[3]=y1;
|
|
output[4]=x2;
|
|
output[5]=y2;
|
|
output_bytes(mode,output,6);
|
|
size+=6;
|
|
break;
|
|
#endif
|
|
|
|
case VGI_END: /* end */
|
|
// printf(".byte $FF\n");
|
|
output[0]=0xff;
|
|
output_bytes(mode,output,1);
|
|
size+=1;
|
|
break;
|
|
|
|
default:
|
|
fprintf(stderr,"Unknown type %i line %d\n",
|
|
type,line);
|
|
break;
|
|
}
|
|
|
|
line++;
|
|
|
|
}
|
|
|
|
printf("\n");
|
|
|
|
fprintf(stderr,"Size is %d bytes\n",size);
|
|
return 0;
|
|
}
|