Subversion Repositories wimsdev

Rev

Rev 8134 | Rev 8195 | 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
 
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=xin*matrix[0]+yin*matrix[1];
173
      *yout=xin*matrix[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