WebSVN – wimsdev – Blame – /trunk/wims/src/Flydraw/flylines.c

Rev	Author	Line No.	Line
10	reyssat	1	/* Copyright (C) 1998-2003 XIAO, Gang of Universite de Nice - Sophia Antipolis
		2	*
		3	* This program is free software; you can redistribute it and/or modify
		4	* it under the terms of the GNU General Public License as published by
		5	* the Free Software Foundation; either version 2 of the License, or
		6	* (at your option) any later version.
		7	*
		8	* This program is distributed in the hope that it will be useful,
		9	* but WITHOUT ANY WARRANTY; without even the implied warranty of
		10	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		11	* GNU General Public License for more details.
		12	*
		13	* You should have received a copy of the GNU General Public License
		14	* along with this program; if not, write to the Free Software
		15	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
		16	*/
7675	bpr	17	/* line input / output / translation routines
		18	* and error routines */
8102	bpr	19	#include "flydraw.h"
10	reyssat	20
		21	void error(char *p)
		22	{
		23	fprintf(stderr,"%s %d\n",p,linecnt);
		24	}
		25
7675	bpr	26	/* Get a line in a stored working file.
		27	* Buffer length is always MAX_LINELEN. */
4934	schaersvoo	28
10	reyssat	29	int ggetline(char buf[])
		30	{
		31	int c;
		32	int i;
		33	for(i=0,c=getchar();i<MAX_LINELEN;i++,c=getchar()) {
7675	bpr	34	if(c=='\n' \|\| c==EOF \|\| c==';') break;
		35	buf[i]=c;
10	reyssat	36	}
7675	bpr	37	buf[i]=0;
10	reyssat	38	if(linecnt!=-100000) linecnt++;
		39	return c;
		40	}
		41
		42	double getvar(char *p)
		43	{
		44	int i;
		45	for(i=0;i<varcnt && strcmp(p,vartab[i].name)!=0;i++);
		46	if(i<varcnt) return vartab[i].value;
		47	else return 0;
		48	}
		49
		50	void setvar(char *p, double v)
		51	{
		52	int i;
		53	if((strlen(p)>2 && strcmp(p,"animstep")!=0) \|\| !isalpha(*p)) return;
		54	for(i=0;i<varcnt && strcmp(p,vartab[i].name)!=0;i++);
		55	if(i<varcnt) {vartab[i].value=v; return;}
		56	else {
7675	bpr	57	if(varcnt>=MAX_VARS \|\| varnameptr>=varnamebuf+sizeof(varnamebuf)-1) return;
		58	ovlstrcpy(varnameptr,p);
		59	vartab[varcnt].name=varnameptr; vartab[varcnt].value=v;
		60	varnameptr+=strlen(varnameptr)+1; (varcnt)++;
10	reyssat	61	}
		62	}
		63
7675	bpr	64	/* Points to the end of a name */
10	reyssat	65	char find_name_end(char p)
		66	{
		67	int i;
		68	for(i=0;isalnum(*p) && i<MAX_LINELEN; p++,i++);
		69	return p;
		70	}
		71
7675	bpr	72	/* Find the beginning of a name */
10	reyssat	73	char find_name_start(char p)
		74	{
		75	int i;
		76	for(i=0; !isalpha(*p) && i<MAX_LINELEN; p++,i++);
		77	return p;
		78	}
		79
		80	void collapse_item(char *p, int n)
		81	{
		82	int i;
		83	char *pp;
		84	if(n<1) return;
		85	for(i=1,pp=strchr(p,','); i<n && pp!=NULL; i++,pp=strchr(pp+1,','));
		86	if(pp==NULL) *p=0;
3718	reyssat	87	else ovlstrcpy(p,pp+1);
10	reyssat	88	}
		89
		90	int getcolor(int r, int g, int b)
		91	{
		92	int col;
		93	if(r>255) r=255; if(r<0) r=0;
		94	if(g>255) g=255; if(g<0) g=0;
		95	if(b>255) b=255; if(b<0) b=0;
		96	col=gdImageColorExact(image, r, g, b);
		97	if(col==-1) col=gdImageColorAllocate(image,r,g,b);
		98	return col;
		99	}
		100
		101	int widthcolor(int w, int color)
		102	{
		103	int bg,fg,sh,e;
7675	bpr	104	/* already allocated */
10	reyssat	105	if(wimg!=NULL && savew==w && wcolor==color) goto end;
		106	if(wimg!=NULL) gdImageDestroy(wimg);
		107	wimg=gdImageCreate(w,w);
		108	if(wimg==NULL) {
7675	bpr	109	error("width_creation_failure"); return color;
10	reyssat	110	}
		111	bg=gdImageColorAllocate(wimg,255,255,255);
		112	gdImageColorTransparent(wimg,bg);
		113	fg=gdImageColorAllocate(wimg,gdImageRed(image,color),
7675	bpr	114	gdImageGreen(image,color),
		115	gdImageBlue(image,color));
10	reyssat	116	e=w-1;sh=e/3;
		117	switch(w) {
7675	bpr	118	case 2: {
		119	gdImageFill(wimg,0,0,fg); break;
		120	}
		121	case 3: {
		122	gdImageFill(wimg,0,0,fg);
		123	gdImageSetPixel(wimg,2,0,bg);gdImageSetPixel(wimg,2,2,bg);
		124	break;
		125	}
		126	case 4:
		127	case 5:
		128	case 6:
		129	case 7:
		130	case 8:
		131	case 9:
		132	case 10:
		133	case 11:
		134	case 12: {
8163	bpr	135	gdPoint pl[]={{0,sh}, {sh,0}, {e-sh,0}, {e,sh},
		136	{e,e-sh}, {e-sh,e}, {sh,e}, {0,e-sh}};
		137	gdImageFilledPolygon(wimg, pl,8,fg);
7675	bpr	138	break;
		139	}
		140	default: {
		141	gdImageArc(wimg,w/2,w/2,w,w,0,360,fg);
		142	gdImageFillToBorder(wimg,w/2,w/2,fg,fg);
		143	break;
		144	}
10	reyssat	145	}
		146	savew=w; wcolor=color;
		147	end: gdImageSetBrush(image,wimg); return gdBrushed;
		148	}
		149
7675	bpr	150	/* scale coordinates, x then y */
10	reyssat	151	void scale(double dbuf[], int ibuf[], int cnt)
		152	{
		153	int i; double x,y;
1024	bpr	154	for(i=0;i<cnt*2 && i<MAX_PARMS;i+=2) {
7675	bpr	155	if(transform) {
		156	x=dbuf[i]matrix[0]+dbuf[i+1]matrix[1];
		157	y=dbuf[i]matrix[2]+dbuf[i+1]matrix[3];
		158	}
		159	else {x=dbuf[i]; y=dbuf[i+1];}
		160	scale_buf[i]=x+transx; scale_buf[i+1]=y+transy;
		161	ibuf[i]=rint((x-xstart+transx)*xscale);
		162	ibuf[i+1]=rint((y-ystart+transy)*yscale);
		163	if(ibuf[i]<-BOUND) ibuf[i]=-BOUND;if(ibuf[i]>BOUND) ibuf[i]=BOUND;
		164	if(ibuf[i+1]<-BOUND) ibuf[i+1]=-BOUND;if(ibuf[i+1]>BOUND) ibuf[i+1]=BOUND;
10	reyssat	165	}
		166	}
		167
7675	bpr	168	/* scale without displacement */
10	reyssat	169	void scale2(double xin, double yin, double xout, double yout)
		170	{
		171	if(transform) {
7675	bpr	172	xout=xinmatrix[0]+yin*matrix[1];
		173	yout=xinmatrix[2]+yin*matrix[3];
10	reyssat	174	}
		175	else {
7675	bpr	176	xout=xin; yout=yin;
10	reyssat	177	}
		178	xout=xscale; yout=yscale;
		179	}
		180

Subversion Repositories wimsdev

(root)/trunk/wims/src/Flydraw/flylines.c – Rev 8163