Rev 8896 | Rev 11120 | 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 | } |
||
| 8896 | bpr | 71 | /* on prend les items à partir du n-ieme et on les recopie sur place au debut de la chaine |
| 72 | de caracteres */ |
||
| 10 | reyssat | 73 | |
| 74 | void collapse_item(char *p, int n) |
||
| 75 | { |
||
| 76 | int i; |
||
| 77 | char *pp; |
||
| 78 | if(n<1) return; |
||
| 79 | for(i=1,pp=strchr(p,','); i<n && pp!=NULL; i++,pp=strchr(pp+1,',')); |
||
| 80 | if(pp==NULL) *p=0; |
||
| 3718 | reyssat | 81 | else ovlstrcpy(p,pp+1); |
| 10 | reyssat | 82 | } |
| 8897 | bpr | 83 | /* same in Texgif/image.c */ |
| 10 | reyssat | 84 | int getcolor(int r, int g, int b) |
| 85 | { |
||
| 86 | int col; |
||
| 87 | if(r>255) r=255; if(r<0) r=0; |
||
| 88 | if(g>255) g=255; if(g<0) g=0; |
||
| 89 | if(b>255) b=255; if(b<0) b=0; |
||
| 90 | col=gdImageColorExact(image, r, g, b); |
||
| 91 | if(col==-1) col=gdImageColorAllocate(image,r,g,b); |
||
| 92 | return col; |
||
| 93 | } |
||
| 94 | |||
| 95 | int widthcolor(int w, int color) |
||
| 96 | { |
||
| 97 | int bg,fg,sh,e; |
||
| 7675 | bpr | 98 | /* already allocated */ |
| 10 | reyssat | 99 | if(wimg!=NULL && savew==w && wcolor==color) goto end; |
| 100 | if(wimg!=NULL) gdImageDestroy(wimg); |
||
| 101 | wimg=gdImageCreate(w,w); |
||
| 102 | if(wimg==NULL) { |
||
| 8195 | bpr | 103 | fly_error("width_creation_failure"); return color; |
| 10 | reyssat | 104 | } |
| 105 | bg=gdImageColorAllocate(wimg,255,255,255); |
||
| 106 | gdImageColorTransparent(wimg,bg); |
||
| 107 | fg=gdImageColorAllocate(wimg,gdImageRed(image,color), |
||
| 7675 | bpr | 108 | gdImageGreen(image,color), |
| 109 | gdImageBlue(image,color)); |
||
| 10 | reyssat | 110 | e=w-1;sh=e/3; |
| 111 | switch(w) { |
||
| 7675 | bpr | 112 | case 2: { |
| 113 | gdImageFill(wimg,0,0,fg); break; |
||
| 114 | } |
||
| 115 | case 3: { |
||
| 116 | gdImageFill(wimg,0,0,fg); |
||
| 117 | gdImageSetPixel(wimg,2,0,bg);gdImageSetPixel(wimg,2,2,bg); |
||
| 118 | break; |
||
| 119 | } |
||
| 120 | case 4: |
||
| 121 | case 5: |
||
| 122 | case 6: |
||
| 123 | case 7: |
||
| 124 | case 8: |
||
| 125 | case 9: |
||
| 126 | case 10: |
||
| 127 | case 11: |
||
| 128 | case 12: { |
||
| 8163 | bpr | 129 | gdPoint pl[]={{0,sh}, {sh,0}, {e-sh,0}, {e,sh}, |
| 130 | {e,e-sh}, {e-sh,e}, {sh,e}, {0,e-sh}}; |
||
| 131 | gdImageFilledPolygon(wimg, pl,8,fg); |
||
| 7675 | bpr | 132 | break; |
| 133 | } |
||
| 134 | default: { |
||
| 135 | gdImageArc(wimg,w/2,w/2,w,w,0,360,fg); |
||
| 136 | gdImageFillToBorder(wimg,w/2,w/2,fg,fg); |
||
| 137 | break; |
||
| 138 | } |
||
| 10 | reyssat | 139 | } |
| 140 | savew=w; wcolor=color; |
||
| 141 | end: gdImageSetBrush(image,wimg); return gdBrushed; |
||
| 142 | } |
||
| 143 | |||
| 7675 | bpr | 144 | /* scale coordinates, x then y */ |
| 10 | reyssat | 145 | void scale(double dbuf[], int ibuf[], int cnt) |
| 146 | { |
||
| 147 | int i; double x,y; |
||
| 1024 | bpr | 148 | for(i=0;i<cnt*2 && i<MAX_PARMS;i+=2) { |
| 7675 | bpr | 149 | if(transform) { |
| 150 | x=dbuf[i]*matrix[0]+dbuf[i+1]*matrix[1]; |
||
| 151 | y=dbuf[i]*matrix[2]+dbuf[i+1]*matrix[3]; |
||
| 152 | } |
||
| 153 | else {x=dbuf[i]; y=dbuf[i+1];} |
||
| 154 | scale_buf[i]=x+transx; scale_buf[i+1]=y+transy; |
||
| 155 | ibuf[i]=rint((x-xstart+transx)*xscale); |
||
| 156 | ibuf[i+1]=rint((y-ystart+transy)*yscale); |
||
| 157 | if(ibuf[i]<-BOUND) ibuf[i]=-BOUND;if(ibuf[i]>BOUND) ibuf[i]=BOUND; |
||
| 158 | if(ibuf[i+1]<-BOUND) ibuf[i+1]=-BOUND;if(ibuf[i+1]>BOUND) ibuf[i+1]=BOUND; |
||
| 10 | reyssat | 159 | } |
| 160 | } |
||
| 161 | |||
| 7675 | bpr | 162 | /* scale without displacement */ |
| 10 | reyssat | 163 | void scale2(double xin, double yin, double *xout, double *yout) |
| 164 | { |
||
| 165 | if(transform) { |
||
| 7675 | bpr | 166 | *xout=xin*matrix[0]+yin*matrix[1]; |
| 167 | *yout=xin*matrix[2]+yin*matrix[3]; |
||
| 10 | reyssat | 168 | } |
| 169 | else { |
||
| 7675 | bpr | 170 | *xout=xin; *yout=yin; |
| 10 | reyssat | 171 | } |
| 172 | *xout*=xscale; *yout*=yscale; |
||
| 173 | } |
||
| 174 |