Annotation of OpenXM_contrib2/asir2018/plot/ifplot.h, Revision 1.1
1.1 ! noro 1: /*
! 2: * Copyright (c) 1994-2000 FUJITSU LABORATORIES LIMITED
! 3: * All rights reserved.
! 4: *
! 5: * FUJITSU LABORATORIES LIMITED ("FLL") hereby grants you a limited,
! 6: * non-exclusive and royalty-free license to use, copy, modify and
! 7: * redistribute, solely for non-commercial and non-profit purposes, the
! 8: * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
! 9: * conditions of this Agreement. For the avoidance of doubt, you acquire
! 10: * only a limited right to use the SOFTWARE hereunder, and FLL or any
! 11: * third party developer retains all rights, including but not limited to
! 12: * copyrights, in and to the SOFTWARE.
! 13: *
! 14: * (1) FLL does not grant you a license in any way for commercial
! 15: * purposes. You may use the SOFTWARE only for non-commercial and
! 16: * non-profit purposes only, such as academic, research and internal
! 17: * business use.
! 18: * (2) The SOFTWARE is protected by the Copyright Law of Japan and
! 19: * international copyright treaties. If you make copies of the SOFTWARE,
! 20: * with or without modification, as permitted hereunder, you shall affix
! 21: * to all such copies of the SOFTWARE the above copyright notice.
! 22: * (3) An explicit reference to this SOFTWARE and its copyright owner
! 23: * shall be made on your publication or presentation in any form of the
! 24: * results obtained by use of the SOFTWARE.
! 25: * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
! 26: * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
! 27: * for such modification or the source code of the modified part of the
! 28: * SOFTWARE.
! 29: *
! 30: * THE SOFTWARE IS PROVIDED AS IS WITHOUT ANY WARRANTY OF ANY KIND. FLL
! 31: * MAKES ABSOLUTELY NO WARRANTIES, EXPRESSED, IMPLIED OR STATUTORY, AND
! 32: * EXPRESSLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
! 33: * FOR A PARTICULAR PURPOSE OR NONINFRINGEMENT OF THIRD PARTIES'
! 34: * RIGHTS. NO FLL DEALER, AGENT, EMPLOYEES IS AUTHORIZED TO MAKE ANY
! 35: * MODIFICATIONS, EXTENSIONS, OR ADDITIONS TO THIS WARRANTY.
! 36: * UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, TORT, CONTRACT,
! 37: * OR OTHERWISE, SHALL FLL BE LIABLE TO YOU OR ANY OTHER PERSON FOR ANY
! 38: * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, PUNITIVE OR CONSEQUENTIAL
! 39: * DAMAGES OF ANY CHARACTER, INCLUDING, WITHOUT LIMITATION, DAMAGES
! 40: * ARISING OUT OF OR RELATING TO THE SOFTWARE OR THIS AGREEMENT, DAMAGES
! 41: * FOR LOSS OF GOODWILL, WORK STOPPAGE, OR LOSS OF DATA, OR FOR ANY
! 42: * DAMAGES, EVEN IF FLL SHALL HAVE BEEN INFORMED OF THE POSSIBILITY OF
! 43: * SUCH DAMAGES, OR FOR ANY CLAIM BY ANY OTHER PARTY. EVEN IF A PART
! 44: * OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY
! 45: * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
! 46: * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
! 47: *
! 48: * $OpenXM$
! 49: */
! 50: #if defined(VISUAL) || defined(__MINGW32__)
! 51: /* for Visual C++ */
! 52: #include <windows.h>
! 53: #else
! 54: #include <sys/types.h>
! 55: #include <X11/Xlib.h>
! 56: #include <X11/Xutil.h>
! 57: #include <X11/Xatom.h>
! 58: #include <X11/Intrinsic.h>
! 59: #include <X11/StringDefs.h>
! 60: #include <X11/Shell.h>
! 61: #include <X11/Xaw/Form.h>
! 62: #include <X11/Xaw/Command.h>
! 63: #include <X11/Xaw/Label.h>
! 64: #include <X11/Xaw/Simple.h>
! 65: #include <X11/Xaw/Dialog.h>
! 66: #include <X11/Xaw/Box.h>
! 67: #ifndef OLDX11
! 68: #include <X11/Xaw/Toggle.h>
! 69: #include <X11/Xaw/Scrollbar.h>
! 70: #else
! 71: #include <X11/Xaw/Scroll.h>
! 72: #define toggleWidgetClass commandWidgetClass
! 73: #define XtPointer pointer
! 74: #define XawDialogAddButton XtDialogAddButton
! 75: #define XawScrollbarSetThumb XtScrollBarSetThumb
! 76: #endif
! 77: #endif
! 78:
! 79: #define C_IFPLOT C_PRIV
! 80: #define C_BMPLOT C_PRIV+1
! 81: #define C_CLEAR C_PRIV+2
! 82: #define C_PMFLUSH C_PRIV+3
! 83: #define C_CONPLOT C_PRIV+4
! 84: #define C_PLOTOVER C_PRIV+5
! 85: #define C_PLOT C_PRIV+6
! 86: #define C_APLOT C_PRIV+7
! 87: #define C_DRAWCIRCLE C_PRIV+8
! 88:
! 89: #define MAXCANVAS 64
! 90: #define MAXGC 16
! 91: #define DEFAULTPOLARSTEP 400
! 92: #define DEFAULTWIDTH 400
! 93: #define DEFAULTHEIGHT 400
! 94:
! 95: #define IFPLOT "ifplot"
! 96: #define CONPLOT "conplot"
! 97: #define PLOT "plot"
! 98: #define INTERACTIVE "interactive"
! 99: #define POLARPLOT "polarplot"
! 100: #define POLARPLOTD "polarplotD"
! 101: #define PLOTOVER "plotover"
! 102: #define IFPLOTD "ifplotD"
! 103: #define IFPLOTQ "ifplotQ"
! 104: #define IFPLOTB "ifplotB"
! 105: #define INEQN "ineqn"
! 106: #define INEQND "ineqnD"
! 107: #define INEQNQ "ineqnQ"
! 108: #define INEQNB "ineqnB"
! 109: #define INEQNAND "ineqnand"
! 110: #define INEQNDAND "ineqnDand"
! 111: #define INEQNQAND "ineqnQand"
! 112: #define INEQNBAND "ineqnBand"
! 113: #define INEQNOR "ineqnor"
! 114: #define INEQNDOR "ineqnDor"
! 115: #define INEQNQOR "ineqnQor"
! 116: #define INEQNBOR "ineqnBor"
! 117: #define INEQNXOR "ineqnxor"
! 118: #define INEQNDXOR "ineqnDxor"
! 119: #define INEQNQXOR "ineqnQxor"
! 120: #define INEQNBXOR "ineqnBxor"
! 121: #define CONPLOTD "conplotD"
! 122: #define CONPLOTQ "conplotQ"
! 123: #define CONPLOTB "conplotB"
! 124: #define ITVIFPLOT "itvifplot"
! 125: #define PLOTOVERD "plotoverD"
! 126: #define PLOTOVERQ "plotoverQ"
! 127: #define PLOTOVERB "plotoverB"
! 128: #define MEMORY_IFPLOT "memory_ifplot"
! 129: #define MEMORY_CONPLOT "memory_conplot"
! 130: #define MEMORY_PLOT "memory_plot"
! 131: #define ARRAYPLOT "arrayplot"
! 132: #define OPEN_CANVAS "open_canvas"
! 133: #define DRAWCIRCLE "drawcircle"
! 134: #define DRAW_OBJ "draw_obj"
! 135: #define DRAW_STRING "draw_string"
! 136: #define OBJ_CP "obj_cp"
! 137: #define CLEAR_CANVAS "clear_canvas"
! 138:
! 139: /*
! 140: #define IFPLOT 0
! 141: #define CONPLOT 1
! 142: #define PLOT 2
! 143: #define INTERACTIVE 3
! 144: #define POLARPLOT 4
! 145: #define PLOTOVER 5
! 146: #define IFPLOTD 6
! 147: #define IFPLOTQ 7
! 148: #define IFPLOTB 8
! 149: #define INEQND 9
! 150: #define INEQNQ 10
! 151: #define INEQNB 11
! 152: #define INEQNANDD 12
! 153: #define INEQNANDQ 13
! 154: #define INEQNANDB 14
! 155: #define INEQNORD 15
! 156: #define INEQNORQ 16
! 157: #define INEQNORB 17
! 158: #define INEQNXORD 18
! 159: #define INEQNXORQ 19
! 160: #define INEQNXORB 20
! 161: #define CONPLOTD 21
! 162: #define CONPLOTQ 22
! 163: #define CONPLOTB 23
! 164: #define ITVIFPLOT 24
! 165: #define PLOTOVERD 25
! 166: #define PLOTOVERQ 26
! 167: #define PLOTOVERB 27
! 168: #define MEMORY_IFPLOT 28
! 169: #define MEMORY_CONPLOT 29
! 170: #define MEMORY_PLOT 30
! 171: #define ARRAYPLOT 31
! 172: #define OPEN_CANVAS 32
! 173: #define DRAWCIRCLE 33
! 174: #define DRAW_OBJ 34
! 175: #define DRAW_STRING 35
! 176: #define OBJ_CP 36
! 177: #define CLEAR_CANVAS 37
! 178: #define POLARPLOTD 38
! 179: */
! 180:
! 181: #define DIR_X 0
! 182: #define DIR_Y 1
! 183: #define DIR_Z 2
! 184:
! 185: #if defined(VISUAL) || defined(__MINGW32__)
! 186: /* for Visual C++ */
! 187: #define XC(a) ((a).x)
! 188: #define YC(a) ((a).y)
! 189: #define DISPLAY int
! 190: #define WINDOW void *
! 191: #define CURSOR int
! 192: #define DRAWABLE HDC
! 193:
! 194: /* XXX : use GC argument as the color */
! 195: #define DRAWPOINT(d,p,g,x,y) SetPixel(p,x,y,0)
! 196:
! 197: #define DRAWLINE(d,p,g,x,y,u,v) MoveToEx(p,x,y,&oldpos); LineTo(p,u,v)
! 198: #define DRAWSTRING(d,p,g,x,y,s,l) TextOut(p,x,y,s,l)
! 199: /* #define TEXTWIDTH(f,s,l) */
! 200: #else
! 201: /* for UNIX */
! 202: #define POINT XPoint
! 203: #define XC(a) ((a).x)
! 204: #define YC(a) ((a).y)
! 205: #define DRAWPOINT(d,p,g,x,y) (count_and_flush(),XDrawPoint(d,p,g,x,y))
! 206: #define DRAWLINE(d,p,g,x,y,u,v) XDrawLine(d,p,g,x,y,u,v)
! 207: #define DRAWSTRING(d,p,g,x,y,s,l) XDrawString(d,p,g,x,y,s,l)
! 208: #define TEXTWIDTH(f,s,l) XTextWidth(f,s,l)
! 209: #define DISPLAY Display
! 210: #define WINDOW Window
! 211: #define CURSOR Cursor
! 212: #define DRAWABLE Drawable
! 213: #endif
! 214:
! 215: struct pa {
! 216: int length;
! 217: POINT *pos;
! 218: };
! 219:
! 220: typedef struct RealVect {
! 221: int len;
! 222: int body[1];
! 223: } RealVect;
! 224:
! 225: #define MKRVECT2(v,x,y)\
! 226: ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+sizeof(int)),\
! 227: (v)->len=2,(v)->body[0]=(x),(v)->body[1]=(y))
! 228: #define MKRVECT3(v,x,y,z)\
! 229: ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+2*sizeof(int)),\
! 230: (v)->len=3,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z))
! 231: #define MKRVECT4(v,x,y,z,u)\
! 232: ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+3*sizeof(int)),\
! 233: (v)->len=4,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z),(v)->body[3]=(u))
! 234: #define MKRVECT5(v,x,y,z,u,w)\
! 235: ((v)=(RealVect *)MALLOC_ATOMIC(sizeof(RealVect)+4*sizeof(int)),\
! 236: (v)->len=4,(v)->body[0]=(x),(v)->body[1]=(y),(v)->body[2]=(z),(v)->body[3]=(u),(v)->body[4]=(w))
! 237:
! 238: #define RV_POINT 1
! 239: #define RV_LINE 2
! 240: #define RV_ARC 3
! 241:
! 242: struct canvas {
! 243: int index;
! 244: #if defined(VISUAL) || defined(__MINGW32__)
! 245: /* for Visual C++ */
! 246: void *window; /* pointer to CMainFrame */
! 247: HWND hwnd; /* handle to the canvas window */
! 248: HDC pix; /* shadow DC on memory */
! 249: char *prefix;
! 250: int percentage;
! 251: struct canvas *real_can;
! 252: #else
! 253: Widget shell,xcoord,ycoord,xdone,ydone,level,wideb,preciseb,noaxisb;
! 254: Window window;
! 255: Pixmap pix;
! 256: #endif
! 257: char *wname;
! 258: int mode;
! 259: char wide;
! 260: char precise;
! 261: char noaxis;
! 262: V vx,vy;
! 263: P formula;
! 264: int width,height;
! 265: double xmin,xmax;
! 266: double ymin,ymax;
! 267: double zmin,zmax;
! 268: double vmin,vmax;
! 269: int nzstep;
! 270: Q qxmin,qxmax;
! 271: Q qymin,qymax;
! 272: struct pa *pa;
! 273: /* to register the history in the interactive mode */
! 274: NODE history;
! 275: unsigned int color;
! 276: int division;
! 277: int prec;
! 278: };
! 279:
! 280: extern struct canvas *canvas[];
! 281: extern struct canvas *closed_canvas[];
! 282: extern struct canvas *current_can;
! 283: extern char* pfn[];
! 284:
! 285: #if defined(INTERVAL)
! 286: extern int Itvplot;
! 287: #endif
! 288:
! 289: extern VL CO;
! 290: extern int stream;
! 291:
! 292: extern DISPLAY *display;
! 293: extern CURSOR normalcur,runningcur,errorcur;
! 294:
! 295: #if defined(VISUAL) || defined(__MINGW32__)
! 296: extern POINT start_point,end_point;
! 297: extern SIZE cansize;
! 298: #else
! 299: extern Window rootwin;
! 300: extern GC drawGC,dashGC,hlGC,scaleGC,clearGC,xorGC,colorGC,cdrawGC;
! 301: extern XFontStruct *sffs;
! 302: #endif
! 303:
! 304: struct xcolorForPS {
! 305: unsigned long pixel;
! 306: double r,g,b;
! 307: int print;
! 308: };
! 309:
! 310: /* prototypes */
! 311: int modeNO(char *);
! 312: void calc(double **,struct canvas *,int);
! 313: double usubstrp(P,double);
! 314: void qcalc(char **,struct canvas *);
! 315: void calcb(double **,struct canvas *,int);
! 316: void calcq(double **,struct canvas *,int);
! 317: void polarcalc(struct canvas *);
! 318: void polarcalcNG(struct canvas *);
! 319: void sturmseq(VL,P,VECT *);
! 320: void seproot(VECT,int,int,int *);
! 321: int numch(VECT,Q,Q);
! 322: void usubstqp(P,Q,Q *);
! 323: void plotcalc(struct canvas *);
! 324: int open_canvas(NODE);
! 325: int plot(NODE,int);
! 326: int ifplotold(NODE);
! 327: int polarplot(NODE);
! 328: int conplotD(NODE);
! 329: int memory_plot(NODE,LIST *);
! 330: int plotover(NODE);
! 331: int plotoverD(NODE);
! 332: int drawcircle(NODE);
! 333: int draw_obj(NODE);
! 334: int draw_string(NODE);
! 335: int clear_canvas(NODE);
! 336: void popup_canvas(int);
! 337: int arrayplot(NODE);
! 338: int ineqnover(NODE);
! 339: int ineqnand(NODE);
! 340: int ineqnor(NODE);
! 341: int ineqnxor(NODE);
! 342: int ifplotOP(NODE,int);
! 343: int ifplotNG(NODE,int);
! 344: int polarplotNG(NODE);
! 345: void ineqnmain(struct canvas *, int, int);
! 346: void conplotmainD(struct canvas *);
! 347: void obj_op(struct canvas *, struct canvas *, int);
! 348: void area_print(DISPLAY *,double **, struct canvas *, int);
! 349: void memory_print(struct canvas *,BYTEARRAY *);
! 350: void over_print(DISPLAY *,double **,struct canvas *,int);
! 351: void polar_print(DISPLAY *,struct canvas *);
! 352: unsigned long GetColor(DISPLAY *,char *);
! 353: void Pox_pop_local(NODE,Obj *);
! 354: void Pox_pop_cmo(NODE,Obj *);
! 355:
! 356: #if defined(INTERVAL)
! 357: int itvifplot(NODE);
! 358: //int itvplot1(NODE);
! 359: //int itvplot2(NODE);
! 360: //int itvplot3(NODE);
! 361: //int itvplot4(NODE);
! 362: int objcp(NODE);
! 363: int ineqn(NODE);
! 364: void obj_cp(struct canvas *,struct canvas *,int);
! 365: void itvcalc(double **, struct canvas *, int);
! 366: void itvplotmain(struct canvas *, int);
! 367: void itvplotmain1(struct canvas *);
! 368: #endif
! 369: void ifplot_resize(struct canvas *,POINT,POINT);
! 370: void plot_resize(struct canvas *,POINT,POINT);
! 371: void ifplotmain(struct canvas *);
! 372: void ifplotmainNG(struct canvas *);
! 373: void qifplotmain(struct canvas *);
! 374: void if_printNG(DISPLAY *,double **,struct canvas *,int);
! 375: void if_print(DISPLAY *,double **,struct canvas *);
! 376: void memory_if_print(double **,struct canvas *,BYTEARRAY *);
! 377: void con_print(DISPLAY *,double **,struct canvas *);
! 378: void memory_con_print(double **,struct canvas *,BYTEARRAY *);
! 379: void qif_print(DISPLAY *,char **,struct canvas *);
! 380: void plot_print(DISPLAY *,struct canvas *);
! 381: void set_drawcolor(unsigned int);
! 382: void draw_character_string(DISPLAY *,struct canvas *,int,int,char *,unsigned int);
! 383: void draw_point(DISPLAY *,struct canvas *,int,int,unsigned int);
! 384: void draw_line(DISPLAY *,struct canvas *,int,int,int,int,unsigned int);
! 385: void pline(DISPLAY *,struct canvas *,DRAWABLE);
! 386: double adjust_scale(double,double);
! 387: void initmarker(struct canvas *,char *);
! 388: void marker(struct canvas *,int,int);
! 389: void define_cursor(WINDOW,CURSOR);
! 390: void count_and_flush();
! 391: void flush();
! 392: int search_canvas();
! 393: void create_canvas(struct canvas *can);
! 394: void copy_to_canvas(struct canvas *can);
! 395: void set_selection();
! 396: void reset_selection();
! 397: void set_busy();
! 398: void reset_busy();
! 399: void clear_pixmap(struct canvas *can);
! 400: void alloc_pixmap(struct canvas *can);
! 401: void copy_subimage(struct canvas *subcan,struct canvas *can,POINT pos);
! 402: int init_plot_display(int,char **);
! 403: void reset_current_computation();
! 404: void process_xevent();
! 405:
! 406: #if defined(VISUAL) || defined(__MINGW32__)
! 407: int search_active_canvas();
! 408: void destroy_canvas(struct canvas *can);
! 409: void draw_wideframe(struct canvas *can,DRAWABLE d);
! 410: void create_brushes();
! 411: void draw_frame0(DRAWABLE d,POINT spos,POINT epos);
! 412:
! 413: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>