void erase_graphics_top(void) {
msm_hidecursor();
fg_fillbox(FG_BLACK, FG_MODE_SET, ~0, ztc_textbox);
msm_showcursor();
ztc_graph_textx = 0;
ztc_graph_texty = 3*texth;
}
void write_graphics_text ( int row , int col , char *text , int color )
{
fg_box_t box ;
if (drows <= 0)
return ;
fg_make_box ( box , col , row , col + strlen ( text ) * ccols - 1 ,
row + crows - 1 ) ;
fg_box_normalize ( box ) ;
fg_fillbox ( 0 , FG_MODE_SET , ~0 , box ) ;
fg_puts ( color , FG_MODE_SET , ~0 , FG_ROT0 , col ,
row , text , fg.displaybox ) ;
}
void ztc_put_char(int ch) {
fg_box_t temp_box;
msm_hidecursor();
if (in_graphics_mode && !in_splitscreen)
lsplitscreen(NIL);
if (ch != '\1' && ch != '\2') {
if (in_graphics_mode) {
if (ch == '\n') {
ztc_graph_textx = 0;
if (ztc_graph_texty - texth >= 0)
ztc_graph_texty -= texth;
else check_scroll();
} else if (ch == '\b') {
if (ztc_graph_textx > 0)
fg_adjustxy(FG_ROT180, 1, &ztc_graph_textx,
&ztc_graph_texty, fg.charbox);
} else if (ch == '\t') {
fg_adjustxy(FG_ROT0, 8 - (x_coord&07),
&ztc_graph_textx,
&ztc_graph_texty, fg.charbox);
if (ztc_graph_textx >= MaxX) print_char(stdout,'\n');
} else {
if (ztc_text_bgcolor != 0) {
temp_box[FG_X1] = temp_box[FG_X2] = ztc_graph_textx;
temp_box[FG_Y1] = temp_box[FG_Y2] = ztc_graph_texty;
fg_adjustxy(FG_ROT0, 2, &temp_box[FG_X2],
&temp_box[FG_Y2], fg.charbox);
temp_box[FG_Y2] += texth-1;
fg_fillbox(ztc_text_bgcolor, FG_MODE_SET, ~0, temp_box);
}
fg_putc(ztc_textcolor, FG_MODE_SET, ~0, FG_ROT0,
ztc_graph_textx, ztc_graph_texty,
ch, fg.displaybox);
fg_adjustxy(FG_ROT0, 1, &ztc_graph_textx,
&ztc_graph_texty, fg.charbox);
if (ztc_graph_textx >= MaxX) print_char(stdout,'\n');
}
} else
disp_putc(ch);
}
msm_showcursor();
}
void check_scroll(void) {
msm_hidecursor();
fg_blit(text_scroll_box, 0, texth, fg.activepage, fg.activepage);
fg_fillbox(FG_BLACK, FG_MODE_SET, ~0, text_last_line_box);
msm_showcursor();
}
void ibm_clear_screen(void)
{
msm_hidecursor();
fg_fillbox(bg_color, FG_MODE_SET, ~0, clear_box);
msm_showcursor();
}
void show_orgs()
{
struct organism *org;
int i, j, num=1, total, x, y, lastnumcells=0, last;
char key;
char string[110];
fg_box_t nbox, xbox, lbox, blankbox, topbox, cellbox, itembox;
fg_msm_cursor_t arrow = {arrow_matrix,{0,0,7,14}, 0, 14};
unsigned int status, last_status;
fg_coord_t xx, yy;
int stop=0, response;
fg_color_t pcols[10] = {2,3,4,5,6,9,10,12,13,14};
nbox [FG_X1] = 0;
nbox [FG_Y1] = 581;
nbox [FG_X2] = 98;
nbox [FG_Y2] = 597;
lbox [FG_X1] = 0;
lbox [FG_Y1] = 561;
lbox [FG_X2] = 98;
lbox [FG_Y2] = 577;
xbox [FG_X1] = 0;
xbox [FG_Y1] = 541;
xbox [FG_X2] = 98;
xbox [FG_Y2] = 557;
topbox[FG_X1] = 100;
topbox[FG_X2] = 799;
topbox[FG_Y1] = 541;
topbox[FG_Y2] = 597;
blankbox[FG_X1] = 0;
blankbox[FG_X2] = 394;
cellbox[FG_Y1]=400;
cellbox[FG_Y2]=420;
cellbox[FG_X1]=100;
cellbox[FG_X2]=140;
fg_msm_setcursor(arrow);
fg_msm_motion(0);
fg_msm_setcurpos(fg_box_width(fg_displaybox)/2, fg_box_height(fg_displaybox)/2);
fg_msm_showcursor();
fg_fillbox(FG_BLUE, FG_MODE_SET, ~0, nbox);
fg_fillbox(FG_BLUE, FG_MODE_SET, ~0, lbox);
fg_fillbox(FG_RED, FG_MODE_SET, ~0, xbox);
fg_drawbox(FG_LIGHT_BLUE,FG_MODE_SET,~0,FG_LINE_SOLID,nbox,fg.displaybox);
fg_drawbox(FG_LIGHT_BLUE,FG_MODE_SET,~0,FG_LINE_SOLID,lbox,fg.displaybox);
fg_drawbox(FG_LIGHT_RED,FG_MODE_SET,~0,FG_LINE_SOLID,xbox,fg.displaybox);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 10, 582, "NEXT", fg.displaybox);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 10, 562, "LAST", fg.displaybox);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 10, 542, "EXIT", fg.displaybox);
sprintf(string," CYCLES: %8.0f",cycles);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 550, 580, string,fg.displaybox);
sprintf(string,"POPULATION: %8d",numorgs);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 550, 565, string,fg.displaybox);
sprintf(string," SPAWNED: %8.0f", numspawned);
fg_puts(FG_WHITE, FG_MODE_SET, ~0, FG_ROT0, 550, 550, string,fg.displaybox);
fg_drawbox(FG_BLUE,FG_MODE_SET,~0,FG_LINE_SOLID,topbox,fg.displaybox);
show_colour_table();
show_inputs();
itembox[FG_Y1]=400;
itembox[FG_Y2]=420;
itembox[FG_X1]=0;
itembox[FG_X2]=98;
org = root;
while(!stop){
if(lastnumcells>org->numcells){
blankbox[FG_Y1]=420-(lastnumcells*22);
blankbox[FG_Y2]=420-(org->numcells*22);
fg_fillbox(FG_BLACK,FG_MODE_SET,~0,blankbox);
}
lastnumcells = org->numcells;
itembox[FG_Y1]=400;
itembox[FG_Y2]=420;
show_bug_details(org, num);
for(i=0;i<org->numcells;i++){
sprintf(string,"Cell: %2d",i+1);
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,cellbox[FG_X1]-80,cellbox[FG_Y1]+3,string,fg.displaybox);
fg_drawbox(FG_BLUE,FG_MODE_SET,~0,FG_LINE_SOLID,itembox,fg.displaybox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
for(j=0;j<NUMINPUTS;j++){
fg_fillbox(pcols[org->cells[i]->inout[j]],FG_MODE_SET,~0,cellbox);
sprintf(string,"%2d",org->cells[i]->next[j]+1);
fg_puts(FG_BLACK,FG_MODE_SET,~0,FG_ROT0,cellbox[FG_X1]+10,cellbox[FG_Y1]+3,string,fg.displaybox);
cellbox[FG_X1]+=42;
cellbox[FG_X2]+=42;
}
cellbox[FG_X1]=100;
cellbox[FG_X2]=140;
cellbox[FG_Y1]-=22;
cellbox[FG_Y2]-=22;
}
cellbox[FG_Y1]=400;
cellbox[FG_Y2]=420;
response=0;
while(!response){
fg_flush();
last_status = status;
status = fg_msm_getstatus(&xx, &yy);
if(kbhit()) key = getch();
if((key == 'n')||((fg_pt_inbox(nbox, xx, yy))&&(status == FG_MSM_LEFT))) {
get_release(FG_WHITE,10,582,"NEXT");
org = org->next;
if(org==NULL){
org = root;
num = 0;
}
response++;
num++;
key = 'w';
}
else if((key == 'l')||((fg_pt_inbox(lbox, xx, yy))&&(status == FG_MSM_LEFT))) {
get_release(FG_WHITE,10,562,"LAST");
last = num-1;
if(last < 1){
while(org->next!=NULL){
org = org->next;
num++;
}
}
else {
org = root;
num = 1;
while(num!=last){
org = org->next;
num++;
}
}
response++;
key = 'w';
}
else if((key == 'x')||((fg_pt_inbox(xbox, xx, yy))&&(status == FG_MSM_LEFT))){
get_release(FG_WHITE,10,542,"EXIT");
stop++;
key = 'w';
response++;
}
}
}
fg_msm_hidecursor();
}
void show_colour_table()
{
char string[110];
fg_box_t itembox;
int i=0;
fg_color_t pcols[10] = {2,3,4,5,6,9,10,12,13,14};
/* COLOUR CODING TABLE */
itembox[FG_Y1]=410;
itembox[FG_Y2]=420;
itembox[FG_X1]=440;
itembox[FG_X2]=450;
sprintf(string,"Move Left");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Move Right");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Move Ahead");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Pher Left");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Pher Right");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Pher Ahead");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Turn Left");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Turn Right");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Stay Still");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
itembox[FG_Y1]-=22;
itembox[FG_Y2]-=22;
sprintf(string,"Reproduce");
fg_puts(FG_WHITE,FG_MODE_SET,~0,FG_ROT0,itembox[FG_X2]+3,itembox[FG_Y1]-2,string,fg.displaybox);
fg_fillbox(pcols[i++],FG_MODE_SET,~0,itembox);
}
