Scilab [trunk]: scilab/modules/graphics/includes/periGif.h File Reference

void C2F() boundingboxGif	(	char *	string,
		integer *	x,
		integer *	y,
		integer *	rect,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1489 of file periGif.c.

References gdCharWidth(), GifFont, gdFont::h, int, sciprint(), and width.

Referenced by displaystringGif(), and xcall_in_word_set().

01490 {
01491   int k,width;
01492   if (GifIm == (gdImagePtr)0 ) {
01493     sciprint(" 14 xinit must be called before any action \r\n");
01494     return;
01495   }
01496   width = 0;
01497   for (k=0;k< (int) strlen(string);k++) 
01498     width += gdCharWidth(GifFont, string[k]);
01499   rect[0]= (int)(*x);
01500   rect[1]= (int)(*y);
01501   rect[2]= width;
01502   rect[3]= GifFont->h;
01503 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() clearareaGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	w,
		integer *	h,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Clear a rectangle

Definition at line 256 of file periGif.c.

References x.

Referenced by xcall_in_word_set().

00257 {
00258 /*  FPRINTF((file,"\n [ %d %d %d %d ] clearzone",(int)*x,(int)*y,(int)*w,(int)*h));*/
00259 }

Here is the caller graph for this function:

void C2F() clearwindowGif	(	char *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

In GIF : nothing

Sending the scale etc.. in case we want an other plot

Definition at line 224 of file periGif.c.

References gdImageFilledRectangle(), GifIm, and sciprint().

Referenced by xcall_in_word_set().

00225 {
00226 
00227   /* F.Leray : I add a rectangle with  background color*/
00228   int zero = 0;
00229   int color_white = col_index[ScilabGCGif.Numcolors+1];
00230 
00231   if (GifIm == (gdImagePtr)0 ) {
00232     sciprint(" 1 xinit must be called before any action \r\n");
00233     return;
00234   }
00235 
00236   gdImageFilledRectangle(GifIm, zero, zero,  ScilabGCGif.CWindowWidth,  ScilabGCGif.CWindowHeight,
00237                          color_white);
00238 
00240   /* FileInitGif(file); */
00241 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() displaynumbersGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	v1,
		integer *	v2,
		integer *	n,
		integer *	flag,
		double *	z,
		double *	alpha,
		double *	dx3,
		double *	dx4
	)

Definition at line 2117 of file periGif.c.

References buf, C2F, and displaystringGif().

Referenced by xcall_in_word_set().

02118 { integer i ;
02119   char buf[20];
02120   for (i=0 ; i< *n ; i++)
02121     { 
02122       sprintf(buf,ScilabGCGif.CurNumberDispFormat,z[i]);
02123       C2F(displaystringGif)(buf,&(x[i]),&(y[i]),PI0,flag,PI0,PI0,&(alpha[i]),PD0,PD0,PD0) ;
02124     }
02125 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() displaystringGif	(	char *	string,
		integer *	x,
		integer *	y,
		integer *	v1,
		integer *	flag,
		integer *	v6,
		integer *	v7,
		double *	angle,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1453 of file periGif.c.

References Abs, boundingboxGif(), C2F, DispStringAngleGif(), gdImageString(), gdImageStringUp(), getdashGif(), GifFont, GifLineColor(), sciprint(), setdashGif(), and vdouble.

Referenced by displaynumbersGif(), and xcall_in_word_set().

01454 {     
01455   integer rect[4] ;
01456   integer boxX = 0 ;
01457   integer boxY = 0 ;
01458 
01459   integer verbose, Dnarg,Dvalue[10],j;
01460   verbose =0 ;
01461   if (GifIm == (gdImagePtr)0 ) {
01462     sciprint(" 13 xinit must be called before any action \r\n");
01463     return;
01464   }
01465   if ( Abs(*angle) <= 0.1) {
01466     C2F(boundingboxGif)(string,&boxX,&boxY,rect,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01467     C2F(getdashGif)(&verbose,Dvalue,&Dnarg,vdouble);
01468     C2F(setdashGif)((j=1,&j),PI0,PI0,PI0);
01469     gdImageString(GifIm, GifFont, *x, *y - rect[3], (unsigned char*) string,
01470                   GifLineColor());
01471     C2F(setdashGif)(Dvalue,PI0,PI0,PI0);
01472   }
01473   else if ( Abs(*angle + 90) <= 0.1 )   /* added by Bruno */
01474     {
01475     C2F(boundingboxGif)(string,&boxX,&boxY,rect,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01476     C2F(getdashGif)(&verbose,Dvalue,&Dnarg,vdouble);
01477     C2F(setdashGif)((j=1,&j),PI0,PI0,PI0);
01478     /* a voir (peut etre enlever le -rect[2] qui doit centrer en vertical alors
01479        que ce n'est pas attendu) */
01480     gdImageStringUp(GifIm, GifFont, *x - rect[3], *y - rect[2], (unsigned char*) string,
01481                   GifLineColor());
01482     C2F(setdashGif)(Dvalue,PI0,PI0,PI0);
01483     }
01484   else 
01485     C2F(DispStringAngleGif)(x,y,string,angle);
01486 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarcGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	width,
		integer *	height,
		integer *	angle1,
		integer *	angle2,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

caution angle=degreAngle*64

Definition at line 1739 of file periGif.c.

References alpha, C2F, close(), drawpolylineGif(), fact(), Min, and sciprint().

Referenced by drawarcsGif(), and xcall_in_word_set().

01740 { 
01741   integer vx[365],vy[365],k,n;
01742   float alpha,fact= (float) 0.01745329251994330,w,h;
01743   integer close = 0;
01744 
01745   if (GifIm == (gdImagePtr)0 ) {
01746     sciprint(" 23 xinit must be called before any action \r\n");
01747     return;
01748   }
01749 
01750   w = (float) ((*width)/2.0);
01751   h = (float) ((*height)/2.0);
01752   n=Min((*angle2/64),360);
01753   for (k = 0; k < n; ++k) {
01754     alpha=((*angle1/64)+k)*fact;
01755     vx[k] = (integer) (*x + w*(cos(alpha)+1.0));
01756     vy[k] = (integer) (*y + h*(-sin(alpha)+1.0));}
01757   
01758   /* Fix bug 1737 : if n==360 we want a closed circle */
01759   if(n == 360) close = 1;
01760   
01761   C2F(drawpolylineGif)(str, &n, vx, vy, &close, PI0, PI0, dv1, dv2, dv3, dv4);
01762 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarcsGif	(	char *	str,
		integer *	vects,
		integer *	style,
		integer *	n,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

caution : angle=degreangle*64

to fix the style

Definition at line 1712 of file periGif.c.

References C2F, drawarcGif(), get_dash_and_color_Gif(), sciprint(), set_dash_and_color_Gif(), set_line_style_Gif(), and vdouble.

Referenced by xcall_in_word_set().

01713 {
01714   integer verbose=0,Dnarg,Dvalue[10],NDvalue;
01715   int i,i6;
01716 
01717   if (GifIm == (gdImagePtr)0 ) {
01718     sciprint(" 22 xinit must be called before any action \r\n");
01719     return;
01720   }
01721   /* store the current values */
01722   C2F(get_dash_and_color_Gif)(&verbose,Dvalue,&Dnarg,vdouble);
01723   for ( i=0 ; i < *n ; i++) 
01724     {
01726       NDvalue = style[i];
01727       C2F(set_line_style_Gif)(&NDvalue,PI0,PI0,PI0);
01728       i6=6*i;
01729       C2F(drawarcGif)(str,vects+i6,vects+(i6+1),vects+(i6+2),vects+(i6+3),
01730                       vects+(i6+4),vects+(i6+5) , dv1, dv2, dv3, dv4);
01731     }
01732   C2F(set_dash_and_color_Gif)( Dvalue,PI0,PI0,PI0);
01733 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarrowsGif	(	char *	str,
		integer *	vx,
		integer *	vy,
		integer *	n,
		integer *	as,
		integer *	style,
		integer *	iflag,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

as is 10*arsize (arsize) the size of the arrow head in pixels

Definition at line 1568 of file periGif.c.

References Abs, C2F, dx, dy, fillpolylinesGif(), gdImageThickLine(), get_dash_and_color_Gif(), GifLineColor(), inint, M_PI, Max, p, sciprint(), set_dash_and_color_Gif(), set_line_style_Gif(), SMDOUBLE, and vdouble.

Referenced by xcall_in_word_set().

01569 { 
01570   integer verbose=0,Dnarg,Dvalue[10],NDvalue,i;
01571   double cos20=cos(20.0*M_PI/180.0);
01572   double sin20=sin(20.0*M_PI/180.0);
01573   integer polyx[4],polyy[4]; 
01574 
01575   if (GifIm == (gdImagePtr)0 ) {
01576     sciprint(" 17 xinit must be called before any action \r\n");
01577     return;
01578   }
01579 
01580   C2F(get_dash_and_color_Gif)(&verbose,Dvalue,&Dnarg,vdouble);
01581   for (i=0 ; i < *n/2 ; i++)
01582     { 
01583       double dx,dy,norm;
01584       if ( (int) *iflag == 1) 
01585         NDvalue = style[i];
01586       else 
01587         NDvalue=(*style < 1) ?  Dvalue[0] : *style;
01588       C2F(set_line_style_Gif)(&NDvalue,PI0,PI0,PI0);
01589 
01590      dx=( vx[2*i+1]-vx[2*i]);
01591       dy=( vy[2*i+1]-vy[2*i]);
01592       norm = sqrt(dx*dx+dy*dy);
01593       if ( Abs(norm) >  SMDOUBLE ) 
01594         { integer nn=1,p=3;
01595           dx=(*as/10.0)*dx/norm;dy=(*as/10.0)*dy/norm;
01596           polyx[0]= polyx[3]=vx[2*i+1];/* correction bug 607 (bruno 18 nov 2004) */
01597           polyx[1]= inint(polyx[0]  - cos20*dx -sin20*dy );
01598           polyx[2]= inint(polyx[0]  - cos20*dx + sin20*dy);
01599           polyy[0]= polyy[3]=vy[2*i+1];/* correction bug 607 (bruno 18 nov 2004) */
01600           polyy[1]= inint(polyy[0] + sin20*dx -cos20*dy) ;
01601           polyy[2]= inint(polyy[0] - sin20*dx - cos20*dy) ;
01602           C2F(fillpolylinesGif)("v",polyx,polyy,&NDvalue, &nn,&p,PI0,PD0,PD0,PD0,PD0);
01603           }
01604 
01605       gdImageThickLine(GifIm, vx[2*i], vy[2*i],(int)
01606                        (vx[2*i + 1]-dx*cos20), (int)(vy[2*i + 1]-dy*cos20),
01607                        GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
01608  
01609     }
01610   C2F(set_dash_and_color_Gif)( Dvalue,PI0,PI0,PI0);
01611 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawaxisGif	(	char *	str,
		integer *	alpha,
		integer *	nsteps,
		integer *	v2,
		integer *	initpoint,
		integer *	v6,
		integer *	v7,
		double *	size,
		double *	dx2,
		double *	dx3,
		double *	dx4
	)

Definition at line 2073 of file periGif.c.

References gdImageThickLine(), GifLineColor(), inint, M_PI, Max, sciprint(), xi, and yi.

Referenced by xcall_in_word_set().

02074 { integer i;
02075   double xi,yi,xf,yf;
02076   double cosal,sinal;
02077 
02078   if (GifIm == (gdImagePtr)0 ) {
02079     sciprint(" 29 xinit must be called before any action \r\n");
02080     return;
02081   }
02082   cosal= cos( (double)M_PI * (*alpha)/180.0);
02083   sinal= sin( (double)M_PI * (*alpha)/180.0);
02084   for (i=0; i <= nsteps[0]*nsteps[1]; i++)
02085     {
02086       if (( i % nsteps[0]) != 0)
02087         {
02088           xi = initpoint[0]+i*size[0]*cosal;
02089           yi = initpoint[1]+i*size[0]*sinal;
02090           xf = xi - ( size[1]*sinal);
02091           yf = yi + ( size[1]*cosal);
02092           gdImageThickLine(GifIm,inint(xi),inint(yi),inint(xf),inint(yf), 
02093                       GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
02094         }
02095     }
02096   for (i=0; i <= nsteps[1]; i++)
02097     { xi = initpoint[0]+i*nsteps[0]*size[0]*cosal;
02098       yi = initpoint[1]+i*nsteps[0]*size[0]*sinal;
02099       xf = xi - ( size[1]*size[2]*sinal);
02100       yf = yi + ( size[1]*size[2]*cosal);
02101       gdImageThickLine(GifIm,inint(xi),inint(yi),inint(xf),inint(yf), 
02102                   GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
02103     }
02104 
02105   xi = initpoint[0]; yi= initpoint[1];
02106   xf = initpoint[0]+ nsteps[0]*nsteps[1]*size[0]*cosal;
02107   yf = initpoint[1]+ nsteps[0]*nsteps[1]*size[0]*sinal;
02108   gdImageThickLine(GifIm, inint(xi),inint(yi),inint(xf),inint(yf),
02109               GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
02110 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolylineGif	(	char *	str,
		integer *	n,
		integer *	vx,
		integer *	vy,
		integer *	closeflag,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

according to *closeflag : it's a polyline or a polygon

Definition at line 1898 of file periGif.c.

References gdImagePolyLine(), GifLineColor(), Max, n1, and sciprint().

Referenced by drawarcGif(), drawpolylinesGif(), and xcall_in_word_set().

01899 {
01900   integer thick,n1;
01901   if (GifIm == (gdImagePtr)0 ) {
01902     sciprint(" 27 xinit must be called before any action \r\n");
01903     return;
01904   }
01905   thick = Max(1,ScilabGCGif.CurLineWidth);
01906   n1 = *n;
01907   gdImagePolyLine(GifIm,vx,vy,n1,GifLineColor(),thick,*closeflag);
01908 
01909 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolylinesGif	(	char *	str,
		integer *	vectsx,
		integer *	vectsy,
		integer *	drawvect,
		integer *	n,
		integer *	p,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

drawvect[i] < 0 use a line style for polyline i

on utilise la marque de numero associ\'ee

on utilise un style pointill\'e

back to default values

Definition at line 1811 of file periGif.c.

References C2F, close(), drawpolylineGif(), drawpolymarkGif(), get_dash_and_color_Gif(), sciprint(), set_dash_and_color_Gif(), set_line_style_Gif(), setdashGif(), vdouble, xgetmarkGif(), and xsetmarkGif().

Referenced by xcall_in_word_set().

01812 { integer verbose ,symb[2],Mnarg,Dnarg,Dvalue[10],NDvalue,i,j,close;
01813   verbose =0 ;
01814   if (GifIm == (gdImagePtr)0 ) {
01815     sciprint(" 25 xinit must be called before any action \r\n");
01816     return;
01817   }
01818   /* store the current values */
01819   C2F(xgetmarkGif)(&verbose,symb,&Mnarg,vdouble);
01820   C2F(get_dash_and_color_Gif)(&verbose,Dvalue,&Dnarg,vdouble);
01821   for (i=0 ; i< *n ; i++)
01822     {
01823       if (drawvect[i] <= 0)
01824         { 
01825           NDvalue = - drawvect[i];
01826           C2F(setdashGif)((j=1,&j),PI0,PI0,PI0);
01827 
01828           C2F(xsetmarkGif)(&NDvalue,symb+1,PI0,PI0);
01829           
01830           C2F(drawpolymarkGif)(str,p,vectsx+(*p)*i,vectsy+(*p)*i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01831           C2F(setdashGif)(Dvalue,PI0,PI0,PI0);
01832         }
01833       else
01834         {
01836           C2F(set_line_style_Gif)(drawvect+i,PI0,PI0,PI0);
01837           close = 0;
01838           C2F(drawpolylineGif)(str,p,vectsx+(*p)*i,vectsy+(*p)*i,&close,PI0,PI0,PD0,PD0,PD0,PD0);
01839         }
01840     }
01842   C2F(set_dash_and_color_Gif)(Dvalue,PI0,PI0,PI0);
01843   C2F(xsetmarkGif)(symb,symb+1,PI0,PI0);
01844 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolymarkGif	(	char *	str,
		integer *	n,
		integer *	vx,
		integer *	vy,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

by vx and vy (vx[i],vy[i])

Definition at line 1931 of file periGif.c.

References C2F, displaysymbolsGif(), sz, and xsetfontGif().

Referenced by drawpolylinesGif(), and xcall_in_word_set().

01932 { 
01933   integer keepid,keepsize,i=1,sz=ScilabGCGif.CurHardSymbSize;
01934 
01935   keepid =  ScilabGCGif.FontId;
01936   keepsize= ScilabGCGif.FontSize;
01937   C2F(xsetfontGif)(&i,&sz,PI0,PI0);
01938   C2F(displaysymbolsGif)(str,n,vx,vy);
01939   C2F(xsetfontGif)(&keepid,&keepsize,PI0,PI0);
01940 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawrectangleGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	width,
		integer *	height,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1653 of file periGif.c.

References gdImageRectangle(), GifLineColor(), and sciprint().

Referenced by xcall_in_word_set().

01654 {
01655   if (GifIm == (gdImagePtr)0 ) {
01656     sciprint(" 19 xinit must be called before any action \r\n");
01657     return;
01658   }
01659   gdImageRectangle(GifIm, *x, *y, *x + *width, *y + *height, GifLineColor());
01660 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawrectanglesGif	(	char *	str,
		integer *	vects,
		integer *	fillvect,
		integer *	n,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

fillvect[*n] : specify the action (see periX11.c)

Definition at line 1622 of file periGif.c.

References abs, C2F, gdImageFilledRectangle(), gdImageThickRectangle(), get_dash_and_color_Gif(), getpatternGif(), GifLineColor(), GifPatternColor(), Max, sciprint(), set_dash_and_color_Gif(), set_line_style_Gif(), and vdouble.

Referenced by xcall_in_word_set().

01623 {
01624   int i,cpat,verb=0,num,cd[10],thick;
01625 
01626   if (GifIm == (gdImagePtr)0 ) {
01627     sciprint(" 18 xinit must be called before any action \r\n");
01628     return;
01629   }
01630   C2F(getpatternGif)(&verb,&cpat,&num,vdouble);
01631   C2F(get_dash_and_color_Gif)(&verb,cd,&num,vdouble);
01632   thick = Max(1,ScilabGCGif.CurLineWidth);
01633   for (i = 0; i < *n; i++) {
01634     int x, y, w, h;
01635     x = vects[4 * i];
01636     y = vects[4 * i + 1];
01637     w = vects[4 * i + 2];
01638     h = vects[4 * i + 3];
01639     if ( fillvect[i] < 0 ) {
01640       int dash = - fillvect[i];
01641       C2F(set_line_style_Gif)(&dash,PI0,PI0,PI0);
01642       gdImageThickRectangle(GifIm, x, y, x + w, y + h, GifLineColor(),thick);
01643     }
01644     else if ( fillvect[i] == 0 ) 
01645       gdImageThickRectangle(GifIm, x, y, x + w, y + h, GifLineColor(),thick);
01646     else
01647       gdImageFilledRectangle(GifIm, x, y, x + w, y + h,
01648                              GifPatternColor(abs(fillvect[i])));
01649   }
01650   C2F(set_dash_and_color_Gif)(cd,PI0,PI0,PI0);
01651 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawsegmentsGif	(	char *	str,
		integer *	vx,
		integer *	vy,
		integer *	n,
		integer *	style,
		integer *	iflag,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

for i=0 step 2

all segments have the same color or dash style

Definition at line 1521 of file periGif.c.

References C2F, gdImageThickLine(), get_dash_and_color_Gif(), GifLineColor(), Max, sciprint(), set_dash_and_color_Gif(), set_dash_or_color_Gif(), setpatternGif(), and vdouble.

Referenced by xcall_in_word_set().

01522 {
01523   integer verbose=0,Dnarg,Dvalue[10],NDvalue;
01524   int i;
01525   if (GifIm == (gdImagePtr)0 ) {
01526     sciprint(" 16 xinit must be called before any action \r\n");
01527     return;
01528   }
01529 
01530 
01531   /* store the current values */
01532 
01533 
01534   C2F(get_dash_and_color_Gif)(&verbose,Dvalue,&Dnarg,vdouble);
01535   if ((int)  *iflag == 0 )
01536     {
01539       NDvalue= (*style < 1) ? Dvalue[0] : *style;
01540       C2F(set_dash_or_color_Gif)(&NDvalue,PI0,PI0,PI0);
01541       for ( i=0 ; i < *n/2 ; i++) {
01542           gdImageThickLine(GifIm, vx[2*i], vy[2*i],
01543                            vx[2*i + 1], vy[2*i + 1],
01544                            GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
01545       }
01546     }
01547   else
01548     {
01549       for ( i=0 ; i < *n/2 ; i++) 
01550         {
01551           integer NDvalue2;
01552           NDvalue2 = style[i];
01553           C2F(setpatternGif)(&NDvalue2,PI0,PI0,PI0);
01554           gdImageThickLine(GifIm, vx[2*i], vy[2*i],
01555                            vx[2*i + 1], vy[2*i + 1],
01556                            GifLineColor(),Max(1,ScilabGCGif.CurLineWidth));
01557         }
01558     }
01559   C2F(set_dash_and_color_Gif)( Dvalue,PI0,PI0,PI0);
01560 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillarcGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	width,
		integer *	height,
		integer *	angle1,
		integer *	angle2,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

with current pattern

Definition at line 1767 of file periGif.c.

References alpha, C2F, close(), fact(), fillpolylineGif(), Min, and sciprint().

Referenced by fillarcsGif(), and xcall_in_word_set().

01768 { 
01769   integer vx[365],vy[365],k,k0,kmax,n;
01770   float alpha,fact= (float) 0.01745329251994330,w,h;
01771   integer close = 1;
01772   if (GifIm == (gdImagePtr)0 ) {
01773     sciprint(" 24 xinit must be called before any action \r\n");
01774     return;
01775   }
01776   n=Min((*angle2/64),360);
01777 
01778   w = (float) ((*width)/2.0);
01779   h = (float) ((*height)/2.0);
01780   k0 = 0;
01781   kmax = n-1;
01782 
01783   if (n != 360) {
01784   vx[0] =  (integer) (*x + w);
01785   vy[0] =  (integer) (*y + h);
01786   k0 = 1;
01787   kmax = n;}
01788 
01789   for (k = k0; k <= kmax; ++k) {
01790     alpha=((*angle1/64)+k)*fact;
01791     vx[k] =  (integer) (*x + w*(cos(alpha)+1.0));
01792     vy[k] =  (integer) (*y + h*(-sin(alpha)+1.0));}
01793   if (n != 360) {
01794   n++;
01795   vx[n] = (integer) (*x + ((*width)/2.0));
01796   vy[n] = (integer) (*y + ((*height)/2.0)); 
01797   n++;
01798   }
01799   C2F(fillpolylineGif)(str, &n, vx, vy, &close, PI0, PI0, dv1, dv2, dv3, dv4);
01800  }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillarcsGif	(	char *	str,
		integer *	vects,
		integer *	fillvect,
		integer *	n,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

caution angle=degreangle*64

to fix the style

Definition at line 1682 of file periGif.c.

References C2F, fillarcGif(), getpatternGif(), sciprint(), setpatternGif(), and vdouble.

Referenced by xcall_in_word_set().

01683 {
01684   integer verbose=0,Dnarg,pat;
01685   int i,i6;
01686 
01687   if (GifIm == (gdImagePtr)0 ) {
01688     sciprint(" 21 xinit must be called before any action \r\n");
01689     return;
01690   }
01691   /* store the current values */
01692   C2F(getpatternGif)(&verbose,&pat,&Dnarg,vdouble);
01693   for ( i=0 ; i < *n ; i++) 
01694     {
01696       C2F(setpatternGif)(&fillvect[i],PI0,PI0,PI0);
01697       i6=6*i;
01698       C2F(fillarcGif)(str,&(vects[i6]),&(vects[i6+1]),&(vects[i6+2]),
01699                       &(vects[i6+3]),&(vects[i6+4]),&(vects[i6+5]) ,dv1, dv2, dv3, dv4);
01700 
01701     }
01702   C2F(setpatternGif)(&pat,PI0,PI0,PI0);
01703 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillpolylineGif	(	char *	str,
		integer *	n,
		integer *	vx,
		integer *	vy,
		integer *	closeareaflag,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Fill the polygon

just fill ==> cpat < 0

Definition at line 1913 of file periGif.c.

References C2F, fillpolylinesGif(), getpatternGif(), sciprint(), and vdouble.

Referenced by fillarcGif(), and xcall_in_word_set().

01914 {
01915   integer i =1;
01916   integer cpat,verb=0,num;
01917   if (GifIm == (gdImagePtr)0 ) {
01918     sciprint(" 28 xinit must be called before any action \r\n");
01919     return;
01920   }
01921   C2F(getpatternGif)(&verb,&cpat,&num,vdouble); 
01923   cpat = -cpat;
01924   fillpolylines_closeflag = *closeareaflag;
01925   C2F(fillpolylinesGif)(str,vx,vy,&cpat,&i,n,PI0,PD0,PD0,PD0,PD0);
01926 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillpolylinesGif	(	char *	str,
		integer *	vectsx,
		integer *	vectsy,
		integer *	fillvect,
		integer *	n,
		integer *	p,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1857 of file periGif.c.

References abs, FREE, gdImageFilledPolygon(), gdImagePolyLine(), GifLineColor(), GifPatternColor(), MALLOC, Max, n1, NULL, points, and sciprint().

Referenced by drawarrowsGif(), fillpolylineGif(), and xcall_in_word_set().

01858 {
01859   integer n1,i,j,o;
01860 
01861   gdPoint *points;
01862   integer c,thick;
01863   if (GifIm == (gdImagePtr)0 ) {
01864     sciprint(" 26 xinit must be called before any action \r\n");
01865     return;
01866   }
01867   n1 = *p;
01868   if (fillpolylines_closeflag) n1++;
01869   points = (gdPoint*) MALLOC(n1 * sizeof(gdPoint));
01870   if (points == (gdPoint*) NULL) return;
01871   for (j = 0; j < *n; j++) {
01872       o = j * (*p);
01873       for (i = 0; i < *p; i++) {
01874           points[i].x = vectsx[o + i];
01875           points[i].y = vectsy[o + i];
01876       }
01877       if (fillpolylines_closeflag) {
01878           points[*p].x = vectsx[o];
01879           points[*p].y = vectsy[o];
01880       }
01881       if (fillvect[j] != 0) {
01882         gdImageFilledPolygon(GifIm, points, n1,
01883                              GifPatternColor(abs(fillvect[j])));
01884       }
01885       if (fillvect[j] >= 0) {
01886         c = GifLineColor();
01887         thick = Max(1,ScilabGCGif.CurLineWidth);
01888         gdImagePolyLine(GifIm, &(vectsx[o]), &(vectsy[o]),
01889                         *p,c,thick,fillpolylines_closeflag);
01890       }
01891   }
01892   FREE(points);
01893 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillrectangleGif	(	char *	str,
		integer *	x,
		integer *	y,
		integer *	width,
		integer *	height,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Draw a filled rectangle

Definition at line 1664 of file periGif.c.

References C2F, gdImageFilledRectangle(), getpatternGif(), GifPatternColor(), sciprint(), and vdouble.

Referenced by xcall_in_word_set().

01665 { 
01666 
01667   integer cpat,verb=0,num;
01668 
01669   if (GifIm == (gdImagePtr)0 ) {
01670     sciprint(" 20 xinit must be called before any action \r\n");
01671     return;
01672   }
01673   C2F(getpatternGif)(&verb,&cpat,&num,vdouble);
01674   gdImageFilledRectangle(GifIm, *x, *y, *x + *width, *y + *height,
01675                          GifPatternColor(cpat));
01676 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() getFontMaxSizeGif	(	char *	str,
		integer *	sizeMin,
		integer *	sizeMax,
		integer *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		double *	dx1,
		double *	dx2,
		double *	dx3,
		double *	dx4
	)

get the minimal and maximal font size

Definition at line 2265 of file periGif.c.

References FONTMAXSIZE.

Referenced by xcall_in_word_set().

02266 {
02267   *sizeMin = 0 ;
02268   *sizeMax = FONTMAXSIZE ;
02269 }

Here is the caller graph for this function:

void C2F() initgraphicfromscreenGif	(	char *	,
		integer *	,
		integer *	,
		integer *	,
		integer *	,
		integer *	,
		integer *	,
		double *	,
		double *	,
		double *	,
		double *
	)

Definition at line 2413 of file periGif.c.

References C2F, CheckScilabXgc(), col_white, dummy, file, FileInitFromScreenGif(), gdImageCreate(), gdImageFilledRectangle(), getwindowdim(), LoadFontsGif(), and xendgraphicGif().

Referenced by xcall_in_word_set().

02414 { 
02415   char string1[256];
02416   static integer EntryCounter = 0;
02417   integer  x[2],verbose=0,narg;
02418   double dummy;
02419   *v3=0;
02420   if (EntryCounter >= 1) 
02421   {
02422       C2F(xendgraphicGif)();
02423   }
02424   strncpy(string1,string,256);
02425 
02426   file=fopen(string1,"wb");
02427   if (file == 0) 
02428     {
02429       /* sciprint("Can't open file %s\n",string1);*/
02430       *v3=1;
02431       return;
02432     }
02433   x[0]=640;
02434   x[1]=480;
02435 
02436   if (CheckScilabXgc()) { 
02437     C2F(getwindowdim)(&verbose, x, &narg,&dummy);
02438   }
02439   
02440   LoadFontsGif();
02441   GifIm = gdImageCreate(x[0], x[1]);
02442 
02443   /*GifFont = gdFontSmall;*/
02444   ScilabGCGif.CWindowWidth  = x[0];
02445   ScilabGCGif.CWindowHeight = x[1];
02446   FileInitFromScreenGif();
02447   ScilabGCGif.CurWindow =EntryCounter;
02448   EntryCounter =EntryCounter +1;
02449   
02450   gdImageFilledRectangle(GifIm, 0, 0, x[0]-1, x[1]-1, col_white); 
02451 
02452 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() initgraphicGif	(	char *	string,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1946 of file periGif.c.

References C2F, CheckScilabXgc(), col_white, dummy, file, FileInitGif(), gdImageCreate(), gdImageFilledRectangle(), getwindowdim(), LoadFontsGif(), and xendgraphicGif().

Referenced by xcall_in_word_set().

01947 { 
01948   char string1[256];
01949   static integer EntryCounter = 0;
01950   integer  x[2],verbose=0,narg;
01951   double dummy;
01952   *v3=0;
01953   if (EntryCounter >= 1) 
01954   {
01955       C2F(xendgraphicGif)();
01956   }
01957   strncpy(string1,string,256);
01958 
01959   file=fopen(string1,"wb");
01960   if (file == 0) 
01961     {
01962       /* sciprint("Can't open file %s\n",string1);*/
01963       *v3=1;
01964       return;
01965     }
01966   x[0]=640;
01967   x[1]=480;
01968 
01969   if (CheckScilabXgc()) { 
01970     C2F(getwindowdim)(&verbose, x, &narg,&dummy);
01971   }
01972   
01973   LoadFontsGif();
01974   GifIm = gdImageCreate(x[0], x[1]);
01975 
01976   /*GifFont = gdFontSmall;*/
01977   ScilabGCGif.CWindowWidth  = x[0];
01978   ScilabGCGif.CWindowHeight = x[1];
01979   FileInitGif();
01980   ScilabGCGif.CurWindow =EntryCounter;
01981   EntryCounter =EntryCounter +1;
01982   
01983   gdImageFilledRectangle(GifIm, 0, 0, x[0]-1, x[1]-1, col_white); 
01984 
01985 }

Here is the call graph for this function:

Here is the caller graph for this function:

void InitScilabGCGif	(	integer *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 2012 of file periGif.c.

References C2F, CoordModeOrigin, DEFAULTNUMCOLORS, getcolordef(), GREYNUMBER, NULL, setalufunctionGif(), setbackgroundGif(), setdashGif(), setforegroundGif(), sethidden3dGif(), setpatternGif(), setthicknessGif(), unsetclipGif(), usecolorGif(), xsetfontGif(), and xsetmarkGif().

Referenced by FileInitFromScreenGif(), FileInitGif(), and setwindowdimGif().

02013 { integer i,j,col;
02014   ScilabGCGif.IDLastPattern = GREYNUMBER-1;
02015   ScilabGCGif.CurLineWidth=0 ;
02016   i=1;
02017   C2F(setthicknessGif)(&i,PI0,PI0,PI0);
02018   C2F(setalufunctionGif)("GXcopy");
02020   i=j= -1;
02021   C2F(unsetclipGif)(PI0,PI0,PI0,PI0);
02022   C2F(xsetfontGif)((i=2,&i),(j=1,&j),PI0,PI0);
02023   C2F(xsetmarkGif)((i=0,&i),(j=0,&j),PI0,PI0);
02025   ScilabGCGif.CurVectorStyle = CoordModeOrigin ;
02026   /* initialisation des pattern dash par defaut en n&b */
02027   ScilabGCGif.CurColorStatus =0;
02028   C2F(setpatternGif)((i=1,&i),PI0,PI0,PI0);
02029   C2F(setdashGif)((i=1,&i),PI0,PI0,PI0);
02030 
02031   /* initialisation de la couleur par defaut */ 
02032   ScilabGCGif.Numcolors = DEFAULTNUMCOLORS;
02033   ScilabGCGif.CurColorStatus = 1 ;
02034   C2F(setpatternGif)((i=1,&i),PI0,PI0,PI0);
02035   C2F(setforegroundGif)((i=ScilabGCGif.NumForeground+1,&i),PI0,PI0,PI0);
02036   C2F(setbackgroundGif)((i=ScilabGCGif.NumForeground+2,&i),PI0,PI0,PI0);
02037   C2F(sethidden3dGif)((i=4,&i),PI0,PI0,PI0);
02038   /* Choix du mode par defaut (decide dans initgraphic_ */
02039   getcolordef(&col);
02044   ScilabGCGif.mafigure = (sciPointObj *)NULL;
02045   ScilabGCGif.CurColorStatus = (col == 1) ? 0: 1;
02046   C2F(usecolorGif)(&col,PI0,PI0,PI0);
02047   if (col == 1) ScilabGCGif.IDLastPattern = ScilabGCGif.Numcolors - 1;
02048   strcpy(ScilabGCGif.CurNumberDispFormat,"%-5.2g");
02049 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() loadfamilyGif	(	char *	name,
		integer *	j,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 2277 of file periGif.c.

References ff, fname, font, FontInfoTabGif, FontListGif, FONTMAXSIZE, FREE, getSCIpath(), ierr, NULL, ok, FontInfo::ok, ReadbdfFont(), sciprint(), and strchr().

Referenced by LoadFontsGif(), and xcall_in_word_set().

02278 {
02279   FILE *ff;
02280   char fname[1024];
02281   int i,ierr;
02282   char *SciPath;
02283   gdFontPtr font;
02284 
02286   if ( strchr(name,'%') != (char *) NULL)  /* no apriori it is an X11 font name */
02287     {
02288       sciprint("only alias font name are supported by gif driver\n");
02289       return;
02290     }
02291   SciPath=getSCIpath();
02292   if (SciPath==NULL)
02293     {
02294       sciprint("The SCI environment variable is not set\n");
02295       return;
02296     }
02297   fname[0]=0;
02298 
02299   if (FontInfoTabGif[*j].ok == 1) { /* Font number already used */
02300     if (strcmp(FontInfoTabGif[*j].fname,name)!=0) { /* by a different font */
02301       /* unload this font */
02302       FontInfoTabGif[*j].ok = 0;
02303       for (i=0;i<FONTMAXSIZE;i++) {
02304         font = &(FontListGif[*j][i]);
02305           if (font != NULL) FREE(font->data);
02306       }
02307     }
02308   }
02309   if (FontInfoTabGif[*j].ok == 0) {
02310     for (i=0;i<FONTMAXSIZE;i++) {
02311       sprintf(fname,"%s/modules/graphics/fonts/giffonts/75dpi/%s%s.bdf",SciPath,name,sizeGif[i]);
02312       ff=fopen(fname,"r");
02313       if (ff == 0) 
02314         {
02315           sciprint("Can't open font file %s\n",fname);
02316           return;
02317         }
02318       ierr=ReadbdfFont(ff,&(FontListGif[*j][i]),fname);
02319       fclose(ff);
02320       if  (ierr==1) {
02321         sciprint("\n Cannot allocate memory for font : %s%s\n",name,sizeGif[i]);
02322         return;
02323       }
02324       if  (ierr==2) {
02325         sciprint("\n Font not found: %s%s\n",name,sizeGif[i]);
02326         return;
02327       }
02328       
02329 
02330       FontInfoTabGif[*j].ok = 1;
02331       strcpy(FontInfoTabGif[*j].fname,name);
02332     }
02333   }
02334 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() queryfamilyGif	(	char *	name,
		integer *	j,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 2336 of file periGif.c.

References fname, FontInfoTabGif, and FONTNUMBER.

Referenced by xcall_in_word_set().

02337 { 
02338   integer i ;
02339   name[0]='\0';
02340   for (i=0;i<FONTNUMBER;i++) {
02341     v3[i]=strlen(FontInfoTabGif[i].fname);
02342     strcat(name,FontInfoTabGif[i].fname);
02343   }
02344   *j=FONTNUMBER;
02345 }

Here is the caller graph for this function:

void C2F() scilabgcgetGif	(	char *	str,
		integer *	verbose,
		integer *	x1,
		integer *	x2,
		integer *	x3,
		integer *	x4,
		integer *	x5,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1349 of file periGif.c.

References C2F, L, and ScilabGCGetorSetGif().

Referenced by xcall_in_word_set().

01350 {
01351   int x6=0;
01352   C2F(ScilabGCGetorSetGif)(str,(integer)1L,verbose,x1,x2,x3,x4,x5,&x6,dv1);
01353 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() scilabgcsetGif	(	char *	str,
		integer *	x1,
		integer *	x2,
		integer *	x3,
		integer *	x4,
		integer *	x5,
		integer *	x6,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 1355 of file periGif.c.

References C2F, L, and ScilabGCGetorSetGif().

Referenced by xcall_in_word_set().

01356 {
01357  integer verbose ;
01358  verbose = 0 ;
01359  C2F(ScilabGCGetorSetGif)(str,(integer)0L,&verbose,x1,x2,x3,x4,x5,x6,dv1);}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() setalufunctionGif ( char * string )

Definition at line 500 of file periGif.c.

References C2F, gdSetAlu(), GifIm, idfromnameGif(), and sciprint().

Referenced by InitScilabGCGif(), and setwindowdimGif().

00501 {    
00502   integer value;
00503   if (GifIm == (gdImagePtr)0 ) {
00504     sciprint(" 5 xinit must be called before any action \r\n");
00505     return;
00506   }
00507   C2F(idfromnameGif)(string,&value);
00508   if ( value != -1) {
00509      ScilabGCGif.CurDrawFunction = value;
00510      gdSetAlu(GifIm, value);
00511 /*     FPRINTF((file,"\n%% %d setalufunction",(int)value)); */
00512   }
00513 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() setdashGif	(	integer *	value,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 701 of file periGif.c.

References C2F, Max, Min, and setdashstyleGif().

Referenced by displaystringGif(), drawpolylinesGif(), InitScilabGCGif(), set_dash_and_color_Gif(), setwindowdimGif(), and usecolorGif().

00702 {
00703   static integer maxdash = 6, l2=4,l3 ;
00704   l3 = Max(0,Min(maxdash - 1,*value - 1));
00705   C2F(setdashstyleGif)(&l3,DashTabGif[l3],&l2);
00706   ScilabGCGif.CurDashStyle = l3;
00707 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() SetDriverGif ( )

void C2F() sethidden3dGif	(	integer *	num,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

set and get the number of the hidden3d color

Definition at line 1232 of file periGif.c.

References Max, and Min.

Referenced by InitScilabGCGif(), and setwindowdimGif().

01233 { 
01234   if (ScilabGCGif.CurColorStatus == 1) 
01235     {
01236       /* e Segre: Max(0,... -> Max(-1,... */
01237       /* S Mottelet: Max(-1,... -> Max(-2,...  to take into account the value -1 */
01238       ScilabGCGif.NumHidden3d = Max(-2,Min(*num - 1,ScilabGCGif.Numcolors + 1));
01239     }
01240 }

Here is the caller graph for this function:

void C2F() setpatternGif	(	integer *	num,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 617 of file periGif.c.

References C2F, GREYNUMBER, i, Max, Min, and set_cGif().

Referenced by ColorInitGif(), drawsegmentsGif(), FileInitFromScreenGif(), FileInitGif(), fillarcsGif(), InitScilabGCGif(), set_dash_and_color_Gif(), setgccolormapGif(), setwindowdimGif(), and usecolorGif().

00618 {
00619  integer i ; 
00620   if ( ScilabGCGif.CurColorStatus ==1) 
00621     {
00622       i= Max(0,Min(*num-1,ScilabGCGif.Numcolors+1));
00623       ScilabGCGif.CurColor = i ;
00624       C2F(set_cGif)(i);
00625     }
00626   else 
00627     {
00628       /* used when printing from color to b&white color after GREYNUMBER 
00629        are translated to black */
00630       if ( *num-1 > GREYNUMBER -1 ) 
00631         i=0;
00632       else 
00633         i= Max(0,Min(*num-1,GREYNUMBER-1));
00634       ScilabGCGif.CurPattern = i;
00635 /*      if (i ==0)
00636         FPRINTF((file,"\nfillsolid"));
00637       else 
00638         FPRINTF((file,"\n%d Setgray",(int)i)); */
00639     }
00640 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() setthicknessGif	(	integer *	value,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 593 of file periGif.c.

References Max.

Referenced by InitScilabGCGif(), and setwindowdimGif().

00594 { 
00595   ScilabGCGif.CurLineWidth =Max(0, *value);
00596 }

Here is the caller graph for this function:

void C2F() unsetclipGif	(	integer *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

unset clip zone

Definition at line 427 of file periGif.c.

References gdUnsetClipping(), GifIm, and sciprint().

Referenced by InitScilabGCGif(), and setwindowdimGif().

00428 {
00429   if (GifIm == (gdImagePtr)0 ) {
00430     sciprint(" 4 xinit must be called before any action \r\n");
00431     return;
00432   }
00433   ScilabGCGif.ClipRegionSet = 0;
00434   ScilabGCGif.CurClipRegion[0]= -1;
00435   ScilabGCGif.CurClipRegion[1]= -1;
00436   ScilabGCGif.CurClipRegion[2]= 200000;
00437   ScilabGCGif.CurClipRegion[3]= 200000;
00438   gdUnsetClipping(GifIm);
00439 /*  FPRINTF((file,"\n%d %d %d %d setclipzone",-1,-1,200000,200000));*/
00440 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() usecolorGif	(	integer *	num,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 839 of file periGif.c.

References C2F, GREYNUMBER, Max, Min, PI0, setdashGif(), and setpatternGif().

Referenced by InitScilabGCGif(), setgccolormapGif(), and setwindowdimGif().

00840 {
00841   integer i;
00842   i =  Min(Max(*num,0),1);
00843   if ( ScilabGCGif.CurColorStatus != (int)i)
00844     {
00845       if (ScilabGCGif.CurColorStatus == 1) 
00846         {
00847           /* je passe de Couleur a n&b */
00848           /* remise des couleurs a vide */
00849           ScilabGCGif.CurColorStatus = 1;
00850           C2F(setpatternGif)((i=1,&i),PI0,PI0,PI0);
00851           /* passage en n&b */
00852           ScilabGCGif.CurColorStatus = 0;
00853           i= ScilabGCGif.CurPattern+1;
00854           C2F(setpatternGif)(&i,PI0,PI0,PI0);
00855           i= ScilabGCGif.CurDashStyle+1;
00856           C2F(setdashGif)(&i,PI0,PI0,PI0);
00857           ScilabGCGif.IDLastPattern = GREYNUMBER - 1;
00858         }
00859       else 
00860         {
00861           /* je passe en couleur */
00862           /* remise a zero des patterns et dash */
00863           /* remise des couleurs a vide */
00864           ScilabGCGif.CurColorStatus = 0;
00865           C2F(setpatternGif)((i=1,&i),PI0,PI0,PI0);
00866           C2F(setdashGif)((i=1,&i),PI0,PI0,PI0);
00867           /* passage en couleur  */
00868           ScilabGCGif.CurColorStatus = 1;
00869           i= ScilabGCGif.CurColor+1;
00870           C2F(setpatternGif)(&i,PI0,PI0,PI0);
00871           ScilabGCGif.IDLastPattern = ScilabGCGif.Numcolors - 1;
00872         }
00873     }
00874 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() xclick_anyGif	(	char *	str,
		integer *	ibutton,
		integer *	xx1,
		integer *	yy1,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 248 of file periGif.c.

Referenced by xcall_in_word_set().

00249 { }

Here is the caller graph for this function:

void C2F() xclickGif	(	char *	str,
		integer *	ibutton,
		integer *	xx1,
		integer *	yy1,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Wait for mouse click in graphic window : Empty here

Definition at line 245 of file periGif.c.

Referenced by xcall_in_word_set().

00246 { }

Here is the caller graph for this function:

void C2F() xendGif	(	char *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 215 of file periGif.c.

References C2F, and xendgraphicGif().

Referenced by xcall_in_word_set().

00216 {
00217   C2F(xendgraphicGif)();
00218 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() xgetmouseGif	(	char *	str,
		integer *	ibutton,
		integer *	xx1,
		integer *	yy1,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 251 of file periGif.c.

Referenced by xcall_in_word_set().

00252 { }

Here is the caller graph for this function:

void C2F() xselgraphicGif	(	char *	v1,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Referenced by xcall_in_word_set().

Here is the caller graph for this function:


Functions
void C2F()	drawarcGif (char str, integer x, integer y, integer width, integer height, integer angle1, integer angle2, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillarcsGif (char str, integer vects, integer fillvect, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawarcsGif (char str, integer vects, integer style, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillpolylineGif (char str, integer n, integer vx, integer vy, integer closeareaflag, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawaxisGif (char str, integer alpha, integer nsteps, integer v2, integer initpoint, integer v6, integer v7, double size, double dx2, double dx3, double *dx4)
void C2F()	clearareaGif (char str, integer x, integer y, integer w, integer h, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	clearwindowGif (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xclickGif (char str, integer ibutton, integer xx1, integer yy1, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xclick_anyGif (char str, integer ibutton, integer xx1, integer yy1, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xgetmouseGif (char str, integer ibutton, integer xx1, integer yy1, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xendGif (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillarcGif (char str, integer x, integer y, integer width, integer height, integer angle1, integer angle2, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillrectangleGif (char str, integer x, integer y, integer width, integer height, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	scilabgcgetGif (char str, integer verbose, integer x1, integer x2, integer x3, integer x4, integer x5, double dv1, double dv2, double dv3, double *dv4)
void C2F()	initgraphicGif (char string, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	initgraphicfromscreenGif (char , integer , integer , integer , integer , integer , integer , double , double , double , double *)
void C2F()	drawpolylineGif (char str, integer n, integer vx, integer vy, integer closeflag, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillpolylinesGif (char str, integer vectsx, integer vectsy, integer fillvect, integer n, integer p, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawpolylinesGif (char str, integer vectsx, integer vectsy, integer drawvect, integer n, integer p, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawpolymarkGif (char str, integer n, integer vx, integer vy, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	getFontMaxSizeGif (char str, integer sizeMin, integer sizeMax, integer v1, integer v2, integer v3, integer v4, double dx1, double dx2, double dx3, double *dx4)
void C2F()	displaynumbersGif (char str, integer x, integer y, integer v1, integer v2, integer n, integer flag, double z, double alpha, double dx3, double *dx4)
void C2F()	drawrectangleGif (char str, integer x, integer y, integer width, integer height, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawrectanglesGif (char str, integer vects, integer fillvect, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawsegmentsGif (char str, integer vx, integer vy, integer n, integer style, integer iflag, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xselgraphicGif (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	scilabgcsetGif (char str, integer x1, integer x2, integer x3, integer x4, integer x5, integer x6, double dv1, double dv2, double dv3, double *dv4)
void C2F()	SetDriverGif ()
void C2F()	displaystringGif (char string, integer x, integer y, integer v1, integer flag, integer v6, integer v7, double angle, double dv2, double dv3, double *dv4)
void C2F()	boundingboxGif (char string, integer x, integer y, integer rect, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawarrowsGif (char str, integer vx, integer vy, integer n, integer as, integer style, integer iflag, double dv1, double dv2, double dv3, double *dv4)
void C2F()	loadfamilyGif (char name, integer j, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	queryfamilyGif (char name, integer j, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void	InitScilabGCGif (integer v1, integer v2, integer v3, integer v4)
void C2F()	setthicknessGif (integer value, integer v2, integer v3, integer v4)
void C2F()	setalufunctionGif (char *string)
void C2F()	unsetclipGif (integer v1, integer v2, integer v3, integer v4)
void C2F()	setpatternGif (integer num, integer v2, integer v3, integer v4)
void C2F()	setdashGif (integer value, integer v2, integer v3, integer v4)
void C2F()	sethidden3dGif (integer num, integer v2, integer v3, integer v4)
void C2F()	usecolorGif (integer num, integer v2, integer v3, integer v4)

periGif.h File Reference

Functions

Function Documentation