geom_arc.c

#include "db.h"
#include "token.h"
#include "xwin.h"
#include "rubber.h"
#include "rlgetc.h"
#include "opt_parse.h"
#include <math.h>

// DB_TAB dbtab; 
DB_ARC dbarc;
void draw_arc(); 

OPTS aopts;

double gx1, gy1, x2, y2;

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

    int debug=0;
    int done=0;
    TOKEN token;
    char *word;
    double x3, y3;
    // static double xold, yold;

    if (debug) {printf("layer %d\n",*layer);}

    rl_saveprompt();
    rl_setprompt("ADD_ARC> ");

    opt_set_defaults(&aopts);

    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 (debug) printf("in start\n");
		if (token == OPT ) {
		    token_get(lp,&word); 
		    if (opt_parse(word, ARC_OPTS, &aopts) == -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("ARC", lp, "expected OPT or COORD", token);
		    state = END; 
		} 
		// xold=yold=0.0;
		break;
	    case NUM1:		/* get pair of xy coordinates */
		if (debug) printf("in num1\n");
		if (token == NUMBER) {
		    if (getnum(lp, "ARC", &gx1, &gy1)) {
			state = NUM2;
		    } else {
			state = END;
		    }
		} else if (token == EOL) {
		    token_get(lp,&word); 	/* just ignore it */
		} else if (token == EOC || CMD) {
		    state = END; 
		} else {
		    token_err("ARC", lp, "expected NUMBER", token);
		    state = END; 
		}
		break;
	    case NUM2:		/* get pair of xy coordinates */
		if (debug) printf("in num2\n");
		if (token == NUMBER) {
		    if (getnum(lp, "ARC", &x2, &y2)) {
			rubber_set_callback(draw_arc);
			state = NUM3;
		    } else {
		        state = END;
		    }
		} else if (token == EOL) {
		    token_get(lp,&word); /* just ignore it */
		} else if (token == EOC || CMD) {
		    state = END; 
		} else {
		    token_err("ARC", lp, "expected NUMBER", token);
		    state = END; 
		}
		break;
	    case NUM3:		/* get pair of xy coordinates */
		if (debug) printf("in num3\n");
		if (token == NUMBER) {
		    if (getnum(lp, "ARC", &x3, &y3)) {
			db_add_arc(currep, *layer, opt_copy(&aopts), gx1, gy1, x2, y2, x3, y3);
			need_redraw++;
			rubber_clear_callback();
			state=START;
	            } else {
			state=END;
		    }
		} else if (token == EOL) {
		    token_get(lp,&word); /* just ignore it */
		} else if (token == EOC || CMD) {
		    state = END; 
		} else {
		    token_err("ARC", lp, "expected NUMBER", token);
		    state = END; 
		}
		break;
	    case END:
	    default:
		if (debug) printf("in end\n");
	    	rubber_clear_callback();
		if (token == EOC || token == CMD) {
		    ;
		} else {
		    token_flush_EOL(lp);
		}
		done++;
		break;
	}
    }
    rl_restoreprompt();
    return(1);
}

void draw_arc(double x3, double y3, int count) 
{
	static double x3old, y3old;
	int debug=0;
	BOUNDS bb;
	static DB_DEFLIST dbdeflist;

	bb.init=0;

	/* DB_TAB dbtab;  */
	/* DB_DEFLIST dbdeflist; */
	/* DB_ARC dbarc; */

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

        dbdeflist.u.a = &dbarc;
        dbdeflist.type = ARC;

        dbarc.layer=1;
        dbarc.opts=&aopts;
	dbarc.x1 = gx1;
	dbarc.y1 = gy1;
	dbarc.x2 = x2;
	dbarc.y2 = y2;
	
	if (debug) {printf("in draw_arc\n");}

	if (count == 0) {		/* first call */
	    jump(&bb, D_RUBBER); /* draw new shape */
	    dbarc.x3 = x3;
	    dbarc.y3 = y3;
	    do_arc(&dbdeflist, &bb, D_RUBBER);

	} else if (count > 0) {		/* intermediate calls */
	    jump(&bb, D_RUBBER); /* erase old shape */
	    dbarc.x3 = x3old;
	    dbarc.y3 = y3old;
	    do_arc(&dbdeflist, &bb, D_RUBBER);
	    jump(&bb, D_RUBBER); /* draw new shape */
	    dbarc.x3 = x3;
	    dbarc.y3 = y3;
	    do_arc(&dbdeflist, &bb, D_RUBBER);
	} else {			/* last call, cleanup */
	    jump(&bb, D_RUBBER); /* erase old shape */
	    dbarc.x3 = x3old;
	    dbarc.y3 = y3old;
	    do_arc(&dbdeflist, &bb, D_RUBBER);
	}

	/* save old values */
	x3old=x3;
	y3old=y3;
	jump(&bb, D_RUBBER);
}