Upload
This commit is contained in:
commit
43352ff262
1291 changed files with 220976 additions and 0 deletions
324
GRAB/VIEWLBM.C
Normal file
324
GRAB/VIEWLBM.C
Normal file
|
|
@ -0,0 +1,324 @@
|
|||
#include <bios.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <graph.h>
|
||||
#include <memory.h>
|
||||
#include <malloc.h>
|
||||
|
||||
char far *vram=(char far *)0xa0000000L;
|
||||
|
||||
char inname[60];
|
||||
char outname[60];
|
||||
|
||||
unsigned char pal[768];
|
||||
unsigned char linebuf[2560];
|
||||
int xsz,ysz,planes,stencil,colors,mode;
|
||||
|
||||
main(int argc,char *argv[])
|
||||
{
|
||||
if(argc==1)
|
||||
{
|
||||
printf("usage: VIEWLBM <lbmfile>\n");
|
||||
return(0);
|
||||
}
|
||||
strcpy(inname,argv[1]);
|
||||
if(strchr(inname,'.')==NULL)
|
||||
{
|
||||
strcat(inname,".lbm");
|
||||
}
|
||||
strcpy(outname,argv[2]);
|
||||
if(loadlbm(inname))
|
||||
{
|
||||
printf("Error loading file: %s\n",inname);
|
||||
exit(1);
|
||||
}
|
||||
getch();
|
||||
_asm mov ax,3h
|
||||
_asm int 10h
|
||||
}
|
||||
|
||||
int savelinebuf(int xl)
|
||||
{
|
||||
int a,b,c;
|
||||
static int y=0;
|
||||
if(!xl)
|
||||
{
|
||||
_asm mov ax,13h
|
||||
_asm int 10h
|
||||
outp(0x3c8,0);
|
||||
for(a=0;a<768;a++) outp(0x3c9,pal[a]);
|
||||
}
|
||||
else
|
||||
{
|
||||
memcpy(vram+y*320,linebuf,320);
|
||||
y++;
|
||||
}
|
||||
}
|
||||
|
||||
int eschit(void)
|
||||
{
|
||||
return(0);
|
||||
}
|
||||
|
||||
/****************************************************/
|
||||
/***** Deluxepaint LBM loader V1.0 **************/
|
||||
/****************************************************/
|
||||
|
||||
FILE *f1;
|
||||
int cbits[8]={1,2,4,8,16,32,64,128};
|
||||
int lbmmode; /* 1=DPII, 2=DPIIe */
|
||||
char *errtxt=NULL;
|
||||
char lasttype[5];
|
||||
char type[5]={"----"};
|
||||
long len;
|
||||
int filetype;
|
||||
char lbmtype[10];
|
||||
int checktype=0;
|
||||
|
||||
int loadlbm(char *fname)
|
||||
{
|
||||
int x,y,a,b,c;
|
||||
long l;
|
||||
char far *filebuf;
|
||||
unsigned u;
|
||||
int firstone=1;
|
||||
filebuf=halloc(32768L,1L);
|
||||
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;
|
||||
}
|
||||
savelinebuf(0);
|
||||
}
|
||||
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 */
|
||||
|
||||
//printf("Picture size %ix%ix%i\n",xsz,ysz,colors);
|
||||
//printf("Loading and converting: ");
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
savelinebuf(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;
|
||||
}
|
||||
}
|
||||
savelinebuf(xsz);
|
||||
y++;
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
else if(checktype)
|
||||
{
|
||||
return(2);
|
||||
}
|
||||
fseek(f1,lastpos+len,SEEK_SET);
|
||||
return(0);
|
||||
}
|
||||
|
||||
Loading…
Reference in a new issue