xs2file.c File Reference

#include "xs2file.h"
#include "stack-c.h"
#include "Xcall1.h"
#include "GetProperty.h"
#include "SetProperty.h"
#include "periScreen.h"
#include "graphicSession.h"
#include "DrawObjects.h"
#include "ColorMapManagement.h"
#include "MALLOC.h"
#include "CurrentObjectsManagement.h"

Include dependency graph for xs2file.c:

Go to the source code of this file.

Functions
int	xs2file (char *fname, char *dr, unsigned long fname_len, unsigned long dr_len)
int	scig_toPs (integer win_num, integer colored, char *bufname, char *driver)
int C2F()	xg2psofig (char *fname, integer *len, integer *iwin, integer *color, char *driver, long int l1, long int l2)

---

Function Documentation

int scig_toPs	(	integer	win_num,
		integer	colored,
		char *	bufname,
		char *	driver
	)

send recorded graphics to file bufname in ``driver'' syntax ( Pos or Fig )

Parameters:

	win_num	the number of the window,
	colored	1 if color is wanted
[in]	bufname	string the name of the file
[in]	driver	driver for code generation

Definition at line 47 of file xs2file.c.

References C2F, closeGraphicSession(), convertColorMap2BW(), cur, dr(), FREE, GetDriver1(), GetDriverId(), ierr, isGraphicSessionOpened(), L, MALLOC, na, name, NULL, openGraphicSession(), PD0, PI0, sciDrawObj(), sciGetBackground(), sciGetColormap(), sciGetCurrentFigure(), sciGetNumColors(), sciSetColormap(), sciSetCurrentFigure(), and SwitchWindow().

Referenced by Print(), PrintPs(), SavePs(), and xg2psofig().

{
  char name[4];
  integer ierr;
  integer verb=0,cur,na ;
  int save_xinitxend_flag = isGraphicSessionOpened();
  sciPointObj * curFig = sciGetCurrentFigure ();
  integer bg ;
  double * curColorMap = NULL ;
  double * bwColorMap  = NULL ; /* allocated if black and white needed */
  int colorMapSize = sciGetNumColors( curFig ) ;

  ierr = 0;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,5L,7L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,5L,7L);

  if( curFig == (sciPointObj *) NULL )
  {
    Scierror(999,"No current graphic window %d found for exporting to %s\r\n",win_num,driver);
    C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    /* to force a reset in the graphic scales for the graphic window number cur */
    if(GetDriverId() == 1) { SwitchWindow(&cur); }
    return ierr;
  }

  C2F(dr)("xget","background",&verb,&bg,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,5L,11L);
  /* Rajout F.Leray 06.04.04 */
  bg = sciGetBackground(curFig);
  C2F(dr)("xsetdr",driver,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  /* xinit from screen (for the colormap definition) */
  C2F(dr)("xinit2",bufname,&win_num,&ierr,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  if (ierr != 0)
  {
    C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    /* to force a reset in the graphic scales */
    SwitchWindow(&cur);
    return ierr ;
  }

  sciSetCurrentFigure(curFig);

  if ( colored == 0 )
  {
    /* change the colormap to a bw one */
    curColorMap = MALLOC( 3 * colorMapSize * sizeof(double) ) ;
    bwColorMap  = MALLOC( 3 * colorMapSize * sizeof(double) ) ;
    sciGetColormap( curFig, curColorMap ) ;
    convertColorMap2BW( bwColorMap, curColorMap, colorMapSize ) ;
    sciSetColormap( curFig, bwColorMap, colorMapSize, 3 ) ;
    FREE( bwColorMap ) ;
    bwColorMap = NULL ;
  }

  C2F(dr)("xset","background",&bg,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,5L,7L);
  closeGraphicSession() ; /* we force to draw */
  sciDrawObj(curFig);


  C2F(dr)("xend","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  if ( save_xinitxend_flag )
  {
    openGraphicSession() ;
  }
  else
  {
    closeGraphicSession() ;
  }
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  if ( colored == 0 )
  {
    sciSetColormap( curFig, curColorMap, colorMapSize, 3 ) ;
    FREE( curColorMap ) ;
    curColorMap = NULL ;
  }
  

  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  /* to force a reset in the graphic scales */
  SwitchWindow(&cur);
  return ierr;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() xg2psofig	(	char *	fname,
		integer *	len,
		integer *	iwin,
		integer *	color,
		char *	driver,
		long int	l1,
		long int	l2
	)

Definition at line 134 of file xs2file.c.

References fname, getcolordef(), and scig_toPs().

Referenced by xs2file().

{
  int sc;
  if ( *color == -1 ) 
    getcolordef(&sc);
  else 
    sc= *color;
  /*scig_toPs(*iwin,sc,fname,driver);*/
  return scig_toPs(*iwin,sc,fname,driver); /* why twice ???? */
}

Here is the call graph for this function:

Here is the caller graph for this function:

int xs2file	(	char *	fname,
		char *	dr,
		unsigned long	fname_len,
		unsigned long	dr_len
	)

Generic function to create either ps, fig, gif or ppm files.

Parameters:

[in]	fname	name of the routine (ie xs2ps, xs2fig,...)
[in]	fname_len	length of fname
[in]	dr	specify the file type. Must be oen of the following driver names "Pos", "Fig", "GIF" or "PPM".
	in@	dr_len length of the dr string (without apparently.

Returns:

0 if success, -1 otherwise

Definition at line 23 of file xs2file.c.

References bsiz, C2F, CheckRhs, CheckScalar, cstk, flagx, GetRhsVar, LhsVar, m1, m2, n1, n2, Rhs, stk, and xg2psofig().

Referenced by sci_xg2ps(), sci_xs2fig(), sci_xs2gif(), sci_xs2ppm(), and sci_xs2ps().

{
  integer m1,n1,l1,m2,n2,l2,m3,n3,l3,flagx = -1,iwin;
  CheckRhs(2,3);

  /* the window number */ 
  GetRhsVar(1,"d",&m1,&n1,&l1) ;
  CheckScalar(1,m1,n1) ;
  iwin = (integer) *stk(l1) ;
  /* the file name */ 
  GetRhsVar(2,"c",&m2,&n2,&l2);
  /* color or n & b */ 
  if ( Rhs >= 3 )
  {
    GetRhsVar(3,"d",&m3,&n3,&l3) ;
    CheckScalar(3,m3,n3) ;
    flagx = (integer) *stk(l3) ;
  }
  /* nouveau graphique ?????*/
  C2F(xg2psofig)(cstk(l2),&m2,&iwin,&flagx,dr,bsiz,dr_len);
  LhsVar(1)=0;
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---