Upload

GRAB/FLIC/VW2.C

@@ -0,0 +1,216 @@
+/* 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);
+}