[BACK]Return to ifplot.h CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / plot

Diff for /OpenXM_contrib2/asir2000/plot/ifplot.h between version 1.1 and 1.26

version 1.1, 1999/12/03 07:39:13 version 1.26, 2018/03/29 01:32:55
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/asir99/plot/ifplot.h,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */  /*
 #if defined(THINK_C)   * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
 #include        <QuickDraw.h>   * All rights reserved.
 #include        <Windows.h>   *
 #include        <Events.h>   * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
 #include        <OSUtils.h>   * non-exclusive and royalty-free license to use, copy, modify and
 #include        <ToolUtils.h>   * redistribute, solely for non-commercial and non-profit purposes, the
 #include        <Fonts.h>   * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
 /* #include        <Strings.h> */   * conditions of this Agreement. For the avoidance of doubt, you acquire
    * only a limited right to use the SOFTWARE hereunder, and FLL or any
    * third party developer retains all rights, including but not limited to
    * copyrights, in and to the SOFTWARE.
    *
    * (1) FLL does not grant you a license in any way for commercial
    * purposes. You may use the SOFTWARE only for non-commercial and
    * non-profit purposes only, such as academic, research and internal
    * business use.
    * (2) The SOFTWARE is protected by the Copyright Law of Japan and
    * international copyright treaties. If you make copies of the SOFTWARE,
    * with or without modification, as permitted hereunder, you shall affix
    * to all such copies of the SOFTWARE the above copyright notice.
    * (3) An explicit reference to this SOFTWARE and its copyright owner
    * shall be made on your publication or presentation in any form of the
    * results obtained by use of the SOFTWARE.
    * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
    * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
    * for such modification or the source code of the modified part of the
    * SOFTWARE.
    *
    * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
    * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
    * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
    * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
    * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
    * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
    * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
    * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
    * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
    * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
    * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
    * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
    * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
    * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
    * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
    * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
    * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
    *
    * $OpenXM: OpenXM_contrib2/asir2000/plot/ifplot.h,v 1.25 2017/09/04 01:57:53 noro Exp $
   */
   #if defined(VISUAL) || defined(__MINGW32__)
   /* for Visual C++ */
   #include <windows.h>
 #else  #else
 #include <sys/types.h>  #include <sys/types.h>
 #include <X11/Xlib.h>  #include <X11/Xlib.h>
Line 43 
Line 86 
 #define C_APLOT C_PRIV+7  #define C_APLOT C_PRIV+7
 #define C_DRAWCIRCLE C_PRIV+8  #define C_DRAWCIRCLE C_PRIV+8
   
 #define MAXCANVAS 16  #define MAXCANVAS 64
 #define MAXGC 16  #define MAXGC 16
 #if defined(THINK_C)  #define DEFAULTPOLARSTEP 400
 #define DEFAULTWIDTH 200  
 #define DEFAULTHEIGHT 200  
 #else  
 #define DEFAULTWIDTH 400  #define DEFAULTWIDTH 400
 #define DEFAULTHEIGHT 400  #define DEFAULTHEIGHT 400
 #endif  
   
 #define MODE_IFPLOT 0  #define IFPLOT "ifplot"
 #define MODE_CONPLOT 1  #define CONPLOT "conplot"
 #define MODE_PLOT 2  #define PLOT "plot"
   #define INTERACTIVE "interactive"
   #define POLARPLOT "polarplot"
   #define POLARPLOTD "polarplotD"
   #define PLOTOVER "plotover"
   #define IFPLOTD "ifplotD"
   #define IFPLOTQ "ifplotQ"
   #define IFPLOTB "ifplotB"
   #define INEQN "ineqn"
   #define INEQND "ineqnD"
   #define INEQNQ "ineqnQ"
   #define INEQNB "ineqnB"
   #define INEQNAND "ineqnand"
   #define INEQNDAND "ineqnDand"
   #define INEQNQAND "ineqnQand"
   #define INEQNBAND "ineqnBand"
   #define INEQNOR "ineqnor"
   #define INEQNDOR "ineqnDor"
   #define INEQNQOR "ineqnQor"
   #define INEQNBOR "ineqnBor"
   #define INEQNXOR "ineqnxor"
   #define INEQNDXOR "ineqnDxor"
   #define INEQNQXOR "ineqnQxor"
   #define INEQNBXOR "ineqnBxor"
   #define CONPLOTD "conplotD"
   #define CONPLOTQ "conplotQ"
   #define CONPLOTB "conplotB"
   #define ITVIFPLOT "itvifplot"
   #define PLOTOVERD "plotoverD"
   #define PLOTOVERQ "plotoverQ"
   #define PLOTOVERB "plotoverB"
   #define MEMORY_IFPLOT "memory_ifplot"
   #define MEMORY_CONPLOT "memory_conplot"
   #define MEMORY_PLOT "memory_plot"
   #define ARRAYPLOT "arrayplot"
   #define OPEN_CANVAS "open_canvas"
   #define DRAWCIRCLE "drawcircle"
   #define DRAW_OBJ "draw_obj"
   #define DRAW_STRING "draw_string"
   #define OBJ_CP "obj_cp"
   #define CLEAR_CANVAS "clear_canvas"
   
   /*
   #define IFPLOT 0
   #define CONPLOT 1
   #define PLOT 2
   #define INTERACTIVE 3
   #define POLARPLOT 4
   #define PLOTOVER 5
   #define IFPLOTD 6
   #define IFPLOTQ 7
   #define IFPLOTB 8
   #define INEQND 9
   #define INEQNQ 10
   #define INEQNB 11
   #define INEQNANDD 12
   #define INEQNANDQ 13
   #define INEQNANDB 14
   #define INEQNORD 15
   #define INEQNORQ 16
   #define INEQNORB 17
   #define INEQNXORD 18
   #define INEQNXORQ 19
   #define INEQNXORB 20
   #define CONPLOTD 21
   #define CONPLOTQ 22
   #define CONPLOTB 23
   #define ITVIFPLOT 24
   #define PLOTOVERD 25
   #define PLOTOVERQ 26
   #define PLOTOVERB 27
   #define MEMORY_IFPLOT 28
   #define MEMORY_CONPLOT 29
   #define MEMORY_PLOT 30
   #define ARRAYPLOT 31
   #define OPEN_CANVAS 32
   #define DRAWCIRCLE 33
   #define DRAW_OBJ 34
   #define DRAW_STRING 35
   #define OBJ_CP 36
   #define CLEAR_CANVAS 37
   #define POLARPLOTD 38
   */
   
 #define DIR_X 0  #define DIR_X 0
 #define DIR_Y 1  #define DIR_Y 1
 #define DIR_Z 2  #define DIR_Z 2
   
 #if defined(THINK_C)  #if defined(VISUAL) || defined(__MINGW32__)
 #define COPYBITS  /* for Visual C++ */
   #define XC(a) ((a).x)
 #define POINT Point  #define YC(a) ((a).y)
 #define XC(a) ((a).h)  
 #define YC(a) ((a).v)  
 #define DRAWPOINT(d,p,g,x,y) MoveTo(x,y); Line(0,0)  
 #define DRAWLINE(d,p,g,x,y,u,v) MoveTo(x,y); LineTo(u,v)  
 #define DRAWSTRING(d,p,g,x,y,s,l) MoveTo(x,y); DrawText(s,0,l)  
 #define TEXTWIDTH(f,s,l) TextWidth(s,0,l)  
 #define DISPLAY int  #define DISPLAY int
 #define WINDOW WindowPtr  #define WINDOW void *
 #define CURSOR CursHandle  #define CURSOR int
 #ifndef COPYBITS  #define DRAWABLE HDC
 #define DRAWABLE PicHandle  
   /* XXX : use GC argument as the color */
   #define DRAWPOINT(d,p,g,x,y) SetPixel(p,x,y,0)
   
   #define DRAWLINE(d,p,g,x,y,u,v) MoveToEx(p,x,y,&oldpos); LineTo(p,u,v)
   #define DRAWSTRING(d,p,g,x,y,s,l) TextOut(p,x,y,s,l)
   /* #define TEXTWIDTH(f,s,l) */
 #else  #else
 #define DRAWABLE BitMap  /* for UNIX */
 #endif  
 #else  
 #define POINT XPoint  #define POINT XPoint
 #define XC(a) ((a).x)  #define XC(a) ((a).x)
 #define YC(a) ((a).y)  #define YC(a) ((a).y)
Line 94 
Line 213 
 #endif  #endif
   
 struct pa {  struct pa {
         int length;    int length;
         POINT *pos;    POINT *pos;
 };  };
   
   typedef struct RealVect {
     int len;
     int body[1];
   } RealVect;
   
   #define MKRVECT2(v,x,y)\
   ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+sizeof(int)),\
    (v)->len=2,(v)->body[0]=(x),(v)->body[1]=(y))
   #define MKRVECT3(v,x,y,z)\
   ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+2*sizeof(int)),\
    (v)->len=3,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z))
   #define MKRVECT4(v,x,y,z,u)\
   ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+3*sizeof(int)),\
    (v)->len=4,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z),(v)->body[3]=(u))
   #define MKRVECT5(v,x,y,z,u,w)\
   ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+4*sizeof(int)),\
    (v)->len=4,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z),(v)->body[3]=(u),(v)->body[4]=(w))
   
   #define RV_POINT 1
   #define RV_LINE 2
   #define RV_ARC 3
   
 struct canvas {  struct canvas {
         int index;    int index;
 #if defined(THINK_C)  #if defined(VISUAL) || defined(__MINGW32__)
         Rect rect;  /* for Visual C++ */
         WindowRecord record;    void *window; /* pointer to CMainFrame */
         WindowPtr window;    HWND hwnd; /* handle to the canvas window */
 #ifndef COPYBITS    HDC pix; /* shadow DC on memory */
         PicHandle pix;    char *prefix;
     int percentage;
     struct canvas *real_can;
 #else  #else
         BitMap pix,wbits;    Widget shell,xcoord,ycoord,xdone,ydone,level,wideb,preciseb,noaxisb;
         RgnHandle rgnsav;    Window window;
     Pixmap pix;
 #endif  #endif
 #else    char *wname;
         Widget shell,xcoord,ycoord,xdone,ydone,level,wideb,preciseb,noaxisb;    int mode;
         Window window;    char wide;
         Pixmap pix;    char precise;
 #endif    char noaxis;
         char *wname;    V vx,vy;
         char mode;    P formula;
         char wide;    int width,height;
         char precise;    double xmin,xmax;
         char noaxis;    double ymin,ymax;
         V vx,vy;    double zmin,zmax;
         P formula;    double vmin,vmax;
         int width,height;    int nzstep;
         double xmin,xmax;    Q qxmin,qxmax;
         double ymin,ymax;    Q qymin,qymax;
         double zmin,zmax;    struct pa *pa;
         int nzstep;    /* to register the history in the interactive mode */
         Q qxmin,qxmax;    NODE history;
         Q qymin,qymax;    unsigned int color;
         struct pa *pa;    int division;
     int prec;
 };  };
   
 extern struct canvas *canvas[];  extern struct canvas *canvas[];
   extern struct canvas *closed_canvas[];
 extern struct canvas *current_can;  extern struct canvas *current_can;
   extern char* pfn[];
   
 #ifdef INET  #if defined(INTERVAL)
   extern int Itvplot;
   #endif
   
 extern VL CO;  extern VL CO;
 extern int stream;  extern int stream;
 #endif  
   
 extern DISPLAY *display;  extern DISPLAY *display;
 extern CURSOR normalcur,runningcur,errorcur;  extern CURSOR normalcur,runningcur,errorcur;
   
 #if !defined(THINK_C)  #if defined(VISUAL) || defined(__MINGW32__)
   extern POINT start_point,end_point;
   extern SIZE cansize;
   #else
 extern Window rootwin;  extern Window rootwin;
 extern GC drawGC,dashGC,hlGC,scaleGC,clearGC,xorGC,colorGC;  extern GC drawGC,dashGC,hlGC,scaleGC,clearGC,xorGC,colorGC,cdrawGC;
 extern XFontStruct *sffs;  extern XFontStruct *sffs;
   #endif
   
   struct xcolorForPS {
     unsigned long pixel;
     double r,g,b;
     int print;
   };
   
   /* prototypes */
   int modeNO(char *);
   void calc(double **,struct canvas *,int);
   double usubstrp(P,double);
   void qcalc(char **,struct canvas *);
   void calcb(double **,struct canvas *,int);
   void calcq(double **,struct canvas *,int);
   void polarcalc(struct canvas *);
   void polarcalcNG(struct canvas *);
   void sturmseq(VL,P,VECT *);
   void seproot(VECT,int,int,int *);
   int numch(VECT,Q,Q);
   void usubstqp(P,Q,Q *);
   void plotcalc(struct canvas *);
   int open_canvas(NODE);
   int plot(NODE,int);
   int ifplotold(NODE);
   int polarplot(NODE);
   int conplotD(NODE);
   int memory_plot(NODE,LIST *);
   int plotover(NODE);
   int plotoverD(NODE);
   int drawcircle(NODE);
   int draw_obj(NODE);
   int draw_string(NODE);
   int clear_canvas(NODE);
   void popup_canvas(int);
   int arrayplot(NODE);
   int ineqnover(NODE);
   int ineqnand(NODE);
   int ineqnor(NODE);
   int ineqnxor(NODE);
   int ifplotOP(NODE,int);
   int ifplotNG(NODE,int);
   int polarplotNG(NODE);
   void ineqnmain(struct canvas *, int, int);
   void conplotmainD(struct canvas *);
   void obj_op(struct canvas *, struct canvas *, int);
   void area_print(DISPLAY *,double **, struct canvas *, int);
   void memory_print(struct canvas *,BYTEARRAY *);
   void over_print(DISPLAY *,double **,struct canvas *,int);
   void polar_print(DISPLAY *,struct canvas *);
   unsigned long GetColor(DISPLAY *,char *);
   void Pox_pop_local(NODE,Obj *);
   void Pox_pop_cmo(NODE,Obj *);
   
   #if defined(INTERVAL)
   int itvifplot(NODE);
   //int itvplot1(NODE);
   //int itvplot2(NODE);
   //int itvplot3(NODE);
   //int itvplot4(NODE);
   int objcp(NODE);
   int ineqn(NODE);
   void obj_cp(struct canvas *,struct canvas *,int);
   void itvcalc(double **, struct canvas *, int);
   void itvplotmain(struct canvas *, int);
   void itvplotmain1(struct canvas *);
   #endif
   void ifplot_resize(struct canvas *,POINT,POINT);
   void plot_resize(struct canvas *,POINT,POINT);
   void ifplotmain(struct canvas *);
   void ifplotmainNG(struct canvas *);
   void qifplotmain(struct canvas *);
   void if_printNG(DISPLAY *,double **,struct canvas *,int);
   void if_print(DISPLAY *,double **,struct canvas *);
   void memory_if_print(double **,struct canvas *,BYTEARRAY *);
   void con_print(DISPLAY *,double **,struct canvas *);
   void memory_con_print(double **,struct canvas *,BYTEARRAY *);
   void qif_print(DISPLAY *,char **,struct canvas *);
   void plot_print(DISPLAY *,struct canvas *);
   void set_drawcolor(unsigned int);
   void draw_character_string(DISPLAY *,struct canvas *,int,int,char *,unsigned int);
   void draw_point(DISPLAY *,struct canvas *,int,int,unsigned int);
   void draw_line(DISPLAY *,struct canvas *,int,int,int,int,unsigned int);
   void pline(DISPLAY *,struct canvas *,DRAWABLE);
   double adjust_scale(double,double);
   void initmarker(struct canvas *,char *);
   void marker(struct canvas *,int,int);
   void define_cursor(WINDOW,CURSOR);
   void count_and_flush();
   void flush();
   int search_canvas();
   void create_canvas(struct canvas *can);
   void copy_to_canvas(struct canvas *can);
   void set_selection();
   void reset_selection();
   void set_busy();
   void reset_busy();
   void clear_pixmap(struct canvas *can);
   void alloc_pixmap(struct canvas *can);
   void copy_subimage(struct canvas *subcan,struct canvas *can,POINT pos);
   int init_plot_display(int,char **);
   void reset_current_computation();
   void process_xevent();
   
   #if defined(VISUAL) || defined(__MINGW32__)
   int search_active_canvas();
   void destroy_canvas(struct canvas *can);
   void draw_wideframe(struct canvas *can,DRAWABLE d);
   void create_brushes();
   void draw_frame0(DRAWABLE d,POINT spos,POINT epos);
   
 #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.26
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>