void makeframe()
{
reshapeviewport();
getsize(&xsize,&ysize);
getorigin(&xorg,&yorg);
clearscreen();
}
/* plot_mat: creates a simple colour-coded dot representation of Mat,
* which is assumed to be a Row x Col matrix. The colours vary from
* blue for Lowval values to red for Upval values. Values lower than
* Lowval will be black, higher than Upval will be white.
* Plotting is performed in window no. Gid.
* Call winclose() to dispose of this window.
*/
void plot_mat(long Gid, double **Mat, unsigned int Row, unsigned int Col,
double Lowval, double Upval)
{
register unsigned int i,j;
winset(Gid); /* make this the current window */
reshapeviewport();
cpack(RGB_BLACK);
clear();
for (i=0; i<Row; i++) /* scans Mat */
for (j=0; j<Col; j++)
{
/* select code color for Mt values */
cpack(rainbow_ramp(Mat[i][j], Lowval, Upval));
/* plot the point */
rectfi(j, Row-i, j+1, Row-i-1);
}
/* flush graphics */
if (Dblbuffer) swapbuffers(); else gflush();
}
/*
OK w95
*/
void mainEventLoop() {
short sVal, sXCurrent, sYCurrent;
long lDevice;
int i=0;
int state = FALSE;
short attached = 1;
short value;
int dev;
int pupval;
// make_all();
//init_menu();
nCurrentDir = DIR_NONE;
czclear(0x404040, getgdesc(GD_ZMAX));
while (TRUE) {
if (qtest()) {
lDevice = qread(&sVal);
switch (lDevice) {
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
}
break;
case RIGHTMOUSE:
pupval = dopup(mainmenu);
break;
case SPACEKEY:
state = TRUE;
i++;
if ( i == 4 )
subEventLoop();
break;
case RKEY:
if ( Last_Actions[FIRE] == TRUE )
vEventLoop(&vDrawTitle);
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
default:
break;
}
}
getdev(DR_NUM_BUT, Devs, Last_Actions);
vDrawTitle(state);
}
}
/*
half OK w95
*/
void subEventLoop()
{
short sVal, sXCurrent, sYCurrent;
long lDevice;
float tmp;
nCurrentDir = DIR_NONE;
czclear(0x404040, getgdesc(GD_ZMAX));
strcpy(Message, ReadyMesg);
vDrawScene();
qreset();
while (TRUE) {
if (qtest()) {
lDevice = qread(&sVal);
switch (lDevice)
{
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
winset(Win_ids[0]);
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
tmp = Speed;
Speed = 0.0;
vDrawScene();
Speed = tmp;
}
break;
case RIGHTMOUSE:
dopup(mainmenu);
break;
case SPACEKEY:
if ( EMode == FALSE )
{
p1EventLoop();
strcpy(Message, "");
}
if ( EMode == TRUE ) /* game over */
{
vDrawOverScene();
}
break;
case RKEY:
if ( Last_Actions[FIRE] == TRUE )
vEventLoop((&vDrawScene));
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
default:
break;
}
}
else
getdev(DR_NUM_BUT, Devs, Last_Actions);
}
}
/*---------------------------------------------------------------------------
main play loop
---------------------------------------------------------------------------*/
void p1EventLoop() {
short sVal;
long lDevice;
Matrix mNewMat;
int reset = TRUE, i;
static OKMode = FALSE;
PMode = TRUE;
strcpy(Message, "");
while (TRUE)
{
if (qtest())
{
lDevice = qread(&sVal);
switch (lDevice)
{
case INPUTCHANGE:
#ifdef DOFF
printf(" %d, %d, %d\n", Win_ids[0], Win_ids[1], sVal);
#endif
if ( sVal != 0 )
Input_win = sVal;
else
Input_win = -1;
break;
case REDRAW:
if ( sVal == Win_ids[1] && Win_ids[1] != -1 )
vDrawHelpScene();
else if ( sVal == Win_ids[0] )
{
winset(Win_ids[0]);
reshapeviewport();
getsize(&nWinWidth, &nWinHeight);
getorigin(&nXWinOrigin, &nYWinOrigin);
/*
vDrawScene();
*/
}
break;
case ESCKEY:
if ( OKMode != TRUE)
return;
break;
case QKEY:
if ( Input_win == Win_ids[1] )
{
winclose(Input_win);
Win_ids[1] != -1;
}
else if ( Input_win == Win_ids[0] )
{
winclose(Win_ids[0]);
if ( Win_ids[1] != -1 )
winclose(Win_ids[1]);
exit(0);
}
break;
}
}
getdev(DR_NUM_BUT, Devs, Last_Actions);
if ( Time == Time/REDRAW_RATE*REDRAW_RATE )
{
if ( Energy <= 0 )
{
EMode = TRUE;
return;
}
else if ( Time >= END_TIME )
{
OKMode = TRUE;
last_mesg();
}
else
vDrawScene();
}
for ( i=0; i<DR_NUM_BUT; i++)
{
Last_Actions[i] = FALSE;
}
Time++;
}
}
