version 1.17, 2002/07/12 00:14:40 |
version 1.27, 2006/11/09 15:54:35 |
|
|
* 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/ox_plot_xevent.c,v 1.16 2002/07/11 12:35:03 takayama Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.26 2005/07/03 13:11:28 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
#include <X11/Xaw/MenuButton.h> |
#include <X11/Xaw/MenuButton.h> |
#include <X11/Xaw/Paned.h> |
#include <X11/Xaw/Paned.h> |
|
|
|
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("<Message>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 */ |
/* XXX : these lines are in plotg.c, but ld says they are not defined */ |
#if __DARWIN__ |
#if __DARWIN__ |
int stream; |
int stream; |
Line 72 XFontStruct *sffs; |
|
Line 92 XFontStruct *sffs; |
|
#endif |
#endif |
|
|
struct canvas *canvas[MAXCANVAS]; |
struct canvas *canvas[MAXCANVAS]; |
|
struct canvas *closed_canvas[MAXCANVAS]; |
struct canvas *current_can; |
struct canvas *current_can; |
#endif /* __DARWIN__ */ |
#endif /* __DARWIN__ */ |
|
|
Line 81 struct canvas *current_can; |
|
Line 102 struct canvas *current_can; |
|
#endif |
#endif |
|
|
static char *dname; |
static char *dname; |
static int remotes; |
|
static int depth,scrn; |
static int depth,scrn; |
|
|
extern JMP_BUF ox_env; |
extern JMP_BUF ox_env; |
Line 94 static struct PlotResources { |
|
Line 114 static struct PlotResources { |
|
Pixel ForePixel,BackPixel,DashPixel; |
Pixel ForePixel,BackPixel,DashPixel; |
char *ForeName,*BackName,*DashName; |
char *ForeName,*BackName,*DashName; |
Boolean Reverse; |
Boolean Reverse; |
|
Boolean UpsideDown; |
} PlotResources; |
} PlotResources; |
|
|
#define forePixel PlotResources.ForePixel |
#define forePixel PlotResources.ForePixel |
Line 103 static struct PlotResources { |
|
Line 124 static struct PlotResources { |
|
#define backName PlotResources.BackName |
#define backName PlotResources.BackName |
#define dashName PlotResources.DashName |
#define dashName PlotResources.DashName |
#define reverse PlotResources.Reverse |
#define reverse PlotResources.Reverse |
|
#define upsidedown PlotResources.UpsideDown |
|
|
Cursor create_cursor(); |
Cursor create_cursor(); |
|
|
Line 169 XButtonEvent *ev; |
|
Line 191 XButtonEvent *ev; |
|
case Button1: |
case Button1: |
e.x = ev->x; e.y = ev->y; |
e.x = ev->x; e.y = ev->y; |
draw_frame0(can->window,spos,e); |
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 ) |
if ( can->mode == MODE_PLOT ) |
plot_resize(can,spos,e); |
plot_resize(can,spos,e); |
else |
else |
Line 357 search_active_canvas() |
|
Line 381 search_active_canvas() |
|
return -1; |
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) |
void destroy_canvas(w,can,calldata) |
Widget w; |
Widget w; |
Line 365 struct canvas *can; |
|
Line 394 struct canvas *can; |
|
XtPointer calldata; |
XtPointer calldata; |
{ |
{ |
XtPopdown(can->shell); |
XtPopdown(can->shell); |
XtDestroyWidget(can->shell); |
/* XtDestroyWidget(can->shell); */ |
XFlush(display); |
XFlush(display); |
if ( can == current_can ) { |
if ( can == current_can ) { |
reset_busy(can); current_can = 0; |
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; |
canvas[can->index] = 0; |
} |
} |
|
|
|
|
create_popup(can->shell,"warning",s,&warnshell,&warndialog); |
create_popup(can->shell,"warning",s,&warnshell,&warndialog); |
XawDialogAddButton(warndialog,"dismiss",popdown_warning,warnshell); |
XawDialogAddButton(warndialog,"dismiss",popdown_warning,warnshell); |
XtPopup(warnshell,XtGrabNone); |
XtPopup(warnshell,XtGrabNone); |
|
SetWM_Proto(warnshell); |
} |
} |
|
|
void popdown_warning(w,client,call) |
void popdown_warning(w,client,call) |
Line 500 XtPointer calldata; |
|
Line 533 XtPointer calldata; |
|
create_popup(can->shell,"formula",buf,&fshell,&fdialog); |
create_popup(can->shell,"formula",buf,&fshell,&fdialog); |
XawDialogAddButton(fdialog,"dismiss",popdown_formula,w); |
XawDialogAddButton(fdialog,"dismiss",popdown_formula,w); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
|
SetWM_Proto(fshell); |
} |
} |
|
|
void popdown_formula(w,fbutton,call) |
void popdown_formula(w,fbutton,call) |
Line 524 struct canvas *can; |
|
Line 558 struct canvas *can; |
|
int i,width,height; |
int i,width,height; |
Arg arg[6]; |
Arg arg[6]; |
char buf[BUFSIZ]; |
char buf[BUFSIZ]; |
static void print_canvas(); |
|
|
|
width = can->width; height = can->height; |
width = can->width; height = can->height; |
|
|
sprintf(buf,"%s : %d/%d", can->wname?can->wname:"Plot", |
sprintf(buf,"%s : %d", can->wname?can->wname:"Plot",can->index); |
remotes,can->index); |
|
XtSetArg(arg[0],XtNiconName,buf); |
XtSetArg(arg[0],XtNiconName,buf); |
can->shell = |
can->shell = |
XtCreatePopupShell("shell",topLevelShellWidgetClass,toplevel,arg,1); |
XtCreatePopupShell("shell",topLevelShellWidgetClass,toplevel,arg,1); |
Line 621 struct canvas *can; |
|
Line 653 struct canvas *can; |
|
if ( can->mode != MODE_IFPLOT || !qpcheck((Obj)can->formula) ) |
if ( can->mode != MODE_IFPLOT || !qpcheck((Obj)can->formula) ) |
XtSetSensitive(precise,False); |
XtSetSensitive(precise,False); |
XtPopup(can->shell,XtGrabNone); |
XtPopup(can->shell,XtGrabNone); |
|
SetWM_Proto(can->shell); |
window = can->window = XtWindow(canvas); |
window = can->window = XtWindow(canvas); |
pix = can->pix = XCreatePixmap(display,window,width,height,depth); |
pix = can->pix = XCreatePixmap(display,window,width,height,depth); |
XFillRectangle(display,pix,clearGC,0,0,width,height); |
XFillRectangle(display,pix,clearGC,0,0,width,height); |
Line 639 struct canvas *can; |
|
Line 671 struct canvas *can; |
|
} |
} |
|
|
static XrmOptionDescRec options[] = { |
static XrmOptionDescRec options[] = { |
|
{"-upsidedown","*upsidedown",XrmoptionNoArg,"on"}, |
{"-reverse","*reverse",XrmoptionNoArg,"on"}, |
{"-reverse","*reverse",XrmoptionNoArg,"on"}, |
{"-fg","*foreground",XrmoptionSepArg,NULL}, |
{"-fg","*foreground",XrmoptionSepArg,NULL}, |
{"-bg","*background",XrmoptionSepArg,NULL}, |
{"-bg","*background",XrmoptionSepArg,NULL}, |
Line 647 static XrmOptionDescRec options[] = { |
|
Line 680 static XrmOptionDescRec options[] = { |
|
#define offset(name) XtOffset(struct PlotResources *,name) |
#define offset(name) XtOffset(struct PlotResources *,name) |
|
|
static XtResource resources[] = { |
static XtResource resources[] = { |
|
{"upsidedown","UpsideDown",XtRBoolean,sizeof(Boolean), |
|
offset(UpsideDown),XtRBoolean,&upsidedown}, |
{"reverse","Reverse",XtRBoolean,sizeof(Boolean), |
{"reverse","Reverse",XtRBoolean,sizeof(Boolean), |
offset(Reverse),XtRBoolean,&reverse}, |
offset(Reverse),XtRBoolean,&reverse}, |
{"foreground","Foreground",XtRString,sizeof(char *), |
{"foreground","Foreground",XtRString,sizeof(char *), |
Line 663 static XtResource resources[] = { |
|
Line 698 static XtResource resources[] = { |
|
offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, |
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 init_plot_display(argc,argv) |
int argc; |
int argc; |
char **argv; |
char **argv; |
|
|
dname = *av; |
dname = *av; |
XtToolkitInitialize(); |
XtToolkitInitialize(); |
app_con = XtCreateApplicationContext(); |
app_con = XtCreateApplicationContext(); |
|
XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); |
display = XtOpenDisplay(app_con,dname,"plot","Plot", |
display = XtOpenDisplay(app_con,dname,"plot","Plot", |
options,XtNumber(options),&argc,argv); |
options,XtNumber(options),&argc,argv); |
if ( !display ) { |
if ( !display ) { |
|
|
depth = DefaultDepth(display,scrn); |
depth = DefaultDepth(display,scrn); |
rootwin = RootWindow(display,scrn); |
rootwin = RootWindow(display,scrn); |
|
|
|
/* for handling DELETE message */ |
|
wm_delete_window = XInternAtom(display,"WM_DELETE_WINDOW",False); |
|
XtOverrideTranslations(toplevel, |
|
XtParseTranslationTable("<Message>WM_PROTOCOLS: quit()")); |
|
|
if ( reverse ) { |
if ( reverse ) { |
tmp = forePixel; forePixel = backPixel; backPixel = tmp; |
tmp = forePixel; forePixel = backPixel; backPixel = tmp; |
} |
} |
Line 793 copy_to_canvas(can) |
|
Line 843 copy_to_canvas(can) |
|
struct canvas *can; |
struct canvas *can; |
{ |
{ |
if ( display ) { |
if ( display ) { |
XCopyArea(display,can->pix,can->window, |
if ( can->color ) { |
drawGC,0,0,can->width,can->height,0,0); |
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); |
pline(display,can,can->window); |
XFlush(display); |
XFlush(display); |
} |
} |
Line 909 static void print_canvas(w,can,calldata) |
|
Line 964 static void print_canvas(w,can,calldata) |
|
Widget entry; |
Widget entry; |
int i; |
int i; |
Arg arg[1]; |
Arg arg[1]; |
static void output_to_printer(); |
|
static void print_canvas_to_file(); |
|
static void printing_method(); |
|
|
|
W = w; |
W = w; |
Can = can; |
Can = can; |
Line 921 static void print_canvas(w,can,calldata) |
|
Line 973 static void print_canvas(w,can,calldata) |
|
XawDialogAddButton(fdialog,"method",printing_method,w); |
XawDialogAddButton(fdialog,"method",printing_method,w); |
XawDialogAddButton(fdialog,"dismiss",cancel_output_to_file,w); |
XawDialogAddButton(fdialog,"dismiss",cancel_output_to_file,w); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
|
SetWM_Proto(fshell); |
} |
} |
|
|
static void set_printing_method(Widget w,XtPointer number,XtPointer call_data) { |
static void set_printing_method(Widget w,XtPointer number,XtPointer call_data) { |
Line 955 static void printing_method(w,can,calldata) |
|
Line 1008 static void printing_method(w,can,calldata) |
|
XawDialogAddButton(fdialog,Printing_methods[i],set_printing_method,(XtPointer) i); |
XawDialogAddButton(fdialog,Printing_methods[i],set_printing_method,(XtPointer) i); |
} |
} |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
|
SetWM_Proto(fshell); |
} |
} |
static void print_canvas_to_file(w,can,calldata) |
static void print_canvas_to_file(w,can,calldata) |
Widget w; |
Widget w; |
Line 983 static void print_canvas_to_file(w,can,calldata) |
|
Line 1037 static void print_canvas_to_file(w,can,calldata) |
|
XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); |
XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); |
PrintDialog = fdialog; |
PrintDialog = fdialog; |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
|
SetWM_Proto(fshell); |
} |
} |
static void output_to_printer(w,can,calldata) |
static void output_to_printer(w,can,calldata) |
Widget w; |
Widget w; |
Line 1011 static void output_to_printer(w,can,calldata) |
|
Line 1066 static void output_to_printer(w,can,calldata) |
|
XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); |
XawDialogAddButton(fdialog,"cancel",cancel_output_to_file,w); |
PrintDialog_lp = fdialog; |
PrintDialog_lp = fdialog; |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone); |
|
SetWM_Proto(fshell); |
} |
} |
|
|
static void cancel_output_to_file(w,fbutton,call) |
static void cancel_output_to_file(w,fbutton,call) |
Line 1119 static void output_to_ps_printer(w,fbutton,call) |
|
Line 1175 static void output_to_ps_printer(w,fbutton,call) |
|
/* test sequence |
/* test sequence |
ox_launch(0,"ox_plot"); |
ox_launch(0,"ox_plot"); |
ifplot(x^2-y^3); |
ifplot(x^2-y^3); |
drawcircle(0,0,100,0,0); |
drawcircle(0,0,100,0xff000,0); |
*/ |
*/ |
static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, |
static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, |
struct xcolorForPS **tableOfxcolorForPS); |
struct xcolorForPS **tableOfxcolorForPS); |
Line 1144 static void generate_psfile(can,fp) |
|
Line 1200 static void generate_psfile(can,fp) |
|
colorSize = |
colorSize = |
getColorSizeOfImageForPS(can->width,can->height,image,&tableOfxcolorForPS); |
getColorSizeOfImageForPS(can->width,can->height,image,&tableOfxcolorForPS); |
color[0] = 0; /* black line */ |
color[0] = 0; /* black line */ |
generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can,tableOfxcolorForPS); |
generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can,tableOfxcolorForPS,upsidedown); |
}else{ |
}else{ |
fprintf(stderr,"Cannot print on this system\n"); |
fprintf(stderr,"Cannot print on this system\n"); |
} |
} |