216 lines
3.3 KiB
C
216 lines
3.3 KiB
C
/* view flic */
|
|
#include <stdio.h>
|
|
#include <conio.h>
|
|
#include <string.h>
|
|
#include <memory.h>
|
|
|
|
int doframe(FILE *f1);
|
|
int dochunk(FILE *f1);
|
|
int doline1(unsigned u,FILE *f1);
|
|
int doline2(unsigned u,FILE *f1);
|
|
int saveframe(int frame);
|
|
|
|
char far *vram=(char far *)0xa0000000L;
|
|
|
|
char buf[64000];
|
|
char pal[768];
|
|
char savebuf[64000];
|
|
|
|
int lw;
|
|
|
|
struct
|
|
{
|
|
long filesize;
|
|
unsigned magic; /* 0xaf11 */
|
|
int frames;
|
|
int width;
|
|
int heigth;
|
|
int RESERVED1;
|
|
int flags; /*0*/
|
|
int speed;
|
|
long next; /*0*/
|
|
long frit; /*0*/
|
|
char RESERVED2[102];
|
|
} header;
|
|
|
|
struct
|
|
{
|
|
long size;
|
|
unsigned magic; /* 0xf1fa */
|
|
int chunks;
|
|
int RESERVED[4];
|
|
} frameheader;
|
|
|
|
struct
|
|
{
|
|
long size;
|
|
unsigned type;
|
|
} chunkheader;
|
|
|
|
main(int argc,char *argv[])
|
|
{
|
|
FILE *f1;
|
|
int f;
|
|
f1=fopen(argv[1],"rb");
|
|
if(f1==NULL) return(0);
|
|
fread(&header,sizeof(header),1,f1);
|
|
lw=header.width;
|
|
/**/
|
|
_asm mov ax,13h
|
|
_asm int 10h
|
|
saveframe(-1);
|
|
for(f=0;f<header.frames;f++)
|
|
{
|
|
doframe(f1);
|
|
saveframe(f);
|
|
}
|
|
saveframe(-2);
|
|
/**/
|
|
fclose(f1);
|
|
return(0);
|
|
}
|
|
|
|
int doframe(FILE *f1)
|
|
{
|
|
int c;
|
|
long framestart;
|
|
framestart=ftell(f1);
|
|
fread(&frameheader,sizeof(frameheader),1,f1);
|
|
for(c=0;c<frameheader.chunks;c++) dochunk(f1);
|
|
fseek(f1,framestart+frameheader.size,SEEK_SET);
|
|
return(0);
|
|
}
|
|
|
|
int dochunk(FILE *f1)
|
|
{
|
|
unsigned u;
|
|
int a,b,c;
|
|
long chunkstart;
|
|
chunkstart=ftell(f1);
|
|
fread(&chunkheader,sizeof(chunkheader),1,f1);
|
|
switch(chunkheader.type)
|
|
{
|
|
case 11 : /* FLI_COLOR */
|
|
c=getw(f1);
|
|
a=0;
|
|
while(c--)
|
|
{
|
|
a+=getc(f1);
|
|
b=getc(f1); if(!b) b=256;
|
|
outp(0x3c8,a);
|
|
while(b--)
|
|
{
|
|
outp(0x3c9,getc(f1));
|
|
outp(0x3c9,getc(f1));
|
|
outp(0x3c9,getc(f1));
|
|
}
|
|
}
|
|
break;
|
|
case 12 : /* FLI_LC */
|
|
u=getw(f1)*lw;
|
|
c=getw(f1);
|
|
while(c--)
|
|
{
|
|
doline1(u,f1);
|
|
u+=lw;
|
|
}
|
|
break;
|
|
case 13 : /* FLI_BLACK */
|
|
memset(vram,0,64000U);
|
|
break;
|
|
case 15 : /* FLI_BRUN */
|
|
u=0;
|
|
c=header.heigth;
|
|
while(c--)
|
|
{
|
|
doline2(u,f1);
|
|
u+=lw;
|
|
}
|
|
break;
|
|
case 16 : /* FLI_COPY */
|
|
fread(buf,1,64000U,f1);
|
|
memcpy(vram,buf,64000U);
|
|
break;
|
|
}
|
|
fseek(f1,chunkstart+chunkheader.size,SEEK_SET);
|
|
return(0);
|
|
}
|
|
|
|
int doline1(unsigned u,FILE *f1)
|
|
{
|
|
int a,b,c;
|
|
c=getc(f1);
|
|
while(c--)
|
|
{
|
|
u+=getc(f1);
|
|
b=(char)getc(f1);
|
|
if(b>0)
|
|
{
|
|
while(b--) vram[u++]=(char)getc(f1);
|
|
}
|
|
else
|
|
{
|
|
a=getc(f1);
|
|
while(b++) vram[u++]=(char)a;
|
|
}
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
int doline2(unsigned u,FILE *f1)
|
|
{
|
|
int a,b,c;
|
|
c=getc(f1);
|
|
while(c--)
|
|
{
|
|
b=(char)getc(f1);
|
|
if(b<0)
|
|
{
|
|
while(b++) vram[u++]=(char)getc(f1);
|
|
}
|
|
else
|
|
{
|
|
a=getc(f1);
|
|
while(b--) vram[u++]=(char)a;
|
|
}
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
int saveframe(int frame)
|
|
{
|
|
unsigned u,u0,ua;
|
|
int a,b,c;
|
|
static FILE *fo;
|
|
switch(frame)
|
|
{
|
|
case -1 : /* open */
|
|
fo=fopen("anim.fca","wb");
|
|
break;
|
|
case -2 : /* close */
|
|
putc(254,fo);
|
|
fclose(fo);
|
|
break;
|
|
default : /* save */
|
|
if(frame==0)
|
|
{
|
|
outp(0x3c7,0);
|
|
for(a=0;a<768;a++) pal[a]=(char)inp(0x3c9);
|
|
memset(savebuf,0,64000U);
|
|
fwrite(pal,1,768U,fo);
|
|
}
|
|
{
|
|
int x1=160-32-3;
|
|
int y1=100-32;
|
|
int x2=160+32-3;
|
|
int y2=100+32;
|
|
int x,y;
|
|
for(y=y1;y<y2;y++) for(x=x1;x<x2;x++)
|
|
{
|
|
vram[x+y*320]^=128;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
return(0);
|
|
}
|