Rev 8195 | Rev 8896 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| 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 | |
| 8195 | bpr | 21 | void fly_error(char *p) |
| 10 | reyssat | 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 | void setvar(char *p, double v) |
||
| 43 | { |
||
| 44 | int i; |
||
| 45 | if((strlen(p)>2 && strcmp(p,"animstep")!=0) || !isalpha(*p)) return; |
||
| 46 | for(i=0;i<varcnt && strcmp(p,vartab[i].name)!=0;i++); |
||
| 47 | if(i<varcnt) {vartab[i].value=v; return;} |
||
| 48 | else { |
||
| 7675 | bpr | 49 | if(varcnt>=MAX_VARS || varnameptr>=varnamebuf+sizeof(varnamebuf)-1) return; |
| 50 | ovlstrcpy(varnameptr,p); |
||
| 51 | vartab[varcnt].name=varnameptr; vartab[varcnt].value=v; |
||
| 52 | varnameptr+=strlen(varnameptr)+1; (varcnt)++; |
||
| 10 | reyssat | 53 | } |
| 54 | } |
||
| 55 | |||
| 7675 | bpr | 56 | /* Points to the end of a name */ |
| 10 | reyssat | 57 | char *find_name_end(char *p) |
| 58 | { |
||
| 59 | int i; |
||
| 60 | for(i=0;isalnum(*p) && i<MAX_LINELEN; p++,i++); |
||
| 61 | return p; |
||
| 62 | } |
||
| 63 | |||
| 7675 | bpr | 64 | /* Find the beginning of a name */ |
| 10 | reyssat | 65 | char *find_name_start(char *p) |
| 66 | { |
||
| 67 | int i; |
||
| 68 | for(i=0; !isalpha(*p) && i<MAX_LINELEN; p++,i++); |
||
| 69 | return p; |
||
| 70 | } |
||
| 71 | |||
| 72 | void collapse_item(char *p, int n) |
||
| 73 | { |
||
| 74 | int i; |
||
| 75 | char *pp; |
||
| 76 | if(n<1) return; |
||
| 77 | for(i=1,pp=strchr(p,','); i<n && pp!=NULL; i++,pp=strchr(pp+1,',')); |
||
| 78 | if(pp==NULL) *p=0; |
||
| 3718 | reyssat | 79 | else ovlstrcpy(p,pp+1); |
| 10 | reyssat | 80 | } |
| 81 | |||
| 82 | int getcolor(int r, int g, int b) |
||
| 83 | { |
||
| 84 | int col; |
||
| 85 | if(r>255) r=255; if(r<0) r=0; |
||
| 86 | if(g>255) g=255; if(g<0) g=0; |
||
| 87 | if(b>255) b=255; if(b<0) b=0; |
||
| 88 | col=gdImageColorExact(image, r, g, b); |
||
| 89 | if(col==-1) col=gdImageColorAllocate(image,r,g,b); |
||
| 90 | return col; |
||
| 91 | } |
||
| 92 | |||
| 93 | int widthcolor(int w, int color) |
||
| 94 | { |
||
| 95 | int bg,fg,sh,e; |
||
| 7675 | bpr | 96 | /* already allocated */ |
| 10 | reyssat | 97 | if(wimg!=NULL && savew==w && wcolor==color) goto end; |
| 98 | if(wimg!=NULL) gdImageDestroy(wimg); |
||
| 99 | wimg=gdImageCreate(w,w); |
||
| 100 | if(wimg==NULL) { |
||
| 8195 | bpr | 101 | fly_error("width_creation_failure"); return color; |
| 10 | reyssat | 102 | } |
| 103 | bg=gdImageColorAllocate(wimg,255,255,255); |
||
| 104 | gdImageColorTransparent(wimg,bg); |
||
| 105 | fg=gdImageColorAllocate(wimg,gdImageRed(image,color), |
||
| 7675 | bpr | 106 | gdImageGreen(image,color), |
| 107 | gdImageBlue(image,color)); |
||
| 10 | reyssat | 108 | e=w-1;sh=e/3; |
| 109 | switch(w) { |
||
| 7675 | bpr | 110 | case 2: { |
| 111 | gdImageFill(wimg,0,0,fg); break; |
||
| 112 | } |
||
| 113 | case 3: { |
||
| 114 | gdImageFill(wimg,0,0,fg); |
||
| 115 | gdImageSetPixel(wimg,2,0,bg);gdImageSetPixel(wimg,2,2,bg); |
||
| 116 | break; |
||
| 117 | } |
||
| 118 | case 4: |
||
| 119 | case 5: |
||
| 120 | case 6: |
||
| 121 | case 7: |
||
| 122 | case 8: |
||
| 123 | case 9: |
||
| 124 | case 10: |
||
| 125 | case 11: |
||
| 126 | case 12: { |
||
| 8163 | bpr | 127 | gdPoint pl[]={{0,sh}, {sh,0}, {e-sh,0}, {e,sh}, |
| 128 | {e,e-sh}, {e-sh,e}, {sh,e}, {0,e-sh}}; |
||
| 129 | gdImageFilledPolygon(wimg, pl,8,fg); |
||
| 7675 | bpr | 130 | break; |
| 131 | } |
||
| 132 | default: { |
||
| 133 | gdImageArc(wimg,w/2,w/2,w,w,0,360,fg); |
||
| 134 | gdImageFillToBorder(wimg,w/2,w/2,fg,fg); |
||
| 135 | break; |
||
| 136 | } |
||
| 10 | reyssat | 137 | } |
| 138 | savew=w; wcolor=color; |
||
| 139 | end: gdImageSetBrush(image,wimg); return gdBrushed; |
||
| 140 | } |
||
| 141 | |||
| 7675 | bpr | 142 | /* scale coordinates, x then y */ |
| 10 | reyssat | 143 | void scale(double dbuf[], int ibuf[], int cnt) |
| 144 | { |
||
| 145 | int i; double x,y; |
||
| 1024 | bpr | 146 | for(i=0;i<cnt*2 && i<MAX_PARMS;i+=2) { |
| 7675 | bpr | 147 | if(transform) { |
| 148 | x=dbuf[i]*matrix[0]+dbuf[i+1]*matrix[1]; |
||
| 149 | y=dbuf[i]*matrix[2]+dbuf[i+1]*matrix[3]; |
||
| 150 | } |
||
| 151 | else {x=dbuf[i]; y=dbuf[i+1];} |
||
| 152 | scale_buf[i]=x+transx; scale_buf[i+1]=y+transy; |
||
| 153 | ibuf[i]=rint((x-xstart+transx)*xscale); |
||
| 154 | ibuf[i+1]=rint((y-ystart+transy)*yscale); |
||
| 155 | if(ibuf[i]<-BOUND) ibuf[i]=-BOUND;if(ibuf[i]>BOUND) ibuf[i]=BOUND; |
||
| 156 | if(ibuf[i+1]<-BOUND) ibuf[i+1]=-BOUND;if(ibuf[i+1]>BOUND) ibuf[i+1]=BOUND; |
||
| 10 | reyssat | 157 | } |
| 158 | } |
||
| 159 | |||
| 7675 | bpr | 160 | /* scale without displacement */ |
| 10 | reyssat | 161 | void scale2(double xin, double yin, double *xout, double *yout) |
| 162 | { |
||
| 163 | if(transform) { |
||
| 7675 | bpr | 164 | *xout=xin*matrix[0]+yin*matrix[1]; |
| 165 | *yout=xin*matrix[2]+yin*matrix[3]; |
||
| 10 | reyssat | 166 | } |
| 167 | else { |
||
| 7675 | bpr | 168 | *xout=xin; *yout=yin; |
| 10 | reyssat | 169 | } |
| 170 | *xout*=xscale; *yout*=yscale; |
||
| 171 | } |
||
| 172 |