/* FUNCTION FXCLRC(DISPLAY,GC,CLPX,CLPY,WIDTH,HEIGHT) PURPOSE: SET THE CLIP-MASK OF A GIVEN GC WRITTEN BY: David Bui ARGUMENT LIST INPUT: display = specifies the connection to the X server gc = specifies the GC clpx,clpy = specifies the x and y coordinates of the clip-mask origin width = specifies the width of the rectangle height = specifies the height of the rectangle Discussion: Fortran-callable interface to XSetClipRectangles */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxclrc_( int *display, int *gc, int *clpx, int *clpy, int *width, int *height) { Status XSetClipRectangles() ; XRectangle rectangle[1] ; rectangle[0].x = *clpx ; rectangle[0].y = *clpy ; rectangle[0].width = *width ; rectangle[0].height = *height ; XSetClipRectangles(*display,*gc,0,0,rectangle,1,Unsorted) ; } #else void fxclrc_( int *display, int *gc, int *clpx, int *clpy, int *width, int *height) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ #ifdef CDECOSF #ifdef XWIN #include void fxclrc_(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { Status XSetClipRectangles() ; XRectangle rectangle[1] ; rectangle[0].x = *clpx ; rectangle[0].y = *clpy ; rectangle[0].width = *width ; rectangle[0].height = *height ; XSetClipRectangles(*display,*gc,0,0,rectangle,1,Unsorted) ; } #else void fxclrc_(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxclrc(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { Status XSetClipRectangles() ; XRectangle rectangle[1] ; rectangle[0].x = *clpx ; rectangle[0].y = *clpy ; rectangle[0].width = *width ; rectangle[0].height = *height ; XSetClipRectangles(*display,*gc,0,0,rectangle,1,Unsorted) ; } #else void fxclrc(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxclrc(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { Status XSetClipRectangles() ; XRectangle rectangle[1] ; rectangle[0].x = *clpx ; rectangle[0].y = *clpy ; rectangle[0].width = *width ; rectangle[0].height = *height ; XSetClipRectangles(*display,*gc,0,0,rectangle,1,Unsorted) ; } #else void fxclrc(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXCLRC(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { Status XSetClipRectangles() ; XRectangle rectangle[1] ; rectangle[0].x = *clpx ; rectangle[0].y = *clpy ; rectangle[0].width = *width ; rectangle[0].height = *height ; XSetClipRectangles(*display,*gc,0,0,rectangle,1,Unsorted) ; } #else void FXCLRC(display,gc,clpx,clpy,width,height) int *display ; int *gc ; int *clpx, *clpy ; int *width ; int *height ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXCLSE (DISPLY) */ /* PURPOSE: CLOSE A DISPLAY OR DISCONNECT FROM THE X SERVER */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = Specifies the connection to the X sever */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XCloseDisplay */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxclse_( int *display ) { Status XCloseDisplay() ; XCloseDisplay(*display) ; } #else void fxclse_(display) int *display; { return ; } #endif /*XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxclse_(display) int *display; { Status XCloseDisplay() ; XCloseDisplay(*display) ; } #else void fxclse_(display) int *display; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxclse(display) int *display; { Status XCloseDisplay() ; XCloseDisplay(*display) ; } #else void fxclse(display) int *display; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxclse(display) int *display; { Status XCloseDisplay() ; XCloseDisplay(*display) ; } #else void fxclse(display) int *display; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXCLSE(display) int *display; { Status XCloseDisplay() ; XCloseDisplay(*display) ; } #else void FXCLSE(display) int *display; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXCLWD (DISPLY,WIN) */ /* PURPOSE: CLEAR THE ENTIRE AREA IN A GIVEN WINDOW */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* window = specifies the window */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XClearWindow */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxclwd_ ( int *display, int *window ) int *display ; int *window ; { Status XClearWindow() ; XClearWindow(*display,*window) ; } #else void fxclwd_(display,window) int *display ; int *window ; { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxclwd_(display,window) int *display ; int *window ; { Status XClearWindow() ; XClearWindow(*display,*window) ; } #else void fxclwd_(display,window) int *display ; int *window ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxclwd(display,window) int *display ; int *window ; { Status XClearWindow() ; XClearWindow(*display,*window) ; } #else void fxclwd(display,window) int *display ; int *window ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxclwd(display,window) int *display ; int *window ; { Status XClearWindow() ; XClearWindow(*display,*window) ; } #else void fxclwd(display,window) int *display ; int *window ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXCLWD(display,window) int *display ; int *window ; { Status XClearWindow() ; XClearWindow(*display,*window) ; } #else void FXCLWD(display,window) int *display ; int *window ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXCRGC (DISPLY,D,IMASK,IVALS) */ /* PURPOSE: CREATE A NEW GARPHIC CONTEXT (GC) */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* d = specifies the drawable */ /* valuemask = graphic context component mask bits */ /* values = specifies any values as specified by the valuemask */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XCreateGC */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include GC fxcrgc_ ( int *display, int *d, int *valuemask, int values ) { GC XCreateGC() ; return( XCreateGC(*display,*d,*valuemask,values)) ; } #else int fxcrgc_ ( int *display, int *d, int *valuemask, int values ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include GC fxcrgc_(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { GC XCreateGC() ; return( XCreateGC(*display,*d,*valuemask,values)) ; } #else int fxcrgc_(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include GC fxcrgc(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { GC XCreateGC() ; return( XCreateGC(*display,*d,*valuemask,values)) ; } #else int fxcrgc(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include GC fxcrgc(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { GC XCreateGC() ; return( XCreateGC(*display,*d,*valuemask,values)) ; } #else int fxcrgc(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include GC FXCRGC(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { GC XCreateGC() ; return( XCreateGC(*display,*d,*valuemask,values)) ; } #else int FXCRGC(display,d,valuemask,values) int *display ; int *d ; int *valuemask ; int values ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXCRPX (DISPLY,WIN,WIDTH,HEIGHT,DEPTH) */ /* PURPOSE: CREATE THE PIX MAP */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* window = specifies the window */ /* width = specifies the width of the window */ /* height = specifies the height of the window */ /* depth = specifies the depth of the window */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XCreatePixmap */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Pixmap fxcrpx_(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { Pixmap XCreatePixmap() ; return (XCreatePixmap(*display,*window,*width,*height,*depth)); } #else int fxcrpx_ ( int *display, int *window, int *width, int *height, int *depth ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX CSUNOS*/ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Pixmap fxcrpx_(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { Pixmap XCreatePixmap() ; return (XCreatePixmap(*display,*window,*width,*height,*depth)); } #else int fxcrpx_(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Pixmap fxcrpx(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { Pixmap XCreatePixmap() ; return (XCreatePixmap(*display,*window,*width,*height,*depth)); } #else int fxcrpx(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Pixmap fxcrpx(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { Pixmap XCreatePixmap() ; return (XCreatePixmap(*display,*window,*width,*height,*depth)); } #else int fxcrpx(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Pixmap FXCRPX(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { Pixmap XCreatePixmap() ; return (XCreatePixmap(*display,*window,*width,*height,*depth)); } #else int FXCRPX(display,window,width,height,depth) int *display ; int *window ; int *width ; int *height ; int *depth ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXCRWD (DISPLY,IPARNT,IX,IY,WIDTH,HEIGHT,BWIDTH,CBORD,CBACK) */ /* PURPOSE: CREATE AN UNMAP SUBWINDOW OF A GIVEN PARENT WINDOW */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* parent = specifies the parent window */ /* x = specifies the x coordinates */ /* y = specifies the y coordinates */ /* width = specifies the width */ /* height = specifies the height */ /* border_width = specifies the width of the created window's border */ /* in pixel */ /* border = specifies the border pixel value of the window */ /* background = specifies the background pixel value of the window */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XCreateSimpleWindow */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Window fxcrwd_(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { Window XCreateSimpleWindow() ; return (XCreateSimpleWindow( *display, *parent, *x, *y, *width, *height , *border_width, *border, *background )); } #else int fxcrwd_ ( int *display, int *parent, int *x, int *y, int *width, int *height, int *border_width, int *border, int *background ) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { return ; } #endif /* XWIN */ #endif /* CAPOLLO | CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Window fxcrwd_(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { Window XCreateSimpleWindow() ; return (XCreateSimpleWindow( *display, *parent, *x, *y, *width, *height , *border_width, *border, *background )); } #else int fxcrwd_(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Window fxcrwd(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { Window XCreateSimpleWindow() ; return (XCreateSimpleWindow( *display, *parent, *x, *y, *width, *height , *border_width, *border, *background )); } #else int fxcrwd(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Window fxcrwd(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { Window XCreateSimpleWindow() ; return (XCreateSimpleWindow( *display, *parent, *x, *y, *width, *height , *border_width, *border, *background )); } #else int fxcrwd(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Window FXCRWD(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { Window XCreateSimpleWindow() ; return (XCreateSimpleWindow( *display, *parent, *x, *y, *width, *height , *border_width, *border, *background )); } #else int FXCRWD(display,parent,x,y,width,height,border_width,border,background) int *display ; int *parent ; int *x , *y ; int *width, *height ; int *border_width, *border ; int *background ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDCLR (DISPLY,CMAP,CNAME) */ /* PURPOSE: RETURN THE DEFAULT COLOR MAP */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* cmap = color map */ /* cname = array of default color */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XParseColor and XAllocColor */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include long fxdclr_(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { Status XParseColor() ; Status XAllocColor() ; XColor exact_defs ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; if (!XParseColor(*display,*cmap,cname,&exact_defs)) { printf("\nUnable to parse %s . Using black \n",cname); return (-1L) ; } else { if (!XAllocColor(*display,*cmap,&exact_defs)) { printf("\nCan't allocate %s . Using black \n",cname); return (-1L) ; } else { return( exact_defs.pixel ) ; } } } #else long int fxdclr_ ( int *display, int *cmap, char cname[] ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include long fxdclr_(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { Status XParseColor() ; Status XAllocColor() ; XColor exact_defs ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; if (!XParseColor(*display,*cmap,cname,&exact_defs)) { printf("\nUnable to parse %s . Using black \n",cname); return (-1L) ; } else { if (!XAllocColor(*display,*cmap,&exact_defs)) { printf("\nCan't allocate %s . Using black \n",cname); return (-1L) ; } else { return( exact_defs.pixel ) ; } } } #else long fxdclr_(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include long fxdclr(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { Status XParseColor() ; Status XAllocColor() ; XColor exact_defs ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; if (!XParseColor(*display,*cmap,cname,&exact_defs)) { printf("\nUnable to parse %s . Using black \n",cname); return (-1L) ; } else { if (!XAllocColor(*display,*cmap,&exact_defs)) { printf("\nCan't allocate %s . Using black \n",cname); return (-1L) ; } else { return( exact_defs.pixel ) ; } } } #else long fxdclr(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include long fxdclr(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { Status XParseColor() ; Status XAllocColor() ; XColor exact_defs ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; if (!XParseColor(*display,*cmap,cname,&exact_defs)) { printf("\nUnable to parse %s . Using black \n",cname); return (-1L) ; } else { if (!XAllocColor(*display,*cmap,&exact_defs)) { printf("\nCan't allocate %s . Using black \n",cname); return (-1L) ; } else { return( exact_defs.pixel ) ; } } } #else long fxdclr(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include long FXDCLR(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { Status XParseColor() ; Status XAllocColor() ; XColor exact_defs ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; if (!XParseColor(*display,*cmap,cname,&exact_defs)) { printf("\nUnable to parse %s . Using black \n",cname); return (-1L) ; } else { if (!XAllocColor(*display,*cmap,&exact_defs)) { printf("\nCan't allocate %s . Using black \n",cname); return (-1L) ; } else { return( exact_defs.pixel ) ; } } } #else long FXDCLR(display,cmap,cname) int *display ; int *cmap ; char cname[] ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDFCM (DISPLY,SCREEN) */ /* PURPOSE: SET DEFAULT COLOR MAP */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* screen = specifies the screen number */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDefaultColormap */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Colormap fxdfcm_(display,screen) int *display ; int *screen ; { Colormap XDefaultColormap() ; return ( XDefaultColormap(*display,*screen) ) ; } #else int fxdfcm_ ( int *display, int *screen ) { return ; } #endif /* XWIN */ #endif /* APLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Colormap fxdfcm_(display,screen) int *display ; int *screen ; { Colormap XDefaultColormap() ; return ( XDefaultColormap(*display,*screen) ) ; } #else int fxdfcm_(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Colormap fxdfcm(display,screen) int *display ; int *screen ; { Colormap XDefaultColormap() ; return ( XDefaultColormap(*display,*screen) ) ; } #else int fxdfcm(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Colormap fxdfcm(display,screen) int *display ; int *screen ; { Colormap XDefaultColormap() ; return ( XDefaultColormap(*display,*screen) ) ; } #else int fxdfcm(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Colormap FXDFCM(display,screen) int *display ; int *screen ; { Colormap XDefaultColormap() ; return ( XDefaultColormap(*display,*screen) ) ; } #else int FXDFCM(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDFDP (DISPLY,SCREEN) */ /* PURPOSE: RETURN THE DEPTH (NUMBER OF PLANES) OF THE DEFAULT ROOT WINDOW */ /* FOR THE SPECIFIED SCREEN */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* screen = specifies the appropriate screen number on the host server */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDefaultDepth */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include int fxdfdp_(display,screen) int *display ; int *screen ; { int XDefaultDepth() ; return ( XDefaultDepth(*display,*screen) ); } #else int fxdfdp_ ( int *display, int *screen ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include int fxdfdp_(display,screen) int *display ; int *screen ; { int XDefaultDepth() ; return ( XDefaultDepth(*display,*screen) ); } #else int fxdfdp_(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include int fxdfdp(display,screen) int *display ; int *screen ; { int XDefaultDepth() ; return ( XDefaultDepth(*display,*screen) ); } #else int fxdfdp(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include int fxdfdp(display,screen) int *display ; int *screen ; { int XDefaultDepth() ; return ( XDefaultDepth(*display,*screen) ); } #else int fxdfdp(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include int FXDFDP(display,screen) int *display ; int *screen ; { int XDefaultDepth() ; return ( XDefaultDepth(*display,*screen) ); } #else int FXDFDP(display,screen) int *display ; int *screen ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDFRW (DISPLY) */ /* PURPOSE: RETURN THE ROOT WINDOW FOR THE DEFAULT SCREEN */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDefaultRootWindow */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Window fxdfrw_(display) int *display ; { Window XDefaultRootWindow() ; return (XDefaultRootWindow(*display)) ; } #else int fxdfrw_ ( int *display ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Window fxdfrw_(display) int *display ; { Window XDefaultRootWindow() ; return (XDefaultRootWindow(*display)) ; } #else int fxdfrw_(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Window fxdfrw(display) int *display ; { Window XDefaultRootWindow() ; return (XDefaultRootWindow(*display)) ; } #else int fxdfrw(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Window fxdfrw(display) int *display ; { Window XDefaultRootWindow() ; return (XDefaultRootWindow(*display)) ; } #else int fxdfrw(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Window FXDFRW(display) int *display ; { Window XDefaultRootWindow() ; return (XDefaultRootWindow(*display)) ; } #else int FXDFRW(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDFSR (DISPLY) */ /* PURPOSE: RETURN THE DEFAULT SCREEN NUMBER REFERENCED BY */ /* THE XOpenDisplay FUNCTION */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDefaultScreen */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include int fxdfsr_(display) int *display ; { int XDefaultScreen(); return(XDefaultScreen(*display)); } #else int fxdfsr_ ( int *display ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include int fxdfsr_(display) int *display ; { int XDefaultScreen(); return(XDefaultScreen(*display)); } #else int fxdfsr_(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include int fxdfsr(display) int *display ; { int XDefaultScreen(); return(XDefaultScreen(*display)); } #else int fxdfsr(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include int fxdfsr(display) int *display ; { int XDefaultScreen(); return(XDefaultScreen(*display)); } #else int fxdfsr(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include int FXDFSR(display) int *display ; { int XDefaultScreen(); return(XDefaultScreen(*display)); } #else int FXDFSR(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXDIST(DISPLAY,D,GC,X,Y,STRING,LENGTH) */ /* PURPOSE: DRAW 8-BIT IMAGE TEXT CHARACRTERS */ /* WRITTEN BY: David Bui NAS9-18888 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* d = specifies the drawable */ /* gc = specifies the GC */ /* x,y = specifies the x and y coordinates, which are relative */ /* to the origin of the specified drawable and define the */ /* origin of the first charcter */ /* string = specifies the character string */ /* length = specifies number of characters in the string argument */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDrawImageString */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Status fxdist_(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { Status XDrawString() ; XDrawString(*display,*d,*gc,*x,*y,string,*length); } #else int fxdist_ ( int *display, int *d, int *gc, int *x, int *y, char string[], int *length ) { return(0) ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Status fxdist_(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { Status XDrawString() ; XDrawString(*display,*d,*gc,*x,*y,string,*length); } #else int fxdist_(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { return(0) ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Status fxdist(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { Status XDrawString() ; XDrawString(*display,*d,*gc,*x,*y,string,*length); } #else int fxdist(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { return(0) ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Status fxdist(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { Status XDrawString() ; XDrawString(*display,*d,*gc,*x,*y,string,*length); } #else int fxdist(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { return(0) ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Status FXDIST(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { Status XDrawString() ; XDrawString(*display,*d,*gc,*x,*y,string,*length); } #else int FXDIST(display,d,gc,x,y,string,length) int *display ; int *d ; int *gc ; int *x, *y ; char string[] ; int *length ; { return(0) ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXDRAW (DISPLY,D,GC,IX1,IY1,IX2,IY2) */ /* PURPOSE: DRAW A SINGLE LINE BETWEEN TWO POINTS IN A GIVEN DRAWABLE */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* d = specifies the drawable */ /* gc = specifices the graphics context (GC) */ /* x1,y1,x2,y2 = specify the points (x1,y1) and (x2,y2) to be */ /* connected */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XDrawLine */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxdraw_(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { Status XDrawLine() ; XDrawLine(*display,*d,*gc,*x1,*y1,*x2,*y2) ; } #else void fxdraw_ ( int *display, int *d, int *gc, int *x1, int *y1, int *x2, int *y2 ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxdraw_(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { Status XDrawLine() ; XDrawLine(*display,*d,*gc,*x1,*y1,*x2,*y2) ; } #else void fxdraw_(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxdraw(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { Status XDrawLine() ; XDrawLine(*display,*d,*gc,*x1,*y1,*x2,*y2) ; } #else void fxdraw(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxdraw(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { Status XDrawLine() ; XDrawLine(*display,*d,*gc,*x1,*y1,*x2,*y2) ; } #else void fxdraw(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXDRAW(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { Status XDrawLine() ; XDrawLine(*display,*d,*gc,*x1,*y1,*x2,*y2) ; } #else void FXDRAW(display,d,gc,x1,y1,x2,y2) int *display ; int *d ; int *gc ; int *x1, *y1 ; int *x2, *y2 ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXFLPG (DISPLY,D,GC,X,Y,IPTS,SHAPE,MODE) */ /* PURPOSE: FILL A POLYGON AREA IN A GIVEN DRAWABLE */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* d = specifies the drawable */ /* gc = specifies the graphics context (GC) */ /* x,y = specifies an array of x,y points */ /* npoints = specifies the number of points in the array */ /* shape = specifies a shape */ /* mode = specifies the coordinate mode */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XFillPolygon */ /* ****************************************************************** */ #define NULL 0L #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxflpg_(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { Status XFillPolygon() ; XPoint *xy ; int i ; xy = (XPoint*) malloc(sizeof(XPoint) * *npoints) ; if ( xy == NULL ) { printf("\n Can't allocate memory for XY points "); return ; } else { for ( i= 0 ; i < *npoints; i++ ) { xy[i].x = x[i] ; xy[i].y = y[i] ; } XFillPolygon(*display,*d,*gc,xy,*npoints,*shape,*mode); free(xy) ; } } #else void fxflpg_ ( int *display, int *d, int *gc, int x[], int y[], int *npoints, int *shape, int *mode ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxflpg_(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { Status XFillPolygon() ; XPoint *xy ; int i ; xy = (XPoint*) malloc(sizeof(XPoint) * *npoints) ; if ( xy == NULL ) { printf("\n Can't allocate memory for XY points "); return ; } else { for ( i= 0 ; i < *npoints; i++ ) { xy[i].x = x[i] ; xy[i].y = y[i] ; } XFillPolygon(*display,*d,*gc,xy,*npoints,*shape,*mode); free(xy) ; } } #else void fxflpg_(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxflpg(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { Status XFillPolygon() ; XPoint *xy ; int i ; xy = (XPoint*) malloc(sizeof(XPoint) * *npoints) ; if ( xy == NULL ) { printf("\n Can't allocate memory for XY points "); return ; } else { for ( i= 0 ; i < *npoints; i++ ) { xy[i].x = x[i] ; xy[i].y = y[i] ; } XFillPolygon(*display,*d,*gc,xy,*npoints,*shape,*mode); free(xy) ; } } #else void fxflpg(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxflpg(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { Status XFillPolygon() ; XPoint *xy ; int i ; xy = (XPoint*) malloc(sizeof(XPoint) * *npoints) ; if ( xy == NULL ) { printf("\n Can't allocate memory for XY points "); return ; } else { for ( i= 0 ; i < *npoints; i++ ) { xy[i].x = x[i] ; xy[i].y = y[i] ; } XFillPolygon(*display,*d,*gc,xy,*npoints,*shape,*mode); free(xy) ; } } #else void fxflpg (display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXFLPG(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { Status XFillPolygon() ; XPoint *xy ; int i ; xy = (XPoint*) malloc(sizeof(XPoint) * *npoints) ; if ( xy == NULL ) { printf("\n Can't allocate memory for XY points "); return ; } else { for ( i= 0 ; i < *npoints; i++ ) { xy[i].x = x[i] ; xy[i].y = y[i] ; } XFillPolygon(*display,*d,*gc,xy,*npoints,*shape,*mode); free(xy) ; } } #else void FXFLPG(display,d,gc,x,y,npoints,shape,mode) int *display ; int *d ; int *gc ; int x[] ; int y[] ; int *npoints ; int *shape ; int *mode ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXFLRC (DISPLY,PIXMAP,GC,IX,IY,WIDTH,HEIGHT) */ /* PURPOSE: FILL A SINGLE RECTANGULAR AREA IN A GIVEN DRAWABLE */ /* WRITTEN BY: David Bui */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* pixmap = specifies the drawable */ /* gc = specifies the graphics context (GC) */ /* x,y = specifies the x and y coordinates, which are relative to the */ /* origin of the drawable and specify the upper-left corner of */ /* the rectangle */ /* width,height = specify the width and height, which are the */ /* dimensions of the rectangle to be filled */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XFillRectangle */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxflrc_(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { Status XFillRectangle() ; XFillRectangle(*display,*pixmap,*gc,*x,*y,*width,*height) ; } #else void fxflrc_(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxflrc_ ( int *display, int *pixmap, int *gc, int *x, int *y, int *width, int *height ) { Status XFillRectangle() ; XFillRectangle(*display,*pixmap,*gc,*x,*y,*width,*height) ; } #else void fxflrc_(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxflrc(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { Status XFillRectangle() ; XFillRectangle(*display,*pixmap,*gc,*x,*y,*width,*height) ; } #else void fxflrc(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxflrc(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { Status XFillRectangle() ; XFillRectangle(*display,*pixmap,*gc,*x,*y,*width,*height) ; } #else void fxflrc(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXFLRC(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { Status XFillRectangle() ; XFillRectangle(*display,*pixmap,*gc,*x,*y,*width,*height) ; } #else void FXFLRC(display,pixmap,gc,x,y,width,height) int *display ; int *pixmap ; int *gc ; int *x, *y ; int *width, *height ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXFLSH (DISPLY) */ /* PURPOSE: FLUSH THE OUTPUT BUFFER */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XFlush */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxflsh_(display) int *display ; { Status XFlush() ; XFlush(*display) ; } #else void fxflsh_ ( int *display ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxflsh_(display) int *display ; { Status XFlush() ; XFlush(*display) ; } #else void fxflsh_(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxflsh(display) int *display ; { Status XFlush() ; XFlush(*display) ; } #else void fxflsh(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxflsh(display) int *display ; { Status XFlush() ; XFlush(*display) ; } #else void fxflsh(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXFLSH(display) int *display ; { Status XFlush() ; XFlush(*display) ; } #else void FXFLSH(display) int *display ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXFRPX (DISPLY,PIXMAP) */ /* PURPOSE: DELETE THE ASSOCIATION BETWEEN THE PIXMAP ID AND PIXMAP */ /* WRITTEN BY: David Bui */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* pixmap = specifies the pixmap */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XFreePixmap */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxfrpx_(display,pixmap) int *display ; int *pixmap ; { Status XFreePixmap() ; XFreePixmap(*display,*pixmap) ; } #else void fxfrpx_ ( int *display, int *pixmap ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxfrpx_(display,pixmap) int *display ; int *pixmap ; { Status XFreePixmap() ; XFreePixmap(*display,*pixmap) ; } #else void fxfrpx_(display,pixmap) int *display ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxfrpx(display,pixmap) int *display ; int *pixmap ; { Status XFreePixmap() ; XFreePixmap(*display,*pixmap) ; } #else void fxfrpx(display,pixmap) int *display ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxfrpx(display,pixmap) int *display ; int *pixmap ; { Status XFreePixmap() ; XFreePixmap(*display,*pixmap) ; } #else void fxfrpx(display,pixmap) int *display ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXFRPX(display,pixmap) int *display ; int *pixmap ; { Status XFreePixmap() ; XFreePixmap(*display,*pixmap) ; } #else void FXFRPX(display,pixmap) int *display ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXLQFN(DISPLAY,CNAME) */ /* PURPOSE: RETURN INFORMATION ABOUT AN AVAILABLE FONT */ /* WRITTEN BY: David Bui NAS9-18888 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* cname = specifies the name of the font */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XLoadQueryFont and XSetFont */ /* ****************************************************************** */ #define NULL 0L #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include XFontStruct *fxlqfn_(display,gc,cname) int *display ; int *gc ; char cname[] ; { XFontStruct *XLoadQueryFont() ; Status XSetFont() ; XFontStruct *font ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; font = XLoadQueryFont(*display,cname); if ( font != NULL ) XSetFont(*display,*gc,font->fid) ; return(font) ; } #else int *fxlqfn_ ( int *display, int *gc, char cname[] ) { return(0) ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include XFontStruct *fxlqfn_(display,gc,cname) int *display ; int *gc ; char cname[] ; { XFontStruct *XLoadQueryFont() ; Status XSetFont() ; XFontStruct *font ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; font = XLoadQueryFont(*display,cname); if ( font != NULL ) XSetFont(*display,*gc,font->fid) ; return(font) ; } #else int *fxlqfn_(display,gc,cname) int *display ; int *gc ; char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include XFontStruct *fxlqfn(display,gc,cname) int *display ; int *gc ; char cname[] ; { XFontStruct *XLoadQueryFont() ; Status XSetFont() ; XFontStruct *font ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; font = XLoadQueryFont(*display,cname); if ( font != NULL ) XSetFont(*display,*gc,font->fid) ; return(font) ; } #else int *fxlqfn(display,gc,cname) int *display ; int *gc ; char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include XFontStruct *fxlqfn(display,gc,cname) int *display ; int *gc ; char cname[] ; { XFontStruct *XLoadQueryFont() ; Status XSetFont() ; XFontStruct *font ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; font = XLoadQueryFont(*display,cname); if ( font != NULL ) XSetFont(*display,*gc,font->fid) ; return(font) ; } #else int *fxlqfn(display,gc,cname) int *display ; int *gc ; char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include XFontStruct *FXLQFN(display,gc,cname) int *display ; int *gc ; char cname[] ; { XFontStruct *XLoadQueryFont() ; Status XSetFont() ; XFontStruct *font ; int i ; for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; font = XLoadQueryFont(*display,cname); if ( font != NULL ) XSetFont(*display,*gc,font->fid) ; return(font) ; } #else int *FXLQFN(display,gc,cname) int *display ; int *gc ; char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXLSFN (DISPLY,PNAME,MAXNAMES,CRETURN,NRETURN) */ /* PURPOSE: RETURN THE LIST OF THE AVAILABLE FONT NAMES */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* pname = specifies the null-terminated pattern string that can */ /* contain wildcard characters */ /* maxnames = specifies the maximum number of names to be returned */ /* ARGUMENT LIST OUTPUT: */ /* creturn = returns the actual number of font names */ /* nreturn = returns a list of the available font names */ /* NOTES: */ /* Fortran-callable interface to XListFonts */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include long fxlsfn_(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { char **XListFonts() ; char **fontnames ; int count ; int i ; for ( i=0 ; i < strlen(pname) ; i++) { if ( pname[i] == ' ' ) break ; } pname[i] = '\0' ; fontnames = XListFonts(*display,pname,*maxnames,&count); for ( i = 0 ; i < count ; i++ ) { strcpy(nreturn[i], fontnames[i]) ; } *creturn = count ; } #else long int fxlsfn_ ( int *display, char pname[] , int *maxnames, int *creturn, char nreturn[][81] ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include long fxlsfn_(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { char **XListFonts() ; char **fontnames ; int count ; int i ; for ( i=0 ; i < strlen(pname) ; i++) { if ( pname[i] == ' ' ) break ; } pname[i] = '\0' ; fontnames = XListFonts(*display,pname,*maxnames,&count); for ( i = 0 ; i < count ; i++ ) { strcpy(nreturn[i], fontnames[i]) ; } *creturn = count ; } #else long fxlsfn_(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include long fxlsfn(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { char **XListFonts() ; char **fontnames ; int count ; int i ; for ( i=0 ; i < strlen(pname) ; i++) { if ( pname[i] == ' ' ) break ; } pname[i] = '\0' ; fontnames = XListFonts(*display,pname,*maxnames,&count); for ( i = 0 ; i < count ; i++ ) { strcpy(nreturn[i], fontnames[i]) ; } *creturn = count ; } #else long fxlsfn(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include long fxlsfn(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { char **XListFonts() ; char **fontnames ; int count ; int i ; for ( i=0 ; i < strlen(pname) ; i++) { if ( pname[i] == ' ' ) break ; } pname[i] = '\0' ; fontnames = XListFonts(*display,pname,*maxnames,&count); for ( i = 0 ; i < count ; i++ ) { strcpy(nreturn[i], fontnames[i]) ; } *creturn = count ; } #else long fxlsfn(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include long FXLSFN(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { char **XListFonts() ; char **fontnames ; int count ; int i ; for ( i=0 ; i < strlen(pname) ; i++) { if ( pname[i] == ' ' ) break ; } pname[i] = '\0' ; fontnames = XListFonts(*display,pname,*maxnames,&count); for ( i = 0 ; i < count ; i++ ) { strcpy(nreturn[i], fontnames[i]) ; } *creturn = count ; } #else long FXLSFN(display,pname,maxnames,creturn,nreturn) int *display ; char pname[] ; int *maxnames ; int *creturn ; char nreturn[][81] ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXMPWD (DISPLY,WINID) */ /* PURPOSE: MAP A GIVEN WINDOW */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* windowId = specifies the window */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XMapWindow */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxmpwd_(display,windowId) int *display ; int *windowId ; { Status XMapWindow() ; XMapWindow(*display,*windowId) ; } #else void fxmpwd_(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxmpwd_ ( int *display, int *windowId ) { Status XMapWindow() ; XMapWindow(*display,*windowId) ; } #else void fxmpwd_(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxmpwd(display,windowId) int *display ; int *windowId ; { Status XMapWindow() ; XMapWindow(*display,*windowId) ; } #else void fxmpwd(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxmpwd(display,windowId) int *display ; int *windowId ; { Status XMapWindow() ; XMapWindow(*display,*windowId) ; } #else void fxmpwd(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXMPWD(display,windowId) int *display ; int *windowId ; { Status XMapWindow() ; XMapWindow(*display,*windowId) ; } #else void FXMPWD(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXNENT (DISPLY,WIN,RESIZE,NPLOT,NEWWID,NEWHGT) */ /* PURPOSE: GET THE NEXT EVENT AND RETURN NEW WIDTH, NEW HEIGHT OR */ /* NEXT FRAME: */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* window = specifies the window */ /* ARGUMENT LIST OUTPUT: */ /* resize = return 1 if resize, otherwise 0 */ /* nplot = return 1 if press key, otherwise 0 */ /* new_width = return new width */ /* new_height = return new height */ /* NOTES: */ /* Fortran-callable interface to XSelectInput and XNextEvent */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxnent_(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { Status XNextEvent() ; Status XSelectInput() ; XEvent event ; XSelectInput(*display,*window,(KeyPressMask | StructureNotifyMask)); *resize = 0 ; *nplot = 0 ; XNextEvent(*display,&event) ; switch (event.type) { case ConfigureNotify : *new_width = event.xconfigure.width ; *new_height = event.xconfigure.height ; *resize = 1 ; break ; case KeyPress : *nplot = 1 ; break ; } } #else void fxnent_ ( int *display, int *window, int *resize, int *nplot, int *new_width, int *new_height ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxnent_(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { Status XNextEvent() ; Status XSelectInput() ; XEvent event ; XSelectInput(*display,*window,(KeyPressMask | StructureNotifyMask)); *resize = 0 ; *nplot = 0 ; XNextEvent(*display,&event) ; switch (event.type) { case ConfigureNotify : *new_width = event.xconfigure.width ; *new_height = event.xconfigure.height ; *resize = 1 ; break ; case KeyPress : *nplot = 1 ; break ; } } #else void fxnent_(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxnent(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { Status XNextEvent() ; Status XSelectInput() ; XEvent event ; XSelectInput(*display,*window,(KeyPressMask | StructureNotifyMask)); *resize = 0 ; *nplot = 0 ; XNextEvent(*display,&event) ; switch (event.type) { case ConfigureNotify : *new_width = event.xconfigure.width ; *new_height = event.xconfigure.height ; *resize = 1 ; break ; case KeyPress : *nplot = 1 ; break ; } } #else void fxnent(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxnent(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { Status XNextEvent() ; Status XSelectInput() ; XEvent event ; XSelectInput(*display,*window,(KeyPressMask | StructureNotifyMask)); *resize = 0 ; *nplot = 0 ; XNextEvent(*display,&event) ; switch (event.type) { case ConfigureNotify : *new_width = event.xconfigure.width ; *new_height = event.xconfigure.height ; *resize = 1 ; break ; case KeyPress : *nplot = 1 ; break ; } } #else void fxnent(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXNENT(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { Status XNextEvent() ; Status XSelectInput() ; XEvent event ; XSelectInput(*display,*window,(KeyPressMask | StructureNotifyMask)); *resize = 0 ; *nplot = 0 ; XNextEvent(*display,&event) ; switch (event.type) { case ConfigureNotify : *new_width = event.xconfigure.width ; *new_height = event.xconfigure.height ; *resize = 1 ; break ; case KeyPress : *nplot = 1 ; break ; } } #else void FXNENT(display,window,resize,nplot,new_width,new_height) int *display ; int *window ; int *resize ; int *nplot ; int *new_width , *new_height ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXOPEN (CNAME) */ /* PURPOSE: OPEN A CONNECTION TO THE X SERVER */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* cname = hardware display name */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XOpenDisplay */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include Display *fxopen_(cname) char cname[] ; { Display *XOpenDisplay() ; int i ; if ( strlen(cname) == 1 && cname[0] == ' ' ) { return(XOpenDisplay(0)); } else { for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; return (XOpenDisplay(cname)); } } #else int *fxopen_ ( char cname[] ) { return(0) ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include Display *fxopen_(cname) char cname[] ; { Display *XOpenDisplay() ; int i ; if ( strlen(cname) == 1 && cname[0] == ' ' ) { return(XOpenDisplay(0)); } else { for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; return (XOpenDisplay(cname)); } } #else int *fxopen_(cname) char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include Display *fxopen(cname) char cname[] ; { Display *XOpenDisplay() ; int i ; if ( strlen(cname) == 1 && cname[0] == ' ' ) { return(XOpenDisplay(0)); } else { for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; return (XOpenDisplay(cname)); } } #else int *fxopen(cname) char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include Display *fxopen(cname) char cname[] ; { Display *XOpenDisplay() ; int i ; if ( strlen(cname) == 0 ) { return(XOpenDisplay(0)); } else { for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; return (XOpenDisplay(cname)); } } #else int *fxopen(cname) char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include Display *FXOPEN(cname) char cname[] ; { Display *XOpenDisplay() ; int i ; if ( strlen(cname) == 1 && cname[0] == ' ' ) { return(XOpenDisplay(0)); } else { for ( i=0 ; i < strlen(cname) ; i++) { if ( cname[i] == ' ' ) break ; } cname[i] = '\0' ; return (XOpenDisplay(cname)); } } #else int *FXOPEN(cname) char cname[] ; { return(0) ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXRGBC (DISPLY,CMAP,RED,GREEN,BLUE) */ /* PURPOSE: SET COLOR BY RGB VALUE */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* cmap = specifies color map */ /* red = specifies RED color value (0-100) */ /* green = specifies GREEN color value (0-100) */ /* blue = specifies BLUE color value (0-100) */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XAllocColor */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include long fxrgbc_(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { Status XAllocColor() ; XColor exact_defs ; exact_defs.red = (unsigned short) (65535 * *red) ; exact_defs.green = (unsigned short) (65535* *green) ; exact_defs.blue = (unsigned short) (65535 * *blue) ; exact_defs.flags = DoRed | DoGreen | DoBlue ; if ( !XAllocColor(*display,*cmap,&exact_defs)) { printf("\n Unable allocate color with RED = %f GREEN = %f BLUE = %f ", *red*100.0, *green*100.0, *blue*100.0); return(-1L) ; } else { return(exact_defs.pixel) ; } } #else long int fxrgbc_ ( int *display, int *cmap, float *red, float *green, float *blue ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include long fxrgbc_(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { Status XAllocColor() ; XColor exact_defs ; exact_defs.red = (unsigned short) (65535 * *red) ; exact_defs.green = (unsigned short) (65535* *green) ; exact_defs.blue = (unsigned short) (65535 * *blue) ; exact_defs.flags = DoRed | DoGreen | DoBlue ; if ( !XAllocColor(*display,*cmap,&exact_defs)) return(-1L) ; else { return(exact_defs.pixel) ; } } #else long fxrgbc_(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include long fxrgbc(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { Status XAllocColor() ; XColor exact_defs ; exact_defs.red = (unsigned short) (65535 * *red) ; exact_defs.green = (unsigned short) (65535* *green) ; exact_defs.blue = (unsigned short) (65535 * *blue) ; exact_defs.flags = DoRed | DoGreen | DoBlue ; if ( !XAllocColor(*display,*cmap,&exact_defs)) return(-1L) ; else { return(exact_defs.pixel) ; } } #else long fxrgbc(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include long fxrgbc(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { Status XAllocColor() ; XColor exact_defs ; exact_defs.red = (unsigned short) (65535 * *red) ; exact_defs.green = (unsigned short) (65535* *green) ; exact_defs.blue = (unsigned short) (65535 * *blue) ; exact_defs.flags = DoRed | DoGreen | DoBlue ; if ( !XAllocColor(*display,*cmap,&exact_defs)) return(-1L) ; else { return(exact_defs.pixel) ; } } #else long fxrgbc(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include long FXRGBC(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { Status XAllocColor() ; XColor exact_defs ; exact_defs.red = (unsigned short) (65535 * *red) ; exact_defs.green = (unsigned short) (65535* *green) ; exact_defs.blue = (unsigned short) (65535 * *blue) ; exact_defs.flags = DoRed | DoGreen | DoBlue ; if ( !XAllocColor(*display,*cmap,&exact_defs)) return(-1L) ; else { return(exact_defs.pixel) ; } } #else long FXRGBC(display,cmap,red,green,blue) int *display ; int *cmap ; float *red ; float *green ; float *blue ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXSBPX (DISPLY,WIN,PIXMAP) */ /* PURPOSE: SET THE BACKGROUND PIXMAP OF THE WINDOW TO THE SPECIFIED */ /* PIXMAP */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* window = specifies the window */ /* pixmap = specifies the background pixmap */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XSetWindowBackgroundPixmap */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxsbpx_(display,window,pixmap) int *display ; int *window ; int *pixmap ; { Status XSetWindowBackgroundPixmap() ; XSetWindowBackgroundPixmap(*display,*window,*pixmap); } #else void fxsbpx_ ( int *display, int *window, int *pixmap ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxsbpx_(display,window,pixmap) int *display ; int *window ; int *pixmap ; { Status XSetWindowBackgroundPixmap() ; XSetWindowBackgroundPixmap(*display,*window,*pixmap); } #else void fxsbpx_(display,window,pixmap) int *display ; int *window ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxsbpx(display,window,pixmap) int *display ; int *window ; int *pixmap ; { Status XSetWindowBackgroundPixmap() ; XSetWindowBackgroundPixmap(*display,*window,*pixmap); } #else void fxsbpx(display,window,pixmap) int *display ; int *window ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxsbpx(display,window,pixmap) int *display ; int *window ; int *pixmap ; { Status XSetWindowBackgroundPixmap() ; XSetWindowBackgroundPixmap(*display,*window,*pixmap); } #else void fxsbpx(display,window,pixmap) int *display ; int *window ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXSBPX(display,window,pixmap) int *display ; int *window ; int *pixmap ; { Status XSetWindowBackgroundPixmap() ; XSetWindowBackgroundPixmap(*display,*window,*pixmap); } #else void FXSBPX(display,window,pixmap) int *display ; int *window ; int *pixmap ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXSLAT (DISPLY,GC,LWIDTH,LSTYL,CSTYL,JSTYL) */ /* PURPOSE: SET THE LINE DRAWING COMPONENTS OF A GIVEN GRAPHICS CONTEXT */ /* (GC) */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* gc = specifies the graphics context (GC) */ /* linewidth = specifies the line-width */ /* linestyle = specifies the line-style */ /* capstyle = specifies the line-style and cap-style */ /* joinstyle = specifies the line join-style */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XSetLineAttributes */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxslat_(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { Status XSetLineAttributes() ; XSetLineAttributes(*display,*gc,*linewidth,*linestyle,*capstyle,*joinstyle); } #else void fxslat_ ( int *display, int *gc, int *linewidth, int *linestyle, int *capstyle, int *joinstyle ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxslat_(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { Status XSetLineAttributes() ; XSetLineAttributes(*display,*gc,*linewidth,*linestyle,*capstyle,*joinstyle); } #else void fxslat_(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxslat(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { Status XSetLineAttributes() ; XSetLineAttributes(*display,*gc,*linewidth,*linestyle,*capstyle,*joinstyle); } #else void fxslat(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxslat(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { Status XSetLineAttributes() ; XSetLineAttributes(*display,*gc,*linewidth,*linestyle,*capstyle,*joinstyle); } #else void fxslat(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXSLAT(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { Status XSetLineAttributes() ; XSetLineAttributes(*display,*gc,*linewidth,*linestyle,*capstyle,*joinstyle); } #else void FXSLAT(display,gc,linewidth,linestyle,capstyle,joinstyle) int *display ; int *gc ; int *linewidth ; int *linestyle ; int *capstyle ; int *joinstyle ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXSTBG (DISPLY,GC,CBACK) */ /* PURPOSE: SET THE BACKGROUND OF A GIVEN GC */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* gc = specifies graphics context (GC) */ /* background = specifies the background */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XSetBackground */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxstbg_(display,gc,background) int *display ; int *gc ; int *background ; { Status XSetBackground() ; XSetBackground(*display,*gc,*background) ; } #else void fxstbg_ ( int *display, int *gc, int *background ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxstbg_(display,gc,background) int *display ; int *gc ; int *background ; { Status XSetBackground() ; XSetBackground(*display,*gc,*background) ; } #else void fxstbg_(display,gc,background) int *display ; int *gc ; int *background ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxstbg(display,gc,background) int *display ; int *gc ; int *background ; { Status XSetBackground() ; XSetBackground(*display,*gc,*background) ; } #else void fxstbg(display,gc,background) int *display ; int *gc ; int *background ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxstbg(display,gc,background) int *display ; int *gc ; int *background ; { Status XSetBackground() ; XSetBackground(*display,*gc,*background) ; } #else void fxstbg(display,gc,background) int *display ; int *gc ; int *background ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXSTBG(display,gc,background) int *display ; int *gc ; int *background ; { Status XSetBackground() ; XSetBackground(*display,*gc,*background) ; } #else void FXSTBG(display,gc,background) int *display ; int *gc ; int *background ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXSTFG (DISPLY,GC,CFOREG) */ /* PURPOSE: SET THE FOREGROUND OF A GIVEN GRAPHICS CONTEXT (GC) */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* gc = specifies the graphics context (GC) */ /* foreground = specifies the foreground */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface to XSetForeground */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxstfg_(display,gc,foreground) int *display ; int *gc ; int *foreground ; { Status XSetForeground() ; XSetForeground(*display,*gc,*foreground) ; } #else void fxstfg_ ( int *display, int *gc, int *foreground ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxstfg_(display,gc,foreground) int *display ; int *gc ; int *foreground ; { Status XSetForeground() ; XSetForeground(*display,*gc,*foreground) ; } #else void fxstfg_(display,gc,foreground) int *display ; int *gc ; int *foreground ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxstfg(display,gc,foreground) int *display ; int *gc ; int *foreground ; { Status XSetForeground() ; XSetForeground(*display,*gc,*foreground) ; } #else void fxstfg(display,gc,foreground) int *display ; int *gc ; int *foreground ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxstfg(display,gc,foreground) int *display ; int *gc ; int *foreground ; { Status XSetForeground() ; XSetForeground(*display,*gc,*foreground) ; } #else void fxstfg(display,gc,foreground) int *display ; int *gc ; int *foreground ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXSTFG(display,gc,foreground) int *display ; int *gc ; int *foreground ; { Status XSetForeground() ; XSetForeground(*display,*gc,*foreground) ; } #else void FXSTFG(display,gc,foreground) int *display ; int *gc ; int *foreground ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXSTSP (DISPLY,WIN,WNAME,ICNAME,ICPIX,ARGV,ARGC,SZHINT) */ /* PURPOSE: SET STANDARD PROPERTIES */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* window = specifies the window */ /* windowname = specifies the window name */ /* iconname = specifies the icon name */ /* iconpix = specifies the bitmap that is to be used for the icon */ /* argv = specifies the appication's argument list */ /* argc = specifies the number of arguments */ /* hints = specifies a pointer to the size hints for the window */ /* in its normal state */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ /* NOTES: */ /* Fortran-callable interface XSetStandardProperties */ /* ****************************************************************** */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS ) #ifdef XWIN #include void fxstsp_(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { Status XsetStandardProperties() ; int i ; for ( i = 0 ; i < strlen(windowname) ; i++ ) { if ( windowname[i] == ' ' ) break ; } windowname[i] = '\0' ; for ( i = 0 ; i < strlen(iconname) ; i++ ) { if ( iconname[i] == ' ' ) break ; } iconname[i] = '\0' ; XSetStandardProperties(*display,*window,windowname,iconname,*iconpix,*argv, *argc,*hints) ; } #else void fxstsp_ ( int *display, int *window, char windowname[], char iconname[], int *iconpix, int *argv, int *argc, int *hints ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include void fxstsp_(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { Status XsetStandardProperties() ; int i ; for ( i = 0 ; i < strlen(windowname) ; i++ ) { if ( windowname[i] == ' ' ) break ; } windowname[i] = '\0' ; for ( i = 0 ; i < strlen(iconname) ; i++ ) { if ( iconname[i] == ' ' ) break ; } iconname[i] = '\0' ; XSetStandardProperties(*display,*window,windowname,iconname,*iconpix,*argv, *argc,*hints) ; } #else void fxstsp_(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include void fxstsp(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { Status XsetStandardProperties() ; int i ; for ( i = 0 ; i < strlen(windowname) ; i++ ) { if ( windowname[i] == ' ' ) break ; } windowname[i] = '\0' ; for ( i = 0 ; i < strlen(iconname) ; i++ ) { if ( iconname[i] == ' ' ) break ; } iconname[i] = '\0' ; XSetStandardProperties(*display,*window,windowname,iconname,*iconpix,*argv, *argc,*hints) ; } #else void fxstsp(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxstsp(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { Status XsetStandardProperties() ; int i ; for ( i = 0 ; i < strlen(windowname) ; i++ ) { if ( windowname[i] == ' ' ) break ; } windowname[i] = '\0' ; for ( i = 0 ; i < strlen(iconname) ; i++ ) { if ( iconname[i] == ' ' ) break ; } iconname[i] = '\0' ; XSetStandardProperties(*display,*window,windowname,iconname,*iconpix,*argv, *argc,*hints) ; } #else void fxstsp(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include void FXSTSP(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { Status XsetStandardProperties() ; int i ; for ( i = 0 ; i < strlen(windowname) ; i++ ) { if ( windowname[i] == ' ' ) break ; } windowname[i] = '\0' ; for ( i = 0 ; i < strlen(iconname) ; i++ ) { if ( iconname[i] == ' ' ) break ; } iconname[i] = '\0' ; XSetStandardProperties(*display,*window,windowname,iconname,*iconpix,*argv, *argc,*hints) ; } #else void FXSTSP(display,window,windowname,iconname,iconpix,argv,argc,hints) int *display ; int *window ; char windowname[] ; char iconname[] ; int *iconpix ; int *argv ; int *argc ; int *hints ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */ /* FUNCTION FXTXWD(FONT_STRUCT,STRING,COUNT) PURPOSE: DETERMINE THE WIDTH OF AN 8-BIT CHARACTER STRING WRITTEN BY: David Bui NAS9-18888 ARGUMENT LIST INPUT: font_struct = specifies the font used for the width computation string = specifies the character string length = specifies the character count in the specified string ARGUMENT LIST OUTPUT: NONE NOTES: Fortran-callable interface to XTextWidth */ /*************************************************************************** **/ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include int fxtxwd_(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { int XTextWidth() ; /* int i ; for ( i=0 ; i < strlen(string) ; i++) { if ( string[i] == ' ' ) break ; } string[i] = '\0' ; */ return(XTextWidth(*font_struct,string,*count)); } #else int fxtxwd_ ( int *font_struct, char string[], int *count ) { return(0) ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ /* ****************************************************************** */ #ifdef CDECOSF #ifdef XWIN #include int fxtxwd_(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { int XTextWidth() ; /* int i ; for ( i=0 ; i < strlen(string) ; i++) { if ( string[i] == ' ' ) break ; } string[i] = '\0' ; */ return(XTextWidth(*font_struct,string,*count)); } #else int fxtxwd_(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { return(0) ; } #endif /* XWIN */ #endif /* CDECOSF */ /* ****************************************************************** */ #ifdef CDECVMS #ifdef XWIN #include int fxtxwd(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { int XTextWidth() ; /* int i ; for ( i=0 ; i < strlen(string) ; i++) { if ( string[i] == ' ' ) break ; } string[i] = '\0' ; */ return(XTextWidth(*font_struct,string,*count)); } #else int fxtxwd(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { return(0) ; } #endif /* XWIN */ #endif /* CDECVMS */ /* ****************************************************************** */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include int fxtxwd(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { int XTextWidth() ; /* int i ; for ( i=0 ; i < strlen(string) ; i++) { if ( string[i] == ' ' ) break ; } string[i] = '\0' ; */ return(XTextWidth(*font_struct,string,*count)); } #else int fxtxwd(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { return(0) ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ /* ****************************************************************** */ #ifdef CUNICOS #ifdef XWIN #include int FXTXWD(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { int XTextWidth() ; /* int i ; for ( i=0 ; i < strlen(string) ; i++) { if ( string[i] == ' ' ) break ; } string[i] = '\0' ; */ return(XTextWidth(*font_struct,string,*count)); } #else int FXTXWD(font_struct,string,count) int *font_struct ; char string[] ; int *count ; { return(0) ; } #endif /* XWIN */ #endif /* CUNICOS */ /* SUBROUTINE FXUMWD (DISPLY,WIN) */ /* PURPOSE: UNMAP A GIVEN WINDOW */ /* WRITTEN BY: David Bui NAS9-18888 06/01/94 */ /* ARGUMENT LIST INPUT: */ /* display = specifies the connection to the X server */ /* windowId = specifies the window */ /* ARGUMENT LIST OUTPUT: */ /* NONE */ #if defined(CAPOLLO) || defined(CCONVEX) || defined(CSGIRIX) || defined(CSUNOS) #ifdef XWIN #include void fxumwd_(display,windowId) int *display ; int *windowId ; { Status XUnmapWindow() ; XUnmapWindow(*display,*windowId) ; } #else void fxumwd_ ( int *display, int *windowId ) { return ; } #endif /* XWIN */ #endif /* CAPOLLO || CCONVEX || CSGIRIX || CSUNOS */ #ifdef CDECOSF #ifdef XWIN #include void fxumwd_(display,windowId) int *display ; int *windowId ; { Status XUnmapWindow() ; XUnmapWindow(*display,*windowId) ; } #else void fxumwd_(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CDECOSF */ #ifdef CDECVMS #ifdef XWIN #include void fxumwd(display,windowId) int *display ; int *windowId ; { Status XUnmapWindow() ; XUnmapWindow(*display,*windowId) ; } #else void fxumwd(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CDECVMS */ #if defined(CHPF77) || defined(CRISC6K) #ifdef XWIN #include void fxumwd(display,windowId) int *display ; int *windowId ; { Status XUnmapWindow() ; XUnmapWindow(*display,*windowId) ; } #else void fxumwd(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CHPF77 || CRISC6K */ #ifdef CUNICOS #ifdef XWIN #include void FXUMWD(display,windowId) int *display ; int *windowId ; { Status XUnmapWindow() ; XUnmapWindow(*display,*windowId) ; } #else void FXUMWD(display,windowId) int *display ; int *windowId ; { return ; } #endif /* XWIN */ #endif /* CUNICOS */