===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v
retrieving revision 1.8
retrieving revision 1.19
diff -u -p -r1.8 -r1.19
--- OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c	2000/10/24 01:53:53	1.8
+++ OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c	2002/07/29 03:08:16	1.19
@@ -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.7 2000/10/15 10:58:11 takayama 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 "parse.h"
@@ -55,6 +55,27 @@
 #include <X11/Xaw/MenuButton.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
 #undef ABS
 #define ABS(a) ((a)>0?(a):-(a))
@@ -64,7 +85,7 @@ static char *dname;
 static int remotes;
 static int depth,scrn;
 
-extern jmp_buf ox_env;
+extern JMP_BUF ox_env;
 static Widget toplevel;
 static XtAppContext app_con;
 
@@ -74,6 +95,7 @@ static struct PlotResources {
 	Pixel ForePixel,BackPixel,DashPixel;
 	char *ForeName,*BackName,*DashName;
 	Boolean Reverse;
+	Boolean UpsideDown;
 } PlotResources;
 
 #define forePixel PlotResources.ForePixel
@@ -83,6 +105,7 @@ static struct PlotResources {
 #define backName PlotResources.BackName
 #define dashName PlotResources.DashName
 #define reverse PlotResources.Reverse
+#define upsidedown PlotResources.UpsideDown
 
 Cursor create_cursor();
 
@@ -149,7 +172,7 @@ XButtonEvent *ev;
 		case Button1:
 			e.x = ev->x; e.y = ev->y;
 			draw_frame0(can->window,spos,e);
-			if ( !busy ) {
+			if ( !busy && can->mode != MODE_INTERACTIVE ) {
 				if ( can->mode == MODE_PLOT )
 					plot_resize(can,spos,e);
 				else
@@ -337,7 +360,10 @@ search_active_canvas()
 	return -1;
 }
 
-	 
+void popup_canvas(index)
+{
+	XtPopup(canvas[index]->shell,XtGrabNone);
+}
 
 void destroy_canvas(w,can,calldata)
 Widget w;
@@ -345,11 +371,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;
 }
 
@@ -619,6 +648,7 @@ struct canvas *can;
 }
 
 static XrmOptionDescRec options[] = {
+{"-upsidedown","*upsidedown",XrmoptionNoArg,"on"},
 {"-reverse","*reverse",XrmoptionNoArg,"on"},
 {"-fg","*foreground",XrmoptionSepArg,NULL},
 {"-bg","*background",XrmoptionSepArg,NULL},
@@ -627,6 +657,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 *),
@@ -643,7 +675,7 @@ static XtResource resources[] = {
 	offset(DashPixel),XtRPixel,(XtPointer)&dashPixel},
 };
 
-init_plot_display(argc,argv)
+int init_plot_display(argc,argv)
 int argc;
 char **argv;
 {
@@ -652,7 +684,9 @@ char **argv;
 	unsigned int tmp;
 
 	for ( ac = argc, av = argv; ac; ac--, av++ )
-		if ( index(*av,':') )
+		if ( !strcmp(*av,"nox") )
+			return 0;	
+		else if ( index(*av,':') )
 			dname = *av;
 	XtToolkitInitialize();
 	app_con = XtCreateApplicationContext();
@@ -660,7 +694,7 @@ char **argv;
 		options,XtNumber(options),&argc,argv);
 	if ( !display ) {
 		fprintf(stderr,"Can't open display\n");
-		exit(1);
+		return 0;	
 	}
 	toplevel = XtAppCreateShell(0,"Plot",applicationShellWidgetClass,
 		display,0,0);
@@ -681,6 +715,7 @@ char **argv;
 	create_gc();
 	create_font();
 	create_cursors();
+	return 1;
 }
 
 static char *scalefont = "*-8-80-*";
@@ -704,12 +739,14 @@ create_gc() {
 	scaleGC = XCreateGC(display,rootwin,0,NULL);
 	xorGC = 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,dashGC);
 	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,xorGC);
 	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,scaleGC,forePixel);
 	XSetForeground(display,clearGC,backPixel);
@@ -726,6 +763,18 @@ create_gc() {
 	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() {
 	static XColor fg = {0, 0x0, 0x0, 0x0,DoRed|DoGreen|DoBlue,0};
 	static XColor bg = {0, 0xffff, 0xffff, 0xffff,DoRed|DoGreen|DoBlue,0};
@@ -1084,6 +1133,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;
@@ -1093,6 +1145,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) {
@@ -1100,8 +1153,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");
 	}
@@ -1121,3 +1176,157 @@ static void method_is_not_available() {
   strcat(m,MSG2);
   warning(Can,m);
 }
+
+clear_pixmap(can)
+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;
+}
+