676ea3192f
Former-commit-id:b13cbb7e00[formerly 4909e0dd166e43c22a34d96aa744f51db8a7d6c0] Former-commit-id:3904c4ccf5
93 lines
2.4 KiB
C
93 lines
2.4 KiB
C
#define GEM_GLOB
|
|
|
|
#include "gui.h"
|
|
|
|
#include "xwcmn.h"
|
|
|
|
#ifdef UNDERSCORE
|
|
#define xsattbl xsattbl_
|
|
#define xdwtbl xdwtbl_
|
|
#define xinitd xinitd_
|
|
#endif /* UNDERSCORE */
|
|
|
|
void
|
|
/*xinitd ( win_name, lenw, xsize, ysize, iwdth, ihght, iret )
|
|
char win_name[];
|
|
int *lenw;
|
|
float *xsize;
|
|
float *ysize;
|
|
int *iwdth;
|
|
int *ihght;
|
|
int *iret;*/
|
|
|
|
xinitd ( iwdth, ihght, iret )
|
|
int *iwdth;
|
|
int *ihght;
|
|
int *iret;
|
|
|
|
/************************************************************************
|
|
* xinitd *
|
|
* *
|
|
* This subroutine opens the graphics window and sets the initial *
|
|
* graphics context along with basic window attributes. *
|
|
* *
|
|
* xinitd ( win_name, lenw, xsize, ysize, iwdth, ihght, iret ) *
|
|
* *
|
|
* Input and Output parameters: *
|
|
* win_name char[] Window name *
|
|
* *lenw int Window name length *
|
|
* *xsize float Window X size *
|
|
* *ysize float Window Y size *
|
|
* *
|
|
* Output parameters: *
|
|
* *iwdth int Right edge of window *
|
|
* *ihght int Bottom edge of window *
|
|
* *iret int Return code *
|
|
* 0 = normal return *
|
|
* -1 = window not opened *
|
|
** *
|
|
* Log: *
|
|
* J. Whistler/SSAI 7/91 *
|
|
* J. Whistler/SSAI 10/91 Added call to XSetFillRule *
|
|
* M. desJardins/NMC 12/91 GEMPAK 5.1 version *
|
|
* M. desJardins/NMC 1/92 Changed definition of colors *
|
|
* S. Jacobs/NMC 3/94 Added call to xsattbl *
|
|
* S. Jacobs/NMC 7/94 General clean up *
|
|
* C. Lin/EAI 7/94 Multi-window & Multi-pixmap *
|
|
* J. Cowie/COMET 9/95 Added win_name, x,ysizes, ( consistent *
|
|
* with XW driver but not used here ) *
|
|
* C. Lin/EAI 1/96 clrsalloc -> allocflag[] *
|
|
***********************************************************************/
|
|
|
|
{
|
|
int i, ier;
|
|
|
|
/*---------------------------------------------------------------------*/
|
|
|
|
*iret = G_NORMAL;
|
|
|
|
/*
|
|
* Set hardware text variables in case they are used.
|
|
*/
|
|
txfont_req = 1;
|
|
txfont_set = 0;
|
|
txsize_req = 1.;
|
|
txsize_set = 0.;
|
|
/*
|
|
* Set satellite color allocation flag to true.
|
|
*/
|
|
for (i = 0; i < 3; i++)
|
|
allocflag[i] = G_TRUE;
|
|
|
|
/*
|
|
* Initialize foreground and background colors.
|
|
*
|
|
* Note that the background color index is 0 and not NNCOLR.
|
|
* A pixel index of 0 is used for the X windows color
|
|
* allocation routines. The user will still access the
|
|
* background color as color number 101.
|
|
*/
|
|
ibkcol = 0;
|
|
ifrcol = 1;
|
|
|
|
}
|