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.8 and 1.20

version 1.8, 2000/10/24 01:53:53

version 1.20, 2002/07/30 03:54:36

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.7 2000/10/15 10:58:11 takayama Exp $

* $OpenXM: OpenXM_contrib2/asir2000/plot/ox_plot_xevent.c,v 1.19 2002/07/29 03:08:16 noro Exp $

#include "ca.h"

#include "parse.h"

Line 55

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

Line 64 static char *dname;

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

Line 74 static struct PlotResources {

Line 95 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 105 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 172 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

Line 337 search_active_canvas()

Line 360 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 373 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 619 struct canvas *can;

Line 650 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 659 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 677 static XtResource resources[] = {

offset(DashPixel),XtRPixel,(XtPointer)&dashPixel},

};

init_plot_display(argc,argv)

int init_plot_display(argc,argv)

int argc;

char **argv;

{

Line 652 char **argv;

Line 686 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();

Line 660 char **argv;

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

Line 681 char **argv;

Line 717 char **argv;

create_gc();

create_font();

create_cursors();

return 1;

}

static char *scalefont = "*-8-80-*";

Line 704 create_gc() {

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

Line 726 create_gc() {

Line 765 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};

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

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

Line 1093 static void generate_psfile(can,fp)

Line 1147 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 1100 static void generate_psfile(can,fp)

Line 1155 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 1121 static void method_is_not_available() {

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

}

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