#include "lib9.h"#include "draw.h"#include "tk.h"#include "canvs.h" #define	O(t, e)		((long)(&((t*)0)->e)) /* Line Options (+ means implemented)	+arrow	+arrowshape	+capstyle	+fill	 joinstyle	+smooth	+splinesteps	+stipple	+tags	+width*/ staticTkStab tklines[] ={	"none",		0,	"first",	TkCarrowf,	"last",		TkCarrowl,	"both",		TkCarrowf|TkCarrowl,	nil}; staticTkStab tkcapstyle[] ={	"butt",	Endsquare,	"projecting",	Endsquare,	"round",	Enddisc,	nil}; staticTkOption lineopts[] ={	"arrow",	OPTstab,	O(TkCline, arrow),	tklines,	"arrowshape",	OPTfrac,	O(TkCline, shape[0]),	IAUX(3),	"width",	OPTnnfrac,	O(TkCline, width),	nil,	"stipple",	OPTbmap,	O(TkCline, stipple),	nil,	"smooth",	OPTstab,	O(TkCline, smooth),	tkbool,	"splinesteps",	OPTdist,	O(TkCline, steps),	nil,	"capstyle",	OPTstab,	O(TkCline, capstyle),	tkcapstyle,	nil}; staticTkOption itemopts[] ={	"tags",		OPTctag,	O(TkCitem, tags),	nil,	"fill",		OPTcolr,	O(TkCitem, env),	IAUX(TkCforegnd),	nil}; voidtkcvslinesize(TkCitem *i){	TkCline *l;	int j, w, as, shape[3], arrow; 	l = TKobj(TkCline, i);	w = TKF2I(l->width); 	i->p.bb = bbnil;	tkpolybound(i->p.drawpt, i->p.npoint, &i->p.bb); 	l->arrowf = l->capstyle;	l->arrowl = l->capstyle;	if(l->arrow != 0) {		as = w/3;		if(as < 1)			as = 1;		for(j = 0; j < 3; j++) {			shape[j] = l->shape[j];			if(shape[j] == 0)				shape[j] = as * cvslshape[j];		}		arrow = ARROW(TKF2I(shape[0]), TKF2I(shape[1]), TKF2I(shape[2]));		if(l->arrow & TkCarrowf)			l->arrowf = arrow;		if(l->arrow & TkCarrowl)			l->arrowl = arrow;		w += shape[2];	} 	i->p.bb = insetrect(i->p.bb, -w);} char*tkcvslinecreat(Tk* tk, char *arg, char **val){	char *e;	TkCline *l;	TkCitem *i;	TkCanvas *c;	TkOptab tko[3]; 	c = TKobj(TkCanvas, tk); 	i = tkcnewitem(tk, TkCVline, sizeof(TkCitem)+sizeof(TkCline));	if(i == nil)		return TkNomem; 	l = TKobj(TkCline, i);	l->width = TKI2F(1); 	e = tkparsepts(tk->env->top, &i->p, &arg, 0);	if(e != nil) {		tkcvsfreeitem(i);		return e;	} 	tko[0].ptr = l;	tko[0].optab = lineopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil;	e = tkparse(tk->env->top, arg, tko, nil);	if(e != nil) {		tkcvsfreeitem(i);		return e;	}	tkmkpen(&l->pen, i->env, l->stipple); 	e = tkcaddtag(tk, i, 1);	if(e != nil) {		tkcvsfreeitem(i);		return e;	} 	tkcvslinesize(i);	e = tkvalue(val, "%d", i->id);	if(e != nil) {		tkcvsfreeitem(i);		return e;	}	tkcvsappend(c, i); 	tkbbmax(&c->update, &i->p.bb);	tkcvssetdirty(tk);	return nil;} char*tkcvslinecget(TkCitem *i, char *arg, char **val){	TkOptab tko[3];	TkCline *l = TKobj(TkCline, i); 	tko[0].ptr = l;	tko[0].optab = lineopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil; 	return tkgencget(tko, arg, val, i->env->top);} char*tkcvslineconf(Tk *tk, TkCitem *i, char *arg){	char *e;	TkOptab tko[3];	TkCline *l = TKobj(TkCline, i); 	tko[0].ptr = l;	tko[0].optab = lineopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil; 	e = tkparse(tk->env->top, arg, tko, nil); 	tkmkpen(&l->pen, i->env, l->stipple);	tkcvslinesize(i); 	return e;} voidtkcvslinefree(TkCitem *i){	TkCline *l; 	l = TKobj(TkCline, i);	if(l->stipple)		freeimage(l->stipple);	if(l->pen)		freeimage(l->pen);} voidtkcvslinedraw(Image *img, TkCitem *i, TkEnv *pe){	int w;	Point *p;	TkCline *l;	Image *pen; 	USED(pe); 	l = TKobj(TkCline, i); 	pen = l->pen;	if(pen == nil)		pen = tkgc(i->env, TkCforegnd); 	w = TKF2I(l->width)/2;	if(w < 0)		return; 	p = i->p.drawpt;	if(l->smooth == BoolT && i->p.npoint >= 3)		bezspline(img, p, i->p.npoint, l->arrowf, l->arrowl, w, pen, p[0]);	else		poly(img, p, i->p.npoint, l->arrowf, l->arrowl, w, pen, p[0]);} char*tkcvslinecoord(TkCitem *i, char *arg, int x, int y){	char *e;	TkCpoints p; 	if(arg == nil) {		tkxlatepts(i->p.parampt, i->p.npoint, x, y);		tkxlatepts(i->p.drawpt, i->p.npoint, TKF2I(x), TKF2I(y));		i->p.bb = rectaddpt(i->p.bb, Pt(TKF2I(x), TKF2I(y)));	}	else {		e = tkparsepts(i->env->top, &p, &arg, 0);		if(e != nil)			return e;		if(p.npoint < 2) {			tkfreepoint(&p);			return TkFewpt;		}		tkfreepoint(&i->p);		i->p = p;		tkcvslinesize(i);	}	return nil;} inttkcvslinehit(TkCitem *i, Point p){	TkCline *l;	int w, np, r;	Point *pp; 	l = TKobj(TkCline, i);	w =TKF2I(l->width) + 2;	/* 2 for slop */ 	if (l->smooth == BoolT) {		np = getbezsplinepts(i->p.drawpt, i->p.npoint, &pp);		r = tklinehit(pp, np, w, p);		free(pp);	} else		r = tklinehit(i->p.drawpt, i->p.npoint, w, p);	return r;}