/* sofas.c 1.1 */ /* Copyright 1992, 1993 O'Reilly and Associates, Inc. Permission to use, copy, and modify this program is hereby granted, as long as this copyright notice appears in each copy of the program source code. */ #include "book_utils.h" #define WIN_GEOM "500x500+50+50" #define SET_VERTEX_COORD( v, _x, _y, _z ) \ {(v).x = (_x); (v).y = (_y); (v).z = (_z);} /* Structure ID */ static PEXStructure struct_id; static void create_structure( dpy ) Display *dpy; { PEXArrayOfVertex vert_array; PEXCoord vertices[8]; /* eight vertices */ PEXConnectivityData contour_lists[6]; /* six fill area sets */ PEXListOfUShort contours[6]; /* each with one contour */ unsigned short indices[6][4]; /* of four indices each */ PEXArrayOfFacetData dummy; /* Create the structure. */ struct_id = PEXCreateStructure( dpy ); /* Build the vertex list. */ SET_VERTEX_COORD( vertices[0], 0.3, 0.3, 0.7 ) SET_VERTEX_COORD( vertices[1], 0.7, 0.3, 0.7 ) SET_VERTEX_COORD( vertices[2], 0.7, 0.3, 0.3 ) SET_VERTEX_COORD( vertices[3], 0.3, 0.3, 0.3 ) SET_VERTEX_COORD( vertices[4], 0.3, 0.7, 0.7 ) SET_VERTEX_COORD( vertices[5], 0.7, 0.7, 0.7 ) SET_VERTEX_COORD( vertices[6], 0.7, 0.7, 0.3 ) SET_VERTEX_COORD( vertices[7], 0.3, 0.7, 0.3 ) vert_array.no_data = vertices; /* Build the connectivity lists. */ /* Front Face. */ contour_lists[0].count = 1; contour_lists[0].lists = &contours[0]; contours[0].count = 4; contours[0].shorts = indices[0]; indices[0][0] = 0; indices[0][1] = 1; indices[0][2] = 5; indices[0][3] = 4; /* Right Face. */ contour_lists[1].count = 1; contour_lists[1].lists = &contours[1]; contours[1].count = 4; contours[1].shorts = indices[1]; indices[1][0] = 1; indices[1][1] = 2; indices[1][2] = 6; indices[1][3] = 5; /* Back Face. */ contour_lists[2].count = 1; contour_lists[2].lists = &contours[2]; contours[2].count = 4; contours[2].shorts = indices[2]; indices[2][0] = 2; indices[2][1] = 3; indices[2][2] = 7; indices[2][3] = 6; /* Left Face. */ contour_lists[3].count = 1; contour_lists[3].lists = &contours[3]; contours[3].count = 4; contours[3].shorts = indices[3]; indices[3][0] = 3; indices[3][1] = 0; indices[3][2] = 4; indices[3][3] = 7; /* Bottom Face. */ contour_lists[4].count = 1; contour_lists[4].lists = &contours[4]; contours[4].count = 4; contours[4].shorts = indices[4]; indices[4][0] = 0; indices[4][1] = 3; indices[4][2] = 2; indices[4][3] = 1; /* Top Face. */ contour_lists[5].count = 1; contour_lists[5].lists = &contours[5]; contours[5].count = 4; contours[5].shorts = indices[5]; indices[5][0] = 4; indices[5][1] = 5; indices[5][2] = 6; indices[5][3] = 7; /* Set the view index to view 1. */ PEXSetViewIndex( dpy, struct_id, PEXOCStore, 1 ); /* Set the interior style. */ PEXSetInteriorStyle( dpy, struct_id, PEXOCStore, PEXInteriorStyleHollow ); /* Create the SOFAS primitive. */ PEXSetOfFillAreaSets( dpy, struct_id, PEXOCStore, PEXShapeConvex, PEXGANone, PEXGANone, PEXGANone, PEXContourDisjoint, True, PEXColorTypeRGB, 6, dummy, 8, vert_array, 24, (PEXSwitch *)NULL, contour_lists ); } static void redraw( dpy, window, renderer ) Display *dpy; Window window; PEXRenderer renderer; { XClearWindow( dpy, window ); PEXRenderNetwork( dpy, window, renderer, struct_id ); XFlush( dpy ); } extern void set_view(); main( argc, argv ) int argc; char *argv[]; { Display *dpy; Window window; XEvent event; XVisualInfo vis_info; XColor bkgd_color; XStandardColormap cmap_info; PEXColorApproxEntry capx_info; PEXRenderer renderer; PEXRendererAttributes rattrs; PEXExtensionInfo *pexinfo; int done = 0; /* Open a display and initialize PEX. */ dpy = ora_init_pex( argv, &pexinfo ); if ( !dpy ) exit(1); /* Determine the best visual to use. */ ora_find_best_visual( dpy, &vis_info ); /* Get a standard colormap for the visual. */ if ( !ora_get_standard_colormap( dpy, &vis_info, &cmap_info ) ) { fprintf ( stderr, "Cannot find a standard colormap\n" ); exit(1); } ora_set_stdcmap_approx( &vis_info, &cmap_info, &capx_info ); /* Create the window, giving it a gray background. */ bkgd_color.red = bkgd_color.green = bkgd_color.blue = 0x5555; bkgd_color.flags = DoRed | DoGreen | DoBlue; window = ora_create_window( dpy, &vis_info, &cmap_info, WIN_GEOM, &bkgd_color ); /* Create the structure and Set up the PEX renderer. */ if ( STRUCTURE_SPT( pexinfo ) ) { create_structure( dpy ); renderer = ora_setup_renderer( dpy, window, &capx_info, &rattrs ); } else { fprintf( stderr, "Structures not supported.\n" ); exit(1); } set_view( dpy, rattrs.view_table ); /* Read and respond to X events. */ XSelectInput( dpy, window, ExposureMask | ButtonPressMask ); while ( !done ) { XNextEvent( dpy, &event ); switch ( event.type ) { case Expose: /* Flush remaining Expose events, then redraw. */ while ( XCheckTypedWindowEvent( dpy, window, Expose, &event ) ) ; /* empty statement */ redraw( dpy, window, renderer ); break; case ButtonPress: done = 1; break; } } XCloseDisplay( dpy ); return 0; } static void set_view( dpy, view_table ) Display *dpy; PEXLookupTable view_table; { PEXViewEntry view; PEXCoord2D window[2]; double view_plane, front_plane, back_plane; PEXCoord prp; PEXNPCSubVolume viewport; /* The view orientation parameters. */ static PEXCoord view_ref_pt = {0.5, 0.5, 0.5}; static PEXVector view_plane_normal = {2, 0.5, 0.5}; static PEXVector view_up_vec = {0,1,0}; /* Compute the view orientation transform. */ (void)PEXViewOrientationMatrix( &view_ref_pt, &view_plane_normal, &view_up_vec, view.orientation ); /* The view mapping parameters. */ prp.x = 0; prp.y = 0; prp.z = 20; window[0].x = -0.5; window[1].x = 0.5; window[0].y = -0.5; window[1].y = 0.5; front_plane = 100; view_plane = 0; back_plane = -100; viewport.min.x = 0; viewport.max.x = 1; viewport.min.y = 0; viewport.max.y = 1; viewport.min.z = 0; viewport.max.z = 1; /* Compute the view mapping transform. */ (void)PEXViewMappingMatrix( window, &viewport, False, &prp, view_plane, back_plane, front_plane, view.mapping ); /* The view clipping parameters. */ view.clip_flags = PEXClippingAll; view.clip_limits = viewport; /* Set view 1. */ PEXSetTableEntries( dpy, view_table, 1, 1, PEXLUTView, (PEXPointer) &view ); }