geom_circle.c

#include "db.h"
#include "xwin.h"
#include "token.h"
#include "rubber.h"
#include "rlgetc.h"
#include "opt_parse.h"
static double x1, y1;

DB_TAB dbtab; 
DB_DEFLIST dbdeflist;
DB_CIRC dbcirc;

OPTS opts;

void draw_circle();

int add_circ(LEXER *lp, int *layer)
{
    enum {START,NUM1,NUM2,END} state = START;

    int done=0;
    TOKEN token;
    char *word;
    double x2,y2;
    int debug=0;

    opt_set_defaults(&opts);
    opts.rotation = 2.0; 	/* default degrees resolution */
    opts.width = 0.0;		/* default width */

    if (debug) printf("layer %d\n",*layer);
    rl_saveprompt();
    rl_setprompt("ADD_CIRCLE> ");


    while (!done) {
	token = token_look(lp, &word);
	if (debug) printf("got %s: %s\n", tok2str(token), word); 
	if (token==CMD) {
	    state=END;
	} 
	switch(state) {	
	    case START:		/* get option or first xy pair */
		db_checkpoint(lp);
		if (token == OPT ) {
		    token_get(lp, &word); /* ignore for now */
		    /* FIXME: do bound checking on opts */
		    if (opt_parse(word, CIRC_OPTS, &opts) == -1) {
		    	state = END;
		    } else {
			state = START;
		    }
		} else if (token == NUMBER) {
		    state = NUM1;
		} else if (token == EOL) {
		    token_get(lp, &word); 	/* just eat it up */
		    state = START;
		} else if (token == EOC || token == CMD) {
		    state = END;	
		} else {
		    token_err("CIRCLE", lp, "expected OPT or NUMBER", token);
		    state = END;	/* error */
		}
		break;
	    case NUM1:		/* get pair of xy coordinates */
		if (token == NUMBER) {
		    if (getnum(lp, "CIRCLE", &x1, &y1)) {
			rubber_set_callback(draw_circle);
			state = NUM2;
		    } else {
			state = END;
		    }
		} else if (token == EOL) {
		    token_get(lp, &word); 	/* just ignore it */
		} else if (token == EOC || token == CMD) {
		    state = END; 
		} else {
		    token_err("CIRCLE", lp, "expected NUMBER", token);
		    state = END; 
		}
		break;
	    case NUM2:		/* get pair of xy coordinates */
		if (token == NUMBER) {
		    if (getnum(lp, "CIRCLE", &x2, &y2)) {
			state = START;
			db_add_circ(currep, *layer, opt_copy(&opts), x1, y1, x2, y2);
			rubber_clear_callback();
			need_redraw++;
		    } else {
			state = END;
		    }
		} else if (token == EOL) {
		    token_get(lp, &word); /* just ignore it */
		} else if (token == EOC || token == CMD) {
		    state = END; 
		} else {
		    token_err("CIRCLE", lp, "expected NUMBER", token);
		    state = END; 
		}
		break;
	    case END:
	    default:
		if (token == EOC || token == CMD) {
			;
		} else {
		    token_flush_EOL(lp);
		}
	    	rubber_clear_callback();
		done++;
		break;
	}
    }
    rl_restoreprompt();
    return(1);
}

void draw_circle(double x2, double y2, int count) 
{
	int debug=0;
	BOUNDS bb;

	bb.init=0;

        dbtab.dbhead = &dbdeflist;
        dbtab.next = NULL;
	dbtab.name = "callback";

        dbdeflist.u.c = &dbcirc;
        dbdeflist.type = CIRC;

        dbcirc.layer=1;
        dbcirc.x1 = x1; dbcirc.y1 = y1;
        dbcirc.opts = &opts;
	
	if (debug) {printf("in draw_circle\n");}

	if (count == 0) {		/* first call */
	    jump(&bb, D_RUBBER); /* draw new shape */
	    dbcirc.x2 = x2; dbcirc.y2 = y2;
	    do_circ(&dbdeflist, &bb, D_RUBBER);

	} else if (count > 0) {		/* intermediate calls */
	    jump(&bb, D_RUBBER); /* erase old shape */
	    do_circ(&dbdeflist, &bb, D_RUBBER);
	    jump(&bb, D_RUBBER); /* draw new shape */
	    dbcirc.x2 = x2; dbcirc.y2 = y2;
	    do_circ(&dbdeflist, &bb, D_RUBBER);
	} else {			/* last call, cleanup */
	    jump(&bb, D_RUBBER); /* erase old shape */
	    do_circ(&dbdeflist, &bb, D_RUBBER);
	}

	jump(&bb, D_RUBBER);
}