winsmart.c

Intro/: Directory containing introductory examples. HelloWorld.c A simple program that draws a bo

#include <phigs.h>			/* get HP-PHIGS definitions */
#include <X11R5/X11/X.h>		/* get common X window definitions */
#include <X11/Xlib.h>			/* get C routine definitions for X */
#include <X11/Xutil.h>			/* get X window utilities */
#include <X11/XHPlib.h>			/* get HP-specific X definitions */
#include <stdio.h>			/* get standard I/O definitions */

main()					/* file "WinSmart.c" */
{
    Display		*display;	/* X display identifier */
    Window		parent;		/* window id of parent window */
    Window		window;		/* window id of window of interest */
    int			screen;		
    int			LocX;
    int			LocY;
    unsigned int	width;
    unsigned int	height;
    unsigned int	border_width;
    int			depth;
    unsigned int	class;
    Visual		*visual;
    unsigned long	ValueMask;
    XSetWindowAttributes attributes;
    int			VisualClass;
    XVisualInfo		VisualInfo;
    Colormap		ColourMap;
    XEvent		event;

    Pint		WorkstnID = 1;		/* workstation identifier */
    Pint		ConnID;			/* connection identifier */
    Pint		WorkstnType = POIDDX;	/* out/in, dir, dbl bfr, X */
    Pint		BoxStructure = 1;	/* value chosen by user */
    static Ppoint	SquarePts[4] = {0.0,0.0, 0.0,1.9, 1.9,1.9, 1.9,0.0};
    static Ppoint_list	Square = {4, SquarePts};
    Pstore		Store;			/* internal storage area */
    Pint		*ConnectID;		/* from "pinq_ws_conn_type" */
    Pint		SpecificType;		/* specific workstation type */
    Pdisp_space_size3	WindowSize;		/* size of X window */
    Plimit		Viewport;		/* workstation viewport */
    Pint		Error;			/* error-return variable */
    float		PixelToDC;		/* conversion factor */
    float		DCwidth, DCheight;	/* temporary variables */

    /*--- open the display and the screen ----------------------------------*/
    display = XOpenDisplay(NULL);
    if (!display) printf("ERROR:  Failed to open the display\n");
    screen = DefaultScreen(display);
    /*--- create 8-plane PseudoColor window, child of root -----------------*/
    parent = RootWindow(display, screen);	/* works on most configs */
    LocX = 0;  LocY = 0;
    width = XDisplayWidth(display, screen);
    height = XDisplayHeight(display, height);
    border_width = 0;
    depth = 8;
    class = InputOutput;
    VisualClass = PseudoColor;
    if (!XMatchVisualInfo(display, screen, depth, VisualClass, &VisualInfo))
        printf("ERROR:  Couldn't find a matching visual\n");
    visual = VisualInfo.visual;
    ValueMask = CWBorderPixel | CWColormap | CWBackPixel;
    ColourMap = XCreateColormap(display, parent, visual, AllocNone);
    attributes.colormap = ColourMap;
    attributes.border_pixel = 0;
    attributes.background_pixel = 0;
    window = XCreateWindow(display, parent, LocX, LocY, width, height,
      border_width, depth, class, visual, ValueMask, &attributes);
    /*--- capture exposure and resize events -------------------------------*/
    XSelectInput(display, window, 
      ExposureMask | StructureNotifyMask | ButtonPressMask);
    XSync(display, False);

    popen_phigs((char *) stderr, 0);	/* errors go to "stderr" */
    /*--- Create a structure with a large red box --------------------------*/
    popen_struct(BoxStructure);
    pset_int_colr_ind(2);
    pset_int_style(PSTYLE_SOLID);
    pfill_area(&Square);
    pclose_struct();
    /*--- open the workstation ---------------------------------------------*/
    pescape_u5((Pint *) display, (Pint *) window, &ConnID);
    popen_ws(WorkstnID, (void *) ConnID, WorkstnType);
    /*--- determine pixel-to-DC conversion factor for resize algorithm -----*/
    pcreate_store(&Error, &Store);
    if (Error) printf("Error %d in pcreate_store.\n", Error), exit(1);
    pinq_ws_conn_type(WorkstnID, Store, &Error, (void *) &ConnID,
      &SpecificType);
    if (Error) printf("Error %d in pinq_ws_conn_type.\n", Error), exit(1);
    pinq_disp_space_size3(SpecificType, &Error, &WindowSize);
    if (Error) printf("Error %d in pinq_disp_space_size3.\n", Error), exit(1);
    PixelToDC = WindowSize.size_dc.size_x / WindowSize.size_raster.size_x;
    /*--- resize the window down to application size -----------------------*/
    width = 600;  height = 400;
    XResizeWindow(display, window, width, height);
    /*--- map the window, making it visible for the first time -------------*/
    XMapWindow(display, window);
    XSync(display, False);
    /*--- post the model to the workstation --------------------------------*/
    ppost_struct(WorkstnID, BoxStructure, 1.0);
    /* Loop on X events for the rest of the program. -----------------------*/
    /* Regenerate when an exposure event is captured.                       */
    /* Adjust the viewport when a resize event is captured.                 */
    /* Close the workstation and PHIGS when the window is clicked/closed.   */
    while (1) {
        XNextEvent(display, &event);
        switch (event.type) {
            case Expose:
                predraw_all_structs(WorkstnID, PFLAG_ALWAYS);
                break;
            case ConfigureNotify:
                DCwidth = (float) event.xconfigure.width * PixelToDC;
                DCheight = (float) event.xconfigure.height * PixelToDC;
                Viewport.x_min = 0.0;
                Viewport.y_min = WindowSize.size_dc.size_y - DCheight;
                Viewport.x_max = DCwidth;
                Viewport.y_max = WindowSize.size_dc.size_y;
                pset_ws_vp(WorkstnID, &Viewport);
                break;
            case ButtonPress:
                pclose_ws(WorkstnID);
                pclose_phigs();
                exit(0);
                break;
            default:
                break;
        }
    }
}