Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!linac!midway!msuinfo!rudolf.nscl.msu.edu!fox
From: fox@rudolf.nscl.msu.edu (Ron Fox)
Newsgroups: comp.unix.ultrix
Subject: GKS-3D on ULTRIX 2 bugs, test programs.
Message-ID: <1991Feb27.140706.3905@msuinfo.cl.msu.edu>
Date: 27 Feb 91 14:07:06 GMT
Sender: news@msuinfo.cl.msu.edu
Reply-To: fox@rudolf.nscl.msu.edu (Ron Fox)
Organization: National Superconducting Cyclotron Lab.
Lines: 268

--
  The following illustrate problems with GKS-3d C bindings on ULTRIX. 
Neither program
has problems running on VMS GKS-3D.  The problems are:

1. INQUIRE TEXT FACILITIES returns garbage for the list of fonts and
precisions for
    workstation 211 (DECWINDOWS).  I do not know if this is a problem
for other
    workstation types.  This is illustrated by the first attached
program (gksfail.c)
2.  MESSAGE produces a dialog box on w.s. 211 which, if it overlays a
highlighted
    segment does not properly restore that segment when it is
dismissed.  This
    is illustrated by the second attached program gksfail2.c  

  I do not know of workarounds or patches to either of these two bugs.
I have submitted these problems to DSNLINK, yesterday (Feb 26, 1991),
and so far just have the automated responses.  Bug 1 seems sort of
inexcusable.  You'd think that elementary testing would catch this. 
Bug 2 looks careless. 

		Ron
---------------------------- gksfail.c
----------------------------------
/*
** Test program for gtmaxtxtprec function which seems to be haywire
**/
#include <stdio.h>
#include <errno.h>
#ifdef ultrix
#include <GKS3D/GKS3Dcbnd.h>
#define DISPLAY "0:0.0"
#endif

#ifdef VMS
#include <GKS3D$CBND.H>
#define DISPLAY "DECW$DISPLAY"
#endif
#include <stdlib.h>
#include <string.h>

void gtmaxtxtprec(int wstype);
main ()
{
  Gint   wstype;
  Glong  memsize;
 
  /* Open gks and a workstation: */

  memsize = 1024;
  gopengks(stderr, &memsize);
  wstype = 211;
  gopenws(1, DISPLAY, &wstype);	/* Open decwindows on default screen */

  gtmaxtxtprec(211);
  exit(0);

}

/*
** Functional Description:
**	gtmaxtxtprec	- This function displays the set of fonts and
**			  precisions for the given workstation type
** Formal Parameters:
**	Gint wtype	- Type of workstation we're asking about.
**	Gtxtprec *p     - Pointer to a font/precision structure.
*/
void gtmaxtxtprec(Gint wtype)
{
  Gtxfac buf;			/* Text facilities buffer.           */
  int siz;			/* Number of fonts.        	     */
  int i;
  Gtxfp *fp, dummy;
  int err;			/* Error indicator.		     */

  /* We inquire text facilities twice.  The first time tells us how  */
  /* big a list of fonts we need to support, the second actually     */
  /* Retrieves the font/precision list.				     */

  buf.fp_list  = &dummy;    /* Start out with dummy list...       */
  ginqtextfacil(&wtype, 1, &siz,
		&buf, &err);	/* Get number of fonts in list in siz  */
  printf("Siz after = %d\n", siz);
  printf("buf.fps = %d\n", buf.fps);

  if(err != 0) {
    fprintf(stderr, "Unable to ginqtextfacil in gtmaxtxtprec for
sizing %d\n",
	    err);
    exit(err);
  }
  /* Now we allocate the storage needed for the font list.  */
  /* and do ginqtextpacil again to get the data   	    */

  fp = (Gtxfp *)malloc(siz*3*sizeof(Gtxfp));
  if(fp == (Gtxfp *)NULL) {
    fprintf(stderr, "Unable to malloc a buffer for %d fonts in
gtmaxtxtprec\n",
	    siz);
    perror("malloc failed due to ");
    exit(errno);
  }
  memset(fp, 0, siz*3*sizeof(Gtxfp)); /*  Zero the buffer... */
  buf.fp_list = fp;

  /* Verify the buffer is zeroed... */

  for(i=1; i < siz*3; i++) {
    printf("Font %d Precision %d\n", buf.fp_list[i].font,
buf.fp_list[i].prec);
  }
  printf("-----------------------------------------\n");

  /* Now inquire the text facilities into the buffer. */

  i = siz*3;
  ginqtextfacil(&wtype, i, &siz, &buf, &err); /* Get the font list
now. */
  if(err != 0) {
    fprintf(stderr, "Unable to ginqtextfacil in gtmaxtxtprec for
effect %d\n",
	    err);
    exit(err);
  }

  /* List out the set of font and precisions found: */

  printf("Now buf.fps = %d\n", buf.fps);
  for(i = 0; i<buf.fps; i++) {
    printf("Font: %d, prec= %d\n",
	   buf.fp_list[i].font, buf.fp_list[i].prec);
  }
  free(fp);		  /* Release storage	 */

  printf("A few other bits of data: \n");
  printf(" buf.,heights %d\n", buf.heights);
  printf(" buf.min_ht   %f\n", buf.min_ht);
  printf(" buf.max_ht   %f\n", buf.max_ht);
  printf(" buf.expansions %d\n", buf.expansions);
  printf(" buf.min_exp  %f\n", buf.min_exp);
  printf(" buf.max_exp  %f\n", buf.max_exp);
  printf(" buf.predefined %d\n", buf.predefined);

}
----------------------------gksfail2.c--------------------------------
/*
** Test program for gtmaxtxtprec function which seems to be haywire
**/
#include <stdio.h>
#include <errno.h>
#ifdef ultrix
#include <GKS3D/GKS3Dcbnd.h>
#define DISPLAY "0:0.0"
#endif

#ifdef VMS
#include <GKS3D$CBND.H>
#define DISPLAY "DECW$DISPLAY"
#endif
#include <stdlib.h>
#include <string.h>

void dobox(Gfloat x1, Gfloat y1,
	   Gfloat x2, Gfloat y2);
main ()
{
  char  c;
  Gint   wstype;
  Glong  memsize;
  Gcobundl co;
  Glimit ndc;

  /* Open gks and a workstation: */

  memsize = 1024;
  gopengks(stderr, &memsize);
  wstype = 211;

  gopenws(1, DISPLAY, &wstype);	/* Open decwindows on default screen */

  ndc.xmin = 0.0;
  ndc.xmax = 2.54 * 6.0/100.0;	/* 6 inches. in x. */
  ndc.ymin = 0.0;
  ndc.ymax = 2.54 * 6.0/100.0;
  gsetwsviewport(1, &ndc);

  gactivatews(1);		/* Turn on the workstation */
  co.comp1 = 0.0;
  co.comp2 = 0.0;
  co.comp3 = 0.0;
  gsetcolourrep(1, 0, &co);	/* Black background...  */
  
  co.comp1 = 1.0;
  co.comp2 = 1.0;
  co.comp3 = 1.0;
  gsetcolourrep(1, 1, &co);	/* White foreground */

  gclearws(1, GALWAYS);		/* Clear to black. */

  gsetlinecolourind(1);		/* Use white to draw lines. */

  printf("Now drawing  boxes in segments and highlighting first
one.\n");
  gcreateseg(1);
  dobox((Gfloat)0.01, (Gfloat)0.01, (Gfloat)0.5, (Gfloat)0.5);
  gcloseseg();
  gsetvis(1, GVISIBLE);
  gupdatews(1, GPERFORM);
  gsethighlight(1, GHIGHLIGHTED);
  gcreateseg(2);
  dobox((Gfloat)0.5, (Gfloat)0.5, (Gfloat)0.9, (Gfloat)0.9);
  gcloseseg();
  gsetvis(2, GVISIBLE);
  gupdatews(1, GPERFORM);
  
  printf("Hit return to continue: ");
  scanf("%c", &c);

  printf("Now popping up a message.. dismiss it for first humorous
problem\n");
  gmessage(1, "Dismiss this message please");
  printf("Hit return for next humorous problem ");
  scanf("%c", &c);

  gsethighlight(1, GNORMAL);
  gsethighlight(2, GHIGHLIGHTED);
  gupdatews(1, GPERFORM);

  printf("Note the exclusive or effect in the resulting
highlighting\n");
  printf ("Hit return to exit");
  scanf("%c", &c);

  exit(0);

}

void dobox(Gfloat x1, Gfloat y1,
	   Gfloat x2, Gfloat y2) 
     /* Draw a rectangle bounded by (x1,y1)-(x2,y2) */
{
  Gpoint pts[5];

  pts[0].x = x1;
  pts[0].y = y1;

  pts[1].x = x1;
  pts[1].y = y2;

  pts[2].x = x2;
  pts[2].y = y2;

  pts[3].x = x2;
  pts[3].y = y1;

  pts[4].x = x1;
  pts[4].y = y1;

  gpolyline(5, pts);
}

Ron Fox                     | FOX@MSUNSCL.BITNET      | Where the name 
NSCL                        | FOX@RUDOLF.NSCL.MSU.EDU | goes on before
Michigan State University   | MSUHEP::RUDOLF::FOX     | the quality
East Lansing, MI 48824-1321 |                         | goes in.
USA