Upload
This commit is contained in:
commit
43352ff262
1291 changed files with 220976 additions and 0 deletions
515
GRAB/VPL.C
Normal file
515
GRAB/VPL.C
Normal file
|
|
@ -0,0 +1,515 @@
|
|||
/****************************************************/
|
||||
/***** Deluxepaint LBM loader V1.0 **************/
|
||||
/****************************************************/
|
||||
|
||||
FILE *f1;
|
||||
int cbits[8]={1,2,4,8,16,32,64,128};
|
||||
unsigned char linebuf[320];
|
||||
int lbmmode; /* 1=DPII, 2=DPIIe */
|
||||
char *errtxt=NULL;
|
||||
char lasttype[5];
|
||||
char type[5]={"----"};
|
||||
long len;
|
||||
int xsz,ysz,planes,stencil,colors,mode;
|
||||
char lbmtype[16];
|
||||
int checktype=0;
|
||||
|
||||
#include "lfcp.c"
|
||||
|
||||
int loadlbm(char *fname)
|
||||
{
|
||||
int x,y,a,b,c;
|
||||
long l;
|
||||
char far *filebuf;
|
||||
unsigned u;
|
||||
int firstone=1;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading and uncompressing picture (LBM): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
do
|
||||
{
|
||||
memcpy(lasttype,type,5);
|
||||
/* get header */
|
||||
do
|
||||
{
|
||||
type[0]=getc(f1);
|
||||
}
|
||||
while(type[0]==0 && !feof(f1));
|
||||
type[1]=getc(f1); type[2]=getc(f1); type[4]=0;
|
||||
type[3]=getc(f1); len=getc(f1)*256L*65536L;
|
||||
if(firstone && memcmp(type,"FORM",4)) return(2);
|
||||
firstone=0;
|
||||
len+=getc(f1)*65536L; len+=getc(f1)*256L; len+=getc(f1);
|
||||
/* process it */
|
||||
a=loadlbm2();
|
||||
if(errtxt!=NULL)
|
||||
{
|
||||
printf("%s\n",errtxt);
|
||||
hfree(filebuf);
|
||||
return(1);
|
||||
}
|
||||
if(a==-1)
|
||||
{
|
||||
printf("Not a Deluxepaint file!");
|
||||
return(2);
|
||||
}
|
||||
if(a==2)
|
||||
{
|
||||
printf("OLD:<%s> NEW<%s>\n",lasttype,type);
|
||||
hfree(filebuf);
|
||||
return(1);
|
||||
}
|
||||
else if(a==1) break;
|
||||
}
|
||||
while(!feof(f1) && !eschit());
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
if(kbhit()) return(1);
|
||||
return(0);
|
||||
}
|
||||
|
||||
int getaw(FILE *f1)
|
||||
{
|
||||
unsigned int a;
|
||||
a=getc(f1)*256;
|
||||
a+=getc(f1);
|
||||
return(a);
|
||||
}
|
||||
|
||||
int loadlbm2(void)
|
||||
{ /* processes one block */
|
||||
long lastpos=ftell(f1);
|
||||
int a,b,c,d,e,f;
|
||||
if(!strcmp(type,"CMAP"))
|
||||
{
|
||||
/* color map */
|
||||
for(b=0;b<256*3;b++)
|
||||
{
|
||||
a=getc(f1)/4;
|
||||
pal[b]=a;
|
||||
}
|
||||
}
|
||||
else if(!strcmp(type,"FORM"))
|
||||
{ /* skip size of file, NO pointer movement */
|
||||
for(a=0;a<8;a++) lbmtype[a]=getc(f1);
|
||||
lbmtype[a]=0;
|
||||
/* LMDSBMHD - pakkaamaton formaatti */
|
||||
if(!memcmp(lbmtype,"ILBMBMHD",8))
|
||||
{
|
||||
lbmmode=1;
|
||||
}
|
||||
else if(!memcmp(lbmtype,"PBM BMHD",8))
|
||||
{
|
||||
lbmmode=2;
|
||||
}
|
||||
else
|
||||
{
|
||||
errtxt="Unknown fileformat!";
|
||||
return(-1);
|
||||
}
|
||||
getaw(f1); /* headerin lopun pituus */
|
||||
getaw(f1); /* - */
|
||||
xsz=getaw(f1);
|
||||
ysz=getaw(f1);
|
||||
getaw(f1); /* ? */
|
||||
getaw(f1); /* ? */
|
||||
|
||||
planes=getc(f1);
|
||||
stencil=getc(f1);
|
||||
colors=getaw(f1);
|
||||
getaw(f1); /* ? */
|
||||
getaw(f1); /* ? */
|
||||
getaw(f1); /* screen-size-x */
|
||||
getaw(f1); /* screen-size-y */
|
||||
return(0);
|
||||
}
|
||||
else if(!strcmp(type,"CRNG"))
|
||||
{
|
||||
}
|
||||
else if(!strcmp(type,"DPPS"))
|
||||
{
|
||||
}
|
||||
else if(!strcmp(type,"DPPV"))
|
||||
{
|
||||
}
|
||||
else if(!strcmp(type,"TINY"))
|
||||
{ /* pikkukuva */
|
||||
}
|
||||
else if(!strcmp(type,"BODY") && lbmmode==2)
|
||||
{
|
||||
int lp,cbit,y=0;
|
||||
filetype=1; /* LBM */
|
||||
while(!eschit() && y<ysz)
|
||||
{
|
||||
printf("%2i%%\b\b\b",100*y/ysz);
|
||||
memset(linebuf,0,xsz);
|
||||
{
|
||||
lp=0;
|
||||
while(lp<xsz)
|
||||
{
|
||||
a=getc(f1);
|
||||
if(a>127)
|
||||
{
|
||||
c=getc(f1);
|
||||
a=256-a;
|
||||
if(a==0) c=0;
|
||||
for(b=0;b<=a;b++) linebuf[lp++]=c;
|
||||
}
|
||||
else
|
||||
{
|
||||
for(b=0;b<=a;b++)
|
||||
{
|
||||
c=getc(f1);
|
||||
linebuf[lp++]=c;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
memcpy(pic+y*320,linebuf,xsz);
|
||||
y++;
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
else if(!strcmp(type,"BODY") && lbmmode==1)
|
||||
{
|
||||
int lp,cbit,y=0;
|
||||
while(!eschit() && y<ysz)
|
||||
{
|
||||
printf("%2i%%\b\b\b",100*y/ysz);
|
||||
memset(linebuf,0,xsz);
|
||||
for(d=0;d<planes;d++)
|
||||
{
|
||||
cbit=cbits[d];
|
||||
lp=0;
|
||||
while(lp<xsz)
|
||||
{
|
||||
a=getc(f1);
|
||||
if(a>127)
|
||||
{
|
||||
c=getc(f1);
|
||||
a=256-a;
|
||||
if(a==0) c=0;
|
||||
for(b=0;b<=a;b++)
|
||||
{
|
||||
linebuf[lp++]|=c&128?cbit:0;
|
||||
linebuf[lp++]|=c&64?cbit:0;
|
||||
linebuf[lp++]|=c&32?cbit:0;
|
||||
linebuf[lp++]|=c&16?cbit:0;
|
||||
linebuf[lp++]|=c&8?cbit:0;
|
||||
linebuf[lp++]|=c&4?cbit:0;
|
||||
linebuf[lp++]|=c&2?cbit:0;
|
||||
linebuf[lp++]|=c&1?cbit:0;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
for(b=0;b<=a;b++)
|
||||
{
|
||||
c=getc(f1);
|
||||
linebuf[lp++]|=c&128?cbit:0;
|
||||
linebuf[lp++]|=c&64?cbit:0;
|
||||
linebuf[lp++]|=c&32?cbit:0;
|
||||
linebuf[lp++]|=c&16?cbit:0;
|
||||
linebuf[lp++]|=c&8?cbit:0;
|
||||
linebuf[lp++]|=c&4?cbit:0;
|
||||
linebuf[lp++]|=c&2?cbit:0;
|
||||
linebuf[lp++]|=c&1?cbit:0;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
if(stencil) for(lp=0;lp<xsz;)
|
||||
{
|
||||
a=getc(f1);
|
||||
if(a>127)
|
||||
{
|
||||
c=getc(f1);
|
||||
a=256-a;
|
||||
lp+=a*8+8;
|
||||
}
|
||||
else
|
||||
{
|
||||
for(b=0;b<=a;b++)
|
||||
{
|
||||
c=getc(f1);
|
||||
}
|
||||
lp+=a*8+8;
|
||||
}
|
||||
}
|
||||
memcpy(pic+y*320,linebuf,xsz);
|
||||
y++;
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
else if(checktype)
|
||||
{
|
||||
return(2);
|
||||
}
|
||||
fseek(f1,lastpos+len,SEEK_SET);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/***************************************************************/
|
||||
/***** Eye of the Beholder 256 color loader (CMP) V1.0 *******/
|
||||
/***************************************************************/
|
||||
|
||||
int loadcmp(char *fname)
|
||||
{
|
||||
int x,y,a,b,c;
|
||||
long l;
|
||||
char far *filebuf;
|
||||
unsigned u;
|
||||
int firstone=1;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading and uncompressing picture (CMP): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
a=getw(f1); /* unpacked len */
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
cmpunpack(a);
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
if(kbhit()) return(1);
|
||||
return(0);
|
||||
}
|
||||
|
||||
int cmpunpack(unsigned int unplen)
|
||||
{
|
||||
int a,b,c,x=0;
|
||||
unsigned int u,col,cnt;
|
||||
int bufpnt=0;
|
||||
while(bufpnt<unplen && !kbhit())
|
||||
{
|
||||
x++; if(x>64)
|
||||
{
|
||||
printf(".");
|
||||
x=0;
|
||||
}
|
||||
a=getc(f1);
|
||||
if(a==0xfe)
|
||||
{
|
||||
cnt=getw(f1);
|
||||
col=getc(f1);
|
||||
memset(pic+bufpnt,col,cnt);
|
||||
bufpnt+=cnt;
|
||||
}
|
||||
else if(a==0xff)
|
||||
{
|
||||
cnt=getw(f1);
|
||||
u=getw(f1);
|
||||
for(b=0;b<cnt;b++)
|
||||
{
|
||||
pic[bufpnt++]=pic[u++];
|
||||
}
|
||||
}
|
||||
else if(a>=0xc0)
|
||||
{
|
||||
cnt=a-0xc0+3;
|
||||
u=getw(f1);
|
||||
for(b=0;b<cnt;b++)
|
||||
{
|
||||
pic[bufpnt++]=pic[u++];
|
||||
}
|
||||
}
|
||||
else if(a>0x80)
|
||||
{
|
||||
cnt=a-0x80;
|
||||
fread(pic+bufpnt,cnt,1,f1);
|
||||
bufpnt+=cnt;
|
||||
}
|
||||
else
|
||||
{
|
||||
cnt=(a/16)+3;
|
||||
u=bufpnt-((a&15)*256+getc(f1));
|
||||
for(b=0;b<cnt;b++)
|
||||
{
|
||||
pic[bufpnt++]=pic[u++];
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/***************************************************************/
|
||||
/***** Unpacked file loader (header included) *******/
|
||||
/***************************************************************/
|
||||
|
||||
int loaduh(char *fname)
|
||||
{
|
||||
int x,y,hig,wid;
|
||||
char far *filebuf;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading picture (UH): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
if(getw(f1)!=('U'+'H'*256)) return(2);
|
||||
if(getw(f1)!=1) printf("Multiple pictures in file, ONLY FIRST LOADED!\n");
|
||||
wid=getw(f1);
|
||||
hig=getw(f1);
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
for(y=0;y<hig;y++) for(x=0;x<wid;x++)
|
||||
{
|
||||
pic[x+y*320]=getc(f1);
|
||||
}
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/***************************************************************/
|
||||
/***** Unpacked file loader (no header) *******/
|
||||
/***************************************************************/
|
||||
|
||||
int loadu(char *fname)
|
||||
{
|
||||
int x,y,hig,wid;
|
||||
char far *filebuf;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading picture (U): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
wid=320;
|
||||
hig=200;
|
||||
for(y=0;y<hig;y++) for(x=0;x<wid;x++)
|
||||
{
|
||||
pic[x+y*320]=getc(f1);
|
||||
}
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/***************************************************************/
|
||||
/***** Unpacked 4plane loader (no header) *******/
|
||||
/***************************************************************/
|
||||
|
||||
int loadu4(char *fname)
|
||||
{
|
||||
int x,y,hig,wid,z;
|
||||
char far *filebuf;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading picture (U4): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
wid=320;
|
||||
hig=200;
|
||||
for(z=0;z<4;z++) for(y=0;y<hig;y++) for(x=z;x<wid;x+=4)
|
||||
{
|
||||
pic[x+y*320]=getc(f1);
|
||||
}
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/***************************************************************/
|
||||
/***** GFX file loader for pic 1 (header included) *******/
|
||||
/***************************************************************/
|
||||
|
||||
int loadgfx(char *fname)
|
||||
{
|
||||
int a,b,c,x,y,z,hig,wid;
|
||||
char far *filebuf;
|
||||
filebuf=halloc(32768L,1L);
|
||||
printf("\nLoading picture (GFX): ");
|
||||
if(filebuf==NULL)
|
||||
{
|
||||
printf("Out of memory.\n");
|
||||
return(1);
|
||||
}
|
||||
memset(pic,255,64000);
|
||||
{
|
||||
f1=fopen(fname,"rb");
|
||||
if(f1==NULL) return(3);
|
||||
setvbuf(f1,filebuf,_IOFBF,32768);
|
||||
if(getw(f1)!=('G'+'F'*256)) return(2);
|
||||
if(getw(f1)!=('X'+'1'*256)) return(2);
|
||||
if(getw(f1)!=('0'+0x1a*256)) return(2);
|
||||
fseek(f1,8L+2*gfxsubfile,SEEK_SET);
|
||||
a=getw(f1);
|
||||
fseek(f1,(long)a<<4L,SEEK_SET);
|
||||
if(getc(f1)!=1)
|
||||
{
|
||||
fseek(f1,8L+2*gfxsubfile+2,SEEK_SET);
|
||||
a=getw(f1);
|
||||
fseek(f1,(long)a<<4L,SEEK_SET);
|
||||
if(getc(f1)!=1) return(1);
|
||||
}
|
||||
getc(f1);
|
||||
getw(f1);
|
||||
getw(f1);
|
||||
hig=getw(f1);
|
||||
getw(f1);
|
||||
for(z=0;z<4;z++) for(y=0,x=z;y<hig;y++,x=z) while(!feof(f1))
|
||||
{
|
||||
a=(char)getc(f1);
|
||||
if(a==0) break;
|
||||
else if(a>0) x+=a*4;
|
||||
else if(a&1)
|
||||
{
|
||||
a=(a&127)>>1;
|
||||
for(c=0;c<a;c++,x+=4) pic[x+y*320]=getc(f1);
|
||||
}
|
||||
else
|
||||
{
|
||||
a=(a&127)>>1;
|
||||
b=getc(f1);
|
||||
for(c=0;c<a;c++,x+=4) pic[x+y*320]=b;
|
||||
}
|
||||
}
|
||||
fclose(f1);
|
||||
}
|
||||
hfree(filebuf);
|
||||
return(0);
|
||||
}
|
||||
|
||||
/************************************/
|
||||
/********* END OF LOADERS ***********/
|
||||
/************************************/
|
||||
|
||||
Loading…
Reference in a new issue