=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v retrieving revision 1.2 retrieving revision 1.31 diff -u -p -r1.2 -r1.31 --- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2000/08/21 08:31:51 1.2 +++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2014/05/12 16:54:41 1.31 @@ -23,7 +23,7 @@ * 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@flab.fujitsu.co.jp of the detailed specification + * 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. * @@ -45,24 +45,85 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.1.1.1 1999/12/03 07:39:13 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.30 2013/11/05 02:55:03 noro Exp $ */ #include "ca.h" #include "parse.h" #include "ox.h" #include "ifplot.h" #include "cursor.h" +#include +#include +static void Quit(); +static void print_canvas(Widget w, struct canvas *can, XtPointer calldata); +static void output_to_printer(Widget w, struct canvas *can, XtPointer calldata); +static void print_canvas_to_file(Widget w, struct canvas *can, XtPointer calldata); +static void printing_method(Widget w, struct canvas *can, XtPointer calldata); +void clear_pixmap(struct canvas *); +void create_gc(); +void create_font(); +void create_cursors(); +void copy_to_canvas(struct canvas *can); +void draw_level(struct canvas *can,int index,GC gc); +void draw_frame(Window window,POINT spos,POINT opos,POINT epos); +void draw_frame0( Window window,POINT spos,POINT epos); +void draw_coord(struct canvas *can,POINT pos); +void draw_wideframe(struct canvas *can); +void redraw_canvas(struct canvas *can); +void reset_busy(struct canvas *can); +int search_canvas(); +int search_active_canvas(); +void PSFromImage(FILE *fp,XImage *image,struct canvas *can); + + + +static Atom wm_delete_window; + +void SetWM_Proto(Widget w) +{ + XtOverrideTranslations(w, + XtParseTranslationTable("WM_PROTOCOLS: quit()")); + XSetWMProtocols(display,XtWindow(w),&wm_delete_window,1); +} + +#if 0 +static void quit(Widget w, XEvent *ev, String *params,Cardinal *nparams) +{ + XBell(display,0); +} +#endif + +/* XXX : these lines are in plotg.c, but ld says they are not defined */ +#if __DARWIN__ +int stream; + +DISPLAY *display; +CURSOR normalcur,runningcur,errorcur; + +#if defined(VISUAL) +POINT start_point, end_point; +SIZE cansize; +#else +Window rootwin; +GC drawGC,dashGC,hlGC,scaleGC,clearGC,xorGC,colorGC,cdrawGC; +XFontStruct *sffs; +#endif + +struct canvas *canvas[MAXCANVAS]; +struct canvas *closed_canvas[MAXCANVAS]; +struct canvas *current_can; +#endif /* __DARWIN__ */ + #ifdef ABS #undef ABS #define ABS(a) ((a)>0?(a):-(a)) #endif static char *dname; -static int remotes; static int depth,scrn; -extern jmp_buf ox_env; +extern JMP_BUF ox_env; static Widget toplevel; static XtAppContext app_con; @@ -72,6 +133,7 @@ static struct PlotResources { Pixel ForePixel,BackPixel,DashPixel; char *ForeName,*BackName,*DashName; Boolean Reverse; + Boolean UpsideDown; } PlotResources; #define forePixel PlotResources.ForePixel @@ -81,7 +143,10 @@ static struct PlotResources { #define backName PlotResources.BackName #define dashName PlotResources.DashName #define reverse PlotResources.Reverse +#define upsidedown PlotResources.UpsideDown +Pixel BackPixel; + Cursor create_cursor(); #define blackPixel BlackPixel(display,scrn) @@ -89,7 +154,7 @@ Cursor create_cursor(); #define LABELWIDTH 150 -process_xevent() { +void process_xevent() { XEvent ev; while ( XPending(display) ) { @@ -102,10 +167,7 @@ process_xevent() { static POINT spos,cpos; -void press(w,can,ev) -Widget w; -struct canvas *can; -XButtonEvent *ev; +void press(Widget w,struct canvas *can,XButtonEvent *ev) { POINT p; @@ -113,16 +175,13 @@ XButtonEvent *ev; case Button1: XC(spos) = ev->x; YC(spos) = ev->y; cpos = spos; break; case Button3: - XC(p) = ev->x; YC(p) = ev->y; draw_coord(can,&p); break; + XC(p) = ev->x; YC(p) = ev->y; draw_coord(can,p); break; default: break; } } -void motion(w,can,ev) -Widget w; -struct canvas *can; -XMotionEvent *ev; +void motion(Widget w,struct canvas *can,XMotionEvent *ev) { POINT o,p; @@ -136,10 +195,7 @@ XMotionEvent *ev; } } -void release(w,can,ev) -Widget w; -struct canvas *can; -XButtonEvent *ev; +void release(Widget w,struct canvas *can,XButtonEvent *ev) { POINT e; @@ -147,8 +203,10 @@ XButtonEvent *ev; case Button1: e.x = ev->x; e.y = ev->y; draw_frame0(can->window,spos,e); - if ( !busy ) { - if ( can->mode == MODE_PLOT ) + if ( !busy + && can->mode != modeNO(INTERACTIVE) + && can->mode != modeNO(POLARPLOT)) { + if ( can->mode == modeNO(PLOT) ) plot_resize(can,spos,e); else ifplot_resize(can,spos,e); @@ -159,10 +217,7 @@ XButtonEvent *ev; } } -void structure(w,can,ev) -Widget w; -struct canvas *can; -XEvent *ev; +void structure(Widget w,struct canvas *can,XEvent *ev) { switch ( ev->xany.type ) { case Expose: @@ -178,19 +233,13 @@ XEvent *ev; static int lindex; -void lpress(w,can,ev) -Widget w; -struct canvas *can; -XButtonEvent *ev; +void lpress(Widget w,struct canvas *can,XButtonEvent *ev) { lindex = (can->height-ev->y)/(can->height/can->nzstep); draw_level(can,lindex,hlGC); } -void jumpproc(w,can,percent) -Widget w; -struct canvas *can; -float *percent; +void jumpproc(Widget w,struct canvas *can,float *percent) { int index; @@ -203,10 +252,7 @@ float *percent; draw_level(can,lindex,hlGC); } -void jumpproc_m(w,can,percent) -Widget w; -struct canvas *can; -float *percent; +void jumpproc_m(Widget w,struct canvas *can,float *percent) { int index; @@ -217,26 +263,17 @@ float *percent; } } -void lrelease(w,can,ev) -Widget w; -struct canvas *can; -XButtonEvent *ev; +void lrelease(Widget w,struct canvas *can,XButtonEvent *ev) { draw_level(can,lindex,drawGC); lindex = -1; } -void lrelease_m(w,can,ev) -Widget w; -struct canvas *can; -XButtonEvent *ev; +void lrelease_m(Widget w,struct canvas *can,XButtonEvent *ev) { lindex = -1; } -draw_level(can,index,gc) -struct canvas *can; -int index; -GC gc; +void draw_level(struct canvas *can,int index,GC gc) { Pixmap pix; struct pa *pa; @@ -256,18 +293,14 @@ GC gc; copy_to_canvas(can); } -draw_frame(window,spos,opos,epos) -Window window; -POINT spos,opos,epos; +void draw_frame(Window window,POINT spos,POINT opos,POINT epos) { if ( XC(opos) != XC(epos) || YC(opos) != YC(epos) ) draw_frame0(window,spos,opos); draw_frame0(window,spos,epos); } -draw_frame0(window,spos,epos) -Window window; -POINT spos,epos; +void draw_frame0(Window window,POINT spos,POINT epos) { int ulx,uly,w,h; @@ -279,9 +312,7 @@ POINT spos,epos; XFlush(display); } -draw_coord(can,pos) -struct canvas *can; -POINT pos; +void draw_coord(struct canvas *can,POINT pos) { char buf[BUFSIZ]; Arg arg[2]; @@ -305,8 +336,7 @@ POINT pos; XtSetValues(can->ycoord,arg,2); } -redraw_canvas(can) -struct canvas *can; +void redraw_canvas(struct canvas *can) { if ( can->wide ) draw_wideframe(can); @@ -314,7 +344,7 @@ struct canvas *can; copy_to_canvas(can); } -search_canvas() +int search_canvas() { int i; @@ -323,9 +353,10 @@ search_canvas() canvas[i] = (struct canvas *)MALLOC(sizeof(struct canvas)); canvas[i]->index = i; return i; } + return -1; } -search_active_canvas() +int search_active_canvas() { int i; @@ -335,24 +366,28 @@ search_active_canvas() return -1; } -void destroy_canvas(w,can,calldata) -Widget w; -struct canvas *can; -XtPointer calldata; +void popup_canvas(int index) { + clear_pixmap(canvas[index]); + XtPopup(canvas[index]->shell,XtGrabNone); + copy_to_canvas(canvas[index]); +} + +void destroy_canvas(Widget w,struct canvas *can,XtPointer calldata) +{ XtPopdown(can->shell); - XtDestroyWidget(can->shell); +/* XtDestroyWidget(can->shell); */ XFlush(display); if ( can == current_can ) { reset_busy(can); current_can = 0; } + if ( closed_canvas[can->index] ) + XtDestroyWidget(closed_canvas[can->index]->shell); + closed_canvas[can->index] = can; canvas[can->index] = 0; } -void precise_canvas(w,can,calldata) -Widget w; -struct canvas *can; -XtPointer calldata; +void precise_canvas(Widget w,struct canvas *can,XtPointer calldata) { if ( can->precise ) can->precise = 0; @@ -360,10 +395,7 @@ XtPointer calldata; can->precise = 1; } -void wide_canvas(w,can,calldata) -Widget w; -struct canvas *can; -XtPointer calldata; +void wide_canvas(Widget w,struct canvas *can,XtPointer calldata) { if ( can->wide ) { can->wide = 0; copy_to_canvas(can); @@ -372,10 +404,7 @@ XtPointer calldata; } } -void noaxis_canvas(w,can,calldata) -Widget w; -struct canvas *can; -XtPointer calldata; +void noaxis_canvas(Widget w,struct canvas *can,XtPointer calldata) { if ( can->noaxis ) can->noaxis = 0; @@ -387,9 +416,7 @@ XtPointer calldata; copy_to_canvas(can); } -toggle_button(w,flag) -Widget w; -int flag; +void toggle_button(Widget w,int flag) { Arg arg[2]; @@ -403,11 +430,10 @@ int flag; XtSetValues(w,arg,2); XFlush(display); } -draw_wideframe(can) -struct canvas *can; +void draw_wideframe(struct canvas *can) { struct canvas fakecan; - double xmin,xmax,ymin,ymax,xmid,ymid,dx,dy; + double xmid,ymid,dx,dy; POINT s,e; fakecan = *can; @@ -425,10 +451,7 @@ struct canvas *can; draw_frame0(can->window,s,e); } -create_popup(parent,name,str,shell,dialog) -Widget parent; -char *name,*str; -Widget *shell,*dialog; +void create_popup(Widget parent,char *name,char *str,Widget *shell,Widget *dialog) { Arg arg[3]; Position x,y; @@ -440,33 +463,25 @@ Widget *shell,*dialog; *dialog = XtCreateManagedWidget("dialog",dialogWidgetClass,*shell,arg,1); } -warning(can,s) -struct canvas *can; -char *s; +void warning(struct canvas *can,char *s) { void popdown_warning(); Widget warnshell,warndialog; - Position x,y; - Arg arg[3]; if ( !can->shell ) return; create_popup(can->shell,"warning",s,&warnshell,&warndialog); XawDialogAddButton(warndialog,"dismiss",popdown_warning,warnshell); XtPopup(warnshell,XtGrabNone); + SetWM_Proto(warnshell); } -void popdown_warning(w,client,call) -Widget w; -XtPointer client,call; +void popdown_warning(Widget w,XtPointer client,XtPointer call) { XtPopdown(client); XtDestroyWidget(client); } -void show_formula(w,can,calldata) -Widget w; -struct canvas *can; -XtPointer calldata; +void show_formula(Widget w,struct canvas *can,XtPointer calldata) { void popdown_formula(); Widget fshell,fdialog; @@ -476,11 +491,10 @@ XtPointer calldata; create_popup(can->shell,"formula",buf,&fshell,&fdialog); XawDialogAddButton(fdialog,"dismiss",popdown_formula,w); XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } -void popdown_formula(w,fbutton,call) -Widget w,fbutton; -XtPointer call; +void popdown_formula(Widget w,Widget fbutton,XtPointer call) { Widget shell = XtParent(XtParent(w)); XtPopdown(shell); XtDestroyWidget(shell); @@ -489,22 +503,21 @@ XtPointer call; #define NormalSelection ButtonPressMask|ButtonReleaseMask|Button1MotionMask|Button3MotionMask|StructureNotifyMask| ExposureMask -create_canvas(can) -struct canvas *can; +void create_canvas(struct canvas *can) { - XEvent event; Widget box,frame,commands, - coords,quit,wide,precise,canvas,formula; + coords,quit,print,wide,precise,canvas,formula; Window window; Pixmap pix; - int i,width,height; + int width,height; Arg arg[6]; char buf[BUFSIZ]; + XImage *image; + width = can->width; height = can->height; - sprintf(buf,"%s : %d/%d", can->wname?can->wname:"Plot", - remotes,can->index); + sprintf(buf,"%s : %d", can->wname?can->wname:"Plot",can->index); XtSetArg(arg[0],XtNiconName,buf); can->shell = XtCreatePopupShell("shell",topLevelShellWidgetClass,toplevel,arg,1); @@ -521,19 +534,21 @@ struct canvas *can; commands = XtCreateManagedWidget("commands",boxWidgetClass,frame,arg,2); quit = XtCreateManagedWidget("quit",commandWidgetClass,commands,NULL,0); - XtAddCallback(quit,XtNcallback,destroy_canvas,can); + XtAddCallback(quit,XtNcallback,(XtCallbackProc)destroy_canvas,can); + print = XtCreateManagedWidget("print",commandWidgetClass,commands,NULL,0); + XtAddCallback(print,XtNcallback,(XtCallbackProc)print_canvas,can); can->wideb = wide = XtCreateManagedWidget("wide",toggleWidgetClass,commands,NULL,0); - XtAddCallback(wide,XtNcallback,wide_canvas,can); + XtAddCallback(wide,XtNcallback,(XtCallbackProc)wide_canvas,can); can->preciseb = precise = XtCreateManagedWidget("precise",toggleWidgetClass,commands,NULL,0); - XtAddCallback(precise,XtNcallback,precise_canvas,can); + XtAddCallback(precise,XtNcallback,(XtCallbackProc)precise_canvas,can); formula = XtCreateManagedWidget("formula",commandWidgetClass,commands,NULL,0); - XtAddCallback(formula,XtNcallback,show_formula,can); + XtAddCallback(formula,XtNcallback,(XtCallbackProc)show_formula,can); can->noaxisb = XtCreateManagedWidget("noaxis",toggleWidgetClass,commands,NULL,0); - XtAddCallback(can->noaxisb,XtNcallback,noaxis_canvas,can); + XtAddCallback(can->noaxisb,XtNcallback,(XtCallbackProc)noaxis_canvas,can); XtSetArg(arg[0],XtNfromVert,commands); XtSetArg(arg[1],XtNwidth,width); @@ -567,16 +582,14 @@ struct canvas *can; XtSetArg(arg[0],XtNwidth,LABELWIDTH); can->ycoord = XtCreateManagedWidget("ycoord",labelWidgetClass,coords,arg,1); - XtAddEventHandler(canvas,ButtonPressMask,False,press,can); - XtAddEventHandler(canvas,ButtonReleaseMask,False,release,can); - XtAddEventHandler(canvas,Button1MotionMask,False,motion,can); - XtAddEventHandler(canvas,Button3MotionMask,False,motion,can); - XtAddEventHandler(canvas,StructureNotifyMask,False,structure,can); - XtAddEventHandler(canvas,ExposureMask,False,structure,can); + XtAddEventHandler(canvas,ButtonPressMask,False,(XtEventHandler)press,can); + XtAddEventHandler(canvas,ButtonReleaseMask,False,(XtEventHandler)release,can); + XtAddEventHandler(canvas,Button1MotionMask,False,(XtEventHandler)motion,can); + XtAddEventHandler(canvas,Button3MotionMask,False,(XtEventHandler)motion,can); + XtAddEventHandler(canvas,StructureNotifyMask,False,(XtEventHandler)structure,can); + XtAddEventHandler(canvas,ExposureMask,False,(XtEventHandler)structure,can); - if ( can->mode == MODE_CONPLOT ) { - Widget scale; - + if ( can->mode == modeNO(CONPLOT) ) { XtSetArg(arg[0],XtNwidth,LABELWIDTH); can->level = XtCreateManagedWidget("level",labelWidgetClass, commands,arg,1); @@ -584,27 +597,29 @@ struct canvas *can; XtSetArg(arg[0],XtNsensitive,True); XtSetValues(can->ydone,arg,1); if ( depth >= 2 ) { - XtAddCallback(can->ydone,XtNjumpProc,jumpproc,can); - XtAddEventHandler(can->ydone,ButtonReleaseMask,False,lrelease,can); + XtAddCallback(can->ydone,XtNjumpProc,(XtCallbackProc)jumpproc,can); + XtAddEventHandler(can->ydone,ButtonReleaseMask,False,(XtEventHandler)lrelease,can); } else { - XtAddCallback(can->ydone,XtNjumpProc,jumpproc_m,can); - XtAddEventHandler(can->ydone,ButtonReleaseMask,False,lrelease_m,can); + XtAddCallback(can->ydone,XtNjumpProc,(XtCallbackProc)jumpproc_m,can); + XtAddEventHandler(can->ydone,ButtonReleaseMask,False,(XtEventHandler)lrelease_m,can); } } - if ( can->mode != MODE_IFPLOT || !qpcheck((Obj)can->formula) ) + if ( can->mode != modeNO(IFPLOT) || !qpcheck((Obj)can->formula) ) XtSetSensitive(precise,False); XtPopup(can->shell,XtGrabNone); - + SetWM_Proto(can->shell); window = can->window = XtWindow(canvas); pix = can->pix = XCreatePixmap(display,window,width,height,depth); XFillRectangle(display,pix,clearGC,0,0,width,height); + image = XGetImage(display, can->pix, 0, 0, can->width, can->height, + -1, ZPixmap); + BackPixel = XGetPixel(image,0,0); XDefineCursor(display,window,normalcur); XFlush(display); current_can = can; } -alloc_pixmap(can) -struct canvas *can; +void alloc_pixmap(struct canvas *can) { can->pix = XCreatePixmap(display,can->window, can->width,can->height,depth); @@ -612,6 +627,7 @@ struct canvas *can; } static XrmOptionDescRec options[] = { +{"-upsidedown","*upsidedown",XrmoptionNoArg,"on"}, {"-reverse","*reverse",XrmoptionNoArg,"on"}, {"-fg","*foreground",XrmoptionSepArg,NULL}, {"-bg","*background",XrmoptionSepArg,NULL}, @@ -620,6 +636,8 @@ static XrmOptionDescRec options[] = { #define offset(name) XtOffset(struct PlotResources *,name) static XtResource resources[] = { +{"upsidedown","UpsideDown",XtRBoolean,sizeof(Boolean), + offset(UpsideDown),XtRBoolean,&upsidedown}, {"reverse","Reverse",XtRBoolean,sizeof(Boolean), offset(Reverse),XtRBoolean,&reverse}, {"foreground","Foreground",XtRString,sizeof(char *), @@ -636,24 +654,34 @@ static XtResource resources[] = { offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, }; -init_plot_display(argc,argv) -int argc; -char **argv; +static XtActionsRec actions_table[] = { + {"quit",Quit}, +}; + +static void Quit(Widget w, XEvent *ev, String *params,Cardinal *nparams) { + XBell(XtDisplay(w),0); +} + +int init_plot_display(int argc,char **argv) +{ int ac; char **av; unsigned int tmp; for ( ac = argc, av = argv; ac; ac--, av++ ) - if ( index(*av,':') ) + if ( !strcmp(*av,"nox") ) + return 0; + else if ( index(*av,':') ) dname = *av; XtToolkitInitialize(); app_con = XtCreateApplicationContext(); + XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); display = XtOpenDisplay(app_con,dname,"plot","Plot", options,XtNumber(options),&argc,argv); if ( !display ) { fprintf(stderr,"Can't open display\n"); - exit(1); + return 0; } toplevel = XtAppCreateShell(0,"Plot",applicationShellWidgetClass, display,0,0); @@ -667,6 +695,11 @@ char **argv; depth = DefaultDepth(display,scrn); rootwin = RootWindow(display,scrn); + /* for handling DELETE message */ + wm_delete_window = XInternAtom(display,"WM_DELETE_WINDOW",False); + XtOverrideTranslations(toplevel, + XtParseTranslationTable("WM_PROTOCOLS: quit()")); + if ( reverse ) { tmp = forePixel; forePixel = backPixel; backPixel = tmp; } @@ -674,11 +707,12 @@ char **argv; create_gc(); create_font(); create_cursors(); + return 1; } static char *scalefont = "*-8-80-*"; -create_font() { +void create_font() { Font sfid; sfid = XLoadFont(display,scalefont); @@ -686,9 +720,8 @@ create_font() { XSetFont(display,scaleGC,sfid); } -create_gc() { +void create_gc() { static XColor color = {0,0x0,0x0,0x0,DoRed|DoGreen|DoBlue,0}; - int i,b,step; drawGC = XCreateGC(display,rootwin,0,NULL); dashGC = XCreateGC(display,rootwin,0,NULL); @@ -697,12 +730,14 @@ create_gc() { scaleGC = XCreateGC(display,rootwin,0,NULL); xorGC = XCreateGC(display,rootwin,0,NULL); colorGC = XCreateGC(display,rootwin,0,NULL); + cdrawGC = XCreateGC(display,rootwin,0,NULL); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,drawGC); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,dashGC); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,clearGC); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,scaleGC); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,xorGC); XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,colorGC); + XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,cdrawGC); XSetForeground(display,drawGC,forePixel); XSetForeground(display,scaleGC,forePixel); XSetForeground(display,clearGC,backPixel); @@ -719,7 +754,18 @@ create_gc() { XSetForeground(display,colorGC,color.pixel); } -create_cursors() { +void set_drawcolor(unsigned int c) +{ + XColor color = {0,0x0,0x0,0x0,DoRed|DoGreen|DoBlue,0}; + + color.red = (c&0xff0000)>>8; + color.green = (c&0xff00); + color.blue = (c&0xff)<<8; + XAllocColor(display,DefaultColormap(display,scrn),&color); + XSetForeground(display,cdrawGC,color.pixel); +} + +void create_cursors() { static XColor fg = {0, 0x0, 0x0, 0x0,DoRed|DoGreen|DoBlue,0}; static XColor bg = {0, 0xffff, 0xffff, 0xffff,DoRed|DoGreen|DoBlue,0}; @@ -733,10 +779,7 @@ create_cursors() { m_width/2,m_height/2,&fg,&bg); } -Cursor create_cursor(image,mask,width,height,xhot,yhot,fg,bg) -char *image,*mask; -int width,height,xhot,yhot; -XColor *fg,*bg; +Cursor create_cursor(char *image,char *mask,int width,int height,int xhot,int yhot,XColor *fg,XColor *bg) { Pixmap ipix,mpix; @@ -745,20 +788,22 @@ XColor *fg,*bg; return XCreatePixmapCursor(display,ipix,mpix,fg,bg,xhot,yhot); } -copy_to_canvas(can) -struct canvas *can; +void copy_to_canvas(struct canvas *can) { if ( display ) { - XCopyArea(display,can->pix,can->window, - drawGC,0,0,can->width,can->height,0,0); + if ( can->color ) { + set_drawcolor(can->color); + XCopyArea(display,can->pix,can->window, + cdrawGC,0,0,can->width,can->height,0,0); + } else + XCopyArea(display,can->pix,can->window, + drawGC,0,0,can->width,can->height,0,0); pline(display,can,can->window); XFlush(display); } } -copy_subimage(subcan,can,pos) -struct canvas *subcan,*can; -XPoint pos; +void copy_subimage(struct canvas *subcan,struct canvas *can,XPoint pos) { if ( display ) { XCopyArea(display,subcan->pix,can->pix, @@ -770,22 +815,21 @@ XPoint pos; #include #include -set_selection() { +void set_selection() { if ( current_can ) { XSelectInput(display,current_can->window,0); XFlush(display); } } -reset_selection() { +void reset_selection() { if ( current_can ) { XSelectInput(display,current_can->window,NormalSelection); XFlush(display); } } -set_busy(can) -struct canvas *can; +void set_busy(struct canvas *can) { busy = 1; XtSetSensitive(can->wideb,False); @@ -794,23 +838,460 @@ struct canvas *can; XFlush(display); } -reset_busy(can) -struct canvas *can; +void reset_busy(struct canvas *can) { busy = 0; if ( can->window ) { XtSetSensitive(can->wideb,True); XtSetSensitive(can->noaxisb,True); - if ( can->mode == MODE_IFPLOT && qpcheck((Obj)can->formula) ) + if ( can->mode == modeNO(IFPLOT) && qpcheck((Obj)can->formula) ) XtSetSensitive(can->preciseb,True); XFlush(display); } } -reset_current_computation() +void reset_current_computation() { if ( current_can ) { reset_selection(); reset_busy(current_can); define_cursor(current_can->window,normalcur); } } + +static struct canvas *Can; +/* void print_canvas(Widget w,struct canvas *can, XtPointer calldata); */ +static void output_to_file(Widget , XtPointer, XtPointer ); +static void output_to_ps_printer(Widget , XtPointer, XtPointer ); +static void cancel_output_to_file(Widget , XtPointer,XtPointer); +static void generate_psfile(struct canvas *can, FILE *fp); +static void set_printing_method(Widget,XtPointer,XtPointer); +static void method_is_not_available(); +static Widget PrintDialog; +static Widget PrintDialog_lp; +static Widget W; +static char *Fname = NULL; +static char *PrinterName = NULL; +#define PRINTING_METHOD_BITMAP 0 +#define PRINTING_METHOD_VECTOR 1 +static int PrintingMethod = PRINTING_METHOD_BITMAP; +static String Printing_methods[]={ + "bitMap","vector", +}; +static int N_printing_methods = 2; + +/* +static Widget create_printing_method_bar(Widget parent) { + Widget panel, button; + int i,n; + Arg wargs[1]; + panel = XtCreateManagedWidget("printing methods",panedWidgetClass, + parent,NULL,0); + for (i=0; ishell,"Print/Output PS file","",&fshell,&fdialog); + XawDialogAddButton(fdialog,"print",(XtCallbackProc)output_to_printer,w); + XawDialogAddButton(fdialog,"output PS file",(XtCallbackProc)print_canvas_to_file,w); + XawDialogAddButton(fdialog,"method",(XtCallbackProc)printing_method,w); + XawDialogAddButton(fdialog,"dismiss",(XtCallbackProc)cancel_output_to_file,w); + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); +} + +static void set_printing_method(Widget w,XtPointer number,XtPointer call_data) +{ + Widget shell; + extern int PrintingMethod; + PrintingMethod = (int) number; + fprintf(stderr,"PrintingMethod=%d\n",(int)number); + shell = XtParent(XtParent(w)); + XtPopdown(shell); XtDestroyWidget(shell); +} + +static void printing_method(Widget w,struct canvas *can,XtPointer calldata) +{ + Arg arg[10]; + int i,n; + Widget fshell,fdialog; + extern struct canvas *Can; + extern int PrintingMethod; + + w = W; + can = Can; + create_popup(can->shell,"Printing method",Printing_methods[PrintingMethod], + &fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "Method: "); n++; + XtSetArg(arg[n], XtNvalue, Printing_methods[PrintingMethod]); n++; + XtSetValues(fdialog,arg,n); + for (i=0; ishell,"Output as PS file",psfile,&fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "File : "); n++; + XtSetArg(arg[n], XtNvalue, psfile); n++; + XtSetValues(fdialog,arg,n); + XawDialogAddButton(fdialog,"output to file",output_to_file,w); + XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); + PrintDialog = fdialog; + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); +} + +static void output_to_printer(Widget w,struct canvas *can,XtPointer calldata) +{ + Arg arg[10]; + int n; + static char *psfile = NULL; + Widget fshell,fdialog; + extern struct canvas *Can; + extern Widget PrintDialog_lp; + extern char *PrinterName; + + w = W; + can = Can; + if (psfile == NULL || PrinterName == NULL) psfile = "lp"; + else psfile = PrinterName; + create_popup(can->shell,"Output PS file to printer",psfile,&fshell,&fdialog); + n = 0; + XtSetArg(arg[n], XtNlabel, "PS Printer Name : "); n++; + XtSetArg(arg[n], XtNvalue, psfile); n++; + XtSetValues(fdialog,arg,n); + XawDialogAddButton(fdialog,"output to PS printer",output_to_ps_printer,w); + XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); + PrintDialog_lp = fdialog; + XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); +} + +static void cancel_output_to_file(Widget w,XtPointer fbutton,XtPointer call) +{ + Widget shell = XtParent(XtParent(w)); + XtPopdown(shell); XtDestroyWidget(shell); + XtSetSensitive(fbutton,True); +} + +static void output_to_file(Widget w,XtPointer fbutton,XtPointer call) +{ + char *fname; + FILE *fp; + int i; + + extern struct canvas *Can; + extern Widget PrintDialog; + extern int PrintingMethod; + Widget shell = XtParent(XtParent(w)); + + if (PrintingMethod == PRINTING_METHOD_BITMAP) { + TODO; + }else{ + method_is_not_available(); + XtPopdown(shell); XtDestroyWidget(shell); + XtSetSensitive(fbutton,True); + return; + } + + fname = XawDialogGetValueString(PrintDialog); + Fname = (char *)malloc(sizeof(char)*strlen(fname)+1); + strcpy(Fname,fname); + for (i=0; ipix, + 0,0,can->width,can->height,-1,ZPixmap); + color[0] = 0; /* black line */ + PSFromImage(fp,image,can); + }else{ + fprintf(stderr,"Cannot print on this system\n"); + } + }else{ + method_is_not_available(); + } + fflush(NULL); +} + +static void method_is_not_available() { + char *m; +#define MSG1 "Printing method \"" +#define MSG2 "\" is not available for this picture." + m = (char *)malloc(strlen(MSG1)+strlen(MSG2)+strlen(Printing_methods[PrintingMethod])+1); + strcpy(m,MSG1); + strcat(m,Printing_methods[PrintingMethod]); + strcat(m,MSG2); + warning(Can,m); +} + +void clear_pixmap(struct canvas *can) +{ + XFillRectangle(display,can->pix,clearGC,0,0,can->width,can->height); + XFlush(display); +} + +#if 0 +/* + The following functions are used to generate color postscript file. +*/ +/* In order to count colorSize, binary tree (sm_btree) is used. */ +static struct sm_btree *sm_newNode(unsigned long v); +static void sm_insert(struct sm_btree *node,unsigned long v); +static int sm_count(struct sm_btree *rootp); +static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, + struct xcolorForPS **tableOfxcolorForPS); + +struct sm_btree { + unsigned long p; + struct sm_btree * left; + struct sm_btree * right; +}; + +static struct sm_btree *sm_newNode(unsigned long v) { + struct sm_btree * n; + n = (struct sm_btree *)MALLOC(sizeof(struct sm_btree)); + if (n == NULL) { fprintf(stderr,"No more memory.\n"); exit(10); } + n->p = v; + n->left = NULL; + n->right = NULL; + return n; +} + +static void sm_insert(struct sm_btree *node,unsigned long v) +{ + if (node->p == v) return; + if (node->p > v) { + if (node->left == NULL) { + node->left = sm_newNode(v); + return; + } + sm_insert(node->left,v); + } + if (node->p < v) { + if (node->right == NULL) { + node->right = sm_newNode(v); + return; + } + sm_insert(node->right,v); + } +} + + +static int sm_count(struct sm_btree *rootp) +{ + if (rootp == NULL) return 0; + return (1+sm_count(rootp->left)+sm_count(rootp->right)); +} + +static int setTableOfxcolorForPS(struct sm_btree *rootp, + struct xcolorForPS *table,int k,int size) +{ + int m; + m = k; + if (rootp == NULL) return 0; + if (k >= size) { + warning(Can,"internal error of setTableOfxcolorForPS"); + } + if (rootp->left != NULL) { + m = setTableOfxcolorForPS(rootp->left,table,k,size); + } + + (table[m]).pixel = rootp->p; + m++; + if (rootp->right != NULL) { + m = setTableOfxcolorForPS(rootp->right,table,m,size); + } + return m; +} + +static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, + struct xcolorForPS **tableOfxcolorForPS) +{ + int x,y; + int size; + struct sm_btree root; + struct xcolorForPS *table; + XStandardColormap scm; + Colormap cm; + XColor color; + XColor white; + int screen,i; + + root.p = 0; + root.left = NULL; root.right=NULL; + /* get color size */ + for (x=0; x 1.0) (table[i]).r = 1.0; + if ((table[i]).g > 1.0) (table[i]).g = 1.0; + if ((table[i]).b > 1.0) (table[i]).b = 1.0; + if (color.red == white.red && color.green == white.green + && color.blue == white.blue) { + (table[i]).print = 0; + }else{ + (table[i]).print = 1; + } + } + + *tableOfxcolorForPS = table; + return size; +} +#endif +