/*____________________________________________________________________________

**

** File: life_i.c

**

** Description: Interactive interface for the game `LIFE'

**

** Author: Alexander V. Lukyanov

**____________________________________________________________________________

*/

#include <stdio.h>

#include <stdlib.h>

#include "life0.h"

#include "inter.h"

#include "ow.h"

Window *StatusWin;

Window *ReadLine;

Cell root_pal[]={{0,' '}};

Cell status_pal[]={{REVERSE,' '}};

Cell readline_pal[]={{REVERSE,' '},{0}};

long ShiftX=0;

long ShiftY=0;

long PosX=0;

long PosY=0;

long Generation=0;

long Population=0;

char filename[256]="field.lif";

void CountPopulation(void)

{

struct y_list *ScanY;

struct x_list *ScanX;

Population=0;

for(ScanY=Field; ScanY!=NULL; ScanY=ScanY->next)

for(ScanX=ScanY->line; ScanX!=NULL; ScanX=ScanX->next)

Population++;

}

void StatusLine(void)

{

static Cell out={REVERSE};

char str[80];

char *s;

int x,y;

OwUse(StatusWin);

CountPopulation();

sprintf(str,"%lu:%lu (%ld,%ld)",Generation,Population,PosX,-PosY);

OwResize(strlen(str),1);

OwPutString(0,0,str,UPAL);

}

void DisplayField(void)

{

struct y_list *ScanY;

struct x_list *ScanX;

static Cell cell={0,'*'};

static Cell blank={0,' '};

int x,y;

long i;

OwUse(Root);

ScanY=Field;

for(y=0; y<ScreenHeight; y++)

{

while(ScanY!=NULL && ScanY->y<y+ShiftY)

ScanY=ScanY->next;

if(ScanY!=NULL && ScanY->y==y+ShiftY)

{

ScanX=ScanY->line;

for(x=0; x<ScreenWidth; x++)

{

while(ScanX!=NULL && ScanX->x<x+ShiftX)

ScanX=ScanX->next;

if(ScanX!=NULL && ScanX->x==x+ShiftX)

{

OwSetCell(x,y,&cell);

}

else

{

OwSetCell(x,y,&blank);

}

}

}

else

{

for(x=0; x<ScreenWidth; x++)

{

OwSetCell(x,y,&blank);

}

}

}

StatusLine();

Sync();

}

void Center(void)

{

unsigned long count;

unsigned line_count;

double NewX,NewY;

struct x_list *ScanX;

struct y_list *ScanY;

NewX=NewY=0.0;

count=0;

for(ScanY=Field; ScanY!=NULL; ScanY=ScanY->next)

{

line_count=0;

for(ScanX=ScanY->line; ScanX!=NULL; ScanX=ScanX->next)

{

line_count++;

NewX+=(double)ScanX->x;

}

NewY+=(double)ScanY->y*(double)line_count;

count+=line_count;

}

if(count)

{

NewX/=(double)count;

NewY/=(double)count;

}

PosX=(long)NewX;

PosY=(long)NewY;

ShiftX=PosX-(int)(ScreenWidth>>1);

ShiftY=PosY-(int)(ScreenHeight>>1);

}

void SaveField(void)

{

int key;

OwDisplay(ReadLine);

OwPutString(2,1,"Enter file name for saving the field",UPAL+0);

OwDrawFrame(FULL,SINGLE,UPAL+0);

CursorType(C_NORMAL);

key=OwGetString(2,2,UW-4,filename,sizeof(filename)-1,UPAL+1);

OwClose();

if(key!=K_ESC)

{

FILE *f;

f=fopen(filename,"w");

if(f==NULL)

{

Bell();

return;

}

Print(f);

fclose(f);

}

}

void Life(void)

{

int Running=0;

int ViewStep=10;

unsigned key;

OwDisplay(Root);

OwDisplay(StatusWin);

Center();

DisplayField();

do

{

MoveCursor((unsigned)(PosX-ShiftX),(unsigned)(PosY-ShiftY));

CursorType(C_NORMAL);

if(Running)

{

if(KeyPressed())

key=ReadKey();

else

key=' ';

}

else

key=ReadKey();

switch(key)

{

case('!'):

SuspendInterface();

#ifndef MSDOS

// system("exec $SHELL");

#else

system(getenv("COMSPEC"));

#endif

ResumeInterface();

continue;

case(K_F2):

SaveField();

continue;

case('c'):

case('C'): /* clear field */

Running=0;

Generation=0;

FreeField();

Center();

break;

case(' '):

Step();

Generation++;

break;

case('\t'):

ChangeCell(PosX,PosY,REV);

break;

case(M_BUTTON):

switch(LastButton)

{

case(LEFT_BUTTON):

ChangeCell(ShiftX+MouseX,ShiftY+MouseY,REV);

break;

case(RIGHT_BUTTON):

ShiftX+=MouseX-(int)(ScreenWidth>>1);

ShiftY+=MouseY-(int)(ScreenHeight>>1);

break;

default:

continue;

}

break;

case(M_MOVE):

if(Buttons&LEFT_BUTTON)

ChangeCell(ShiftX+MouseX,ShiftY+MouseY,REV);

else

continue;

break;

case('4'):

ShiftX-=ViewStep;

break;

case(K_LEFT):

PosX--;

if(PosX<ShiftX)

ShiftX-=ViewStep;

else

{

StatusLine();

continue;

}

break;

case('8'):

ShiftY-=ViewStep;

break;

case(K_UP):

PosY--;

if(PosY<ShiftY)

ShiftY-=ViewStep;

else

{

StatusLine();

continue;

}

break;

case('6'):

ShiftX+=ViewStep;

break;

case(K_RIGHT):

PosX++;

if(PosX>=ShiftX+(int)ScreenWidth)

ShiftX+=ViewStep;

else

{

StatusLine();

continue;

}

break;

case('2'):

ShiftY+=ViewStep;

break;

case(K_DOWN):

PosY++;

if(PosY>=ShiftY+(int)ScreenHeight)

ShiftY+=ViewStep;

else

{

StatusLine();

continue;

}

break;

case('5'):

Center();

break;

case('3'):

ShiftY+=ViewStep;

ShiftX+=ViewStep;

break;

case('1'):

ShiftY+=ViewStep;

ShiftX-=ViewStep;

break;

case('7'):

ShiftY-=ViewStep;

ShiftX-=ViewStep;

break;

case('9'):

ShiftY-=ViewStep;

ShiftX+=ViewStep;

break;

case('\r'):

Running=!Running;

break;

case('q'):

case('Q'):

case(27):

return;

default:

continue;

}

if(PosY<ShiftY)

PosY+=(ShiftY-PosY+ViewStep-1)/ViewStep*ViewStep;

if(PosX<ShiftX)

PosX+=(ShiftX-PosX+ViewStep-1)/ViewStep*ViewStep;

if(PosY>=ShiftY+(int)ScreenHeight)

PosY-=(PosY-ShiftY-(int)ScreenHeight+ViewStep)/ViewStep*ViewStep;

if(PosX>=ShiftX+(int)ScreenWidth)

PosX-=(PosX-ShiftX-(int)ScreenWidth+ViewStep)/ViewStep*ViewStep;;

DisplayField();

}

while(1);

}

int main(int argc,char *argv[])

{

FILE *f;

if(argc>=2)

{

f=fopen(argv[1],"r");

if(f==NULL)

{

perror(argv[1]);

return(1);

}

Load(f);

fclose(f);

}

else

{

f=fopen("field.lif","r");

if(f!=NULL)

{

Load(f);

fclose(f);

}

}

OwInitialize(root_pal);

ShowMouse(TRUE);

SetEventMask(KEYBOARD_EVENTS|MOUSE_EVENTS);

OwCreate(&StatusWin,0,DOWN,1,1,status_pal);

OwCreate(&ReadLine,MIDDLE,MIDDLE+5,60,4,readline_pal);

Life();

OwExit();

return(0);

}