=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v retrieving revision 1.14 retrieving revision 1.26 diff -u -p -r1.14 -r1.26 --- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2002/01/30 08:31:34 1.14 +++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c 2005/07/03 13:11:28 1.26 @@ -45,7 +45,7 @@ * 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.13 2001/12/25 02:39:07 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.25 2005/05/18 03:27:00 noro Exp $ */ #include "ca.h" #include "parse.h" @@ -55,6 +55,26 @@ #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); + +static Atom wm_delete_window; + +void SetWM_Proto(Widget w) +{ + XtOverrideTranslations(w, + XtParseTranslationTable("WM_PROTOCOLS: quit()")); + XSetWMProtocols(display,XtWindow(w),&wm_delete_window,1); +} + +static void quit(Widget w, XEvent *ev, String *params,Cardinal *nparams) +{ + XBell(display,0); +} + /* XXX : these lines are in plotg.c, but ld says they are not defined */ #if __DARWIN__ int stream; @@ -72,6 +92,7 @@ XFontStruct *sffs; #endif struct canvas *canvas[MAXCANVAS]; +struct canvas *closed_canvas[MAXCANVAS]; struct canvas *current_can; #endif /* __DARWIN__ */ @@ -81,7 +102,6 @@ struct canvas *current_can; #endif static char *dname; -static int remotes; static int depth,scrn; extern JMP_BUF ox_env; @@ -94,6 +114,7 @@ static struct PlotResources { Pixel ForePixel,BackPixel,DashPixel; char *ForeName,*BackName,*DashName; Boolean Reverse; + Boolean UpsideDown; } PlotResources; #define forePixel PlotResources.ForePixel @@ -103,6 +124,7 @@ static struct PlotResources { #define backName PlotResources.BackName #define dashName PlotResources.DashName #define reverse PlotResources.Reverse +#define upsidedown PlotResources.UpsideDown Cursor create_cursor(); @@ -169,7 +191,9 @@ XButtonEvent *ev; case Button1: e.x = ev->x; e.y = ev->y; draw_frame0(can->window,spos,e); - if ( !busy && can->mode != MODE_INTERACTIVE ) { + if ( !busy + && can->mode != MODE_INTERACTIVE + && can->mode != MODE_POLARPLOT) { if ( can->mode == MODE_PLOT ) plot_resize(can,spos,e); else @@ -357,7 +381,12 @@ search_active_canvas() return -1; } - +void popup_canvas(index) +{ + clear_pixmap(canvas[index]); + XtPopup(canvas[index]->shell,XtGrabNone); + copy_to_canvas(canvas[index]); +} void destroy_canvas(w,can,calldata) Widget w; @@ -365,11 +394,14 @@ 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; } @@ -478,6 +510,7 @@ char *s; 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) @@ -500,6 +533,7 @@ 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) @@ -524,12 +558,10 @@ struct canvas *can; int i,width,height; Arg arg[6]; char buf[BUFSIZ]; - static void print_canvas(); 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); @@ -621,7 +653,7 @@ struct canvas *can; if ( can->mode != MODE_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); @@ -639,6 +671,7 @@ struct canvas *can; } static XrmOptionDescRec options[] = { +{"-upsidedown","*upsidedown",XrmoptionNoArg,"on"}, {"-reverse","*reverse",XrmoptionNoArg,"on"}, {"-fg","*foreground",XrmoptionSepArg,NULL}, {"-bg","*background",XrmoptionSepArg,NULL}, @@ -647,6 +680,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 *), @@ -663,6 +698,15 @@ static XtResource resources[] = { offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, }; +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(argc,argv) int argc; char **argv; @@ -678,6 +722,7 @@ char **argv; 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 ) { @@ -696,6 +741,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; } @@ -793,8 +843,13 @@ copy_to_canvas(can) 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); } @@ -909,9 +964,6 @@ static void print_canvas(w,can,calldata) Widget entry; int i; Arg arg[1]; - static void output_to_printer(); - static void print_canvas_to_file(); - static void printing_method(); W = w; Can = can; @@ -921,6 +973,7 @@ static void print_canvas(w,can,calldata) XawDialogAddButton(fdialog,"method",printing_method,w); XawDialogAddButton(fdialog,"dismiss",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) { @@ -955,6 +1008,7 @@ static void printing_method(w,can,calldata) XawDialogAddButton(fdialog,Printing_methods[i],set_printing_method,(XtPointer) i); } XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } static void print_canvas_to_file(w,can,calldata) Widget w; @@ -983,6 +1037,7 @@ static void print_canvas_to_file(w,can,calldata) XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); PrintDialog = fdialog; XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); + SetWM_Proto(fshell); } static void output_to_printer(w,can,calldata) Widget w; @@ -1011,6 +1066,7 @@ static void output_to_printer(w,can,calldata) 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(w,fbutton,call) @@ -1121,6 +1177,9 @@ static void output_to_ps_printer(w,fbutton,call) ifplot(x^2-y^3); drawcircle(0,0,100,0,0); */ +static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, + struct xcolorForPS **tableOfxcolorForPS); + static void generate_psfile(can,fp) struct canvas *can; FILE *fp; @@ -1130,6 +1189,7 @@ static void generate_psfile(can,fp) int color[1]; int colorSize = 1; char *m; + struct xcolorForPS *tableOfxcolorForPS; extern int PrintingMethod; fprintf(stderr,"generate_psfile\n"); if (PrintingMethod == PRINTING_METHOD_BITMAP) { @@ -1137,8 +1197,10 @@ static void generate_psfile(can,fp) fprintf(stderr,"generate_psfile: output to a file.\n"); image = XGetImage(display,can->pix, 0,0,can->width,can->height,-1,ZPixmap); - color[0] = 0; /* balck line */ - generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can); + colorSize = + getColorSizeOfImageForPS(can->width,can->height,image,&tableOfxcolorForPS); + color[0] = 0; /* black line */ + generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can,tableOfxcolorForPS,upsidedown); }else{ fprintf(stderr,"Cannot print on this system\n"); } @@ -1165,3 +1227,150 @@ struct canvas *can; XFillRectangle(display,can->pix,clearGC,0,0,can->width,can->height); XFlush(display); } + +/* + 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 int sm_insert(struct sm_btree *node,unsigned long v); +static int sm_count(struct sm_btree *rootp); + +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 int 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; + 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; +} +