Category : C Source Code
Archive : WNSRC173.ZIP
Filename : MISCOVL.C
Output of file : MISCOVL.C contained in archive : WNSRC173.ZIP
Overlayed odds and ends that don't fit anywhere else.
*/
#include
#include
#include
#include
#include
#include
#include "fractint.h"
#include "fractype.h"
#include "helpdefs.h"
/* routines in this module */
void miscovl_overlay(void);
void make_batch_file(void);
void shell_to_dos(void);
void showfreemem(void);
int select_video_mode(int);
#ifdef WINFRACT
#endif
void write_batch_parms(FILE *,char *,int);
static void put_parm(char *parm,...);
static void put_parm_line(void);
static int getprec(double,double,double);
static void put_float(int,double,int);
static void put_filename(char *keyword,char *fname);
static void format_item(int choice,char *buf);
static int check_modekey(int curkey,int choice);
static int entcompare(void const *p1,void const *p2);
static void update_fractint_cfg(void);
extern int cpu; /* cpu type */
extern int fpu; /* fpu type */
extern int iit; /* iit fpu? */
extern int video_type;
extern int askvideo;
extern char overwrite; /* 1 means ok to overwrite */
extern int fillcolor; /* fill color: -1 = normal*/
extern int inside; /* inside color: 1=blue */
extern int outside; /* outside color, if set */
extern double xxmin,xxmax,yymin,yymax,xx3rd,yy3rd; /* selected screen corners */
extern double param[4]; /* up to four parameters */
extern int finattract; /* finite attractor option */
extern int forcesymmetry;
extern int LogFlag; /* non-zero if logarithmic palettes */
extern int rflag, rseed;
extern int periodicitycheck;
extern int potflag; /* continuous potential flag */
extern int pot16bit; /* save 16 bit values for continuous potential */
extern double potparam[3]; /* three potential parameters*/
extern int fractype; /* if == 0, use Mandelbrot */
extern unsigned char usemag;
extern long delmin;
extern int maxit; /* try this many iterations */
extern int invert; /* non-zero if inversion active */
extern double inversion[];
extern int decomp[];
extern int distest; /* non-zero if distance estimator */
extern int distestwidth;
extern int init3d[20]; /* '3d=nn/nn/nn/...' values */
extern char floatflag; /* floating-point fractals? */
extern int usr_biomorph;
extern char FormFileName[]; /* file to find (type=)formulas in */
extern char FormName[]; /* Name of the Formula (if not null) */
extern char LFileName[];
extern char LName[];
extern char IFSFileName[];
extern char IFSName[];
extern int bailout; /* user input bailout value */
extern char useinitorbit;
extern struct complex initorbit;
extern int display3d; /* 3D display flag: 0 = OFF */
extern int loaded3d;
extern char readname[]; /* name of fractal input file */
extern int showfile; /* has file been displayed yet? */
extern int transparent[];
extern char preview; /* 3D preview mode flag */
extern char showbox; /* flag to show box and vector in preview */
extern int RANDOMIZE; /* Color randomizing factor */
extern int Targa_Out; /* Selects full color with light source fills */
extern int Ambient; /* Darkness of shadows in light source */
extern int haze; /* Amount of haze to factor in in full color */
extern char light_name[]; /* Name of full color .TGA file */
extern int previewfactor;
extern int BRIEF;
extern int RAY;
extern int xtrans;
extern int ytrans;
extern int red_crop_left;
extern int red_crop_right;
extern int blue_crop_left;
extern int blue_crop_right;
extern int red_bright;
extern int blue_bright;
extern int xadjust;
extern int eyeseparation;
extern int glassestype;
extern unsigned char trigndx[];
extern int rotate_lo,rotate_hi;
extern int far *ranges;
extern int rangeslen;
extern char CommandFile[80];
extern char CommandName[ITEMNAMELEN+1];
extern char CommandComment1[57];
extern char CommandComment2[57];
extern char usr_stdcalcmode;
extern int colorstate; /* comments in cmdfiles */
extern int colors;
extern int gotrealdac;
extern int reallyega;
extern char colorfile[];
extern int mapset;
extern char MAP_name[];
extern unsigned char dacbox[256][3];
extern char far *mapdacbox;
#ifdef WINFRACT
extern char suffix[4096];
#else
extern char dstack[4096];
#endif
extern char boxx[8192];
extern char s_cantopen[];
extern char s_cantwrite[];
extern char s_cantcreate[];
extern char s_cantunderstand[];
extern char s_cantfind[];
extern int fullscreen_prompt(char *hdg,int numprompts,char * far *prompts,
struct fullscreenvalues values[],int options,int fkeymask,
char far *extrainfo);
/* fullscreen_choice options */
#define CHOICERETURNKEY 1
#define CHOICEMENU 2
#define CHOICEHELP 4
int fullscreen_choice(
int options, char *hdg, char *hdg2, char *instr, int numchoices,
char **choices, int *attributes, int boxwidth, int boxdepth,
int colwidth, int current, void (*formatitem)(),
char *speedstring, int (*speedprompt)(), int (*checkkey)());
void miscovl_overlay() { } /* for restore_active_ovly */
extern char s_real[];
extern char s_imag[];
extern char s_mult[];
extern char s_sum[];
extern char s_zmag[];
extern char s_bof60[];
extern char s_bof61[];
extern char s_maxiter[];
#ifdef WINFRACT
#endif
extern FILE *parmfile;
#ifdef C6
#pragma optimize("e",off) /* MSC 6.00A messes up next rtn with "e" on */
#endif
void make_batch_file()
{
int i,numparms;
char inpcommandfile[80],inpcommandname[ITEMNAMELEN+1];
char inpcomment1[57],inpcomment2[57];
struct fullscreenvalues paramvalues[8];
char *choices[8];
int gotinfile;
char outname[81],buf[256],buf2[128];
FILE *infile;
char colorspec[14];
int maxcolor;
char *sptr,*sptr2;
int oldhelpmode;
ENTER_OVLY(OVLY_MISCOVL);
stackscreen();
oldhelpmode = helpmode;
helpmode = HELPPARMFILE;
strcpy(colorspec,"n");
maxcolor = colors;
if (gotrealdac && !reallyega) {
--maxcolor;
if (maxit < maxcolor) maxcolor = maxit;
if (inside > 0 && inside > maxcolor) maxcolor = inside;
if (outside > 0 && outside > maxcolor) maxcolor = outside;
if (distest < 0 && 0-distest > maxcolor) maxcolor = 0-distest;
if (decomp[0] > maxcolor) maxcolor = decomp[0] - 1;
if (potflag && potparam[0] >= maxcolor) maxcolor = potparam[0];
if (++maxcolor > 256) maxcolor = 256;
if (colorstate == 0) { /* default colors */
if (mapdacbox) {
colorspec[0] = '@';
sptr = MAP_name;
}
}
else if (colorstate == 2) { /* colors match colorfile */
colorspec[0] = '@';
sptr = colorfile;
}
else /* colors match no .map that we know of */
colorspec[0] = 'y';
if (colorspec[0] == '@') {
if ((sptr2 = strrchr(sptr,'\\'))) sptr = sptr2 + 1;
if ((sptr2 = strrchr(sptr,':'))) sptr = sptr2 + 1;
strncpy(&colorspec[1],sptr,12);
colorspec[13] = 0;
}
}
strcpy(inpcommandfile,CommandFile);
strcpy(inpcommandname,CommandName);
strcpy(inpcomment1,CommandComment1);
strcpy(inpcomment2,CommandComment2);
if (CommandName[0] == 0)
strcpy(inpcommandname,"test");
while (1) {
prompt_user:
choices[0] = "Parameter file";
paramvalues[0].type = 0x100+56;
paramvalues[0].uval.sbuf = inpcommandfile;
choices[1] = "Name";
paramvalues[1].type = 0x100+ITEMNAMELEN;
paramvalues[1].uval.sbuf = inpcommandname;
choices[2] = "Main comment";
paramvalues[2].type = 0x100+56;
paramvalues[2].uval.sbuf = inpcomment1;
choices[3] = "Second comment";
paramvalues[3].type = 0x100+56;;
paramvalues[3].uval.sbuf = inpcomment2;
numparms = 4;
if (gotrealdac && !reallyega) {
choices[4] = "Record colors?";
paramvalues[4].type = 0x100+13;
paramvalues[4].uval.sbuf = colorspec;
choices[5] = " (no | yes for full info | @filename to point to a map file)";
paramvalues[5].type = '*';
choices[6] = "# of colors";
paramvalues[6].type = 'i';
paramvalues[6].uval.ival = maxcolor;
choices[7] = " (if recording full color info)";
paramvalues[7].type = '*';
numparms = 8;
}
if (fullscreen_prompt("Save Current Parameters",
numparms,choices,paramvalues,0,0,NULL) < 0)
break;
strcpy(CommandFile,inpcommandfile);
if (strchr(CommandFile,'.') == NULL)
strcat(CommandFile,".par"); /* default extension .par */
strcpy(CommandName,inpcommandname);
strcpy(CommandComment1,inpcomment1);
strcpy(CommandComment2,inpcomment2);
if (paramvalues[6].uval.ival > 0 && paramvalues[6].uval.ival <= 256)
maxcolor = paramvalues[6].uval.ival;
strcpy(outname,CommandFile);
gotinfile = 0;
if (access(CommandFile,0) == 0) { /* file exists */
gotinfile = 1;
if (access(CommandFile,6)) {
sprintf(buf,s_cantwrite,CommandFile);
stopmsg(0,buf);
continue;
}
i = strlen(outname);
while (--i >= 0 && outname[i] != '\\')
outname[i] = 0;
strcat(outname,"fractint.tmp");
infile = fopen(CommandFile,"rt");
setvbuf(infile,suffix,_IOFBF,4096); /* improves speed */
}
if ((parmfile = fopen(outname,"wt")) == NULL) {
sprintf(buf,s_cantcreate,outname);
stopmsg(0,buf);
if (gotinfile) fclose(infile);
continue;
}
#ifndef WINFRACT
setvbuf(infile,boxx,_IOFBF,8192); /* improves speed */
#endif
if (gotinfile) {
while (file_gets(buf,255,infile) >= 0) {
if (strchr(buf,'{') /* entry heading? */
&& sscanf(buf," %40[^ \t({]",buf2)
&& stricmp(buf2,CommandName) == 0) { /* entry with same name */
sprintf(buf2,"File already has an entry named %s\n\
Continue to replace it, Cancel to back out",CommandName);
if (stopmsg(18,buf2) < 0) { /* cancel */
fclose(infile);
fclose(parmfile);
unlink(outname);
goto prompt_user;
}
while (strchr(buf,'}') == NULL
&& file_gets(buf,255,infile) > 0 ) { } /* skip to end of set */
break;
}
fputs(buf,parmfile);
fputc('\n',parmfile);
}
}
fprintf(parmfile,"%-19s{",CommandName);
if (CommandComment1[0]) fprintf(parmfile," ; %s",CommandComment1);
fputc('\n',parmfile);
if (CommandComment2[0])
fprintf(parmfile," ; %s\n",CommandComment2);
write_batch_parms(parmfile,colorspec,maxcolor); /* write the parameters */
fprintf(parmfile," }\n\n");
if (gotinfile) { /* copy the rest of the file */
while ((i = file_gets(buf,255,infile)) == 0) { } /* skip blanks */
while (i >= 0) {
fputs(buf,parmfile);
fputc('\n',parmfile);
i = file_gets(buf,255,infile);
}
fclose(infile);
}
fclose(parmfile);
if (gotinfile) { /* replace the original file with the new */
unlink(CommandFile); /* success assumed on these lines */
rename(outname,CommandFile); /* since we checked earlier with access */
}
break;
}
helpmode = oldhelpmode;
unstackscreen();
EXIT_OVLY;
}
#ifdef C6
#pragma optimize("e",on) /* back to normal */
#endif
static struct write_batch_data { /* buffer for parms to break lines nicely */
int len;
char buf[513];
} *wbdata;
#ifdef WINFRACT
#endif
void write_batch_parms(FILE *batch,char *colorinf,int maxcolor)
{
int i,j,k;
double Xctr, Yctr, Magnification;
struct write_batch_data wb_data;
char *sptr;
char buf[81];
wbdata = &wb_data;
wb_data.len = 0; /* force first parm to start on new line */
if (display3d <= 0) { /* a fractal was generated */
/****** fractal only parameters in this section *******/
put_parm(" reset");
if (*(sptr = curfractalspecific->name) == '*') ++sptr;
put_parm( " type=%s",sptr);
if (fractype == FORMULA || fractype == FFORMULA)
put_parm( " formulafile=%s formulaname=%s",FormFileName,FormName);
if (fractype == LSYSTEM)
put_parm( " lfile=%s lname=%s",LFileName,LName);
if (fractype == IFS || fractype == IFS3D)
put_parm( " ifsfile=%s ifs=%s",IFSFileName,IFSName);
showtrig(buf); /* this function is in miscres.c */
if (buf[0])
put_parm(buf);
if (usr_stdcalcmode != 'g')
put_parm(" passes=%c",usr_stdcalcmode);
if (usemag && cvtcentermag(&Xctr, &Yctr, &Magnification)) {
put_parm(" center-mag=");
put_parm((delmin > 1000) ? "%g/%g/%g"
: "%+20.17lf/%+20.17lf/%+20.17lf",
Xctr,Yctr,Magnification);
}
else {
int xdigits,ydigits;
put_parm( " corners=");
xdigits = getprec(xxmin,xxmax,xx3rd);
ydigits = getprec(yymin,yymax,yy3rd);
put_float(0,xxmin,xdigits);
put_float(1,xxmax,xdigits);
put_float(1,yymin,ydigits);
put_float(1,yymax,ydigits);
if (xx3rd != xxmin || yy3rd != yymin) {
put_float(1,xx3rd,xdigits);
put_float(1,yy3rd,ydigits);
}
}
for (i = 3; i >= 0; --i)
if (param[i] != 0.0) break;
if (i >= 0) {
put_parm(" params=%.15g",param[0]);
for (j = 1; j <= i; ++j)
put_parm("/%.15g",param[j]);
}
if(useinitorbit == 2)
put_parm( " initorbit=pixel");
else if(useinitorbit == 1)
put_parm( " initorbit=%.15g/%.15g",initorbit.x,initorbit.y);
if (floatflag)
put_parm( " float=y");
if (maxit != 150)
put_parm(" maxiter=%d",maxit);
if(bailout && (potflag == 0 || potparam[2] == 0.0))
put_parm( " bailout=%d",bailout);
if(fillcolor != -1) {
put_parm(" fillcolor=");
put_parm( "%d",fillcolor);
}
if (inside != 1) {
put_parm(" inside=");
if (inside == -1)
put_parm( s_maxiter);
else if (inside == -59)
put_parm(s_zmag);
else if (inside == -60)
put_parm(s_bof60);
else if (inside == -61)
put_parm(s_bof61);
else
put_parm( "%d",inside);
}
if (outside != -1)
{
put_parm(" outside=");
if (outside == -2)
put_parm(s_real);
else if (outside == -3)
put_parm(s_imag);
else if (outside == -4)
put_parm(s_mult);
else if (outside == -5)
put_parm(s_sum);
else
put_parm( "%d",outside);
}
if(LogFlag) {
put_parm( " logmap=");
if(LogFlag == -1)
put_parm( "old");
else if(LogFlag == 1)
put_parm( "yes");
else
put_parm( "%d", LogFlag);
}
if (potflag) {
put_parm( " potential=%d/%g/%d",
(int)potparam[0],potparam[1],(int)potparam[2]);
if(pot16bit)
put_parm( "/16bit");
}
if (invert)
put_parm( " invert=%g/%g/%g",
inversion[0], inversion[1], inversion[2]);
if (decomp[0])
put_parm( " decomp=%d", decomp[0]);
if (distest)
put_parm( " distest=%d/%d", distest, distestwidth);
if (usr_biomorph != -1)
put_parm( " biomorph=%d", usr_biomorph);
if (finattract)
put_parm(" finattract=y");
if (forcesymmetry != 999) {
put_parm( " symmetry=");
if (forcesymmetry==XAXIS)
put_parm("xaxis");
else if(forcesymmetry==YAXIS)
put_parm("yaxis");
else if(forcesymmetry==XYAXIS)
put_parm("xyaxis");
else if(forcesymmetry==ORIGIN)
put_parm("origin");
else if(forcesymmetry==PI_SYM)
put_parm("pi");
else
put_parm("none");
}
if (periodicitycheck != 1)
put_parm( " periodicity=%d",periodicitycheck);
if (rflag)
put_parm( " rseed=%d",rseed);
if (rangeslen) {
put_parm(" ranges=");
i = 0;
while (i < rangeslen) {
if (i)
put_parm("/");
if (ranges[i] == -1) {
put_parm("-%d/",ranges[++i]);
++i;
}
put_parm("%d",ranges[i++]);
}
}
}
if (display3d >= 1) {
/***** 3d transform only parameters in this section *****/
put_parm( " 3d=yes");
if (loaded3d == 0)
put_filename("filename",readname);
if (SPHERE) {
put_parm( " sphere=y");
put_parm( " latitude=%d/%d", THETA1, THETA2);
put_parm( " longitude=%d/%d", PHI1, PHI2);
put_parm( " radius=%d", RADIUS);
}
put_parm( " scalexyz=%d/%d", XSCALE, YSCALE);
put_parm( " roughness=%d", ROUGH);
put_parm( " waterline=%d", WATERLINE);
if (FILLTYPE)
put_parm( " filltype=%d", FILLTYPE);
if (transparent[0] || transparent[1])
put_parm( " transparent=%d/%d", transparent[0],transparent[1]);
if (preview) {
put_parm( " preview=y");
if (showbox)
put_parm( " showbox=y");
put_parm( " coarse=%d",previewfactor);
}
if (RAY) {
put_parm( " ray=%d",RAY);
if (BRIEF)
put_parm(" brief=y");
}
if (FILLTYPE > 4) {
put_parm( " lightsource=%d/%d/%d", XLIGHT, YLIGHT, ZLIGHT);
if (LIGHTAVG)
put_parm( " smoothing=%d", LIGHTAVG);
}
if (RANDOMIZE)
put_parm( " randomize=%d",RANDOMIZE);
if (Targa_Out)
put_parm( " fullcolor=y");
if (Ambient)
put_parm( " ambient=%d",Ambient);
if (haze)
put_parm( " haze=%d",haze);
}
if (display3d) { /* universal 3d */
/***** common (fractal & transform) 3d parameters in this section *****/
if (!SPHERE || display3d < 0)
put_parm( " rotation=%d/%d/%d", XROT, YROT, ZROT);
put_parm( " perspective=%d", ZVIEWER);
put_parm( " xyshift=%d/%d", XSHIFT, YSHIFT);
if(xtrans || ytrans)
put_parm( " xyadjust=%d/%d",xtrans,ytrans);
if(glassestype) {
put_parm( " stereo=%d",glassestype);
put_parm( " interocular=%d",eyeseparation);
put_parm( " converge=%d",xadjust);
put_parm( " crop=%d/%d/%d/%d",
red_crop_left,red_crop_right,blue_crop_left,blue_crop_right);
put_parm( " bright=%d/%d",
red_bright,blue_bright);
}
}
/***** universal parameters in this section *****/
if (*colorinf != 'n') {
put_parm(" colors=");
if (*colorinf == '@')
put_parm(colorinf);
else {
int curc,scanc,force,diffmag;
int delta,diff1[4][3],diff2[4][3];
curc = force = 0;
while (1) {
/* emit color in rgb 3 char encoded form */
for (j = 0; j < 3; ++j) {
if ((k = dacbox[curc][j]) < 10) k += '0';
else if (k < 36) k += ('A' - 10);
else k += ('_' - 36);
buf[j] = k;
}
buf[3] = 0;
put_parm(buf);
if (++curc >= maxcolor) /* quit if done last color */
break;
/* Next a P Branderhorst special, a tricky scan for smooth-shaded
ranges which can be written as
Method used is to check net change in each color value over
spans of 2 to 5 color numbers. First time for each span size
the value change is noted. After first time the change is
checked against noted change. First time it differs, a
a difference of 1 is tolerated and noted as an alternate
acceptable change. When change is not one of the tolerated
values, loop exits. */
if (force) {
--force;
continue;
}
scanc = curc;
while (scanc < maxcolor) { /* scan while same diff to next */
if ((i = scanc - curc) > 3) /* check spans up to 4 steps */
i = 3;
for (k = 0; k <= i; ++k) {
for (j = 0; j < 3; ++j) { /* check pattern of chg per color */
delta = (int)dacbox[scanc][j] - (int)dacbox[scanc-k-1][j];
if (k == scanc - curc)
diff1[k][j] = diff2[k][j] = delta;
else
if (delta != diff1[k][j] && delta != diff2[k][j]) {
diffmag = abs(delta - diff1[k][j]);
if (diff1[k][j] != diff2[k][j] || diffmag != 1)
break;
diff2[k][j] = delta;
}
}
if (j < 3) break; /* must've exited from inner loop above */
}
if (k <= i) break; /* must've exited from inner loop above */
++scanc;
}
/* now scanc-1 is next color which must be written explicitly */
if (scanc - curc > 2) { /* good, we have a shaded range */
if (scanc != maxcolor) {
if (diffmag < 3) { /* not a sharp slope change? */
force = 2; /* force more between ranges, to stop */
--scanc; /* "drift" when load/store/load/store/ */
}
if (k) { /* more of the same */
force += k;
--scanc;
}
}
if (--scanc - curc > 1) {
put_parm("<%d>",scanc-curc);
curc = scanc;
}
else /* changed our mind */
force = 0;
}
}
}
}
if (rotate_lo != 1 || rotate_hi != 255)
put_parm( " cyclerange=%d/%d",rotate_lo,rotate_hi);
while (wbdata->len) /* flush the buffer */
put_parm_line();
}
static void put_filename(char *keyword,char *fname)
{
char *p;
if (*fname && !endswithslash(fname)) {
if ((p = strrchr(fname,'\\')))
if (*(fname = p+1) == 0) return;
put_parm(" %s=%s",keyword,fname);
}
}
static void put_parm(char *parm,...)
{
char *bufptr;
va_list args;
va_start(args,parm);
if (*parm == ' ' /* starting a new parm */
&& wbdata->len == 0) /* skip leading space */
++parm;
bufptr = wbdata->buf + wbdata->len;
vsprintf(bufptr,parm,args);
while (*(bufptr++))
++wbdata->len;
while (wbdata->len > 200)
put_parm_line();
}
#define NICELINELEN 72
#define MAXLINELEN 76
static void put_parm_line()
{
int len,c;
if ((len = wbdata->len) > NICELINELEN) {
len = NICELINELEN+1;
while (--len != 0 && wbdata->buf[len] != ' ') { }
if (len == 0) {
len = NICELINELEN-1;
while (++len < MAXLINELEN
&& wbdata->buf[len] && wbdata->buf[len] != ' ') { }
}
}
c = wbdata->buf[len];
wbdata->buf[len] = 0;
fputs(" ",parmfile);
fputs(wbdata->buf,parmfile);
if (c && c != ' ')
fputc('\\',parmfile);
fputc('\n',parmfile);
if ((wbdata->buf[len] = c) == ' ')
++len;
wbdata->len -= len;
strcpy(wbdata->buf,wbdata->buf+len);
}
static int getprec(double a,double b,double c)
{
double diff,temp;
int digits;
double highv = 1.0E20;
if ((diff = fabs(a - b)) == 0.0) diff = highv;
if ((temp = fabs(a - c)) == 0.0) temp = highv;
if (temp < diff) diff = temp;
if ((temp = fabs(b - c)) == 0.0) temp = highv;
if (temp < diff) diff = temp;
digits = 5;
while (diff < 1.0 && digits < 17) {
diff *= 10;
++digits;
}
return((digits < 6) ? 6 : digits);
}
static void put_float(int slash,double fnum,int prec)
{ char buf[40];
char *bptr, *dptr;
bptr = buf;
if (slash)
*(bptr++) = '/';
sprintf(bptr,"%1.*f",prec,fnum);
if ((dptr = strchr(bptr,'.'))) {
++dptr;
bptr = buf + strlen(buf);
while (--bptr > dptr && *bptr == '0')
*bptr = 0;
}
put_parm(buf);
}
void shell_to_dos()
{
#ifndef WINFRACT
char *comspec;
/* from fractint.c & calls no ovlys, doesn't need ENTER_OVLY */
if ((comspec = getenv("COMSPEC")) == NULL)
printf("Cannot find COMMAND.COM.\n");
else {
putenv("PROMPT='EXIT' returns to FRACTINT.$_$p$g");
spawnl(P_WAIT, comspec, NULL);
}
#endif
}
void showfreemem()
{
char *tempptr;
unsigned char huge *fartempptr;
unsigned i,i2;
long j,j2;
ENTER_OVLY(OVLY_MISCOVL);
printf("\n CPU type: %d FPU type: %d IIT FPU: %d Video: %d\n\n",
cpu, fpu, iit, video_type);
i = j = 0;
i2 = 0x8000;
while ((i2 >>= 1) != 0)
if ((tempptr = malloc(i+i2)) != NULL) {
free(tempptr);
i += i2;
}
printf(" %d NEAR bytes free \n", i);
j2 = 0x80000;
while ((j2 >>= 1) != 0)
if ((fartempptr = (unsigned char huge *)farmemalloc(j+j2)) != NULL) {
farmemfree((void far*)fartempptr);
j += j2;
}
printf(" %ld FAR bytes free \n\n press any key to continue...\n", j);
getakey();
EXIT_OVLY;
}
edit_text_colors()
{
extern int debugflag;
extern int lookatmouse;
int save_debugflag,save_lookatmouse;
int row,col,bkgrd;
int rowf,colf,rowt,colt;
char far *vidmem;
char far *savescreen;
char far *farp1; char far *farp2;
int i,j,k;
ENTER_OVLY(OVLY_MISCOVL);
save_debugflag = debugflag;
save_lookatmouse = lookatmouse;
debugflag = 0; /* don't get called recursively */
lookatmouse = 2; /* text mouse sensitivity */
row = col = bkgrd = rowt = rowf = colt = colf = 0;
vidmem = MK_FP(0xB800,0);
while (1) {
if (row < 0) row = 0;
if (row > 24) row = 24;
if (col < 0) col = 0;
if (col > 79) col = 79;
movecursor(row,col);
i = getakey();
if (i >= 'a' && i <= 'z') i -= 32; /* uppercase */
switch (i) {
case 27: /* esc */
debugflag = save_debugflag;
lookatmouse = save_lookatmouse;
movecursor(25,80);
EXIT_OVLY;
return 0;
case '/':
farp1 = savescreen = farmemalloc(4000L);
farp2 = vidmem;
for (i = 0; i < 4000; ++i) { /* save and blank */
*(farp1++) = *farp2;
*(farp2++) = 0;
}
for (i = 0; i < 8; ++i) /* 8 bkgrd attrs */
for (j = 0; j < 16; ++j) { /* 16 fgrd attrs */
k = i*16 + j;
farp1 = vidmem + i*320 + j*10;
*(farp1++) = ' '; *(farp1++) = k;
*(farp1++) = i+'0'; *(farp1++) = k;
*(farp1++) = (j < 10) ? j+'0' : j+'A'-10; *(farp1++) = k;
*(farp1++) = ' '; *(farp1++) = k;
}
getakey();
farp1 = vidmem;
farp2 = savescreen;
for (i = 0; i < 4000; ++i) /* restore */
*(farp1++) = *(farp2++);
farmemfree(savescreen);
break;
case ',':
rowf = row; colf = col; break;
case '.':
rowt = row; colt = col; break;
case ' ': /* next color is background */
bkgrd = 1; break;
case 1075: /* cursor left */
--col; break;
case 1077: /* cursor right */
++col; break;
case 1072: /* cursor up */
--row; break;
case 1080: /* cursor down */
++row; break;
case 13: /* enter */
*(vidmem + row*160 + col*2) = getakey();
break;
default:
if (i >= '0' && i <= '9') i -= '0';
else if (i >= 'A' && i <= 'F') i -= 'A'-10;
else break;
for (j = rowf; j <= rowt; ++j)
for (k = colf; k <= colt; ++k) {
farp1 = vidmem + j*160 + k*2 + 1;
if (bkgrd) *farp1 = (*farp1 & 15) + i * 16;
else *farp1 = (*farp1 & 0xf0) + i;
}
bkgrd = 0;
}
}
}
extern int badconfig;
extern struct videoinfo far videotable[];
extern struct videoinfo far *vidtbl;
extern int vidtbllen;
extern int tabmode;
extern int adapter;
static int *entsptr;
static int modes_changed;
extern int mode7text;
int select_video_mode(int curmode)
{
int entnums[MAXVIDEOMODES];
int attributes[MAXVIDEOMODES];
int i,j,k,ret;
int oldtabmode,oldhelpmode;
ENTER_OVLY(OVLY_MISCOVL);
load_fractint_cfg(0); /* load fractint.cfg to extraseg */
for (i = 0; i < vidtbllen; ++i) { /* init tables */
entnums[i] = i;
attributes[i] = 1;
}
entsptr = entnums; /* for indirectly called subroutines */
qsort(entnums,vidtbllen,sizeof(entnums[0]),entcompare); /* sort modes */
/* pick default mode */
if (curmode < 0) {
switch (video_type) { /* set up a reasonable default (we hope) */
case 1: videoentry.videomodeax = 8; /* hgc */
videoentry.colors = 2;
break;
case 2: videoentry.videomodeax = 4; /* cga */
videoentry.colors = 4;
break;
case 3: videoentry.videomodeax = 16; /* ega */
videoentry.colors = 16;
if (mode7text) { /* egamono */
videoentry.videomodeax = 15;
videoentry.colors = 2;
}
break;
default: videoentry.videomodeax = 19; /* mcga/vga? */
videoentry.colors = 256;
break;
}
}
else
far_memcpy((char far *)&videoentry,(char far *)&videotable[curmode],
sizeof(videoentry));
for (i = 0; i < vidtbllen; ++i) { /* find default mode */
if ( videoentry.videomodeax == vidtbl[entnums[i]].videomodeax
&& videoentry.colors == vidtbl[entnums[i]].colors
&& (curmode < 0
|| far_memcmp((char far *)&videoentry,(char far *)&vidtbl[entnums[i]],
sizeof(videoentry)) == 0))
break;
}
if (i >= vidtbllen) /* no match, default to first entry */
i = 0;
oldtabmode = tabmode;
oldhelpmode = helpmode;
modes_changed = 0;
tabmode = 0;
helpmode = HELPVIDSEL;
i = fullscreen_choice(CHOICEHELP,"Select Video Mode",
"key...name......................xdot.ydot.colr.comment..................",
NULL,vidtbllen,NULL,attributes,
1,16,72,i,format_item,NULL,NULL,check_modekey);
tabmode = oldtabmode;
helpmode = oldhelpmode;
if (i == -1) {
static char far msg[]={"Save new function key assignments or cancel changes?"};
if (modes_changed /* update fractint.cfg for new key assignments */
&& badconfig == 0
&& stopmsg(22,msg) == 0)
update_fractint_cfg();
EXIT_OVLY;
return(-1);
}
if (i < 0) /* picked by function key */
i = -1 - i;
else /* picked by Enter key */
i = entnums[i];
far_memcpy((char far *)&videoentry,(char far *)&vidtbl[i],
sizeof(videoentry)); /* the selected entry now in videoentry */
/* copy fractint.cfg table to resident table, note selected entry */
j = k = 0;
far_memset((char far *)videotable,0,sizeof(*vidtbl)*MAXVIDEOTABLE);
for (i = 0; i < vidtbllen; ++i) {
if (vidtbl[i].keynum > 0) {
far_memcpy((char far *)&videotable[j],(char far *)&vidtbl[i],
sizeof(*vidtbl));
if (far_memcmp((char far *)&videoentry,(char far *)&vidtbl[i],
sizeof(videoentry)) == 0)
k = vidtbl[i].keynum;
if (++j >= MAXVIDEOTABLE-1)
break;
}
}
if ((ret = k) == 0) { /* selected entry not a copied (assigned to key) one */
far_memcpy((char far *)&videotable[MAXVIDEOTABLE-1],
(char far *)&videoentry,sizeof(*vidtbl));
ret = 1400; /* special value for check_vidmode_key */
}
if (modes_changed /* update fractint.cfg for new key assignments */
&& badconfig == 0)
update_fractint_cfg();
EXIT_OVLY;
return(ret);
}
static void format_item(int choice,char *buf)
{
char kname[5];
char biosflag;
far_memcpy((char far *)&videoentry,(char far *)&vidtbl[entsptr[choice]],
sizeof(videoentry));
vidmode_keyname(videoentry.keynum,kname);
biosflag = (videoentry.dotmode % 100 == 1) ? 'B' : ' ';
sprintf(buf,"%-5s %-25s %4d %4d %3d%c %-25s", /* 72 chars */
kname, videoentry.name, videoentry.xdots, videoentry.ydots,
videoentry.colors, biosflag, videoentry.comment);
}
static int check_modekey(int curkey,int choice)
{
int i,j,k,ret;
if ((i = check_vidmode_key(1,curkey)) >= 0)
return(-1-i);
i = entsptr[choice];
ret = 0;
if ( (curkey == '-' || curkey == '+')
&& (vidtbl[i].keynum == 0 || vidtbl[i].keynum >= 1084)) {
static char far msg[]={"Missing or bad FRACTINT.CFG file. Can't reassign keys."};
if (badconfig)
stopmsg(0,msg);
else {
if (curkey == '-') { /* deassign key? */
if (vidtbl[i].keynum >= 1084) {
vidtbl[i].keynum = 0;
modes_changed = 1;
}
}
else { /* assign key? */
j = getakeynohelp();
if (j >= 1084 && j <= 1113) {
for (k = 0; k < vidtbllen; ++k) {
if (vidtbl[k].keynum == j) {
vidtbl[k].keynum = 0;
ret = -1; /* force redisplay */
}
}
vidtbl[i].keynum = j;
modes_changed = 1;
}
}
}
}
return(ret);
}
static int entcompare(void const *p1,void const *p2)
{
int i,j;
if ((i = vidtbl[*((int *)p1)].keynum) == 0) i = 9999;
if ((j = vidtbl[*((int *)p2)].keynum) == 0) j = 9999;
if (i < j || (i == j && *((int *)p1) < *((int *)p2)))
return(-1);
return(1);
}
static void update_fractint_cfg()
{
char cfgname[100],outname[100],buf[121],kname[5];
FILE *cfgfile,*outfile;
int far *cfglinenums;
int i,j,linenum,nextlinenum,nextmode;
struct videoinfo vident;
findpath("fractint.cfg",cfgname);
if (access(cfgname,6)) {
sprintf(buf,s_cantwrite,cfgname);
stopmsg(0,buf);
return;
}
strcpy(outname,cfgname);
i = strlen(outname);
while (--i >= 0 && outname[i] != '\\')
outname[i] = 0;
strcat(outname,"fractint.tmp");
if ((outfile = fopen(outname,"w")) == NULL) {
sprintf(buf,s_cantcreate,outname);
stopmsg(0,buf);
return;
}
cfgfile = fopen(cfgname,"r");
cfglinenums = (int far *)(&vidtbl[MAXVIDEOMODES]);
linenum = nextmode = 0;
nextlinenum = cfglinenums[0];
while (fgets(buf,120,cfgfile)) {
++linenum;
if (linenum == nextlinenum) { /* replace this line */
far_memcpy((char far *)&vident,(char far *)&vidtbl[nextmode],
sizeof(videoentry));
vidmode_keyname(vident.keynum,kname);
strcpy(buf,vident.name);
i = strlen(buf);
while (i && buf[i-1] == ' ') /* strip trailing spaces to compress */
--i;
j = i + 5;
while (j < 32) { /* tab to column 33 */
buf[i++] = '\t';
j += 8;
}
buf[i] = 0;
fprintf(outfile,"%-4s,%s,%4x,%4x,%4x,%4x,%4d,%4d,%4d,%3d,%s\n",
kname,
buf,
vident.videomodeax,
vident.videomodebx,
vident.videomodecx,
vident.videomodedx,
vident.dotmode,
vident.xdots,
vident.ydots,
vident.colors,
vident.comment);
if (++nextmode >= vidtbllen)
nextlinenum = 32767;
else
nextlinenum = cfglinenums[nextmode];
}
else
fputs(buf,outfile);
}
fclose(cfgfile);
fclose(outfile);
unlink(cfgname); /* success assumed on these lines */
rename(outname,cfgname); /* since we checked earlier with access */
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/