/* Program to model a waving flag */
/* By D.Hedley 11/7/93 */
#include <math.h>
#include <dos.h>
#include <stdlib.h>
#include <string.h>
#define MODELAS Float2Fixed(32.0)
#define DIST Float2Fixed(30.0)
#define DMODELAS Float2Fixed(32.0)
#define DDIST Float2Fixed(42.42640687) /* sqrt(DIST*DIST+DIST*DIST) */
#define DAMPING Float2Fixed(1.03125)
#define HEIGHT 11
#define WIDTH 13
#define XP (int)((320-((float)WIDTH*Fixed2Float(DIST)/Fixed2Float(XSCALE)))/2)
#define YP (43+35)
#define XSCALE Float2Fixed(2.75)
#define YSCALE Float2Fixed(3.75)
#define myabs(a) ((a) < 0 ? -(a) : (a))
typedef long Fixed;
typedef struct
{
Fixed x,y;
Fixed xv,yv;
} Pos;
Pos array1[HEIGHT*WIDTH];
Pos array2[HEIGHT*WIDTH];
Fixed angle[HEIGHT*WIDTH];
Fixed hforce[HEIGHT*(WIDTH-1)];
Fixed vforce[(HEIGHT-1)*WIDTH];
Fixed dforce[(HEIGHT-1)*(WIDTH-1)];
Fixed vdist[(HEIGHT-1)*WIDTH];
Fixed hdist[HEIGHT*(WIDTH-1)];
Fixed ddist[(HEIGHT-1)*(WIDTH-1)];
struct
{
int x,y;
} psn[(HEIGHT-1)*(WIDTH-1)];
#define Int2Fixed(a) (Fixed)((Fixed)(a) << 16)
#define Fixed2Int(a) (int)((a) >> 16)
#define Float2Fixed(a) ((Fixed)((a) * 65536.0))
#define Fixed2Float(a) ((a) / 65536.0)
Pos *newpos = array2;
Pos *oldpos = array1;
int fps = 0;
#define RD 1
#define WT 11
#define BL 21
#define NCOLS Int2Fixed(10)
struct
{
int col1,col2;
} colours[] =
{
{WT,RD},{BL,WT},{BL,BL},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{BL,BL},{WT,BL},{RD,WT},
{RD,WT},{WT,RD},{BL,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,BL},{RD,WT},{WT,RD},
{WT,BL},{RD,WT},{WT,RD},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{RD,WT},{WT,RD},{BL,WT},
{BL,BL},{WT,BL},{RD,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,RD},{BL,WT},{BL,BL},
{WT,WT},{WT,WT},{WT,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,WT},{WT,WT},{WT,WT},
{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},
{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},{RD,RD},
{WT,WT},{WT,WT},{WT,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,WT},{WT,WT},{WT,WT},
{BL,BL},{WT,BL},{RD,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,RD},{BL,WT},{BL,BL},
{WT,BL},{RD,WT},{WT,RD},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{RD,WT},{WT,RD},{BL,WT},
{RD,WT},{WT,RD},{BL,WT},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{WT,BL},{RD,WT},{WT,RD},
{WT,RD},{BL,WT},{BL,BL},{WT,WT},{RD,RD},{RD,RD},{WT,WT},{BL,BL},{WT,BL},{RD,WT}
};
unsigned char pal1[256*3];
unsigned char pal2[256*3];
unsigned char c_pal[256*3];
unsigned char black_pal[256*3];
unsigned char white_pal[256*3];
unsigned char bits_pal[256*3] =
{
0,0,0,32,0,0,0,32,0,32,32,0,0,0,32,32,
0,32,0,32,32,32,32,32,48,48,48,63,0,0,0,63,
0,63,63,0,0,0,63,63,0,63,0,63,63,63,63,63,
63,63,63,59,59,59,54,54,54,50,50,50,46,46,46,42,
42,42,38,38,38,33,33,33,29,29,29,25,25,25,21,21,
21,17,17,17,13,13,13,8,8,8,4,4,4,0,0,0,
16,0,0,23,0,0,29,0,0,36,0,0,43,0,0,49,
0,0,56,0,0,63,0,0,63,8,8,63,16,16,63,24,
24,63,32,32,63,39,39,63,47,47,63,55,55,63,63,63,
63,55,55,63,47,47,63,39,39,63,32,32,63,24,24,63,
16,16,63,8,8,63,0,0,57,0,0,51,0,0,45,0,
0,39,0,0,33,0,0,28,0,0,22,0,0,16,0,0,
39,39,63,38,38,63,36,37,63,35,36,63,34,35,63,33,
33,63,32,32,63,31,31,63,30,30,63,28,29,63,27,28,
63,26,27,63,25,25,63,24,24,63,22,23,63,21,22,63,
20,21,63,19,19,63,17,18,63,16,17,63,15,16,63,14,
15,63,13,14,63,12,13,63,11,12,63,9,10,63,8,9,
63,7,8,63,6,7,63,5,6,63,3,4,63,2,3,63,
0,1,63,0,1,61,0,1,59,0,1,57,0,1,55,0,
1,53,0,1,51,0,1,48,0,0,47,0,0,45,0,0,
43,0,0,41,0,0,38,0,0,36,0,0,34,0,0,32,
0,0,30,0,0,28,0,0,26,0,0,24,0,0,22,0,
0,20,0,0,18,0,0,16,0,0,14,0,0,12,0,0,
10,0,0,8,0,0,6,0,0,4,0,0,2,0,0,0,
54,59,63,46,56,63,39,53,63,31,50,63,23,47,63,16,
44,63,8,42,63,0,39,63,0,35,57,0,31,51,0,27,
45,0,23,39,0,19,33,0,16,28,0,12,22,0,9,16,
54,54,63,46,47,63,39,39,63,31,32,63,23,24,63,16,
16,63,8,9,63,0,1,63,0,1,57,0,1,51,0,0,
45,0,0,39,0,0,33,0,0,28,0,0,22,0,0,16,
60,54,63,57,46,63,54,39,63,52,31,63,50,23,63,47,
16,63,45,8,63,42,0,63,38,0,57,32,0,51,29,0,
45,24,0,39,20,0,33,17,0,28,13,0,22,10,0,16,
63,54,63,63,46,63,63,39,63,63,31,63,63,23,63,63,
16,63,63,8,63,63,0,63,56,0,57,50,0,51,45,0,
45,39,0,39,33,0,33,27,0,28,22,0,22,16,0,16,
63,58,55,63,56,52,63,54,49,63,53,47,63,51,44,63,
49,41,63,47,39,63,46,36,63,44,32,63,41,28,63,39,
24,60,37,23,58,35,22,55,34,21,52,32,20,50,31,19,
47,30,18,45,28,17,42,26,16,40,25,15,39,24,14,36,
23,13,34,22,12,32,20,11,29,19,10,27,18,9,23,16,
8,21,15,7,18,14,6,16,12,6,14,11,5,10,8,3,
55,0,0,53,6,0,52,13,0,50,19,0,49,24,0,48,
29,0,47,35,0,45,39,0,44,43,0,32,43,0,19,42,
0,7,42,0,0,41,5,0,40,16,0,40,28,0,40,37,
0,35,41,0,27,42,0,18,42,0,10,43,19,0,46,27,
0,46,33,0,46,41,0,46,46,0,43,46,0,35,46,0,
29,46,0,22,46,0,14,47,0,8,47,0,0,63,63,63
};
extern void SetGraphicsMode(void);
extern void draw_filled_triangle(int,int,int,int,int,int,int);
extern void SwapScreens(void);
extern void SetTextMode(void);
extern void SetPalette(unsigned char *);
extern void FadePalette(unsigned char *,unsigned char *);
extern void DrawText(int, int, char *);
extern void BlankScreen(void);
extern void Sync(void);
extern void StartASM(void);
extern void EndASM(void);
extern void PutBits(void);
extern Fixed FixedAdd(Fixed,Fixed);
extern Fixed FixedMul(Fixed,Fixed);
extern Fixed FixedDiv(Fixed,Fixed);
extern Fixed Distance(int,int);
extern unsigned char OKtoblank;
extern unsigned long FrameNum;
void CalcForces(void)
{
int i,j,cpos;
register Fixed *f,*d;
for (j = 0,cpos = 0,f = &hforce[0],d = &hdist[0]; j < HEIGHT; j++,cpos++)
for (i = 0; i < WIDTH-1 ; i++,f++,d++,cpos++)
{
*d = Distance(cpos,cpos+1);
if ((*f = -FixedDiv(FixedMul(*d-DIST,MODELAS),DIST)) > 0)
*f = 0;
}
for (j = 0,f = &vforce[0],d = &vdist[0]; j < (HEIGHT-1)*WIDTH; j++,f++,d++)
{
*d = Distance(j,j+WIDTH);
if ((*f = -FixedDiv(FixedMul(*d-DIST,MODELAS),DIST)) > 0)
*f = 0;
}
for (j = 0,cpos = 0, f = &dforce[0],d = &ddist[0]; j<HEIGHT-1; j++,cpos++)
for (i = 0; i < WIDTH-1; i++,f++,d++,cpos++)
{
*d = Distance(cpos,cpos+WIDTH+1);
if ((*f = -FixedDiv(FixedMul(*d-DDIST,DMODELAS),DDIST)) > 0)
*f = 0;
}
}
#define ChangePos(pos) \
{ \
if ((newpos[pos].xv = FixedDiv(oldpos[pos].xv+hf, DAMPING))\
> Float2Fixed(25.0))\
newpos[pos].xv = Float2Fixed(25.0); \
if((newpos[pos].yv = FixedDiv(oldpos[pos].yv+vf+Float2Fixed(1.0), DAMPING))\
> Float2Fixed(15.0)) \
newpos[pos].yv = Float2Fixed(15.0); \
newpos[pos].x = oldpos[pos].x + newpos[pos].xv; \
newpos[pos].y = oldpos[pos].y + newpos[pos].yv; \
}
#define AddForces(posx1,posy1,posx2,posy2) \
{ \
hf += FixedMul(oldpos[(posy1)*WIDTH+(posx1)].x - oldpos[(posy2)*WIDTH+(posx2)].x,\
temp >> 1); \
vf += FixedMul(oldpos[(posy1)*WIDTH+(posx1)].y - oldpos[(posy2)*WIDTH+(posx2)].y,\
temp >> 1); \
}
#define CalcHoriz(posx,posy,which) \
{ \
temp = FixedDiv(hforce[(posy)*(WIDTH-1)+(posx)], \
hdist[(posy)*(WIDTH-1)+(posx)]);\
AddForces((posx)+which,posy,(posx)+(1-which),(posy)) \
}
#define CalcVert(posx,posy,which) \
{ \
temp = FixedDiv(vforce[(posy)*WIDTH+(posx)], \
vdist[(posy)*WIDTH+(posx)]);\
AddForces(posx,posy+which,posx,posy+(1-which)) \
}
#define CalcDiag(posx,posy,which) \
{ \
temp = FixedDiv(dforce[(posy)*(WIDTH-1)+(posx)], \
ddist[(posy)*(WIDTH-1)+(posx)]);\
AddForces((posx)+which,(posy)+which,(posx)+(1-which),(posy)+(1-which)) \
}
void CalcPos(void)
{
Fixed hf,vf,temp;
register int i,cpos;
int j;
/* Top right corner */
hf = vf = 0;
CalcHoriz(WIDTH-2,0,1);
CalcVert(WIDTH-1,0,0);
ChangePos(WIDTH-1);
/* Bottom right corner */
hf = vf = 0;
CalcHoriz(WIDTH-2,HEIGHT-1,1);
CalcVert(WIDTH-1,HEIGHT-2,1);
CalcDiag(WIDTH-2,HEIGHT-2,1);
ChangePos((WIDTH-1)+WIDTH*(HEIGHT-1));
/* Right edge */
for (i = 1,cpos = WIDTH+WIDTH-1; i < HEIGHT-1; i++,cpos+=WIDTH)
{
hf = vf = 0;
CalcHoriz(WIDTH-2, i, 1);
CalcVert(WIDTH-1, i-1, 1);
CalcVert(WIDTH-1, i, 0);
CalcDiag(WIDTH-2, i-1, 1);
ChangePos(cpos);
}
/* Top edge */
for (i = 1,cpos = 1; i < WIDTH-1; i++,cpos++)
{
hf = vf = 0;
CalcHoriz(i-1, 0, 1);
CalcHoriz(i, 0, 0);
CalcVert(i, 0, 0);
CalcDiag(i, 0, 0);
ChangePos(cpos);
}
/* Middle */
for (j = 1,cpos = 1+WIDTH; j < HEIGHT-1; j++,cpos+=2)
for (i = 1; i < WIDTH-1; i++,cpos++)
{
hf = vf = 0;
CalcHoriz(i-1,j,1);
CalcHoriz(i,j,0);
CalcVert(i,j-1,1);
CalcVert(i,j,0);
CalcDiag(i-1,j-1,1);
CalcDiag(i,j,0);
ChangePos(cpos);
}
/* Bottom edge */
for (i = 1,cpos = (HEIGHT-1)*WIDTH+1; i < WIDTH-1; i++,cpos++)
{
hf = vf = 0;
CalcHoriz(i-1,HEIGHT-1,1);
CalcHoriz(i,HEIGHT-1,0);
CalcVert(i,HEIGHT-2,1);
CalcDiag(i-1,HEIGHT-2,1);
ChangePos(cpos);
}
/* Left edge */
for (j = 1,cpos = WIDTH; j < HEIGHT-1; j++,cpos+=WIDTH)
{
// if (j == HEIGHT/2) continue;
hf = vf = 0;
CalcHoriz(0,j,0);
CalcVert(0,j,0);
CalcVert(0,j-1,1);
CalcDiag(0,j,0);
ChangePos(cpos);
}
}
void CalcAngle(void)
{
register int i,j;
for (j = 0; j < HEIGHT; j++)
for (i = 0; i < WIDTH-1; i++)
{
if((angle[j*WIDTH+i]=DIST-myabs(newpos[j*WIDTH+i+1].x-newpos[j*WIDTH+i].x))
< 0)
angle[j*WIDTH+i] = 0;
}
}
#define x1 psn[cpos].x
#define y1 psn[cpos].y
#define x2 psn[cpos+1].x
#define y2 psn[cpos+1].y
#define x3 psn[cpos+WIDTH+1].x
#define y3 psn[cpos+WIDTH+1].y
#define x4 psn[cpos+WIDTH].x
#define y4 psn[cpos+WIDTH].y
void DrawFlag(void)
{
register int j,cpos;
int i;
for (j = 0; j < HEIGHT*WIDTH; j++)
{
psn[j].x = XP+Fixed2Int(FixedDiv(newpos[j].x,XSCALE));
psn[j].y = YP+Fixed2Int(FixedDiv(newpos[j].y,YSCALE));
}
for (i = WIDTH-2, cpos = WIDTH-2; i >= WIDTH/2; cpos = --i)
{
for (j = 0; j < HEIGHT-1; j++,cpos += WIDTH)
{
if (j >= HEIGHT/2)
{
draw_filled_triangle(x1,y1,x3,y3,x4,y4,
colours[i*(HEIGHT-1)+j].col1+Fixed2Int(FixedMul(
FixedDiv(angle[cpos+WIDTH],DIST),NCOLS)));
draw_filled_triangle(x1,y1,x2,y2,x3,y3,
colours[i*(HEIGHT-1)+j].col2+Fixed2Int(FixedMul(
FixedDiv(angle[cpos],DIST),NCOLS)));
}
else
{
draw_filled_triangle(x4,y4,x2,y2,x3,y3,
colours[i*(HEIGHT-1)+j].col1+Fixed2Int(FixedMul(
FixedDiv(angle[cpos+WIDTH],DIST),NCOLS)));
draw_filled_triangle(x1,y1,x2,y2,x4,y4,
colours[i*(HEIGHT-1)+j].col2+Fixed2Int(FixedMul(
FixedDiv(angle[cpos],DIST),NCOLS)));
}
}
}
for (i = WIDTH/2-1, cpos = WIDTH/2-1; i >= 0; cpos = --i)
{
for (j = 0; j < HEIGHT-1; j++, cpos += WIDTH)
{
if (j < HEIGHT/2)
{
draw_filled_triangle(x1,y1,x3,y3,x4,y4,
colours[i*(HEIGHT-1)+j].col1+Fixed2Int(FixedMul(
FixedDiv(angle[cpos+WIDTH],DIST),NCOLS)));
draw_filled_triangle(x1,y1,x2,y2,x3,y3,
colours[i*(HEIGHT-1)+j].col2+Fixed2Int(FixedMul(
FixedDiv(angle[cpos],DIST),NCOLS)));
}
else
{
draw_filled_triangle(x4,y4,x2,y2,x3,y3,
colours[i*(HEIGHT-1)+j].col1+Fixed2Int(FixedMul(
FixedDiv(angle[cpos+WIDTH],DIST),NCOLS)));
draw_filled_triangle(x1,y1,x2,y2,x4,y4,
colours[i*(HEIGHT-1)+j].col2+Fixed2Int(FixedMul(
FixedDiv(angle[cpos],DIST),NCOLS)));
}
}
}
}
#define c(a) (((a) >= 'A' && (a) <= 'Z') ? (a)-'A'+2 : \
((a) >= '1' && (a) <= '9') ? (a)-'1'+26+2 : \
(a) == '0' ? 35+2 : (a) == '!' ? 36+2 : (a) == ',' ? 37+2 : \
(a) == ':' ? 38+2 : (a) == '-' ? 39+2 : 1)
int numlines[]= { 1, 3, 4, 4, 0 };
char t_blank[] = { 0 };
char t_bits[] = { c('B'), c('I'), c('T'), c('S'), 0 };
char t_computer[] = { c('C'), c('O'), c('M'), c('P'), c('U'),
c('T'), c('E'), c('R'),0 };
char t_society[]={ c('S'), c('O'), c('C'), c('I'), c('E'), c('T'), c('Y'), 0};
char t_is[] = { c('I'), c('S'), 0 };
char t_proud[] = { c('P'), c('R'), c('O'), c('U'), c('D'), 0 };
char t_to[] = { c('T'), c('O'), 0 };
char t_present[] = { c('P'), c('R'), c('E'), c('S'), c('E'),
c('N'), c('T'),0 };
char t_a[] = { c('A'), 0 };
char t_david[] = { c('D'), c('A'), c('V'), c('I'), c('D'), 0 };
char t_hedley[] = { c('H'), c('E'), c('D'), c('L'), c('E'), c('Y'), 0 };
char t_production[] = { c('P'), c('R'), c('O'), c('D'), c('U'),
c('C'), c('T'), c('I'), c('O'), c('N'),0 };
char *String[]=
{
t_blank,
t_bits,t_computer,t_society,
t_is,t_proud,t_to,t_present,
t_a,t_david,t_hedley,t_production,
};
char **string = String;
int textpos = 0;
void DoText(void)
{
int i,vpos;
vpos = 43-20+((240-numlines[textpos]*32)>>1);
for (i = 0; i < numlines[textpos]; i++)
DrawText((20-(strlen(string[i])<<1))<<1,vpos+32*i,string[i]);
}
void Update(void)
{
Pos *temp;
static unsigned long c_frame;
CalcForces();
CalcPos();
CalcAngle();
while (OKtoblank);
DrawFlag();
DoText();
while (FrameNum-c_frame < fps);
c_frame = FrameNum;
SwapScreens();
temp = oldpos;
oldpos = newpos;
newpos = temp;
}
void SetInitialPos(void)
{
int i,j;
Pos *p;
for (j = 0; j < HEIGHT; j++)
for (i = 0; i < WIDTH; i++)
{
p = &array1[j*WIDTH+i];
p->x = FixedMul(Int2Fixed(i),DIST);
p->y = FixedMul(Int2Fixed(j),DIST);
p->xv = p->yv = 0;
array2[j*WIDTH+i] = *p;
}
}
void SetInitialPalette(void)
{
register int i;
register int p;
p = RD*3;
for (i = 10; i >0 ; i--)
{
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = i*3+20;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = 0;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = 0;
p++;
}
p = BL*3;
for (i = 10; i >0 ; i--)
{
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = 0;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = 0;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = i*3+20;
p++;
}
p = WT*3;
for (i = 10; i >0 ; i--)
{
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = i*3+20;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = i*3+20;
p++;
pal1[p] = pal2[p] = pal1[p+32*3] = pal1[p+64*3] = pal1[p+96*3] =
pal1[p+128*3] = pal1[p+160*3] = pal1[p+192*3] = pal1[p+224*3] = i*3+20;
p++;
}
p = 32*3;
for (i = 0; i < 32 ; i++,p+=3)
pal2[p] = pal2[p+1] = pal2[p+2] = 56;
p = 64*3;
for (i = 0; i < 32 ; i++,p+=3)
pal2[p] = pal2[p+1] = pal2[p+2] = 40;
p = 96*3;
for (i = 0; i < 32 ; i++,p+=3)
pal2[p] = pal2[p+1] = pal2[p+2] = 32;
p = 128*3;
for (i = 0; i < 32 ; i++,p+=3)
pal2[p] = pal2[p+1] = pal2[p+2] = 20;
p = 160*3;
for (i = 0; i < 32 ; i++,p+=3)
pal2[p] = pal2[p+1] = pal2[p+2] = 12;
p = 192*3;
for (i = 0; i < 32 ; i++,p+=3)
{
pal2[p] = 55;
pal2[p+1] = 44;
pal2[p+2] = 0;
}
p = 224*3;
for (i = 0; i < 32*3; i+=3,p+=3)
{
pal2[p] = pal1[i]>>2;
pal2[p+1] = pal1[i+1]>>2;
pal2[p+2] = pal1[i+2]>>1;
}
pal2[224*3+2] = 20;
for (i = 0; i < 256*3; i++)
white_pal[i] = 63;
}
#define FADEON 130
#define FADEOFF 70
int main(void)
{
register int cpos,i;
int animate = 0, wind = 0,mag;
int j,windstart = 150,animstart = 200;
int fadestate,fadecount;
srand(1);
StartASM();
SetGraphicsMode();
SetPalette(black_pal);
Sync();
SetInitialPalette();
memcpy(c_pal,black_pal,sizeof black_pal);
SetInitialPos();
Update();
for(;;)
{
if (animstart > 0)
if (--animstart == 0)
{
animate = 1;
fadestate = 0;
fadecount = FADEON;
}
else
{
if (animstart % 3 == 0)
{
FadePalette(c_pal,pal1);
SetPalette(c_pal);
}
Sync();
}
if (animate)
{
switch(fadestate)
{
case 0: /* No fade yet... */
if (--fadecount == 0)
{
fadestate = 1;
fadecount = FADEON;
}
break;
case 1: /* Fade on... */
if (--fadecount == 0)
{
fadestate = 2;
fadecount = FADEOFF;
}
else
{
FadePalette(c_pal,pal2);
SetPalette(c_pal);
}
break;
case 2: /* Fade off... */
if (--fadecount == 0)
if (numlines[textpos+1] > 0)
{
string += numlines[textpos++];
fadestate = 1;
fadecount = FADEON;
}
else
{
bits93:
memcpy(c_pal,white_pal,sizeof white_pal);
OKtoblank = 1;
Sync();
while (OKtoblank);
OKtoblank = 128;
PutBits();
SetPalette(c_pal);
Sync();
SwapScreens();
for (j = 0; j < 100; j++)
{
FadePalette(c_pal,bits_pal);
FadePalette(c_pal,bits_pal);
SetPalette(c_pal);
Sync();
if (inportb(0x60) == 1) goto quit;
}
for (j = 0; j < 260; j++)
Sync();
for (j = 0; j < 50; j++)
{
FadePalette(c_pal,black_pal);
FadePalette(c_pal,black_pal);
FadePalette(c_pal,black_pal);
FadePalette(c_pal,black_pal);
SetPalette(c_pal);
Sync();
if (inportb(0x60) == 1) goto quit;
}
goto quit;
}
else
{
FadePalette(c_pal,pal1);
SetPalette(c_pal);
}
}
Update();
if (windstart > 0)
if (--windstart == 0)
wind = 1;
}
if (animate && wind && random(10) > 3)
{
mag = random(4);
for (j = 0, cpos = 1; j < HEIGHT; j++,cpos++)
{
for (i = 1; i < WIDTH; i++,cpos++)
{
Fixed temp;
temp = FixedDiv(angle[cpos],DIST);
oldpos[cpos].xv += FixedMul(Int2Fixed(mag+random(2)),temp);
oldpos[cpos].yv -= Float2Fixed(1.2)+temp;
}
}
}
if (inportb(0x60) == 1)
{
outportb(0x60,1|128);
goto bits93;
}
}
quit:
EndASM();
SetTextMode();
return 0;
}
