version 1.3, 2000/08/22 05:04:31 |
version 1.11, 2002/08/02 08:59:47 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/plot/ifplot.h,v 1.2 2000/08/21 08:31:50 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/ifplot.h,v 1.10 2002/07/29 03:08:16 noro Exp $ |
*/ |
*/ |
#if defined(THINK_C) |
#if defined(VISUAL) |
#include <QuickDraw.h> |
/* for Visual C++ */ |
#include <Windows.h> |
#include <windows.h> |
#include <Events.h> |
|
#include <OSUtils.h> |
|
#include <ToolUtils.h> |
|
#include <Fonts.h> |
|
/* #include <Strings.h> */ |
|
#else |
#else |
#include <sys/types.h> |
#include <sys/types.h> |
#include <X11/Xlib.h> |
#include <X11/Xlib.h> |
|
|
#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 MODE_IFPLOT 0 |
#define MODE_CONPLOT 1 |
#define MODE_CONPLOT 1 |
#define MODE_PLOT 2 |
#define MODE_PLOT 2 |
|
#define MODE_INTERACTIVE 3 |
|
#define MODE_POLARPLOT 4 |
|
|
#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) |
#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) |
|
|
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 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) |
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; |
|
RgnHandle rgnsav; |
|
#endif |
|
#else |
|
Widget shell,xcoord,ycoord,xdone,ydone,level,wideb,preciseb,noaxisb; |
Widget shell,xcoord,ycoord,xdone,ydone,level,wideb,preciseb,noaxisb; |
Window window; |
Window window; |
Pixmap pix; |
Pixmap pix; |
|
|
Q qxmin,qxmax; |
Q qxmin,qxmax; |
Q qymin,qymax; |
Q qymin,qymax; |
struct pa *pa; |
struct pa *pa; |
|
/* to register the history in the interactive mode */ |
|
NODE history; |
}; |
}; |
|
|
extern struct canvas *canvas[]; |
extern struct canvas *canvas[]; |
|
extern struct canvas *closed_canvas[]; |
extern struct canvas *current_can; |
extern struct canvas *current_can; |
|
|
#ifdef INET |
|
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) |
|
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 */ |
|
void calc(double **tab,struct canvas *can,int nox); |
|
double usubstrp(P p,double r); |
|
void qcalc(char **tab,struct canvas *can); |
|
void sturmseq(VL vl,P p,VECT *rp); |
|
void seproot(VECT s,int min,int max,int *ar); |
|
int numch(VECT s,Q n,Q a0); |
|
void usubstqp(P p,Q r,Q *v); |
|
void plotcalc(struct canvas *can); |
|
int open_canvas(NODE arg); |
|
int plot(NODE arg); |
|
int memory_plot(NODE arg,LIST *bytes); |
|
int plotover(NODE arg); |
|
int drawcircle(NODE arg); |
|
int draw_obj(NODE arg); |
|
int clear_canvas(NODE arg); |
|
int arrayplot(NODE arg); |
|
void ifplot_resize(struct canvas *can,POINT spos,POINT epos); |
|
void plot_resize(struct canvas *can,POINT spos,POINT epos); |
|
void ifplotmain(struct canvas *can); |
|
void qifplotmain(struct canvas *can); |
|
void if_print(DISPLAY *display,double **tab,struct canvas *can); |
|
void memory_if_print(double **tab,struct canvas *can,BYTEARRAY *bytes); |
|
void con_print(DISPLAY *display,double **tab,struct canvas *can); |
|
void memory_con_print(double **tab,struct canvas *can,BYTEARRAY *bytes); |
|
void qif_print(DISPLAY *display,char **tab,struct canvas *can); |
|
void plot_print(DISPLAY *display,struct canvas *can); |
|
void draw_point(DISPLAY *display,struct canvas *can,int x,int y,int color); |
|
void draw_line(DISPLAY *display,struct canvas *can,int x,int y,int u,int v,int color); |
|
void pline(DISPLAY *display,struct canvas *can,DRAWABLE d); |
|
double adjust_scale(double e,double w); |
|
void initmarker(struct canvas *can,char *message); |
|
void marker(struct canvas *can,int dir,int p); |
|
void define_cursor(WINDOW w,CURSOR cur); |
|
void count_and_flush(); |
|
void flush(); |
|
|
|
#if defined(VISUAL) |
|
int search_canvas(); |
|
int search_active_canvas(); |
|
void create_canvas(struct canvas *can); |
|
void destroy_canvas(struct canvas *can); |
|
void clear_pixmap(struct canvas *can); |
|
void alloc_pixmap(struct canvas *can); |
|
void copy_to_canvas(struct canvas *can); |
|
void copy_subimage(struct canvas *subcan,struct canvas *can,POINT pos); |
|
void draw_wideframe(struct canvas *can,DRAWABLE d); |
|
void create_brushes(); |
|
void draw_frame0(DRAWABLE d,POINT spos,POINT epos); |
|
|
|
void reset_current_computation(); |
|
void set_selection(); |
|
void reset_selection(); |
|
void set_busy(); |
|
void reset_busy(); |
#endif |
#endif |