periWin.h File Reference

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

Go to the source code of this file.

Functions
void C2F()	drawarc ()
void C2F()	fillarcs ()
void C2F()	drawarcs ()
void C2F()	fillpolyline ()
void C2F()	drawaxis ()
void C2F()	cleararea ()
void C2F()	clearwindow ()
void C2F()	xclick ()
void C2F()	xclick_any ()
void C2F()	xgetmouse ()
void C2F()	xend ()
void C2F()	fillarc ()
void C2F()	viderbuff ()
void C2F()	fillrectangle ()
void C2F()	MissileGCget ()
void C2F()	initgraphic ()
void C2F()	drawpolyline ()
void C2F()	drawClippedPolyline ()
void C2F()	fillpolylines ()
void C2F()	drawpolylines ()
void C2F()	drawpolymark ()
void C2F()	setpopupname ()
void C2F()	getFontMaxSize ()
void C2F()	displaynumbers ()
void C2F()	drawrectangle ()
void C2F()	drawrectangles ()
void C2F()	drawsegments ()
void C2F()	xselgraphic ()
void C2F()	MissileGCset ()
void C2F()	SetDriver ()
void C2F()	displaystring ()
void C2F()	boundingbox ()
void C2F()	drawarrows ()
void C2F()	loadfamily ()
void C2F()	queryfamily ()
void C2F()	xinfo ()
void C2F()	setforeground (integer *num, integer *v2, integer *v3, integer *v4)
void C2F()	setbackground (integer *num, integer *v2, integer *v3, integer *v4)
void C2F()	xsetfont (integer *fontid, integer *fontsize, integer *v3, integer *v4)
void C2F()	xgetfont (integer *verbose, integer *font, integer *nargs, double *dummy)
void C2F()	xsetmark (integer *number, integer *size, integer *v3, integer *v4)
void C2F()	xgetmark (integer *verbose, integer *symb, integer *narg, double *dummy)
void C2F()	getwins (integer *Num, integer Ids[], integer *flag)
void	getcolordef (integer *screenc)
void	setcolordef (integer screenc)
int	SwitchWindow (integer *intnum)
void	wininfo (char *fmt,...)
void	deletePoints (void)
int	MaybeSetWinhdc (void)
void	ReleaseWinHdc (void)
void	set_clip_box (integer xxleft, integer xxright, integer yybot, integer yytop)
void	clip_line (integer x1, integer yy1, integer x2, integer y2, integer *x1n, integer *yy1n, integer *x2n, integer *y2n, integer *flag)
int	CheckColormap (int *m)
void	get_r (int i, float *r)
void	get_g (int i, float *g)
void	get_b (int i, float *b)
void C2F()	getwindowdim (integer *verbose, integer *x, integer *narg, double *dummy)
int C2F()	sedeco (int *flag)
int C2F()	store_points (integer n, integer *vx, integer *vy, integer onemore)
int C2F()	AllocVectorStorage (void)
void	SetWinhdc (void)
void	SciMouseCapture (void)
void	SciMouseRelease (void)
void	DeleteSGWin (integer intnum)
void	CPixmapResize1 (void)
void	SciG_Font_Printer (int scale)
void	ResetScilabXgc (void)
void	SciG_Font (void)
void C2F()	DispStringAngle (integer *x0, integer *yy0, char *string, double *angle)

---

Function Documentation

int C2F() AllocVectorStorage

(

void

)

Definition at line 4662 of file periWin.c.

References MALLOC, MESSAGE4, NBPOINTS, and sciprint().

Referenced by initgraphic().

{
  nbpoints = NBPOINTS;
  points = (POINT *) MALLOC( nbpoints * sizeof (POINT)); 
  if ( points == 0) { sciprint(MESSAGE4);return(0);}
  else return(1);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() boundingbox

(

)

int CheckColormap

(

int *

m

)

Definition at line 2532 of file periWin.c.

Referenced by FileInitFromScreenGif(), FileInitFromScreenPos(), FileInitFromScreenXfig(), set_color(), and set_pattern_or_color().

{
  if (  ScilabXgc != (struct BCG *) 0 )
    {
      *m =  ScilabXgc->Numcolors;
      if ( ScilabXgc->CmapFlag  != 1) 
        return 1;
      else 
        return 0;
    }
  else {
    *m=0;
    return(0);}
}

Here is the caller graph for this function:

void C2F() cleararea

(

)

void C2F() clearwindow

(

)

void clip_line	(	integer	x1,
		integer	yy1,
		integer	x2,
		integer	y2,
		integer *	x1n,
		integer *	yy1n,
		integer *	x2n,
		integer *	y2n,
		integer *	flag
	)

Definition at line 4728 of file periWin.c.

Referenced by sciChamp2DRealToPixel().

{
  integer x, y, dx, dy, x_intr[2], y_intr[2], count, pos1, pos2;

  *x1n=x1; *yy1n=yy1; *x2n=x2; *y2n=y2; *flag=4;
  pos1 = clip_point(x1, yy1);
  pos2 = clip_point(x2, y2);
  if (pos1 || pos2) {
    if (pos1 & pos2) { *flag=0;return;}   
    /* segment is totally out. */

    /* Here part of the segment MAy be inside. test the intersection
     * of this segment with the 4 boundaries for hopefully 2 intersections
     * in. If non found segment is totaly out.
     */
    count = 0;
    dx = x2 - x1;
    dy = y2 - yy1;

    /* Find intersections with the x parallel bbox lines: */
    if (dy != 0) {
      x = (int) ((ybot - y2)  * ((double) dx / (double) dy) + x2);
      /* Test for ybot boundary. */
      if (x >= xleft && x <= xright) {
        x_intr[count] = x;
        y_intr[count++] = ybot;
      }
      x = (int) ((ytop - y2) * ((double) dx / (double) dy) + x2); 
      /* Test for ytop boundary. */
      if (x >= xleft && x <= xright) {
        x_intr[count] = x;
        y_intr[count++] = ytop;
      }
    }
    if ( count < 2 ) 
      {
        /* Find intersections with the y parallel bbox lines: */
        if (dx != 0) {
          y = (int) ((xleft - x2) * ((double) dy / (double) dx) + y2);   
          /* Test for xleft boundary. */
          if (y >= ybot && y <= ytop) {
            x_intr[count] = xleft;
            y_intr[count++] = y;
          }
          if ( count < 2 ) 
            {
              y = (int) ((xright - x2) * ((double) dy / (double) dx) + y2);  
              /* Test for xright boundary. */
              if (y >= ybot && y <= ytop) {
                x_intr[count] = xright;
                y_intr[count++] = y;
              }
            }
        }
      }

    if (count == 2) {
      if (pos1 && pos2) {          /* Both were out - update both */
        *x1n = x_intr[0];
        *yy1n = y_intr[0];
        *x2n = x_intr[1];
        *y2n = y_intr[1];
        *flag=3;return;
      }
      else if (pos1) {       /* Only x1/yy1 was out - update only it */
        if (dx * (x2 - x_intr[0]) + dy * (y2 - y_intr[0]) >= 0) {
          *x1n = x_intr[0];
          *yy1n = y_intr[0];
          *flag=1;return;
        }
        else {
          *x1n = x_intr[1];
          *yy1n = y_intr[1];
          *flag=1;return;
        }
      }
      else {             /* Only x2/y2 was out - update only it */
        if (dx * (x_intr[0] - x1) + dy * (y_intr[0] - yy1) >= 0) {
          *x2n = x_intr[0];
          *y2n = y_intr[0];
          *flag=2;return;
        }
        else {
          *x2n = x_intr[1];
          *y2n = y_intr[1];
          *flag=2;return;
        }
      }
    }
    else 
      {
        /* count != 0 */
        *flag=0;return;
      }
  }
}

Here is the caller graph for this function:

void CPixmapResize1

(

void

)

Definition at line 531 of file periWin.c.

Referenced by GPopupResize(), scig_resize(), and setwindowdim().

{
  if ( sciGetPixmapStatus() == 1 )
    sci_pixmap_resize(ScilabXgc,ScilabXgc->CWindowWidth,ScilabXgc->CWindowHeight);
}

Here is the caller graph for this function:

void deletePoints

(

void

)

Definition at line 4653 of file periWin.c.

Referenced by closeGraphicModule().

{
  if( points != NULL )
  {
    FREE( points ) ;
    points = NULL ;
  }
}

Here is the caller graph for this function:

void DeleteSGWin

(

integer

intnum

)

destruction d'une fenetre

No more graphic window ;

fix the new current graphic window

Definition at line 3705 of file periWin.c.

References curwin(), BCG::CurWindow, del_window_scale(), DeleteWindowToList(), get_window_scale(), getFirstWindow(), isWindowListEmpty(), NULL, ResetScilabXgc(), and ScilabXgc.

Referenced by C2F(), Delete(), and SendCountDelete().

{
  int curwin;
  if ( ScilabXgc == NULL ) { return ; }
  curwin = ScilabXgc->CurWindow ;
  DeleteWindowToList( intnum ) ;
  /*XXXX: jpc 2000: I also delete the scale list associated to that window */
  del_window_scale(intnum);
  if ( curwin  == intnum )
    {
      if ( isWindowListEmpty() )
        {
          ScilabXgc = NULL ;
        }
      else
        {
          ScilabXgc = getFirstWindow() ;
          ResetScilabXgc() ;
          get_window_scale(ScilabXgc->CurWindow,NULL);
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() displaynumbers

(

)

void C2F() displaystring

(

)

void C2F() DispStringAngle	(	integer *	x0,
		integer *	yy0,
		char *	string,
		double *	angle
	)

Definition at line 2853 of file periWin.c.

References BCG::Cdrawable, BCG::CurPixmapStatus, BCG::CWindow, font, BCG::FontId, BCG::FontSize, M_PI, ScilabXgc, and XRotDrawString().

Referenced by displaystring().

{

  HFONT hfnt, hfntPrev;
  size_t pcch;
  LOGFONT lf;
  char *p;
  
 memset(&lf, 0, sizeof(LOGFONT));
 strncpy(lf.lfFaceName,(*FontTab)[ScilabXgc->FontId].fname,LF_FACESIZE);

 lf.lfHeight  = - size_n_[ScilabXgc->FontSize]*scale_font_size;
 lf.lfCharSet = DEFAULT_CHARSET;
 if ( (p = strstr((*FontTab)[ScilabXgc->FontId].fname," Italic")) != (LPSTR)NULL ) {
   lf.lfFaceName[ (unsigned int)(p- (*FontTab)[ScilabXgc->FontId].fname) ] = '\0';
   lf.lfItalic = TRUE;
 }
 if ( (p = strstr((*FontTab)[ScilabXgc->FontId].fname," Bold")) != (LPSTR)NULL ) {
   lf.lfFaceName[ (unsigned int)(p- (*FontTab)[ScilabXgc->FontId].fname) ] = '\0';
   lf.lfWeight = FW_BOLD;
 }
   
 SetBkMode(hdc, TRANSPARENT); 
 
 /* hfnt = CreateFontIndirect((LOGFONT FAR *)&lf);*/
 
 lf.lfEscapement = (int) (-(*angle)*10);

 hfnt = CreateFontIndirect((LOGFONT FAR *)&lf); 
 hfntPrev = SelectObject(hdc, hfnt);
        
 pcch = strlen(string);

 TextOut(hdc, *x0, *yy0, string, pcch); 
 SelectObject(hdc, hfntPrev); 

 DeleteObject(hfnt); 
 
 // Reset the background mode to its default. 
 
 SetBkMode(hdc, OPAQUE); 
 
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() drawarc

(

)

void C2F() drawarcs

(

)

void C2F() drawarrows

(

)

void C2F() drawaxis

(

)

void C2F() drawClippedPolyline

(

)

Referenced by drawpolylines(), fillpolylines(), and xcall_in_word_set().

Here is the caller graph for this function:

void C2F() drawpolyline

(

)

void C2F() drawpolylines

(

)

void C2F() drawpolymark

(

)

void C2F() drawrectangle

(

)

void C2F() drawrectangles

(

)

void C2F() drawsegments

(

)

void C2F() fillarc

(

)

void C2F() fillarcs

(

)

void C2F() fillpolyline

(

)

void C2F() fillpolylines

(

)

void C2F() fillrectangle

(

)

void get_b	(	int	i,
		float *	b
	)

Definition at line 2562 of file periWin.c.

Referenced by FileInitFromScreenGif(), FileInitFromScreenPos(), and FileInitFromScreenXfig().

{
  *b = ScilabXgc->Blue[i];
}

Here is the caller graph for this function:

void get_g	(	int	i,
		float *	g
	)

Definition at line 2555 of file periWin.c.

Referenced by FileInitFromScreenGif(), FileInitFromScreenPos(), and FileInitFromScreenXfig().

{
  *g = ScilabXgc->Green[i];
}

Here is the caller graph for this function:

void get_r	(	int	i,
		float *	r
	)

Definition at line 2548 of file periWin.c.

Referenced by FileInitFromScreenGif(), FileInitFromScreenPos(), and FileInitFromScreenXfig().

{
  *r = ScilabXgc->Red[i];
}

Here is the caller graph for this function:

void getcolordef

(

integer *

screenc

)

Definition at line 4090 of file periWin.c.

Referenced by create_color_panel(), InitMissileXgc(), InitScilabGCGif(), InitScilabGCPos(), setwindowdimGif(), and xg2psofig().

{
  *screenc= screencolor;
}

Here is the caller graph for this function:

void C2F() getFontMaxSize

(

)

Referenced by xcall_in_word_set().

Here is the caller graph for this function:

void C2F() getwindowdim	(	integer *	verbose,
		integer *	x,
		integer *	narg,
		double *	dummy
	)

To get the drawbox window size : used by periGif

Definition at line 1037 of file periWin.c.

Referenced by fill_grid_rectangles(), fill_grid_rectangles1(), initgraphicfromscreenGif(), and initgraphicGif().

{     
  *narg = 2;
  /* on renvoie la taille de la fenetre virtuelle */
  /* windows devrait s'occupper de tout afficher correctement */
  x[0]= ScilabXgc->CWindowWidth;
  x[1]= ScilabXgc->CWindowHeight;
  if (*verbose == 1) 
    sciprint("\n CWindow dim :%d,%d\r\n",(int) x[0],(int) x[1]);
} 

Here is the caller graph for this function:

void C2F() getwins	(	integer *	Num,
		integer	Ids[],
		integer *	flag
	)

void C2F() initgraphic

(

)

void C2F() loadfamily

(

)

int MaybeSetWinhdc

(

void

)

Definition at line 324 of file periWin.c.

References BCG::CWindow, GetDriverId(), hdc, sciGetPixmapStatus(), ScilabXgc, and TryToGetDC().

Referenced by drawArcEntity(), drawAxesEntity(), drawFecEntity(), drawFigureEntity(), drawGrayplotEntity(), drawLegendEntity(), DrawMerge3d(), drawPolylineEntity(), drawRectangleEntity(), drawSegsEntity(), drawSubWinEntity(), drawSurfaceEntity(), drawTextEntity(), fill_grid_rectangles(), and fill_grid_rectangles1().

{
  int DiD = GetDriverId();      /* F.Leray 26.07.04 */
  if(  DiD != 0)
    return 0;

  if ( hdc == (HDC) 0)  
    {
      if ( sciGetPixmapStatus() == 1) 
        {
          hdc   = ScilabXgc->hdcCompat;

          /* 09.02.04 et 16.02.04 Leray*/
          /* IL FAUDRA RETOURNER UNE VALEUR MAIS LAQUELLE ???*/
          // return( ?? );
          // je mets un return(1) pour le moment pour rester cohérent
          // avec SetWinhdc (cf. ci-dessus).
          return(1);
        }
      else
        {
          hdc=TryToGetDC(ScilabXgc->CWindow);
          return(1);
        }
    }
  else 
    {
      return(0);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() MissileGCget

(

)

void C2F() MissileGCset

(

)

void C2F() queryfamily

(

)

Referenced by xcall_in_word_set().

Here is the caller graph for this function:

void ReleaseWinHdc

(

void

)

Definition at line 356 of file periWin.c.

References BCG::CWindow, GetDriverId(), hdc, sciGetPixmapStatus(), and ScilabXgc.

Referenced by dr(), drawArcEntity(), drawAxesEntity(), drawFecEntity(), drawFigureEntity(), drawGrayplotEntity(), drawLegendEntity(), DrawMerge3d(), drawPolylineEntity(), drawRectangleEntity(), drawSegsEntity(), drawSubWinEntity(), drawSurfaceEntity(), drawTextEntity(), fill_grid_rectangles(), fill_grid_rectangles1(), I3dRotation(), SetGHdc(), SwitchWindow(), and zoom_get_rectangle().

{
  int DiD = GetDriverId();      /* F.Leray 26.07.04 */
  if(  DiD != 0)
    { /* Nothing to do */
    }
  else
    {
      if ( ScilabXgc != (struct BCG *) 0 && ScilabXgc->CWindow != (HWND) 0)
        {
          if ( sciGetPixmapStatus() != 1) 
            ReleaseDC(ScilabXgc->CWindow,hdc);
          hdc = (HDC) 0;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void ResetScilabXgc

(

void

)

Utilise le ScilabXgc courant pour reinitialiser le gc XWindow cela est utilis'e quand on change de fenetre graphique

wininfo("Reset Scilab Xgc avec %d %d\r\n",i,j);

Definition at line 4103 of file periWin.c.

References C2F, BCG::ClipRegionSet, BCG::CurClipRegion, BCG::CurColor, BCG::CurColorStatus, BCG::CurDashStyle, BCG::CurDrawFunction, BCG::CurHardSymb, BCG::CurHardSymbSize, BCG::CurLineWidth, BCG::CurPattern, BCG::CurVectorStyle, DefaultForeground, BCG::FontId, BCG::FontSize, i, j, BCG::NumBackground, BCG::NumForeground, BCG::NumHidden3d, PI0, ScilabXgc, setabsourel(), setalufunction1(), setbackground(), setclip(), setdash(), setforeground(), sethidden3d(), setpattern(), setthickness(), unsetclip(), xsetfont(), and xsetmark().

Referenced by DeleteSGWin(), scig_replay_hdc(), setpixmapOn(), and SwitchWindow().

{ 
  integer i,j, clip[4];
  i= ScilabXgc->FontId;
  j= ScilabXgc->FontSize;
  C2F(xsetfont)(&i,&j,PI0,PI0);
  i= ScilabXgc->CurHardSymb;
  j= ScilabXgc->CurHardSymbSize;
  C2F(xsetmark)(&i,&j,PI0,PI0);
  
  i= ScilabXgc->CurLineWidth;
  C2F(setthickness)(&i,PI0,PI0,PI0);
  
  i= ScilabXgc->CurVectorStyle;
  C2F(setabsourel)(&i,PI0,PI0,PI0);
  
  i= ScilabXgc->CurDrawFunction;
  C2F(setalufunction1)(&i,PI0,PI0,PI0);
  
  if (ScilabXgc->ClipRegionSet == 1) 
    {
      for ( i= 0 ; i < 4; i++) clip[i]=ScilabXgc->CurClipRegion[i];
      C2F(setclip)(clip,clip+1,clip+2,clip+3);
    }
  else
    C2F(unsetclip)(PI0,PI0,PI0,PI0);

  if (ScilabXgc->CurColorStatus == 0) 
    {
      /* remise des couleurs a vide */
      ScilabXgc->CurColorStatus = 1;
      C2F(setpattern)((i=DefaultForeground,&i),PI0,PI0,PI0);
      /* passage en n&b */
      ScilabXgc->CurColorStatus = 0;
      i= ScilabXgc->CurPattern + 1;
      C2F(setpattern)(&i,PI0,PI0,PI0);
      i= ScilabXgc->CurDashStyle + 1;
      C2F(setdash)(&i,PI0,PI0,PI0);
      i= ScilabXgc->NumHidden3d+1;
      C2F(sethidden3d)(&i,PI0,PI0,PI0);
    }
  else 
    {
      /* remise a zero des patterns et dash */
      /* remise des couleurs a vide */
      ScilabXgc->CurColorStatus = 0;
      C2F(setpattern)((i=1,&i),PI0,PI0,PI0);
      C2F(setdash)((i=1,&i),PI0,PI0,PI0);
      /* passage en couleur  */
      ScilabXgc->CurColorStatus = 1;
      i= ScilabXgc->CurColor + 1;
      C2F(setpattern)(&i,PI0,PI0,PI0);
      i= ScilabXgc->NumBackground+1;
      C2F(setbackground)(&i,PI0,PI0,PI0);
      i= ScilabXgc->NumForeground+1;
      C2F(setforeground)(&i,PI0,PI0,PI0);
      i= ScilabXgc->NumHidden3d+1;
      C2F(sethidden3d)(&i,PI0,PI0,PI0);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void SciG_Font

(

void

)

Definition at line 4512 of file periWin.c.

References FontInfoTab, FontTab, ListOffset, scale_font_size, and SymbOffset.

Referenced by scig_replay_hdc().

{
  FontTab = &FontInfoTab;
  SymbOffset = &ListOffset;
  scale_font_size = 1; 
}

Here is the caller graph for this function:

void SciG_Font_Printer

(

int

scale

)

Definition at line 4501 of file periWin.c.

References CleanFonts(), FontInfoTabPrinter, FontTab, ListOffsetPrint, LoadFonts(), scale_font_size, and SymbOffset.

Referenced by scig_replay_hdc().

{
  static int last_scale= -1;
  FontTab = &FontInfoTabPrinter;
  SymbOffset = &ListOffsetPrint;
  if ( last_scale != -1 && last_scale != scale ) 
    CleanFonts();
  scale_font_size = last_scale = scale;
  LoadFonts();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void SciMouseCapture

(

void

)

Definition at line 898 of file periWin.c.

References BCG::CWindow, and ScilabXgc.

Referenced by I3dRotation(), and zoom_get_rectangle().

{
  SetCapture(ScilabXgc->CWindow);
}

Here is the caller graph for this function:

void SciMouseRelease

(

void

)

Definition at line 903 of file periWin.c.

Referenced by I3dRotation(), and zoom_get_rectangle().

{
  ReleaseCapture();
}

Here is the caller graph for this function:

int C2F() sedeco

(

int *

flag

)

Definition at line 2024 of file periWin.c.

Referenced by sci_xset().

{
  set_default_colormap_flag = *flag;
  return(0);
}

Here is the caller graph for this function:

void set_clip_box	(	integer	xxleft,
		integer	xxright,
		integer	yybot,
		integer	yytop
	)

Definition at line 4711 of file periWin.c.

Referenced by sciChamp2DRealToPixel().

{
  xleft=xxleft;
  xright=xxright;
  ybot=yybot;
  ytop=yytop;
}

Here is the caller graph for this function:

void C2F() setbackground	(	integer *	num,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

set and get the number of the background or foreground

A finir XXXX if (ScilabXgc->Cdrawable != (Drawable) ScilabXgc->CWindow ) { XSetWindowBackground(dpy, ScilabXgc->CWindow,px); }

Definition at line 2424 of file periWin.c.

References C2F, COLORREF, BCG::Colors, BCG::CurColorStatus, BCG::CurDrawFunction, DefaultBackground, Max, Min, NULL, BCG::NumBackground, BCG::Numcolors, PI0, ScilabXgc, and setalufunction1().

Referenced by InitMissileXgc(), pal_setcolormap(), ResetScilabXgc(), and setcolormapg().

{
  if (ScilabXgc->CurColorStatus == 1)
    {
      COLORREF px;
      ScilabXgc->NumBackground = Max(0,Min(*num - 1,ScilabXgc->Numcolors + 1));
      C2F(setalufunction1)(&ScilabXgc->CurDrawFunction,PI0,PI0,PI0);
      px = (ScilabXgc->Colors == NULL) ? DefaultBackground :  ScilabXgc->Colors[ScilabXgc->NumBackground];

    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void setcolordef

(

integer

screenc

)

Definition at line 4095 of file periWin.c.

Referenced by initColors().

{
  screencolor = screenc;
}

Here is the caller graph for this function:

void C2F() SetDriver

(

)

void C2F() setforeground	(	integer *	num,
		integer *	v2,
		integer *	v3,
		integer *	v4
	)

set and get the number of the background or foreground

XX inutile

Definition at line 2462 of file periWin.c.

References C2F, COLORREF, BCG::Colors, BCG::CurColorStatus, BCG::CurDrawFunction, DefaultForeground, Max, Min, NULL, BCG::Numcolors, BCG::NumForeground, PI0, ScilabXgc, and setalufunction1().

Referenced by InitMissileXgc(), pal_setcolormap(), ResetScilabXgc(), and setcolormapg().

{
  if (ScilabXgc->CurColorStatus == 1)
    {
      COLORREF px;
      ScilabXgc->NumForeground = Max(0,Min(*num - 1,ScilabXgc->Numcolors + 1));
      C2F(setalufunction1)(&ScilabXgc->CurDrawFunction,PI0,PI0,PI0);
      px = (ScilabXgc->Colors == NULL) ? DefaultForeground 
        :  ScilabXgc->Colors[ScilabXgc->NumForeground];
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() setpopupname

(

)

Referenced by xcall_in_word_set().

Here is the caller graph for this function:

void SetWinhdc

(

void

)

Definition at line 313 of file periWin.c.

References BCG::CWindow, hdc, sciGetPixmapStatus(), ScilabXgc, and TryToGetDC().

Referenced by dr(), I3dRotation(), initgraphic(), SwitchWindow(), and zoom_get_rectangle().

{
  if ( ScilabXgc != (struct BCG *) 0 && ScilabXgc->CWindow != (HWND) 0)
    {
      if ( sciGetPixmapStatus() == 1) 
        hdc = ScilabXgc->hdcCompat;
      else
        hdc=TryToGetDC(ScilabXgc->CWindow);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() store_points	(	integer	n,
		integer *	vx,
		integer *	vy,
		integer	onemore
	)

Definition at line 4616 of file periWin.c.

Referenced by drawpolyline(), drawpolymark(), and fillpolyline().

{ 
  integer i,n1;
  if ( onemore == 1) n1=n+1;
  else n1=n;
  if (ReallocVector(n1) == 1)
    {
      for (i = 0; i < n; i++){
        points[i].x = INT_2_16B( vx[i] ) ;
        points[i].y = INT_2_16B( vy[i] ) ;
      }
      if (onemore == 1) {
        points[n].x=(short) points[0].x;
        points[n].y=(short) points[0].y;
      }
      return(1);
    }
  else return(0);
}

Here is the caller graph for this function:

int SwitchWindow

(

integer *

intnum

)

Definition at line 1223 of file periWin.c.

References C2F, get_window_scale(), getWindowXgcNumber(), ierr, initgraphic(), NULL, PD0, PI0, ReleaseWinHdc(), ResetScilabXgc(), ScilabXgc, and SetWinhdc().

Referenced by scig_replay_hdc(), scig_toPs(), setcurwin(), and xset_curwin().

{
  struct BCG *SXgc;
  integer ierr;
  SXgc = getWindowXgcNumber(*intnum);
  if ( SXgc != (struct BCG *) 0 ) 
    {
      ReleaseWinHdc();
      ScilabXgc = SXgc;
      SetWinhdc();
      ResetScilabXgc ();
      get_window_scale(*intnum,NULL);
    }
  else 
    {
      C2F(initgraphic)("",intnum,&ierr,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
    }
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() viderbuff

(

)

void wininfo	(	char *	fmt,
			...
	)

Definition at line 4008 of file periWin.c.

Referenced by Delete(), drawSubWinEntity(), I3dRotation(), SavePs(), sciInitIs3d(), SendGraphMacro(), set_rotation_angles_property(), and setwresize().

{
  int count;
  char buf[MAXPRINTF];
  va_list args;
  va_start(args,fmt);
  count = vsprintf(buf,fmt,args);
  if ( ScilabXgc != (struct BCG *) 0 && ScilabXgc->Statusbar != (HWND) 0)
    {
      (BOOL)SendMessage(ScilabXgc->Statusbar, SB_SETTEXT, (WPARAM) 0, 
                        (LPARAM) (LPSTR) buf);
    }
}

Here is the caller graph for this function:

void C2F() xclick

(

)

void C2F() xclick_any

(

)

Referenced by xcall_in_word_set().

Here is the caller graph for this function:

void C2F() xend

(

)

void C2F() xgetfont	(	integer *	verbose,
		integer *	font,
		integer *	nargs,
		double *	dummy
	)

Definition at line 4325 of file periWin.c.

References BCG::FontId, BCG::FontSize, FontTab, ScilabXgc, sciprint(), and size_.

{
  *nargs=2;
  font[0]= ScilabXgc->FontId ;
  font[1] =ScilabXgc->FontSize ;
  if (*verbose == 1) 
    {
      sciprint("\r\nFontId : %d ", ScilabXgc->FontId );
      sciprint("--> %s at size %s pts\r\n",
               (*FontTab)[ScilabXgc->FontId].fname,
               size_[ScilabXgc->FontSize]);
    }
}

Here is the call graph for this function:

void C2F() xgetmark	(	integer *	verbose,
		integer *	symb,
		integer *	narg,
		double *	dummy
	)

Definition at line 4354 of file periWin.c.

References BCG::CurHardSymb, BCG::CurHardSymbSize, ScilabXgc, sciprint(), and size_.

Referenced by drawpolylines().

{
  *narg =2 ;
  symb[0] = ScilabXgc->CurHardSymb ;
  symb[1] = ScilabXgc->CurHardSymbSize ;
  if (*verbose == 1) 
    {
      sciprint("\nMark : %d ",ScilabXgc->CurHardSymb);
      sciprint("at size %s pts\r\n", size_[ScilabXgc->CurHardSymbSize]);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() xgetmouse

(

)

void C2F() xinfo

(

)

void C2F() xselgraphic

(

)

void C2F() xsetfont	(	integer *	fontid,
		integer *	fontsize,
		integer *	v3,
		integer *	v4
	)

Definition at line 4292 of file periWin.c.

References FontAlias::alias, C2F, BCG::FontId, FONTMAXSIZE, FONTNUMBER, BCG::FontSize, FontTab, fonttab, hdc, i, loadfamily(), Max, Min, ok, PD0, PI0, ScilabXgc, sciprint(), and Scistring().

Referenced by drawpolymark(), InitMissileXgc(), and ResetScilabXgc().

{ 
  integer i,fsiz;
  i = Min(FONTNUMBER-1,Max(*fontid,0));
  fsiz = Min(FONTMAXSIZE-1,Max(*fontsize,0));
  if ( (*FontTab)[i].ok !=1 )
    { 
      // if (i != FONTNUMBER-1 ) F.Leray test here 26.02.04
      if (i != FONTNUMBER )
        {
          C2F(loadfamily)(fonttab[i].alias,&i,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
        }
      else 
        {
          sciprint(" The Font Id %d is not affected \r\n",(int)i);
          Scistring(" use xlfont to set it \n");
          return;
        }
    }
  ScilabXgc->FontId = i;
  ScilabXgc->FontSize = fsiz;
  SelectFont(hdc, (*FontTab)[i].hf[fsiz]);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void C2F() xsetmark	(	integer *	number,
		integer *	size,
		integer *	v3,
		integer *	v4
	)

Definition at line 4343 of file periWin.c.

References BCG::CurHardSymb, BCG::CurHardSymbSize, FONTMAXSIZE, Max, Min, ScilabXgc, and SYMBOLNUMBER.

Referenced by drawpolylines(), InitMissileXgc(), and ResetScilabXgc().

{ 
  ScilabXgc->CurHardSymb = Max(Min(SYMBOLNUMBER-1,*number),0);
  ScilabXgc->CurHardSymbSize = Max(Min(FONTMAXSIZE-1,*size),0);
}

Here is the caller graph for this function:

---