PloEch.h File Reference

#include "ObjectStructure.h"

Include dependency graph for PloEch.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	wcscalelist
struct	scalelist
Defines
#define	Min(x, y)   (((x)<(y))?(x):(y))
#define	XDouble2Pixel(x)   ((Cscale.logflag[0] == 'n') ? ( XScale(x)) : ( XLogScale(x)))
#define	YDouble2Pixel(y)   ((Cscale.logflag[1] == 'n') ? ( YScale(y)) : ( YLogScale(y)))
#define	WScale(w)   inint (Cscale.Wscx1 * (w))
#define	WLogScale(x, w)   inint (Cscale.Wscx1 * (log10 (((x) + (w)) / (x))))
#define	HScale(h)   inint (Cscale.Wscy1 * (h))
#define	HLogScale(y, h)   inint (Cscale.Wscy1 * (log10 ( ((y) + (h)) / (y) ) ))
#define	WDouble2Pixel(x, w)   ((Cscale.logflag[0] == 'n') ? ( WScale(w)) : ( WLogScale(x,w)))
#define	HDouble2Pixel(y, h)   ((Cscale.logflag[1] == 'n') ? ( HScale(h)) : ( HLogScale(y,h)))
#define	XPi2LogR(x)   exp10( XPi2R(x))
#define	YPi2LogR(y)   exp10( YPi2R(y))
#define	XPixel2Double(x)   (( Cscale.logflag[0] == 'l') ? XPi2LogR(x) : XPi2R(x))
#define	YPixel2Double(y)   (( Cscale.logflag[1] == 'l') ? YPi2LogR(y) : YPi2R(y))
#define	XDPi2LogR(x)   exp10( XDPi2R(x))
#define	YDPi2LogR(y)   exp10( YDPi2R(y))
#define	XDPixel2Double(x)   (( Cscale.logflag[0] == 'l') ? XDPi2LogR(x) : XDPi2R(x))
#define	YDPixel2Double(y)   (( Cscale.logflag[1] == 'l') ? YDPi2LogR(y) : YDPi2R(y))
#define	TRX(x1, y1, z1)   ( Cscale.m[0][0]*(x1) +Cscale.m[0][1]*(y1) +Cscale.m[0][2]*(z1))
#define	TRY(x1, y1, z1)   ( Cscale.m[1][0]*(x1) +Cscale.m[1][1]*(y1) +Cscale.m[1][2]*(z1))
#define	TRZ(x1, y1, z1)   ( Cscale.m[2][0]*(x1) +Cscale.m[2][1]*(y1) +Cscale.m[2][2]*(z1))
#define	GEOX(x1, y1, z1)   XScale(TRX(x1,y1,z1))
#define	GEOY(x1, y1, z1)   YScale(TRY(x1,y1,z1))
#define	TX3D(x1, y1, z1)   Cscale.Wscx1*(TRX(x1,y1,z1)-Cscale.frect[0]) +Cscale.Wxofset1 ;
#define	TY3D(x1, y1, z1)   Cscale.Wscy1*(-TRY(x1,y1,z1)+Cscale.frect[3])+Cscale.Wyofset1 ;
Typedefs
typedef wcscalelist	WCScaleList
typedef scalelist	ScaleList
Functions
void	ShowScales (void)
int C2F()	Nsetscale2d (double WRect[4], double ARect[4], double FRect[4], char *logscale, integer l1)
int	getscale2d (double WRect[4], double FRect[4], char *logscale, double ARect[4])
void	set_scale (char flag[6], double subwin[4], double frame_values[4], integer aaint[4], char logflag[3], double axis_values[4])
int	zoom (void)
int	zoom_box (double *bbox, int *x_pixel, int *y_pixel)
void	unzoom (void)
void	unzoom_one_axes (sciPointObj *psousfen)
void	scizoom (double bbox[4], sciPointObj *pobj)
int	XScale (double x)
int	XLogScale (double x)
int	YScale (double y)
int	YLogScale (double y)
double	XPi2R (int x)
double	YPi2R (int y)
double	XDPi2R (double x)
double	YDPi2R (double y)
void	getPixelCoordinates (sciPointObj *pSubWin, double coord3d[3], int pixCoord[2])
int	PixelWidth2d (sciPointObj *parentSubWin, double posX, double width)
int	PixelHeight2d (sciPointObj *parentSubWin, double posY, double height)
void	rectangleDouble2Pixel (sciPointObj *parentSubWin, double ulPoint[3], double userSize[2], int edgesX[4], int edgesY[4])
void	Plo2d2RealToPixel (integer *n1, integer *n2, double *x, double *y, integer *xm, integer *ym, char *xf)
void	Plo2d3RealToPixel (integer *n1, integer *n2, double *x, double *y, integer *xm, integer *ym, char *xf)
void	Plo2d4RealToPixel (integer *n1, integer *n2, double *x, double *y, integer *xm, integer *ym, char *xf)
int C2F()	echelle2d (double x[], double y[], integer x1[], integer yy1[], integer *n1, integer *n2, char dir[], integer lstr)
void C2F()	echelle2dl (double x[], double y[], integer x1[], integer yy1[], integer *n1, integer *n2, char *dir)
void C2F()	rect2d (double x[], integer x1[], integer *n, char *dir)
void C2F()	ellipse2d (double x[], integer x1[], integer *n, char *dir)
void C2F()	axis2d (double *alpha, double *initpoint, double *size, integer *initpoint1, double *size1)
int	get_window_scale (integer i, double *subwin)
void	del_window_scale (integer i)
void	Cscale2default (void)
void	set_window_scale_with_default (int i)
Variables
WCScaleList	Cscale

---

Define Documentation

#define GEOX	(	x1,
		y1,
		z1		)	XScale(TRX(x1,y1,z1))

Definition at line 137 of file PloEch.h.

#define GEOY	(	x1,
		y1,
		z1		)	YScale(TRY(x1,y1,z1))

Definition at line 138 of file PloEch.h.

#define HDouble2Pixel	(	y,
		h		)	((Cscale.logflag[1] == 'n') ? ( HScale(h)) : ( HLogScale(y,h)))

Definition at line 101 of file PloEch.h.

Referenced by getStringBox(), rectangleDouble2Pixel(), and sciClip().

#define HLogScale	(	y,
		h		)	inint (Cscale.Wscy1 * (log10 ( ((y) + (h)) / (y) ) ))

Definition at line 99 of file PloEch.h.

Referenced by PixelHeight2d().

#define HScale

(

h

)

inint (Cscale.Wscy1 * (h))

Definition at line 98 of file PloEch.h.

Referenced by drawArcEntity(), and PixelHeight2d().

#define Min	(	x,
		y		)	(((x)<(y))?(x):(y))

Definition at line 51 of file PloEch.h.

#define TRX	(	x1,
		y1,
		z1		)	( Cscale.m[0][0]*(x1) +Cscale.m[0][1]*(y1) +Cscale.m[0][2]*(z1))

Definition at line 134 of file PloEch.h.

Referenced by sciGetAxisBox(), and SetEch3d1().

#define TRY	(	x1,
		y1,
		z1		)	( Cscale.m[1][0]*(x1) +Cscale.m[1][1]*(y1) +Cscale.m[1][2]*(z1))

Definition at line 135 of file PloEch.h.

Referenced by sciGetAxisBox(), and SetEch3d1().

#define TRZ	(	x1,
		y1,
		z1		)	( Cscale.m[2][0]*(x1) +Cscale.m[2][1]*(y1) +Cscale.m[2][2]*(z1))

Definition at line 136 of file PloEch.h.

Referenced by DrawMerge3d(), fac3dn(), sciGetAxisBox(), and SetEch3d1().

#define TX3D	(	x1,
		y1,
		z1		)	Cscale.Wscx1*(TRX(x1,y1,z1)-Cscale.frect[0]) +Cscale.Wxofset1 ;

Definition at line 140 of file PloEch.h.

Referenced by trans3d().

#define TY3D	(	x1,
		y1,
		z1		)	Cscale.Wscy1*(-TRY(x1,y1,z1)+Cscale.frect[3])+Cscale.Wyofset1 ;

Definition at line 141 of file PloEch.h.

Referenced by trans3d().

#define WDouble2Pixel	(	x,
		w		)	((Cscale.logflag[0] == 'n') ? ( WScale(w)) : ( WLogScale(x,w)))

Definition at line 100 of file PloEch.h.

Referenced by getStringBox(), rectangleDouble2Pixel(), and sciClip().

#define WLogScale	(	x,
		w		)	inint (Cscale.Wscx1 * (log10 (((x) + (w)) / (x))))

Definition at line 97 of file PloEch.h.

Referenced by PixelWidth2d().

#define WScale

(

w

)

inint (Cscale.Wscx1 * (w))

Definition at line 96 of file PloEch.h.

Referenced by drawArcEntity(), and PixelWidth2d().

#define XDouble2Pixel

(

x

)

((Cscale.logflag[0] == 'n') ? ( XScale(x)) : ( XLogScale(x)))

Definition at line 89 of file PloEch.h.

Referenced by boundingbox_1(), cleararea_1(), displaystring_1(), drawarc_1(), drawArcEntity(), drawTextEntity(), fillarc_1(), fillrectangle_1(), getPixelClipping(), getPixelCoordinates(), getStringBox(), getTextBoundingBox(), Objstring(), rectangleDouble2Pixel(), sciClip(), sciIsClicked(), xstringb_1(), and zoom_box().

#define XDPi2LogR

(

x

)

exp10( XDPi2R(x))

Definition at line 125 of file PloEch.h.

#define XDPixel2Double

(

x

)

(( Cscale.logflag[0] == 'l') ? XDPi2LogR(x) : XDPi2R(x))

Definition at line 127 of file PloEch.h.

Referenced by getStringBox(), and getTextBoundingBox().

#define XPi2LogR

(

x

)

exp10( XPi2R(x))

Definition at line 116 of file PloEch.h.

#define XPixel2Double

(

x

)

(( Cscale.logflag[0] == 'l') ? XPi2LogR(x) : XPi2R(x))

Definition at line 118 of file PloEch.h.

Referenced by computeLabelAutoPos(), getChampDataBounds(), and zoom_box().

#define YDouble2Pixel

(

y

)

((Cscale.logflag[1] == 'n') ? ( YScale(y)) : ( YLogScale(y)))

Definition at line 90 of file PloEch.h.

Referenced by boundingbox_1(), cleararea_1(), displaystring_1(), drawarc_1(), drawArcEntity(), drawTextEntity(), fillarc_1(), fillrectangle_1(), getPixelClipping(), getPixelCoordinates(), getStringBox(), getTextBoundingBox(), Objstring(), rectangleDouble2Pixel(), sciClip(), sciIsClicked(), xstringb_1(), and zoom_box().

#define YDPi2LogR

(

y

)

exp10( YDPi2R(y))

Definition at line 126 of file PloEch.h.

#define YDPixel2Double

(

y

)

(( Cscale.logflag[1] == 'l') ? YDPi2LogR(y) : YDPi2R(y))

Definition at line 128 of file PloEch.h.

Referenced by getStringBox(), and getTextBoundingBox().

#define YPi2LogR

(

y

)

exp10( YPi2R(y))

Definition at line 117 of file PloEch.h.

#define YPixel2Double

(

y

)

(( Cscale.logflag[1] == 'l') ? YPi2LogR(y) : YPi2R(y))

Definition at line 119 of file PloEch.h.

Referenced by computeLabelAutoPos(), getChampDataBounds(), and zoom_box().

---

Typedef Documentation

typedef struct scalelist ScaleList

typedef struct wcscalelist WCScaleList

---

Function Documentation

void C2F() axis2d	(	double *	alpha,
		double *	initpoint,
		double *	size,
		integer *	initpoint1,
		double *	size1
	)

meme chose mais pour axis

Definition at line 1014 of file Plo2dEch.c.

References Abs, Cscale, M_PI, wcscalelist::Wscx1, wcscalelist::Wscy1, XScale(), and YScale().

Referenced by drawaxis_1().

{
  double sina ,cosa;
  double xx,yy,scl;
  /* pour eviter des problemes numerique quand Cscale.scx1 ou Cscale.scy1 sont 
   *  tres petits et cosal ou sinal aussi 
   */
  if ( Abs(*alpha) == 90 ) 
    {
      scl=Cscale.Wscy1;
    }
  else 
    {
      if (Abs(*alpha) == 0) 
        {
          scl=Cscale.Wscx1;
        }
      else 
        {
          sina= sin(*alpha * M_PI/180.0);
          cosa= cos(*alpha * M_PI/180.0);
          xx= cosa*Cscale.Wscx1; xx *= xx;
          yy= sina*Cscale.Wscy1; yy *= yy;
          scl= sqrt(xx+yy);
        }
    }
  size1[0] = size[0]*scl;
  size1[1]=  size[1]*scl;
  size1[2]=  size[2];
  initpoint1[0]= XScale(initpoint[0]);
  initpoint1[1]= YScale(initpoint[1]);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Cscale2default

(

void

)

Definition at line 105 of file Plo2dEch.c.

References Cscale, curwin(), Defscale, scale_copy(), and set_window_scale().

Referenced by CleanPlots(), InitMissileXgc(), and initsubwin().

{
  scale_copy(&Cscale,&Defscale);  set_window_scale(curwin(),&Cscale);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void del_window_scale

(

integer

i

)

Definition at line 281 of file Plo2dEch.c.

References DeleteWCScale(), FREE, scalelist::next, NULL, scalelist::scales, The_List, and scalelist::Win.

Referenced by CleanPlots(), and DeleteSGWin().

{ 
  ScaleList *loc, *loc1;
  /* check head of The_List */
  if ( The_List == NULL) return ;
  if ( The_List->Win == i) 
    {
      loc1= The_List ; 
      The_List = The_List->next;
      DeleteWCScale(loc1->scales);
      FREE(loc1);
      return;
    }
  loc1= The_List;
  loc = The_List->next;
  while ( loc != NULL) 
    {
      if ( loc->Win == i ) 
        {
          loc1->next = loc->next;
          DeleteWCScale(loc->scales);
          FREE(loc);
          return ;
        }
      else
        {
          loc1 = loc;
          loc  = loc->next;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() echelle2d	(	double	x[],
		double	y[],
		integer	x1[],
		integer	yy1[],
		integer *	n1,
		integer *	n2,
		char	dir[],
		integer	lstr
	)

Definition at line 860 of file Plo2dEch.c.

References C2F, n, xechelle2d(), and yechelle2d().

Referenced by boundingbox_1(), displaynumbers_1(), drawarrows_1(), drawGrayplotEntity(), drawpolyline_1(), drawPolylineEntity(), drawpolylines_1(), drawpolymark_1(), drawsegments_1(), fillpolyline_1(), fillpolylines_1(), I3dRotation(), Objstring(), sci_xchange(), xclick_1(), xclick_2(), xclick_any_1(), xgetmouse2(), xgetmouse_1(), and xset_1().

{
  int n=(*n1)*(*n2);
  C2F(xechelle2d)(x,x1,&n,dir,lstr);
  C2F(yechelle2d)(y,yy1,&n,dir,lstr);
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() echelle2dl	(	double	x[],
		double	y[],
		integer	x1[],
		integer	yy1[],
		integer *	n1,
		integer *	n2,
		char *	dir
	)

Definition at line 884 of file Plo2dEch.c.

References Cscale, i, inint, sciprint(), wcscalelist::Wscx1, and wcscalelist::Wscy1.

Referenced by boundingbox_1(), cleararea_1(), computeRealArrowSize(), drawarc_1(), drawarrows_1(), fillarc_1(), fillrectangle_1(), Objstring(), xset_1(), and xstringb_1().

{
  integer i;
  if (strcmp("f2i",dir)==0) 
    {
      for ( i=0 ; i < (*n1)*(*n2) ; i++)
        {
          x1[i]=inint( Cscale.Wscx1*( x[i]));
          yy1[i]=inint( Cscale.Wscy1*( y[i]));
        }
    }
  else if (strcmp("i2f",dir)==0) 
    {
      for ( i=0 ; i < (*n1)*(*n2) ; i++)
        {
          x[i]=x1[i]/Cscale.Wscx1;
          y[i]=yy1[i]/Cscale.Wscy1;
        }
    }
  else 
    sciprint(" Wrong dir %s argument in echelle2d\r\n",dir);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() ellipse2d	(	double	x[],
		integer	x1[],
		integer *	n,
		char *	dir
	)

meme chose mais pour transformer des ellipses

double to integer (pixel) direction

Definition at line 915 of file Plo2dEch.c.

References Cscale, i, inint, sciprint(), wcscalelist::Wscx1, wcscalelist::Wscy1, XPi2R(), XScale(), YPi2R(), and YScale().

Referenced by drawarcs_1(), and fillarcs_1().

{
  integer i;
  if (strcmp("f2i",dir)==0) 
    {
      for ( i=0 ; i < (*n) ; i=i+6)
        {
          x1[i  ]= XScale(x[i]);
          x1[i+1]= YScale(x[i+1]);
          x1[i+2]= inint( Cscale.Wscx1*( x[i+2]));
          x1[i+3]= inint( Cscale.Wscy1*( x[i+3]));
          x1[i+4]= inint( x[i+4]);
          x1[i+5]= inint( x[i+5]);
        }
    }
  else if (strcmp("i2f",dir)==0) 
    {
      for ( i=0 ; i < (*n) ; i=i+6)
        {
          x[i]=   XPi2R(x1[i]); 
          x[i+1]= YPi2R( x1[i+1] ); 
          x[i+2]= x1[i+2]/Cscale.Wscx1;
          x[i+3]= x1[i+3]/Cscale.Wscy1;
          x[i+4]= x1[i+4];
          x[i+5]= x1[i+5];
        }
    }
  else 
    sciprint(" Wrong dir %s argument in echelle2d\r\n",dir);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int get_window_scale	(	integer	i,
		double *	subwin
	)

Definition at line 123 of file Plo2dEch.c.

References get_scale_win(), L, Max, and The_List.

Referenced by DeleteSGWin(), Nsetscale2d(), and SwitchWindow().

{ 
  return get_scale_win(The_List,Max(0L,i),subwin);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void getPixelCoordinates	(	sciPointObj *	pSubWin,
		double	coord3d[3],
		int	pixCoord[2]
	)

convert the coordinates of a 2d or 3d point to its pixel coordinates.

Parameters:

	pSubWin	SubWindow in which the point is, might be either in 2d or 3d.
	coord3d	Coordinates of the point in the axes. If the subwin is in 2d, only the first two coordinates are used.

Definition at line 1846 of file Plo2dEch.c.

References pSUBWIN_FEATURE, ReverseDataFor3D(), trans3d(), XDouble2Pixel, and YDouble2Pixel.

Referenced by drawTextEntity(), and getTextBoundingBox().

{

  if ( pSUBWIN_FEATURE (pSubWin)->is3d )
  {
    int n = 1 ;

    double xvect = coord3d[0] ;
    double yvect = coord3d[1] ;
    double zvect = coord3d[2] ;

    ReverseDataFor3D(pSubWin,&xvect,&yvect,&zvect,n);
    trans3d(pSubWin,n,&(pixCoord[0]),&(pixCoord[1]),&xvect,&yvect,&zvect ) ;
  }
  else 
  {
    pixCoord[0] = XDouble2Pixel( coord3d[0] ) ;
    pixCoord[1] = YDouble2Pixel( coord3d[1] ) ;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int getscale2d	(	double	WRect[4],
		double	FRect[4],
		char *	logscale,
		double	ARect[4]
	)

Definition at line 571 of file Plo2dEch.c.

References wcscalelist::axis, Cscale, wcscalelist::frect, i, wcscalelist::logflag, and wcscalelist::subwin_rect.

Referenced by sci_xgetech(), SetEch3d1(), and updateScale3d().

{
  integer i;
  static double ten=10.0;
  logscale[0] = Cscale.logflag[0];
  logscale[1] = Cscale.logflag[1];
  for ( i=0; i < 4 ; i++) 
    {
      WRect[i]=Cscale.subwin_rect[i];
      FRect[i]=Cscale.frect[i];
      ARect[i]=Cscale.axis[i];
    }
  if (logscale[0]=='l') 
    { 
      FRect[0]=pow(ten,FRect[0]);
      FRect[2]=pow(ten,FRect[2]);
    }
  if (logscale[1]=='l') 
    {
      FRect[1]=pow(ten,FRect[1]);
      FRect[3]=pow(ten,FRect[3]);
    }
  return(0);
}

Here is the caller graph for this function:

int C2F() Nsetscale2d	(	double	WRect[4],
		double	ARect[4],
		double	FRect[4],
		char *	logscale,
		integer	l1
	)

Definition at line 464 of file Plo2dEch.c.

References wcscalelist::axis, ConstructSubWin(), Cscale, curwin(), wcscalelist::flag, wcscalelist::frect, get_window_scale(), wcscalelist::logflag, NULL, pSUBWIN_FEATURE, same_subwin(), sciGetCurrentFigure(), sciGetCurrentSubWin(), sciIsExistingSubWin(), sciprint(), sciSetCurrentObj(), sciSetSelectedSubWin(), set_scale(), set_window_scale(), and wcscalelist::subwin_rect.

Referenced by sci_xsetech().

{
  /* if some arguments are null pointer we set them to 
   * the corresponding Cscale value. 
   * this is only important for StoreNEch which do not work with null arguments 
   */ 
  /* char flag[] = "tfffff";*/ /* flag to specify which arguments have changed*/
  /* 14/03/2002*/
  sciPointObj *masousfen;
        
  char flag[7];
  strcpy(flag,"tfffff");  
 
  if ( WRect != NULL) 
    {
      /* Ajout djalel */
    
      if (( masousfen = sciIsExistingSubWin (WRect)) != (sciPointObj *)NULL)
        sciSetSelectedSubWin(masousfen);
      else if ((masousfen = ConstructSubWin (sciGetCurrentFigure(), 0)) != NULL)
      {
        /* F.Leray Adding here 26.03.04*/
        sciSetCurrentObj(masousfen);
        sciSetSelectedSubWin(masousfen);
        pSUBWIN_FEATURE (masousfen)->WRect[0]   = WRect[0];
        pSUBWIN_FEATURE (masousfen)->WRect[1]   = WRect[1];
        pSUBWIN_FEATURE (masousfen)->WRect[2]   = WRect[2];
        pSUBWIN_FEATURE (masousfen)->WRect[3]   = WRect[3];
      }
      
      /* a subwindow is specified */
      flag[1]='t';
      if (! same_subwin( WRect, Cscale.subwin_rect))
        {
          /* we are using a new subwin we keep current state 
           * in scale list 
           */
          set_window_scale(curwin(),&Cscale);
          /* now we try to extract a previous scale with WRect as subwin 
           * which becomes the new Cscale if it is found 
           */
          if ( get_window_scale(curwin(),WRect) == 0 ) 
            {
              /* this is the first time WRect is used : we reset Cscale flag
               * Note also that if FRect is also specified in this call 
               * Cscale.flag will be set to 1 bellow 
               */
              Cscale.flag = 0;
            }
        }
    }
  else WRect = Cscale.subwin_rect; 
  if (FRect != NULL)
  {
    masousfen=sciGetCurrentSubWin();
    pSUBWIN_FEATURE (masousfen)->SRect[0]   = FRect[0];
    pSUBWIN_FEATURE (masousfen)->SRect[2]   = FRect[1];
    pSUBWIN_FEATURE (masousfen)->SRect[1]   = FRect[2];
    pSUBWIN_FEATURE (masousfen)->SRect[3]   = FRect[3];
  }
  if ( FRect != NULL) flag[2]='t'; else FRect = Cscale.frect;


  if (ARect != NULL)
  {
    masousfen=sciGetCurrentSubWin();
    pSUBWIN_FEATURE (masousfen)->ARect[0]   = ARect[0];
    pSUBWIN_FEATURE (masousfen)->ARect[1]   = ARect[1];
    pSUBWIN_FEATURE (masousfen)->ARect[2]   = ARect[2];
    pSUBWIN_FEATURE (masousfen)->ARect[3]   = ARect[3];
  }

  if ( ARect != NULL) flag[5]='t'; else ARect = Cscale.axis;
  if ( logscale != NULL) flag[4] ='t'; else logscale = Cscale.logflag;
  if ( flag[4] == 't' && flag[2] == 't' ) 
    {
      if (logscale[0]=='l') 
        {
          if ( FRect[0] <= 0 || FRect[2] <= 0 ) 
            {
              sciprint("Warning: negative boundaries on x scale with a log scale \n");
              FRect[0]=1.e-8;FRect[2]=1.e+8;
            } 
          FRect[0]=log10(FRect[0]);
          FRect[2]=log10(FRect[2]);
        }
      if (logscale[1]=='l') 
        {
          if ( FRect[1] <= 0 || FRect[3] <= 0 ) 
            {
              sciprint("Warning: negative boundaries on y scale with a log scale \n");
              FRect[1]=1.e-8;FRect[3]=1.e+8;
            } 
          FRect[1]=log10(FRect[1]);
          FRect[3]=log10(FRect[3]);
        }
    }
  set_scale(flag,WRect,FRect,NULL,logscale,ARect);  
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int PixelHeight2d	(	sciPointObj *	parentSubWin,
		double	posY,
		double	height
	)

Convert a length from user coord. to pixels in 2D. This function is similar to HDouble2Pixel, but also use the logmode in 3D.

Parameters:

	parentSubWin	Axes in which the length is computed.
	posY	Y coordinate of where the distance is transformed (only used in log mode).
	height	converted height in user coord.

Returns:

the corresponding length in pixels.

Definition at line 1867 of file Plo2dEch.c.

References HLogScale, HScale, and pSUBWIN_FEATURE.

Referenced by drawTextEntity(), and getTextBoundingBox().

{
  if ( pSUBWIN_FEATURE( parentSubWin )->logflags[1] == 'l' )
  {
    return HLogScale( posY, height ) ;
  }

  return HScale( height ) ;

}

Here is the caller graph for this function:

int PixelWidth2d	(	sciPointObj *	parentSubWin,
		double	posX,
		double	width
	)

Convert a length from user coord. to pixels in 2D. This function is similar to WDouble2Pixel, but also use the logmode in 3D.

Parameters:

	parentSubWin	Axes in which the length is computed.
	posX	X coordinate of where the distance is transformed (only used in log mode).
	height	converted width in user coord.

Returns:

the corresponding length in pixels.

Definition at line 1878 of file Plo2dEch.c.

References pSUBWIN_FEATURE, WLogScale, and WScale.

Referenced by drawTextEntity(), and getTextBoundingBox().

{
  if ( pSUBWIN_FEATURE( parentSubWin )->logflags[0] == 'l' )
  {
    return WLogScale( posX, width ) ;
  }

  return WScale( width ) ;

}

Here is the caller graph for this function:

void Plo2d2RealToPixel	(	integer *	n1,
		integer *	n2,
		double *	x,
		double *	y,
		integer *	xm,
		integer *	ym,
		char *	xf
	)

Definition at line 1958 of file Plo2dEch.c.

References i, j, XLogScale(), XScale(), YLogScale(), and YScale().

Referenced by drawPolylineEntity().

{
  integer i,j;
  if ((int)strlen(xf) >= 3 && xf[2]=='l')         
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+1+2*(*n2)*j]= ym[2*i+2*(*n2)*j]= YLogScale(y[i+(*n2)*j]);
  }
  else 
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+1+2*(*n2)*j]= ym[2*i+2*(*n2)*j]= YScale(y[i+(*n2)*j]);
  }

  switch (xf[0])
  {
  case 'e' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XLogScale(i+1.0);
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
        xm[2*(*n2)*j]= XScale(0);
        xm[2*(*n2)-1+ 2*(*n2)*j]= xm[2*(*n2-1)+ 2*(*n2)*j];
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale((i+1.0));
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
        xm[2*(*n2)*j]= XScale(1.0);
        xm[2*(*n2)-1+ 2*(*n2)*j]=        xm[2*(*n2-1)+ 2*(*n2)*j];
      }
      break ;
  case 'o' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {

          xm[2*i+2*(*n2)*j]= XLogScale(x[i]);
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];
        }
        xm[2*(*n2)*j]= XLogScale(x[0]);
        xm[2*(*n2)-1+ 2*(*n2)*j]= xm[2*(*n2-1)+ 2*(*n2)*j];
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale(x[i]);
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
        xm[2*(*n2)*j]= XScale(x[0]);
        xm[2*(*n2)-1+ 2*(*n2)*j]= xm[2*(*n2-1)+ 2*(*n2)*j];
      }
      break;
  case 'g' :
  default:
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XLogScale(x[i+(*n2)*j]);
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
        xm[2*(*n2)*j]= XLogScale(x[(*n2)*j]);
        xm[2*(*n2)-1+ 2*(*n2)*j]= xm[2*(*n2-1)+ 2*(*n2)*j];
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=1 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale(x[i+(*n2)*j]);
          xm[2*i-1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
        xm[2*(*n2)*j]= XScale(x[(*n2)*j]);
        xm[2*(*n2)-1+ 2*(*n2)*j]= xm[2*(*n2-1)+ 2*(*n2)*j];
      }
      break;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Plo2d3RealToPixel	(	integer *	n1,
		integer *	n2,
		double *	x,
		double *	y,
		integer *	xm,
		integer *	ym,
		char *	xf
	)

Definition at line 2061 of file Plo2dEch.c.

References sciSubWindow::FRect, i, j, sciSubWindow::logflags, pSUBWIN_FEATURE, sciGetCurrentSubWin(), XLogScale(), XScale(), YLogScale(), and YScale().

Referenced by drawPolylineEntity().

{
  integer i,j;
  double y_zero = 0.;
  sciPointObj *  psubwin =  sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE(psubwin);

  if(ppsubwin->logflags[1]=='l')
  {
    y_zero = ppsubwin->FRect[1];
  }



  if ((int)strlen(xf) >= 3 && xf[2]=='l')         
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
      {
        ym[2*i+1+2*(*n2)*j]= YScale(y_zero);
        ym[2*i+2*(*n2)*j]= YLogScale(y[i+(*n2)*j]);
      }
  }
  else 
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
      {
        ym[2*i+1+2*(*n2)*j]= YScale(y_zero);
        ym[2*i+2*(*n2)*j]= YScale(y[i+(*n2)*j]);
      }
  }

  switch (xf[0])
  {
  case 'e' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XLogScale(i+1.0);
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale((i+1.0));
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
      }
      break ;
  case 'o' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {

          xm[2*i+2*(*n2)*j]= XLogScale(x[i]);
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];
        }
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale(x[i]);
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
      }
      break;
  case 'g' :
  default:
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XLogScale(x[i+(*n2)*j]);
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];

        }
      }
    else 
      for (j=0 ; j< (*n1) ; j++)
      {
        for ( i=0 ; i < (*n2) ; i++)
        {
          xm[2*i+2*(*n2)*j]= XScale(x[i+(*n2)*j]);
          xm[2*i+1+2*(*n2)*j]=xm[2*i+2*(*n2)*j];
        }
      }
      break;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Plo2d4RealToPixel	(	integer *	n1,
		integer *	n2,
		double *	x,
		double *	y,
		integer *	xm,
		integer *	ym,
		char *	xf
	)

Definition at line 2168 of file Plo2dEch.c.

References i, j, XLogScale(), XScale(), YLogScale(), and YScale().

Referenced by drawPolylineEntity().

{
  integer i,j;
  if ((int)strlen(xf) >= 3 && xf[2]=='l')         
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+2*(*n2)*j]= YLogScale(y[i+(*n2)*j]);
    for ( i=0 ; i < (*n2)-1 ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+1+2*(*n2)*j]=      ym[2*i+2+2*(*n2)*j];
  }
  else 
  {
    for ( i=0 ; i < (*n2) ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+2*(*n2)*j]= YScale(y[i+(*n2)*j]);
    for ( i=0 ; i < (*n2)-1 ; i++)
      for (j=0 ; j< (*n1) ; j++)
        ym[2*i+1+2*(*n2)*j]=      ym[2*i+2+2*(*n2)*j];

  }

  switch (xf[0])
  {
  case 'e' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XLogScale(i+1.0);
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=     xm[2*i+2+2*(*n2)*j];
    }
    else 
    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XScale((i+1.0));
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=     xm[2*i+2+2*(*n2)*j];
    }
    break ;
  case 'o' :
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XLogScale(x[i]);
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=     xm[2*i+2+2*(*n2)*j];
    }
    else 

    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XScale(x[i]);
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=     xm[2*i+2+2*(*n2)*j];

    }
    break;
  case 'g' :
  default:
    if ((int)strlen(xf) >= 2 && xf[1]=='l')
    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XLogScale(x[i+(*n2)*j]);
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=     xm[2*i+2+2*(*n2)*j];

    }
    else 
    {
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2) ; i++)
          xm[2*i+2*(*n2)*j]= XScale(x[i+(*n2)*j]);
      for (j=0 ; j< (*n1) ; j++)
        for ( i=0 ; i < (*n2)-1 ; i++)
          xm[2*i+1+2*(*n2)*j]=  xm[2*i+2+2*(*n2)*j];

    }
    break;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() rect2d	(	double	x[],
		integer	x1[],
		integer *	n,
		char *	dir
	)

meme chose mais pour transformer des rectangles

double to integer (pixel) direction

Definition at line 949 of file Plo2dEch.c.

References Cscale, i, inint, wcscalelist::logflag, wcscalelist::Wscx1, wcscalelist::Wscy1, XLogScale(), XScale(), YLogScale(), and YScale().

Referenced by drawrectangle_1(), drawrectangles_1(), and sciIsClicked().

{
  integer i;
  if (strcmp("f2i",dir)==0) 
    {
      for ( i=0 ; i < (*n) ; i= i+4)
        {
          if ( Cscale.logflag[0] == 'n' ) 
            {
              x1[i]=  XScale(x[i]);
              x1[i+2]=inint( Cscale.Wscx1*( x[i+2]));
            }
          else 
            {
              x1[i]= XLogScale(x[i]);
              x1[i+2]=inint( Cscale.Wscx1*(log10((x[i]+x[i+2])/x[i])));
            } 
          if ( Cscale.logflag[1] == 'n' ) 
            {
              x1[i+1]= YScale(x[i+1]);
              x1[i+3]=inint( Cscale.Wscy1*( x[i+3]));
            }
          else 
            {
              x1[i+1]= YLogScale(x[i+1]);
              x1[i+3]=inint( Cscale.Wscy1*(log10(x[i+1]/(x[i+1]-x[i+3]))));
            }
        }
    } 
  else if (strcmp("i2f",dir)==0) 
    {
      for ( i=0 ; i < (*n) ; i=i+4)
        {
          if ( Cscale.logflag[0] == 'n' ) 
            {
              x[i]= XPi2R(x1[i] );
              x[i+2]=x1[i+2]/Cscale.Wscx1;
            }
          else
            {
              x[i]=exp10( XPi2R(x1[i]));
              x[i+2]=exp10(XPi2R( x1[i]+x1[i+2] ));
              x[i+2] -= x[i];
            }
          if ( Cscale.logflag[1] == 'n' ) 
            {
              x[i+1]= YPi2R( x1[i+1]);
              x[i+3]=x1[i+3]/Cscale.Wscy1;
            }
          else
            {
              x[i+1]=exp10( YPi2R( x1[i+1]));
              x[i+3]=exp10( YPi2R( x1[i+3]+x1[i+1])); 
              x[i+2] -= x[i+1];
            }
        }
    }
  else 
    sciprint(" Wrong dir %s argument in echelle2d\r\n",dir);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void rectangleDouble2Pixel	(	sciPointObj *	parentSubWin,
		double	ulPoint[3],
		double	userSize[2],
		int	edgesX[4],
		int	edgesY[4]
	)

Give the position of the 4 corners of a rectangle in pixels given the position of its upper left point in user coordiantes and its size. It works in every axes mode (2D/3D, log, reverse).

Parameters:

	parentSubWin	Subwindow in which the rectangle is drawn.
	ulPoint	Coordinates of the upper left point of the rectangle in user coord.
	userSize	Width and height of the rectangle in user coord.
	edgesX	X coordinates of the resulting positions.
	edgesY	Y coordinates of the resulting positions.

Definition at line 1889 of file Plo2dEch.c.

References sciSubWindow::axes, HDouble2Pixel, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, ReverseDataFor3D(), trans3d(), WDouble2Pixel, XDouble2Pixel, and YDouble2Pixel.

Referenced by drawRectangleEntity().

{
  sciSubWindow * ppSubWin = pSUBWIN_FEATURE( parentSubWin  ) ;

  if ( ppSubWin->is3d )
  {
    double rectx[4],recty[4],rectz[4];
    int n = 4 ;
    rectx[0] = rectx[3] = ulPoint[0] ;
    rectx[1] = rectx[2] = ulPoint[0] + userSize[0] ;   
    recty[0] = recty[1] = ulPoint[1] ;
    recty[2] = recty[3] = ulPoint[1] - userSize[1];
    rectz[0] = rectz[1] = rectz[2]= rectz[3] = ulPoint[2] ;

    ReverseDataFor3D( parentSubWin, rectx, recty, rectz, n);

    trans3d( parentSubWin,n,edgesX,edgesY,rectx,recty,rectz) ;
  }
  else
  {
    /* 2D mode */
    /* position of the upper left point of the rectangle with reverse axes. */
    double realPoint[2] ;
    int ulPointPix[2] ;
    int sizePix[2] ;

    if ( ppSubWin->axes.reverse[0] )
    {
      realPoint[0] = ulPoint[0] + userSize[0] ;
    }
    else
    {
      realPoint[0] = ulPoint[0] ;
    }

    if ( ppSubWin->axes.reverse[1] )
    {
      realPoint[1] = ulPoint[1] - userSize[1] ;
    }
    else
    {
      realPoint[1] = ulPoint[1] ;
    }

    ulPointPix[0] = XDouble2Pixel( realPoint[0] ) ; 
    ulPointPix[1] = YDouble2Pixel( realPoint[1] ) ;

    /* Nouvelles fonctions de changement d'echelle pour les longueurs --> voir PloEch.h */
    sizePix[0] = WDouble2Pixel( ulPoint[0], userSize[0] ) ;
    /* for y we take the length from the bottom left corner */
    sizePix[1] = HDouble2Pixel( ulPoint[1] - userSize[1], userSize[1] ) ;

    edgesX[0] = ulPointPix[0] ;
    edgesX[1] = ulPointPix[0] + sizePix[0]  ;
    edgesX[2] = ulPointPix[0] + sizePix[0]  ;
    edgesX[3] = ulPointPix[0] ;

    edgesY[0] = ulPointPix[1] ;
    edgesY[1] = ulPointPix[1] ;
    edgesY[2] = ulPointPix[1] + sizePix[1]  ;
    edgesY[3] = ulPointPix[1] + sizePix[1]  ;

  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scizoom	(	double	bbox[4],
		sciPointObj *	pobj
	)

Definition at line 1794 of file Plo2dEch.c.

References C2F, graduate(), lmax(), lmin(), max, min, pSUBWIN_FEATURE, sciGetZooming(), and sciSetZooming().

Referenced by set_zoom_box_property().

{
  sciPointObj *psousfen;
  double fmin,fmax,lmin,lmax;
  integer min,max,puiss,deux=2,dix=10;
  psousfen= pobj; /* ??? */

  if ( !( sciGetZooming(pobj) ) )
  {
    sciSetZooming(psousfen, 1);
  }
  fmin=  bbox[0];
  fmax=  bbox[2];
  if( pSUBWIN_FEATURE (psousfen)->logflags[0] == 'n' )
  {
    C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
    pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=puiss;
    pSUBWIN_FEATURE (psousfen)->ZRect[0]=lmin;
    pSUBWIN_FEATURE (psousfen)->ZRect[2]=lmax;
  }
  else
  {
    pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=0;
    pSUBWIN_FEATURE (psousfen)->ZRect[0]=fmin;
    pSUBWIN_FEATURE (psousfen)->ZRect[2]=fmax;
  }

  fmin= bbox[1]; 
  fmax= bbox[3];
  if ( pSUBWIN_FEATURE (psousfen)->logflags[1] == 'n' )
  {
    C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
    pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=puiss;
    pSUBWIN_FEATURE (psousfen)->ZRect[1]=lmin;
    pSUBWIN_FEATURE (psousfen)->ZRect[3]=lmax;
  }
  else
  {
    pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=0;
    pSUBWIN_FEATURE (psousfen)->ZRect[1]=fmin;
    pSUBWIN_FEATURE (psousfen)->ZRect[3]=fmax;
  }

  /* default values when zooming in 3d */
  /* and scizoom takes only xmin ymin xmax ymax AND not zmin zmax (for now at least) */
  /* F.Leray 29.09.05 */
  pSUBWIN_FEATURE (psousfen)->ZRect[4] = pSUBWIN_FEATURE (psousfen)->SRect[4];
  pSUBWIN_FEATURE (psousfen)->ZRect[5] = pSUBWIN_FEATURE (psousfen)->SRect[5];

}

Here is the call graph for this function:

Here is the caller graph for this function:

void set_scale	(	char	flag[6],
		double	subwin[4],
		double	frame_values[4],
		integer	aaint[4],
		char	logflag[3],
		double	axis_values[4]
	)

Definition at line 632 of file Plo2dEch.c.

References C2F, Cscale, dr(), i, L, PD0, PI0, wcscalelist::subwin_rect, and wcscalelist::wdim.

Referenced by DrawAxes(), drawSubWinEntity(), Nsetscale2d(), sci_draw(), sciInitSelectedSubWin(), sciIsClicked(), set_axes_bounds_property(), SetEch3d1(), setscale2d(), updateScale3d(), and updateSubWinScale().

{
  char c;
  char wdim_changed= 'f',subwin_changed='f';
  char frame_values_changed='f',aaint_changed='f';
  char logflag_changed='f';
  char axis_changed = 'f';
  integer  verbose=0,narg,wdim[2];
  int i;
  if ( flag[0] == 't'  ) 
    {
      C2F(dr)("xget","wdim",&verbose,wdim,&narg, PI0, PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
      if ( Cscale.wdim[0] != wdim[0] || Cscale.wdim[1] != wdim[1]) 
        { 
          Cscale.wdim[0] = wdim[0]; Cscale.wdim[1] = wdim[1]; 
          wdim_changed='t';
        }
    }
  if ( flag[1] == 't' ) 
    {
      for (i=0; i < 4 ; i++ ) 
        if ( subwin[i] != Cscale.subwin_rect[i]) { subwin_changed='t' ; break;}
    }
  if ( flag[2] == 't' ) 
    {
      for (i=0; i < 4 ; i++ ) 
        if ( frame_values[i] != Cscale.frect[i]) { frame_values_changed='t' ; break;}
      /* if no scales were present and the values given are the same as the 
       * default frect values we must register that we are setting a scale 
       */
      if ( Cscale.flag == 0) frame_values_changed='t' ;
    }
  if ( flag[3] == 't' ) 
    {
      for (i=0; i < 4 ; i++ ) 
        if ( aaint[i] != Cscale.Waaint1[i]) { aaint_changed='t' ; break;}
    }
  if ( flag[4] == 't' ) 
    {
      for (i=0; i < 2 ; i++ ) 
        if ( logflag[i] != Cscale.logflag[i]) { logflag_changed='t' ; break;}
    }
  if ( flag[5] == 't' ) 
    {
      for (i=0; i < 4 ; i++ ) 
        if ( axis_values[i] != Cscale.axis[i]) { axis_changed='t' ; break;}
    }
  if ( axis_changed == 't') 
    {
      for (i=0; i < 4 ; i++ ) Cscale.axis[i] = axis_values[i];
    }

  if ( subwin_changed == 't' ) 
    {
      for (i=0; i < 4 ; i++ ) Cscale.subwin_rect[i] = subwin[i];
    }
  if ( frame_values_changed == 't' ) 
    {
      for (i=0; i < 4 ; i++) Cscale.frect[i]=frame_values[i]; 
      /* the scale is no more a default scale */
      Cscale.flag = 1;
    }
  if ( wdim_changed == 't' || subwin_changed == 't' || frame_values_changed == 't' 
       ||  axis_changed == 't' )
    {
      /* Upgrading constants for 2D transformation */
      double scx,scy,xoff,yoff,val;

      sciPointObj *pobj = sciGetCurrentSubWin();
      sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

      scx =  ((double) Cscale.wdim[0]*Cscale.subwin_rect[2]-Cscale.wdim[0]*Cscale.subwin_rect[2]
              *(Cscale.axis[0]+Cscale.axis[1]));
      scy =  ((double) Cscale.wdim[1]*Cscale.subwin_rect[3]-Cscale.wdim[1]*Cscale.subwin_rect[3]
              *(Cscale.axis[2]+Cscale.axis[3]));
      xoff= ((double) Cscale.wdim[0]*Cscale.subwin_rect[2])*(Cscale.axis[0]);
      yoff= ((double) Cscale.wdim[1]*Cscale.subwin_rect[3])*(Cscale.axis[2]);
      
      Cscale.Wxofset1= xoff+Cscale.subwin_rect[0]*((double)Cscale.wdim[0]);
      Cscale.Wyofset1= yoff+Cscale.subwin_rect[1]*((double)Cscale.wdim[1]);
      Cscale.Wscx1   = scx;
      Cscale.Wscy1   = scy;

      val = Abs(Cscale.frect[0]- Cscale.frect[2]);
      Cscale.Wscx1 = (val <=SMDOUBLE) ? Cscale.Wscx1/SMDOUBLE : Cscale.Wscx1/val; 
      val = Abs(Cscale.frect[1]- Cscale.frect[3]);
      Cscale.Wscy1 = (val <=SMDOUBLE) ? Cscale.Wscy1/SMDOUBLE : Cscale.Wscy1/val;

      /*          F.Leray 12.10.04 : MODIF named scale_modification*/
      if(ppsubwin->axes.reverse[0]==TRUE && ppsubwin->is3d == FALSE)
      {
        Cscale.WIRect1[0] = XScale( Cscale.frect[2]);
        Cscale.WIRect1[2] = Abs(XScale( Cscale.frect[2]) -  XScale( Cscale.frect[0]));
      }
      else
      {
        Cscale.WIRect1[0] = XScale( Cscale.frect[0]);
        Cscale.WIRect1[2] = Abs(XScale( Cscale.frect[2]) -  XScale( Cscale.frect[0]));
      }

      if(ppsubwin->axes.reverse[1]==TRUE && ppsubwin->is3d == FALSE)
      {
        Cscale.WIRect1[1] = YScale( Cscale.frect[1]);
        Cscale.WIRect1[3] = Abs(YScale( Cscale.frect[3]) -  YScale( Cscale.frect[1]));
      }
      else
      {
        Cscale.WIRect1[1] = YScale( Cscale.frect[3]);
        Cscale.WIRect1[3] = Abs(YScale( Cscale.frect[3]) -  YScale( Cscale.frect[1]));
      }
    }
  if (  aaint_changed== 't' ) 
    {
      for (i=0; i < 4 ; i++) Cscale.Waaint1[i]=aaint[i];
    }
  if ( logflag_changed== 't' ) 
    {
      Cscale.logflag[0]=logflag[0];      Cscale.logflag[1]=logflag[1];
    }
  if (  aaint_changed== 't' || frame_values_changed == 't')
    {
      Cscale.xtics[0] = Cscale.frect[0];
      Cscale.xtics[1] = Cscale.frect[2];
      Cscale.ytics[0] = Cscale.frect[1];
      Cscale.ytics[1] = Cscale.frect[3];
      Cscale.xtics[2] = 0.0;
      Cscale.ytics[2] = 0.0;
      Cscale.xtics[3] = Cscale.Waaint1[1];
      Cscale.ytics[3] = Cscale.Waaint1[3];
    }
 
  if ( (c=GetDriver()) == 'X' ||  c == 'R' || c == 'I' || c == 'G' || c == 'W' )
    {
      set_window_scale(curwin(),&Cscale);
    }  
}

Here is the call graph for this function:

Here is the caller graph for this function:

void set_window_scale_with_default

(

int

i

)

Definition at line 110 of file Plo2dEch.c.

References Defscale, and set_window_scale().

Referenced by CleanPlots().

{ set_window_scale(i,&Defscale);} 

Here is the call graph for this function:

Here is the caller graph for this function:

void ShowScales

(

void

)

Definition at line 380 of file Plo2dEch.c.

References Cscale, wcscalelist::flag, sciprint(), show_scales(), wcscalelist::subwin_rect, and The_List.

Referenced by sci_xsetech().

{ 
  sciprint("-----------scales-------------\r\n");
  show_scales(The_List);
  sciprint("----------current scale-------\r\n");
  sciprint("\tsubwin=[%5.2f,%5.2f,%5.2f,%5.2f], flag=%d\r\n",
           Cscale.subwin_rect[0],Cscale.subwin_rect[1],Cscale.subwin_rect[2],Cscale.subwin_rect[3],
           Cscale.flag);
  sciprint("-----------end----------------\r\n");
}

Here is the call graph for this function:

Here is the caller graph for this function:

void unzoom

(

void

)

Definition at line 1372 of file Plo2dEch.c.

References C2F, dr1(), graduate(), L, lmax(), lmin(), max, min, NULL, PD0, PI0, tagSons::pnext, tagSons::pointobj, pSUBWIN_FEATURE, SCI_SUBWIN, sciDrawObj(), sciGetCurrentFigure(), sciGetEntityType(), sciGetSons(), sciGetZooming(), and sciSetZooming().

Referenced by sci_unzoom(), scig_unzoom(), set_zoom_box_property(), and set_zoom_state_property().

{
  integer ww,verbose=0,narg;
  double fmin,fmax,lmin,lmax;
  integer min,max,puiss,deux=2,dix=10;
  sciPointObj *psousfen;
  sciSons *psonstmp;


  C2F(dr1)("xclear","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr1)("xget","window",&verbose,&ww,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  /***** 02/10/2002 ****/
  psonstmp = sciGetSons (sciGetCurrentFigure());
  while (psonstmp != (sciSons *) NULL)
  {
    if(sciGetEntityType (psonstmp->pointobj) == SCI_SUBWIN)
    {
      psousfen= (sciPointObj *)psonstmp->pointobj;
      if (sciGetZooming(psousfen))
      {
        sciSetZooming(psousfen, 0);
        /*   pSUBWIN_FEATURE (psousfen)->ZRect[0]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[0]; */
        /*                    pSUBWIN_FEATURE (psousfen)->ZRect[1]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[1]; */
        /*                    pSUBWIN_FEATURE (psousfen)->ZRect[2]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[2]; */
        /*                    pSUBWIN_FEATURE (psousfen)->ZRect[3]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[3]; */

        pSUBWIN_FEATURE (psousfen)->ZRect[0]   = pSUBWIN_FEATURE (psousfen)->SRect[0];
        pSUBWIN_FEATURE (psousfen)->ZRect[1]   = pSUBWIN_FEATURE (psousfen)->SRect[1];
        pSUBWIN_FEATURE (psousfen)->ZRect[2]   = pSUBWIN_FEATURE (psousfen)->SRect[2];
        pSUBWIN_FEATURE (psousfen)->ZRect[3]   = pSUBWIN_FEATURE (psousfen)->SRect[3];

        /*}  SS: moved below because if sciGetZooming(psousfen)==0 
        ZRect is undefined -> code may enter in infinite recursion loop to compute graduation
        and there is no use to regraduate */

        fmin= pSUBWIN_FEATURE (psousfen)->ZRect[0];
        fmax= pSUBWIN_FEATURE (psousfen)->ZRect[2];
        C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
        pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=puiss;

        fmin= pSUBWIN_FEATURE (psousfen)->ZRect[1];
        fmax= pSUBWIN_FEATURE (psousfen)->ZRect[3];
        C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
        pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=puiss;
        /*****/
      }
    }
    psonstmp = psonstmp->pnext;
  }

  sciDrawObj(sciGetCurrentFigure());
}

Here is the call graph for this function:

Here is the caller graph for this function:

void unzoom_one_axes

(

sciPointObj *

psousfen

)

Definition at line 1427 of file Plo2dEch.c.

References C2F, graduate(), lmax(), lmin(), max, min, pSUBWIN_FEATURE, SCI_SUBWIN, sciDrawObj(), sciGetCurrentFigure(), sciGetEntityType(), sciGetZooming(), and sciSetZooming().

Referenced by sci_unzoom().

{
  double fmin,fmax,lmin,lmax;
  integer min,max,puiss,deux=2,dix=10;

  if (sciGetEntityType (psousfen) == SCI_SUBWIN) {
    if (sciGetZooming(psousfen))        {
      sciSetZooming(psousfen, 0);
      /*   pSUBWIN_FEATURE (psousfen)->ZRect[0]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[0]; */
      /*          pSUBWIN_FEATURE (psousfen)->ZRect[1]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[1]; */
      /*          pSUBWIN_FEATURE (psousfen)->ZRect[2]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[2]; */
      /*          pSUBWIN_FEATURE (psousfen)->ZRect[3]   = pSUBWIN_FEATURE (psousfen)->ZRect_kp[3]; */

      pSUBWIN_FEATURE (psousfen)->ZRect[0]   = pSUBWIN_FEATURE (psousfen)->SRect[0];
      pSUBWIN_FEATURE (psousfen)->ZRect[1]   = pSUBWIN_FEATURE (psousfen)->SRect[1];
      pSUBWIN_FEATURE (psousfen)->ZRect[2]   = pSUBWIN_FEATURE (psousfen)->SRect[2];
      pSUBWIN_FEATURE (psousfen)->ZRect[3]   = pSUBWIN_FEATURE (psousfen)->SRect[3];

    }

    fmin= pSUBWIN_FEATURE (psousfen)->ZRect[0];
    fmax= pSUBWIN_FEATURE (psousfen)->ZRect[2];
    C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
    pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=puiss;

    fmin= pSUBWIN_FEATURE (psousfen)->ZRect[1];
    fmax= pSUBWIN_FEATURE (psousfen)->ZRect[3];
    C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
    pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=puiss;

    sciDrawObj(sciGetCurrentFigure());
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

double XDPi2R

(

double

x

)

Definition at line 1650 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscx1, and wcscalelist::Wxofset1.

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/
  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[0]==TRUE && ppsubwin->is3d == FALSE)
    return Cscale.frect[2] - (1.0/Cscale.Wscx1)*((x) - Cscale.Wxofset1);
  else
    return Cscale.frect[0] + (1.0/Cscale.Wscx1)*((x) - Cscale.Wxofset1);


  sciprint("Error in XScale\n");
  return -9000;
}

Here is the call graph for this function:

int XLogScale

(

double

x

)

Definition at line 1553 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, inint, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscx1, and wcscalelist::Wxofset1.

Referenced by Plo2d2RealToPixel(), Plo2d3RealToPixel(), Plo2d4RealToPixel(), rect2d(), and xechelle2d().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/

  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[0]==TRUE && ppsubwin->is3d == FALSE)
    return inint( Cscale.Wscx1*(Cscale.frect[2] - log10(x)) + Cscale.Wxofset1);
  else
    return inint( Cscale.Wscx1*(log10(x) -Cscale.frect[0]) + Cscale.Wxofset1);
        

  sciprint("Error in XLogScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

double XPi2R

(

int

x

)

Definition at line 1616 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscx1, and wcscalelist::Wxofset1.

Referenced by drawSegsEntity(), ellipse2d(), and xechelle2d().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/

  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[0]==TRUE && ppsubwin->is3d == FALSE)
    return Cscale.frect[2] - (1.0/Cscale.Wscx1)*((x) - Cscale.Wxofset1);
  else
    return Cscale.frect[0] + (1.0/Cscale.Wscx1)*((x) - Cscale.Wxofset1);
 

  sciprint("Error in XScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int XScale

(

double

x

)

Definition at line 1523 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, FLOAT_2_INT, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscx1, and wcscalelist::Wxofset1.

Referenced by axis2d(), axis_3ddraw(), box3d(), checkXAxes2dTics(), checkYAxes2dTics(), Convex_Box(), DrawAxis(), drawFecEntity(), drawGrayplotEntity(), drawSegsEntity(), DrawXGrid(), DrawXSubTics(), DrawXTics(), DrawYGrid(), DrawYSubTics(), DrawYTics(), ellipse2d(), Plo2d2RealToPixel(), Plo2d3RealToPixel(), Plo2d4RealToPixel(), rect2d(), Sci_Axis(), sciChamp2DRealToPixel(), XDrawAxisLine(), xechelle2d(), and YDrawAxisLine().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/

  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[0]==TRUE && ppsubwin->is3d == FALSE)
  {

    /* 2147483647 == 2^31 - 1 == INT32MAX */
    /*return inint( Max( Min(Cscale.Wscx1*(Cscale.frect[2] - (x)) + Cscale.Wxofset1, INT_MAX ), INT_MIN ) ) ;*/
    double dRes = Cscale.Wscx1 * (Cscale.frect[2] - (x)) + Cscale.Wxofset1 ;
    return FLOAT_2_INT( dRes ) ;
  }
  else
  {
    /*return inint( Max( Min(Cscale.Wscx1*((x) -Cscale.frect[0]) + Cscale.Wxofset1, INT_MAX ), INT_MIN ) );*/
    double dRes = Cscale.Wscx1 * ((x) -Cscale.frect[0]) + Cscale.Wxofset1 ;
    return FLOAT_2_INT( dRes ) ;
  }
  

  sciprint("Error in XScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

double YDPi2R

(

double

y

)

Definition at line 1667 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscy1, and wcscalelist::Wyofset1.

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/
  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[1]==TRUE && ppsubwin->is3d == FALSE)
    return Cscale.frect[1] + (1.0/Cscale.Wscy1)*((y) - Cscale.Wyofset1);
  else
    return Cscale.frect[3] - (1.0/Cscale.Wscy1)*((y) - Cscale.Wyofset1);

  
  
  sciprint("Error in YScale\n");
  return -9000;
}

Here is the call graph for this function:

int YLogScale

(

double

y

)

Definition at line 1597 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, inint, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscy1, and wcscalelist::Wyofset1.

Referenced by Plo2d2RealToPixel(), Plo2d3RealToPixel(), Plo2d4RealToPixel(), rect2d(), and yechelle2d().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/
  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[1]==TRUE && ppsubwin->is3d == FALSE)
    return inint( Cscale.Wscy1*(log10(y)-Cscale.frect[1]) + Cscale.Wyofset1);
  else
    return inint( Cscale.Wscy1*(-log10(y)+Cscale.frect[3]) + Cscale.Wyofset1);
 
  

  sciprint("Error in YLogScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

double YPi2R

(

int

y

)

Definition at line 1634 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FALSE, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), TRUE, wcscalelist::Wscy1, and wcscalelist::Wyofset1.

Referenced by drawSegsEntity(), ellipse2d(), and yechelle2d().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/
  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if(ppsubwin->axes.reverse[1]==TRUE && ppsubwin->is3d == FALSE)
    return Cscale.frect[1] + (1.0/Cscale.Wscy1)*((y) - Cscale.Wyofset1);
  else
    return Cscale.frect[3] - (1.0/Cscale.Wscy1)*((y) - Cscale.Wyofset1);


  sciprint("Error in YScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int YScale

(

double

y

)

Definition at line 1573 of file Plo2dEch.c.

References sciSubWindow::axes, Cscale, FLOAT_2_INT, wcscalelist::frect, sciSubWindow::is3d, pSUBWIN_FEATURE, AXES::reverse, sciGetCurrentSubWin(), sciprint(), wcscalelist::Wscy1, and wcscalelist::Wyofset1.

Referenced by axis2d(), axis_3ddraw(), box3d(), checkXAxes2dTics(), checkYAxes2dTics(), Convex_Box(), DrawAxis(), drawFecEntity(), drawGrayplotEntity(), drawSegsEntity(), DrawXGrid(), DrawXSubTics(), DrawXTics(), DrawYGrid(), DrawYSubTics(), DrawYTics(), ellipse2d(), Plo2d2RealToPixel(), Plo2d3RealToPixel(), Plo2d4RealToPixel(), rect2d(), Sci_Axis(), sciChamp2DRealToPixel(), XDrawAxisLine(), YDrawAxisLine(), and yechelle2d().

{
  /*F.Leray 12.10.04 : MODIF named scale_modification*/

  sciPointObj *pobj = sciGetCurrentSubWin();
  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (pobj);

  if( ppsubwin->axes.reverse[1] && !ppsubwin->is3d )
  {
    double dRes = Cscale.Wscy1 * ( y - Cscale.frect[1] ) + Cscale.Wyofset1 ;
    return FLOAT_2_INT( dRes ) ;
  }
  else
  {
    double dRes = Cscale.Wscy1 * ( -y + Cscale.frect[3] ) + Cscale.Wyofset1 ;
    return FLOAT_2_INT( dRes ) ;
  }

  
  sciprint("Error in YScale\n");
  return -9000;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int zoom

(

void

)

Definition at line 1360 of file Plo2dEch.c.

References zoom_box(), and zoom_get_rectangle().

Referenced by sci_zoom_rect(), and scig_2dzoom().

{
  double bbox[4];
  int x_pixel[2], y_pixel[2];

  if ( zoom_get_rectangle(bbox,x_pixel,y_pixel) == 1 ) { return 1 ; }
  
  zoom_box(bbox,x_pixel,y_pixel);
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int zoom_box	(	double *	bbox,
		int *	x_pixel,
		int *	y_pixel
	)

Definition at line 1154 of file Plo2dEch.c.

References sciSubWindow::axes, box3d(), C2F, Cscale, FALSE, sciSubWindow::FRect, FreeVertices(), getVertexIndex(), GetVerticesAt(), graduate(), i, InvAxis(), lmax(), lmin(), max, Max, min, Min, NULL, tagSons::pnext, tagSons::pointobj, pSUBWIN_FEATURE, AXES::reverse, SCI_SUBWIN, sciDrawObj(), sciGetCurrentFigure(), sciGetCurrentSubWin(), sciGetEntityType(), sciGetLastSons(), sciGetSons(), sciGetZooming(), sciIsAreaZoom(), sciSetSelectedSubWin(), sciSetZooming(), SetMinMaxVertices(), setVertexIndex(), setZoom3dStatus(), sciSubWindow::SRect, TRUE, wcscalelist::WIRect1, XDouble2Pixel, XPixel2Double, YDouble2Pixel, YPixel2Double, and z.

Referenced by sci_zoom_rect(), and zoom().

{
  integer min,max,puiss,deux=2,dix=10,box[4],box1[4],section[4];

  double fmin,fmax,lmin,lmax;
  sciPointObj *psousfen,*tmpsousfen;
  sciPointObj * pfigure = NULL;
  sciSons *psonstmp;
  sciSubWindow * ppsubwin = NULL; /* debug */

  box[0]= Min(XDouble2Pixel(bbox[0]),XDouble2Pixel(bbox[2]));
  box[2]= Max(XDouble2Pixel(bbox[0]),XDouble2Pixel(bbox[2]));
  box[1]= Min(YDouble2Pixel(bbox[1]),YDouble2Pixel(bbox[3]));
  box[3]= Max(YDouble2Pixel(bbox[1]),YDouble2Pixel(bbox[3]));

  pfigure = sciGetCurrentFigure();
  tmpsousfen= sciGetCurrentSubWin();
  psonstmp = sciGetSons (sciGetCurrentFigure());
  while (psonstmp != (sciSons *) NULL)
  {
    if(sciGetEntityType (psonstmp->pointobj) == SCI_SUBWIN)
    {
      psousfen= (sciPointObj *)psonstmp->pointobj;
      if ( pSUBWIN_FEATURE (psousfen)->is3d == TRUE) {
        double xmin, ymin;
        double xmax, ymax;
        double zmin, zmax;
        sciSons *psonstmp2 = (sciSons *) NULL;
        double epsilon = 1e-16;

        int box3d[4];
        int section3d[4];

        sciSetSelectedSubWin(psousfen);
        ppsubwin = pSUBWIN_FEATURE (psousfen);

        box3d[0] = x_pixel[0];
        box3d[2] = x_pixel[1];
        box3d[1] = y_pixel[0];
        box3d[3] = y_pixel[1];

        box1[0]= Cscale.WIRect1[0];
        box1[2]= Cscale.WIRect1[2]+Cscale.WIRect1[0];
        box1[1]= Cscale.WIRect1[1];
        box1[3]= Cscale.WIRect1[3]+Cscale.WIRect1[1];

        if (sciIsAreaZoom(box3d,box1,section3d))
        {
          int tmp[4],i;

          for(i=0;i<4;i++) tmp[i] = section3d[i];

          section3d[0] = Min(tmp[0],tmp[2]);
          section3d[2] = Max(tmp[0],tmp[2]);
          section3d[1] = Min(tmp[1],tmp[3]);
          section3d[3] = Max(tmp[1],tmp[3]);

          /* determine how many vertices we will have to draw */
          /* this is used for 3d zoom (to know size of the global vector) */
          setVertexIndex( 0 ) ;

          /* this flag is used inside trans3d called many times by sciDrawObj */
          setZoom3dStatus( TRUE );

          psonstmp2 = sciGetLastSons (psousfen);

          sciDrawObj(psousfen); /* see GlobalFlag_Zoom3dOn impact flag in sciDrawObj & trans3d functions */

          setZoom3dStatus( FALSE );

          SetMinMaxVertices(pSUBWIN_FEATURE(psousfen)->vertices_list, &xmin, &ymin, &zmin, &xmax, &ymax, &zmax);


          for( i = 0 ; i < getVertexIndex() ; i++ )
          {
            int xp,yp;
            double x,y,z;

            if(GetVerticesAt(pSUBWIN_FEATURE(psousfen)->vertices_list, &xp, &yp, &x, &y, &z)==-1) 
              break; /* all the vertices have been scanned inside the current psubwin */

            if(xp >= section3d[0] && xp <= section3d[2] && yp >= section3d[1] && yp <= section3d[3])
            {
              /*                          printf("ICI => xp = %d \t yp = %d et x = %lf \t y = %lf \t z = %lf\n",xp,yp,x,y,z); */
              if(x < xmin) xmin=x; if(x > xmax) xmax=x;
              if(y < ymin) ymin=y; if(y > ymax) ymax=y;
              if(z < zmin) zmin=z; if(z > zmax) zmax=z;
            }
          }

          if(ppsubwin->axes.reverse[0] == TRUE) {
            double tmp2;
            tmp2 = InvAxis(ppsubwin->FRect[0],ppsubwin->FRect[2],xmin);
            xmin = InvAxis(ppsubwin->FRect[0],ppsubwin->FRect[2],xmax);
            xmax = tmp2;
          }

          if(ppsubwin->axes.reverse[1] == TRUE) {
            double tmp2;
            tmp2 = InvAxis(ppsubwin->FRect[1],ppsubwin->FRect[3],ymin);
            ymin = InvAxis(ppsubwin->FRect[1],ppsubwin->FRect[3],ymax);
            ymax = tmp2;
          }

          if(ppsubwin->axes.reverse[2] == TRUE) {
            double tmp2;
            tmp2 = InvAxis(ppsubwin->FRect[4],ppsubwin->FRect[5],zmin);
            zmin = InvAxis(ppsubwin->FRect[4],ppsubwin->FRect[5],zmax);
            zmax = tmp2;
          }

          FreeVertices(psousfen);

          /* case where no vertex has been selected : */
          /* no zoom is performed */
          if(xmin > xmax || ymin > ymax || zmin > zmax)
          {
            xmin = ppsubwin->SRect[0];
            xmax = ppsubwin->SRect[1];

            ymin = ppsubwin->SRect[2];
            ymax = ppsubwin->SRect[3];

            zmin = ppsubwin->SRect[4];
            zmax = ppsubwin->SRect[5];
          }

          if (!(sciGetZooming(psousfen)))
            sciSetZooming(psousfen, 1);


          /* case where a 3d rotated plot2d is zoomed */
          if(fabs(zmin) < epsilon && fabs(zmax) < epsilon){
            zmin = pSUBWIN_FEATURE (psousfen)->SRect[4];
            zmax = pSUBWIN_FEATURE (psousfen)->SRect[5];
          }

          pSUBWIN_FEATURE (psousfen)->ZRect[0] = xmin;
          pSUBWIN_FEATURE (psousfen)->ZRect[2] = xmax;

          pSUBWIN_FEATURE (psousfen)->ZRect[1] = ymin;
          pSUBWIN_FEATURE (psousfen)->ZRect[3] = ymax;

          pSUBWIN_FEATURE (psousfen)->ZRect[4] = zmin;
          pSUBWIN_FEATURE (psousfen)->ZRect[5] = zmax;

        }
      }
      sciSetSelectedSubWin(psousfen);
      ppsubwin = pSUBWIN_FEATURE (psousfen);

      if ( pSUBWIN_FEATURE (psousfen)->is3d == FALSE) {

        box1[0]= Cscale.WIRect1[0];
        box1[2]= Cscale.WIRect1[2]+Cscale.WIRect1[0];
        box1[1]= Cscale.WIRect1[1];
        box1[3]= Cscale.WIRect1[3]+Cscale.WIRect1[1];

        if (sciIsAreaZoom(box,box1,section))
        {
          bbox[0]= Min(XPixel2Double(section[0]),XPixel2Double(section[2]));
          bbox[2]= Max(XPixel2Double(section[0]),XPixel2Double(section[2]));
          bbox[1]= Min(YPixel2Double(section[1]),YPixel2Double(section[3]));
          bbox[3]= Max(YPixel2Double(section[1]),YPixel2Double(section[3]));

          if (!(sciGetZooming(psousfen)))
            sciSetZooming(psousfen, 1);

          fmin=  bbox[0];
          fmax=  bbox[2];
          if(pSUBWIN_FEATURE (psousfen)->logflags[0] == 'n') {
            C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
            pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=puiss;
            pSUBWIN_FEATURE (psousfen)->ZRect[0]=lmin;
            pSUBWIN_FEATURE (psousfen)->ZRect[2]=lmax;}
          else {
            pSUBWIN_FEATURE(psousfen)->axes.xlim[2]=0;
            pSUBWIN_FEATURE (psousfen)->ZRect[0]=fmin;
            pSUBWIN_FEATURE (psousfen)->ZRect[2]=fmax;
          }


          fmin= bbox[1]; 
          fmax= bbox[3];
          if(pSUBWIN_FEATURE (psousfen)->logflags[1] == 'n') {
            C2F(graduate)(&fmin, &fmax,&lmin,&lmax,&deux,&dix,&min,&max,&puiss) ;
            pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=puiss;
            pSUBWIN_FEATURE (psousfen)->ZRect[1]=lmin;
            pSUBWIN_FEATURE (psousfen)->ZRect[3]=lmax;}
          else {
            pSUBWIN_FEATURE(psousfen)->axes.ylim[2]=0;
            pSUBWIN_FEATURE (psousfen)->ZRect[1]=fmin;
            pSUBWIN_FEATURE (psousfen)->ZRect[3]=fmax;}
        }
      }
    }
    psonstmp = psonstmp->pnext;
  }
  sciSetSelectedSubWin(tmpsousfen);
  sciDrawObj(sciGetCurrentFigure());

  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

WCScaleList Cscale

Definition at line 56 of file Plo2dEch.c.

Referenced by Axes3dStrings2(), axesplot(), axis2d(), axis_draw(), axis_draw2(), box3d(), CheckClickedSubwin(), checkXAxes2dTics(), checkYAxes2dTics(), computeArrowColor(), computeRealArrowSize(), Cscale2default(), DrawAxesBackground(), drawPolylineEntity(), DrawXSubTics(), DrawXTics(), DrawYSubTics(), DrawYTics(), echelle2dl(), ellipse2d(), frame_clip_on(), get_frame_in_pixel(), get_margin_in_pixel(), get_scale_win(), getscale2d(), I3dRotation(), InitAxesModel(), labels2D_draw(), Legends(), Nsetscale2d(), rect2d(), Sci_Axis(), sci_drawaxis(), sci_xchange(), SciAxisNew(), sciChamp2DRealToPixel(), sciUpdateScaleAngles(), set_scale(), SetEch3d1(), ShowScales(), updateScale3d(), XDPi2R(), xechelle2d(), XLogScale(), XPi2R(), XScale(), YDPi2R(), yechelle2d(), YLogScale(), YPi2R(), YScale(), Zoom3d_XPi2R(), Zoom3d_YPi2R(), and zoom_box().

---