7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
91 lines
2.3 KiB
Text
91 lines
2.3 KiB
Text
#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;
|
|
|
|
/*---------------------------------------------------------------------*/
|
|
|
|
*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;
|
|
}
|