OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c - diff

Return to ox_plot_xevent.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / plot

Diff for /OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c between version 1.15 and 1.26

version 1.15, 2002/07/11 03:34:34

version 1.26, 2005/07/03 13:11:28

Line 45

* 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.14 2002/01/30 08:31:34 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"

Line 55

#include <X11/Xaw/MenuButton.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 */

#if __DARWIN__

int stream;

Line 72 XFontStruct *sffs;

Line 92 XFontStruct *sffs;

#endif

struct canvas *canvas[MAXCANVAS];

struct canvas *closed_canvas[MAXCANVAS];

struct canvas *current_can;

#endif /* __DARWIN__ */

Line 81 struct canvas *current_can;

Line 102 struct canvas *current_can;

#endif

static char *dname;

static int remotes;

static int depth,scrn;

extern JMP_BUF ox_env;

Line 94 static struct PlotResources {

Line 114 static struct PlotResources {

Pixel ForePixel,BackPixel,DashPixel;

char *ForeName,*BackName,*DashName;

Boolean Reverse;

Boolean UpsideDown;

} PlotResources;

#define forePixel PlotResources.ForePixel

Line 103 static struct PlotResources {

Line 124 static struct PlotResources {

#define backName PlotResources.BackName

#define dashName PlotResources.DashName

#define reverse PlotResources.Reverse

#define upsidedown PlotResources.UpsideDown

Cursor create_cursor();

Line 169 XButtonEvent *ev;

Line 191 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

Line 357 search_active_canvas()

Line 381 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;

Line 365 struct canvas *can;

Line 394 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;

}

Line 478 char *s;

Line 510 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)

Line 500 XtPointer calldata;

Line 533 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)

Line 524 struct canvas *can;

Line 558 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",

sprintf(buf,"%s : %d", can->wname?can->wname:"Plot",can->index);

remotes,can->index);

XtSetArg(arg[0],XtNiconName,buf);

can->shell =

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) )

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);

Line 639 struct canvas *can;

Line 671 struct canvas *can;

}

static XrmOptionDescRec options[] = {

{"-upsidedown","*upsidedown",XrmoptionNoArg,"on"},

{"-reverse","*reverse",XrmoptionNoArg,"on"},

{"-fg","*foreground",XrmoptionSepArg,NULL},

{"-bg","*background",XrmoptionSepArg,NULL},

Line 647 static XrmOptionDescRec options[] = {

Line 680 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 *),

Line 663 static XtResource resources[] = {

Line 698 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;

Line 678 char **argv;

Line 722 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 ) {

Line 696 char **argv;

Line 741 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("<Message>WM_PROTOCOLS: quit()"));

if ( reverse ) {

tmp = forePixel; forePixel = backPixel; backPixel = tmp;

}

Line 793 copy_to_canvas(can)

Line 843 copy_to_canvas(can)

struct canvas *can;

{

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);

XFlush(display);

}

Line 909 static void print_canvas(w,can,calldata)

Line 964 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;

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,"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) {

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);

}

XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone);

SetWM_Proto(fshell);

}

static void print_canvas_to_file(w,can,calldata)

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);

PrintDialog = fdialog;

XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone);

SetWM_Proto(fshell);

}

static void output_to_printer(w,can,calldata)

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);

PrintDialog_lp = fdialog;

XtSetSensitive(w,False); XtPopup(fshell,XtGrabNone);

SetWM_Proto(fshell);

}

static void cancel_output_to_file(w,fbutton,call)

Line 1144 static void generate_psfile(can,fp)

Line 1200 static void generate_psfile(can,fp)

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);

generatePS_from_image(fp,image,can->width,can->height,color,colorSize,can,tableOfxcolorForPS,upsidedown);

}else{

fprintf(stderr,"Cannot print on this system\n");

}

Line 1179 struct canvas *can;

Line 1235 struct canvas *can;

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);

#define MALLOC(a) GC_malloc(a)

struct sm_btree {

unsigned long p;

struct sm_btree * left;

Line 1218 static int sm_count(struct sm_btree *rootp)

Line 1274 static int sm_count(struct sm_btree *rootp)

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)

{

Line 1225 static int getColorSizeOfImageForPS(int xsize,int ysiz

Line 1303 static int getColorSizeOfImageForPS(int xsize,int ysiz

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 */

Line 1241 static int getColorSizeOfImageForPS(int xsize,int ysiz

Line 1325 static int getColorSizeOfImageForPS(int xsize,int ysiz

return 0;

}

/* Set rgb values standing for the pixel values.

Not implemented.

if (setTableOfxcolorForPS(&root,table,0,size) != size) {

warning(Can,"internal error.");

return ;

}

screen = DefaultScreen(display);

cm = DefaultColormap(display,screen);

/* BUG: it does not work.

if (!XGetStandardColormap(display,RootWindow(display,DefaultScreen(display)),&scm,XA_RGB_DEFAULT_MAP)) {

warning(Can,"failed to open the X Standard Colormap.");

scm.red_max = 0xffff;

scm.green_max = 0xffff;

scm.blue_max = 0xffff;

}

/* Set by hand. */

scm.red_max = 0xffff;

scm.green_max = 0xffff;

scm.blue_max = 0xffff;

XParseColor(display,cm,"White",&white);

for (i=0; i<size; i++) {

color.pixel=(table[i]).pixel;

{

char s[254];

sprintf(s,"%ld",color.pixel);

warning(Can,s);

}

XQueryColor(display,cm,&color);

(table[i]).r = ((double) color.red)/((double) scm.red_max);

(table[i]).g = ((double) color.green)/((double) scm.green_max);

(table[i]).b = ((double) color.blue)/((double) scm.blue_max);

if ((table[i]).r > 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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>