version 1.10, 2000/11/09 01:51:12 |
version 1.19, 2002/07/29 03:08:16 |
|
|
* 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.9 2000/11/07 06:06:40 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.18 2002/07/20 02:28:08 noro 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> |
|
|
|
/* 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 |
#ifdef ABS |
#undef ABS |
#undef ABS |
#define ABS(a) ((a)>0?(a):-(a)) |
#define ABS(a) ((a)>0?(a):-(a)) |
Line 64 static char *dname; |
|
Line 85 static char *dname; |
|
static int remotes; |
static int remotes; |
static int depth,scrn; |
static int depth,scrn; |
|
|
extern jmp_buf ox_env; |
extern JMP_BUF ox_env; |
static Widget toplevel; |
static Widget toplevel; |
static XtAppContext app_con; |
static XtAppContext app_con; |
|
|
Line 74 static struct PlotResources { |
|
Line 95 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 83 static struct PlotResources { |
|
Line 105 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 337 search_active_canvas() |
|
Line 360 search_active_canvas() |
|
return -1; |
return -1; |
} |
} |
|
|
|
void popup_canvas(index) |
|
{ |
|
XtPopup(canvas[index]->shell,XtGrabNone); |
|
} |
|
|
void destroy_canvas(w,can,calldata) |
void destroy_canvas(w,can,calldata) |
Widget w; |
Widget w; |
Line 345 struct canvas *can; |
|
Line 371 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; |
} |
} |
|
|
Line 619 struct canvas *can; |
|
Line 648 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 627 static XrmOptionDescRec options[] = { |
|
Line 657 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 643 static XtResource resources[] = { |
|
Line 675 static XtResource resources[] = { |
|
offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, |
offset(DashPixel),XtRPixel,(XtPointer)&dashPixel}, |
}; |
}; |
|
|
init_plot_display(argc,argv) |
int init_plot_display(argc,argv) |
int argc; |
int argc; |
char **argv; |
char **argv; |
{ |
{ |
|
|
unsigned int tmp; |
unsigned int tmp; |
|
|
for ( ac = argc, av = argv; ac; ac--, av++ ) |
for ( ac = argc, av = argv; ac; ac--, av++ ) |
if ( index(*av,':') ) |
if ( !strcmp(*av,"nox") ) |
|
return 0; |
|
else if ( index(*av,':') ) |
dname = *av; |
dname = *av; |
XtToolkitInitialize(); |
XtToolkitInitialize(); |
app_con = XtCreateApplicationContext(); |
app_con = XtCreateApplicationContext(); |
|
|
options,XtNumber(options),&argc,argv); |
options,XtNumber(options),&argc,argv); |
if ( !display ) { |
if ( !display ) { |
fprintf(stderr,"Can't open display\n"); |
fprintf(stderr,"Can't open display\n"); |
exit(1); |
return 0; |
} |
} |
toplevel = XtAppCreateShell(0,"Plot",applicationShellWidgetClass, |
toplevel = XtAppCreateShell(0,"Plot",applicationShellWidgetClass, |
display,0,0); |
display,0,0); |
|
|
create_gc(); |
create_gc(); |
create_font(); |
create_font(); |
create_cursors(); |
create_cursors(); |
|
return 1; |
} |
} |
|
|
static char *scalefont = "*-8-80-*"; |
static char *scalefont = "*-8-80-*"; |
|
|
scaleGC = XCreateGC(display,rootwin,0,NULL); |
scaleGC = XCreateGC(display,rootwin,0,NULL); |
xorGC = XCreateGC(display,rootwin,0,NULL); |
xorGC = XCreateGC(display,rootwin,0,NULL); |
colorGC = 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,drawGC); |
XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,dashGC); |
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,clearGC); |
XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,scaleGC); |
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,xorGC); |
XCopyGC(display,DefaultGC(display,scrn),(1L<<(GCLastBit+1))-1,colorGC); |
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,drawGC,forePixel); |
XSetForeground(display,scaleGC,forePixel); |
XSetForeground(display,scaleGC,forePixel); |
XSetForeground(display,clearGC,backPixel); |
XSetForeground(display,clearGC,backPixel); |
|
|
XSetForeground(display,colorGC,color.pixel); |
XSetForeground(display,colorGC,color.pixel); |
} |
} |
|
|
|
set_drawcolor(c) |
|
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); |
|
} |
|
|
create_cursors() { |
create_cursors() { |
static XColor fg = {0, 0x0, 0x0, 0x0,DoRed|DoGreen|DoBlue,0}; |
static XColor fg = {0, 0x0, 0x0, 0x0,DoRed|DoGreen|DoBlue,0}; |
static XColor bg = {0, 0xffff, 0xffff, 0xffff,DoRed|DoGreen|DoBlue,0}; |
static XColor bg = {0, 0xffff, 0xffff, 0xffff,DoRed|DoGreen|DoBlue,0}; |
Line 1084 static void output_to_ps_printer(w,fbutton,call) |
|
Line 1133 static void output_to_ps_printer(w,fbutton,call) |
|
ifplot(x^2-y^3); |
ifplot(x^2-y^3); |
drawcircle(0,0,100,0,0); |
drawcircle(0,0,100,0,0); |
*/ |
*/ |
|
static int getColorSizeOfImageForPS(int xsize,int ysize,XImage *image, |
|
struct xcolorForPS **tableOfxcolorForPS); |
|
|
static void generate_psfile(can,fp) |
static void generate_psfile(can,fp) |
struct canvas *can; |
struct canvas *can; |
FILE *fp; |
FILE *fp; |
Line 1093 static void generate_psfile(can,fp) |
|
Line 1145 static void generate_psfile(can,fp) |
|
int color[1]; |
int color[1]; |
int colorSize = 1; |
int colorSize = 1; |
char *m; |
char *m; |
|
struct xcolorForPS *tableOfxcolorForPS; |
extern int PrintingMethod; |
extern int PrintingMethod; |
fprintf(stderr,"generate_psfile\n"); |
fprintf(stderr,"generate_psfile\n"); |
if (PrintingMethod == PRINTING_METHOD_BITMAP) { |
if (PrintingMethod == PRINTING_METHOD_BITMAP) { |
Line 1100 static void generate_psfile(can,fp) |
|
Line 1153 static void generate_psfile(can,fp) |
|
fprintf(stderr,"generate_psfile: output to a file.\n"); |
fprintf(stderr,"generate_psfile: output to a file.\n"); |
image = XGetImage(display,can->pix, |
image = XGetImage(display,can->pix, |
0,0,can->width,can->height,-1,ZPixmap); |
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{ |
}else{ |
fprintf(stderr,"Cannot print on this system\n"); |
fprintf(stderr,"Cannot print on this system\n"); |
} |
} |
Line 1128 struct canvas *can; |
|
Line 1183 struct canvas *can; |
|
XFillRectangle(display,can->pix,clearGC,0,0,can->width,can->height); |
XFillRectangle(display,can->pix,clearGC,0,0,can->width,can->height); |
XFlush(display); |
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; |
|
} |
|
|