Xcall1.h File Reference

#include "machine.h"

Include dependency graph for Xcall1.h:

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

Go to the source code of this file.

Functions
int C2F()	dr1 (char x0[], char x1[], integer *x2, integer *x3, integer *x4, integer *x5, integer *x6, integer *x7, double *dx1, double *dx2, double *dx3, double *dx4, integer lx0, integer lx1)
int C2F()	dr (char x0[], char x1[], integer *x2, integer *x3, integer *x4, integer *x5, integer *x6, integer *x7, double *dx1, double *dx2, double *dx3, double *dx4, integer lx0, integer lx1)
int C2F()	xsetg (char *str, char *str1, integer lx0, integer lx1)
int C2F()	xgetg (char *str, char *str1, integer *len, integer lx0, integer lx1)
char	GetDriver (void)
void	GetDriver1 (char *str, integer *v2, integer *v3, integer *v4, integer *v5, integer *v6, integer *v7, double *dv1, double *dv2, double *dv3, double *dv4)
int	GetDriverId (void)
char *	getFPF (void)
void C2F()	SetDriver (char *x0, integer *v2, integer *v3, integer *v4, integer *v5, integer *v6, integer *v7, double *dv1, double *dv2, double *dv3, double *dv4)
int	GetDPIFromDriver (int DPI[2])

---

Function Documentation

int C2F() dr	(	char	x0[],
		char	x1[],
		integer *	x2,
		integer *	x3,
		integer *	x4,
		integer *	x5,
		integer *	x6,
		integer *	x7,
		double *	dx1,
		double *	dx2,
		double *	dx3,
		double *	dx4,
		integer	lx0,
		integer	lx1
	)

Definition at line 332 of file Xcall.c.

Referenced by AdaptGraduationsOnXBottomLeft(), AdaptGraduationsOnXBottomRight(), AdaptGraduationsOnYBottomLeft(), AdaptGraduationsOnYBottomRight(), AdaptGraduationsOnZ(), Axes3dStrings2(), axesplot(), AxesStrings(), axis_3ddraw(), axis_draw(), axis_draw2(), block_draw_rect_1(), block_draw_rect_2(), block_draw_rect_3(), bouncexy(), boundingbox_1(), box3d(), callXstringL(), champg(), CheckDisplay(), checkXAxes2dTics(), checkYAxes2dTics(), cleararea_1(), clipPolyLine(), cmscope(), computeArrowColor(), computeSuitableFont(), ConstructFigure(), ContourTrace(), Convex_Box(), cscope(), curwin(), dbox(), delete_sgwin_entities(), displaynumbers_1(), displaystring_1(), drawarc_1(), drawArcEntity(), drawarcs_1(), drawarrows_1(), DrawAxes(), DrawAxesBackground(), drawAxesEntity(), DrawAxis(), drawaxis_1(), drawFecEntity(), drawFigureEntity(), drawGrayplotEntity(), drawLegendEntity(), DrawMark_Asterisk(), DrawMark_Cross(), DrawMark_FullDiamond(), DrawMark_FullDot(), DrawMark_FullPentagram(), DrawMark_FullSquare(), DrawMark_FullTriangleDown(), DrawMark_FullTriangleLeft(), DrawMark_FullTriangleRight(), DrawMark_FullTriangleUp(), DrawMark_Plus(), DrawMarks3D(), DrawMerge3d(), DrawNewMarks(), drawpolyline_1(), drawPolylineEntity(), drawpolylines_1(), drawpolymark_1(), drawPolyMarks(), drawrectangle_1(), drawRectangleEntity(), drawrectangles_1(), drawsegments_1(), drawSegsEntity(), drawStringInCell(), drawSubWinEntity(), drawSurfaceEntity(), drawTextEntity(), DrawXGrid(), DrawXSubTics(), DrawXTics(), DrawYGrid(), DrawYSubTics(), DrawYTics(), fillarc_1(), fillarcs_1(), fillpolyline_1(), fillpolylines_1(), fillrectangle_1(), frame_clip_off(), frame_clip_on(), get_cwindow_dims(), get_figure_size_property(), GetCurrentFigureWindows(), getStringBbox(), getStringsPositions(), getStringsRectSized(), getTicksLabelBox(), GraySquare1_base(), GraySquare1_NGreverse(), GraySquare_base(), GraySquareDirect(), GraySquareScaled(), GSciString(), I3dRotation(), in_word_set(), Legends(), Load(), MenuSelect(), newfec(), Objstring(), PaintTriangle(), plot3dn(), ResetFigureToDefaultValues(), Sci_Axis(), sci_set(), sci_show_window(), sci_xdel(), SciAxisNew(), sciChamp2DRealToPixel(), sciClip(), sciDrawInsideSegments(), SciDrawLines(), sciDrawOutsideSegment(), scig_2dzoom(), scig_3drot(), scig_erase(), scig_expose(), scig_loadsg(), scig_raise(), scig_replay(), scig_replay_hdc(), scig_resize(), scig_sel(), scig_toPs(), scig_unzoom(), sciGetCurrentScilabXgc(), sciGetScreenPosition(), sciInitDim(), sciInitMdlBackground(), sciInitMdlForeground(), sciInitResize(), sciInitScreenPosition(), sciInitUsedWindow(), sciInitXorMode(), sciIsExistingFigure(), scilab_shade(), sciRedrawF(), sciRefreshObj(), sciSetColormap(), sciSetDefaultValues(), sciSetName(), sciSwitchWindow(), sciUnClip(), sciwin(), set_axes_size_property(), set_block_win(), set_figure_size_property(), set_scale(), set_slider_color(), SetEch3d1(), TDAxis(), TDdrawaxis(), triedre(), updateScale3d(), xclick_1(), xclick_2(), xclick_any_1(), XDrawAxisLine(), xgetmouse2(), xgetmouse_1(), xinit_1(), xset_1(), xstringb_1(), YDrawAxisLine(), zoom_get_rectangle(), and zoom_rect2().

{ 
#ifdef _MSC_VER
  if ( DriverId == 0 && DriverName[0] != 'I' ) 
    {
      SetWinhdc();
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
      ReleaseWinHdc();
    }
  else 
    {
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
    }
#else
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
#endif
  return 0;
}

Here is the caller graph for this function:

int C2F() dr1	(	char	x0[],
		char	x1[],
		integer *	x2,
		integer *	x3,
		integer *	x4,
		integer *	x5,
		integer *	x6,
		integer *	x7,
		double *	dx1,
		double *	dx2,
		double *	dx3,
		double *	dx4,
		integer	lx0,
		integer	lx1
	)

Definition at line 196 of file Xcall1.c.

Referenced by block_draw_rect_1(), block_draw_rect_2(), block_draw_rect_3(), bouncexy(), check_win(), cmscope(), cscope(), drawLegendEntity(), I3dRotation(), sci_driver(), sci_seteventhandler(), sci_xaxis(), sci_xclea(), sci_xclear(), sci_xclick(), sci_xend(), sci_xget(), sci_xgetmouse(), sci_xinit(), sci_xlfont(), sci_xset(), sci_xstringl(), scicosclip(), scig_replay_hdc(), scigerase(), slider(), test_click(), unzoom(), and zoom_get_rectangle().

{ 
  const struct funreplace *fr;
  fr=in_word_set(x0,strlen(x0));
  if ( fr != NULL ) 
    {
      (*(fr->action))(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
    }
  else 
    {
      sciprint("\n Unknow X operator <%s>\r\n",x0);
    }
  return(0);
}

Here is the caller graph for this function:

int GetDPIFromDriver

(

int

DPI[2]

)

we draw marks in pixel Returns the DPI depending on the used driver

Definition at line 372 of file Xcall.c.

References GetDriverId(), GetScreenDPI(), int, Printer_XRes, Printer_YRes, and WindowsPrintScreen.

{
  int driver = GetDriverId(); /* return the first letter of the driver name (see XCall.c) */
  int succeed = 0;
  int ixres, iyres;

  switch(driver)
  {
  case 0: 
    if(WindowsPrintScreen == 1)
    {
      ixres = Printer_XRes;
      iyres = Printer_YRes;
      succeed = 1;
    }
    else
    {
      succeed = GetScreenDPI(&ixres,&iyres);
      if(succeed == -1){
        ixres = (int)72.; /* default value*/
        iyres = (int)72.; /* default value*/
      }
    }
    break;
  case 1: /* Pos */
    /*       printf("DRIVERS POS enabled -- -- -- --\n"); */
    /* when using Pos driver, the output file is 6000x4240 pixels */
    /* computed DPI: height : 6000/(30cm/2.54) = 508 ; width: 4240/(21.20/2.54) = 508 */
    ixres = (int)(524.*1.5);
    iyres = (int)(524.*1.5);
    break;
  case 2: /* Fig. */
    /*       printf("DRIVERS FIG enabled -- -- -- --\n"); */
    /* when using Pos driver, the output file is 6000x4240 pixels */
    /* computed DPI: height : 9600/(8inches) = 1200 ; width: 6784/(5.7inches) = 1190 */
    ixres = (int)1200.;
    iyres = (int)1190.;
    break;
  case 3: /* Gif & PPM driver */ /* NOT SURE: may be 72. avery time... */
  default:
    succeed = GetScreenDPI(&ixres,&iyres);
    if(succeed == -1){
      ixres = (int)72.; /* default value*/      
      iyres = (int)72.; /* default value*/
    }
    break;
  }

  DPI[0] = ixres;
  DPI[1] = iyres;

  return 0;
}

Here is the call graph for this function:

char GetDriver

(

void

)

Definition at line 323 of file Xcall.c.

Referenced by scig_erase(), scig_expose(), scig_replay(), scig_resize(), and scig_sel().

{return(DriverName[0]);}

Here is the caller graph for this function:

void GetDriver1	(	char *	str,
		integer *	v2,
		integer *	v3,
		integer *	v4,
		integer *	v5,
		integer *	v6,
		integer *	v7,
		double *	dv1,
		double *	dv2,
		double *	dv3,
		double *	dv4
	)

Definition at line 317 of file Xcall.c.

Referenced by GetDriverName(), GSciString(), scig_2dzoom(), scig_3drot(), scig_driverX11(), scig_erase(), scig_expose(), scig_replay(), scig_replay_hdc(), scig_resize(), scig_toPs(), scig_unzoom(), and xcall_in_word_set().

{
  strcpy(str,DriverName);
}

Here is the caller graph for this function:

int GetDriverId

(

void

)

Definition at line 325 of file Xcall.c.

Referenced by CheckPixelStatus(), drawFigureEntity(), GetDPIFromDriver(), GraySquare(), GraySquare1(), MaybeSetWinhdc(), ReleaseWinHdc(), sciDrawObj(), scig_toPs(), and sciIsExistingFigure().

{ return DriverId;}

Here is the caller graph for this function:

char* getFPF

(

void

)

Definition at line 220 of file Xcall1.c.

References FPF.

Referenced by contourI(), and ContourTrace().

{
  return(FPF);
}

Here is the caller graph for this function:

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

Definition at line 269 of file Xcall.c.

{
  switch (x0[0])
    {
    case 'I':
      strcpy(DriverName,"Int"); /* internal : for Win32 */
      DriverId = 0;
      break;
    case 'G':
      if (x0[1] == 'I') {
          strcpy(DriverName,"GIF");
          DriverId = 3;
          break;
      }
    case 'X':
    case 'W':
      strcpy(DriverName,"X11");
      DriverId = 0;
      break;
    case 'P'  :
      if (x0[1] == 'P') {
        strcpy(DriverName,"PPM");
        DriverId = 3;
        break;
      }
      else {
        strcpy(DriverName,"Pos");
        DriverId = 1;
      }
      break;
    case 'F'  :
      strcpy(DriverName,"Fig");
      DriverId = 2;
      break;
    case 'R'  :
      strcpy(DriverName,"Rec");
      DriverId = 0;
      break;
    default:
      sciprint("\n Wrong driver name I'll use X11");
      strcpy(DriverName,"X11");
      DriverId = 0;
      break;
    }
}

int C2F() xgetg	(	char *	str,
		char *	str1,
		integer *	len,
		integer	lx0,
		integer	lx1
	)

Definition at line 253 of file Xcall1.c.

References FPF, len, SCI_SUBWIN, sciGetAddPlot(), sciGetCurrentFigure(), sciGetFirstTypedSelectedSon(), str, and str1.

Referenced by sci_xget(), and scigerase().

{
  if ( strcmp(str,"fpf") == 0) 
  {
    strncpy(str1,FPF,32);
    *len= strlen(str1);
  }
  else if ( strcmp(str,"auto clear")==0) 
  {
    int autoclear;
    sciPointObj * subwin = sciGetFirstTypedSelectedSon( sciGetCurrentFigure(), SCI_SUBWIN ) ;
    autoclear = !(sciGetAddPlot(subwin));
    if (autoclear == 1) 
    {
      strncpy(str1,"on",2);
      *len=2;
    }
    else 
    {
      strncpy(str1,"off",3);
      *len=3;
    }
  }
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() xsetg	(	char *	str,
		char *	str1,
		integer	lx0,
		integer	lx1
	)

Definition at line 225 of file Xcall1.c.

References FALSE, FPF, SCI_SUBWIN, sciGetCurrentFigure(), sciGetFirstTypedSelectedSon(), sciprint(), sciSetAddPlot(), str, str1, and TRUE.

Referenced by sci_xset().

{
  if ( strcmp(str,"fpf") == 0) 
    {
      strncpy(FPF,str1,32);
    }
  else if ( strcmp(str,"auto clear")==0) 
    {
      sciPointObj * subwin = sciGetFirstTypedSelectedSon(sciGetCurrentFigure(), SCI_SUBWIN);
      if (strcmp(str1,"on")==0 )
      {
        sciSetAddPlot( subwin,FALSE);
      }
      else{
        sciSetAddPlot( subwin,TRUE);
      }
    }
  else if ( strcmp(str,"default")==0)
    {
      FPF[0]='\0';
    }
  else 
    {
      sciprint("xset(arg,<string>): Unrecognized arg: %s\r\n",str);
    }
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---