Revision: 41487
http://brlcad.svn.sourceforge.net/brlcad/?rev=41487&view=rev
Author: brlcad
Date: 2010-12-01 02:44:40 +0000 (Wed, 01 Dec 2010)
Log Message:
-----------
remove the obsolete pl-sgi converter. SGI Iris 3D is no more.
Modified Paths:
--------------
brlcad/trunk/src/util/Makefile.am
Removed Paths:
-------------
brlcad/trunk/src/util/pl-sgi.1
brlcad/trunk/src/util/pl-sgi.c
Modified: brlcad/trunk/src/util/Makefile.am
===================================================================
--- brlcad/trunk/src/util/Makefile.am 2010-12-01 00:14:10 UTC (rev 41486)
+++ brlcad/trunk/src/util/Makefile.am 2010-12-01 02:44:40 UTC (rev 41487)
@@ -131,7 +131,6 @@
pl-hpgl \
pl-pl \
pl-ps \
- pl-sgi \
pl-tek \
plcolor \
pldebug \
@@ -469,9 +468,6 @@
pl_ps_SOURCES = pl-ps.c
pl_ps_LDADD = ${BU}
-pl_sgi_SOURCES = pl-sgi.c
-pl_sgi_LDADD = ${BU} ${LIBSGIGL}
-
pl_tek_SOURCES = pl-tek.c
pl_tek_LDADD = ${BU}
@@ -622,7 +618,6 @@
pl-hpgl.1 \
pl-pl.1 \
pl-ps.1 \
- pl-sgi.1 \
pl-tek.1 \
plcolor.1 \
pldebug.1 \
Deleted: brlcad/trunk/src/util/pl-sgi.1
===================================================================
--- brlcad/trunk/src/util/pl-sgi.1 2010-12-01 00:14:10 UTC (rev 41486)
+++ brlcad/trunk/src/util/pl-sgi.1 2010-12-01 02:44:40 UTC (rev 41487)
@@ -1,111 +0,0 @@
-.TH PL\-SGI 1 BRL-CAD
-.\" P L - S G I . 1
-.\" BRL-CAD
-.\"
-.\" Copyright (c) 2005-2010 United States Government as represented by
-.\" the U.S. Army Research Laboratory.
-.\"
-.\" Redistribution and use in source (Docbook format) and 'compiled'
-.\" forms (PDF, PostScript, HTML, RTF, etc), with or without
-.\" modification, are permitted provided that the following conditions
-.\" are met:
-.\"
-.\" 1. Redistributions of source code (Docbook format) must retain the
-.\" above copyright notice, this list of conditions and the following
-.\" disclaimer.
-.\"
-.\" 2. Redistributions in compiled form (transformed to other DTDs,
-.\" converted to PDF, PostScript, HTML, RTF, and other formats) must
-.\" reproduce the above copyright notice, this list of conditions and
-.\" the following disclaimer in the documentation and/or other
-.\" materials provided with the distribution.
-.\"
-.\" 3. The name of the author may not be used to endorse or promote
-.\" products derived from this documentation without specific prior
-.\" written permission.
-.\"
-.\" THIS DOCUMENTATION IS PROVIDED BY THE AUTHOR AS IS'' AND ANY
-.\" EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-.\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-.\" ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-.\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
-.\" OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
-.\" BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-.\" LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-.\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-.\" USE OF THIS DOCUMENTATION, EVEN IF ADVISED OF THE POSSIBILITY OF
-.\" SUCH DAMAGE.
-.\"
-.\".\".\"
-.SH NAME
-pl\(hysgi \- display UnixPlot on a Silicon Graphics workstation
-.SH SYNOPSIS
-.B pl-sgi
-.RB [ \-f ]
-.RB [ \-n ]
-.RB [ \-t\ thickness]
-[unix_plot]
-.SH DESCRIPTION
-.I Pl-sgi
-runs only on the Silicon Graphics 3030 and 4D series workstations.
-It takes an extended UnixPlot file or files as input and draws
-then on the display. If your system has a knob and button box
-the knobs control rotations and translations and the button box
-has several pre-defined views and options built in. Specifically,
-the left row of knobs from top down are X, Y, and Z rotations,
-and the right row are X, Y, and Z translations and Scale. The
-top row of buttons are: ortho view, perspective view, and reset
-view, and the lower two rows of buttons are the same predefined
-orientations that the
-.IR mged (1)
-editor uses.
-.PP
-The
-.B \-n
-flag indicates that the plot is intended for display at NTSC
-resolution. The display hardware is set for NTSC video output.
-The
-.B \-t
-flag specifies the thickening (pixel width) of each line.
-By default, lines are only a single pixel wide.
-A thickness value of one or two is usually good when making 35mm
-slides, while a thickness value of three or four is usually best
-when making NTSC videotape recordings.
-.PP
-The three mouse button are: left - zoom out (.5x smaller), middle
-- zoom in (2x larger), right - gives you a small menu of options.
-The default choice is to center the current point (the one under
-the cursor at the time of the mouse press). Menu options also
-include turning coordinate axis on and off, and outputting the current
-"center" point after each repaint (although in 3D with combined
-rotates and translates you will probably find this value to be
-of little use). If you have a Dunn Instruments film recorder
-connected to your workstation, and the
-.IR dunnsnap (1)
-program is installed, then a menu selection can be made to snap
-a picture of the current view.
-.PP
-If you are running under a window system (which SGI seems to force
-you to do these days) then the
-.B \-f
-option tells the program to use the full screen for its display, i.e.
-it creates a window with the borders just beyond the edge of the
-display.
-.SH "SALES HYPE"
-The full power of floating point plotting can be seen in this kind
-of environment, where multiple plots can be overlayed in their
-natural coordinate scale, and one can zoom in or out over several
-orders of magnitude without loss of precision.
-.SH BUGS
-The predefined views also change the centering and scale; they
-should only affect the rotation. There is no substitute yet
-for the knob and button box for those that don't have one.
-Even though this program has been growing new features for some
-time, there are still many things on our wish list that it doesn't
-do.
-.SH "SEE ALSO"
-pl-fb(1), pl-X(1), pl-pl(1), plot3(5).
-.SH "BUG REPORTS"
-Reports of bugs or problems should be submitted via electronic
-mail to <[email protected]>.
Deleted: brlcad/trunk/src/util/pl-sgi.c
===================================================================
--- brlcad/trunk/src/util/pl-sgi.c 2010-12-01 00:14:10 UTC (rev 41486)
+++ brlcad/trunk/src/util/pl-sgi.c 2010-12-01 02:44:40 UTC (rev 41487)
@@ -1,1254 +0,0 @@
-/* P L - S G I . C
- * BRL-CAD
- *
- * Copyright (c) 1986-2010 United States Government as represented by
- * the U.S. Army Research Laboratory.
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * version 2.1 as published by the Free Software Foundation.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this file; see the file named COPYING for more
- * information.
- */
-/** @file pl-sgi.c
- *
- * SGI Iris 3-D Unix Plot display program.
- *
- * Authors -
- * Paul R. Stay
- * Gary S. Moss
- * Phillip Dykstra
- *
- */
-
-#include "common.h"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <math.h>
-
-#include "bu.h"
-
-
-/* if there is no SGIGL, then the entire program is simplified to a
- * output a statement.
- */
-#if HAS_SGIGL
-
-# include "gl.h"
-# include "device.h"
-# ifdef mips
-/* sgi 4-D */
-# include "gl/addrs.h"
-# include "gl/cg2vme.h"
-# include "gl/get.h"
-# else
-/* sgi 3-D */
-# include <get.h>
-# define XMAX170 645
-# define YMAX170 484
-# endif
-# ifdef SPACEBALL
-# include "gl/spaceball.h"
-# endif
-
-# define HUGEVAL 1.0e10 /* for near/far clipping */
-
-# define Min(x1, x2) ((x1) < (x2) ? (x1) : (x2))
-# define Max(x1, x2) ((x1) > (x2) ? (x1) : (x2))
-# define PI 3.1415926535898
-# define DtoR(x) ((x)*PI/180.0)
-# define RtoD(x) ((x)*180.0/PI)
-
-/*
- * Color Map:
- * In doublebuffered mode, you only have 12 bits per pixel.
- * These get mapped via a 4096 entry colormap [0..4095].
- * MEX however steals:
- * 0 - 15 on the 3030 (first 8 are "known" colors)
- * top 256 on the 4D "G" and "B" machines [3840..4095] are used
- * to support simultaneous RGB and CMAP windows.
- * Note: as of Release 3.1, 4Sight on the 4D's uses the bottom 32 colors.
- * To quote makemap, the lowest eight colors are the eight standard
- * Graphics Library colors (black, red, green, yellow, blue, magenta,
- * cyan and white). The next 23 [8..30] are a black to white gray ramp.
- * The remaining 225 colors [31..255] are mapped as a 5*9*5 color cube.
- */
-/* Map RGB onto 10x10x10 color cube, giving index in range 0..999 */
-# ifdef mips
-# define MAP_RESERVED (256+8) /* # slots reserved by MAX */
-# else
-# define MAP_RESERVED 16 /* # slots reserved by MEX */
-# endif
-# define COLOR_APPROX(r, g, b) ((r/26)+ (g/26)*10 + (b/26)*100 +
MAP_RESERVED)
-
-/* Window Location */
-# ifdef mips
-# define WINDIM 1024
-# define WIN_R (1279-MARGIN)
-# else
-# define WINDIM 768
-# define WIN_R (1023-MARGIN)
-# endif
-# define MARGIN 4 /* # pixels margin to screen edge */
-# define BANNER 20
-# define WIN_L (WIN_R-WINDIM)
-# define WIN_B MARGIN
-# define WIN_T (WINDIM-BANNER-MARGIN)
-
-
-/*
- * V I E W _ L O O P
- */
-
-#define ROTX DIAL6
-#define ROTY DIAL4
-#define ROTZ DIAL2
-#define TRANX DIAL7
-#define TRANY DIAL5
-#define TRANZ DIAL3
-#define ZOOM DIAL1
-
-#define ORTHO SW0
-#define PERSP SW1
-#undef RESET
-#define RESET SW2
-
-#define BOTTOM SW23
-#define TOP SW24
-#define REAR SW25
-#define V4545 SW26
-#define RIGHT SW28
-#define FRONT SW29
-#define LEFT SW30
-#define V3525 SW31
-
-#define MENU_CENTER 1
-#define MENU_AXIS 2
-#define MENU_INFO 3
-#define MENU_SNAP 4
-#define MENU_SHELL 5
-#define MENU_EXIT 6
-char *menustring = "Center|Axis|Info|DunnSnap|ShellCmd|Exit";
-
-/*XXX - global because it is shared with the menu/mouse input function */
-float d_tran[3]; /* Delta Translations */
-
-int redisplay = 1;
-
-
-Matrix *viewmat; /* current viewing projection */
-Matrix viewortho; /* ortho viewing projection */
-Matrix viewpersp; /* perspective viewing projection */
-Matrix identmat; /* identity */
-Matrix centermat; /* center screen matrix */
-Coord viewsize;
-Matrix g_rot; /* Global Rotations and Translations */
-double g_scal[3]; /* Global Scales */
-
-char *shellcmd = NULL;
-int shellexit = 0; /* one shot shell command! */
-int ntsc = 0; /* use NTSC display, for video recording */
-int axis = 0; /* display coord axis */
-int info = 0; /* output orientation info */
-int fullscreen = 0; /* use a full screen window (if mex) */
-short thickness = 0; /* line thickness */
-int file_input = 0; /* !0 if input came from a disk file */
-int minobj = 1; /* lowest active object number */
-int maxobj = 1; /* next available object number */
-int cmap_mode = 1; /* !0 if in color map mode, else RGBmode */
-int onebuffer = 0; /* !0 if in single buffer mode, else double */
-long menu;
-char *menustring;
-
-
-static char usage[] = "\
-Usage: pl-sgi [options] [-t thickness] [-{s|S} shellcmd] [file.plot]\n\
- -a Display coordinate axis\n\
- -f Full screen window\n\
- -n NTSC video mode\n\
- -1 Single buffer\n\
-";
-
-
-int
-get_args(int argc, char *argv[])
-{
- int c;
-
- while ((c = bu_getopt(argc, argv, "aft:ns:S:1")) != EOF) {
- switch (c) {
- case 'a':
- axis++;
- break;
- case 'f':
- fullscreen++;
- break;
- case 't':
- thickness = atoi(bu_optarg);
- break;
- case 'n':
- ntsc = 1;
- break;
- case 's':
- shellcmd = bu_optarg;
- break;
- case 'S':
- shellcmd = bu_optarg;
- shellexit++;
- break;
- case '1':
- onebuffer++;
- break;
- default: /* '?' */
- return 0;
- }
- }
-
- if (bu_optind >= argc) {
- if (isatty(fileno(stdin)))
- return 0;
- }
-
- return 1; /* OK */
-}
-
-
-int
-init_display()
-{
- int i;
- short r, g, b;
- int map_size; /* # of color map slots available */
-
- if (ismex()) {
- if (fullscreen) {
- prefposition(0, XMAXSCREEN, 0, YMAXSCREEN);
- } else if (ntsc) {
- prefposition(0, XMAX170, 0, YMAX170);
- } else {
- prefposition(WIN_L, WIN_R, WIN_B, WIN_T);
- }
- foreground();
- if (winopen("UNIX plot display") == -1) {
- printf("No more graphics ports available.\n");
- return 1;
- }
- wintitle("UNIX plot display");
- winattach();
-
- if (ntsc) {
- setmonitor(NTSC);
- }
-
- /* Free window of position constraint. */
- winconstraints();
- tpoff();
- if (!onebuffer)
- doublebuffer();
-#ifdef mips
- if (getplanes() > 8) {
- RGBmode();
- cmap_mode = 0;
- }
-#endif
- gconfig();
-
- /*
- * Deal with the SGI hardware color map
- * Note: on a 3030, MEX will make getplanes() return
- * 10 on a 12 bit system (or double buffered 24).
- * On the 4D, it still returns 12.
- */
- map_size = 1<<getplanes(); /* 10 or 12, depending on ismex() */
- map_size -= MAP_RESERVED; /* MEX's share */
- if (map_size > 1000)
- map_size = 1000; /* all we are asking for */
-
- /* The first 8 entries of the colormap are "known" colors */
- mapcolor(0, 000, 000, 000); /* BLACK */
- mapcolor(1, 255, 000, 000); /* RED */
- mapcolor(2, 000, 255, 000); /* GREEN */
- mapcolor(3, 255, 255, 000); /* YELLOW */
- mapcolor(4, 000, 000, 255); /* BLUE */
- mapcolor(5, 255, 000, 255); /* MAGENTA */
- mapcolor(6, 000, 255, 255); /* CYAN */
- mapcolor(7, 255, 255, 255); /* WHITE */
-
- /* Use fixed color map with 10x10x10 color cube */
- for (i = 0; i < map_size; i++) {
- mapcolor(i+MAP_RESERVED,
- (short)((i % 10) + 1) * 25,
- (short)(((i / 10) % 10) + 1) * 25,
- (short)((i / 100) + 1) * 25);
- }
- } else {
- /* not mex => 3030 with 12 planes/buffer */
- ginit();
- tpoff();
- if (!onebuffer)
- doublebuffer();
- onemap();
- gconfig();
-
- for (b = 0; b < 16; b++) {
- for (g = 0; g < 16; g++) {
- for (r = 0; r < 16; r++) {
- mapcolor(b*256+g*16+r, r<<4, g<<4, b<<4);
- }
- }
- }
- /* XXX - Hack for the cursor until the above code gets
- * fixed to avoid the first 8 magic entries! */
- mapcolor(1, 255, 000, 000); /* RED */
- }
-
- /* enable ESC to exit program */
- qdevice(ESCKEY);
-
- /* enable the mouse */
- qdevice(LEFTMOUSE);
- qdevice(MIDDLEMOUSE);
- qdevice(RIGHTMOUSE);
-
- /* enable all buttons */
- for (i = 0; i < 32; i++)
- qdevice(i+SWBASE);
-
- /* enable all dials */
- for (i = DIAL0; i < DIAL8; i++) {
- qdevice(i);
- }
-#ifdef SPACEBALL
- /* INIT Spaceball */
- qdevice(SBTX);
- qdevice(SBTY);
- qdevice(SBTZ);
- qdevice(SBRX);
- qdevice(SBRY);
- qdevice(SBRZ);
- qdevice(SBRZ);
- qdevice(SBPERIOD);
- qdevice(SBPICK);
-
- /* Put daemon in Spaceball mode */
- sbcommand("do Fdo enter_spaceball_mode");
-#endif
-
- /*
- * SGI Dials: 1024 steps per rev
- * -32768 .. 32767
- */
- setvaluator(ROTX, 0, -360, 360);
- setvaluator(ROTY, 0, -360, 360);
- setvaluator(ROTZ, 0, -360, 360);
- setvaluator(TRANX, 0, -50, 50);
- setvaluator(TRANY, 0, -50, 50);
- setvaluator(TRANZ, 0, -50, 50);
- setvaluator(ZOOM, 1, -1000, 1000);
- noise(ROTX, 2);
- noise(ROTY, 2);
- noise(ROTZ, 2);
- noise(TRANX, 2);
- noise(TRANY, 2);
- noise(TRANZ, 2);
- noise(ZOOM, 5);
-
- blanktime(60 * 60 * 5L); /* 5 minute blanking */
-
- return 0;
-}
-
-
-void
-print_info()
-{
- double xrot, yrot, zrot, cosyrot;
-
- /*
- * This rotation decomposition fails when yrot is
- * ~ +/- 90 degrees. [cos(yrot) ~= 0, divide by zero]
- */
- yrot = asin(g_rot[2][0]);
- cosyrot = cos(yrot);
- zrot = asin(g_rot[1][0]/-cosyrot);
- xrot = asin(g_rot[2][1]/-cosyrot);
-
- printf("rot: %f %f %f\n", RtoD(xrot), RtoD(yrot), RtoD(zrot));
- printf("tran: %f %f %f\n", g_rot[3][0], g_rot[3][1], g_rot[3][2]);
- printf("scale: %f\n", g_scal[0]);
-}
-
-
-void
-draw_axis()
-{
- int p1, p2;
-
- p1 = 0.12 * viewsize / g_scal[0];
- p2 = 0.14 * viewsize / g_scal[0];
-
- if (cmap_mode) {
- color(MAGENTA);
- } else {
- RGBcolor(255, 0, 255);
- }
- movei(0, 0, 0);
- drawi(p1, 0, 0);
- cmovi(p2, 0, 0);
- charstr("x");
- movei(0, 0, 0);
- drawi(0, p1, 0);
- cmovi(0, p2, 0);
- charstr("y");
- movei(0, 0, 0);
- drawi(0, 0, p1);
- cmovi(0, 0, p2);
- charstr("z");
- movei(0, 0, 0); /* back to origin */
-}
-
-
-void
-setview(Matrix m, int rx, int ry, int rz)
-{
- /* Hmm... save translation and scale? */
- loadmatrix(centermat);
- getmatrix(m);
- loadmatrix(identmat);
-
- rotate((Angle) rx*10, 'x');
- rotate((Angle) ry*10, 'y');
- rotate((Angle) rz*10, 'z');
-#ifdef never
- calpha = cos(alpha);
- cbeta = cos(beta);
- cgamma = cos(ggamma);
-
- salpha = sin(alpha);
- sbeta = sin(beta);
- sgamma = sin(ggamma);
-
- mat[0] = cbeta * cgamma;
- mat[1] = -cbeta * sgamma;
- mat[2] = sbeta;
-
- mat[4] = salpha * sbeta * cgamma + calpha * sgamma;
- mat[5] = -salpha * sbeta * sgamma + calpha * cgamma;
- mat[6] = -salpha * cbeta;
-
- mat[8] = -calpha * sbeta * cgamma + salpha * sgamma;
- mat[9] = calpha * sbeta * sgamma + salpha * cgamma;
- mat[10] = calpha * cbeta;
-#endif
-}
-
-
-void
-newview(Matrix orient, Matrix rot, float tran[3], float scal[3], Matrix
viewmat)
-{
- /*
- * combine new operations with old
- * orient = orient * scal * trans * rot * view
- */
- g_scal[0] *= scal[0];
- g_scal[1] *= scal[1];
- g_scal[2] *= scal[2];
- loadmatrix(rot);
- translate(tran[0], tran[1], tran[2]);
- multmatrix(orient);
- getmatrix(orient);
-
- /* set up total viewing transformation */
- loadmatrix(viewmat);
- scale(g_scal[0], g_scal[1], g_scal[2]);
- multmatrix(orient);
-}
-
-
-void
-domenu(int n)
-{
- long left, bottom, winx_size, winy_size;
- long x, y;
- double fx, fy;
- int ret;
-#ifdef mips
- long video;
-#endif
-
- switch (n) {
- case MENU_CENTER:
- x = getvaluator(CURSORX);
- y = getvaluator(CURSORY);
- getsize(&winx_size, &winy_size);
- getorigin(&left, &bottom);
- fx = 0.5 - (x - left) / (double)winx_size;
- fy = 0.5 - (y - bottom) / (double)winy_size;
- d_tran[0] += fx * 2.0 * viewsize / g_scal[0];
- d_tran[1] += fy * 2.0 * viewsize / g_scal[1];
- redisplay = 1;
- break;
- case MENU_AXIS:
- if (axis == 0)
- axis = 1;
- else
- axis = 0;
- redisplay = 1;
- break;
- case MENU_INFO:
- if (info == 0) {
- info = 1;
- print_info();
- } else
- info = 0;
- break;
- case MENU_SNAP:
- cursoff();
-#ifdef mips
- video = getvideo(DE_R1);
- setvideo(DE_R1, DER1_30HZ|DER1_UNBLANK);
-#else
- system("Set30");
-#endif
- ret = system("dunnsnap");
-#ifdef mips
- setvideo(DE_R1, video);
-#else
- system("Set60");
-#endif
- curson();
- if (ret) {
- fprintf(stderr, "pl-sgi: Snap failed. Out of film?\n");
- ringbell();
- }
- break;
- case MENU_SHELL:
- if (shellcmd != NULL) {
- cursoff();
- system(shellcmd);
- curson();
- }
- break;
- case MENU_EXIT:
- break;
- }
-}
-
-
-int
-process_input()
-{
- Device event;
- short val;
- Coord fval;
- long menuval;
- Matrix d_rot; /* Delta Rotations */
- float d_scal[3]; /* Delta Scales */
- int done;
-#ifdef SPACEBALL
- float sbrx, sbry, sbrz;
- float sbtx, sbty, sbtz;
- float sbperiod;
- static float sbtransrate = 0.00001;
- static float sbrotrate = 0.000001;
-#endif
-
- done = 0;
- /*if (qtest())*/
- event = qread(&val);
- fval = val;
- /*printf("event %d: value %d\n", event, val);*/
- /* Ignore all zero val's? XXX */
-
- loadmatrix (identmat);
- d_tran[0] = d_tran[1] = d_tran[2] = 0;
- d_scal[0] = d_scal[1] = d_scal[2] = 1;
-
- switch (event) {
-#ifdef SPACEBALL
- case SBTX:
- /*printf("SBTX\n");*/
- sbtx = fval;
- break;
- case SBTY:
- sbty = fval;
- break;
- case SBTZ:
- sbtz = fval;
- break;
- case SBRX:
- sbrx = fval;
- break;
- case SBRY:
- sbry = fval;
- break;
- case SBRZ:
- sbrz = fval;
- break;
- case SBPERIOD:
- sbperiod = fval;
- d_tran[0] = sbperiod * sbtransrate * sbtx / g_scal[0];
- d_tran[1] = sbperiod * sbtransrate * sbty / g_scal[1];
- d_tran[2] = sbperiod * sbtransrate * sbtz / g_scal[2];
- rotarbaxis(sbperiod*sbrotrate, sbrx, sbry, sbrz, d_rot);
- loadmatrix(d_rot);
- redisplay = 1;
- break;
- case SBPICK:
- /* reset - clear out the global rot/trans matrix */
- loadmatrix(centermat);
- getmatrix(g_rot);
- loadmatrix(identmat);
- redisplay = 1;
- break;
-#endif
- case ROTX:
- if (val) {
- fval *= 10.0;
- rotate((Angle) fval, 'x');
- setvaluator(ROTX, 0, -360, 360);
- redisplay = 1;
- }
- break;
- case ROTY:
- if (val) {
- fval *= 10.0;
- rotate((Angle) fval, 'y');
- setvaluator(ROTY, 0, -360, 360);
- redisplay = 1;
- }
- break;
- case ROTZ:
- if (val) {
- fval *= 10.0;
- rotate((Angle) fval, 'z');
- setvaluator(ROTZ, 0, -360, 360);
- redisplay = 1;
- }
- break;
- case TRANX:
- if (val) {
- fval *= viewsize / 300.0;
- d_tran[0] += fval / g_scal[0];
- setvaluator(TRANX, 0, -50, 50);
- redisplay = 1;
- }
- break;
- case TRANY:
- if (val) {
- fval *= viewsize / 300.0;
- d_tran[1] += fval / g_scal[1];
- setvaluator(TRANY, 0, -50, 50);
- redisplay = 1;
- }
- break;
- case TRANZ:
- if (val) {
- fval *= viewsize / 300.0;
- d_tran[2] += fval / g_scal[2];
- setvaluator(TRANZ, 0, -50, 50);
- redisplay = 1;
- }
- break;
- case ZOOM:
- if (val) {
- fval = 1.0 + fval / 1100.0;
- d_scal[0] *= fval;
- d_scal[1] *= fval;
- d_scal[2] *= fval;
- setvaluator(ZOOM, 1, -1000, 1000);
- redisplay = 1;
- }
- break;
- case LEFTMOUSE:
- if (val) {
- fval = 0.5;
- d_scal[0] *= fval;
- d_scal[1] *= fval;
- d_scal[2] *= fval;
- redisplay = 1;
- }
- break;
- case RIGHTMOUSE:
- /*case MIDDLEMOUSE:*/
- if (val) {
- menuval = dopup(menu);
- if (menuval == MENU_EXIT)
- done = 1;
- else
- domenu(menuval);
- }
- break;
- case MIDDLEMOUSE:
- /*case RIGHTMOUSE:*/
- if (val) {
- fval = 2.0;
- d_scal[0] *= fval;
- d_scal[1] *= fval;
- d_scal[2] *= fval;
- redisplay = 1;
- }
- break;
- case ORTHO:
- if (val) {
- viewmat = (Matrix *)viewortho;
- redisplay = 1;
- }
- break;
- case PERSP:
- if (val) {
- viewmat = (Matrix *)viewpersp;
- redisplay = 1;
- }
- break;
- case RESET:
- if (val) {
- /* reset */
- loadmatrix(centermat);
- getmatrix(g_rot);
- loadmatrix(identmat);
- redisplay = 1;
- }
- break;
- case BOTTOM:
- if (val) {
- setview(g_rot, 180, 0, 0);
- redisplay = 1;
- }
- break;
- case TOP:
- if (val) {
- setview(g_rot, 0, 0, 0);
- redisplay = 1;
- }
- break;
- case REAR:
- if (val) {
- setview(g_rot, 270, 0, 90);
- redisplay = 1;
- }
- break;
- case V4545:
- if (val) {
- setview(g_rot, 270+45, 0, 270-45);
- redisplay = 1;
- }
- break;
- case RIGHT:
- if (val) {
- setview(g_rot, 270, 0, 0);
- redisplay = 1;
- }
- break;
- case FRONT:
- if (val) {
- setview(g_rot, 270, 0, 270);
- redisplay = 1;
- }
- break;
- case LEFT:
- if (val) {
- setview(g_rot, 270, 0, 180);
- redisplay = 1;
- }
- break;
- case V3525:
- if (val) {
- setview(g_rot, 270+25, 0, 270-35);
- redisplay = 1;
- }
- break;
- case ESCKEY:
- done = 1;
- break;
- }
-
- getmatrix(d_rot);
- newview(g_rot, d_rot, d_tran, d_scal, viewmat);
- return done;
-}
-
-
-void
-get_string(FILE *fp, char *s)
-{
- int c;
-
- while ((c = getc(fp)) != '\n' && c != EOF)
- *s++ = c;
- *s = NULL;
-}
-
-
-void
-getieee(FILE *fp, double out[], int n)
-{
- char in[8*16];
- fread(in, 8, n, fp);
- ntohd((unsigned char *)out, (const unsigned char *)in, n);
-}
-
-
-/*
- * Iris 3-D Unix plot reader
- *
- * UNIX-Plot integers are 16bit VAX order (little-endian) 2's complement.
- */
-#define geti(fp, x) { (x) = getc(fp); (x) |= (short)(getc(fp)<<8); }
-#define getb(fp) (getc(fp))
-
-void
-uplot(FILE *fp, Coord max[3], Coord min[3])
-{
- int c;
- int x, y, z, x1, y1, z1, x2, y2, z2;
- int r, g, b;
- char str[180];
- double d[8];
- int o;
-
- /* We have to keep the "current position" ourselves
- * for the silly labels, since the SGI can't give
- * us the graphics position inside an object!
- */
- double xp, yp, zp;
-
- xp = yp = zp = 0;
- while ((c = getc(fp)) != EOF) {
- switch (c) {
- /* One of a kind functions */
- case 'e':
- if (!file_input) {
- /* remove any objects, start a new one */
- closeobj();
- for (o = minobj; o <= maxobj; o++)
- delobj(o);
- minobj = maxobj;
- makeobj(maxobj);
- }
- break;
- case 'F':
- /* display everything up to here */
- if (!file_input)
- return;
- break;
- case 'f':
- get_string(fp, str);
- if (strcmp(str, "solid") == 0)
- setlinestyle(0);
- else if (strcmp(str, "dotted") == 0)
- setlinestyle(1);
- else if (strcmp(str, "longdashed") == 0)
- setlinestyle(2);
- else if (strcmp(str, "shortdashed") == 0)
- setlinestyle(3);
- else if (strcmp(str, "dotdashed") == 0)
- setlinestyle(4);
- else {
- fprintf(stderr, "pl-sgi: unknown linestyle \"%s\"\n", str);
- setlinestyle(0);
- }
- break;
- case 't':
- get_string(fp, str);
- cmov(xp, yp, zp); /* all that for this... */
- charstr(str);
- break;
- /* 2D integer */
- case 's':
- geti(fp, x1);
- geti(fp, y1);
- geti(fp, x2);
- geti(fp, y2);
- min[0] = x1; min[1] = y1;
- max[0] = x2; max[1] = y2;
- min[2] = -1.0; max[2] = 1.0;
- break;
- case 'p':
- geti(fp, x);
- geti(fp, y);
- pnti(x, y, 0);
- xp = x; yp = y; zp = 0;
- break;
- case 'm':
- geti(fp, x);
- geti(fp, y);
- movei(x, y, 0);
- xp = x; yp = y; zp = 0;
- break;
- case 'n':
- geti(fp, x);
- geti(fp, y);
- drawi(x, y, 0);
- xp = x; yp = y; zp = 0;
- break;
- case 'l':
- geti(fp, x1);
- geti(fp, y1);
- geti(fp, x2);
- geti(fp, y2);
- movei(x1, y1, 0);
- drawi(x2, y2, 0);
- xp = x2; yp = y2; zp = 0;
- break;
- case 'c':
- geti(fp, x);
- geti(fp, y);
- geti(fp, r);
- circ((double)x, (double)y, (double)r);
- xp = x; yp = y; zp = 0;
- break;
- case 'a':
- geti(fp, x);
- geti(fp, y);
- geti(fp, x1);
- geti(fp, y1);
- geti(fp, x2);
- geti(fp, y2);
- /* ARC XXX */
- break;
- /* 3D integer */
- case 'S':
- geti(fp, x1);
- geti(fp, y1);
- geti(fp, z1);
- geti(fp, x2);
- geti(fp, y2);
- geti(fp, z2);
- min[0] = x1; min[1] = y1; min[2] = z1;
- max[0] = x2; max[1] = y2; max[2] = z2;
- break;
- case 'P':
- geti(fp, x);
- geti(fp, y);
- geti(fp, z);
- pnti(x, y, z);
- xp = x; yp = y; zp = z;
- break;
- case 'M':
- geti(fp, x);
- geti(fp, y);
- geti(fp, z);
- movei(x, y, z);
- xp = x; yp = y; zp = z;
- break;
- case 'N':
- geti(fp, x);
- geti(fp, y);
- geti(fp, z);
- drawi(x, y, z);
- xp = x; yp = y; zp = z;
- break;
- case 'L':
- geti(fp, x1);
- geti(fp, y1);
- geti(fp, z1);
- geti(fp, x2);
- geti(fp, y2);
- geti(fp, z2);
- movei(x1, y1, z1);
- drawi(x2, y2, z2);
- xp = x2; yp = y2; zp = z2;
- break;
- case 'C':
- r = getb(fp);
- g = getb(fp);
- b = getb(fp);
- if (cmap_mode) {
- if (ismex())
- color(COLOR_APPROX(r, g, b));
- else
- color((b&0xf0)<<4 | (g&0xf0) | (r>>4));
- } else {
- RGBcolor((short)r, (short)g, (short)b);
- }
- break;
- /* 2D and 3D IEEE */
- case 'w':
- getieee(fp, d, 4);
- min[0] = d[0]; min[1] = d[1]; min[2] = -1.0;
- max[0] = d[2]; max[1] = d[3]; max[2] = 1.0;
- break;
- case 'W':
- getieee(fp, d, 6);
- min[0] = d[0]; min[1] = d[1]; min[2] = d[2];
- max[0] = d[3]; max[1] = d[4]; max[2] = d[5];
- break;
- case 'o':
- getieee(fp, d, 2);
- xp = d[0]; yp = d[1]; zp = 0;
- move(xp, yp, 0.0);
- break;
- case 'O':
- getieee(fp, d, 3);
- xp = d[0]; yp = d[1]; zp = d[2];
- move(xp, yp, zp);
- break;
- case 'q':
- getieee(fp, d, 2);
- xp = d[0]; yp = d[1]; zp = 0;
- draw(xp, yp, 0.0);
- break;
- case 'Q':
- getieee(fp, d, 3);
- xp = d[0]; yp = d[1]; zp = d[2];
- draw(xp, yp, zp);
- break;
- case 'x':
- getieee(fp, d, 2);
- xp = d[0]; yp = d[1]; zp = 0;
- pnt(xp, yp, 0.0);
- break;
- case 'X':
- getieee(fp, d, 3);
- xp = d[0]; yp = d[1]; zp = d[2];
- pnt(d[0], d[1], d[2]);
- break;
- case 'v':
- getieee(fp, d, 4);
- move(d[0], d[1], 0.0);
- draw(d[2], d[3], 0.0);
- xp = d[2]; yp = d[3]; zp = 0;
- break;
- case 'V':
- getieee(fp, d, 6);
- move(d[0], d[1], d[2]);
- draw(d[3], d[4], d[5]);
- xp = d[3]; yp = d[4]; zp = d[5];
- break;
- case 'r':
- getieee(fp, d, 6);
- /*XXX*/
- break;
- case 'i':
- getieee(fp, d, 3);
- circ(d[0], d[1], d[2]);
- xp = d[0]; yp = d[1]; zp = d[2];
- break;
- default:
- fprintf(stderr, "pl-sgi: bad command '%c' (0x%02x)\n", c, c);
- break;
- }
- }
-}
-
-
-void
-view_loop()
-{
- int done = 0;
- int o = 1; /* object number */
-
- /* Initial translate/rotate/scale matrix */
- loadmatrix(centermat);
- getmatrix(g_rot);
- g_scal[0] = g_scal[1] = g_scal[2] = 1;
-
- /*depthcue(1);*/
- /*cursoff();XXX*/
-
- /*
- * Each time through this loop, g_rot holds the current
- * orientation matrix. An identity matrix is placed
- * on the stack and acted on by device inputs.
- * After inputs, g_rot = oldm * stack.
- * The stack is then replaced by g_rot*viewmat for drawing.
- */
- while (!done) {
-
- if (redisplay) {
- /* Setup current view */
- loadmatrix((*viewmat));
- scale(g_scal[0], g_scal[1], g_scal[2]);
- multmatrix(g_rot);
-
- /* draw the object(s) */
- cursoff();
- if (cmap_mode) {
- color(BLACK);
- } else {
- RGBcolor(0, 0, 0);
- }
- clear();
- if (axis)
- draw_axis();
- /* draw all objects */
- for (o = minobj; o < maxobj; o++) {
- /* set the default drawing color to white */
- if (cmap_mode) {
- if (ismex())
- color(COLOR_APPROX(255, 255, 255));
- else
- color((255&0xf0)<<4 | (255&0xf0) | (255>>4));
- } else {
- RGBcolor(255, 255, 255);
- }
- callobj(o);
- }
- if (!onebuffer)
- swapbuffers();
- if (shellcmd != NULL && shellexit) {
- system(shellcmd);
- bu_exit (0, NULL);
- }
- curson();
- if (info)
- print_info();
- redisplay = 0;
- }
-
- do {
- done = process_input();
- } while (qtest());
-#ifdef SPACEBALL
- sbprompt();
-#endif
- /* Check for more objects to be read */
- if (!file_input && !feof(stdin) /* && select()*/) {
- double max[3], min[3];
- makeobj(maxobj++);
- uplot(stdin, max, min);
- closeobj();
- }
- }
- /*depthcue(0);*/
- curson();
- greset();
- tpon();
- gexit();
-}
-
-
-int
-main(int argc, char *argv[])
-{
- Coord max[3], min[3];
- char *file;
- FILE *fp;
-
- if (!get_args(argc, argv)) {
- (void)fputs(usage, stderr);
- bu_exit (1, NULL);
- }
-
- /* In case if there is no space command */
- min[0] = min[1] = min[2] = -32768.0;
- max[0] = max[1] = max[2] = 32768.0;
-
- init_display();
-
- if (bu_optind >= argc) {
- makeobj(maxobj++);
- uplot(stdin, max, min);
- closeobj();
- }
- while (bu_optind < argc) {
- file = argv[bu_optind];
- if ((fp = fopen(file, "r")) == NULL) {
- fprintf(stderr, "pl-sgi: can't open \"%s\"\n", file);
- bu_exit (3, NULL);
- }
- file_input = 1;
-
- makeobj(maxobj++);
- uplot(fp, max, min);
- closeobj();
-
- fclose(fp);
- bu_optind++;
- }
-
- /* scale to the largest X, Y, or Z interval */
- viewsize = max[0] - min[0];
- viewsize = Max(viewsize, max[1] - min[1]);
- viewsize = Max(viewsize, max[2] - min[2]);
- viewsize /= 2.0;
-
- /* set up and save the viewing projection matrix */
- if (ismex()) {
- if (fullscreen) {
- /* Compensate for the rectangular display surface */
-#ifdef mips
- ortho(-1.25*viewsize, 1.25*viewsize,
- -viewsize, viewsize, -HUGEVAL, HUGEVAL);
-#else
- ortho(-1.33*viewsize, 1.33*viewsize,
- -viewsize, viewsize, -HUGEVAL, HUGEVAL);
-#endif
- } else {
- ortho(-viewsize, viewsize, -viewsize, viewsize,
- -HUGEVAL, HUGEVAL);
- }
- getmatrix(viewortho);
- perspective(900, 1.0, 0.01, 1.0e10);
- /*polarview(1.414, 0, 0, 0);*/
- getmatrix(viewpersp);
- } else {
- /* Compensate for the rectangular display surface */
- ortho(-1.33*viewsize, 1.33*viewsize,
- -viewsize, viewsize, -HUGEVAL, HUGEVAL);
- getmatrix(viewortho);
- perspective(900, 1.0, 0.01, 1.0e10);
- /*polarview(1.414, 0, 0, 0);*/
- getmatrix(viewpersp);
- }
- viewmat = (Matrix *)viewortho;
-
- /* Make an identity matrix */
- identmat[0][0] = identmat[1][1] = identmat[2][2] = identmat[3][3] = 1.0;
- identmat[1][0] = identmat[1][2] = identmat[1][3] = 0.0;
- identmat[2][0] = identmat[0][1] = identmat[2][3] = 0.0;
- identmat[3][0] = identmat[3][1] = identmat[3][2] = 0.0;
-
- /* set up and save the initial rot/trans/scale matrix */
- loadmatrix(identmat);
- translate(-(max[0]+min[0])/2.0, -(max[1]+min[1])/2.0,
- -(max[2]+min[2])/2.0);
- getmatrix(centermat);
-
- /* set up the command menu */
- menu = defpup(menustring);
-
- /* set up line thickness/styles */
- if (thickness > 0)
- linewidth(thickness);
- deflinestyle(1, 0x8888); /* dotted */
- deflinestyle(2, 0xF8F8); /* longdashed */
- deflinestyle(3, 0xE0E0); /* shortdashed */
- deflinestyle(4, 0x4F4F); /* dotdashed */
-
- view_loop();
- bu_exit (0, NULL);
-}
-
-
-#else
-
-int
-main(int argc, char *argv[])
-{
- printf("pl-sgi: this is an SGI Iris specific program\n");
- bu_exit (1, NULL);
-}
-
-
-#endif /* !HAS_SGIGL */
-
-
-/*
- * Local Variables:
- * mode: C
- * tab-width: 8
- * indent-tabs-mode: t
- * c-file-style: "stroustrup"
- * End:
- * ex: shiftwidth=4 tabstop=8
- */
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Increase Visibility of Your 3D Game App & Earn a Chance To Win $500!
Tap into the largest installed PC base & get more eyes on your game by
optimizing for Intel(R) Graphics Technology. Get started today with the
Intel(R) Software Partner Program. Five $500 cash prizes are up for grabs.
http://p.sf.net/sfu/intelisp-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
