PCX2REC.CPP

// „¥áᨭ â®à ¤«ï ⪠檮£® áâ ­ª 
#include <stdlib.h>
#include <conio.h>
#include <stdio.h>
#include <io.h>
#include <string.h>
#include <fcntl.h>
#include <dos.h>
#include <alloc.h>

#include "famegraf.h"
#include "mouse.h"
#include "dialog.h"

block hidscr;

int yesno(char *);
void info(char *t);
void message(char *t);
unsigned long PckBlock(block src, unsigned long lenblk);

void f_help(void);
void f_quit(void); //¢ë室 ¢ ¤®á
void f_set(void);
void f_setup(void);
void send_rom(void);
void print_info(void);
void print_utok(void);
void print_osnova(void);
void print_fact(void);
void print_bigfact(void);
void print_smallfact(void);
void choose_utok(void);
void choose_osnova(void);
void choose_fact(void);
void do_fact(void);
void f_disk(void);
void print_hat(void);
unsigned char set_rgb(unsigned char n);
void read_shabl(void);
void save_shabl(void);
void save_col(void);
void save_npcx(void);
void f_clearfact(void);
void f_new(void);
void pcx_bin(void);
void bin_rom(void);
void show_bin(void);
void show_pcx(void);
void run_ani(void);
//íâ® ª ª cut insert ¢ Windows
void savepocket(void);
void restorepocket(void);

//Mouse m;
//Panel p;

#define xsp 240
#define ysp 30

#define maxROM 1806336L

struct RGB {
	char R;
	char G;
	char B;
};

//®¯¨á ­¨¥ ‡ £®«®¢®ª PCX:
struct {
     char manuf;	// ‚ᥣ¤  =10 ¤«ï Paintbrush
     char hard;		// ˆ­ä®à¬ æ¨ï ® ¢¥àᨨ
     char encod;	// ƒà㯯®¢®¥ ª®¤¨à®¢ ­¨¥(=1)
     char bitpx;	// ¨â ­  â®çªã
     int x1;		//  §¬¥àë ª à⨭ª¨(¢ª«îç¨â.)
     int y1;
     int x2;
     int y2;
     int hres;		// ƒ®à¨§.à §à¥è¥­¨¥ ¤¨á¯«¥ï
     int vres;		// ‚¥à⨪.à §à¥è¥­¨¥ ¤¨á¯«¥ï
	 char clrma[48];	//  «¨âà 
     char vmode;	// (¨£­®à¨àã¥âáï)
     char nplanes;	// Š®«-¢® ¯«®áª®á⥩ (¢¥à.2.5=0)
     int bplin;		//  ©â ­  áâபã
     int palinfo;	// ˆ­ä®à¬.® ¯ «¨âॠ(1=æ¢.,2=á¥à)
     int shres;		//  §à¥è¥­¨¥ ᪠­­¥à 
     int svres;
     char xtra[54];	// „®¯.¯ãá⮥ ¬¥áâ® (䨫ìâà)
} Pcx={
	10,
	5,
	1,
	8,
	0,
	0,
	1343,
	499,
	320,
	200,
	"",
	0,
	1,
	1344,
	1,
	0,
	0,
	""
};
#define Headersize 128L

//䨪á¨à®¢ ­. ¤«¨­  ¨­ä. á«®¢  ¢ áâப¥!!!!
#define fixlen 169

struct {
	unsigned int CRC;	//CRC-16bit ª®­â஫쭠ï á㬬 
	char pack;		//§ à娢¨à. ¨«¨ ­¥â
	char typ;		//⨯ à¨áã­ª 
	char nutok,nosnova;	//ª®«-¢® ­¨â¥© ®á­. ¢ 䠪⠨ ª®«-¢® ã⪮¢
	unsigned int lx,ly;	//à §¬¥à ª à⨭ª¨ ¢ â®çª å
	unsigned int bplin;	//ª®«-¢® ¡ ©â ­  áâபã
	unsigned int leftx,rightx; //¯ãá⮩ ®âáâ㯠᫥¢  ¨ á¯à ¢ 
} ROMhead={
	00,
	0,0,6,8,
	1344,500,
	168,
	00,00
};

const unsigned char mask[8]={128,64,32,16,8,4,2,1};
	//¤«ï AND
const unsigned char mask0[8]={127,191,223,239,247,251,253,254};
	//¤«ï OR

const unsigned char sizes[10]={7,8,9,10,11,12,13,14,15,16};

struct shablon {
	//⮫騭  ­¨â¨ ã⪠
	unsigned char siz_utok[6];
	//⮫騭  ­¨â¨ ®á­®¢ë
	unsigned char siz_osnova[8];
//ä ªâãà
//梥â ã⪠
	RGB col_utok[6];
//梥⠭¨â¨ ®á­®¢ë
	RGB col_osnova[8];
//"梥â" ä ªâãàë (ª ¦¤®© ¨§ 64)
	RGB col_fact[64];
	unsigned char fact[64][8][6];
};

shablon s;	//⥪ãé ï ®¡« ¤«ï à ¡®âë

//¤«ï á®åà. ¯à¨ । ªâ¨à® ­¨¨
unsigned char pocket[8][6];

unsigned char tek_utok;
unsigned char tek_osnova;
unsigned char tek_fact;

block menu;
block tfnt;
block tmp;

char stroka[64];
char stroka0[64];
char stroka1[64];

char name0[16]="noname";
char name1[16]="noname1";

void main(int argc, char *argv[]) {
	int x,y,i,j,t,u,old_butt;
	int fdz,fdz1;

	puts("PCX2REC by BMV \n	example: pcx2rec rec.pcx");

//	if( strlen(argv[1])==0 ) {
//		fatalerror("­¥ § ¤ ­ ä ©«");
//	}
	strcpy(stroka,argv[1]);

	hidscr=(block)famemalloc((unsigned long)320*200);
	tmp=(block)famemalloc((unsigned long)320*200);

	SetLib("graph");

	pcx_bin();

	if ( (fdz=open ("reclama.pic",O_BINARY | O_RDWR)) < 0) {
		fatalerror("” ©« .pic ­¥ ­ ©¤¥­!");
	}
	if (read (fdz, hidscr,(unsigned long)320*200)==-1 ) {
		fatalerror("¥ ¬®£ã áç¨â âì à¨áã­®ª");
		return;
	}
	close(fdz);

	//§ ¯¨áì
	PutLib("reclama.pic",hidscr,(unsigned long)320*200);
	remove("reclama.pic");
	PackLib();
	SetLib("");
	puts("¢á¥ ¯à®è«® ŽŠ!");
}

void fatalerror(char *t) {
	//¢ë室 ¯® ä â «ì­®© ®è¨¡ª¥
	SetLib("");
	puts(t);
	exit(1);
}

void pcx_bin(void) {
	int fdz,fdz1;
	unsigned char data,repeatcount,lencod;
	unsigned int Xl,Yl;

	if ( (fdz=open (stroka,O_BINARY | O_RDWR)) < 0) {
		fatalerror("” ©« .PCX ­¥ ­ ©¤¥­!");
	}
	if (read (fdz, tmp,Headersize)==-1 ) {
		fatalerror("¥ ¬®£ã áç¨â âì § £®«®¢®ª");
		return;
	}
	lseek (fdz,128,SEEK_SET);
	_fmemcpy((block)&Pcx,tmp,Headersize);
	//---------------- à §¬¥àë ª à⨭ª¨ ---------------
	ROMhead.lx=Xl=Pcx.x2-Pcx.x1+1; ROMhead.ly=Yl=Pcx.y2-Pcx.y1+1;
	ROMhead.bplin=ROMhead.lx/8;
	if(ROMhead.lx%8) {	//¥á«¨ § ­¨¬ ¥â ¥é¥ ­¥¯®«­. ¡ ©â
		++ROMhead.bplin;
	}
	ROMhead.leftx=(fixlen-ROMhead.bplin)/2;
	ROMhead.rightx=(fixlen-ROMhead.bplin-ROMhead.leftx);
	//-------------------------------------------------

	//if( ((long)Xl*(long)Yl)>320*200 ) {
	//	fatalerror(" §¬¥àë (®¡ê¥¬) à¨áã­ª  ¡®«¥¥ 320*200");
	//	return;
	//}

	_creat("reclama.pic",FA_ARCH);
	if ( (fdz1=open ("reclama.pic",O_BINARY | O_RDWR)) < 0) {
		fatalerror("¥ ¬®£ã ®âªàëâì ¤«ï § ¯¨á¨ ä ©«");
		return;
	}
	puts("®¤®¦¤¨â¥! ˆ¤¥â à á¯ ª®¢ª  à¨áã­ª ...");
	while (1) {
		if (read (fdz, &data, 1) == -1) {
			fatalerror("Žè¨¡ª  ç⥭¨ï");
			close(fdz);
			close(fdz1);
			return;
		}
		//if ( (Yl&7)==0 ) {
			//MoveXY(290,190);char_fgd=16; char_bkgd=31;vprint("%04u",Yl);
			//SetColor(12); Bar(220,191,(int)max(99-(99*(long)Yl/ROMhead.ly),1),8);
		//}
		if ( (data & 0xC0)==0xC0 ) { /*ãáâ ­®¢«¥­ë «¨ ¯¥à¢ë¥ 2 ¡¨â */
			repeatcount=(data & 0x3F);
			if ( read (fdz, &data, 1) == -1 ) {
				fatalerror("Žè¨¡ª  ç⥭¨ï");
				close(fdz);
				close(fdz1);
				return;
			}
		}
		else {
			repeatcount=1;
		}
		lencod=repeatcount;
		do {	//¢ë¢®¤ à áª®¤¨à®¢. ¤ ­­ëå
			tmp[--repeatcount]=data;
			/*¯à®¢¥àª  ª®­æ  ä ©« */
			if(!(--Xl)) {
				Xl=Pcx.x2-Pcx.x1+1;
				if(!(--Yl)) {
					if ( write (fdz1, tmp, (int)lencod) == -1 ) {
						fatalerror("Žè¨¡ª  § ¯¨á¨");
					}
					close(fdz);
					close(fdz1);
					puts("” ©« .BIN ᮧ¤ ­ ãᯥ譮");
					return;
				}
			}
		} while (repeatcount);
		if (write (fdz1, tmp, lencod) == -1 ) {
			fatalerror("Žè¨¡ª  § ¯¨á¨");
			close(fdz);
			close(fdz1);
			return;
		}
	}
}

unsigned long PckBlock(block src, unsigned long lenblk) {
	static unsigned char t,l,cl;

	static unsigned long dpos,spos;

	cl=dpos=spos=0;
	//pakdest=(block)famemalloc((unsigned long)(lenblk+3));

	t=src[spos];
	for ( spos=0; spos<lenblk; spos++ ) {
		l=t; //¯à¥¤ë¤ã騩 ᨬ¢®«
		t=src[spos]; //¢®§¬¥¬ ­®¢ë© ᨬ¢
		if (l==t) { //­®¢ë© ᨬ¢®« à ¢¥­ ¯à¥¤ë¤ã饬ã
			cl++;
			if (cl>63) { //ª®«-¢® ®¤¨­ ª®¢ëå ᨬ¢ ¯à¥¢ëᨫ® 64
				//§ ª®¤¨à § £®«®¢®ª 11åååååå & ᨬ¢®«
				pakdest[dpos++]= (0xff); //63
				pakdest[dpos++]= l;
				cl=1;
			}
		} else { //­®¢ë© ᨬ¢®« ­¥ à ¢¥­ ¯à¥¤ë¤ã饬ã
			if (cl>1) { //§ ¯¨áì 楯®çª¨
				pakdest[dpos++]= (0xc0 | cl);
				pakdest[dpos++]= l;
			} else { //ᨬ¢®« ¡¥§ 2å ¯¥à¢ ¡¨â
				if (l>127) { //§ ¯¨áì 楯®çª¨
					pakdest[dpos++]= 0xc1; //1
					pakdest[dpos++]= l;
				} else {
					pakdest[dpos++]= l;
				}
			}
			cl=1;
		}
		//if (dpos>=lenblk) {
			//®è¨¡ª -¯¥à¥¯®«­¥­¨¥ ¯à¨  à娢 æ¨¨
		//	return (dpos);
		//}
	} //ª®­¥æ ®á­. 横« 
	if (cl >1) {
		pakdest[dpos++]= (0xc0 | cl);
		pakdest[dpos++]= l;
	} else {
		if (t>127) { //§ ¯¨áì 楯®çª¨
			pakdest[dpos++]= 0xc1; //63
			pakdest[dpos++]= t;
		} else {
			pakdest[dpos++]= t;
		}
	}
	return (dpos);
}