Still cleaning.
Jean-baptiste Silvy [Fri, 26 Sep 2008 08:34:45 +0000 (08:34 +0000)]
58 files changed:
scilab/modules/graphics/Makefile.am
scilab/modules/graphics/graphics.vcproj
scilab/modules/graphics/includes/BasicAlgos.h
scilab/modules/graphics/includes/BuildObjects.h
scilab/modules/graphics/includes/Champ.h
scilab/modules/graphics/includes/Events.h [deleted file]
scilab/modules/graphics/includes/Format.h
scilab/modules/graphics/includes/GetProperty.h
scilab/modules/graphics/includes/Interaction.h
scilab/modules/graphics/includes/ObjectStructure.h
scilab/modules/graphics/includes/Plo3d.h [deleted file]
scilab/modules/graphics/includes/SetProperty.h
scilab/modules/graphics/includes/color.h [deleted file]
scilab/modules/graphics/includes/graphicSession.h [deleted file]
scilab/modules/graphics/includes/math_graphics.h
scilab/modules/graphics/includes/sciCall.h
scilab/modules/graphics/sci_gateway/c/sci_plot3d.c
scilab/modules/graphics/sci_gateway/c/sci_xrect.c
scilab/modules/graphics/sci_gateway/c/sci_xrects.c
scilab/modules/graphics/src/c/BasicAlgos.c
scilab/modules/graphics/src/c/BuildObjects.c
scilab/modules/graphics/src/c/Champ.c
scilab/modules/graphics/src/c/CloneObjects.c
scilab/modules/graphics/src/c/ColorMapManagement.c
scilab/modules/graphics/src/c/ColorMapManagement.h
scilab/modules/graphics/src/c/Contour.c
scilab/modules/graphics/src/c/DrawObjects.c
scilab/modules/graphics/src/c/Events.c [deleted file]
scilab/modules/graphics/src/c/Format.c
scilab/modules/graphics/src/c/GetProperty.c
scilab/modules/graphics/src/c/InitObjects.c
scilab/modules/graphics/src/c/Interaction.c
scilab/modules/graphics/src/c/Plo2dn.c
scilab/modules/graphics/src/c/Plo3d.c [deleted file]
scilab/modules/graphics/src/c/SetProperty.c
scilab/modules/graphics/src/c/deletePoints.c [deleted file]
scilab/modules/graphics/src/c/deletePoints.h [deleted file]
scilab/modules/graphics/src/c/fill_grid_rectangles.c [deleted file]
scilab/modules/graphics/src/c/fill_grid_rectangles.h [deleted file]
scilab/modules/graphics/src/c/getHandleProperty/get_pixel_drawing_mode_property.c
scilab/modules/graphics/src/c/get_rgb.c [deleted file]
scilab/modules/graphics/src/c/get_rgb.h [deleted file]
scilab/modules/graphics/src/c/getcolordef.c [deleted file]
scilab/modules/graphics/src/c/getcolordef.h [deleted file]
scilab/modules/graphics/src/c/getwindowdim.c [deleted file]
scilab/modules/graphics/src/c/getwindowdim.h [deleted file]
scilab/modules/graphics/src/c/graphicModuleLoad.c
scilab/modules/graphics/src/c/graphicSession.c [deleted file]
scilab/modules/graphics/src/c/math_graphics.c
scilab/modules/graphics/src/c/nues1.c [deleted file]
scilab/modules/graphics/src/c/sciCall.c
scilab/modules/graphics/src/nographics/nographics.c
scilab/modules/renderer/src/cpp/DrawingBridge.cpp
scilab/modules/renderer/src/cpp/figureDrawing/ConcreteDrawableFigure.cpp
scilab/modules/renderer/src/cpp/figureDrawing/DrawableFigure.cpp
scilab/modules/renderer/src/cpp/figureDrawing/DrawableFigure.h
scilab/modules/renderer/src/cpp/figureDrawing/FigureScilabCall.cpp
scilab/modules/scicos_blocks/src/c/scoWindowScope.c

index 8c306e8..0e6f6dd 100644 (file)
@@ -17,7 +17,6 @@ if GUI
 
 GRAPHICS_C_SOURCES = src/c/GetCommandArg.c \
 src/c/WindowList.c \
-src/c/Events.c \
 src/c/getHandleProperty/get_figure_position_property.c \
 src/c/getHandleProperty/get_figure_size_property.c \
 src/c/getHandleProperty/get_visible_property.c \
@@ -285,14 +284,11 @@ src/c/getHandleProperty/set_links_property.c \
 src/c/getHandleProperty/set_legend_location_property.c \
 src/c/getHandleProperty/set_filled_property.c \
 src/c/DefaultCommandArg.c \
-src/c/graphicSession.c \
 src/c/Axes.c \
 src/c/sciMatrix.c \
 src/c/DrawObjects.c \
-src/c/Plo3d.c \
 src/c/GetProperty.c \
 src/c/Contour.c \
-src/c/nues1.c \
 src/c/SetProperty.c \
 src/c/BasicAlgos.c \
 src/c/BuildObjects.c \
@@ -316,11 +312,6 @@ src/c/axesScale.c \
 src/c/TerminateGraphics.c \
 src/c/CurrentObjectsManagement.c \
 src/c/ObjectSelection.c \
-src/c/deletePoints.c \
-src/c/fill_grid_rectangles.c \
-src/c/get_rgb.c \
-src/c/getcolordef.c \
-src/c/getwindowdim.c \
 src/c/periEmpty.c\
 src/c/scitokenize.c
 
@@ -444,13 +435,11 @@ libscigraphics_la_include_HEADERS = includes/sci_xdel.h \
 includes/sci_winsid.h \
 includes/sci_addcb.h \
 includes/sci_grayplot.h \
-includes/Events.h \
 includes/sci_xlfont.h \
 includes/GetCommandArg.h \
 includes/sci_xgrid.h \
 includes/sci_geom3d.h \
 includes/DefaultCommandArg.h \
-includes/graphicSession.h \
 includes/sci_xgraduate.h \
 includes/sci_unzoom.h \
 includes/sci_xsegs.h \
@@ -465,9 +454,7 @@ includes/sci_show_window.h \
 includes/sci_param3d1.h \
 includes/graphicModuleLoad.h \
 includes/sci_matplot.h \
-includes/color.h \
 includes/sci_drawaxis.h \
-includes/Plo3d.h \
 includes/sci_xrect.h \
 includes/sci_plot2d1.h \
 includes/GetProperty.h \
index e98ad6d..efd31cc 100644 (file)
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\deletePoints.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\DestroyObjects.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\Events.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\FeC.c"
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\fill_grid_rectangles.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\Format.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\get_rgb.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\getHandleProperty\get_rotation_angles_property.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\getcolordef.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\GetCommandArg.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\getwindowdim.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\graphicModuleLoad.c"
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\graphicSession.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\Gray.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\nues1.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\ObjectSelection.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\Plo3d.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\sci_gateway\c\sci_addcb.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\color.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\ColorMapManagement.h"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\Events.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\Fec.h"
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\fill_grid_rectangles.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\includes\Format.h"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\src\c\get_rgb.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\src\c\getHandleProperty\get_ticks_utils.h"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\graphicSession.h"
-                               >
-                       </File>
-                       <File
-                               RelativePath=".\src\c\Gray.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\includes\GrayPlot.h"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\Plo3d.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\includes\PloEch.h"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\w_rottext.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\includes\WindowList.h"
                                >
                        </File>
                        <File
-                               RelativePath=".\includes\xs2file.h"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\includes\XsetXgetParameters.h"
                                >
                        </File>
index 2ef210d..a8cf117 100644 (file)
  */
 double sciFindStPosMin( double x[], int n ) ;
 
-void MaxiInd( double vect[], int n, int * ind, double maxi ) ;
-
-/**
- *     convertion d'entier vers double
- *     d et s peuvent en fait pointer sur le meme tableau
- *     car la recopie est fait de n,1,-1
- *      implicit undefined (a-z)
- */
-int C2F(entier2d)( int * n, double * dx,int * s ) ;
 
 /**
  * check the strict monotony of a vector
index 5cc6488..a0c9208 100644 (file)
@@ -73,9 +73,8 @@ sciPointObj *ConstructArc (sciPointObj * pparentsubwin, double x, double y,
                                  int *foreground, int *background, BOOL isfilled, BOOL isline);
 
 sciPointObj *ConstructRectangle (sciPointObj * pparentsubwin, double x, double y,
-                                       double height, double width, double horzcurvature,
-                                       double vertcurvature,  int *foreground, int *background,
-                                       int isfilled, int isline, int str, BOOL flagstring);
+                                       double height, double width,  int *foreground, int *background,
+                                       int isfilled, int isline);
 
 sciPointObj *ConstructSurface (sciPointObj * pparentsubwin, sciTypeOf3D typeof3d, 
                                      double * pvecx, double * pvecy, double * pvecz,
index 1a26e92..f52320b 100644 (file)
@@ -24,9 +24,4 @@ void champg(char *name, int colored, double *x, double *y, double *fx, double *f
             int *n2, char *strflag, double *brect, double *arfact, int lstr) ;
 
 
-
-double computeGridMinGap( double gridX[], double gridY[], int nbRow, int nbCol ) ;
-
-double getLongestVector( double vectX[], double vectY[], int nbRow, int nbCol, double scx, double scy ) ;
-
 #endif
diff --git a/scilab/modules/graphics/includes/Events.h b/scilab/modules/graphics/includes/Events.h
deleted file mode 100644 (file)
index f2264e9..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2001 - ENPC - Jean-Philipe Chancelier
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-
-#ifndef _EVENTS_H_
-#define _EVENTS_H_
-
-#define SCI_EVENT_HANDLER_NAME_LENGTH 25
-
-typedef int (*Scig_click_handler) (int,int,int,int,int,int);
-typedef void (*Scig_deletegwin_handler) (int);
-
-extern int PushClickQueue (int win,int x,int y,int ibut,int motion,int release);
-extern int CheckClickQueue(int *win,int *x,int *y,int *ibut,int *motion,int *release);                  
-extern int ClearClickQueue (int win);
-
-extern int scig_click_handler_none (int win,int x,int y,int ibut,int motion,int release);
-extern int scig_click_handler_sci (int win,int x,int y,int ibut,int motion,int release);
-extern Scig_click_handler set_scig_click_handler (Scig_click_handler f);
-extern void reset_scig_click_handler (void);
-
-extern void scig_deletegwin_handler_none (int win);
-extern void scig_deletegwin_handler_sci (int win);
-extern Scig_deletegwin_handler set_scig_deletegwin_handler (Scig_deletegwin_handler f);
-extern Scig_deletegwin_handler get_scig_deletegwin_handler ( void );
-extern void reset_scig_deletegwin_handler (void);
-
-extern void set_delete_win_mode(void);
-extern void set_no_delete_win_mode(void);
-extern int  get_delete_win_mode(void);
-
-extern void set_wait_click(int val);
-extern int  get_wait_click(void);
-
-
-
-/*Scig_deletegwin_handler scig_deletegwin_handler;*/
-
-extern void set_event_select(int val);
-extern int get_event_select(void);
-
-#endif /* _EVENTS_H_  */
index 2ecf2c0..a0a4eb5 100644 (file)
@@ -98,15 +98,6 @@ void ChoixFormatE1(char *fmt, double *xx, int nx) ;
  */
 void ChoixFormatE(char *fmt, double xmin, double xmax, double xpas) ;
 
-/**
- * @TODO add comment
- *
- * @param logflag   
- * @param nbtics    
- * @param grads 
- * @return <ReturnValue>
- */
-double * ReBuildTicksLog2Lin(char logflag, int nbtics, double *grads) ;
 
 /**
  * @TODO add comment
index 1240a24..b0bc065 100644 (file)
@@ -118,13 +118,8 @@ int sciGetHeight (sciPointObj * pobj);  /* GET */
 void sciGetDim( sciPointObj * pobj, int * pWidth, int * pHeight ) ; /* GET */
 int sciGetWindowWidth(sciPointObj * pObj) ; /* GET */
 int sciGetWindowHeight(sciPointObj * pObj) ; /* GET */
-BOOL sciGetIsFigureIconified (sciPointObj * pobj);  /* GET */
-int sciGetSubwindowPosX (sciPointObj * pobj);  /* GET */
-int sciGetSubwindowPosY (sciPointObj * pobj);  /* GET */
 sciPointObj *sciIsExistingSubWin (double *WRect); /* GET */ /* WARNING special case here */
 
-BOOL sciGetReplay (void); /* GET */
-
 
 double *sciGetPoint (sciPointObj * pthis, int *num, int *numco); /* GET */
 
@@ -136,8 +131,6 @@ int sciType (char *marker, sciPointObj *pobj); /* GET */
 
 sciPointObj *sciGetSurface(sciPointObj *psubwin); /* GET */
 
-/* BOOL GetIsAxes(sciPointObj *psubwin); /\* GET *\/ */
-BOOL GetIsAxes2D(sciPointObj *psubwin); /* GET */
 char sciGetxLocation(sciPointObj * pObj);
 char sciGetyLocation(sciPointObj * pObj);
 
@@ -208,9 +201,6 @@ void sciGetDisplayedDataBounds(sciPointObj * pObj, double bounds[6]); /* GET */
 
 void sciGetViewingAngles( sciPointObj * pObj, double * alpha, double * theta) ; /* GET */
 
-int sciGetWhiteColorIndex(sciPointObj * pObj); /* GET */
-int sciGetBlackColorIndex(sciPointObj * pObj); /* GET */
-
 void sciGetLogFlags(sciPointObj * pObj, char flags[3]); /* GET */
 
 BOOL sciGetPixmapMode(sciPointObj * pObj); /* GET */
index 6edef99..ad9cf14 100644 (file)
@@ -41,15 +41,12 @@ typedef enum
 
 
 extern int sciAddCallback (sciPointObj * pthis, char *code, int len, int mevent); /* INTERACTION */
-extern int sciExecCallback (sciPointObj * pthis); /* INTERACTION */
 extern int sciGetCallbackMouseEvent (sciPointObj * pthis); /* INTERACTION */
 extern int sciSetCallbackMouseEvent (sciPointObj * pthis, int mevent); /* INTERACTION */
-extern int sciGetCallbackLen (sciPointObj * pthis); /* INTERACTION */
 extern char *sciGetCallback (sciPointObj * pthis); /* INTERACTION */
 extern int sciDelCallback (sciPointObj * pthis); /* INTERACTION */
 
 int Objmove(sciPointObj * pobj, double d[], int m, BOOL opt); /* INTERACTION */
-extern BOOL sciIsAreaZoom(int *box, int *box1 ,int *section); /* INTERACTION */
 
 /**
  * Call rubber box on a figure in pixels
index 069c376..393edbe 100644 (file)
@@ -72,24 +72,18 @@ POINT2D;
  * @memo SCI_FIGURE,
  * @memo SCI_SUBWIN,
  * @memo SCI_TEXT,
- * @memo SCI_TITLE,
  * @memo SCI_LEGEND,
  * @memo SCI_ARC,
  * @memo SCI_POLYLINE,
  * @memo SCI_RECTANGLE,
  * @memo SCI_SURFACE,
- * @memo SCI_LIGHT,
  * @memo SCI_AXIS, 
  * @memo SCI_AXES, 
  * @memo SCI_SEGS 
  * @memo SCI_GRAYPLOT, 
  * @memo SCI_FEC,
- * @memo SCI_PANNER,
- * @memo SCI_SBH,
- * @memo SCI_SBV,
  * @memo SCI_UIMENU,
  * @memo SCI_UICONTEXTMENU,
- * @memo SCI_STATUSB,
  */
 typedef enum
   {/**Entity type FIGURE*/
@@ -208,22 +202,6 @@ sciRelationShip;
 
 /**@name GraphicContext
  * Used to know what are the contexte value attached with the Graphic area  
- * 
- * LineStyle:
- * PS_SOLID The pen is solid. 
- * PS_DASH The pen is dashed. This style is valid only when the pen width is one 
- *         or less in device units. 
- * PS_DOT The pen is dotted. This style is valid only when the pen width is one 
- *         or less in device units. 
- * PS_DASHDOT The pen has alternating dashes and dots. This style is valid only 
- *         when the pen width is one or less in device units. 
- * PS_DASHDOTDOT The pen has alternating dashes and double dots. This style is 
- *         valid only when the pen width is one or less in device units. 
- * PS_NULL The pen is invisible. 
- * PS_INSIDEFRAME The pen is solid. When this pen is used in any GDI drawing 
- *         function that takes a bounding rectangle, the dimensions of the 
- *         figure are shrunk so that it fits entirely in the bounding rectangle, 
- *         taking into account the width of the pen. This applies only to geometric pens. 
  */
 typedef struct
 {
@@ -359,9 +337,7 @@ typedef struct
   int number;
 
   int numcolors;
-
-  /** specifies if this window is iconified*/
-  BOOL isiconified;                 
+     
   /** specifies if this window is selected             */
   BOOL isselected; 
   int rotstyle;
@@ -740,29 +716,8 @@ typedef struct
   scigMode gmode;
   /** */
   sciGraphicContext graphiccontext;
-  /** */
-  /** specifies the title for this window  */
-  char name[sizeof ("ScilabGraphic") + 4];         
-  /** */
-  int namelen;
-  /** specifies the number for this window                   */
-  int number;                  
   /** specifies if this subwindow is selected                */
-  /*BOOL isselected;*/                  
-  /** specifies the position in the parent figure            */
-  int infigureposx;                     
-  /** specifies the position in the parent figure            */
-  int infigureposy;                     
-  /** specifies the width of the subplot                     */
-  int windimwidth;                    
-  /** specifies the width of the subplot                     */
-  int windimheight;                  
-  /** specifies the limite of the plot                       */
-  sciRange range;                       
-  /** specifies the factor of the x zoom                     */
-  int zoomx;                            
-  /** specifies the factor of the y zoom                     */
-  int zoomy;
+      
   double SRect[6]; /* [xmin xmax ymin ymax zmin zmax] : Strict rect. coming from update_specification_bounds function or from a set(a,"data_bounds",[...]) */
   double FRect[6]; /* real data_bounds */
   double WRect[4]; /* size of the subplot */
@@ -781,9 +736,7 @@ typedef struct
   double alpha_kp;
   /* viewing angles */
   double theta;
-  double alpha;        
-  /** specifie the associated entity popup menu */
-  sciPointObj *pPopMenu;    
+  double alpha;          
   /** specifies the text scilab code for the callback associated with this entity */
   char *callback; 
   /** the length of the callback code */
@@ -801,8 +754,6 @@ typedef struct
   int project[3];
   BOOL isoview; 
   int hiddencolor;
-  int hiddenstate;
-  int with_leg; /* Adding F.Leray 07.05.04 */ /* for strflag[0] support : not needed today */
   BOOL cube_scaling; /* Matlab like view in 3D when one or two range is/are preferential */
   BOOL FirstPlot; /* An internal state used to indicated that high level functions must not use SRect*/
 
@@ -816,14 +767,8 @@ typedef struct
   BOOL flagNax;
   int * user_data; /* adding 27.06.05 */
   int size_of_user_data;
-  
-  int YGradMostOnLeft;
-  int YGradMostOnRight;
-  int XGradMostOnTop;
-  int XGradMostOnBottom;
 
-  BOOL firsttime_x;
-  BOOL firsttime_y;
+
 }/** */
 sciSubWindow;  
 
@@ -932,11 +877,6 @@ typedef struct
   double y;                       /** original */
   double width;
   double height;
-  int str; 
-  int strwidth;
-  int strheight;
-  double horzcurvature;                  /** to do rectangle with round corner */ /*F.Leray not implemented till now... 19.03.04 to see...*/
-  double vertcurvature;                  /** to do rectangle with round corner */ /*F.Leray not implemented till now... 19.03.04 to see...*/
   BOOL isselected;
   char *callback; /** specifies the text scilab code for the callback associated with this entity */
   int callbacklen; /** the length of the callback code */  
@@ -948,7 +888,6 @@ typedef struct
   int clip_region_set;
   double z;  /** rectangle */
 
-  BOOL flagstring; /* flag used to determine wether the rectangle is used to surround a string : used when axes is reversed */
   int * user_data; /* adding 27.06.05 */
   int size_of_user_data;
 }
@@ -1052,7 +991,6 @@ typedef struct
   sciFont fontcontext;
   char dir;   /** dir = 'r' | 'l' | 'u' | 'd' : gives the tics directions **/  
   char tics;  /** tics = 'v' (for vector) or 'r' (for range) or i **/
-  POINT2D *vector;             /* vecteur de points redondant, for future developpement*/
   double *vx;  /** vx vector of size nx **/
   double *vy;  /** vy vector of size ny **/ 
   /**DJ.Abdemouche 2003**/
@@ -1065,7 +1003,6 @@ typedef struct
   char **str ;  /** string vector **/
   int subint;  /** subints : number of sub intervals **/ 
   char *format; /** format for tick marks **/
-  char logscale; /* not used */
   int seg;      /**0 or 1, flag which control the drawing of the segment associated to the axes **/
   char *callback; /** specifies the text scilab code for the callback associated with this entity */
   int callbacklen; /** the length of the callback code */  
@@ -1103,7 +1040,6 @@ typedef struct
   int *pstyle;
   int iflag;      /**0 or 1, flag which control the drawing of the segment  **/
   double arrowsize;  /*F.Leray units : hundreds (i.e. 100, 150,...)*/
-  double parfact;
   int ptype; /* if ptype=0, it is segments; if ptype=1, it is champ (champ or champ1)*/
   int typeofchamp; /* when ptype=0, if typeofchamp=0 => champ is invoked else champ1 is invoked (typeofchamp==1) */
   BOOL isselected;
diff --git a/scilab/modules/graphics/includes/Plo3d.h b/scilab/modules/graphics/includes/Plo3d.h
deleted file mode 100644 (file)
index 156dff7..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 1998 - 2000 - ENPC - Jean-Philipe Chancelier
- * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/*------------------------------------------------------------------------
-*    Graphic library
-*--------------------------------------------------------------------------*/
-
-#ifndef _PLO3D_H_
-#define _PLO3D_H_
-
-void DrawAxis(double *xbox, double *ybox, int *Indices, int style) ;
-
-int triangleSort(int *polyxin, int *polyyin, int *fillin, int *polyx, int *polyy, int *fill);
-
-int scilab_shade(int *polyx, int *polyy, int *fill, int polysize, int flag) ;
-
-void BBoxToval(double *x, double *y, double *z, int ind, double bbox[6] ) ;
-
-#endif /* _PLO3D_H_ */
index 7613609..0c79fd1 100644 (file)
@@ -47,11 +47,9 @@ int sciSetGoodIndex(sciPointObj * pobj, int colorindex);  /* SET */
 void sciRecursiveUpdateBaW(sciPointObj *pobj, int old_m, int m);  /* SET */
 int sciUpdateBaW (sciPointObj * pobj, int flag, int value ) ; /* SET */
 
-int  sciInitMdlBackground( sciPointObj * pobj, int colorIndex ) ;
 int sciInitBackground( sciPointObj * pobj, int colorindex ) ;
 int sciSetBackground ( sciPointObj * pobj, int colorindex ) ; /* SET */
 
-int sciInitMdlForeground( sciPointObj * pObj, int colorIndex ) ;
 int sciInitForeground( sciPointObj * pobj, int colorindex ) ;
 int sciSetForeground ( sciPointObj * pobj, int colorindex ) ; /* SET */
 
@@ -163,11 +161,6 @@ int sciSetWindowDim(  sciPointObj * pobj, int newWidth, int newHeight ) ; /* SET
 int sciInitScreenPosition(sciPointObj * pobj, int pposx, int pposy);
 int sciSetScreenPosition( sciPointObj * pobj, int pposx, int pposy); /* SET */
 
-int sciInitFigureIconify(sciPointObj * pobj, BOOL value);
-int sciSetFigureIconify( sciPointObj * pobj, BOOL value); /* SET */
-
-int sciInitSubWindowPos(sciPointObj * pobj, int *x, int *y);
-int sciSetSubWindowPos( sciPointObj * pobj, int *x, int *y); /* SET */
 
 void sciSelectFirstSubwin( sciPointObj * parentFigure ) ; /* SET */
 
@@ -176,8 +169,6 @@ int sciSetSelectedSubWin (sciPointObj * psubwinobj); /* SET */
 
 int sciSetOriginalSubWin (sciPointObj * pfigure, sciPointObj * psubwin); /* SET */
 
-int sciSetReplay (BOOL value); /* SET */
-/* int sciSetHDC (sciPointObj * pobj); /\* SET *\/ /\* unused?? *\/ */
 int sciSetPoint(sciPointObj * pthis, double *tab, int *numrow, int *numcol); /* SET */
 
 int sciSetdrawmode(BOOL mode); /* SET */
@@ -236,7 +227,6 @@ int sciSetEventHandler(  sciPointObj * pObj, char * name ) ;
 int sciInitIsEventHandlerEnable( sciPointObj * pObj, BOOL enable ) ;
 int sciSetIsEventHandlerEnable(  sciPointObj * pObj, BOOL enable ) ;
 
-int sciSetSelectedObject( sciPointObj * pObj ) ;
 int sciSetDataBounds( sciPointObj * pObj, double bounds[6] ) ; /* SET */
 int sciSetRealDataBounds(sciPointObj * pObj, const double bounds[6]); /* SET */
 
diff --git a/scilab/modules/graphics/includes/color.h b/scilab/modules/graphics/includes/color.h
deleted file mode 100644 (file)
index 8d2734b..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 1998 - 2000 - ENPC - Jean-Philipe Chancelier
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#ifndef SCI_DEF_COL
-#define SCI_DEF_COL
-/*------------------------------------------------------------------------
- *    Graphic library
- --------------------------------------------------------------------------*/
-#define GREYNUMBER 17
-#define DEFAULTNUMCOLORS 32
-
-#ifndef _MSC_VER
-extern unsigned short default_colors[];
-#endif
-
-
-#define DEFAULTBLACK 0
-#define DEFAULTWHITE 7
-
-#endif 
diff --git a/scilab/modules/graphics/includes/graphicSession.h b/scilab/modules/graphics/includes/graphicSession.h
deleted file mode 100644 (file)
index 6b5987e..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/*------------------------------------------------------------------------*/
-/* file: graphicSession.h                                                 */
-/* desc : routines to open and close graphic sessions. This is used to    */
-/*        prevent from opening more than one.                             */
-/*------------------------------------------------------------------------*/
-
-#ifndef _GRAPHIC_SESSION_H_
-#define _GRAPHIC_SESSION_H_
-
-#include "BOOL.h"
-
-/**
- * Specify that a graphic session has been opened.
- * @return * 0  if a session has been opened
- *         * 1  if another session was already running
- *         * -1 if an other error occured.
- */
-int openGraphicSession( void ) ;
-
-/**
- * Specify that the graphic session is not used any longer.
- * @return * 0  if a session has been closed.
- *         * 1  if their was not any session opened.
- *         * -1 if an error occured.
- */
-int closeGraphicSession( void ) ;
-
-/**
- * Use to know if a graphic is opened.
- */
-BOOL isGraphicSessionOpened( void ) ;
-
-
-#endif /* _GRAPHIC_SESSION_H_ */
index ed8e784..8b5efa1 100644 (file)
@@ -101,26 +101,6 @@ void rotate2Dim( double from[2]   ,
                  double sinAngle  ,
                  double dest[2]    ) ;
 
-/* perform the rotation of point from to point dest given in int with angle in radian  */
-void iRotate2D( int from[2], int center[2], double angle, int dest[2] ) ;
-
-/* perform the rotation of point from to point dest given in int. */
-/* the angle is directly given with its sine and cosine for speed */
-void iRotate2Dim( int    from[2]   ,
-                  int    center[2] ,
-                  double cosAngle  ,
-                  double sinAngle  ,
-                  int    dest[2]    ) ;
-
-/* perform an homethety point from to point dest. The 2 factors stand for the ration */
-/* along the 2 coordinates */
-void homothety2D( double from[2], double center[2], double factors[2], double dest[2] ) ;
-
-/* perform an homethety point from to point dest given in pixels. */
-/* The 2 factors stand for the ration along the 2 coordinates */
-void iHomothety2D( int from[2], int center[2], double factors[2], int dest[2] ) ;
-
-
 /* perform the translation of point from to point dest with vector trans */
 void translate2D( double from[2], double trans[2], double dest[2] ) ;
 
@@ -240,10 +220,8 @@ void setToIdentity(double mat4D[4][4]);
 void mat4DMult(const double mat4D[4][4], const double vect3D[3], double res[3]);
 
 /*----------------------------------------------------------------------------*/
-/* check if two values can be considered equal given an accurracy */
-int safeEqual( double val1, double val2, double accuracy ) ;
 
-/* with a macro it is faster */
+/* check if two values can be considered equal given an accurracy */
 /* the x == y test is put to avoid division by 0 */
 #define SAFE_EQUAL(x,y,acc) ( (x) == (y) ) || ( Abs( (x) - (y) ) < (acc) * Max( Abs( (x) ), Abs( (y) ) ) )
 
index 818375d..ca9ebf9 100644 (file)
@@ -30,9 +30,7 @@ void Objrect ( double * x         ,
                int    * background,
                BOOL     isfilled  ,
                BOOL     isline    ,
-               int      n         ,
-               long   * hdl       ,
-               BOOL     flagstring ) ;
+               long   * hdl       ) ;
 
 void Objarc( double * angle1    ,
              double * angle2    ,
index 267d252..5c6a2b2 100644 (file)
@@ -21,7 +21,6 @@
 
 #include "sci_plot3d.h"
 #include "stack-c.h"
-#include "Plo3d.h"
 #include "sci_demo.h"
 #include "BuildObjects.h"
 #include "gw_graphics.h"
index 414e295..afdf123 100644 (file)
@@ -54,13 +54,13 @@ int sci_xrect( char *fname, unsigned long fname_len )
     {
       int foreground = sciGetForeground(psubwin);
       Objrect (stk(l1),stk(l1+1),stk(l1+2),stk(l1+3),
-        &foreground,NULL,FALSE,TRUE,0,&hdl,FALSE);
+        &foreground,NULL,FALSE,TRUE,&hdl);
     }
     else
     { /* xfrect case */
       int foreground = sciGetForeground(psubwin);
       Objrect (stk(l1),stk(l1+1),stk(l1+2),stk(l1+3),
-        NULL,&foreground,TRUE,FALSE,0,&hdl,FALSE);
+        NULL,&foreground,TRUE,FALSE,&hdl);
     }
     endFigureDataWriting(pFigure);
 
@@ -88,12 +88,12 @@ int sci_xrect( char *fname, unsigned long fname_len )
       if (strcmp(fname,"xrect")==0)
       {
         Objrect (stk(l1),stk(l2),stk(l3),stk(l4),
-                 &foreground,NULL,FALSE,TRUE,0,&hdl,FALSE) ;
+                 &foreground,NULL,FALSE,TRUE,&hdl) ;
       }
       else
       {
         Objrect (stk(l1),stk(l2),stk(l3),stk(l4),
-                 NULL,&foreground,TRUE,FALSE,0,&hdl,FALSE);
+                 NULL,&foreground,TRUE,FALSE,&hdl);
       }
       endFigureDataWriting(pFigure);
 
index e925b4f..cf16823 100644 (file)
@@ -77,7 +77,7 @@ int sci_xrects( char *fname, unsigned long fname_len )
       int foreground;
       foreground = sciGetForeground(psubwin);
       Objrect (stk(l1+(4*i)),stk(l1+(4*i)+1),stk(l1+(4*i)+2),stk(l1+(4*i)+3),
-        &foreground,NULL,FALSE,TRUE,0,&hdl,FALSE);
+        &foreground,NULL,FALSE,TRUE,&hdl);
     }
     else
     {
@@ -85,13 +85,13 @@ int sci_xrects( char *fname, unsigned long fname_len )
         /** fil(i) < 0 rectangle i is drawn using the line style (or color) **/
         int tmp = - (*istk(l2+i));
         Objrect (stk(l1+(4*i)),stk(l1+(4*i)+1),stk(l1+(4*i)+2),stk(l1+(4*i)+3),
-          &tmp,NULL,FALSE,TRUE,0,&hdl,FALSE);
+          &tmp,NULL,FALSE,TRUE,&hdl);
       }
       else
       {
         /** fil(i) > 0   rectangle i is filled using the pattern (or color) **/
         Objrect (stk(l1+(4*i)),stk(l1+(4*i)+1),stk(l1+(4*i)+2),stk(l1+(4*i)+3),
-        NULL,istk(l2+i),TRUE,FALSE,0,&hdl,FALSE);
+        NULL,istk(l2+i),TRUE,FALSE,&hdl);
       }
     }
   }
index 4a11fab..ccc20ca 100644 (file)
@@ -47,29 +47,6 @@ double sciFindStPosMin( double x[], int n )
   return min ;
 }
 /*------------------------------------------------------------------------*/
-void MaxiInd( double vect[], int n, int * ind, double maxi )
-{
-  int i ;
-  if ( *ind+1 < n )
-  {
-    for ( i = *ind+1 ; i < n ; i++ )
-    {
-      if ( vect[i] >= maxi)
-      {
-        *ind=i;
-        return ;
-      }
-    }
-  }
-}
-/*------------------------------------------------------------------------*/
-int C2F(entier2d)( int * n, double * dx,int * s )
-{
-  int ix;
-  for (ix = *n -1 ; ix >= 0; --ix) { dx[ix] = (double) s[ix]; }
-  return 0;
-}  
-/*------------------------------------------------------------------------*/
 int checkMonotony( double vector[], int nbElement )
 {
   int i ;
index 762e1ef..86f40c1 100644 (file)
@@ -157,7 +157,6 @@ sciPointObj * ConstructFigure(sciPointObj * pparent, int * figureIndex)
   sciSetName(pobj, sciGetName(pfiguremdl), sciGetNameLength(pfiguremdl));
   sciInitResize(pobj,sciGetResize(pfiguremdl));
 
-  ppFigure->isiconified = ppModel->isiconified;
   ppFigure->isselected = ppModel->isselected;
   ppFigure->rotstyle = ppModel->rotstyle;
   ppFigure->visible = ppModel->visible;
@@ -402,7 +401,6 @@ ConstructSubWin(sciPointObj * pparentfigure)
       ppsubwin->project[1]= ppaxesmdl->project[1];
       ppsubwin->project[2]= ppaxesmdl->project[2];
       sciInitHiddenColor(pobj, sciGetHiddenColor(paxesmdl));
-      ppsubwin->hiddenstate= ppaxesmdl->hiddenstate;
       ppsubwin->isoview= ppaxesmdl->isoview;
       ppsubwin->WRect[0]   = ppaxesmdl->WRect[0];
       ppsubwin->WRect[1]   = ppaxesmdl->WRect[1];
@@ -438,7 +436,6 @@ ConstructSubWin(sciPointObj * pparentfigure)
 
       ppsubwin->tight_limits = ppaxesmdl->tight_limits;
       ppsubwin->FirstPlot = ppaxesmdl->FirstPlot;
-      ppsubwin->with_leg =  ppaxesmdl->with_leg;
 
       sciInitUseNurbs(pobj, sciGetUseNurbs(paxesmdl));
 
@@ -538,7 +535,6 @@ ConstructSubWin(sciPointObj * pparentfigure)
       cloneGraphicContext( ppaxesmdl->mon_z_label, ppsubwin->mon_z_label ) ;
       cloneGraphicContext( ppaxesmdl->mon_title  , ppsubwin->mon_title   ) ;
 
-      ppsubwin->pPopMenu = (sciPointObj *)NULL;/* initialisation of popup menu*/
       endFigureDataWriting(pparentfigure);
 
       return (sciPointObj *)pobj;
@@ -1184,9 +1180,8 @@ ConstructArc (sciPointObj * pparentsubwin, double x, double y,
  */
 sciPointObj *
 ConstructRectangle (sciPointObj * pparentsubwin, double x, double y,
-                   double height, double width, double horzcurvature,
-                   double vertcurvature,  int *foreground, int *background,
-                   int isfilled, int isline, int str, BOOL flagstring)
+                   double height, double width,  int *foreground, int *background,
+                   int isfilled, int isline)
 {
   sciPointObj *pobj = (sciPointObj *) NULL;
 
@@ -1218,17 +1213,11 @@ ConstructRectangle (sciPointObj * pparentsubwin, double x, double y,
       pRECTANGLE_FEATURE (pobj)->callbackevent = 100;
 
 
-      pRECTANGLE_FEATURE (pobj)->flagstring = flagstring;
       pRECTANGLE_FEATURE (pobj)->x = x;
       pRECTANGLE_FEATURE (pobj)->y = y;
       pRECTANGLE_FEATURE (pobj)->z = 0.0;
       pRECTANGLE_FEATURE (pobj)->height = height;
       pRECTANGLE_FEATURE (pobj)->width = width;
-      pRECTANGLE_FEATURE (pobj)->str = str;
-      pRECTANGLE_FEATURE (pobj)->strheight = 0;
-      pRECTANGLE_FEATURE (pobj)->strwidth = 0;
-      pRECTANGLE_FEATURE (pobj)->horzcurvature = horzcurvature;
-      pRECTANGLE_FEATURE (pobj)->vertcurvature = vertcurvature;
       pRECTANGLE_FEATURE (pobj)->isselected = TRUE;
       pRECTANGLE_FEATURE (pobj)->visible = sciGetVisibility(sciGetParentSubwin(pobj));
 
@@ -1714,18 +1703,9 @@ ConstructAxes (sciPointObj * pparentsubwin, char dir, char tics, double *vx,
     pAXES_FEATURE (pobj)->tics =tics;
 
     paxes = pAXES_FEATURE (pobj);
-    if ((paxes->vector = MALLOC (Max(nx,ny) * sizeof (POINT2D))) == NULL)
-         {
-           sciDelThisToItsParent (pobj, sciGetParent (pobj));
-           sciDelHandle (pobj);
-           FREE(pPOLYLINE_FEATURE(pobj));
-           FREE(pobj);
-           return (sciPointObj *) NULL;
-         }
     /* pour le moment je garde les vecteurs separes, et non en POINT2D */
     if ((paxes->vx = MALLOC (nx * sizeof (double))) == NULL)
          {
-           FREE(pAXES_FEATURE (pobj)->vector);
            sciDelThisToItsParent (pobj, sciGetParent (pobj));
            sciDelHandle (pobj);
            FREE(pAXES_FEATURE(pobj));
@@ -1734,7 +1714,6 @@ ConstructAxes (sciPointObj * pparentsubwin, char dir, char tics, double *vx,
          }
     if ((paxes->vy = MALLOC (ny * sizeof (double))) == NULL)
          {
-           FREE(pAXES_FEATURE (pobj)->vector);
            FREE(pAXES_FEATURE (pobj)->vx);
            sciDelThisToItsParent (pobj, sciGetParent (pobj));
            sciDelHandle (pobj);
@@ -1788,8 +1767,6 @@ ConstructAxes (sciPointObj * pparentsubwin, char dir, char tics, double *vx,
 
     pAXES_FEATURE (pobj)->subint = subint;
     pAXES_FEATURE (pobj)->seg =seg;
-    /*    pAXES_FEATURE (pobj)->format =format; */ /* Pb here, F.Leray : Weird init.: can not copy a string using '='*/
-    pAXES_FEATURE (pobj)->logscale=logscale;
     if(format != (char *) NULL)
          {
            if((pAXES_FEATURE (pobj)->format = MALLOC( (strlen(format)+1) * sizeof(char))) == NULL)
@@ -2081,7 +2058,6 @@ ConstructSegs (sciPointObj * pparentsubwin, int type,double *vx, double *vy,
          ppSegs->Nbr2 = Nbr2;
          sciInitForeground(pobj,sciGetForeground(sciGetCurrentSubWin())); /* set sciGetForeground(psubwin) as the current foreground */
          ppSegs->typeofchamp = typeofchamp; /* to know if it is a champ or champ1 */
-         ppSegs->parfact = arfact;
          if ((ppSegs->vfx = MALLOC ((Nbr1*Nbr2) * sizeof (double))) == NULL)
            {
              FREE(ppSegs->vx);
index 9599a24..d4a1333 100644 (file)
@@ -198,56 +198,5 @@ int C2F(champ1)(double *x, double *y, double *fx, double *fy, int *n1, int *n2,
   champg("champ1",1,x,y,fx,fy,n1,n2,strflag,brect,arfact,lstr);
   return(0);
 }
-
-
 /*----------------------------------------------------------------------------------*/
-double computeGridMinGap( double gridX[], double gridY[], int nbRow, int nbCol )
-{
-  int i ;
-  double min = 0 ;
-  double minX = Abs( gridX[1] - gridX[0] ) ;
-  double minY = Abs( gridY[1] - gridY[0] ) ;
-
-  for ( i = 1 ; i < nbRow-1 ; i++ )
-  {
-    double tmp = Abs( gridX[i+1] - gridX[i] ) ;
-    if ( tmp < minX )
-    {
-      minX = tmp ;
-    }
-  }
-
-  for ( i = 1 ; i < nbCol-1 ; i++ )
-  {
-    double tmp = Abs( gridY[i+1] - gridY[i] ) ;
-    if ( tmp < minY )
-    {
-      minY = tmp ;
-    }
-  }
 
-
-  min = minX * minX + minY * minY ;
-  min = ( min < SMDOUBLE) ? SMDOUBLE : sqrt(min) ;
-
-  return min ;
-}
-/*----------------------------------------------------------------------------------*/
-double getLongestVector( double vectX[], double vectY[], int nbRow, int nbCol, double scx, double scy )
-{
-  int i ;
-
-  double scx2 = scx * scx ;
-  double scy2 = scy * scy ;
-  double max  = ( scx2 * vectX[0] * vectX[0] ) + ( scy2 * vectY[0] * vectY[0] ) ;
-
-  for ( i = 1 ; i < nbRow * nbCol ; i++ )
-  {
-    double tmp = ( scx2 * vectX[i] * vectX[i] ) + ( scy2 * vectY[i] * vectY[i] ) ;
-    if ( tmp > max ) { max = tmp ; }
-  }
-  max = ( max < SMDOUBLE) ? SMDOUBLE : sqrt(max) ;
-
-  return max ;
-}
-/*----------------------------------------------------------------------------------*/
index 1b59e38..18cb248 100644 (file)
@@ -187,8 +187,7 @@ CloneRectangle (sciPointObj * pthis)
     return (sciPointObj *)NULL;
   if (!(pobj = ConstructRectangle (subwinparent, pRECTANGLE_FEATURE(pthis)->x, 
                                   pRECTANGLE_FEATURE(pthis)->y, pRECTANGLE_FEATURE(pthis)->height,pRECTANGLE_FEATURE(pthis)->width, 
-                                  pRECTANGLE_FEATURE(pthis)->horzcurvature, pRECTANGLE_FEATURE(pthis)->vertcurvature,
-                                  &foreground,&background,sciGetIsFilled(pthis),sciGetIsLine(pthis),0,pRECTANGLE_FEATURE(pthis)->flagstring))){
+                                  &foreground,&background,sciGetIsFilled(pthis),sciGetIsLine(pthis)))){
     return (sciPointObj *)NULL;
   }
   else {
index 346a96b..e8c1e9b 100644 (file)
@@ -22,7 +22,6 @@
 #include "localization.h"
 /*------------------------------------------------------------------------*/
 int LinearScaling2Colormap( sciPointObj * pobj );
-void convertColorMap2BW( double * bwColorMap, double * colorMap, int colorMapSize );
 /*------------------------------------------------------------------------*/
 int LinearScaling2Colormap( sciPointObj * pobj )
 {
@@ -76,18 +75,4 @@ int LinearScaling2Colormap( sciPointObj * pobj )
   return SET_PROPERTY_SUCCEED ;
 }
 /*------------------------------------------------------------------------*/
-void convertColorMap2BW( double * bwColorMap, double * colorMap, int colorMapSize )
-{
-  int i ;
-  for ( i = 0 ; i < colorMapSize ; i++ )
-  {
-    /* use parameter 0.299 for red, 0.587 for green and 0.114 for blue */
-    double curColor = Max( Min(  0.299 * colorMap[i]
-                               + 0.587 * colorMap[i + colorMapSize]
-                               + 0.114 * colorMap[i + 2 * colorMapSize] , 1.0 ), 0.0 ) ;
-    bwColorMap[i                   ] = curColor ;
-    bwColorMap[i + colorMapSize    ] = curColor ;
-    bwColorMap[i + 2 * colorMapSize] = curColor ;
-  }
-}
-/*------------------------------------------------------------------------*/
+
index 1ac713d..dee35ff 100644 (file)
 
 int LinearScaling2Colormap( sciPointObj * pobj ) ;
 
-/**
-* Convert a colormap to a black and white one of the same size.
-* Each color is replaced by its grey scale.
-* of the source colormap.
-* @param bwColorMap destination of the function
-* @param colorMap   source colormap. The two colormaps might be actually the same
-*                   if a copy is not needed.
-*/
-void convertColorMap2BW( double * bwColorMap, double * colorMap, int colorMapSize ) ;
-
 
 #endif /* _COLOR_MAP_MANAGEMENT_H_ */
index c8982fb..f998bdc 100644 (file)
@@ -61,8 +61,6 @@ static int oddp  (int i);
  *  from the Lisp Macsyma source (M.I.T)
  * -------------------------------------------------------------------------*/
 
-#define HIDDENFRAMECOLOR 2L /* default color for hidden frame */
-
 /*---------------------------------------------------------------------------
  * General functions (could be changed in #define or
  *   inline functions to increase speed)
index d42c08f..8ac6f6a 100644 (file)
@@ -44,7 +44,6 @@
 #include "WindowList.h"
 
 #include "math_graphics.h"
-#include "graphicSession.h"
 #include "Format.h"
 #include "axesScale.h"
 #include "BasicAlgos.h"
@@ -541,17 +540,6 @@ int ComputeNbSubTics(sciPointObj * pobj, int nbtics, char logflag, const double
   return -1;
 }
 
-/* test on x and y axes only : used in 2D routines only */
-BOOL GetIsAxes2D(sciPointObj *psubwin)
-{
-  sciSubWindow * ppsubwin = pSUBWIN_FEATURE (psubwin);
-  
-  if((ppsubwin->axes.axes_visible[0] == FALSE)
-     && (ppsubwin->axes.axes_visible[1] == FALSE))
-    return FALSE;
-  else
-    return TRUE;
-}
 
 
 /**DrawAxesIfRequired
diff --git a/scilab/modules/graphics/src/c/Events.c b/scilab/modules/graphics/src/c/Events.c
deleted file mode 100644 (file)
index f527271..0000000
+++ /dev/null
@@ -1,271 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 1998-2001 - ENPC - Jean-Philipe Chancelier
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include <stdio.h>
-#include <string.h>
-#include "WindowList.h"
-#include "Events.h"
-#include "GetProperty.h"
-#include "dynamic_menus.h"
-
-typedef struct but
-{ int win; /* graphic window containing the locator */
-  int x,y; /* Locator position  coordinates */
-  int ibutton; /*mouse button or key*/
-  int motion; /* is it a move event */
-  int  release; /* is it a release event */
-} But;
-
-
-
-int demo_menu_activate=0; /* add a demo menu in the graphic Window */
-
-
-#define MaxCB 50 /* We keep the last  MaxCB click events on a queue just in case */
-static But ClickBuf[MaxCB];
-static int lastc = 0;
-static int wait_for_click=0; /* set to 1 when in xclick or xgetmouse to disable event handler*/
-static int event_select=5;/* record only press and release events, ignoring move*/
-
-/* next used to prevent the user from destroying a graphic window 
- * when acquiring for example a zoom rectangle */
-static int sci_graphic_protect = 0;
-static Scig_deletegwin_handler scig_deletegwin_handler = scig_deletegwin_handler_sci;
-
-/*--------------------------------------------------------------------------*/
-
-int scig_click_handler_none (int win,int x,int y,int ibut,
-                            int motion,int release) 
-{return 0;}
-/*--------------------------------------------------------------------------*/
-
-int scig_click_handler_sci (int win,int x,int y,int ibut,int motion,int release)
-{
-  static char buf[256];
-  sciPointObj * pFigure = NULL ;
-
-  pFigure = getFigureFromIndex(win);
-
-  if(pFigure == NULL)
-  {
-    return 0;
-  }
-
-  if (   sciGetIsEventHandlerEnable(pFigure)
-      && strlen(sciGetEventHandler(pFigure)) > 0 )
-  {
-    sprintf(buf,"%s(%d,%d,%d,%d)",sciGetEventHandler(pFigure),win,x,y,ibut);
-    StoreCommand(buf);
-    return 1;
-  }
-  else
-  {
-    return 0;
-  }
-}
-
-/*--------------------------------------------------------------------------*/
-static Scig_click_handler scig_click_handler = scig_click_handler_sci;
-
-/*--------------------------------------------------------------------------*/
-
-Scig_click_handler set_scig_click_handler( Scig_click_handler f) 
-{
-  Scig_click_handler old = scig_click_handler;
-  scig_click_handler = f;
-  return old;
-}
-/*--------------------------------------------------------------------------*/
-
-void reset_scig_click_handler() 
-{
-  scig_click_handler = scig_click_handler_sci;
-}
-/*--------------------------------------------------------------------------*/
-void scig_deletegwin_handler_none (int win)
-{
-}
-/*--------------------------------------------------------------------------*/
-void scig_deletegwin_handler_sci (int win)
-{
-  static char buf[256];
-  sciPointObj * pFigure = NULL ;
-
-  pFigure = getFigureFromIndex(win);
-  if (   pFigure != NULL
-      && sciGetIsEventHandlerEnable(pFigure)
-      && strlen(sciGetEventHandler(pFigure)) > 0 )
-  {
-    sprintf(buf,"%s(%d,0,0,-1000)",sciGetEventHandler(pFigure),win);
-    StoreCommand(buf);
-  }
-}
-/*--------------------------------------------------------------------------*/
-
-
-
-/*--------------------------------------------------------------------------*/
-Scig_deletegwin_handler set_scig_deletegwin_handler(Scig_deletegwin_handler f) 
-     
-{
-  Scig_deletegwin_handler old = scig_deletegwin_handler;
-  scig_deletegwin_handler = f;
-  return old;
-}
-/*--------------------------------------------------------------------------*/
-Scig_deletegwin_handler get_scig_deletegwin_handler( void )
-{
-  return scig_deletegwin_handler ;
-}
-/*--------------------------------------------------------------------------*/
-void reset_scig_deletegwin_handler() 
-{
-  scig_deletegwin_handler = scig_deletegwin_handler_sci;
-}
-
-/*--------------------------------------------------------------------------*/
-void set_delete_win_mode(void) {  sci_graphic_protect = 0 ;}
-/*--------------------------------------------------------------------------*/
-void set_no_delete_win_mode(void)  {  sci_graphic_protect = 1 ;}
-/*--------------------------------------------------------------------------*/
-int  get_delete_win_mode(void) {  return sci_graphic_protect;}
-/*--------------------------------------------------------------------------*/
-
-/*---------------------------------------------------------
- * Mouse queue Handling 
- * the default behaviour is to store mouse clicks in a queue. 
- * But one can also set a handler to deal with 
- * mouse motion and click: the handler returns 1 
- * if he take care of the click and returns 0 if 
- * he want the queue to be used 
- ---------------------------------------------------------*/
-int PushClickQueue(int win,int x,int y,int ibut, int motion,int release) 
-{
-  /* first let a click_handler do the job  */
-  if ( ( wait_for_click == 0 ) && ( scig_click_handler(win,x,y,ibut,motion,release) == 1 ) ) return 0;
-  if (  event_select==0 &&(motion == 1 || release == 1) ) return 0;
-               
-  if (((event_select&2)&&motion)||((event_select&4)&&release)||(motion==0&&release==0))
-       {
-               /* store click event in a queue */
-         if ( lastc == MaxCB ) 
-    {
-      int i;
-      for ( i= 1 ; i < MaxCB ; i ++ ) 
-                       {
-                               ClickBuf[i-1]=ClickBuf[i];
-                       }
-      ClickBuf[lastc-1].win = win;
-      ClickBuf[lastc-1].x = x;
-      ClickBuf[lastc-1].y = y;
-      ClickBuf[lastc-1].ibutton = ibut;
-      ClickBuf[lastc-1].motion = motion;
-      ClickBuf[lastc-1].release = release;
-    }
-               else 
-    {
-      ClickBuf[lastc].win = win;
-      ClickBuf[lastc].x = x;
-      ClickBuf[lastc].y = y;
-      ClickBuf[lastc].ibutton = ibut;
-      ClickBuf[lastc].motion = motion;
-      ClickBuf[lastc].release = release;
-      lastc++;
-    }
-  }
-  return(0);
-}
-/*--------------------------------------------------------------------------*/
-int CheckClickQueue(int *win,int *x,int *y,int *ibut,int *motion,int *release)
-{
-  int i;
-  for ( i = 0 ; i < lastc ; i++ )
-    {
-      int j ;
-      if ( ClickBuf[i].win == *win || *win == -1 ) 
-       {
-         *win = ClickBuf[i].win;
-         *x= ClickBuf[i].x ;
-         *y= ClickBuf[i].y ;
-         *ibut= ClickBuf[i].ibutton; 
-         *motion= ClickBuf[i].motion ;
-         *release= ClickBuf[i].release ;
-         for ( j = i+1 ; j < lastc ; j++ ) 
-           {
-             ClickBuf[j-1].win = ClickBuf[j].win ;
-             ClickBuf[j-1].x   = ClickBuf[j].x ;
-             ClickBuf[j-1].y =  ClickBuf[j].y ;
-             ClickBuf[j-1].ibutton = ClickBuf[j].ibutton ;
-             ClickBuf[j-1].motion =  ClickBuf[j].motion ;
-             ClickBuf[j-1].release = ClickBuf[j].release ;
-           }
-         lastc--;
-         return(1);
-       }
-    }
-  return(0);
-}
-/*--------------------------------------------------------------------------*/
-int ClearClickQueue(int win)
-{
-  int i;
-  if ( win == -1 ) 
-    {
-      lastc = 0;
-      return 0;
-    }
-  for ( i = 0 ; i < lastc ; i++ )
-    {
-      int j ;
-      if ( ClickBuf[i].win == win  ) 
-       {
-         for ( j = i+1 ; j < lastc ; j++ ) 
-           {
-             ClickBuf[j-1].win = ClickBuf[j].win ;
-             ClickBuf[j-1].x   = ClickBuf[j].x ;
-             ClickBuf[j-1].y =  ClickBuf[j].y ;
-             ClickBuf[j-1].ibutton = ClickBuf[j].ibutton ;
-             ClickBuf[j-1].motion =  ClickBuf[j].motion ;
-             ClickBuf[j-1].release = ClickBuf[j].release ;
-           }
-         lastc--;
-       }
-    }
-  lastc=0;
-  return(0);
-}
-/*--------------------------------------------------------------------------*/
-void set_wait_click(int val)
-{  
-  if (val==1) {
-    wait_for_click=val;
-  }else
-    wait_for_click=val;
-}
-
-/*--------------------------------------------------------------------------*/
-int get_wait_click()
-{  
-  return wait_for_click;
-}
-
-void set_event_select(int val)
-{  
-    event_select=val;
-}
-
-/*--------------------------------------------------------------------------*/
-int get_event_select()
-{  
-  return event_select;
-}
-
index a0d7f7f..9db0538 100644 (file)
@@ -1397,50 +1397,6 @@ int ChooseGoodFormat( char * c_format,char logflag, double *_grads,int n_grads )
 
 }
 /*--------------------------------------------------------------------------*/
-double * ReBuildTicksLog2Lin(char logflag, int nbtics, double *grads)
-{
-  int flag_limit = 0,i;
-  double * tmp = NULL;
-
-  if ( nbtics <= 0 || ( tmp = MALLOC( nbtics * sizeof(double) ) ) == NULL )
-  {
-    return NULL ;
-  }
-
-  if(logflag=='l')
-  {
-    for(i=0;i<nbtics;i++)
-    {
-      flag_limit = 0;
-
-      /* 10^(-307) == -Inf */
-      flag_limit = flag_limit + ((grads[i])<-307)?-1:0;
-      /* 10^(+307) == +Inf */
-      flag_limit = flag_limit + ((grads[i])>307)?1:0;
-
-      if( flag_limit == -1)
-      {
-        tmp[i] = 0.;
-      }
-      else if ( flag_limit == 1)
-      {
-        tmp[i] = exp10(307);
-      }
-      else  if ( flag_limit == 0) /* general case */
-      {
-        tmp[i]=exp10(grads[i]);
-      }
-    }
-  }
-  else
-  {
-    for(i=0;i<nbtics;i++)
-      tmp[i] = grads[i];
-  }
-
-  return tmp;
-}
-/*--------------------------------------------------------------------------*/
 char * copyFormatedValue( double value, const char format[5], int bufferSize )
 {
   char * buffer = MALLOC( bufferSize * sizeof(char) ) ;
index 6939421..cba5a8f 100644 (file)
 #include "MALLOC.h" /* MALLOC */
 
 
-extern sciHandleTab *PENDOFHANDLETAB;
-
-extern sciPointObj *pfiguremdl;
-extern sciPointObj *paxesmdl;
-
-
 
 /**sciGetPointerToFeature
  * Returns the pointer to features structure from this object Used only for functions FREE or to use void pointer
@@ -1773,10 +1767,6 @@ sciGetNameLength (sciPointObj * pobj)
     case SCI_FIGURE:
       return pFIGURE_FEATURE (pobj)->namelen;
       break;
-    case SCI_SUBWIN:
-      return pSUBWIN_FEATURE (pobj)->namelen;
-      break;
-    case SCI_AGREG:
     default:
       printSetGetErrorMessage("name");
       return 0;
@@ -1832,9 +1822,6 @@ int sciGetWidth (sciPointObj * pobj)
         return size[0];
       }      
       break;
-    case SCI_SUBWIN:
-       return pSUBWIN_FEATURE (pobj)->windimwidth;
-      break;
     default:
       printSetGetErrorMessage("width");
       return -1;
@@ -1864,9 +1851,6 @@ int sciGetHeight (sciPointObj * pobj)
         return size[1];
       }
       break;
-    case SCI_SUBWIN:
-       return pSUBWIN_FEATURE (pobj)->windimheight;
-      break;
     default:
       printSetGetErrorMessage("height");
       return -1;
@@ -1898,10 +1882,6 @@ void sciGetDim( sciPointObj * pobj, int * pWidth, int * pHeight )
         *pHeight = size[1] ;
       }
       break;
-    case SCI_SUBWIN:
-      *pWidth  = pSUBWIN_FEATURE (pobj)->windimwidth ;
-      *pHeight = pSUBWIN_FEATURE (pobj)->windimheight ;
-      break;
     default:
       printSetGetErrorMessage("size");
       break;
@@ -1958,77 +1938,6 @@ int sciGetWindowHeight(sciPointObj * pObj)
   return -1;
 }
 
-/**sciGetIsFigureIconified
- * Determines whether the specified Figure is minimized (iconic). 
- * @param sciPointObj * pobj: the pointer to the entity
- * @return TRUE if yes, FALSE if no
- */
-BOOL
-sciGetIsFigureIconified (sciPointObj * pobj)
-{
-  switch (sciGetEntityType (pobj))
-    {
-    case SCI_FIGURE:
-      /* hWndParent de Type HWND (BCG) "WIN" */
-      /*return (pFIGURE_FEATURE (pobj)->isiconified =
-       IsIconic ((sciGetScilabXgc (pobj))->hWndParent)); */
-      return FALSE;
-      break;
-    case SCI_AGREG:
-    default:
-      sciprint(_("Only Figure can return iconic status.\n"));
-      return FALSE;
-      break;
-    }
-}
-
-/**sciGetSubwindowPosX
- * Gets scrollbar position; 
- * @param sciPointObj * pobj: the pointer to the entity
- * @return  int vertical position in pixel
- **/
-int
-sciGetSubwindowPosX (sciPointObj * pobj)
-{
-  switch (sciGetEntityType (pobj))
-    {
-    case SCI_SUBWIN:
-      /* selectionner le xgc correspondant puis */
-      return pSUBWIN_FEATURE (pobj)->infigureposx;
-      /* C2F(getwindowpos)( width, height, PI0, PI0); */
-      break;
-    case SCI_AGREG:
-    default:
-      printSetGetErrorMessage("figure_position");
-      return -1;
-      break;
-    }
-}
-
-
-/**sciGetSubwindowPosY
- * Gets subwindow position; 
- * @param sciPointObj * pobj: the pointer to the entity in pixel
- * @return  int vertical position 
- **/
-int
-sciGetSubwindowPosY (sciPointObj * pobj)
-{
-  switch (sciGetEntityType (pobj))
-    {
-    case SCI_SUBWIN:
-      /* selectionner le xgc correspondant puis */
-      return pSUBWIN_FEATURE (pobj)->infigureposy;
-      /* C2F(getwindowpos)( width, height, PI0, PI0); */
-      break;
-    case SCI_AGREG:
-    default:
-      printSetGetErrorMessage("figure_position");
-      return -1;
-      break;
-    }
-}
-
 
 /**sciIsExistingSubWin
  * Determines if this SubWindow is an existing one in the current SCI_FIGURE 
@@ -2132,23 +2041,6 @@ double *sciGetPoint(sciPointObj * pthis, int *numrow, int *numcol)
         tab[3] = (double)sciGetHeight (pthis);
         return tab;
       }
-    case SCI_SUBWIN:
-      *numrow = 3;
-      *numcol = 2;
-      if ((tab = CALLOC((*numrow)*(*numcol),sizeof(double))) == NULL)
-      {
-        *numrow = -1;
-        *numcol = -1;
-       return NULL;
-      }
-      tab[0] =  (double) sciGetSubwindowPosX (pthis);
-      tab[1] =  (double) sciGetSubwindowPosY (pthis);
-      tab[2] = (double)sciGetWidth (pthis);
-      tab[3] = (double)sciGetHeight (pthis);
-      tab[4] = (double)sciGetWindowWidth(sciGetParentFigure(pthis));
-      tab[5] = (double)sciGetWindowHeight(sciGetParentFigure(pthis)); 
-      return (double*)tab;
-      break;
     case SCI_POLYLINE:
       *numrow = pPOLYLINE_FEATURE (pthis)->n1;
       *numcol=(pPOLYLINE_FEATURE (pthis)->pvz != NULL)? 3:2;
@@ -3369,16 +3261,6 @@ void sciGetViewingAngles( sciPointObj * pObj, double * alpha, double * theta)
   }
 }
 /*----------------------------------------------------------------------------------*/
-int sciGetWhiteColorIndex(sciPointObj * pObj)
-{
-  return sciGetNumColors(pObj) + 1;
-}
-/*----------------------------------------------------------------------------------*/
-int sciGetBlackColorIndex(sciPointObj * pObj)
-{
-  return sciGetNumColors(pObj) + 2;
-}
-/*----------------------------------------------------------------------------------*/
 /**
  * Copy the logflags of a subwin to an array of size 3.
  */
index a9e48ef..02b3a87 100644 (file)
@@ -189,7 +189,6 @@ int C2F(graphicsmodels) (void)
   /* Is it a missing ? */
 
   ppaxesmdl->FirstPlot = TRUE;
-  ppaxesmdl->with_leg = 0;
 
   ppaxesmdl->ARect[0]   = 0.125;
   ppaxesmdl->ARect[1]   = 0.125;
@@ -467,7 +466,6 @@ int InitFigureModel( void )
   /* Set figure model attributes */
   ppFigure->pModelData = newFigureModelData() ;
 
-  pFIGURE_FEATURE (pfiguremdl)->isiconified = FALSE;
   pFIGURE_FEATURE (pfiguremdl)->isselected = TRUE;
   pFIGURE_FEATURE (pfiguremdl)->rotstyle = 0;
   pFIGURE_FEATURE (pfiguremdl)->visible = TRUE;
@@ -624,7 +622,6 @@ int InitAxesModel()
   ppaxesmdl->project[1]= 1;
   ppaxesmdl->project[2]= 0;
   sciInitHiddenColor(paxesmdl, 4);
-  ppaxesmdl->hiddenstate=0;
   ppaxesmdl->isoview= FALSE;/*TRUE;*/
 
   ppaxesmdl->WRect[0]   = 0;
@@ -642,7 +639,6 @@ int InitAxesModel()
   /*   ppaxesmdl->drawlater = FALSE; */
 
   ppaxesmdl->isclip = -1; /* off */
-  ppaxesmdl->pPopMenu = (sciPointObj *)NULL;
 
   /* Les SRect sont rentres dans l'ordre:
      [xmin ymin zmin xmax ymax zmax] */
@@ -769,7 +765,6 @@ int ResetFigureToDefaultValues(sciPointObj * pobj)
 
   sciGetScreenPosition(pfiguremdl, &x[0], &x[1]) ;
   sciSetScreenPosition(pobj,x[0],x[1]);
-  pFIGURE_FEATURE (pobj)->isiconified = pFIGURE_FEATURE (pfiguremdl)->isiconified;
   pFIGURE_FEATURE (pobj)->isselected = pFIGURE_FEATURE (pfiguremdl)->isselected;
   pFIGURE_FEATURE (pobj)->rotstyle = pFIGURE_FEATURE (pfiguremdl)->rotstyle;
   pFIGURE_FEATURE (pobj)->visible = pFIGURE_FEATURE (pfiguremdl)->visible;
index 0e9a6cf..2e0d4c3 100644 (file)
@@ -334,58 +334,6 @@ int sciSetCallbackMouseEvent(sciPointObj * pthis, int mevent)
 
 
 
-
-/**sciGetCallbackLen
- * returns the length of the scilab callback code
- */
-int
-sciGetCallbackLen (sciPointObj * pthis)
-{
-  switch (sciGetEntityType (pthis))
-    {
-    case SCI_SUBWIN:
-      return pSUBWIN_FEATURE (pthis)->callbacklen;
-      break;
-    case SCI_ARC:
-      return pARC_FEATURE (pthis)->callbacklen;
-      break;
-    case SCI_RECTANGLE:
-      return pRECTANGLE_FEATURE (pthis)->callbacklen;
-      break;
-    case SCI_SEGS: 
-      return pSEGS_FEATURE (pthis)->callbacklen;
-      break; 
-    case SCI_FEC:  
-      return pFEC_FEATURE (pthis)->callbacklen;
-      break;  
-    case SCI_GRAYPLOT: 
-      return pGRAYPLOT_FEATURE (pthis)->callbacklen;
-      break;     
-    case SCI_POLYLINE:
-      return pPOLYLINE_FEATURE (pthis)->callbacklen;
-      break;    
-    case SCI_UIMENU:
-      return (int)strlen(pUIMENU_FEATURE(pthis)->callback);
-      break;
-    case SCI_UICONTROL:
-      return (int)strlen(pUICONTROL_FEATURE(pthis)->callback);
-      break;
-    case SCI_TEXT:
-    case SCI_LEGEND:
-    case SCI_SURFACE:
-    case SCI_AXES:
-    case SCI_FIGURE:
-    case SCI_AGREG:
-    case SCI_LABEL: /* F.Leray 28.05.04 */
-    default:
-      sciprint (_("No Callback is associated with this Entity.\n"));
-      return -1;
-      break;
-    }
-}
-
-
-
 /**sciDelCallback
  * returns the length of the scilab callback code
  */
@@ -453,53 +401,6 @@ sciDelCallback (sciPointObj * pthis)
 }
 
 
-/**sciExecCallback
- * exec the callback associated with pthis
- */
-int
-sciExecCallback (sciPointObj * pthis)
-{
-  int mlhs = 0, mrhs = 1, ibegin = 1, l1, m1, n1 = 1;
-  char name[] = "execstr" ;
-  m1 = sciGetCallbackLen(pthis);
-  switch (sciGetEntityType (pthis))
-    {
-    case SCI_SUBWIN:
-    case SCI_ARC:
-    case SCI_RECTANGLE:
-    case SCI_SEGS: 
-    case SCI_FEC: 
-    case SCI_GRAYPLOT: 
-    case SCI_POLYLINE:
-      if (sciGetCallback(pthis))
-       {
-         CreateVar(1,STRING_DATATYPE, &m1, &n1, &l1);
-         strncpy(cstk(l1), sciGetCallback(pthis), sciGetCallbackLen(pthis));
-         /* back conversion to Scilab coding */
-         Convert2Sci(1);
-         SciString(&ibegin,name,&mlhs,&mrhs);
-         /* check if an error has occured while running a_function */
-         LhsVar(1) = 0; 
-         return 0;
-       }
-      else sciprint(_("No Callback is associated with this Entity\n."));
-      return 0;
-      break;
-    case SCI_TEXT:
-    case SCI_LEGEND:
-    case SCI_SURFACE:
-    case SCI_AXES:
-    case SCI_FIGURE:
-    case SCI_AGREG:
-    case SCI_LABEL: /* F.Leray 28.05.04 */
-    case SCI_UIMENU:
-    default:
-      sciprint (_("No Callback is associated with this Entity.\n"));
-      return -1;
-      break;
-    }
-}
-
 /************************************ End of callback Functions ************************************/
 
 
@@ -699,72 +600,6 @@ int Objmove (sciPointObj * pobj, double d[], int m,BOOL opt)
   return status;
 }
 
-
-BOOL sciIsAreaZoom(int box[4],int box1[4],int section[4])
-{
-  if ( (box[0]<=box1[0]) && (box[2]>box1[0]) && (box[2]<=box1[2]) 
-       && (box[1]<box1[1]) && (box[3]>box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box1[0];  section[2]=box[2];  section[1]=box1[1];  section[3]=box[3];return TRUE;}
-  
-  if ( (box[0]<=box1[0]) && (box[2]>box1[0]) && (box[2]<=box1[2]) 
-       && (box[1]>=box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box1[0];  section[2]=box[2];  section[1]=box[1];  section[3]=box[3];return TRUE;}
-  
-  if ( (box[0]<=box1[0]) && (box[2]>box1[0]) && (box[2]<=box1[2]) 
-       && (box[1]>=box1[1]) && (box[1]<=box1[3]) && (box[3]>=box1[3]) )
-    {section[0]=box1[0];  section[2]=box[2];  section[1]=box[1];  section[3]=box1[3];return TRUE;}
-
-  if ( (box[0]<=box1[0]) && (box[2]>box1[0]) && (box[2]<=box1[2]) 
-       && (box[1]<box1[1]) &&  (box[3]>box1[3]) )
-    {section[0]=box1[0];  section[2]=box[2];  section[1]=box1[1];  section[3]=box1[3];return TRUE;}
-  /*********************/
-  if ( (box[0]>box1[0])  && (box[2]<=box1[2]) 
-       && (box[1]<box1[1]) && (box[3]>box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box[0];  section[2]=box[2];  section[1]=box1[1];  section[3]=box[3]; return TRUE;}
-  
-  if ( (box[0]>box1[0])  && (box[2]<=box1[2]) 
-       && (box[1]>=box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box[0];  section[2]=box[2];  section[1]=box[1];  section[3]=box[3]; return TRUE;}
-  
-  if ( (box[0]>box1[0])  && (box[2]<=box1[2]) 
-       && (box[1]>=box1[1]) && (box[1]<=box1[3]) && (box[3]>=box1[3]) )
-    {section[0]=box[0];  section[2]=box[2];  section[1]=box[1];  section[3]=box1[3]; return TRUE;}
-
-  if ( (box[0]>box1[0])  && (box[2]<=box1[2]) 
-       && (box[1]<box1[1]) &&  (box[3]>box1[3]) )
-    {section[0]=box[0];  section[2]=box[2];  section[1]=box1[1];  section[3]=box1[3];return TRUE;}
-  /*********************/ 
-  if ( (box[0]>box1[0]) && (box[0]<box1[2]) && (box[2]>=box1[2]) 
-       && (box[1]<box1[1]) && (box[3]>box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box[0];  section[2]=box1[2];  section[1]=box1[1];  section[3]=box[3]; return TRUE;}
-  
-  if ( (box[0]>box1[0]) && (box[0]<box1[2]) && (box[2]>=box1[2]) 
-       && (box[1]>=box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box[0];  section[2]=box1[2];  section[1]=box[1];  section[3]=box[3];return TRUE;}
-  
-  if ( (box[0]>box1[0]) && (box[0]<box1[2]) && (box[2]>=box1[2]) 
-       && (box[1]>=box1[1]) && (box[1]<=box1[3]) && (box[3]>=box1[3]) )
-    {section[0]=box[0];  section[2]=box1[2];  section[1]=box[1];  section[3]=box1[3];return TRUE;}
-
-  if ( (box[0]>box1[0]) && (box[0]<box1[2]) && (box[2]>=box1[2]) 
-       && (box[1]<box1[1]) &&  (box[3]>box1[3]) )
-    {section[0]=box[0];  section[2]=box1[2];  section[1]=box1[1];  section[3]=box1[3]; return TRUE;}
-  /*********************/  
-  if ( (box[0]<box1[0])  && (box[2]>box1[2]) 
-       && (box[1]<box1[1]) && (box[3]>box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box1[0];  section[2]=box1[2];  section[1]=box1[1];  section[3]=box[3];return TRUE;}
-  
-  if ( (box[0]<box1[0])  && (box[2]>box1[2])
-       && (box[1]>=box1[1]) && (box[3]<=box1[3]) )
-    {section[0]=box1[0];  section[2]=box1[2];  section[1]=box[1];  section[3]=box[3];return TRUE;}
-  
-  if ( (box[0]<box1[0])  && (box[2]>box1[2])
-       && (box[1]>=box1[1]) && (box[1]<=box1[3]) && (box[3]>=box1[3]) )
-    {section[0]=box1[0];  section[2]=box1[2];  section[1]=box[1];  section[3]=box1[3];return TRUE;}
-  return FALSE;
-
-}
 /*---------------------------------------------------------------------------------*/
 void pixelRubberBox(sciPointObj * pFigure, BOOL isClick, BOOL isZoom,
                     const int initialRect[4], int endRect[4], int * usedButton)
index 0b0b6e8..9d9831e 100644 (file)
@@ -192,7 +192,6 @@ int plot2dn(int ptype,char *logflags,double *x,double *y,int *n1,int *n2,int *st
   ppsubwin->FirstPlot = FALSE; /* just after strflag2axes_properties */
    
   with_leg= (strflag[0] == '1');
-  ppsubwin->with_leg = with_leg;
 
   /* F.Leray 07.10.04 : trigger algo to init. manual graduation u_xgrads and 
      u_ygrads if nax (in matdes.c which is == aaint HERE) was specified */
diff --git a/scilab/modules/graphics/src/c/Plo3d.c b/scilab/modules/graphics/src/c/Plo3d.c
deleted file mode 100644 (file)
index e07a6dd..0000000
+++ /dev/null
@@ -1,87 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 1998 - 2001 - ENPC - Jean-Philippe Chancelier
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/*------------------------------------------------------------------------
- *    Graphic library
- --------------------------------------------------------------------------*/
-
-#include <string.h> /* in case of dbmalloc use */
-#include <math.h>
-#include <stdio.h>
-#include "math_graphics.h"
-#include "PloEch.h"
-#include "GetProperty.h"
-#include "SetProperty.h"
-#include "DrawObjects.h"
-#include "Plo3d.h"
-#include "axesScale.h"
-#include "BasicAlgos.h"
-#include "sciprint.h"
-#include "Format.h"
-#include "CurrentObjectsManagement.h"
-
-#include "MALLOC.h" /* MALLOC */
-
-
-extern char GetDriver(void);
-extern int Check3DPlots(char *, int *);
-/*-------------------------------------------------------------------
- * functions for 3D scales 
- *-------------------------------------------------------------------*/
-
-
-/** Returns the [x,y,z] values of a point given its xbox or ybox indices **/
-
-void BBoxToval(double *x, double *y, double *z, int ind, double bbox[6] )
-{
-  switch ( ind)
-    {
-    case 0:    *x=bbox[0],*y=bbox[2],*z=bbox[4];break;
-    case 1:    *x=bbox[0],*y=bbox[3],*z=bbox[4];break;
-    case 2:    *x=bbox[1],*y=bbox[3],*z=bbox[4];break;
-    case 3:    *x=bbox[1],*y=bbox[2],*z=bbox[4];break;
-    case 4:    *x=bbox[0],*y=bbox[2],*z=bbox[5];break;
-    case 5:    *x=bbox[0],*y=bbox[3],*z=bbox[5];break;
-    case 6:    *x=bbox[1],*y=bbox[3],*z=bbox[5];break;
-    case 7:    *x=bbox[1],*y=bbox[2],*z=bbox[5];break;
-    }
-}
-
-/*---------------------------------------------------------------------------------
- *This function sorts the vertices such that the color value is in decreasing order
- *---------------------------------------------------------------------------------*/
-
-int  triangleSort(int *polyxin, int *polyyin, int *fillin, int *polyx, int *polyy, int *fill)
-{ 
-  int tmp,k;
-  for (k=0;k<3;k++) {polyx[k]=polyxin[k]; polyy[k]=polyyin[k]; fill[k]=Abs(fillin[k]);}
-      
-  if (fill[0]<fill[1]) {  
-    tmp=fill[0]; fill[0]=fill[1]; fill[1]=tmp;
-    tmp=polyx[0]; polyx[0]=polyx[1]; polyx[1]=tmp;
-    tmp=polyy[0]; polyy[0]=polyy[1]; polyy[1]=tmp;
-  }
-  if (fill[0]<fill[2]) {  
-    tmp=fill[0]; fill[0]=fill[2]; fill[2]=tmp;
-    tmp=polyx[0]; polyx[0]=polyx[2]; polyx[2]=tmp;
-    tmp=polyy[0]; polyy[0]=polyy[2]; polyy[2]=tmp;
-  }
-  if (fill[1]<fill[2]) {  
-    tmp=fill[1]; fill[1]=fill[2]; fill[2]=tmp;
-    tmp=polyx[1]; polyx[1]=polyx[2]; polyx[2]=tmp;
-    tmp=polyy[1]; polyy[1]=polyy[2]; polyy[2]=tmp;
-  }
-  return 0;
-}
-     
-
-
index 6205965..5f62034 100644 (file)
@@ -510,14 +510,6 @@ int sciSetGoodIndex(sciPointObj * pobj, int colorindex) /* return colorindex or
     return colorindex;
 }
 
-/**
- * This function must be used to set the background of model objects.
- */
-int sciInitMdlBackground( sciPointObj * pobj, int colorIndex )
-{
-  return sciInitBackground( pobj, colorIndex ) ;
-}
-
 int sciInitBackground( sciPointObj * pobj, int colorindex )
 {
   int m = sciGetNumColors(pobj);
@@ -558,13 +550,6 @@ sciSetBackground (sciPointObj * pobj, int colorindex)
 
 }
 
-/**
- * This function must be used to set the foreground of model objects.
- */
-int sciInitMdlForeground( sciPointObj * pObj, int colorIndex )
-{
-  return sciInitForeground( pObj, colorIndex ) ;
-}
 
 int sciInitForeground( sciPointObj * pobj, int colorindex )
 {
@@ -1991,10 +1976,6 @@ int sciInitNum( sciPointObj * pobj, int value )
     case SCI_FIGURE:
       pFIGURE_FEATURE(pobj)->number = value;
       break;
-    case SCI_SUBWIN:
-      pSUBWIN_FEATURE(pobj)->number = value;
-      sciSetNum(sciGetParentFigure (pobj), value);
-      break;
     default:
       printSetGetErrorMessage("figure_id");
       return -1 ;
@@ -2037,11 +2018,6 @@ int sciInitDimension( sciPointObj * pobj, int newWidth, int newHeight )
         return sciSetJavaFigureSize(pobj, size) ;
       }
       break;
-    case SCI_SUBWIN:
-      pSUBWIN_FEATURE (pobj)->windimwidth = newWidth ;
-      pSUBWIN_FEATURE (pobj)->windimheight = newHeight;
-      break;
-    case SCI_AGREG:
     default:
       printSetGetErrorMessage("size");
       return -1 ;
@@ -2149,75 +2125,6 @@ sciSetScreenPosition(sciPointObj * pobj, int pposx, int pposy)
 
 }
 
-int sciInitFigureIconify( sciPointObj * pobj, BOOL value )
-{
-  switch (sciGetEntityType (pobj))
-    {
-    case SCI_FIGURE:
-      pFIGURE_FEATURE (pobj)->isiconified = value;
-      break;
-    default:
-      return sciSetFigureIconify(sciGetCurrentFigure(), value);
-      break;
-    }
-  return 0 ;
-}
-
-/**sciSetFigureIconified
- * Minimizes or Restores the window if TRUE or FALSE (useful to get the Window on front)
- * @param sciPointObj * pobj: the pointer to the entity
- * @param BOOL value: TRUE the window will be iconify, FALSE the window will be raise
- * @return
- */
-int
-sciSetFigureIconify (sciPointObj * pobj, BOOL value)
-{
-  if ( sciGetIsFigureIconified( pobj ) == value )
-  {
-    return 1 ;
-  }
-  return sciInitFigureIconify( pobj, value ) ;
-
-}
-
-int sciInitSubWindowPos( sciPointObj * pobj, int *pposx, int *pposy)
-{
-  switch (sciGetEntityType (pobj))
-    {
-    case SCI_SUBWIN:
-      /* selectionner le xgc correspondant puis */
-      pSUBWIN_FEATURE (pobj)->infigureposx = *pposx;
-      pSUBWIN_FEATURE (pobj)->infigureposy = *pposy;
-      return 0;
-      /* C2F(setwindowpos)( width, height, PI0, PI0); */
-      break;
-    case SCI_AGREG:
-    default:
-      printSetGetErrorMessage("axes_size");
-      return -1;
-      break;
-    }
-}
-
-/**sciSetSubwindowPos
- * Sets subwindow position
- * @param sciPointObj * pobj: the pointer to the entity
- * @param int pposx: the pointer to the x position
- * @param int pposy: the pointer to the y position
- * @return  0 if OK , else -1
- * @version 0.1.
- **/
-int
-sciSetSubWindowPos (sciPointObj * pobj, int *pposx, int *pposy)
-{
-
-  if ( sciGetSubwindowPosX( pobj ) == *pposx && sciGetSubwindowPosY( pobj ) == *pposy  )
-  {
-    return 1 ;
-  }
-  return sciInitSubWindowPos( pobj, pposx, pposy ) ;
-}
-
 
 /*--------------------------------------------------------------------------*/
 /* sciSelectFirstSubwin                                                              */
@@ -2296,20 +2203,6 @@ int sciInitSelectedObject( sciPointObj * pObj )
   return 0 ;
 }
 /*-------------------------------------------------------------------------------*/
-/**
- * The object become selected within its siblings
- * For subwin object, use sciSetSelectedSubWin instead.
- */
-int sciSetSelectedObject( sciPointObj * pObj )
-{
-  if ( sciGetIsSelected(pObj) )
-  {
-    /* nothing to do */
-    return 1 ;
-  }
-  return sciInitSelectedObject( pObj ) ;
-}
-/*-------------------------------------------------------------------------------*/
 
 /**sciSetOriginalSubWin
  * DO NOT USE !!!
diff --git a/scilab/modules/graphics/src/c/deletePoints.c b/scilab/modules/graphics/src/c/deletePoints.c
deleted file mode 100644 (file)
index c5397eb..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - Allan Cornet
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/*--------------------------------------------------------------------------*/
-#include "deletePoints.h"
-/*--------------------------------------------------------------------------*/
-void deletePoints( void )
-{
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/graphics/src/c/deletePoints.h b/scilab/modules/graphics/src/c/deletePoints.h
deleted file mode 100644 (file)
index b4a8526..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - Allan Cornet
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-void deletePoints( void );
diff --git a/scilab/modules/graphics/src/c/fill_grid_rectangles.c b/scilab/modules/graphics/src/c/fill_grid_rectangles.c
deleted file mode 100644 (file)
index e70045d..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-/*--------------------------------------------------------------------------*/
-#include "fill_grid_rectangles.h"
-/*----------------------------------------------------------------------------------
- * draw a set of rectangles, provided here to accelerate GraySquare for X11 device 
- *  x : of size n1 gives the x-values of the grid 
- *  y : of size n2 gives the y-values of the grid 
- *  z : is the value of a function on the grid defined by x,y 
- *  on each rectangle the average value of z is computed 
- *----------------------------------------------------------------------------------*/
-void fill_grid_rectangles(int x[],int y[],double *z,int n1,int n2)
-{
-       /* TODO */
-}
-/*--------------------------------------------------------------------------*/
-/*----------------------------------------------------------------------------------
- * draw a set of rectangles, provided here to accelerate GraySquare1 for X11 device 
- *  x : of size n1 gives the x-values of the grid 
- *  y : of size n2 gives the y-values of the grid 
- *  z : of size (n1-1)*(n2-1)  gives the f-values on the middle 
- *  of each rectangle. 
- *  z[i,j] is the value on the middle of rectangle 
- *        P1= x[i],y[j] x[i+1],y[j+1]
- *----------------------------------------------------------------------------------*/
-void fill_grid_rectangles1(int *x, int *y, double *z,int n1,int n2)
-{
-       /* TODO */
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/graphics/src/c/fill_grid_rectangles.h b/scilab/modules/graphics/src/c/fill_grid_rectangles.h
deleted file mode 100644 (file)
index c1fb082..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-
-void fill_grid_rectangles(int x[],int y[],double *z,int n1,int n2);
-void fill_grid_rectangles1(int x[],int y[],double *z,int n1,int n2);
index 4a5d848..3c36c15 100644 (file)
@@ -25,6 +25,7 @@
 #include "returnProperty.h"
 #include "Scierror.h"
 #include "localization.h"
+#include "sciprint.h"
 /*------------------------------------------------------------------------*/
 
 int get_pixel_drawing_mode_property( sciPointObj * pobj )
diff --git a/scilab/modules/graphics/src/c/get_rgb.c b/scilab/modules/graphics/src/c/get_rgb.c
deleted file mode 100644 (file)
index 9765972..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "get_rgb.h"
-/*--------------------------------------------------------------------------*/
-void get_r(int i,float *r) 
-{
-
-}
-/*--------------------------------------------------------------------------*/
-void get_g(int i,float *g) 
-{
-
-}
-/*--------------------------------------------------------------------------*/
-void get_b(int i,float *b) 
-{
-  
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/graphics/src/c/get_rgb.h b/scilab/modules/graphics/src/c/get_rgb.h
deleted file mode 100644 (file)
index 760d522..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-void get_r(int i,float *r) ;
-void get_g(int i,float *g) ;
-void get_b(int i,float *b) ;
diff --git a/scilab/modules/graphics/src/c/getcolordef.c b/scilab/modules/graphics/src/c/getcolordef.c
deleted file mode 100644 (file)
index 123fd60..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "getcolordef.h"
-
-
-void getcolordef( int * screenc )
-{
-  screenc = 0;
-}
diff --git a/scilab/modules/graphics/src/c/getcolordef.h b/scilab/modules/graphics/src/c/getcolordef.h
deleted file mode 100644 (file)
index 735cce4..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/**
- * @TODO add comment
- *
- * @param screenc   
- */
-void getcolordef( int * screenc );
diff --git a/scilab/modules/graphics/src/c/getwindowdim.c b/scilab/modules/graphics/src/c/getwindowdim.c
deleted file mode 100644 (file)
index 35345da..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "getwindowdim.h"
-
-void C2F(getwindowdim) (int *verbose, int *x, int *narg, double *dummy)
-{     
-
-}
-
diff --git a/scilab/modules/graphics/src/c/getwindowdim.h b/scilab/modules/graphics/src/c/getwindowdim.h
deleted file mode 100644 (file)
index 435a60c..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "machine.h"
-
-void C2F(getwindowdim) (int *verbose, int *x, int *narg, double *dummy);
index 79e747f..2350868 100644 (file)
@@ -22,7 +22,6 @@
 #include "InitObjects.h"
 
 #include "getScilabJavaVM.h"
-#include "deletePoints.h"
 
 #include "GraphicSynchronizerInterface.h"
 
@@ -59,9 +58,6 @@ void closeGraphicModule( void )
 
   /* destroy default objects */
   destroyDefaultObjects() ;
-
-  /* deleteTemporary points points in peri***.c */
-  deletePoints() ;
   
   /* Delete synchronization data */
   destroyGraphicSynchronizer();
diff --git a/scilab/modules/graphics/src/c/graphicSession.c b/scilab/modules/graphics/src/c/graphicSession.c
deleted file mode 100644 (file)
index 4498e96..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-/*------------------------------------------------------------------------*/
-/* file: graphicSession.h                                                 */
-/* desc : routines to open and close graphic sessions. This is used to    */
-/*        prevent from opening more than one.                             */
-/*------------------------------------------------------------------------*/
-
-#include "graphicSession.h"
-
-/* boolean variable to know wether a session is opened */
-static BOOL isSessionOpened = FALSE ;
-
-/*--------------------------------------------------------------------------*/
-int openGraphicSession( void )
-{
-  if ( !isSessionOpened )
-  {
-     isSessionOpened = TRUE ;
-     return 0 ;
-  }
-  else
-  {
-    return 1 ;
-  }
-  return -1 ;
-}
-/*--------------------------------------------------------------------------*/
-int closeGraphicSession( void )
-{
-  if ( isSessionOpened )
-  {
-    isSessionOpened = FALSE ;
-    return 0 ;
-  }
-  else
-  {
-    return 1 ;
-  }
-  return -1 ;
-}
-/*--------------------------------------------------------------------------*/
-BOOL isGraphicSessionOpened( void )
-{
-  return isSessionOpened ;
-}
-/*--------------------------------------------------------------------------*/
index 68d2cb1..12dfc49 100644 (file)
@@ -78,48 +78,6 @@ void rotate2Dim( double from[2]   ,
   dest[1] = diff[0] * sinAngle + diff[1] * cosAngle + center[1] ;
 }
 /*----------------------------------------------------------------------------*/
-/* perform the rotation of point from to point dest given in int with angle in radian  */
-void iRotate2D( int from[2], int center[2], double angle, int dest[2] )
-{
-  iRotate2Dim( from, center, cos( angle ), sin( angle ), dest ) ;
-}
-
-/*----------------------------------------------------------------------------*/
-/* perform the rotation of point from to point to. */
-/* the angle is directly given with its sine and cosine for speed */
-void iRotate2Dim( int    from[2]   ,
-                  int    center[2] ,
-                  double cosAngle  ,
-                  double sinAngle  ,
-                  int    dest[2]    )
-{
-  int diff[2] ;
-
-  /* put the center to (0,0) */
-  diff[0] = from[0] - center[0] ;
-  diff[1] = from[1] - center[1] ;
-
-  /* turn and translate back */
-  dest[0] = round( diff[0] * cosAngle - diff[1] * sinAngle + center[0] ) ;
-  dest[1] = round( diff[0] * sinAngle + diff[1] * cosAngle + center[1] ) ;
-}
-/*----------------------------------------------------------------------------*/
-/* perform an homethety point from to point dest. The 2 factors stand for the ration */
-/* along the 2 coordinates */
-void homothety2D( double from[2], double center[2], double factors[2], double dest[2] )
-{
-  dest[0] = center[0] + factors[0] * ( from[0] - center[0] ) ;
-  dest[1] = center[1] + factors[1] * ( from[1] - center[1] ) ;
-}
-/*----------------------------------------------------------------------------*/
-/* perform an homethety point from to point dest given in pixels. */
-/* The 2 factors stand for the ration along the 2 coordinates */
-void iHomothety2D( int from[2], int center[2], double factors[2], int dest[2] )
-{
-  dest[0] = round( center[0] + factors[0] * ( from[0] - center[0] ) ) ;
-  dest[1] = round( center[1] + factors[1] * ( from[1] - center[1] ) ) ;
-}
-/*----------------------------------------------------------------------------*/
 /* perform the translation of point from to point to with vector trans */
 void translate2D( double from[2], double trans[2], double dest[2] )
 {
@@ -271,10 +229,3 @@ void mat4DMult(const double mat4D[4][4], const double vect3D[3], double res[3])
   res[2] = res4D[2] / res4D[3];
 }
 /*----------------------------------------------------------------------------*/
-/* check if two values can be considered equal given an accurracy */
-int safeEqual( double val1, double val2, double accuracy )
-{
-  /* the val1 == val2 is put to avoid division by 0 */
-  return ( val1 == val2 ) || ( Abs( val1 - val2 ) < accuracy * Max( Abs(val1), Abs(val2 ) ) ) ;
-}
-/*----------------------------------------------------------------------------*/
diff --git a/scilab/modules/graphics/src/c/nues1.c b/scilab/modules/graphics/src/c/nues1.c
deleted file mode 100644 (file)
index 1df3031..0000000
+++ /dev/null
@@ -1,689 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include <math.h>
-#include "machine.h"
-#include "math_graphics.h"
-
-
-static int nnuees(double *x, double *y, double *z, int *n, double *bx, double *by, double *bz, int *nbbary, int *chaine, int *ierr);
-
-static int heapi2(int *criter, int *record, int *n);
-static int bblocs(double *x, double *y, double *z, int *n, double *bx, double *by, double *bz, int *nbbary, int *chaine, int *ierr);
-int C2F(nues1)(double *xyz, int *n, double *bxyz, int *nbbary, int *chaine, int *ierr);
-
-/*------------------------------------------------------
- *------------------------------------------------------*/
-
-
-int C2F(nues1)(double *xyz, int *n, double *bxyz, int *nbbary, int *chaine, int *ierr)
-{
-  bblocs(xyz, xyz+(*n), xyz+2*(*n), n, bxyz, bxyz+(*nbbary), 
-        bxyz+2*(*nbbary), nbbary, chaine, ierr); 
-  nnuees(xyz, xyz+(*n), xyz+2*(*n), n, bxyz, bxyz+(*nbbary), 
-        bxyz+2*(*nbbary), nbbary, chaine, ierr); 
-  return 0;
-}
-
-/*------------------------------------------------------
- * entry : n points x,y,z 
- * nbbary : initial bary_centers bx,by,bz 
- * out : new nbbary bary_centers  bx,by,bz 
- * chaine(i) point on the barycenter whom  x(i),y(i),z(i)
- * belongs 
- *------------------------------------------------------*/
-
-static int nnuees(double *x, double *y, double *z, int *n, double *bx, double *by, double *bz, int *nbbary, int *chaine, int *ierr)
-{
-  int i1, i2;
-  double d1, d2, d3;
-  static double d;
-  static int i, k, l, m, iclas;
-  static int vvide;
-  static double id;
-  static int im;
-  static double ax[256], ay[256], az[256];
-  static int nn[256];
-  static double ix;
-  static int nbiter;
-  static double idx;
-  static int nnn;
-
-    /* Parameter adjustments */
-  --chaine;
-  --z;
-  --y;
-  --x;
-  --bz;
-  --by;
-  --bx;
-
-  *ierr = 0;
-  if (*nbbary > 256) 
-    {
-      /*     too many bary_center */
-      *ierr = 1;
-      return 0;
-    } 
-  else if (*n <= *nbbary) 
-    {
-      /*     number of bary_centers is greater than number of points */
-      i1 = *n;
-      for (i = 1; i <= i1; ++i) {
-       bx[i] = x[i];
-       by[i] = y[i];
-       bz[i] = z[i];
-       chaine[i] = i;
-      }
-      i1 = *nbbary;
-      for (i = *n + 1; i <= i1; ++i) {
-       bx[i] = (float)0.;
-       by[i] = (float)0.;
-       bz[i] = (float)0.;
-       chaine[i] = 0;
-      }
-      return 0;
-  }
-  /*     init des ancients bary_centres */
-  i1 = *nbbary;
-  for (i = 1; i <= i1; ++i) {
-    ax[i - 1] = bx[i];
-    ay[i - 1] = by[i];
-    az[i - 1] = bz[i];
-  }
-  /*     grande boucle d'iteration */
-  nbiter = 0;
- L9999:
-  ++nbiter;
-  /*     raz des nouveaux bary_centres */
-  i1 = *nbbary;
-  for (i = 1; i <= i1; ++i) {
-    bx[i] = (float)0.;
-    by[i] = (float)0.;
-    bz[i] = (float)0.;
-    nn[i - 1] = 0;
-  }
-
-  i1 = *n;
-  for (i = 1; i <= i1; ++i) {
-    idx = 1e30;
-    l = 0;
-    /*     pour tous les ancients bary_centres */
-    i2 = *nbbary;
-    for (k = 1; k <= i2; ++k) {
-      /* Computing 2nd power */
-      d1 = x[i] - ax[k - 1];
-      /* Computing 2nd power */
-      d2 = y[i] - ay[k - 1];
-      /* Computing 2nd power */
-      d3 = z[i] - az[k - 1];
-      ix = d1 * d1 + d2 * d2 + d3 * d3;
-      /*     on garde le bary_centre le plus proche du point */
-      if (ix < idx) {
-       l = k;
-       idx = ix;
-      }
-    }
-
-    if (l == 0) {
-      /*     can not find any bary center for that point */
-      chaine[i] = 0;
-      *ierr = 2;
-    }
-    /*     on affecte le point a la classe l des nouveaux bary_centres */
-    /*     ( le plus proche) */
-    /*     le ieme point de l'image index les points par l */
-    chaine[i] = l;
-    bx[l] += x[i];
-    by[l] += y[i];
-    bz[l] += z[i];
-    ++nn[l - 1];
-  }
-
-  i1 = *nbbary;
-  for (k = 1; k <= i1; ++k) {
-    if (nn[k - 1] != 0) {
-      bx[k] /= nn[k - 1];
-      by[k] /= nn[k - 1];
-      bz[k] /= nn[k - 1];
-    }
-  }
-
-  vvide = 0;
-  i1 = *nbbary;
-  for (k = 1; k <= i1; ++k) {
-    if (nn[k - 1] == 0) {
-    L7:
-      /*     k est une classe vide */
-      vvide = 1;
-      /*     on choisi la classe de plus grand nombre d'elements */
-      im = 0;
-      l = 1;
-      i2 = *nbbary;
-      for (m = 1; m <= i2; ++m) {
-       if (nn[m - 1] >= im) {
-         l = m;
-         im = nn[l - 1];
-       }
-      }
-      if (im <= 2) {
-       /*     on ne peut couper la classe */
-       bx[k] = (float)0.;
-       by[k] = (float)0.;
-       bz[k] = (float)0.;
-       vvide = 0;
-       /*     empty cluster */
-       goto L6;
-      }
-      /*     empty cluster ,k, :we cut in two the cluster ,l, with , nn(l), */
-      /*     elements */
-      nnn = nn[l - 1] / 2;
-      nn[l - 1] = nnn;
-      nn[k - 1] = nnn;
-      iclas = 1;
-      i2 = *n;
-      for (i = 1; i <= i2; ++i) {
-       if (chaine[i] == l) {
-         if (iclas == 1) {
-           bx[k] = x[i];
-           by[k] = y[i];
-           bz[k] = z[i];
-           chaine[i] = k;
-           ++iclas;
-         } else {
-           chaine[i] = 0;
-           bx[l] = x[i];
-           by[l] = y[i];
-           bz[l] = z[i];
-         }
-         idx = (d1 = bx[k] - bx[l], Abs(d1)) + (d2 = by[k] - 
-                                                by[l], Abs(d2)) + (d3 = bz[k] - bz[l], Abs(
-                                                                                           d3));
-         idx /= (d1 = bx[l], Abs(d1)) + (d2 = by[l], Abs(
-                                                         d2)) + (d3 = bz[l], Abs(d3));
-         if (idx > (float)1e-6) {
-           goto L6;
-         }
-       }
-      }
-      /*     cluster',l,'has not been cut */
-      nn[l - 1] = 1;
-      nn[k - 1] = 0;
-      goto L7;
-    }
-  L6:
-    ;
-  }
-
-  idx = (float)0.;
-  i1 = *nbbary;
-  for (k = 1; k <= i1; ++k) {
-    /* Computing 2nd power */
-    d1 = ax[k - 1] - bx[k];
-    /* Computing 2nd power */
-    d2 = ay[k - 1] - by[k];
-    /* Computing 2nd power */
-    d3 = az[k - 1] - bz[k];
-    id = d1 * d1 + d2 * d2 + d3 * d3;
-    idx = Max(idx,id);
-    ax[k - 1] = bx[k];
-    ay[k - 1] = by[k];
-    az[k - 1] = bz[k];
-  }
-
-  d = sqrt(idx);
-  /*     iteration suivante */
-  /*     teste pour iteration suivante */
-  if (d > (sqrt(nbiter) + (float)1.) || vvide) {
-    if (vvide) {
-      /*     empty cluster : we iterate */
-    }
-    /*     d maximum displacement of the bary centers */
-    goto L9999;
-  }
-  /*     d,'maximum displacement of the bary centers */
-  return 0;
-} 
-
-/*------------------------------------------------------
- *     en entree n points x,y,z 
- *     et nbbary = nombre de bary_centres desires 
- *     en sortie les nbbary bary_centres trouves  bx,by,bz 
- *     chaine(i) pointe sur le bary_centre auquel 
- *     le point x(i),y(i),z(i) appartient 
- *------------------------------------------------------*/
-
-static int bblocs(double *x, double *y, double *z, int *n, double *bx, double *by, double *bz, int *nbbary, int *chaine, int *ierr)
-{
-  /* System generated locals */
-  int i1, i2;
-  double d1, d2;
-
-  /* Local variables */
-  static int bmin[256], bmax[256], rang, dmax, kmin, tete[256], 
-    rmin[256], rmax[256], vmin[256], vmax[256], next, b, i, j, k, m, r,
-    v, w, itmax, histo[256];
-  static int bi, ri, nbbloc, vi, diagon[256], nbbouc;
-  static int manque;
-  static int weight, clasvo[256], icompt;
-  static double xma, yma, zma;
-  static int var;
-  static double xmi, ymi, zmi;
-
-  --chaine;
-  --z;
-  --y;
-  --x;
-  --bz;
-  --by;
-  --bx;
-
-  /* Function Body */
-  *ierr = 0;
-  if (*nbbary > 256) {
-    /*     le nombre de barycentres demande est trop grand */
-    *ierr = 1;
-    return 0;
-  } else if (*n <= *nbbary) {
-    i1 = *n;
-    for (i = 1; i <= i1; ++i) {
-      bx[i] = x[i];
-      by[i] = y[i];
-      bz[i] = z[i];
-      chaine[i] = i;
-      /* L204: */
-    }
-    i1 = *nbbary;
-    for (i = *n + 1; i <= i1; ++i) {
-      bx[i] = (float)0.;
-      by[i] = (float)0.;
-      bz[i] = (float)0.;
-      chaine[i] = i;
-    }
-    return 0;
-  }
-
-  /*     initialisations */
-  xmi = x[1];
-  xma = x[1];
-  ymi = y[1];
-  yma = y[1];
-  zmi = z[1];
-  zma = z[1];
-
-  i1 = *n;
-  for (i = 1; i <= i1; ++i) {
-    /* Computing MIN */
-    d1 = xmi, d2 = x[i];
-    xmi = Min(d1,d2);
-    /* Computing MAX */
-    d1 = xma, d2 = x[i];
-    xma = Max(d1,d2);
-    /* Computing MIN */
-    d1 = ymi, d2 = y[i];
-    ymi = Min(d1,d2);
-    /* Computing MAX */
-    d1 = yma, d2 = y[i];
-    yma = Max(d1,d2);
-    /* Computing MIN */
-    d1 = zmi, d2 = z[i];
-    zmi = Min(d1,d2);
-    /* Computing MAX */
-    d1 = zma, d2 = z[i];
-    zma = Max(d1,d2);
-    chaine[i] = i + 1;
-  }
-  if (xmi == xma) {
-    xma += (float)1.;
-  }
-  if (ymi == yma) {
-    yma += (float)1.;
-  }
-  if (zmi == zma) {
-    zma += (float)1.;
-  }
-  chaine[*n] = 0;
-  i1 = *nbbary;
-  for (i = 1; i <= i1; ++i) {
-    rmin[i - 1] = 256;
-    vmin[i - 1] = 256;
-    bmin[i - 1] = 256;
-    rmax[i - 1] = 0;
-    vmax[i - 1] = 0;
-    bmax[i - 1] = 0;
-    tete[i - 1] = 0;
-    bx[i] = 0.;
-    by[i] = 0.;
-    bz[i] = 0.;
-  }
-  tete[0] = 1;
-
-/*     recherche et concentration du premier bloc */
-/*     initialisation du chainage */
-
-  rmin[0] = 0;
-  vmin[0] = 0;
-  bmin[0] = 0;
-  rmax[0] = 256;
-  vmax[0] = 256;
-  bmax[0] = 256;
-
-/*     recherche du nombre d'iterations a effectuer */
-
-  itmax = 1;
-  for (i = 1; i <= 9; ++i) {
-    itmax <<= 1;
-    if (itmax > *nbbary) {
-      itmax = i - 1;
-      goto L31;
-    }
-  }
-  /*     division des blocs en blocs plus petits */
-  /*     initialisation */
-L31:
-  manque = 1;
-  nbbloc = 1;
-  rang = 1;
-  /*     boucle de division */
-  i1 = itmax + 1;
-  for (nbbouc = 1; nbbouc <= i1; ++nbbouc) {
-    /*     ajustement du nombre de boucles / a une puissance de 2 */
-  L32:
-    if (nbbouc > itmax) {
-      rang = *nbbary - nbbloc;
-      if (rang <= 0) {
-       goto L100;
-      }
-      /*     classement des rang bary manquants */
-      i2 = nbbloc;
-      for (j = 1; j <= i2; ++j) {
-       diagon[j - 1] = rmax[j - 1] - rmin[j - 1] + (vmax[j - 1] - 
-                                                    vmin[j - 1]) + (bmax[j - 1] - bmin[j - 1]);
-       clasvo[j - 1] = j;
-      }
-      heapi2(diagon, clasvo, &nbbloc);
-      manque = 0;
-    }
-    m = nbbloc;
-    i = 0;
-    icompt = 1;
-  L60:
-    if (icompt <= rang) {
-      if (manque==1) {
-       ++i;
-      } else {
-       if (diagon[m - 1] == 0) {
-         goto L32;
-       }
-       i = clasvo[m - 1];
-       --m;
-      }
-      /*     division du bloc 1 */
-      /*     recherche de la plus grande dimention */
-      r = rmax[i - 1] - rmin[i - 1];
-      v = vmax[i - 1] - vmin[i - 1];
-      b = bmax[i - 1] - bmin[i - 1];
-      if (r == 0 && v == 0 && b == 0) {
-       goto L110;
-      }
-      if (r >= v) {
-       if (r >= b) {
-         dmax = 1;
-       } else {
-         dmax = 3;
-       }
-      } else {
-       if (v >= b) {
-         dmax = 2;
-       } else {
-         dmax = 3;
-       }
-      }
-      weight = 0;
-      /*     calcul de l'histogramme suivant cette dimention */
-      for (j = 1; j <= 256; ++j) {
-       histo[j - 1] = 0;
-      }
-      j = tete[i - 1];
-      switch ((int)dmax) {
-      case 1:  goto L1;
-      case 2:  goto L2;
-      case 3:  goto L3;
-      }
-    L1:
-      if (j != 0) {
-       ri = (int)  ((x[j] - xmi) * 255 / (xma - xmi) + 1);
-       ++histo[ri - 1];
-       ++weight;
-       j = chaine[j];
-       goto L1;
-      }
-      goto L4;
-    L2:
-      if (j != 0) {
-       vi = (int)  ((y[j] - ymi) * 255 / (yma - ymi) + 1);
-       ++histo[vi - 1];
-       ++weight;
-       j = chaine[j];
-       goto L2;
-      }
-      goto L4;
-    L3:
-      if (j != 0) {
-       bi = (int)  ((z[j] - zmi) * 255 / (zma - zmi) + 1);
-       ++histo[bi - 1];
-       ++weight;
-       j = chaine[j];
-       goto L3;
-      }
-    L4:
-      /*     division du bloc suivant l'histogramme */
-      weight /= 2;
-      switch ((int)dmax) {
-      case 1:  goto L13;
-      case 2:  goto L14;
-      case 3:  goto L15;
-      }
-    L13:
-      k = rmin[i - 1];
-      goto L16;
-    L14:
-      k = vmin[i - 1];
-      goto L16;
-    L15:
-      k = bmin[i - 1];
-    L16:
-      kmin = k + 1;
-      w = 0;
-    L5:
-      if (w <= weight) {
-       ++k;
-       w += histo[k - 1];
-       goto L5;
-      }
-      if (k <= kmin) {
-       ++k;
-      }
-      /*     reinitialisation des parametres du bloc divise */
-      rmax[i - 1] = 0;
-      vmax[i - 1] = 0;
-      bmax[i - 1] = 0;
-      rmin[i - 1] = 256;
-      vmin[i - 1] = 256;
-      bmin[i - 1] = 256;
-      ++nbbloc;
-      /*     mise a jour des chainages */
-      /*     recompactage des blocs eclates */
-      j = tete[i - 1];
-      tete[i - 1] = 0;
-      tete[nbbloc - 1] = 0;
-    L6:
-      if (j != 0) {
-       next = chaine[j];
-       ri = (int)  ((x[j] - xmi) * 255 / (xma - xmi));
-       vi = (int)  ((y[j] - ymi) * 255 / (yma - ymi));
-       bi = (int)  ((z[j] - zmi) * 255 / (zma - zmi));
-       switch ((int)dmax) {
-       case 1:  goto L7;
-       case 2:  goto L8;
-       case 3:  goto L9;
-       }
-      L7:
-       var = ri + 1;
-       goto L11;
-      L8:
-       var = vi + 1;
-       goto L11;
-      L9:
-       var = bi + 1;
-      L11:
-       if (var >= k) {
-         chaine[j] = tete[nbbloc - 1];
-         tete[nbbloc - 1] = j;
-         /* Computing MAX */
-         i2 = rmax[nbbloc - 1];
-         rmax[nbbloc - 1] = Max(i2,ri);
-         /* Computing MAX */
-         i2 = vmax[nbbloc - 1];
-         vmax[nbbloc - 1] = Max(i2,vi);
-         /* Computing MAX */
-         i2 = bmax[nbbloc - 1];
-         bmax[nbbloc - 1] = Max(i2,bi);
-         /* Computing MIN */
-         i2 = rmin[nbbloc - 1];
-         rmin[nbbloc - 1] = Min(i2,ri);
-         /* Computing MIN */
-         i2 = vmin[nbbloc - 1];
-         vmin[nbbloc - 1] = Min(i2,vi);
-         /* Computing MIN */
-         i2 = bmin[nbbloc - 1];
-         bmin[nbbloc - 1] = Min(i2,bi);
-       } else {
-         chaine[j] = tete[i - 1];
-         tete[i - 1] = j;
-         /* Computing MAX */
-         i2 = rmax[i - 1];
-         rmax[i - 1] = Max(i2,ri);
-         /* Computing MAX */
-         i2 = vmax[i - 1];
-         vmax[i - 1] = Max(i2,vi);
-         /* Computing MAX */
-         i2 = bmax[i - 1];
-         bmax[i - 1] = Max(i2,bi);
-         /* Computing MIN */
-         i2 = rmin[i - 1];
-         rmin[i - 1] = Min(i2,ri);
-         /* Computing MIN */
-         i2 = vmin[i - 1];
-         vmin[i - 1] = Min(i2,vi);
-         /* Computing MIN */
-         i2 = bmin[i - 1];
-         bmin[i - 1] = Min(i2,bi);
-       }
-       j = next;
-       goto L6;
-      }
-    L110:
-      ++icompt;
-      goto L60;
-    }
-    rang <<= 1;
-  }
-
-  /*     calcul des bary_centres */
-
-L100:
-  i1 = *nbbary;
-  for (i = 1; i <= i1; ++i) {
-    j = tete[i - 1];
-    weight = 0;
-  L12:
-    if (j != 0) {
-      bx[i] += x[j];
-      by[i] += y[j];
-      bz[i] += z[j];
-      ++weight;
-      k = j;
-      j = chaine[j];
-      chaine[k] = i;
-      goto L12;
-    }
-    bx[i] /= weight;
-    by[i] /= weight;
-    bz[i] /= weight;
-  }
-  return 0;
-} 
-
-
-
-
-/*------------------------------------------------------
- *     trie selon les valeurs de criter croissantes 
- *     record suit le reordonnancement 
- *------------------------------------------------------*/
-
-static int heapi2(int *criter, int *record, int *n)
-{
-  static int crit, i, j, l, r, rec;
-  --record;
-  --criter;
-  if (*n <= 1) return 0;
-
-  l = *n / 2 + 1;
-  r = *n;
- L2:
-  if (l <= 1)  goto L20;
-  --l;
-  rec = record[l];
-  crit = criter[l];
-  goto L3;
-L20:
-  rec = record[r];
-  crit = criter[r];
-  record[r] = record[1];
-  criter[r] = criter[1];
-  --r;
-  if (r == 1)  goto L999;
- L3:
-  j = l;
- L4:
-  i = j;
-  j <<= 1;
-  if (j - r < 0) {
-    goto L5;
-  } else if (j == r) {
-    goto L6;
-  } else {
-    goto L8;
-  }
- L5:
-  if (criter[j] < criter[j + 1]) {
-    ++j;
-  }
- L6:
-  if (crit >= criter[j]) {
-    goto L8;
-  }
-  record[i] = record[j];
-  criter[i] = criter[j];
-  goto L4;
- L8:
-  record[i] = rec;
-  criter[i] = crit;
-  goto L2;
-L999:
-  record[1] = rec;
-  criter[1] = crit;
-  return 0;
-} 
-
index 5272efd..093cad9 100644 (file)
@@ -59,9 +59,7 @@ void Objrect ( double * x         ,
                int    * background,
                BOOL     isfilled  ,
                BOOL     isline    ,
-               int      n         ,
-               long   * hdl       ,
-               BOOL     flagstring )
+               long   * hdl       )
 {
   sciPointObj * newObj = NULL ;
   sciPointObj *psubwin;
@@ -70,8 +68,8 @@ void Objrect ( double * x         ,
   psubwin = sciGetCurrentSubWin();
   /* check if the auto_clear property is on and then erase everything */
   checkRedrawing() ;
-  newObj = ConstructRectangle(psubwin ,*x,*y,*height, *width, 0, 0,
-                              foreground, background, isfilled, isline, n, flagstring) ;
+  newObj = ConstructRectangle(psubwin ,*x,*y,*height, *width,
+                              foreground, background, isfilled, isline) ;
     
   if ( newObj == NULL )
   {
index ca1400f..304853d 100644 (file)
@@ -44,26 +44,11 @@ int GetDriverId( void )
        return 0;
 }
 /*--------------------------------------------------------------------------*/
-int CheckClickQueue(int *win,int *x,int *y,int *ibut,int *motion,int *release)
-{
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
 void scig_unzoom(int win_num)
 {
 
 }
 /*--------------------------------------------------------------------------*/
-void set_wait_click(int val)
-{
-
-}
-/*--------------------------------------------------------------------------*/
-int ClearClickQueue(int win)
-{
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
 int sciSetViewport( sciPointObj * pObj, int xSize, int ySize )
 {
        return 0;
@@ -124,21 +109,6 @@ void delete_sgwin_entities(int win_num)
 
 }
 /*--------------------------------------------------------------------------*/
-Scig_deletegwin_handler get_scig_deletegwin_handler ( void )
-{
-       return NULL;
-}
-/*--------------------------------------------------------------------------*/
-void set_event_select(int val)
-{
-
-}
-/*--------------------------------------------------------------------------*/
-int C2F(entier2d)( int * n, double * dx,int * s )
-{
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
 void scig_sel(int win_num)
 {
 
@@ -160,11 +130,6 @@ void DeleteObjs(int win_num)
 
 }
 /*--------------------------------------------------------------------------*/
-int PushClickQueue (int win,int x,int y,int ibut,int motion,int release)
-{
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
 BOOL sciHasFigures( void )
 {
   return FALSE;
index 8dc835d..19bb64b 100644 (file)
@@ -54,7 +54,7 @@ void sciDrawObj( sciPointObj * pObj )
   /* we need to recreate a new one */
   getHandleDrawer(pObj)->hasChanged() ;
   /* redisplay everything, including this handle */
-  getHandleDrawer( sciGetParentFigure( pObj ) )->display() ;
+  getFigureDrawer( sciGetParentFigure( pObj ) )->forceDisplay() ;
 }
 /*---------------------------------------------------------------------------------*/
 void sciMoveObj(sciPointObj * pObj, const double translation[3])
@@ -62,7 +62,7 @@ void sciMoveObj(sciPointObj * pObj, const double translation[3])
   /* Specify that the object has moved */
   forceMove(pObj, translation[0], translation[1], translation[2]);
   /* redisplay everything, including this handle */
-  getHandleDrawer( sciGetParentFigure( pObj ) )->display() ;
+  getFigureDrawer( sciGetParentFigure( pObj ) )->forceDisplay() ;
 }
 /*---------------------------------------------------------------------------------*/
 void sciDrawSingleObj( sciPointObj * pObj )
@@ -105,7 +105,7 @@ void redrawHierarchy( sciPointObj * pObj )
   forceHierarchyRedraw(pObj);
 
   /* redisplay everything, including this handle */
-  getHandleDrawer( sciGetParentFigure( pObj ) )->display() ;
+  getFigureDrawer( sciGetParentFigure( pObj ) )->forceDisplay() ;
 }
 /*---------------------------------------------------------------------------------*/
 void forceHierarchyRedraw( sciPointObj * pObj )
index 49deec6..de77aa2 100644 (file)
@@ -45,7 +45,7 @@ void ConcreteDrawableFigure::drawSingleObjs(list<sciPointObj *>& singleObjects)
 
   // launch display
   // displaySingleObject will be called
-  display();
+  forceDisplay();
 
   // restore normal mode
   m_oSingleObjects.clear();
index aef7dcd..05ad7aa 100644 (file)
@@ -104,7 +104,7 @@ void DrawableFigure::drawBackground(void)
   getFigureImp()->drawBackground();
 }
 /*---------------------------------------------------------------------------------*/
-void DrawableFigure::drawInContext( void )
+DrawableObject::EDisplayStatus DrawableFigure::draw( void )
 {
   
   // retest on auto_redraw
@@ -136,6 +136,7 @@ void DrawableFigure::drawInContext( void )
     endDrawing() ;
 
   }
+       return SUCCESS;
   //clock_gettime(0, &t_t3);
 
   //double timeSpent = (double) (t_toc.tv_sec - t_tic.tv_sec) + (double) (t_toc.tv_nsec - t_tic.tv_nsec) * 1.0E-9;
@@ -143,14 +144,6 @@ void DrawableFigure::drawInContext( void )
 
 }
 /*---------------------------------------------------------------------------------*/
-void DrawableFigure::redrawInContext( void )
-{
-  // force update of all the graphic hierarchy
-  familyHasChanged();
-  // draw as usual
-  //drawInContext();
-}
-/*---------------------------------------------------------------------------------*/
 void DrawableFigure::redrawSubwins(void)
 {
   // just call the function on children
@@ -165,19 +158,18 @@ void DrawableFigure::redrawSubwins(void)
   }
 }
 /*---------------------------------------------------------------------------------*/
-DrawableObject::EDisplayStatus DrawableFigure::draw( void )
+void DrawableFigure::forceDisplay( void )
 { 
   if ( !checkAutoRedraw() && !isDisplayingSingleObject() )
   {
     // if a single object is available this override drawlater()/ drawnow()
-    return UNCHANGED;
+    return;
   }
 
   // make sure the context is created
  
   //clock_gettime(0, &t_t1);
   drawCanvas() ;
-  return SUCCESS;
   //clock_gettime(0, &t_t4);
 
 //   double aa = (double) (t_t4.tv_sec - t_t1.tv_sec)
index 4dcbff4..980dcef 100644 (file)
@@ -34,19 +34,12 @@ public:
   virtual ~DrawableFigure( void ) ;
 
   /**
-   * Real operations to draw the figure.
-   * Can only be called within the OpenGL thread
+   * Force display of the graphic window from the Scilab thread.
    */
-  virtual void drawInContext( void ) ;
+  virtual void forceDisplay( void ) ;
 
   /**
-   * redraw all the figure and all its children
-   * Can only be called within the OpenGL thread
-   */
-  void redrawInContext( void );
-
-  /**
-   * Redraw all subwindows contained in the figure.
+   * Force a future redraw all subwindows contained in the figure.
    */
   void redrawSubwins( void );
 
@@ -153,7 +146,7 @@ public:
    * Set the figure title
    * @param[in] title the figure title
    */
-  void setTitle(const char * title);
+   void setTitle(const char * title);
 
   /**
    * Get current displacement in the graphic window, to be used for axes rotation.
index 7f882be..c5d2229 100644 (file)
@@ -37,7 +37,7 @@ void displayFigure(int figureId)
   }
 
   startFigureDataDisplaying(curFig);
- (sciGraphics::getFigureDrawer(curFig))->drawInContext() ;
+ (sciGraphics::getFigureDrawer(curFig))->display() ;
   endFigureDataDisplaying(curFig);
 }
 /*--------------------------------------------------------------------------*/
@@ -55,7 +55,7 @@ void redrawFigure(int figureId)
   }
 
   startFigureDataDisplaying(curFig);
-  (sciGraphics::getFigureDrawer(curFig))->redrawInContext() ;
+  (sciGraphics::getFigureDrawer(curFig))->familyHasChanged();
   endFigureDataDisplaying(curFig);
 }
 /*--------------------------------------------------------------------------*/
index fe162c1..4e5b2c0 100644 (file)
@@ -162,7 +162,7 @@ void scoInitOfWindow(ScopeMemory * pScopeMemory, int dimension, int win_id, int
             /*sciSetDim(pTemp, &win_dim[0], &win_dim[1]);
             sciSetDim(pTemp2, &win_dim[0], &win_dim[1]);*/
                   sciSetDimension(pTemp, win_dim[0], win_dim[1]);
-                  sciSetDimension(pTemp2,win_dim[0], win_dim[1]);
+                  /*sciSetDimension(pTemp2,win_dim[0], win_dim[1]);*/
           }
         }
 
@@ -890,7 +890,7 @@ void scoAddCoupleOfSpheres(ScopeMemory * pScopeMemory, double * radius, int * co
 scoGraphicalObject scoCreateRectangle(scoGraphicalObject pAxes, double x, double y, double width, double height)
 {
   scoGraphicalObject pRectangle;
-  pRectangle = ConstructRectangle(pAxes,x,y,height,width,0,0,NULL,NULL,0,1,0,FALSE);
+  pRectangle = ConstructRectangle(pAxes,x,y,height,width,0,0,NULL,NULL,0,1);
   return pRectangle;
 }