https://github.com/jrincayc/ucblogo-code
Raw File
Tip revision: 9193bdc5ad3c6a6332421f14021317b66dcb9618 authored by Joshua J. Cogliati on 14 December 2020, 03:39:19 UTC
Bumping version to 6.2 (and 6.2pre in configure.ac)
Tip revision: 9193bdc
ztcterm.c
/*
 *      ztcterm.c           IBM screen module             mak
 *
 *	Copyright (C) 1993 by the Regents of the University of California
 *
 *      This program is free software: you can redistribute it and/or modify
 *      it under the terms of the GNU General Public License as published by
 *      the Free Software Foundation, either version 3 of the License, or
 *      (at your option) any later version.
 *
 *      This program is distributed in the hope that it will be useful,
 *      but WITHOUT ANY WARRANTY; without even the implied warranty of
 *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *      GNU General Public License for more details.
 *
 *      You should have received a copy of the GNU General Public License
 *      along with this program.  If not, see <https://www.gnu.org/licenses/>.
 *
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "logo.h"
#include "globals.h"
#include <math.h>
#include <bios.h>
#include <fg.h>
#include <conio.h>
#include <disp.h>
#include <sound.h>
#include <io.h>
#include <msmouse.h>
#include "ztcterm.h"

char *LogoPlatformName="DOS";

/************************************************************/

unsigned _stack = 8000; /* 5000 for debugging, 65000 for real */

BOOLEAN in_graphics_mode = FALSE, in_splitscreen = FALSE;
BOOLEAN have_been_in_graphics_mode = FALSE, can_do_color = FALSE;
BOOLEAN in_erase_mode = FALSE;

/* NOTE NOTE NOTE:  graphics.c really really believes that the top left
 * corner of the screen has hardware coords (0,0).  Zortech has (0,0)
 * in the BOTTOM left.  It's hopeless to fix graphics.c so instead we
 * use the following kludge: go ahead and think the screen is upside down,
 * and switch to Zortech coords only in draw_line! */

int ibm_screen_bottom;
int current_write_mode = FG_MODE_SET;
int current_vis = 0;
fg_color_t turtle_color, bg_color;
fg_color_t dull, bright;
fg_coord_t texth;
fg_coord_t MaxX, MaxY;
int ztc_penwidth = 1, ztc_linepattern = -1;
fg_box_t ztc_box, ztc_textbox, text_scroll_box, text_last_line_box, clear_box;
void rgb_init(void);
int scrunching = FALSE;

fg_line_t the_line;
fg_coord_t ztc_x, ztc_y;
fg_color_t ztc_textcolor;
fg_color_t ztc_text_bgcolor = 0;
fg_coord_t ztc_graph_textx, ztc_graph_texty;
FIXNUM pen_color = 0, back_ground = 7;

void moveto(int x, int y) {
    ztc_x = (fg_coord_t)x;
    ztc_y = (fg_coord_t)y;
}

void lineto(int x, int y) {
    msm_hidecursor();
    fg_make_line(the_line, ztc_x, MaxY-ztc_y,
    		 (fg_coord_t)x, MaxY-(fg_coord_t)y);
    fg_drawthickline((in_erase_mode ? bg_color : turtle_color),
		   current_write_mode, ~0, FG_LINE_SOLID, the_line, ztc_box,
		   ztc_penwidth);
    moveto(x, y);
    msm_showcursor();
}

void outtext(char *s) {
    msm_hidecursor();
    fg_puts((in_erase_mode ? bg_color : turtle_color),
    	    current_write_mode, ~0, FG_ROT0, ztc_x, MaxY-ztc_y,
    	    s, fg.displaybox);
    msm_showcursor();
}

void gr_mode(void) {
    int errorcode;

    if (!in_graphics_mode) {
	msm_hidecursor();
	x_coord = x_margin;
	y_coord = y_margin;
	errorcode = fg_init();
	if (have_been_in_graphics_mode) {
	    in_graphics_mode = TRUE;
	    if (turtle_shown && !refresh_p) draw_turtle();
	    redraw_graphics();
	}
	else {
	    if (errorcode == 0)
		err_logo(BAD_GRAPH_INIT, NIL);
	    else {
		in_graphics_mode = have_been_in_graphics_mode = TRUE;
		if (can_do_color = (fg.nsimulcolor > 16 /* != fg.ncolormap */ )) {
			rgb_init();
			dull = fg.nsimulcolor-1;
			bright = 7;
		} else {
			turtle_color = FG_HIGHLIGHT;
			dull = FG_WHITE;
			bright = FG_HIGHLIGHT;
		}
		bg_color = FG_BLACK;
		ztc_set_penc(7);
		if (ztc_textcolor == FG_WHITE) ztc_textcolor = dull;
		back_ground = 0;
		ztc_box[FG_X1] = ztc_textbox[FG_X1]
			       = text_scroll_box[FG_X1]
			       = text_last_line_box[FG_X1]
			       = clear_box[FG_X1]
			       = fg.displaybox[FG_X1];
		ztc_textbox[FG_Y1] = fg.displaybox[FG_Y1];
		ztc_box[FG_X2] = ztc_textbox[FG_X2]
			       = text_scroll_box[FG_X2]
			       = text_last_line_box[FG_X2]
			       = clear_box[FG_X2]
			       = MaxX = fg.displaybox[FG_X2];
		ztc_box[FG_Y2] = MaxY
			       = clear_box[FG_Y2]
			       = fg.displaybox[FG_Y2];
		y_scale = (double)fg.pixelx/(double)fg.pixely;
		{
		    FILE *fp = fopen("scrunch.dat","r");
		    if (fp != NULL) {
		    	scrunching = TRUE;
			if (filelength(fileno(fp)) > 0) {
			    fread(&x_scale, sizeof(FLONUM), 1, fp);
			    fread(&y_scale, sizeof(FLONUM), 1, fp);
			}
			fclose(fp);
		    }
		}
		if (MaxY == 479)
		    texth = 16;
		else
		    texth = (MaxY+1)/25;
		ztc_box[FG_Y1] = 4*texth+1;
		clear_box[FG_Y1] = 4*texth;
		ibm_screen_bottom = MaxY - (ztc_box[FG_Y1]);
		ztc_textbox[FG_Y2] = 4*texth-1;
		text_scroll_box[FG_Y2] = 3*texth-1;
		text_scroll_box[FG_Y1] = 0;
		text_last_line_box[FG_Y2] = texth-1;
		lclearscreen(NIL);
		lcleartext(NIL);
		in_splitscreen = TRUE;
	   }
	}
	msm_showcursor();
    }
}

void nop() {
}

void init_ibm_memory(void) {
}

volatile int ctrl_c_count = 0;

BOOLEAN check_ibm_stop(void) {
    int key;
    int __ss *p;

/*    if (kbhit())
	getch(); */   /* allow DOS to test for control-C */

    p = &key;
    if ((int)p < 500) {
	err_logo(STACK_OVERFLOW, NIL);
	return(1);
    }

    if (((key = bioskey(1)) == (4113)) || ctrl_c_count > 0) { /* control-q */
	if (ctrl_c_count == 0) getch();
	ctrl_c_count = 0;
	err_logo(STOP_ERROR,NIL);
	return(1);
    }
    if (key == (4375)) { /* control-w */
	getch();
	to_pending = 0;
	lpause(NIL);
    }
    return (0);
}

void term_init_ibm(void) {
    disp_open();
    msm_init();
    msm_setareay(0,(disp_numrows-1)*8);
    msm_showcursor();
    ztc_textcolor = FG_WHITE;
    tty_charmode = 0;
    x_max = 80;
    y_max = 25;
    x_coord = y_coord = 0;
    so_arr[0] = '\1'; so_arr[1] = '\0';
    se_arr[0] = '\2'; se_arr[1] = '\0';
}

void ibm_gotoxy(int x, int y) {
    if (in_graphics_mode) {
	if (!in_splitscreen)
	    lsplitscreen(NIL);
	if (y >= 4) y = 3;
	ztc_graph_texty = texth*(3-y);
	fg_adjustxy(FG_ROT0, x, &ztc_graph_textx,
		    &ztc_graph_texty, fg.charbox);
    } else {
        disp_move(y, x);
	msm_hidecursor();
    	disp_flush();
	msm_showcursor();
    }
}

fg_color_t color_table[8] = {0, 9, 10, 11, 12, 13, 14, 15};

FIXNUM hw_color(FIXNUM c) {
    if (can_do_color) return c;
    if (c >= 0 && c < 8) return color_table[c];
    if (c < 0) return c;
    return c-8;
}

void ibm_clear_text(void) {
    if (in_graphics_mode) {
	if (in_splitscreen)
	    erase_graphics_top();
    } else {
	disp_move(0,0);
	disp_eeop();
	msm_hidecursor();
	disp_flush();
	msm_showcursor();
    }
}

void ibm_clear_screen(void)
{
    msm_hidecursor();
    fg_fillbox(bg_color, FG_MODE_SET, ~0, clear_box);
    msm_showcursor();
}

void ibm_plain_mode(void) {
    if (in_graphics_mode)
	ztc_textcolor = dull;
    else
	disp_endstand();
}

void ibm_bold_mode(void) {
    if (in_graphics_mode)
	ztc_textcolor = bright;
    else
	disp_startstand();
}

NODE *set_text_color(NODE *args) {
    int fore, back;

    fore = getint(pos_int_arg(args));
    if (NOT_THROWING) {
        back = getint(pos_int_arg(cdr(args)));
        if (NOT_THROWING) {
	    ztc_textcolor = hw_color(fore);
	    ztc_text_bgcolor = hw_color(back);
	    disp_setattr((back&07)<<4 | (fore&07));
        }
    }
    return UNBOUND;
}

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;
}

/************************************************************/
/* These are the machine-specific graphics definitions.  All versions must
   provide a set of functions analogous to these. */

void save_pen(pen_info *p) {
    p->h = ztc_x;
    p->v = ztc_y;
    p->vis = current_vis;
    p->width = ztc_penwidth;
    p->color = turtle_color;
    get_pen_pattern(p->pattern);
    p->mode = get_ibm_pen_mode();
}

void restore_pen(pen_info *p) {
    moveto(p->h, p->v);
    current_vis = p->vis;
    ztc_penwidth = p->width;
    set_ibm_pen_mode(p->mode);  /* must restore mode before color */
    turtle_color = p->color;
    set_pen_pattern(p->pattern);
}

struct rgbcolor { int red, green, blue; } the_palette[256] = { 
	{0,0,0}, {0,0,0},    /* entries -2 and -1 */
	{0, 0, 0}, {0, 0, 255}, {0, 255, 0}, {0, 255, 255},
	{255, 0, 0}, {255, 0, 255}, {255, 255, 0}, {255, 255, 255},
	{155, 96, 59}, {197, 136, 18}, {100, 162, 64}, {120, 187, 187},
	{255, 149, 119}, {144, 113, 208}, {255, 163, 0}, {183, 183, 183}};

void rgb_init(void) {
	int i,j;

	for (i=0; i<16; i++) {
		fg_setpalette(i+2, the_palette[i+2].red,
					the_palette[i+2].green,
					the_palette[i+2].blue);
		for (j=i+16; j<fg.nsimulcolor; j += 16) {
			the_palette[j+2] = the_palette[i+2];
			fg_setpalette(j+2, the_palette[i+2].red,
					the_palette[i+2].green,
					the_palette[i+2].blue);
		}
	}
}

void plain_xor_pen(void) {
    ztc_penwidth = 1;
    turtle_color = hw_color(pen_color)^bg_color;
    current_write_mode = FG_MODE_XOR;
    in_erase_mode = FALSE;
}

void ztc_set_penc(FIXNUM c) {
    draw_turtle();
    pen_color = c;
    turtle_color = hw_color(c) % fg.nsimulcolor;
    if (current_write_mode == FG_MODE_XOR)
	turtle_color = hw_color(pen_color)^bg_color;
    msm_hidecursor();
    draw_turtle();
    msm_showcursor();
}

void ztc_set_bg(FIXNUM c) {
    back_ground = c;
    bg_color = hw_color(c);
    msm_hidecursor();
    if (!refresh_p) ibm_clear_screen();
    if (turtle_shown && !refresh_p) draw_turtle();
    redraw_graphics();
    msm_showcursor();
}

void set_palette(int slot, unsigned int r, unsigned int g, unsigned int b) {
	slot+=2;
	if (slot >= 255) return;
	the_palette[slot].red = (r+128)/256;
	the_palette[slot].green = (g+128)/256;
	the_palette[slot].blue = (b+128)/256;
	fg_setpalette(slot-1, the_palette[slot].red, the_palette[slot].green,
					the_palette[slot].blue);
}

void get_palette(int slot, unsigned int *r, unsigned int *g, unsigned int *b) {
	slot+=2;
	*r = the_palette[slot % 256].red * 256;
	*g = the_palette[slot % 256].green * 256;
	*b = the_palette[slot % 256].blue * 256;
}

void ibm_pen_down(void) {
    current_write_mode = FG_MODE_SET;
    turtle_color = hw_color(pen_color);
    in_erase_mode = FALSE;
}

void ibm_pen_xor(void) {
    current_write_mode = FG_MODE_XOR;
    turtle_color = hw_color(pen_color)^bg_color;
    in_erase_mode = FALSE;
}

void ibm_pen_erase(void) {
    if (!in_erase_mode) {
	current_write_mode = FG_MODE_SET;
	turtle_color = hw_color(pen_color);
	in_erase_mode = TRUE;
    }
}

int get_ibm_pen_mode(void) {
    if (in_erase_mode)
	return 2;
    else
	return current_write_mode;
}

void set_ibm_pen_mode(int m) {
    switch (m) {
	case 2: ibm_pen_erase(); break;
	case FG_MODE_SET: ibm_pen_down(); break;
	case FG_MODE_XOR: ibm_pen_xor(); break;
    }
}

int get_ibm_pen_width(void) {
    return ztc_penwidth;
}

void set_pen_pattern(char *pat) {
    ztc_linepattern = *(int *)pat;
}

void set_list_pen_pattern(NODE *arg) {
    NODE *temp;

    temp = cnv_node_to_numnode(car(arg));
    ztc_linepattern = getint(temp);
}

void get_pen_pattern(char *pat) {
    *(int *)pat = ztc_linepattern;
}

NODE *Get_node_pen_pattern(void) {
    return(cons(make_intnode(0-1L), NIL));
}

void label(char *s) {
    gr_mode();
    moveto(g_round(screen_x_coord), g_round(screen_y_coord));
    outtext(s);
}

void logofill(void) {
    msm_hidecursor();
    fg_fill(ztc_x, MaxY-ztc_y, turtle_color, turtle_color);
    msm_showcursor();
}

void erase_screen(void) {
    ibm_clear_screen();
}

void t_screen(void) {
    if (in_graphics_mode) {
	fg_term();
	in_graphics_mode = FALSE;
	in_splitscreen = FALSE;
	y_max = 25;
    }
}

void s_screen(void) {
    int save_vis;

    if (in_graphics_mode && !in_splitscreen) {
	if (turtle_shown && (screen_y_coord > (MaxY - (4*texth+1)))) {
	    save_vis = current_vis;
	    current_vis = -1;
	    lhome(NIL);
	    current_vis = save_vis;
	}
	erase_graphics_top();
    }
    if (!have_been_in_graphics_mode) gr_mode();
    in_splitscreen = TRUE;
    ztc_box[FG_Y1] = 4*texth+1;
    clear_box[FG_Y1] = 4*texth;
    ibm_screen_bottom = MaxY - (ztc_box[FG_Y1]);
    y_max = 4;
    gr_mode();
}

void f_screen(void) {
    if (in_graphics_mode && in_splitscreen)
	erase_graphics_top();
    in_splitscreen = FALSE;
    ztc_box[FG_Y1] = clear_box[FG_Y1] = 0;
    ibm_screen_bottom = MaxY;
    gr_mode();
}

FIXNUM mickey_x(void) {
    int x,y;

    (void)msm_getstatus(&x,&y);
    return x-screen_x_center;
}

#define screen_x_coord ((screen_x_center) + turtle_x)
#define screen_y_coord ((screen_y_center) - turtle_y)

FIXNUM mickey_y(void) {
    int x,y;

    (void)msm_getstatus(&x,&y);
    return screen_y_center-y;
}

BOOLEAN Button(void) {
    int x,y,b;

    b = msm_getstatus(&x,&y);
    if (b&1) return 1;
    if (b&2) return 2;
    if (b&4) return 3;
    return 0;
}

void tone(FIXNUM pitch, FIXNUM duration) {
    FIXNUM period = 2400000L/pitch;		/* 200000 */
    FIXNUM cycles = duration * pitch/60;
    if (cycles > 0)
        sound_tone((int)cycles, (int)period, (int)period);
}

FIXNUM t_height(void) {
    return 18;
}

FLONUM t_half_bottom(void) {
    return 6.0;
}

FLONUM t_side(void) {
    return 19.0;
}

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 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();
}

BOOLEAN cursor_off = 0;

void fix_cursor(void) {
    if (!cursor_off && !in_graphics_mode) {
	msm_hidecursor();
    	disp_hidecursor();
	msm_showcursor();
	cursor_off++;
    }
}

void zflush(void) {
    msm_hidecursor();
    if (in_graphics_mode)
	fg_flush();
    else {
	disp_flush();
	if (cursor_off) disp_showcursor();
	cursor_off = 0;
    }
    msm_showcursor();
}

void newline_bugfix(void) {
    msm_hidecursor();
    if (!in_graphics_mode) {
	if (disp_cursorrow+1 < disp_numrows)
    	    new_line(stdout);
	else
	    disp_move(disp_numrows-1,0);
	disp_flush();
    }
    msm_showcursor();
    y_coord--;
}

char graph_line_buffer[200];
char *graph_line_pointer = NULL;

int ztc_getc(FILE *strm) {
    int ch;
    fg_color_t save_textcolor;

    if (strm != stdin || !interactive || !in_graphics_mode)
	return getc(strm);
    if (graph_line_pointer != NULL) {
	ch = *graph_line_pointer++;
	if (ch == '\t') graph_line_pointer += 2;
	if (ch != '\0') return ch;
    }
    graph_line_pointer = graph_line_buffer;
    do {
	msm_hidecursor();
	fg_putc(dull, FG_MODE_XOR, ~0, FG_ROT0,
		ztc_graph_textx, ztc_graph_texty,
		'_', fg.displaybox);
	msm_showcursor();
	ch = getch();
	msm_hidecursor();
	fg_putc(dull, FG_MODE_XOR, ~0, FG_ROT0,
		ztc_graph_textx, ztc_graph_texty,
		'_', fg.displaybox);
	if (ch == '\r' || ch == '\n') {
	    ch = '\n';
	    *graph_line_pointer++ = ch;
	    print_char(stdout,'\n');
	    *graph_line_pointer = '\0';
	    graph_line_pointer = graph_line_buffer;
	    msm_showcursor();
	    return *graph_line_pointer++;
	} else if (ch == '\t') {
	    int i = 8 - (x_coord & 07);
	    *graph_line_pointer++ = '\t';
	    *graph_line_pointer++ = (char)i;
	    *graph_line_pointer++ = '\t';
	    print_char(stdout, '\t');
	} else if (ch == 0177 || ch == '\b') {
	    if (graph_line_pointer != graph_line_buffer) {
		graph_line_pointer--;
		if (*graph_line_pointer == '\t') {
		    int i = (int)*--graph_line_pointer;
		    --graph_line_pointer;
		    while (i-- > 0) print_char(stdout, '\b');
		} else {
		    print_char(stdout, '\b');
		    save_textcolor = ztc_textcolor;
		    ztc_textcolor = ztc_text_bgcolor;
		    print_char(stdout, *graph_line_pointer);
		    ztc_textcolor = save_textcolor;
		    print_char(stdout, '\b');
		}
	    }
	} else if (ch == 17 || ch == 23) {
	    print_char(stdout,'\n');
	    graph_line_pointer = NULL;
	    msm_showcursor();
	    return ch;
	} else {
	    *graph_line_pointer++ = ch;
	    print_char(stdout, ch);
	}
	msm_showcursor();
    } while (ch != '\n');
    graph_line_pointer = graph_line_buffer;
    return *graph_line_pointer++;
}

void ztc_getcr(void) {
    (void) ztc_getc(stdin);
    graph_line_pointer = NULL;
}
back to top