Usenet 1994 January

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume14 / vplot / part03 < prev next >

Wrap

Internet Message Format | 1988-03-31 | 55.0 KB

Path: uunet!husc6!bbn!bbn.com!rsalz From: rsalz@uunet.uu.net (Rich Salz) Newsgroups: comp.sources.unix Subject: v14i008: Device-independant graphics system, with drivers Message-ID: <553@fig.bbn.com> Date: 28 Mar 88 15:23:25 GMT Organization: BBN Laboratories Inc., Cambridge MA Lines: 2049 Approved: rsalz@uunet.UU.NET Submitted-by: Joe Dellinger <joe@hanauma.STANFORD.EDU> Posting-number: Volume 14, Issue 8 Archive-name: vplot/part03 #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 3 (of 24)." PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Envision_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Envision_device/README'\" else echo shar: Extracting \"'Envision_device/README'\" $619 characters$ sed "s/^X//" >'Envision_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'Envision_device/README'`; then echo shar: \"'Envision_device/README'\" unpacked with wrong size! fi # end of 'Envision_device/README' fi if test -f 'Envision_device/envilib/envidoc.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Envision_device/envilib/envidoc.h'\" else echo shar: Extracting \"'Envision_device/envilib/envidoc.h'\" $708 characters$ sed "s/^X//" >'Envision_device/envilib/envidoc.h' <<'END_OF_FILE' char *documentation[] = { X" ", X"NAME", X#ifdef SEP X" Envipen - SEPlib vplot filter for Envision 220 and 215", X#else X" envipen - vplot filter for Envision 220 and 215", X#endif X" ", X"SYNOPSIS", X#ifdef SEP X" E[nvi]pen [options] in=vplot-inputfile OR headerfile on standard in", X#else X" e[nvi]pen [options] [inputfiles]", X#endif X" ", X"OPTIONS", X#ifdef SEP X" Envipen-specific options:", X#else X" envipen-specific options:", X#endif X" bell=[y,n] inform you the plot is done with a beep.", X" wstype=[envi220,envi215] Pick envision 220 or 215.", X#include "../include/gendoc.h" X" ", X"SEE ALSO", X" man pen" X}; int doclength = { sizeof documentation/sizeof documentation[0] }; END_OF_FILE if test 708 -ne `wc -c <'Envision_device/envilib/envidoc.h'`; then echo shar: \"'Envision_device/envilib/envidoc.h'\" unpacked with wrong size! fi # end of 'Envision_device/envilib/envidoc.h' fi if test -f 'Imagen_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Imagen_device/README'\" else echo shar: Extracting \"'Imagen_device/README'\" $619 characters$ sed "s/^X//" >'Imagen_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'Imagen_device/README'`; then echo shar: \"'Imagen_device/README'\" unpacked with wrong size! fi # end of 'Imagen_device/README' fi if test -f 'Masscomp_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Masscomp_device/README'\" else echo shar: Extracting \"'Masscomp_device/README'\" $619 characters$ sed "s/^X//" >'Masscomp_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'Masscomp_device/README'`; then echo shar: \"'Masscomp_device/README'\" unpacked with wrong size! fi # end of 'Masscomp_device/README' fi if test -f 'Masscomp_device/gpslib/gpsreset.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Masscomp_device/gpslib/gpsreset.c'\" else echo shar: Extracting \"'Masscomp_device/gpslib/gpsreset.c'\" $830 characters$ sed "s/^X//" >'Masscomp_device/gpslib/gpsreset.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/gpslib/gpsreset.c X * X * Stewart A. Levin (SEP), July 3 1987 X * Cribbed rasreset.c for gps filter X */ X X#include <stdio.h> X#include "gpspen.h" X#include "../include/extern.h" X#include "../include/params.h" X gpsreset () X{ X gps_region (13); /* center of gps coordinate universe */ X set_window ((float) dev_xmin, (float) dev_ymin, X (float) dev_xmax, (float) dev_ymax); X line_style (20); X} END_OF_FILE if test 830 -ne `wc -c <'Masscomp_device/gpslib/gpsreset.c'`; then echo shar: \"'Masscomp_device/gpslib/gpsreset.c'\" unpacked with wrong size! fi # end of 'Masscomp_device/gpslib/gpsreset.c' fi if test -f 'Printronix_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Printronix_device/README'\" else echo shar: Extracting \"'Printronix_device/README'\" $619 characters$ sed "s/^X//" >'Printronix_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'Printronix_device/README'`; then echo shar: \"'Printronix_device/README'\" unpacked with wrong size! fi # end of 'Printronix_device/README' fi if test -f 'RasterTek_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'RasterTek_device/README'\" else echo shar: Extracting \"'RasterTek_device/README'\" $619 characters$ sed "s/^X//" >'RasterTek_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'RasterTek_device/README'`; then echo shar: \"'RasterTek_device/README'\" unpacked with wrong size! fi # end of 'RasterTek_device/README' fi if test -f 'RasterTek_device/rteklib/rtekpen.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'RasterTek_device/rteklib/rtekpen.h'\" else echo shar: Extracting \"'RasterTek_device/rteklib/rtekpen.h'\" $836 characters$ sed "s/^X//" >'RasterTek_device/rteklib/rtekpen.h' <<'END_OF_FILE' X#include <stdio.h> X#include "../include/enum.h" X#include "../include/err.h" X#include "../include/extern.h" X X#define RTEKDEV "/dev/dm0" X X/* global variables */ extern FILE *rtekfd; extern int dev_xmin, dev_xmax; extern int dev_ymin, dev_ymax; extern int color; X X/* Raster Tech - stdio macro */ X#define CHKLEN(cmdlen) (((rtekfd->_cnt) < (cmdlen)) ? rtek_flsbuf(cmdlen) : 0 ) X X X/* Raster Tech command codes */ X#define CLOAD 160 X#define CMOVE 161 X#define DRWABS 129 X#define FLOOD 7 X#define GRAPHICS 4 X#define LUT8 28 X#define MODDIS 44 X#define MOVABS 1 X#define NOP 0 X#define PIXEL8 41 X#define PIXFUN 59 X#define PIXMOV 187 X#define POINT 136 X#define POLYGN 18 X#define PRMFIL 31 X#define QUIT 255 X#define RDMODE 211 X#define READCR 152 X#define SCRORG 54 X#define VAL8 134 X#define WINDOW 58 X#define WMSK16 68 X#define ZOOM 52 END_OF_FILE if test 836 -ne `wc -c <'RasterTek_device/rteklib/rtekpen.h'`; then echo shar: \"'RasterTek_device/rteklib/rtekpen.h'\" unpacked with wrong size! fi # end of 'RasterTek_device/rteklib/rtekpen.h' fi if test -f 'RasterTek_device/rteklib/rtekplot.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'RasterTek_device/rteklib/rtekplot.c'\" else echo shar: Extracting \"'RasterTek_device/rteklib/rtekplot.c'\" $838 characters$ sed "s/^X//" >'RasterTek_device/rteklib/rtekplot.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/rteklib/rtekplot.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include "rtekpen.h" X int lost = YES; X rtekplot (x, y, draw) X int draw; X{ X CHKLEN (5); X if (draw) X byte (DRWABS); /* cmdlen = 5 */ X else X byte (MOVABS); X word (x); X word (y); X lost = NO; X} END_OF_FILE if test 838 -ne `wc -c <'RasterTek_device/rteklib/rtekplot.c'`; then echo shar: \"'RasterTek_device/rteklib/rtekplot.c'\" unpacked with wrong size! fi # end of 'RasterTek_device/rteklib/rtekplot.c' fi if test -f 'RasterTek_device/rteklib/rtekpoint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'RasterTek_device/rteklib/rtekpoint.c'\" else echo shar: Extracting \"'RasterTek_device/rteklib/rtekpoint.c'\" $750 characters$ sed "s/^X//" >'RasterTek_device/rteklib/rtekpoint.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/rteklib/rtekpoint.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include "rtekpen.h" X rtekpoint (x, y) X int x, y; X{ X X rtekplot (x, y, 0); X CHKLEN (1); X byte (POINT); /* cmdlen = 1 */ X} END_OF_FILE if test 750 -ne `wc -c <'RasterTek_device/rteklib/rtekpoint.c'`; then echo shar: \"'RasterTek_device/rteklib/rtekpoint.c'\" unpacked with wrong size! fi # end of 'RasterTek_device/rteklib/rtekpoint.c' fi if test -f 'Tek_device/cteklib/ctekdoc.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Tek_device/cteklib/ctekdoc.h'\" else echo shar: Extracting \"'Tek_device/cteklib/ctekdoc.h'\" $652 characters$ sed "s/^X//" >'Tek_device/cteklib/ctekdoc.h' <<'END_OF_FILE' char *documentation[] = { X" ", X"NAME", X#ifdef SEP X" Ctekpen - SEPlib vplot filter for Tektronix 4105 terminals", X#else X" ctekpen - vplot filter for Tektronix 4105 terminals", X#endif X" ", X"SYNOPSIS", X#ifdef SEP X" Ctek[pen] [options] in=vplot-inputfile OR headerfile on standard in", X#else X" ctek[pen] [options] [inputfiles]", X#endif X" ", X"OPTIONS", X#ifdef SEP X" Ctekpen-specific options:", X#else X" ctekpen-specific options:", X#endif X" bell=[y,n] inform you the plot is done with a beep.", X#include "../include/gendoc.h" X" ", X"SEE ALSO", X" man pen" X}; int doclength = { sizeof documentation/sizeof documentation[0] }; END_OF_FILE if test 652 -ne `wc -c <'Tek_device/cteklib/ctekdoc.h'`; then echo shar: \"'Tek_device/cteklib/ctekdoc.h'\" unpacked with wrong size! fi # end of 'Tek_device/cteklib/ctekdoc.h' fi if test -f 'Tek_device/cteklib/known_bugs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Tek_device/cteklib/known_bugs'\" else echo shar: Extracting \"'Tek_device/cteklib/known_bugs'\" $692 characters$ sed "s/^X//" >'Tek_device/cteklib/known_bugs' <<'END_OF_FILE' In my opinion, all pen programs should reset the device's colors to standard before starting. I was unable to convince the people who wrote "ctekpen" of this point of view. As a result, if you run any of the demo files that fiddle with the color table all of your plots after that will be messed up. X The reason to have it the way it is is so that you can change the shades of the primary colors beforehand to "customize" your plot. X The routine for mapping RGB notation to what the Tek wants doesn't work very well. X This code assumes that you have the "raster option". If you don't, ctekraster won't work. X Authors: Jeff Thorson, Glenn Kroeger, Michele Debiche X X- comments by Joe Dellinger END_OF_FILE if test 692 -ne `wc -c <'Tek_device/cteklib/known_bugs'`; then echo shar: \"'Tek_device/cteklib/known_bugs'\" unpacked with wrong size! fi # end of 'Tek_device/cteklib/known_bugs' fi if test -f 'Tek_device/teklib/tekpoint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Tek_device/teklib/tekpoint.c'\" else echo shar: Extracting \"'Tek_device/teklib/tekpoint.c'\" $733 characters$ sed "s/^X//" >'Tek_device/teklib/tekpoint.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/teklib/tekpoint.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X/* X * Turn on point (x,y). X */ X#include <stdio.h> X#include "tek.h" X tekpoint (x, y) X{ X setmode (POINT); X tekxypack (x, y); X} END_OF_FILE if test 733 -ne `wc -c <'Tek_device/teklib/tekpoint.c'`; then echo shar: \"'Tek_device/teklib/tekpoint.c'\" unpacked with wrong size! fi # end of 'Tek_device/teklib/tekpoint.c' fi if test -f 'Virtual_device/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Virtual_device/README'\" else echo shar: Extracting \"'Virtual_device/README'\" $619 characters$ sed "s/^X//" >'Virtual_device/README' <<'END_OF_FILE' Comments on this device-dependent Vplot code distribution: X X This distribution won't do you much good unless you have the Vplot Kernel Distribution first. If you don't have it, don't bother with this yet! X X Now that I know you have the Vplot device-independent code --- X X The directory given in this distribution contains the device-dependent vplot source code for some device (or group of related devices). Place the directory "*lib" into /...site-dependent path.../vplot/filters in order to add support for this device to your Vplot source. You'll then need to re-run X"MakeMake" again. X X - Joe Dellinger, Feb 15 1988 END_OF_FILE if test 619 -ne `wc -c <'Virtual_device/README'`; then echo shar: \"'Virtual_device/README'\" unpacked with wrong size! fi # end of 'Virtual_device/README' fi if test -f 'Virtual_device/raslib/README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Virtual_device/raslib/README'\" else echo shar: Extracting \"'Virtual_device/raslib/README'\" $797 characters$ sed "s/^X//" >'Virtual_device/raslib/README' <<'END_OF_FILE' Generic Byte-Deep Raster Device X This Vplot filter outputs a byte-deep binary raster image, with whatever dimensions you request. There is one 2-D image produced for each frame in the Vplot input. (Break commands will also cause the image to be written.) The "colfile" gives the (red,green,blue) color value associated with each byte value in the raster image. Only byte values that are multiples of X"colormult" will be used (the Movie program here at Stanford only wants even-valued bytes, since it uses odd-valued ones for its own purposes). X Raspen will create a file to put the raster image in FOR YOU if you don't redirect it yourself, since you probably don't want to experience what happens when you dump a huge binary raster file to your terminal. X Author - Joe Dellinger and Jeff Thorson END_OF_FILE if test 797 -ne `wc -c <'Virtual_device/raslib/README'`; then echo shar: \"'Virtual_device/raslib/README'\" unpacked with wrong size! fi # end of 'Virtual_device/raslib/README' fi if test -f 'Virtual_device/raslib/rasvector2.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Virtual_device/raslib/rasvector2.c'\" else echo shar: Extracting \"'Virtual_device/raslib/rasvector2.c'\" $639 characters$ sed "s/^X//" >'Virtual_device/raslib/rasvector2.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/raslib/rasvector2.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#define OR X#include "rasvector.c" END_OF_FILE if test 639 -ne `wc -c <'Virtual_device/raslib/rasvector2.c'`; then echo shar: \"'Virtual_device/raslib/rasvector2.c'\" unpacked with wrong size! fi # end of 'Virtual_device/raslib/rasvector2.c' fi if test -f 'Virtual_device/vplib/known_bugs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Virtual_device/vplib/known_bugs'\" else echo shar: Extracting \"'Virtual_device/vplib/known_bugs'\" $595 characters$ sed "s/^X//" >'Virtual_device/vplib/known_bugs' <<'END_OF_FILE' grep for "XXXXXX" in these files for "holes" in -lvplot that need to be fixed. X Vppen purposely ignores initial erases, since they are usually pretty much meaningless anyway. Whether the output has an initial erase or not is entirely dependent on whether initial erases are "forced" by the command line argument "erase". X Patterns setting commands are not compressed out as are all the other attributes. X Polygon fill patterns are needlessly changed in dimension to 600 pixels per inch. X Vppen will happily dump raw vplot to your screen if you don't redirect the output. X vptextT.c is not used. END_OF_FILE if test 595 -ne `wc -c <'Virtual_device/vplib/known_bugs'`; then echo shar: \"'Virtual_device/vplib/known_bugs'\" unpacked with wrong size! fi # end of 'Virtual_device/vplib/known_bugs' fi if test -f 'Virtual_device/vplib/vpclose.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Virtual_device/vplib/vpclose.c'\" else echo shar: Extracting \"'Virtual_device/vplib/vpclose.c'\" $776 characters$ sed "s/^X//" >'Virtual_device/vplib/vpclose.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/vplib/vpclose.c X * X * Joe Dellinger (SEP), Dec 19 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include "../include/closestat.h" X#include "vp.h" X vpclose (status) X int status; X{ X switch (status) X { X case CLOSE_DONE: X vp_endplot (); X break; X } X} END_OF_FILE if test 776 -ne `wc -c <'Virtual_device/vplib/vpclose.c'`; then echo shar: \"'Virtual_device/vplib/vpclose.c'\" unpacked with wrong size! fi # end of 'Virtual_device/vplib/vpclose.c' fi if test -f 'Vplot_Kernel/Hershey/math.hmp' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/Hershey/math.hmp'\" else echo shar: Extracting \"'Vplot_Kernel/Hershey/math.hmp'\" $665 characters$ sed "s/^X//" >'Vplot_Kernel/Hershey/math.hmp' <<'END_OF_FILE' X727 X728 X729 X730 X731 X732 X733 X734 X735 X737 X738 X739 X740 X750 X751 X752 X763 X764 X765 X766 X1227 X1228 X1229 X1230 X1231 X1232 X1233 X1234 X1235 X1236 X1237 X1238 X1239 X1240 X1241 X1242 X1243 X1244 X1245 X1246 X1247 X1248 X1249 X1250 X1251 X1252 X1253 X1254 X1256 X1257 X1258 X1259 X1260 X1261 X1262 X1263 X1264 X1265 X1266 X1267 X1268 X1269 X1270 X1279 X1294 X1295 X1401 X1402 X1403 X1404 X1405 X1406 X1407 X1408 X1409 X1410 X1411 X1412 X2227 X2228 X2229 X2230 X2231 X2232 X2233 X2234 X2235 X2236 X2237 X2238 X2239 X2240 X2241 X2242 X2243 X2244 X2245 X2246 X2247 X2248 X2249 X2250 X2251 X2252 X2253 X2254 X2255 X2256 X2257 X2258 X2259 X2260 X2261 X2262 X2263 X2264 X2265 X2266 X2267 X2268 X2269 X2270 X2279 X2294 X2295 X2401 X2402 X2403 X2404 X2405 X2406 X2407 X2408 X2409 X2410 X2411 X2412 END_OF_FILE if test 665 -ne `wc -c <'Vplot_Kernel/Hershey/math.hmp'`; then echo shar: \"'Vplot_Kernel/Hershey/math.hmp'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/Hershey/math.hmp' fi if test -f 'Vplot_Kernel/Hershey/misc.hmp' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/Hershey/misc.hmp'\" else echo shar: Extracting \"'Vplot_Kernel/Hershey/misc.hmp'\" $704 characters$ sed "s/^X//" >'Vplot_Kernel/Hershey/misc.hmp' <<'END_OF_FILE' X796 X797 X798 X799 X800 X801 X802 X803 X804 X805 X806 X807 X808 X809 X810 X811 X812 X813 X814 X815 X816 X817 X818 X819 X820 X821 X822 X823 X824 X825 X826 X827 X828 X829 X830 X831 X832 X833 X834 X840 X841 X842 X843 X844 X845 X846 X847 X850 X851 X852 X853 X854 X855 X856 X857 X860 X861 X862 X863 X864 X865 X866 X867 X868 X869 X870 X871 X872 X873 X874 X899 X900 X901 X902 X903 X904 X905 X906 X907 X908 X909 X1276 X1277 X1278 X1281 X1282 X1283 X1284 X1285 X1286 X1287 X1288 X1289 X1290 X1291 X1292 X1293 X2276 X2277 X2278 X2281 X2282 X2283 X2284 X2285 X2286 X2287 X2288 X2289 X2290 X2291 X2292 X2293 X2301 X2302 X2303 X2304 X2305 X2306 X2307 X2308 X2309 X2310 X2311 X2312 X2317 X2318 X2319 X2320 X2321 X2322 X2323 X2324 X2325 X2326 X2327 X2328 X2329 X2330 X2331 X2332 X2367 X2368 X2369 X2370 X2371 X2372 X2373 X2374 X2375 X2376 X2377 X2378 X2379 X2380 X2381 X2382 END_OF_FILE if test 704 -ne `wc -c <'Vplot_Kernel/Hershey/misc.hmp'`; then echo shar: \"'Vplot_Kernel/Hershey/misc.hmp'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/Hershey/misc.hmp' fi if test -f 'Vplot_Kernel/filters/Tests/TEST_Cyrillic' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/Tests/TEST_Cyrillic'\" else echo shar: Extracting \"'Vplot_Kernel/filters/Tests/TEST_Cyrillic'\" $634 characters$ sed "s/^X//" >'Vplot_Kernel/filters/Tests/TEST_Cyrillic' <<'END_OF_FILE' e S s z Test of alternate fonts and ligatures. z X z You should get "Glory to Labor!" in white on a red background. z Underneath, in yellow, the Russian alphabet, in order, in both cases. z Then some well known Russian words: z X"Tchaikovsky Kolkhoz Chebyshev" z and then: z X"Khrushchev lives!" o 0 -1500 F 11 2 0 C 0 255 0 0 c 7 f 12 m 100 2800 T 24 0 Slava Trudu! c 6 f 4 m 200 1800 T 10 0 a b v g d e zh z i /i k l m n o p r\ns t u f kh ts ch sh shch /` y /' /e yu ya m 100 800 T 10 0 A B V G D E ZH Z I /I K L M N O P R\nS T U F KH TS CH SH SHCH /T Y /M /E YU YA m 100 0 T 10 0 CHa/ikovski/i Kolkhoz CHebyshev\nKHrushchev zhivet!\n END_OF_FILE if test 634 -ne `wc -c <'Vplot_Kernel/filters/Tests/TEST_Cyrillic'`; then echo shar: \"'Vplot_Kernel/filters/Tests/TEST_Cyrillic'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/Tests/TEST_Cyrillic' fi if test -f 'Vplot_Kernel/filters/Tests/TEST_coltab' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/Tests/TEST_coltab'\" else echo shar: Extracting \"'Vplot_Kernel/filters/Tests/TEST_coltab'\" $583 characters$ sed "s/^X//" >'Vplot_Kernel/filters/Tests/TEST_coltab' <<'END_OF_FILE' e S s F 14 1 0 z Test of color tables z X z The background should be dark grey. z Text should be the color it claims to be. C 0 120 120 120 f 5 J 0 -2 C 1 220 220 255 c 1 m 1000 1000 T 9 0 X220 220 255 (grayish purple) C 2 200 200 0 c 2 m 2000 2000 T 9 0 X200 200 0 (dirty yellow) C 3 250 150 200 c 3 m 3000 3000 T 9 0 X250 150 200 (hot pink) C 4 200 200 200 c 4 m 5000 4000 T 9 0 X200 200 200 (Grey) C 5 100 150 80 c 5 m 100 4000 T 9 0 X100 150 80 (dark green) C 6 100 180 250 c 6 m 4000 1500 T 9 0 X100 180 250 (sky blue) C 7 255 190 240 c 7 m 1000 2500 T 9 0 X255 190 240 (purplish pink) END_OF_FILE if test 583 -ne `wc -c <'Vplot_Kernel/filters/Tests/TEST_coltab'`; then echo shar: \"'Vplot_Kernel/filters/Tests/TEST_coltab'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/Tests/TEST_coltab' fi if test -f 'Vplot_Kernel/filters/Tests/TEST_erase' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/Tests/TEST_erase'\" else echo shar: Extracting \"'Vplot_Kernel/filters/Tests/TEST_erase'\" $681 characters$ sed "s/^X//" >'Vplot_Kernel/filters/Tests/TEST_erase' <<'END_OF_FILE' S s z Test of erasing and pausing z X z Hit return once per frame to make a "movie" of a line zapping z an asterisk. In the last frame, the asterisk turns blue. z X f 7 m 0 0 d 1000 1000 M 1 3 10 X5000 5000 c 2 e f 6 m 1200 1200 d 2000 2000 M 1 3 10 X5000 5000 c 3 e f 5 m 2200 2200 d 3000 3000 M 1 3 10 X5000 5000 c 1 e f 4 m 3200 3200 d 4000 4000 M 1 3 10 X5000 5000 c 6 e f 3 m 4200 4200 d 5000 5000 M 1 3 10 X5000 5000 c 4 e f 6 M 1 3 10 X5000 5000 c 2 e f 5 M 1 3 13 X5000 5000 c 6 e f 3 M 1 3 16 X5000 5000 c 3 e f 2 M 1 3 20 X5000 5000 c 5 e f 1 M 1 3 27 X5000 5000 c 1 e f 0 M 1 3 38 X5000 5000 c 7 e f 0 M 1 3 40 X5000 5000 c 4 e f 0 M 1 3 50 X5000 5000 c 2 e c 1 f 0 M 1 3 70 X5000 5000 END_OF_FILE if test 681 -ne `wc -c <'Vplot_Kernel/filters/Tests/TEST_erase'`; then echo shar: \"'Vplot_Kernel/filters/Tests/TEST_erase'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/Tests/TEST_erase' fi if test -f 'Vplot_Kernel/filters/Tests/TEST_raster' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/Tests/TEST_raster'\" else echo shar: Extracting \"'Vplot_Kernel/filters/Tests/TEST_raster'\" $790 characters$ sed "s/^X//" >'Vplot_Kernel/filters/Tests/TEST_raster' <<'END_OF_FILE' e S s z Test bit and byte raster for a simple pattern z X v 1 m 0 1500 d 0 0 d 1500 0 r 1 7 X0 0 X1000 1000 X100 100 X 75 ------ lines 0 to 74 X30 3 -- start byte 0 in y_line 0 X0 X1 X0 X10 1 -- start byte 90 in y_line 0 X1 X 25 ------ lines 75 to 99 X50 2 -- start byte 0 in y_line 75 X0 X1 f 4 c 4 m 0 0 d 0 1000 d 1000 1000 d 1000 0 d 0 0 o -1500 -1500 m 0 1500 d 0 0 d 1500 0 R 1 0 X0 0 X1000 1000 X100 100 X 75 ------ lines 0 to 74 X30 3 -- start byte 0 in y_line 0 X0 X7 X0 X10 1 -- start byte 90 in y_line 0 X5 X 25 ------ lines 75 to 99 X50 2 -- start byte 0 in y_line 75 X0 X3 f 4 c 4 m 0 0 d 0 1000 d 1000 1000 d 1000 0 d 0 0 z These two should be the same, except that one is color and the other isn't. z The "solid" part of the pattern should be along the bottom and to the right. END_OF_FILE if test 790 -ne `wc -c <'Vplot_Kernel/filters/Tests/TEST_raster'`; then echo shar: \"'Vplot_Kernel/filters/Tests/TEST_raster'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/Tests/TEST_raster' fi if test -f 'Vplot_Kernel/filters/Tests/texttest.f' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/Tests/texttest.f'\" else echo shar: Extracting \"'Vplot_Kernel/filters/Tests/texttest.f'\" $607 characters$ sed "s/^X//" >'Vplot_Kernel/filters/Tests/texttest.f' <<'END_OF_FILE' X real xp, yp, xpath, ypath, xup, yup X integer i X character*10 filename X data NP/18/ c c set vplot output file c X filename = 'out.vp ' X call vpfile(filename) c c choose standard style for vplot c X call vpstyle(0) X call vpscale(.7,.7) X call vpfat(2) c X call vpmessage('This is a message!') c X do i=1,NP-1 X xp = 1.8 + .9 * (i-1) X yp = .4 + .5 * (i-1) X xpath = .2 + (7. - i) / 9. X ypath = .2 X xup = -.15 X yup = .35 X call vpcolor(mod(i,6)+2) X call vptfont((i-1),2,3) X call vpugtext X 1 (xp,yp,xpath,ypath,xup,yup,'> SEP Geophysics <') X enddo c c end of session c X call vpendplot() X end END_OF_FILE if test 607 -ne `wc -c <'Vplot_Kernel/filters/Tests/texttest.f'`; then echo shar: \"'Vplot_Kernel/filters/Tests/texttest.f'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/Tests/texttest.f' fi if test -f 'Vplot_Kernel/filters/genlib/genpoint.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/genlib/genpoint.c'\" else echo shar: Extracting \"'Vplot_Kernel/filters/genlib/genpoint.c'\" $742 characters$ sed "s/^X//" >'Vplot_Kernel/filters/genlib/genpoint.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/genlib/genpoint.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <stdio.h> X#include "../include/extern.h" X genpoint (x1, y1) X int x1, y1; X{ X dev.vector (x1, y1, x1, y1, 0, 0); X} END_OF_FILE if test 742 -ne `wc -c <'Vplot_Kernel/filters/genlib/genpoint.c'`; then echo shar: \"'Vplot_Kernel/filters/genlib/genpoint.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/genlib/genpoint.c' fi if test -f 'Vplot_Kernel/filters/genlib/nulldev.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/genlib/nulldev.c'\" else echo shar: Extracting \"'Vplot_Kernel/filters/genlib/nulldev.c'\" $687 characters$ sed "s/^X//" >'Vplot_Kernel/filters/genlib/nulldev.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./filters/genlib/nulldev.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X/* X * All purpose Do-nothing generic subroutine X */ X int nulldev () X{ X return 0; X} END_OF_FILE if test 687 -ne `wc -c <'Vplot_Kernel/filters/genlib/nulldev.c'`; then echo shar: \"'Vplot_Kernel/filters/genlib/nulldev.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/genlib/nulldev.c' fi if test -f 'Vplot_Kernel/filters/include/enum.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/include/enum.h'\" else echo shar: Extracting \"'Vplot_Kernel/filters/include/enum.h'\" $730 characters$ sed "s/^X//" >'Vplot_Kernel/filters/include/enum.h' <<'END_OF_FILE' X X/* X * enumeration values X */ X X/* X * flags X */ X#define NEVER_SET -1 X#ifndef NO X#define NO 0 X#endif X#ifndef YES X#define YES 1 X#endif X X/* X * styles X */ X#define NO_STYLE_YET -1 X#define STANDARD 0 X#define ROTATED 1 X#define OLD 2 X#define ABSOLUTE 3 X X/* X * size X */ X#define RELATIVE 0 /* ABSOLUTE is also a scale */ X X/* X * erases X */ X#define DO_LITERALS 1 X#define FORCE_INITIAL 2 X X/* X * Color table entry states X */ X#define UNSET 0 /* Must be zero */ X#define SET 1 X#define MAPPED 2 X#define MAP_SET 3 /* MAPPED & SET */ X X/* X * Color table array elements X */ X#define STATUS 0 X#define MAP 1 X#define _RED 2 X#define _GREEN 3 X#define _BLUE 4 X#define _GREY 5 X X/* X * Number of Color table array elements X */ X#define _NUM_PRIM 6 END_OF_FILE if test 730 -ne `wc -c <'Vplot_Kernel/filters/include/enum.h'`; then echo shar: \"'Vplot_Kernel/filters/include/enum.h'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/include/enum.h' fi if test -f 'Vplot_Kernel/filters/include/gendoc.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/include/gendoc.h'\" else echo shar: Extracting \"'Vplot_Kernel/filters/include/gendoc.h'\" $830 characters$ sed "s/^X//" >'Vplot_Kernel/filters/include/gendoc.h' <<'END_OF_FILE' X"--------------- universal VPLOT filter options -------------------------------", X" in=[stdin](file) | endpause=[y,n](d)| interact=[null](output_file)", X" pause=[0](secs) | shade=[y,n] | style=[standard,rotated]", X" fat=[0] | wantras=[y,n](d) | erase=[y,n,once,literal]", X" fatmult=[1.0] | overlay=[n,y] | size=[rel,abs](d)", X" scale=[1.0] | frame=[n,y] | rotate=0 (degrees)", X" xscale=[1.0] | mono=[n,y](d) | dither=1(0=no 1=rn 2=od 3=fs 4=ht)(d)", X" yscale=[1.0] | window=[y,n] | xcenter,ycenter= (inch)", X" hshift=[0.0](inch) | echo=[n,y] (d) | xwmin,ywmin= (inch)", X" vshift=[0.0](inch) | break=[n,y] | xwmax,ywmax= (inch)", X" txscale=[1.0] | invras=[y,n] | dashscale=[1.0]", X" txfont=[0](0-16)(d)| mkscale=[1.0] | pixc=[1.0](d) greyc=[1.0](d)", END_OF_FILE if test 830 -ne `wc -c <'Vplot_Kernel/filters/include/gendoc.h'`; then echo shar: \"'Vplot_Kernel/filters/include/gendoc.h'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/include/gendoc.h' fi if test -f 'Vplot_Kernel/filters/known_bugs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/known_bugs'\" else echo shar: Extracting \"'Vplot_Kernel/filters/known_bugs'\" $710 characters$ sed "s/^X//" >'Vplot_Kernel/filters/known_bugs' <<'END_OF_FILE' Some of the nested macros for reading rasters in dovplot.c cause problems with some older C compilers. Our solution to this problem was to upgrade to 4.3 on our Vaxen. Then the problem went away. If you are stuck with 4.2, you can easily create temporary intermediate variables to simplify the offending expressions. I would do this, except I can't remember where the problems are anymore. It's only a couple of places, though. X The Sun lint complains about "pointer alignment problems" at some points, although I can't see anything wrong. X The Convex lint complains about my usage of sigvec and sprintf, although again I can't find anything wrong. X SEPlib demands that at least one input file be standard in. END_OF_FILE if test 710 -ne `wc -c <'Vplot_Kernel/filters/known_bugs'`; then echo shar: \"'Vplot_Kernel/filters/known_bugs'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/known_bugs' fi if test -f 'Vplot_Kernel/filters/loclib/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/loclib/Makefile'\" else echo shar: Extracting \"'Vplot_Kernel/filters/loclib/Makefile'\" $705 characters$ sed "s/^X//" >'Vplot_Kernel/filters/loclib/Makefile' <<'END_OF_FILE' X# X# All of these except Puthead are in lsep, but these are what are needed X# to make non-sep-libbed versions of the program fly if you don't have X# lsep, like on erebus. X# X SFILES= Puthead.c doc.c err.c sepwhere.c FILES= geth.c getch_.c getpar.c getpar_decode.c\ X getpar_scan.c getpar_string_store.c puth.c alloc.c\ X fsize.c file.c err.c bufpar.c X all: loclib.a tseplib.a X tseplib.a: $(SFILES) X rm -f *.o X cc -c $(CFLAGS) $? X ar cr tseplib.a *.o X ranlib tseplib.a X rm -f *.o X loclib.a: $(FILES) X rm -f *.o X cc -c $(CFLAGS) $? X ar cr loclib.a *.o X ranlib loclib.a X rm -f *.o X getpar_scan.c: getpar_scan.l X lex getpar_scan.l X mv lex.yy.c getpar_scan.c X clean: X rm -f *.o getpar_scan.c tseplib.a loclib.a END_OF_FILE if test 705 -ne `wc -c <'Vplot_Kernel/filters/loclib/Makefile'`; then echo shar: \"'Vplot_Kernel/filters/loclib/Makefile'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/loclib/Makefile' fi if test -f 'Vplot_Kernel/filters/loclib/doc.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/loclib/doc.c'\" else echo shar: Extracting \"'Vplot_Kernel/filters/loclib/doc.c'\" $616 characters$ sed "s/^X//" >'Vplot_Kernel/filters/loclib/doc.c' <<'END_OF_FILE' X/* X * X * source file: ./filters/loclib/doc.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X/* X * Special version to make SEP selfdoc the same way glenn does. X */ X#include <stdio.h> X#include <strings.h> X#include "../include/extern.h" X doc () X{ int ii; extern int xargc, redin (); extern char **xargv; X X if ((xargc == 1 || (xargc == 2 && !strncmp ("wstype=", xargv[1], 7))) X && !redin ()) X { X for (ii = 0; ii < doclength; ii++) X printf ("%s\n", documentation[ii]); X exit (0); X } X} END_OF_FILE if test 616 -ne `wc -c <'Vplot_Kernel/filters/loclib/doc.c'`; then echo shar: \"'Vplot_Kernel/filters/loclib/doc.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/loclib/doc.c' fi if test -f 'Vplot_Kernel/filters/loclib/getch_.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/filters/loclib/getch_.c'\" else echo shar: Extracting \"'Vplot_Kernel/filters/loclib/getch_.c'\" $811 characters$ sed "s/^X//" >'Vplot_Kernel/filters/loclib/getch_.c' <<'END_OF_FILE' X/* X * X * source file: ./filters/loclib/getch_.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include "fastpar.h" X#define GETCH_QUEUE_SIZE 127 X hash_item *getch_queue[GETCH_QUEUE_SIZE]; int getch_queue_size = GETCH_QUEUE_SIZE; X int getch_(tag,type,val) char *tag, *type; MIXED val; X{ X register int iargc; X static int first_invoke = 1; X extern int xargc; extern char **xargv; X X if(first_invoke) { X for(iargc=1; iargc<xargc; iargc++) X getpar_string_store(getch_queue,getch_queue_size,xargv[iargc]); X first_invoke = 0; X } X X return (getpar_decode(getch_queue,getch_queue_size,tag,type,val)); X} X getch_add_string_(string) char *string; X{ X getpar_string_store(getch_queue,getch_queue_size,string); X} END_OF_FILE if test 811 -ne `wc -c <'Vplot_Kernel/filters/loclib/getch_.c'`; then echo shar: \"'Vplot_Kernel/filters/loclib/getch_.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/filters/loclib/getch_.c' fi if test -f 'Vplot_Kernel/lvplot/geth.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/geth.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/geth.c'\" $862 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/geth.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/geth.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#ifndef FORTRAN X#include <stdio.h> X int geth (iop) X register FILE *iop; X{ union X{ X unsigned short w; X short s; X} r; X X r.w = getc (iop); X r.w += (getc (iop) << 8); X if (feof (iop)) X return (EOF); X return ((int) r.s); X} X#endif END_OF_FILE if test 862 -ne `wc -c <'Vplot_Kernel/lvplot/geth.c'`; then echo shar: \"'Vplot_Kernel/lvplot/geth.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/geth.c' fi if test -f 'Vplot_Kernel/lvplot/known_bugs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/known_bugs'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/known_bugs'\" $794 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/known_bugs' <<'END_OF_FILE' The FORTRAN routines are probably not as well tested as they should be. There may easily still be bugs lurking in some of the lesser-used routines. Several VPLOT commands as yet have no corresponding libvplot routines. X Beware of running "indent" on vp_raster.c. Vp_raster doesn't always compact things as well as it could. X I should have switched vp_fat and vp_text to take sizes and lengths in floating point inches when I had the chance. It didn't occur to me then and now it's too late -- if I tried to change the units from the screwy quantized ones set back in 1979 by persons unknown everyone would come beating down my door. Vp_gtext gives an escape from quantized text sizes, but it would be very difficult indeed to try to do anything about the quantized vp_fat command at this date. END_OF_FILE if test 794 -ne `wc -c <'Vplot_Kernel/lvplot/known_bugs'`; then echo shar: \"'Vplot_Kernel/lvplot/known_bugs'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/known_bugs' fi if test -f 'Vplot_Kernel/lvplot/vp_break.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_break.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_break.c'\" $780 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_break.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_break.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <stdio.h> X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN X X#define BREAK vpbreak_ X X#else X X#define BREAK vp_break X X#endif X BREAK () X{ X putc (VP_BREAK, vp_pc._pltout); X} END_OF_FILE if test 780 -ne `wc -c <'Vplot_Kernel/lvplot/vp_break.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_break.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_break.c' fi if test -f 'Vplot_Kernel/lvplot/vp_egroup.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_egroup.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_egroup.c'\" $731 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_egroup.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_egroup.c X * X * Joe Dellinger (SEP), Feb 27 1988 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN vpegroup_ () X#else vp_egroup () X#endif X{ X putc (VP_END_GROUP, vp_pc._pltout); X} END_OF_FILE if test 731 -ne `wc -c <'Vplot_Kernel/lvplot/vp_egroup.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_egroup.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_egroup.c' fi if test -f 'Vplot_Kernel/lvplot/vp_endplt.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_endplt.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_endplt.c'\" $878 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_endplt.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_endplt.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <stdio.h> X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN X X#define ENDPLT vpendplot_ X X#else X X#define ENDPLT vp_endplot X X#endif X ENDPLT () X{ X if (fclose (vp_pc._pltout) == EOF) X { X fprintf (stderr, "libvplot.endplt: cannot close plotfile\n"); X exit (-1); X } X} END_OF_FILE if test 878 -ne `wc -c <'Vplot_Kernel/lvplot/vp_endplt.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_endplt.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_endplt.c' fi if test -f 'Vplot_Kernel/lvplot/vp_erase.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_erase.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_erase.c'\" $780 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_erase.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_erase.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <stdio.h> X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN X X#define ERASE vperase_ X X#else X X#define ERASE vp_erase X X#endif X ERASE () X{ X putc (VP_ERASE, vp_pc._pltout); X} END_OF_FILE if test 780 -ne `wc -c <'Vplot_Kernel/lvplot/vp_erase.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_erase.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_erase.c' fi if test -f 'Vplot_Kernel/lvplot/vp_penup.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_penup.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_penup.c'\" $749 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_penup.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_penup.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN X X#define PENUP vppenup_ X X#else X X#define PENUP vp_penup X X#endif X PENUP () X{ X vp_pc._pendown = 0; X} END_OF_FILE if test 749 -ne `wc -c <'Vplot_Kernel/lvplot/vp_penup.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_penup.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_penup.c' fi if test -f 'Vplot_Kernel/lvplot/vp_purge.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_purge.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_purge.c'\" $833 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_purge.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_purge.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#include <vplot.h> X#include "vp_pc.h" X X#ifdef FORTRAN vppurge_ () X#else vp_purge () X#endif X{ X putc (VP_PURGE, vp_pc._pltout); X if (EOF == fflush (vp_pc._pltout)) X { X fprintf (stderr, "\nvp_purge: unable to purge plot\n"); X } X} END_OF_FILE if test 833 -ne `wc -c <'Vplot_Kernel/lvplot/vp_purge.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_purge.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_purge.c' fi if test -f 'Vplot_Kernel/lvplot/vp_uarea.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_uarea.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_uarea.c'\" $627 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_uarea.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_uarea.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#define UUU X#include "vp_area.c" END_OF_FILE if test 627 -ne `wc -c <'Vplot_Kernel/lvplot/vp_uarea.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_uarea.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_uarea.c' fi if test -f 'Vplot_Kernel/lvplot/vp_uarrow.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_uarrow.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_uarrow.c'\" $629 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_uarrow.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_uarrow.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#define UUU X#include "vp_arrow.c" END_OF_FILE if test 629 -ne `wc -c <'Vplot_Kernel/lvplot/vp_uarrow.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_uarrow.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_uarrow.c' fi if test -f 'Vplot_Kernel/lvplot/vp_udraw.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Vplot_Kernel/lvplot/vp_udraw.c'\" else echo shar: Extracting \"'Vplot_Kernel/lvplot/vp_udraw.c'\" $627 characters$ sed "s/^X//" >'Vplot_Kernel/lvplot/vp_udraw.c' <<'END_OF_FILE' X/* X * Copyright 1987 the Board of Trustees of the Leland Stanford Junior X * University. Official permission to use this software is included in X * the documentation. It authorizes you to use this file for any X * non-commercial purpose, provided that this copyright notice is not X * removed and that any modifications made to this file are commented X * and dated in the style of my example below. X */ X X/* X * X * source file: ./lvplot/vp_udraw.c X * X * Joe Dellinger (SEP), June 11 1987 X * Inserted this sample edit history entry. X * Please log any further modifications made to this file: X */ X X#define UUU X#include "vp_draw.c" END_OF_FILE if test 627 -ne `wc -c <'Vplot_Kernel/lvplot/vp_udraw.c'`; then echo shar: \"'Vplot_Kernel/lvplot/vp_udraw.c'\" unpacked with wrong size! fi # end of 'Vplot_Kernel/lvplot/vp_udraw.c' fi echo shar: End of archive 3 $of 24$. cp /dev/null ark3isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 24 archives. rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.