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

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

To get the bounding rectangle of a string (modified by Bruno by using the previus datas and functions)

Definition at line 1587 of file periPos.c.

References C2F, font, PosStrBox(), prec_fact, vdouble, and xgetfontPos().

Referenced by displaystringPos(), and xcall_in_word_set().

01589 {
01590   integer verbose,nargs,font[2];
01591   double h, w;
01592   verbose=0;
01593   C2F(xgetfontPos)(&verbose,font,&nargs,vdouble);
01594   PosStrBox(string, font[0], font[1], &w, &h);
01595   rect[0]= *x;
01596   rect[1]= (integer)(*y-h*prec_fact);
01597   rect[2]= (integer)(w*prec_fact);
01598   rect[3]= (integer)(h*prec_fact);
01599 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() clearareaPos	(	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 156 of file periPos.c.

References FALSE, file, FPRINTF, ScilabGCPos_is_initialized, sciprint(), and x.

Referenced by xcall_in_word_set().

00157 {
00158   
00159   if ( ScilabGCPos_is_initialized == FALSE ) {
00160     sciprint("xinit must be called before any action \r\n");
00161     return;
00162  }
00163   
00164   FPRINTF((file,"\n [ %d %d %d %d ] clearzone",(int)*x,(int)*y,(int)*w,(int)*h));
00165 }

Here is the call graph for this function:

Here is the caller graph for this function:

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

In Postscript : nothing

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

Definition at line 135 of file periPos.c.

Referenced by xcall_in_word_set().

00136 {
00137   /* FPRINTF((file,"\n showpage")); */
00139   /* FileInit(file); */
00140 }

Here is the caller graph for this function:

void C2F() displaynumbersPos	(	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 2175 of file periPos.c.

References buf, C2F, BCG::CurNumberDispFormat, displaystringPos(), FALSE, i, PD0, PI0, ScilabGCPos, ScilabGCPos_is_initialized, and sciprint().

Referenced by xcall_in_word_set().

02176 { integer i ;
02177   char buf[20];
02178 
02179   if ( ScilabGCPos_is_initialized == FALSE ) {
02180     sciprint("xinit must be called before any action \r\n");
02181     return;
02182   }
02183   
02184   for (i=0 ; i< *n ; i++)
02185     { 
02186       sprintf(buf,ScilabGCPos.CurNumberDispFormat,z[i]);
02187       C2F(displaystringPos)(buf,&(x[i]),&(y[i]),PI0,flag,PI0,PI0,&(alpha[i]),PD0,PD0,PD0) ;
02188     }
02189 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() displaystringPos	(	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 1294 of file periPos.c.

References ascentPos(), boundingboxPos(), C2F, FALSE, file, fontsizePos(), FPRINTF, i, int, PD0, PI0, prec_fact, ScilabGCPos_is_initialized, and sciprint().

Referenced by displaynumbersPos(), and xcall_in_word_set().

01295 {     
01296   integer i,rect[4] ;
01297   int yn_ = (int) (*y + ascentPos());
01298 
01299   if ( ScilabGCPos_is_initialized == FALSE ) {
01300     sciprint("xinit must be called before any action \r\n");
01301     return;
01302   }
01303   
01304   C2F(boundingboxPos)(string,x,&yn_,rect,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01305   FPRINTF((file,"\n("));
01306   for ( i=0; i < (int)strlen(string);i++)
01307     {
01308       if (string[i]== '(' || string[i] == ')' )
01309         FPRINTF((file,"%c%c",'\\',string[i]));
01310       else 
01311         FPRINTF((file,"%c",string[i]));
01312     }
01313   FPRINTF((file,") %d %d %d %5.2f [%d %d %d %d] Show",
01314            (int)*x,yn_ ,
01315            (int)*flag,*angle,(int)rect[0],
01316            (int)rect[1],(int)rect[2],(int)rect[3]));
01317   
01318   FPRINTF((file,"\n%%Latex:\\myput{%d}{%d}{%d}{%s}",
01319            (int)*x,def_height*prec_fact - yn_, 
01320            fontsizePos ()/2,
01321            string));
01322  }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarcPos	(	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

fvect set to tell that we only want to draw not to fill

Definition at line 1804 of file periPos.c.

References C2F, FALSE, fillarcsPos(), i, BCG::IDLastPattern, PD0, PI0, ScilabGCPos, ScilabGCPos_is_initialized, and sciprint().

Referenced by xcall_in_word_set().

01805 { 
01806   integer i =1;
01807   integer fvect[1] ;
01808   integer vects[6];
01809 
01810   if ( ScilabGCPos_is_initialized == FALSE ) {
01811     sciprint("xinit must be called before any action \r\n");
01812     return;
01813   }
01814   
01815   vects[0]= *x;vects[1]= *y;vects[2]= *width;
01816   vects[3]= *height;vects[4]= *angle1;vects[5]= *angle2;
01818   fvect[0] = ScilabGCPos.IDLastPattern + 3  ; /* out of colormap, so don't fill */
01819   C2F(fillarcsPos)(str,vects,fvect,&i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01820 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarcsPos	(	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

to say that we don't want to fill the arcs

Definition at line 1775 of file periPos.c.

References C2F, FALSE, fillarcsPos(), get_dash_and_color_Pos(), i, BCG::IDLastPattern, na, PD0, PI0, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), set_dash_and_color_Pos(), set_line_style_Pos(), and vdouble.

Referenced by xcall_in_word_set().

01776 {
01777   integer verbose=0,Dnarg,Dvalue[10];
01778   int i;
01779   
01780   if ( ScilabGCPos_is_initialized == FALSE ) {
01781     sciprint("xinit must be called before any action \r\n");
01782     return;
01783   }
01784 
01785   /* store the current values */
01786   C2F(get_dash_and_color_Pos)(&verbose,Dvalue,&Dnarg,vdouble);
01787   for ( i=0 ; i < *n ; i++) 
01788     {
01789       integer fvect,na=1;
01791       C2F(set_line_style_Pos)(&style[i],PI0,PI0,PI0);
01792 
01794       fvect = ScilabGCPos.IDLastPattern + 3 ; /* out of colormap, so don't fill */
01795       C2F(fillarcsPos)(str,&vects[(6)*i],&fvect,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01796     }
01797   C2F(set_dash_and_color_Pos)( Dvalue,PI0,PI0,PI0);
01798 }

Here is the call graph for this function:

Here is the caller graph for this function:

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

Draw a set of arrows

all the arrows have the same color

Definition at line 1657 of file periPos.c.

References C2F, FALSE, get_dash_and_color_Pos(), i, L, PI0, ScilabGCPos_is_initialized, sciprint(), set_dash_and_color_Pos(), set_line_style_Pos(), vdouble, and WriteGenericPos().

Referenced by xcall_in_word_set().

01658 {
01659   integer verbose=0,Dnarg,Dvalue[10],NDvalue;
01660   int i;
01661   
01662   if ( ScilabGCPos_is_initialized == FALSE ) {
01663     sciprint("xinit must be called before any action \r\n");
01664     return;
01665   }
01666   
01667   C2F(get_dash_and_color_Pos)(&verbose,Dvalue,&Dnarg,vdouble);
01668   /* store the current values */
01669   if ((int)  *iflag == 0 )
01670     {
01672       NDvalue=(*style < 1) ?  Dvalue[0] : *style;
01673       C2F(set_line_style_Pos)(&NDvalue,PI0,PI0,PI0);
01674       C2F(WriteGenericPos)("drawarrows",(integer)1L,(*n)*2,vx,vy,*n,(integer)1L,as); 
01675     }
01676   else
01677     {
01678       for ( i=0 ; i < *n/2 ; i++) 
01679         {
01680           NDvalue = style[i];
01681           C2F(set_line_style_Pos)(&NDvalue,PI0,PI0,PI0);
01682           /*C2F(setpatternPos)(&NDvalue,PI0,PI0,PI0); commented out ss 13/09/00 */
01683           C2F(WriteGenericPos)("drawarrows",(integer)1L,(integer)4L,&vx[2*i],&vy[2*i],(integer)2L,(integer)1L,as);
01684         }
01685     }
01686   C2F(set_dash_and_color_Pos)( Dvalue,PI0,PI0,PI0);
01687 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawaxisPos	(	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 2158 of file periPos.c.

References FALSE, file, FPRINTF, ScilabGCPos_is_initialized, and sciprint().

Referenced by xcall_in_word_set().

02159 {
02160   if ( ScilabGCPos_is_initialized == FALSE ) {
02161     sciprint("xinit must be called before any action \r\n");
02162     return;
02163   }
02164 
02165   FPRINTF((file,"\n %d [%d %d] [%f %f %f] [%d %d] drawaxis",
02166           (int)*alpha,(int)nsteps[0],(int)nsteps[1],size[0],size[1],size[2],
02167           (int)initpoint[0],(int)initpoint[1]));
02168 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolylinePos	(	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

fvect set to tell that we only want to draw not to fill

Definition at line 1916 of file periPos.c.

References C2F, FALSE, file, fillpolylinesPos(), FPRINTF, i, PD0, PI0, ScilabGCPos_is_initialized, and sciprint().

Referenced by drawpolylinesPos(), and xcall_in_word_set().

01917 { integer i =1;
01918   integer fvect[1] ;
01919 
01920   if ( ScilabGCPos_is_initialized == FALSE ) {
01921     sciprint("xinit must be called before any action \r\n");
01922     return;
01923   }
01924 
01926   fvect[0] = 0;
01927   if (*closeflag == 1 )
01928     FPRINTF((file,"\n/closeflag true def"));
01929   else 
01930     FPRINTF((file,"\n/closeflag false def"));
01931   C2F(fillpolylinesPos)(str,vx,vy,fvect,&i,n,PI0,PD0,PD0,PD0,PD0);
01932 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolylinesPos	(	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 1850 of file periPos.c.

References C2F, close(), drawpolylinePos(), drawpolymarkPos(), FALSE, get_dash_and_color_Pos(), i, PD0, PI0, ScilabGCPos_is_initialized, sciprint(), set_dash_and_color_Pos(), set_line_style_Pos(), vdouble, xgetmarkPos(), and xsetmarkPos().

Referenced by xcall_in_word_set().

01851 { integer verbose ,symb[2],Mnarg,Dnarg,Dvalue[10],NDvalue,i,close;
01852   verbose =0 ;  
01853   
01854   if ( ScilabGCPos_is_initialized == FALSE ) {
01855     sciprint("xinit must be called before any action \r\n");
01856     return;
01857   }
01858   
01859   /* store the current values */
01860   C2F(xgetmarkPos)(&verbose,symb,&Mnarg,vdouble);
01861   C2F(get_dash_and_color_Pos)(&verbose,Dvalue,&Dnarg,vdouble);
01862   for (i=0 ; i< *n ; i++)
01863     {
01864       if (drawvect[i] <= 0)
01865         { 
01866           NDvalue = - drawvect[i];
01867           C2F(xsetmarkPos)(&NDvalue,symb+1,PI0,PI0);
01868          
01869           C2F(drawpolymarkPos)(str,p,vectsx+(*p)*i,vectsy+(*p)*i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01870         }
01871       else
01872         {
01874           C2F(set_line_style_Pos)(drawvect+i,PI0,PI0,PI0);
01875           close = 0;
01876           C2F(drawpolylinePos)(str,p,vectsx+(*p)*i,vectsy+(*p)*i,&close,PI0,PI0,PD0,PD0,PD0,PD0);
01877         }
01878     }
01880   C2F(set_dash_and_color_Pos)(Dvalue,PI0,PI0,PI0);
01881   C2F(xsetmarkPos)(symb,symb+1,PI0,PI0);
01882 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawpolymarkPos	(	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 1955 of file periPos.c.

References C2F, BCG::CurHardSymbSize, displaysymbolsPos(), FALSE, BCG::FontId, BCG::FontSize, i, PI0, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), sz, and xsetfontPos().

Referenced by drawpolylinesPos(), and xcall_in_word_set().

01956 { 
01957   integer keepid,keepsize,i=1,sz;
01958   
01959   if ( ScilabGCPos_is_initialized == FALSE ) {
01960     sciprint("xinit must be called before any action \r\n");
01961     return;
01962   }
01963   
01964   sz=ScilabGCPos.CurHardSymbSize;
01965   keepid =  ScilabGCPos.FontId;
01966   keepsize= ScilabGCPos.FontSize;
01967   C2F(xsetfontPos)(&i,&sz,PI0,PI0);
01968   C2F(displaysymbolsPos)(str,n,vx,vy);
01969   C2F(xsetfontPos)(&keepid,&keepsize,PI0,PI0);
01970 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawrectanglePos	(	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 1711 of file periPos.c.

References C2F, drawrectanglesPos(), FALSE, i, PD0, PI0, ScilabGCPos_is_initialized, and sciprint().

Referenced by xcall_in_word_set().

01712 { 
01713   integer i = 1;
01714   integer fvect[1] ;
01715   integer vects[4];
01716   
01717   if ( ScilabGCPos_is_initialized == FALSE ) {
01718     sciprint("xinit must be called before any action \r\n");
01719     return;
01720   }
01721 
01722   vects[0]= *x;vects[1]= *y;vects[2]= *width;
01723   vects[3]= *height;
01725   fvect[0] = 0;
01726   C2F(drawrectanglesPos)(str,vects,fvect,&i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01727 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawrectanglesPos	(	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 1697 of file periPos.c.

References C2F, FALSE, getpatternPos(), L, PI0, ScilabGCPos_is_initialized, sciprint(), setpatternPos(), vdouble, and WriteGenericPos().

Referenced by drawrectanglePos(), fillrectanglePos(), and xcall_in_word_set().

01698 {
01699   integer cpat,verb=0,num;
01700 
01701   if ( ScilabGCPos_is_initialized == FALSE ) {
01702     sciprint("xinit must be called before any action \r\n");
01703     return;
01704   }
01705   
01706   C2F(getpatternPos)(&verb,&cpat,&num,vdouble);
01707   C2F(WriteGenericPos)("drawbox",*n,(integer)4L,vects,vects,4*(*n),(integer)0L,fillvect);
01708   C2F(setpatternPos)(&(cpat),PI0,PI0,PI0);
01709 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawsegmentsPos	(	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 1625 of file periPos.c.

References C2F, FALSE, getpatternPos(), i, L, ScilabGCPos_is_initialized, sciprint(), vdouble, and WriteGenericPos().

Referenced by xcall_in_word_set().

01626 {
01627   integer verbose=0,Dnarg,Dvalue[10],NDvalue;
01628   int i;
01629 
01630   if ( ScilabGCPos_is_initialized == FALSE ) {
01631     sciprint("xinit must be called before any action \r\n");
01632     return;
01633   }
01634   
01635   /* store the current values */
01636   C2F(getpatternPos)(&verbose,Dvalue,&Dnarg,vdouble);
01637   if ((int)  *iflag == 0 )
01638     {
01640       NDvalue= (*style < 1) ? Dvalue[0] : *style; 
01641       C2F(WriteGenericPos)("drawsegs",(integer)1L,(*n)*2,vx,vy,*n,(integer)1L,&NDvalue); 
01642     }
01643   else
01644     {
01645       for ( i=0 ; i < *n/2 ; i++) 
01646         {
01647           integer NDvalue_;
01648           NDvalue_ = style[i];
01649           C2F(WriteGenericPos)("drawsegs",(integer)1L,(integer)4L,&vx[2*i],&vy[2*i],(integer)2L,(integer)1L,&NDvalue_);
01650         }
01651     }
01652   /*C2F(set_dash_and_color_Pos)( Dvalue,PI0,PI0,PI0);*/
01653 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillarcPos	(	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 1825 of file periPos.c.

References C2F, FALSE, fillarcsPos(), getpatternPos(), i, PD0, PI0, ScilabGCPos_is_initialized, sciprint(), and vdouble.

Referenced by xcall_in_word_set().

01826 { 
01827   integer i =1,vects[6];
01828   integer cpat,verb=0,num;
01829 
01830   if ( ScilabGCPos_is_initialized == FALSE ) {
01831     sciprint("xinit must be called before any action \r\n");
01832     return;
01833   }
01834   
01835   vects[0]= *x;vects[1]= *y;vects[2]= *width;
01836   vects[3]= *height;vects[4]= *angle1;vects[5]= *angle2;
01837   C2F(getpatternPos)(&verb,&cpat,&num,vdouble);
01838   C2F(fillarcsPos)(str,vects,&cpat,&i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
01839  }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillarcsPos	(	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

Definition at line 1753 of file periPos.c.

References C2F, FALSE, getpatternPos(), L, PI0, ScilabGCPos_is_initialized, sciprint(), setpatternPos(), vdouble, and WriteGenericPos().

Referenced by drawarcPos(), drawarcsPos(), fillarcPos(), and xcall_in_word_set().

01754 {
01755   integer cpat,verb,num;
01756   verb=0;
01757   
01758   if ( ScilabGCPos_is_initialized == FALSE ) {
01759     sciprint("xinit must be called before any action \r\n");
01760     return;
01761   }
01762   
01763   C2F(getpatternPos)(&verb,&cpat,&num,vdouble);
01764   C2F(WriteGenericPos)("fillarc",*n,(integer)6L,vects,vects,6*(*n),(integer)0L,fillvect);
01765   C2F(setpatternPos)(&(cpat),PI0,PI0,PI0);
01766 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillpolylinePos	(	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 1936 of file periPos.c.

References C2F, FALSE, fillpolylinesPos(), getpatternPos(), i, PD0, PI0, ScilabGCPos_is_initialized, sciprint(), and vdouble.

Referenced by xcall_in_word_set().

01937 {
01938   integer i =1;
01939   integer cpat,verb=0,num;
01940 
01941   if ( ScilabGCPos_is_initialized == FALSE ) {
01942     sciprint("xinit must be called before any action \r\n");
01943     return;
01944   }
01945 
01946   C2F(getpatternPos)(&verb,&cpat,&num,vdouble); 
01948   cpat = -cpat;
01949   C2F(fillpolylinesPos)(str,vx,vy,&cpat,&i,n,PI0,PD0,PD0,PD0,PD0);
01950 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillpolylinesPos	(	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 1895 of file periPos.c.

References C2F, CoordModeOrigin, BCG::CurVectorStyle, FALSE, file, FPRINTF, getpatternPos(), L, PI0, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), setpatternPos(), vdouble, and WriteGenericPos().

Referenced by drawpolylinePos(), fillpolylinePos(), and xcall_in_word_set().

01896 {
01897   integer cpat,verb=0,num;
01898 
01899   if ( ScilabGCPos_is_initialized == FALSE ) {
01900     sciprint("xinit must be called before any action \r\n");
01901     return;
01902   }
01903 
01904   if ( ScilabGCPos.CurVectorStyle !=  CoordModeOrigin)
01905     FPRINTF((file,"\n/absolu false def"));
01906   C2F(getpatternPos)(&verb,&cpat,&num,vdouble);
01907   C2F(WriteGenericPos)("drawpoly",*n,(*p)*2,vectsx,vectsy,(*p)*(*n),(integer)1L,
01908                         fillvect);
01909   C2F(setpatternPos)(&(cpat),PI0,PI0,PI0);
01910   FPRINTF((file,"\n/absolu true def"));
01911 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() fillrectanglePos	(	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 1731 of file periPos.c.

References C2F, drawrectanglesPos(), FALSE, getpatternPos(), i, PD0, PI0, ScilabGCPos_is_initialized, sciprint(), and vdouble.

Referenced by xcall_in_word_set().

01732 { 
01733   integer i = 1;
01734   integer vects[4];
01735   integer cpat,verb=0,num;
01736 
01737   if ( ScilabGCPos_is_initialized == FALSE ) {
01738     sciprint("xinit must be called before any action \r\n");
01739     return;
01740   }
01741   
01742   vects[0]= *x;vects[1]= *y;vects[2]= *width;
01743   vects[3]= *height ; 
01744   C2F(getpatternPos)(&verb,&cpat,&num,vdouble);
01745   C2F(drawrectanglesPos)(str,vects,&cpat,&i,PI0,PI0,PI0,PD0,PD0,PD0,PD0);    
01746 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() get_dash_and_color_Pos	(	integer *	verbose,
		integer *	value,
		integer *	narg,
		double *	dummy
	)

Definition at line 739 of file periPos.c.

References C2F, dummy, FALSE, getdashPos(), getpatternPos(), ScilabGCPos_is_initialized, and sciprint().

Referenced by drawarcsPos(), drawarrowsPos(), and drawpolylinesPos().

00740 {
00741   if ( ScilabGCPos_is_initialized == FALSE ) {
00742     sciprint("xinit must be called before any action \r\n");
00743     return;
00744   }
00745   
00746   /*may be improved replacing 6 by narg */
00747   C2F(getdashPos)(verbose, value, narg,dummy);
00748   C2F(getpatternPos)(verbose, value+6, narg,dummy);
00749   *narg = 6;
00750 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() get_dash_or_color_Pos	(	integer *	verbose,
		integer *	value,
		integer *	narg,
		double *	dummy
	)

to get the current dash-style

Definition at line 677 of file periPos.c.

References BCG::CurColor, BCG::CurColorStatus, BCG::CurDashStyle, FALSE, i, ScilabGCPos, ScilabGCPos_is_initialized, and sciprint().

00678 {
00679   integer i ;
00680 
00681   if ( ScilabGCPos_is_initialized == FALSE ) {
00682     sciprint("xinit must be called before any action \r\n");
00683     return;
00684   }
00685   
00686   *narg =1 ;
00687   if ( ScilabGCPos.CurColorStatus ==1) 
00688     {
00689       *value= ScilabGCPos.CurColor + 1;
00690       if (*verbose == 1) sciprint("Color %d",(int)*value);
00691       return;
00692     }
00693   *value=ScilabGCPos.CurDashStyle+1;
00694   if ( *value == 1) 
00695     { if (*verbose == 1) sciprint("\nLine style = Line Solid");}
00696   else 
00697     {
00698       value[1]=4;
00699       *narg = value[1]+2;
00700       for ( i =0 ; i < value[1]; i++) value[i+2]=DashTabPos[*value-1][i];
00701       if (*verbose ==1 ) 
00702         {
00703           sciprint("\nDash Style %d:<",(int)*value);
00704           for ( i =0 ; i < value[1]; i++)
00705             sciprint("%d ",(int)value[i+2]);
00706           sciprint(">\n");
00707         }
00708     }
00709 }

Here is the call graph for this function:

void C2F() getcolormapPos	(	integer *	v1,
		integer *	v2,
		integer *	v3,
		double *	val
	)

Definition at line 921 of file periPos.c.

References BCG::Blue, FALSE, BCG::Green, i, BCG::Numcolors, BCG::Red, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), and val.

00922 {
00923   int m;
00924   int i;
00925   *v3 = 0;
00926 
00927   if ( ScilabGCPos_is_initialized == FALSE ) {
00928     sciprint("xinit must be called before any action \r\n");
00929     *v3=1;
00930     return;
00931   }
00932 
00933   m = ScilabGCPos.Numcolors;
00934 
00935   for (i = 0; i < m; i++) {
00936     val[i] = (double)ScilabGCPos.Red[i];
00937     val[i+m] = (double)ScilabGCPos.Green[i];
00938     val[i+2*m] = (double)ScilabGCPos.Blue[i];
00939   }
00940 
00941 /*   if (*v2 != 3 ||  *v1 < 0) { */
00942 /*     sciprint("Colormap must be a m x 3 array \n"); */
00943 /*     *v3 = 1; */
00944 /*     return; */
00945 /*   } */
00946 /*   m = *v1; */
00947 /*   C2F(setgccolormapPos)(&ScilabGCPos,m, a, v3); */
00948 }

Here is the call graph for this function:

void C2F() getcolormapsizePos	(	integer *	v1,
		integer *	v2,
		integer *	v3,
		double *	val
	)

Definition at line 910 of file periPos.c.

References FALSE, BCG::Numcolors, ScilabGCPos, ScilabGCPos_is_initialized, and sciprint().

00911 {
00912   if ( ScilabGCPos_is_initialized == FALSE ) {
00913     sciprint("xinit must be called before any action \r\n");
00914     *v3=1;
00915     return;
00916   }
00917 
00918   *v2 = ScilabGCPos.Numcolors;
00919 }

Here is the call graph for this function:

void C2F() getFontMaxSizePos	(	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 2452 of file periPos.c.

References FONTMAXSIZE.

Referenced by xcall_in_word_set().

02453 {
02454   *sizeMin = 0 ;
02455   *sizeMax = FONTMAXSIZE ;
02456 }

Here is the caller graph for this function:

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

Definition at line 2532 of file periPos.c.

References C2F, BCG::CurWindow, FileInitFromScreenPos(), loadfamilyPos(), PD0, PI0, and ScilabGCPos.

Referenced by xcall_in_word_set().

02533 { 
02534   char string1[256];
02535   static integer EntryCounter = 0;
02536   integer fnum;
02537 
02538   *v3 = 0;
02539   if (EntryCounter >= 1) C2F(xendgraphicPos)();
02540   strncpy(string1,string,256);
02541 
02542   /* Not so useful   
02543      sprintf(string2,"%d",(int)EntryCounter);
02544      strcat(string1,string2); */
02545   file=fopen(string1,"w");
02546   if (file == 0) 
02547     {
02548       /*sciprint("Can't open file %s, I'll use stdout\r\n",string1);*/
02549       file =stdout;
02550       *v3 = 1;
02551       return;
02552     }
02553   if (EntryCounter == 0)
02554     { 
02555       fnum=0;      C2F(loadfamilyPos)("Courier",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02556       fnum=1;      C2F(loadfamilyPos)("Symbol",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02557       fnum=2;      C2F(loadfamilyPos)("Times-Roman",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
02558       fnum=3;      C2F(loadfamilyPos)("Times-Italic",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02559       fnum=4;      C2F(loadfamilyPos)("Times-Bold",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
02560       fnum=5;      C2F(loadfamilyPos)("Times-BoldItalic",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02561       fnum=6;      C2F(loadfamilyPos)("Helvetica",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02562       fnum=7;      C2F(loadfamilyPos)("Helvetica-Oblique",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02563       fnum=8;      C2F(loadfamilyPos)("Helvetica-Bold",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02564       fnum=9;      C2F(loadfamilyPos)("Helvetica-BoldOblique",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02565 
02566     }
02567   FileInitFromScreenPos();
02568   ScilabGCPos.CurWindow =EntryCounter;
02569   EntryCounter =EntryCounter +1;
02570 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() initgraphicPos	(	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 1976 of file periPos.c.

References C2F, BCG::CurWindow, file, FileInit(), loadfamilyPos(), PD0, PI0, and ScilabGCPos.

Referenced by xcall_in_word_set().

01977 { 
01978   char string1[256];
01979   static integer EntryCounter = 0;
01980   integer fnum;
01981 
01982   *v3 = 0;
01983   if (EntryCounter >= 1) C2F(xendgraphicPos)();
01984   strncpy(string1,string,256);
01985 
01986   /* Not so useful   
01987      sprintf(string2,"%d",(int)EntryCounter);
01988      strcat(string1,string2); */
01989   file=fopen(string1,"w");
01990   if (file == 0) 
01991     {
01992       /*sciprint("Can't open file %s, I'll use stdout\r\n",string1);*/
01993       file =stdout;
01994       *v3 = 1;
01995       return;
01996     }
01997   if (EntryCounter == 0)
01998     { 
01999       fnum=0;      C2F(loadfamilyPos)("Courier",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02000       fnum=1;      C2F(loadfamilyPos)("Symbol",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02001       fnum=2;      C2F(loadfamilyPos)("Times-Roman",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
02002       fnum=3;      C2F(loadfamilyPos)("Times-Italic",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02003       fnum=4;      C2F(loadfamilyPos)("Times-Bold",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
02004       fnum=5;      C2F(loadfamilyPos)("Times-BoldItalic",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02005       fnum=6;      C2F(loadfamilyPos)("Helvetica",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02006       fnum=7;      C2F(loadfamilyPos)("Helvetica-Oblique",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02007       fnum=8;      C2F(loadfamilyPos)("Helvetica-Bold",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02008       fnum=9;      C2F(loadfamilyPos)("Helvetica-BoldOblique",&fnum,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0); 
02009 
02010     }
02011   FileInit();
02012   ScilabGCPos.CurWindow =EntryCounter;
02013   EntryCounter =EntryCounter +1;
02014 }

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 2096 of file periPos.c.

References C2F, CoordModeOrigin, BCG::CurColorStatus, BCG::CurLineWidth, BCG::CurNumberDispFormat, BCG::CurVectorStyle, DEFAULTNUMCOLORS, getcolordef(), GREYNUMBER, i, BCG::IDLastPattern, j, BCG::mafigure, NULL, BCG::Numcolors, BCG::NumForeground, PI0, ScilabGCPos, setalufunctionPos(), setbackgroundPos(), setdashPos(), setforegroundPos(), sethidden3dPos(), setpatternPos(), setthicknessPos(), unsetclipPos(), usecolorPos(), xsetfontPos(), and xsetmarkPos().

Referenced by FileInit(), and FileInitFromScreenPos().

02097 { integer i,j,col;
02098   ScilabGCPos.IDLastPattern = GREYNUMBER-1;
02099   ScilabGCPos.CurLineWidth=0 ;
02100   i=1;
02101   C2F(setthicknessPos)(&i,PI0,PI0,PI0);
02102   C2F(setalufunctionPos)("GXcopy");
02104   i=j= -1;
02105   C2F(unsetclipPos)(PI0,PI0,PI0,PI0);
02106   C2F(setdashPos)((i=0,&i),PI0,PI0,PI0);
02107   C2F(xsetfontPos)((i=2,&i),(j=1,&j),PI0,PI0);
02108   C2F(xsetmarkPos)((i=0,&i),(j=0,&j),PI0,PI0);
02110   ScilabGCPos.CurVectorStyle = CoordModeOrigin ;
02111   /* initialisation des pattern dash par defaut en n&b */
02112   ScilabGCPos.CurColorStatus =0;
02113   C2F(setpatternPos)((i=1,&i),PI0,PI0,PI0);
02114   C2F(setdashPos)((i=1,&i),PI0,PI0,PI0);
02115   C2F(sethidden3dPos)((i=1,&i),PI0,PI0,PI0);
02116   /* initialisation de la couleur par defaut */ 
02117   ScilabGCPos.Numcolors = DEFAULTNUMCOLORS;
02118   ScilabGCPos.NumForeground = DEFAULTNUMCOLORS;
02119   ScilabGCPos.CurColorStatus = 1 ;
02120   C2F(setpatternPos)((i=1,&i),PI0,PI0,PI0);
02121   C2F(setforegroundPos)((i=ScilabGCPos.NumForeground+1,&i),PI0,PI0,PI0);
02122   C2F(setbackgroundPos)((i=ScilabGCPos.NumForeground+2,&i),PI0,PI0,PI0);
02123   C2F(sethidden3dPos)((i=4,&i),PI0,PI0,PI0);
02124   /* Choix du mode par defaut (decide dans initgraphic_ */
02125   getcolordef(&col);
02129   ScilabGCPos.mafigure = (sciPointObj *)NULL;
02130 
02131   ScilabGCPos.CurColorStatus = (col == 1) ? 0: 1;
02132   C2F(usecolorPos)(&col,PI0,PI0,PI0);
02133   if (col == 1) ScilabGCPos.IDLastPattern = ScilabGCPos.Numcolors - 1;
02134   strcpy(ScilabGCPos.CurNumberDispFormat,"%-5.2g");
02135 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() loadfamilyPos	(	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 2464 of file periPos.c.

References C2F, FontInfoTabPos, FONTMAXSIZE, SciFontInfo::ok, PosQueryFont(), and sciprint().

Referenced by initgraphicfromscreenPos(), initgraphicPos(), and xcall_in_word_set().

02465 {
02466   integer i ;
02467   for ( i = 0; i < FONTMAXSIZE ; i++)
02468     {
02469       FontsListPos[*j][i] = C2F(PosQueryFont)(name);
02470     }
02471   if  (FontsListPos[*j][0] == 0 )
02472           sciprint("\n unknown font family : %s \r\n",name);
02473   else 
02474     {FontInfoTabPos[*j].ok = 1;
02475      strcpy(FontInfoTabPos[*j].fname,name) ;}
02476 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() queryfamilyPos	(	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 2487 of file periPos.c.

References FontInfoTabPos, and FONTNUMBER.

Referenced by xcall_in_word_set().

02488 { 
02489   integer i ;
02490   name[0]='\0';
02491   for (i=0;i<FONTNUMBER;i++) {
02492     strcat(name,FontInfoTabPos[i].fname);
02493     v3[i]=strlen(FontInfoTabPos[i].fname);
02494   }
02495   *j=FONTNUMBER;
02496 }

Here is the caller graph for this function:

void C2F() scilabgcgetPos	(	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 1242 of file periPos.c.

References C2F, L, and ScilabGCGetorSetPos().

Referenced by xcall_in_word_set().

01243 {
01244   int x6=0;
01245   C2F(ScilabGCGetorSetPos)(str,(integer)1L,verbose,x1,x2,x3,x4,x5,&x6,dv1);
01246 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() scilabgcsetPos	(	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 1248 of file periPos.c.

References C2F, L, and ScilabGCGetorSetPos().

Referenced by xcall_in_word_set().

01249 {
01250  integer verbose ;
01251  verbose = 0 ;
01252  C2F(ScilabGCGetorSetPos)(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() set_dash_and_color_Pos	(	integer *	value,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 618 of file periPos.c.

References C2F, FALSE, ScilabGCPos_is_initialized, sciprint(), setdashPos(), and setpatternPos().

Referenced by drawarcsPos(), drawarrowsPos(), and drawpolylinesPos().

00619 {
00620   if ( ScilabGCPos_is_initialized == FALSE ) {
00621     sciprint("xinit must be called before any action \r\n");
00622     return;
00623   }
00624   
00625   C2F(setdashPos)(value, v2, v3, v4); 
00626   C2F(setpatternPos)(value+6, v2, v3, v4);
00627 }

Here is the call graph for this function:

Here is the caller graph for this function:

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

Definition at line 579 of file periPos.c.

References C2F, BCG::CurColor, BCG::CurColorStatus, BCG::CurDashStyle, FALSE, i, Max, MAXDASH, Min, BCG::Numcolors, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), set_cPos(), and setdashstylePos().

00580 {
00581   static integer  l2=4,l3 ;
00582   
00583   if ( ScilabGCPos_is_initialized == FALSE ) {
00584     sciprint("xinit must be called before any action \r\n");
00585     return;
00586   }
00587   
00588   if ( ScilabGCPos.CurColorStatus == 1) 
00589     {
00590       int i;
00591       i= Max(0,Min(*value-1,ScilabGCPos.Numcolors+1));
00592       ScilabGCPos.CurColor =i;
00593       C2F(set_cPos)(i);
00594     }
00595   else 
00596     {
00597       l3 = Max(0,Min(MAXDASH - 1,*value - 1));
00598       C2F(setdashstylePos)(&l3,DashTabPos[l3],&l2);
00599       ScilabGCPos.CurDashStyle = l3;
00600     }
00601 }

Here is the call graph for this function:

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

Definition at line 631 of file periPos.c.

References C2F, BCG::CurColorStatus, BCG::CurDashStyle, FALSE, j, PI0, ScilabGCPos, ScilabGCPos_is_initialized, sciprint(), setdashPos(), and setpatternPos().

Referenced by drawarcsPos(), drawarrowsPos(), and drawpolylinesPos().

00632 {
00633   integer j;
00634   
00635   if ( ScilabGCPos_is_initialized == FALSE ) {
00636     sciprint("xinit must be called before any action \r\n");
00637     return;
00638   }
00639   
00640   if (ScilabGCPos.CurColorStatus == 0)
00641     C2F(setdashPos)(value,PI0,PI0,PI0);
00642   else {
00643     j= ScilabGCPos.CurDashStyle + 1;
00644     C2F(setdashPos)(&j,PI0,PI0,PI0);
00645     C2F(setpatternPos)(value,PI0,PI0,PI0);
00646   }
00647 }

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() SetDriverPos ( )

void C2F() setgccolormapPos	(	struct BCG *	Xgc,
		integer	m,
		double *	a,
		integer *	v3
	)

Definition at line 843 of file periPos.c.

References BCG::Blue, C2F, FALSE, file, FPRINTF, FREE, BCG::Green, i, BCG::IDLastPattern, MALLOC, BCG::NumBackground, BCG::Numcolors, BCG::NumForeground, PI0, BCG::Red, ScilabGCPos_is_initialized, sciprint(), setalufunction1Pos(), setbackgroundPos(), setforegroundPos(), setpatternPos(), usecolorPos(), and WriteColorRGB().

Referenced by setcolormapgPos(), and setcolormapPos().

00844 {
00845   int i;
00846   int mm;
00847 
00848   if ( ScilabGCPos_is_initialized == FALSE ) {
00849     sciprint("xinit must be called before any action \r\n");
00850     return;
00851   }
00852   
00853   /* Checking RGB values */
00854   for (i = 0; i < m; i++) {
00855     if (a[i] < 0 || a[i] > 1 || a[i+m] < 0 || a[i+m] > 1 ||
00856         a[i+2*m] < 0 || a[i+2*m]> 1) {
00857       sciprint("RGB values must be between 0 and 1\n");
00858       *v3 = 1;
00859       return;
00860     }
00861   }
00862   Xgc->Numcolors = m;
00863   Xgc->IDLastPattern = m - 1;
00864   Xgc->NumForeground = m;
00865   Xgc->NumBackground = m + 1;
00866   FPRINTF((file,"\n/WhiteLev %d def",Xgc->IDLastPattern));
00867   WriteColorRGB("R",a,0);
00868   WriteColorRGB("G",a,1);
00869   WriteColorRGB("B",a,2);
00870   C2F(usecolorPos)((i=1,&i) ,PI0,PI0,PI0);
00871   C2F(setalufunction1Pos)((i=3,&i),PI0,PI0,PI0);
00872   C2F(setpatternPos)((i=Xgc->NumForeground+1,&i),PI0,PI0,PI0);  
00873   C2F(setforegroundPos)((i=Xgc->NumForeground+1,&i),PI0,PI0,PI0);
00874   C2F(setbackgroundPos)((i=Xgc->NumForeground+2,&i),PI0,PI0,PI0);
00875 
00876   /* -------------------------------------------------------- */
00877   /* store the colormap for the get command too */
00878   /* F.Leray 04.10.05 */
00879   FREE(Xgc->Red);
00880   FREE(Xgc->Green);
00881   FREE(Xgc->Blue);
00882   
00883   /* don't forget black and white */
00884   mm = m;
00885   if (!(Xgc->Red = (float *) MALLOC(mm*sizeof(float)))) {
00886     sciprint("XgcAllocColors: unable to alloc\n");
00887     return;
00888   }
00889   if (!(Xgc->Green = (float *) MALLOC(mm*sizeof(float)))) {
00890     sciprint("XgcAllocColors: unable to alloc\n");
00891     FREE(Xgc->Red);
00892     return;
00893   }
00894   if (!(Xgc->Blue = (float *) MALLOC(mm*sizeof(float)))) {
00895     sciprint("XgcAllocColors: unable to alloc\n");
00896     FREE(Xgc->Red);
00897     FREE(Xgc->Green);
00898     return;
00899   }
00900 
00901 
00902   for(i=0;i<m;i++){
00903     Xgc->Red[i] = (float)a[i];
00904     Xgc->Green[i] = (float)a[i+m];
00905     Xgc->Blue[i] = (float)a[i+2*m]; 
00906   }
00907   /* -------------------------------------------------------- */
00908 }

Here is the call graph for this function:

Here is the caller graph for this function:

void setposfig	(	integer *	i,
		integer *	j
	)

Definition at line 198 of file periPos.c.

Referenced by sci_set_posfig_dim().

00199 {
00200   def_width =*i;
00201   def_height =*j;
00202   if (def_width*def_height==0){
00203     def_width =600;
00204     def_height =424;
00205   }
00206 }

Here is the caller graph for this function:

void C2F() setwwhowPos	(	integer *	verbose,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

Definition at line 1159 of file periPos.c.

References file, and FPRINTF.

01160 {
01161   FPRINTF((file,"\n%% SPLIT HERE"));
01162 
01163 }

void C2F() xclick_anyPos	(	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 148 of file periPos.c.

Referenced by xcall_in_word_set().

00149 { }

Here is the caller graph for this function:

void C2F() xclickPos	(	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 145 of file periPos.c.

Referenced by xcall_in_word_set().

00146 { }

Here is the caller graph for this function:

void C2F() xendPos	(	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 126 of file periPos.c.

References C2F.

Referenced by xcall_in_word_set().

00127 {
00128   C2F(xendgraphicPos)();
00129 }

Here is the caller graph for this function:

void C2F() xgetmousePos	(	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 151 of file periPos.c.

Referenced by xcall_in_word_set().

00152 { }

Here is the caller graph for this function:

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

To select the graphic Window

Definition at line 110 of file periPos.c.

Referenced by xcall_in_word_set().

00111 {}

Here is the caller graph for this function:


Functions
void C2F()	drawarcPos (char str, integer x, integer y, integer width, integer height, integer angle1, integer angle2, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillarcsPos (char str, integer vects, integer fillvect, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawarcsPos (char str, integer vects, integer style, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillpolylinePos (char str, integer n, integer vx, integer vy, integer closeareaflag, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawaxisPos (char str, integer alpha, integer nsteps, integer v2, integer initpoint, integer v6, integer v7, double size, double dx2, double dx3, double *dx4)
void C2F()	clearareaPos (char str, integer x, integer y, integer w, integer h, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	clearwindowPos (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xclickPos (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_anyPos (char str, integer ibutton, integer xx1, integer yy1, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xgetmousePos (char str, integer ibutton, integer xx1, integer yy1, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xendPos (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillarcPos (char str, integer x, integer y, integer width, integer height, integer angle1, integer angle2, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillrectanglePos (char str, integer x, integer y, integer width, integer height, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	scilabgcgetPos (char str, integer verbose, integer x1, integer x2, integer x3, integer x4, integer x5, double dv1, double dv2, double dv3, double *dv4)
void C2F()	initgraphicPos (char string, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	initgraphicfromscreenPos (char , integer , integer , integer , integer , integer , integer , double , double , double , double *)
void C2F()	drawpolylinePos (char str, integer n, integer vx, integer vy, integer closeflag, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	fillpolylinesPos (char str, integer vectsx, integer vectsy, integer fillvect, integer n, integer p, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawpolylinesPos (char str, integer vectsx, integer vectsy, integer drawvect, integer n, integer p, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawpolymarkPos (char str, integer n, integer vx, integer vy, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	getFontMaxSizePos (char str, integer sizeMin, integer sizeMax, integer v1, integer v2, integer v3, integer v4, double dx1, double dx2, double dx3, double *dx4)
void C2F()	displaynumbersPos (char str, integer x, integer y, integer v1, integer v2, integer n, integer flag, double z, double alpha, double dx3, double *dx4)
void C2F()	drawrectanglePos (char str, integer x, integer y, integer width, integer height, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawrectanglesPos (char str, integer vects, integer fillvect, integer n, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawsegmentsPos (char str, integer vx, integer vy, integer n, integer style, integer iflag, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	xselgraphicPos (char v1, integer v2, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	scilabgcsetPos (char str, integer x1, integer x2, integer x3, integer x4, integer x5, integer x6, double dv1, double dv2, double dv3, double *dv4)
void C2F()	SetDriverPos ()
void C2F()	displaystringPos (char string, integer x, integer y, integer v1, integer flag, integer v6, integer v7, double angle, double dv2, double dv3, double *dv4)
void C2F()	boundingboxPos (char string, integer x, integer y, integer rect, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	drawarrowsPos (char str, integer vx, integer vy, integer n, integer as, integer style, integer iflag, double dv1, double dv2, double dv3, double *dv4)
void C2F()	loadfamilyPos (char name, integer j, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	queryfamilyPos (char name, integer j, integer v3, integer v4, integer v5, integer v6, integer v7, double dv1, double dv2, double dv3, double *dv4)
void C2F()	set_dash_or_color_Pos (integer value, integer v2, integer v3, integer v4)
void C2F()	set_dash_and_color_Pos (integer value, integer v2, integer v3, integer v4)
void C2F()	set_line_style_Pos (integer value, integer v2, integer v3, integer v4)
void C2F()	get_dash_or_color_Pos (integer verbose, integer value, integer narg, double dummy)
void C2F()	get_dash_and_color_Pos (integer verbose, integer value, integer narg, double dummy)
void C2F()	setgccolormapPos (struct BCG Xgc, integer m, double a, integer *v3)
void C2F()	getcolormapsizePos (integer v1, integer v2, integer v3, double val)
void C2F()	getcolormapPos (integer v1, integer v2, integer v3, double val)
void C2F()	setwwhowPos (integer verbose, integer v2, integer v3, integer v4)
void	InitScilabGCPos (integer v1, integer v2, integer v3, integer v4)
void	setposfig (integer i, integer j)

periPos.h File Reference

Functions

Function Documentation