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.13 and 1.27

version 1.13, 2001/12/25 02:39:07

version 1.27, 2006/11/09 15:54:35

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.12 2001/08/22 09:19:21 noro 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 "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;

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;

Line 74 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 83 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 149 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 337 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 345 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 458 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 480 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 504 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 601 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 619 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 627 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 643 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 658 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 676 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 773 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 889 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 901 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 935 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 963 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 991 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 1099 static void output_to_ps_printer(w,fbutton,call)

Line 1175 static void output_to_ps_printer(w,fbutton,call)

/* test sequence

ox_launch(0,"ox_plot");

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,

struct xcolorForPS **tableOfxcolorForPS);

static void generate_psfile(can,fp)

struct canvas *can;

FILE *fp;

Line 1110 static void generate_psfile(can,fp)

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

Line 1117 static void generate_psfile(can,fp)

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

colorSize =

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

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

}

Line 1145 struct canvas *can;

Line 1227 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<xsize; x++) {

for (y=0; y<ysize; y++) {

sm_insert(&root,XGetPixel(image,x,y));

}

size=sm_count(&root);

table = (struct xcolorForPS *)MALLOC((size+1)*sizeof(struct xcolorForPS));

if (table == NULL) {

fprintf(stderr,"No more memory in getColorSizeOfImageForPS.\n");

return 0;

}

/* Set rgb values standing for the pixel values.

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>