sciCall.c File Reference

#include <math.h>
#include <stdio.h>
#include <string.h>
#include "SetProperty.h"
#include "GetProperty.h"
#include "DrawObjects.h"
#include "BuildObjects.h"
#include "InitObjects.h"
#include "BasicAlgos.h"
#include "math_graphics.h"
#include "PloEch.h"
#include "Axes.h"
#include "Xcall1.h"
#include "sciprint.h"
#include "Fec.h"
#include "GrayPlot.h"
#include "CurrentObjectsManagement.h"
#include "MALLOC.h"
#include "sciCall.h"

Include dependency graph for sciCall.c:

Go to the source code of this file.

Functions
BOOL	update_specification_bounds (sciPointObj *psubwin, double *rect, int flag)
int	plot2dn (integer ptype, char *logflags, double *x, double *y, integer *n1, integer *n2, integer *style, char *strflag, char *legend, double *brect, integer *aaint, BOOL flagNax, integer lstr1, integer lstr2)
void	Objrect (double *x, double *y, double *width, double *height, int *foreground, int *background, BOOL isfilled, BOOL isline, int n, long *hdl, BOOL flagstring)
void	Objarc (int *angle1, int *angle2, double *x, double *y, double *width, double *height, int *foreground, int *background, BOOL isfilled, BOOL isline, long *hdl)
void	Objpoly (double *x, double *y, integer n, integer closed, int mark, long *hdl)
void	Objfpoly (double *x, double *y, integer n, integer *style, long *hdl, integer shading)
void	Objsegs (integer *style, integer flag, integer n1, double *x, double *y, double arsize)
void	Objstring (char **fname, int nbRow, int nbCol, double x, double y, double *angle, double box[4], BOOL autoSize, double userSize[2], long *hdl, BOOL centerPos, int *foreground, int *background, BOOL isboxed, BOOL isline, BOOL isfilled, sciTextAlignment alignment)
void	Objtitle (char *str, int n, long *hdl)
void	Objplot2d (int ptype, char logflags[], double x[], double y[], integer *n1, integer *n2, integer style[], char strflag[], char legend[], double brect[], integer aaint[], BOOL flagNax)
void	Objgrayplot (double x[], double y[], double z[], integer *n1, integer *n2, char strflag[], double brect[], integer aaint[], BOOL flagNax)
void	Objmatplot (double z[], integer *n1, integer *n2, char strflag[], double brect[], integer aaint[], BOOL flagNax)
void	Objmatplot1 (double z[], integer *n1, integer *n2, double xrect[])
void	Objplot3d (char *fname, integer *isfac, integer *izcol, double x[], double y[], double z[], double *zcol, integer *m, integer *n, double *theta, double *alpha, char *legend, integer *iflag, double *ebox, integer *m1, integer *n1, integer *m2, integer *n2, integer *m3, integer *n3, integer *m3n, integer *n3n)
void	Objdrawaxis (char dir, char tics, double *x, int *nx, double *y, int *ny, char *val[], int subint, char *format, int font, int textcol, int ticscol, char flag, int seg, int nb_tics_labels)
void	Objnumb (char *fname, unsigned long fname_len, integer n, integer flag, double x, double y, double *angle, double *box)
void	Objfec (double x[], double y[], double noeud[], double *fun, integer *n, integer *m, char strflag[], char legend[], double brect[], integer aaint[], double Zminmax[], integer Colminmax[], integer ColOut[], BOOL WithMesh, BOOL flagNax)

---

Function Documentation

void Objarc	(	int *	angle1,
		int *	angle2,
		double *	x,
		double *	y,
		double *	width,
		double *	height,
		int *	foreground,
		int *	background,
		BOOL	isfilled,
		BOOL	isline,
		long *	hdl
	)

Definition at line 86 of file sciCall.c.

References checkRedrawing(), ConstructArc(), FALSE, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetHandle(), and sciSetCurrentObj().

Referenced by sci_xarc(), sci_xarcs(), and sci_xfarcs().

{ 
  BOOL redraw = FALSE ;
  sciPointObj *psubwin, *pobj;
  psubwin = sciGetCurrentSubWin() ;

  redraw = checkRedrawing() ;
  
  sciSetCurrentObj (ConstructArc
         (psubwin,*x,*y,
          *height, *width, *angle1, *angle2, foreground, background, isfilled, isline));
  pobj = sciGetCurrentObj();
 
  *hdl=sciGetHandle(pobj);
  
  /* if the window has been cleared we must redraw everything */
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }
  else
  {
    sciDrawObjIfRequired( pobj ) ;
  }

 
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objdrawaxis	(	char	dir,
		char	tics,
		double *	x,
		int *	nx,
		double *	y,
		int *	ny,
		char *	val[],
		int	subint,
		char *	format,
		int	font,
		int	textcol,
		int	ticscol,
		char	flag,
		int	seg,
		int	nb_tics_labels
	)

Definition at line 794 of file sciCall.c.

References checkRedrawing(), ConstructAxes(), FALSE, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), and sciSetCurrentObj().

Referenced by sci_drawaxis().

{
  BOOL redraw = FALSE ;
  redraw = checkRedrawing() ;
  sciSetCurrentObj (ConstructAxes 
                    ((sciPointObj *)
                     sciGetCurrentSubWin(),
                     dir,tics,x,*nx,y,*ny,val,subint,format,font,textcol,ticscol,flag,seg,nb_tics_labels));  
  sciDrawObjIfRequired(sciGetCurrentObj ());
  
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }

  /* F.Leray 10.03.04: In fact we use ConstructAxes AND NOT ConstructAxis to draw
     one axis. ConstructAxis is apparently unused!!*/
     
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objfec	(	double	x[],
		double	y[],
		double	noeud[],
		double *	fun,
		integer *	n,
		integer *	m,
		char	strflag[],
		char	legend[],
		double	brect[],
		integer	aaint[],
		double	Zminmax[],
		integer	Colminmax[],
		integer	ColOut[],
		BOOL	WithMesh,
		BOOL	flagNax
	)

Definition at line 849 of file sciCall.c.

References bsiz, C2F, fec(), and L.

Referenced by sci_fec().

{
  C2F(fec)(x,y,noeud,fun,n,m,strflag,legend,brect,aaint,
           Zminmax,Colminmax,ColOut,WithMesh,flagNax,4L,bsiz);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objfpoly	(	double *	x,
		double *	y,
		integer	n,
		integer *	style,
		long *	hdl,
		integer	shading
	)

Definition at line 167 of file sciCall.c.

References abs, checkRedrawing(), ConstructPolyline(), FALSE, NULL, PD0, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetForeground(), sciGetHandle(), sciSetCurrentObj(), and TRUE.

Referenced by sci_xfpoly(), and sci_xfpolys().

{ 
  BOOL redraw = FALSE ;
  int fillcolor, contourcolor;
  sciPointObj *psubwin, *pobj;
  int closed = 1; /* we close the polyline by default */
  psubwin = sciGetCurrentSubWin();
  
  redraw = checkRedrawing() ;

  if(shading == 2)
    {
      /* interpolated shading is "on" */
      sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,
                                          1,1,NULL,style,NULL,NULL,NULL,FALSE,TRUE,FALSE,TRUE));
    }
  else
    {
      /* flat mode is "on" */
      if (*style < 0){
        fillcolor = abs(*style);
        sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,
                                            1,1,NULL,&fillcolor,NULL,NULL,NULL,FALSE,TRUE,FALSE,FALSE));
      }
      else if (*style == 0){
        contourcolor = sciGetForeground(psubwin);
        sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,
                                            1,1,&contourcolor,NULL,NULL,NULL,NULL,TRUE,FALSE,FALSE,FALSE));
      }
      else{ /* *style > 0*/
        fillcolor = *style;
        contourcolor = sciGetForeground(psubwin);
        sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,
                                            1,1,&contourcolor,&fillcolor,NULL,NULL,NULL,TRUE,TRUE,FALSE,FALSE));
      }
      
      pobj = sciGetCurrentObj();
      *hdl=sciGetHandle(sciGetCurrentObj ());  
    }
  
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }

}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objgrayplot	(	double	x[],
		double	y[],
		double	z[],
		integer *	n1,
		integer *	n2,
		char	strflag[],
		double	brect[],
		integer	aaint[],
		BOOL	flagNax
	)

Definition at line 369 of file sciCall.c.

References bsiz, C2F, and xgray().

Referenced by sci_grayplot().

{ 
  C2F(xgray)(x,y,z,n1,n2,strflag, brect, aaint, flagNax, bsiz );       
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objmatplot	(	double	z[],
		integer *	n1,
		integer *	n2,
		char	strflag[],
		double	brect[],
		integer	aaint[],
		BOOL	flagNax
	)

Definition at line 385 of file sciCall.c.

References bsiz, C2F, and xgray1().

Referenced by sci_matplot().

{ 
  C2F(xgray1)(z,n1,n2,strflag, brect, aaint, flagNax, bsiz);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objmatplot1	(	double	z[],
		integer *	n1,
		integer *	n2,
		double	xrect[]
	)

Definition at line 399 of file sciCall.c.

References C2F, and xgray2().

Referenced by sci_matplot1().

{ 
  C2F(xgray2)(z, n1, n2,xrect);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objnumb	(	char *	fname,
		unsigned long	fname_len,
		integer	n,
		integer	flag,
		double	x,
		double	y,
		double *	angle,
		double *	box
	)

Definition at line 832 of file sciCall.c.

{ 
  /*** faire une macro scilab sur xstring ****/

   
}

void Objplot2d	(	int	ptype,
		char	logflags[],
		double	x[],
		double	y[],
		integer *	n1,
		integer *	n2,
		integer	style[],
		char	strflag[],
		char	legend[],
		double	brect[],
		integer	aaint[],
		BOOL	flagNax
	)

Definition at line 350 of file sciCall.c.

References bsiz, L, and plot2dn().

Referenced by sci_plot2d(), and sci_plot2d1_G().

{
  plot2dn(ptype,logflags,x,y,n1,n2,style,strflag,legend,brect,aaint,flagNax,4L,bsiz);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objplot3d	(	char *	fname,
		integer *	isfac,
		integer *	izcol,
		double	x[],
		double	y[],
		double	z[],
		double *	zcol,
		integer *	m,
		integer *	n,
		double *	theta,
		double *	alpha,
		char *	legend,
		integer *	iflag,
		double *	ebox,
		integer *	m1,
		integer *	n1,
		integer *	m2,
		integer *	n2,
		integer *	m3,
		integer *	n3,
		integer *	m3n,
		integer *	n3n
	)

Definition at line 410 of file sciCall.c.

References BT_OFF, BT_ON, checkMonotony(), checkRedrawing(), ChildrenCounter(), ConstructCompound(), ConstructPolyline(), ConstructSurface(), FALSE, FREE, i, MALLOC, Max, Maxi(), Merge3d(), Min, Mini(), sciSubWindow::mon_x_label, sciSubWindow::mon_y_label, sciSubWindow::mon_z_label, NULL, pSUBWIN_FEATURE, pSURFACE_FEATURE, SCI_FAC3D, SCI_PARAM3D1, SCI_PLOT3D, sciDrawObj(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetForeground(), sciGetGraphicMode(), sciGetHandle(), sciprint(), sciSetCurrentObj(), sciSetText(), sciSetVisibility(), TRUE, and update_specification_bounds().

Referenced by sci_param3d(), sci_param3d1(), and sci_plot3d().

                         : warning here legends means "X@Y@Z": it is labels writings!! */
     /* legends has not the same meaning than inside plot2dn (there, it is really the legends of the plotted curves)*/
{
  sciTypeOf3D typeof3d;
  integer flagcolor;  
  long *hdltab;
  int i, mn;
  BOOL needMerge = FALSE ;
  sciPointObj *psubwin = NULL, *pobj = NULL;
  double drect[6];
  char * loc = NULL;
  char * legx = NULL;
  char * legy = NULL;
  char * legz = NULL;
  /*   char * buff = NULL; */
  int flag_x = 1;
  int flag_y = 1;
  int dimvectx = -1;
  int dimvecty = -1;

  sciPointObj  * pNewSurface = NULL ;
  sciSubWindow * ppsubwin = NULL;
  BOOL bounds_changed = FALSE; /* cannot be used here because we have to force redrawing since there is no way to avoid merge (=> complete redraaw) */

  /* Initialisation drect A.C pour debuggueur */
  drect[0]=0;
  drect[1]=0;
  drect[2]=0;
  drect[3]=0;
  drect[4]=0;
  drect[5]=0;

  /* =================================================
   * Force SubWindow properties according to arguments 
   * ================================================= */

  psubwin= sciGetCurrentSubWin();

  checkRedrawing() ;
  
  /* Force psubwin->is3d to TRUE: we are in 3D mode */
  pSUBWIN_FEATURE (psubwin)->is3d = TRUE;
  pSUBWIN_FEATURE (psubwin)->project[2] = 1; /* to force z axis display */

  ppsubwin = pSUBWIN_FEATURE(psubwin);

  if ( legend != NULL )
  {
    /* F.Leray 25.04.05 replace the default labels by the user labels if specified */
    loc=(char *) MALLOC( (strlen(legend)+1)*sizeof(char));
    if ( loc == NULL)    
      sciprint("Objplot3d : No more Place to store all the labels\n");
  
    strcpy(loc,legend);
  
    /*   legx=strtok_r(loc,"@",&buff); */
    legx=strtok(loc,"@");
  
    if (legx != NULL)
    {
      sciSetText( ppsubwin->mon_x_label, &legx , 1, 1 ) ;
    }
   
    /*   legy=strtok_r((char *)0,"@",&buff); */
    legy=strtok((char *)NULL,"@"); /* NULL to begin at the last read character */
    if ( legy != NULL )
    {
      sciSetText( ppsubwin->mon_y_label, &legy , 1, 1 ) ;
    }
 
    /*   legz=strtok_r((char *)0,"@",&buff); */
    legz=strtok((char *)NULL,"@");
    if ( legz != NULL )
    {
      sciSetText( ppsubwin->mon_z_label, &legz , 1, 1 ) ;
    }
  }
   
  /* Force psubwin->logflags to linear */
  pSUBWIN_FEATURE (psubwin)->logflags[0]='n';
  pSUBWIN_FEATURE (psubwin)->logflags[1]='n';
  pSUBWIN_FEATURE (psubwin)->logflags[2]='n'; /* add z logscale default here */
 
  
  pSUBWIN_FEATURE (psubwin)->axes.flag[0] = iflag[0]; /* mode: treatment of hidden parts */
  if (iflag[1] != 0){
    if (iflag[1]<7)
      pSUBWIN_FEATURE (psubwin)->axes.flag[1] = iflag[1]; /* type: scaling (no more useful)  */
    else
      pSUBWIN_FEATURE (psubwin)->axes.flag[1] = iflag[1]-6; /* type: scaling (no more useful)  */
  }
  
  if( pSUBWIN_FEATURE (psubwin)->FirstPlot == FALSE && (iflag[2] == 0 || iflag[2] == 1))
  { 
    /* Nothing to do: we leave as before */
  }
  else
  {
    pSUBWIN_FEATURE (psubwin)->axes.flag[2] = iflag[2]; /* box: frame around the plot      */
    
    if(iflag[2] == 0 || iflag[2] == 1)
    {
      
      if (pSUBWIN_FEATURE(psubwin)->FirstPlot)
      {
        pSUBWIN_FEATURE (psubwin)->axes.axes_visible[0] = FALSE;
        pSUBWIN_FEATURE (psubwin)->axes.axes_visible[1] = FALSE;
        pSUBWIN_FEATURE (psubwin)->axes.axes_visible[2] = FALSE;
        pSUBWIN_FEATURE (psubwin)->axes.rect = BT_OFF ;

        sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_x_label,FALSE);
        sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_y_label,FALSE);
        sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_z_label,FALSE);
      }
      /*else no changes : the axes visible properties are driven by the previous plot */
    }
    else if(iflag[2] == 3)
    {
      pSUBWIN_FEATURE (psubwin)->axes.rect = BT_ON ; /* for 2d use only (when switching to 2d mode) */
      
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[0] = FALSE;
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[1] = FALSE;
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[2] = FALSE;
      
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_x_label,TRUE);
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_y_label,TRUE);
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_z_label,TRUE);
    }
    else if(iflag[2] == 4)
    {
      pSUBWIN_FEATURE (psubwin)->axes.rect = BT_ON ;
      
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[0] = TRUE;
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[1] = TRUE;
      pSUBWIN_FEATURE (psubwin)->axes.axes_visible[2] = TRUE;
      
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_x_label,TRUE);
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_y_label,TRUE);
      sciSetVisibility(pSUBWIN_FEATURE (psubwin)->mon_z_label,TRUE);
    }
  }

  pSUBWIN_FEATURE (psubwin)->alpha  = *alpha;
  pSUBWIN_FEATURE (psubwin)->theta  = *theta; 

  if ( ChildrenCounter(psubwin) > 0 )
  { 
    needMerge = TRUE ;
  }
  
  if ((sciGetGraphicMode (psubwin)->autoscaling)) {
    /* compute and merge new specified bounds with psubwin->Srect */
    switch (iflag[1])  {
    case 0:  /* do not change psubwin->Srect */
      break;
    case 1 : case 3 : case 5 : case 7 : /* Force psubwin->Srect=ebox */
      drect[0] = ebox[0]; /*xmin*/
      drect[2] = ebox[2]; /*ymin*/
      drect[1] = ebox[1]; /*xmax*/
      drect[3] = ebox[3]; /*ymax*/
      drect[4] = ebox[4]; /*zmin*/
      drect[5] = ebox[5]; /*zmax*/
      break;
    case 2 : case 4 : case 6 : case 8:/* Force psubwin->Srect to the x and y bounds */
      mn=(*m1) * (*n1); 
      drect[0] = (double) Mini(x, mn); /*xmin*/
      drect[1] = (double) Maxi(x, mn); /*xmax*/
      mn=(*m2) * (*n2); 
      drect[2] = (double) Mini(y, mn); /*ymin*/
      drect[3] = (double) Maxi(y, mn); /*ymax*/
      mn=(*m3) * (*n3); 
      drect[4] = (double) Mini(z, mn); /*zmin*/
      drect[5] = (double) Maxi(z, mn); /*zmax*/
      break;
    }
    if (!pSUBWIN_FEATURE(psubwin)->FirstPlot ) { /* merge psubwin->Srect and drect */
      drect[0] = Min(pSUBWIN_FEATURE(psubwin)->SRect[0],drect[0]); /*xmin*/
      drect[1] = Max(pSUBWIN_FEATURE(psubwin)->SRect[1],drect[1]); /*xmax*/
      drect[2] = Min(pSUBWIN_FEATURE(psubwin)->SRect[2],drect[2]); /*ymin*/
      drect[3] = Max(pSUBWIN_FEATURE(psubwin)->SRect[3],drect[3]); /*ymax*/
      drect[4] = Min(pSUBWIN_FEATURE(psubwin)->SRect[4],drect[4]); /*zmin*/
      drect[5] = Max(pSUBWIN_FEATURE(psubwin)->SRect[5],drect[5]); /*zmax*/
    }
    if (iflag[1] != 0) 
      bounds_changed = update_specification_bounds(psubwin, drect,3);
  } 
  
  if(iflag[1] != 0)
    pSUBWIN_FEATURE(psubwin)->isoview = (BOOL)( iflag[1] == 3 || iflag[1] == 4 ||
                                                iflag[1] == 5 || iflag[1] == 6);
  
  /* =================================================
   * Analyze arguments to find entity type 
   * ================================================= */

  if (*isfac== 1) { 
    if (*izcol == 0) { 
      if (strcmp(fname,"plot3d1")==0) {typeof3d = SCI_FAC3D;   flagcolor=1;}
      else                               {typeof3d = SCI_FAC3D;   flagcolor=0;}
    }
    else if (*izcol == 2)                {typeof3d = SCI_FAC3D;   flagcolor=3;}
    else                                 {typeof3d = SCI_FAC3D;   flagcolor=2;}
  } 
  else  if  (*isfac== 0) {
    if (strcmp(fname,"plot3d1")==0)   {typeof3d = SCI_PLOT3D;  flagcolor=1;}
    else                                 {typeof3d = SCI_PLOT3D;  flagcolor=0;}
  }
  else                                   {typeof3d = SCI_PARAM3D1;flagcolor=1;}


  /* =================================================
   * Construct the Entities
   * ================================================= */

  if ( typeof3d != SCI_PARAM3D1 ) {/*Distinction here between SCI_PARAM3D1 and others*/


    if ( *isfac == 1 )
    {
      /* x is considered as a matrix */
      dimvectx = -1 ;
    }
    else if ( *m1 == 1 ) /* x is a row vector */
    {
      dimvectx = *n1;
    }
    else if ( *n1 == 1 ) /* x is a column vector */
    {
      dimvectx = *m1;
    }
    else /* x is a matrix */
    {
      dimvectx = -1;
    }

    if ( dimvectx > 1 )
    {
      int monotony = checkMonotony( x, dimvectx ) ;
      if ( monotony == 0 )
      {
        sciprint("Objplot3d: x vector is not monotonous \t\n.");
        return;
      }

      flag_x = monotony ;
    }
    
    if ( *isfac == 1 )
    {
      /* y is considered as a matrix */
      dimvecty = -1 ;
    }
    else if ( *m2 == 1 ) /* y is a row vector */
    {
      dimvecty = *n2 ;
    }
    else if ( *n2 == 1 ) /* y is a column vector */
    {
      dimvecty = *m2 ;
    }
    else /* y is a matrix */
    {
      dimvecty = -1 ;
    }
   
    if( dimvecty > 1 )
    {
      /* test the monotony on y*/
      int monotony = checkMonotony( y, dimvecty ) ;
      if ( monotony == 0 )
      {
        sciprint("Objplot3d: x vector is not monotonous \t\n.");
        return ;
      }

      flag_y = monotony ;
    }
    
    pNewSurface = ConstructSurface( psubwin, typeof3d,
                                    x, y, z, zcol, *izcol, *m, *n, iflag,ebox,flagcolor,
                                    isfac,m1,n1,m2,n2,m3,n3,m3n,n3n) ;
    
    if ( pNewSurface == NULL ) { return ; }

    sciSetCurrentObj( pNewSurface ) ;
    
    pSURFACE_FEATURE (sciGetCurrentObj())->flag_x = flag_x;
    pSURFACE_FEATURE (sciGetCurrentObj())->flag_y = flag_y;
    
    
  }
  else
    {
      if ((hdltab = MALLOC (*n * sizeof (long))) == NULL) {
        Scierror(999,"%s: No more memory available\r\n",fname);
        return; 
      }
      for (i = 0; i < *n; ++i) { 
        /* F.Leray Pb here: In fact we do not create a Surface but one or several 3D Polylines
           Pb comes when wanting to access the fields "surface_color" or "flag" for example
           in function sciSet (cf. matdes.c). 
           Question 1: Are these properties accessible from a SCI_PARAM3D1 ?
           Question 2: Is "flag" obsolete and replaced by "color_mode"?*/

        if ((*n > 0) && (zcol != (double *)NULL)) {
          if ((int) zcol[i] > 0){
            int intzcol = (int) zcol[i];
            sciSetCurrentObj (ConstructPolyline
                              (sciGetCurrentSubWin(),
                               &(x[*m * i]),&(y[*m * i]),&(z[*m * i]),0,*m,*n,1,
                               &intzcol,NULL,NULL,NULL,NULL,TRUE,FALSE,FALSE,FALSE));  
          }
          else {
            int intzcol = (int) -zcol[i];
            sciSetCurrentObj (ConstructPolyline
                              (sciGetCurrentSubWin(),
                               &(x[*m * i]),&(y[*m * i]),&(z[*m * i]),0,*m,*n,1,
                               NULL,NULL,&intzcol,NULL,NULL,FALSE,FALSE,TRUE,FALSE));  
          }
        }
        else { /* default case, nothing is given */
          int curcolor = sciGetForeground(sciGetCurrentSubWin()); /* current color equivalent for new graphics mode */
          sciSetCurrentObj (ConstructPolyline
                            (sciGetCurrentSubWin(),
                             &(x[*m * i]),&(y[*m * i]),&(z[*m * i]),0,*m,*n,1,
                             &curcolor,NULL,NULL,NULL,NULL,TRUE,FALSE,FALSE,FALSE));  
        }

        pobj = sciGetCurrentObj();
        
        hdltab[i]=sciGetHandle(pobj); 
      }


      if ( *n>1 ) sciSetCurrentObj (ConstructCompound (hdltab, *n));  
      FREE(hdltab);
    }

  /* =================================================
   * Merge with previous 3D plots (build a set of facets)
   * ================================================= */

  if ( needMerge )
  {
    Merge3d( psubwin ) ;
  }

  /* =================================================
   * Redraw Figure
   * ================================================= */

  sciDrawObj(sciGetCurrentFigure ());
  pSUBWIN_FEATURE(psubwin)->FirstPlot=FALSE;
   
  FREE(loc); loc = NULL;

}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objpoly	(	double *	x,
		double *	y,
		integer	n,
		integer	closed,
		int	mark,
		long *	hdl
	)

Definition at line 128 of file sciCall.c.

References abs, checkRedrawing(), ConstructPolyline(), FALSE, NULL, PD0, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetHandle(), sciSetCurrentObj(), and TRUE.

Referenced by sci_xfpolys(), sci_xpoly(), and sci_xpolys().

{ 
  BOOL redraw = FALSE ;
  sciPointObj *psubwin, *pobj;
  psubwin = sciGetCurrentSubWin();  

  redraw = checkRedrawing() ;
  
  if (mark <= 0)
    { 
      int absmark = abs(mark);
      sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,1,1,
                                          NULL,NULL,&absmark,NULL,NULL,FALSE,FALSE,TRUE,FALSE));
    }
  else
    {
      sciSetCurrentObj (ConstructPolyline(psubwin,x,y,PD0,closed,n,1,1,
                                          &mark,NULL,NULL,NULL,NULL,TRUE,FALSE,FALSE,FALSE));
    }
  
   pobj = sciGetCurrentObj();
   *hdl=sciGetHandle(pobj);

   if ( redraw )
   {
     sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objrect	(	double *	x,
		double *	y,
		double *	width,
		double *	height,
		int *	foreground,
		int *	background,
		BOOL	isfilled,
		BOOL	isline,
		int	n,
		long *	hdl,
		BOOL	flagstring
	)

Definition at line 40 of file sciCall.c.

References checkRedrawing(), ConstructRectangle(), FALSE, NULL, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentSubWin(), sciGetHandle(), and sciSetCurrentObj().

Referenced by sci_xrect(), and sci_xrects().

{
  sciPointObj * newObj = NULL ;
  BOOL redraw = FALSE ;
  sciPointObj *psubwin;
  psubwin = sciGetCurrentSubWin();
  
  /* check if the auto_clear property is on and then erase everything */
  redraw = checkRedrawing() ;

  newObj = ConstructRectangle(psubwin ,*x,*y,*height, *width, 0, 0,
                              foreground, background, isfilled, isline, n, flagstring) ;
    
  if ( newObj == NULL )
  {
    /* an error occured */
    *hdl = -1 ;
    return ;
  }

  sciSetCurrentObj( newObj ) ; 
  *hdl=sciGetHandle( newObj ) ; 

  /* if the window has been cleared we must redraw everything */
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }

}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objsegs	(	integer *	style,
		integer	flag,
		integer	n1,
		double *	x,
		double *	y,
		double	arsize
	)

Definition at line 223 of file sciCall.c.

References checkRedrawing(), ConstructSegs(), FALSE, n2, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciSetCurrentObj(), and type.

Referenced by sci_xarrows(), and sci_xsegs().

{
  BOOL redraw = FALSE ;
  integer type=0,n2, colored=0;
  double *fx,*fy,arfact=1.0;
  int typeofchamp = -1; /* no champ here, only segs ; this info is useless */
  sciPointObj *psubwin = sciGetCurrentSubWin();

  redraw = checkRedrawing() ;

  n2=n1;
  fx=x;fy=y;
  sciSetCurrentObj (ConstructSegs(psubwin,type,
                                  x,y,n1,n2,fx,fy,flag,style,arsize,colored,arfact,typeofchamp));
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }
  else
  {
    sciDrawObjIfRequired(sciGetCurrentObj ());
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objstring	(	char **	fname,
		int	nbRow,
		int	nbCol,
		double	x,
		double	y,
		double *	angle,
		double	box[4],
		BOOL	autoSize,
		double	userSize[2],
		long *	hdl,
		BOOL	centerPos,
		int *	foreground,
		int *	background,
		BOOL	isboxed,
		BOOL	isline,
		BOOL	isfilled,
		sciTextAlignment	alignment
	)

Definition at line 256 of file sciCall.c.

References C2F, checkRedrawing(), ConstructText(), dr(), echelle2d(), echelle2dl(), FALSE, L, n, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetHandle(), sciGetParentSubwin(), sciSetCurrentObj(), sciSetFontOrientation(), updateScaleIfRequired(), v, XDouble2Pixel, and YDouble2Pixel.

Referenced by sci_xstring(), and sci_xstringb().

{
  BOOL redraw = FALSE ;
  integer v;
  double dv;
  integer x1,yy1,n=1,rect1[4];
  sciPointObj *psubwin, *pobj;
  
   
  psubwin = sciGetCurrentSubWin();

  redraw = checkRedrawing() ;

  sciSetCurrentObj( ConstructText( psubwin   ,
                                   fname     ,
                                   nbRow     ,
                                   nbCol     ,
                                   x         ,
                                   y         ,
                                   autoSize  ,
                                   userSize  ,
                                   centerPos ,
                                   foreground,
                                   background,
                                   isboxed   ,
                                   isline    ,
                                   isfilled  ,
                                   alignment  ) ) ;
  pobj=sciGetCurrentObj ();
  *hdl= sciGetHandle(pobj);
  sciSetFontOrientation (pobj, (int) (*angle *  10)); 

  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }
  else
  {
    sciDrawObjIfRequired(pobj);
  }

  updateScaleIfRequired( sciGetParentSubwin( pobj ) ) ;
  x1 = XDouble2Pixel(x);
  yy1 = YDouble2Pixel(y);
  C2F(dr)("xstringl",fname[0],&x1,&yy1,rect1,&v,&v,&v,&dv,&dv,&dv,&dv,9L,0L);
  C2F(echelle2d)(box,box+1,rect1,rect1+1,&n,&n,"i2f",3L);
  C2F(echelle2dl)(box+2,box+3,rect1+2,rect1+3,&n,&n,"i2f");
 
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Objtitle	(	char *	str,
		int	n,
		long *	hdl
	)

Definition at line 325 of file sciCall.c.

References checkRedrawing(), ConstructTitle(), FALSE, sciDrawObjIfRequired(), sciGetCurrentFigure(), sciGetCurrentObj(), sciGetCurrentSubWin(), sciGetHandle(), and sciSetCurrentObj().

{ 
  BOOL redraw = FALSE ;
  redraw = checkRedrawing() ;
  sciSetCurrentObj (ConstructTitle
                (sciGetCurrentSubWin(),str,n));
  
  *hdl=sciGetHandle(sciGetCurrentObj ());
  if ( redraw )
  {
    sciDrawObjIfRequired( sciGetCurrentFigure() ) ;
  }
  else
  {
    sciDrawObjIfRequired(sciGetCurrentObj ()) ;
  }
}

Here is the call graph for this function:

int plot2dn	(	integer	ptype,
		char *	logflags,
		double *	x,
		double *	y,
		integer *	n1,
		integer *	n2,
		integer *	style,
		char *	strflag,
		char *	legend,
		double *	brect,
		integer *	aaint,
		BOOL	flagNax,
		integer	lstr1,
		integer	lstr2
	)

BOOL update_specification_bounds	(	sciPointObj *	psubwin,
		double *	rect,
		int	flag
	)

---