v14i008: Device-independant graphics system, with drivers
Rich Salz
rsalz at uunet.uu.net
Tue Mar 29 01:23:25 AEST 1988
Submitted-by: Joe Dellinger <joe at 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 at uunet.uu.net.
More information about the Comp.sources.unix
mailing list