$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 7.2-007  22-FEB-1990
$!   On 13-MAY-1992 14:38:10.91   By user WILLIAMS 
$!
$! This VMS_SHARE Written by:
$!    Andy Harper, Kings College London UK
$!
$! Acknowledgements to:
$!    James Gray       - Original VMS_SHARE
$!    Michael Bednarek - Original Concept and implementation
$!
$!+ THIS PACKAGE DISTRIBUTED IN 288 PARTS, TO KEEP EACH PART
$!  BELOW 30 BLOCKS
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. README.TXT;2
$!       2. [.DATA]RGB.DAT;1
$!       3. [.DATA]RGBNAMES.DAT;1
$!       4. [.DEMO]BUILD.COM;1
$!       5. [.DEMO]INSTALL.COM;2
$!       6. [.DEMO]MAKEFILE.MAK;3
$!       7. [.DEMO]VAXCRTL.OPT;2
$!       8. [.DOCS]MANUAL.PS;1
$!       9. [.FORTRAN.BINDING]INSTALL.COM;1
$!      10. [.FORTRAN.BINDING]MAKEFILE.MAK;1
$!      11. [.FORTRAN.DEMO]BUILD.COM;1
$!      12. [.FORTRAN.DEMO]INSTALL.COM;1
$!      13. [.FORTRAN.DEMO]MAKEFILE.MAK;1
$!      14. [.FORTRAN.DEMO]VAXCRTL.OPT;2
$!      15. [.FORTRAN.DEMO]VMSPHIGS77.FOR;2
$!      16. [.FORTRAN.DEMO]VMSPTK77.FOR;3
$!      17. [.FORTRAN.INCLUDE]PTK77.H;2
$!      18. [.FORTRAN.LIBRARY]INSTALL.COM;1
$!      19. [.FORTRAN.LIBRARY]MAKEFILE.MAK;1
$!      20. [.FORTRAN.LIBRARY]VMSPHIGS77.FOR;1
$!      21. [.FORTRAN.LIBRARY]VMSPTK77.FOR;1
$!      22. [.FORTRAN.SOURCE.BINDING]CINQPHIGS.C;2
$!      23. [.FORTRAN.SOURCE.BINDING]CPHIGS.C;1
$!      24. [.FORTRAN.SOURCE.BINDING]CSETPHIGS.C;1
$!      25. [.FORTRAN.SOURCE.BINDING]FINQPHIGS.FOR;2
$!      26. [.FORTRAN.SOURCE.BINDING]FPHIGS.FOR;1
$!      27. [.FORTRAN.SOURCE.BINDING]FSETPHIGS.FOR;1
$!      28. [.FORTRAN.SOURCE.BINDING]PKPREI.FOR;1
$!      29. [.FORTRAN.SOURCE.BINDING]PKUREI.FOR;1
$!      30. [.FORTRAN.SOURCE.BINDING]PPREC.FOR;1
$!      31. [.FORTRAN.SOURCE.BINDING]PUREC.FOR;1
$!      32. [.FORTRAN.SOURCE.DEMO]CNSTEST.FOR;2
$!      33. [.FORTRAN.SOURCE.DEMO]MENUTEST.FOR;2
$!      34. [.FORTRAN.SOURCE.DEMO]PHINTER.FOR;1
$!      35. [.FORTRAN.SOURCE.DEMO]STCTTEST.FOR;2
$!      36. [.FORTRAN.SOURCE.DEMO]TOPTEST.FOR;2
$!      37. [.FORTRAN.SOURCE.DEMO]UTILTEST.FOR;2
$!      38. [.FORTRAN.SOURCE.DEMO]WINDTEST.FOR;2
$!      39. [.FORTRAN.SOURCE.LIBRARY]CNS.FOR;1
$!      40. [.FORTRAN.SOURCE.LIBRARY]DBUG.FOR;1
$!      41. [.FORTRAN.SOURCE.LIBRARY]FTOC.C;1
$!      42. [.FORTRAN.SOURCE.LIBRARY]HASH.FOR;1
$!      43. [.FORTRAN.SOURCE.LIBRARY]MENU.FOR;1
$!      44. [.FORTRAN.SOURCE.LIBRARY]MISC.FOR;2
$!      45. [.FORTRAN.SOURCE.LIBRARY]PHIN.FOR;1
$!      46. [.FORTRAN.SOURCE.LIBRARY]PLIB.FOR;1
$!      47. [.FORTRAN.SOURCE.LIBRARY]STCT.FOR;1
$!      48. [.FORTRAN.SOURCE.LIBRARY]TOPO.FOR;1
$!      49. [.FORTRAN.SOURCE.LIBRARY]TRAN.FOR;1
$!      50. [.FORTRAN.SOURCE.LIBRARY]TSL.FOR;1
$!      51. [.FORTRAN.SOURCE.LIBRARY]VIEW.FOR;1
$!      52. [.FORTRAN.SOURCE.LIBRARY]WIND.FOR;1
$!      53. [.INCLUDE]CNSFNS.H;1
$!      54. [.INCLUDE]CNSTYPE.H;1
$!      55. [.INCLUDE]DBUGFNS.H;1
$!      56. [.INCLUDE]DECTYPE.H;1
$!      57. [.INCLUDE]HASHFNS.H;1
$!      58. [.INCLUDE]HASHTYPE.H;1
$!      59. [.INCLUDE]MACHINE.H;2
$!      60. [.INCLUDE]MENUFNS.H;1
$!      61. [.INCLUDE]MENUTYPE.H;1
$!      62. [.INCLUDE]MISCFNS.H;1
$!      63. [.INCLUDE]NURBFNS.H;21
$!      64. [.INCLUDE]NURBTYPE.H;8
$!      65. [.INCLUDE]PERRFNS.H;1
$!      66. [.INCLUDE]PHINFNS.H;1
$!      67. [.INCLUDE]PLIBFNS.H;1
$!      68. [.INCLUDE]PLIBTYPE.H;1
$!      69. [.INCLUDE]PTK.H;1
$!      70. [.INCLUDE]PTKTYPE.H;1
$!      71. [.INCLUDE]STCTFNS.H;1
$!      72. [.INCLUDE]TOPOFNS.H;1
$!      73. [.INCLUDE]TOPOTYPE.H;1
$!      74. [.INCLUDE]TRANFNS.H;1
$!      75. [.INCLUDE]TRANTYPE.H;2
$!      76. [.INCLUDE]TSLFNS.H;1
$!      77. [.INCLUDE]TSLTYPE.H;1
$!      78. [.INCLUDE]VIEWFNS.H;1
$!      79. [.INCLUDE]WINDFNS.H;1
$!      80. [.INCLUDE]WINDTYPE.H;1
$!      81. [.LIBRARY]INSTALL.COM;1
$!      82. [.LIBRARY]MAKEFILE.MAK;3
$!      83. [.SCRIPTS]LAMP.SCR;2
$!      84. [.SCRIPTS]POSTCARD.SCR;6
$!      85. [.SCRIPTS]STARTDECPHIGS.SCR;1
$!      86. [.SOURCE.DEMO]CNSTEST.C;2
$!      87. [.SOURCE.DEMO]MENUTEST.C;3
$!      88. [.SOURCE.DEMO]PHINTER.C;1
$!      89. [.SOURCE.DEMO]STCTTEST.C;2
$!      90. [.SOURCE.DEMO]TOPTEST.C;2
$!      91. [.SOURCE.DEMO]UTILTEST.C;3
$!      92. [.SOURCE.DEMO]WINDTEST.C;2
$!      93. [.SOURCE.LIBRARY]CNS.C;1
$!      94. [.SOURCE.LIBRARY]DBUG.C;2
$!      95. [.SOURCE.LIBRARY]ENUMNAME.C;1
$!      96. [.SOURCE.LIBRARY]HASH.C;1
$!      97. [.SOURCE.LIBRARY]MENU.C;2
$!      98. [.SOURCE.LIBRARY]MISC.C;1
$!      99. [.SOURCE.LIBRARY]PHIN.C;3
$!     100. [.SOURCE.LIBRARY]PINQFNS.C;1
$!     101. [.SOURCE.LIBRARY]PLIB.C;1
$!     102. [.SOURCE.LIBRARY]PSETFNS.C;2
$!     103. [.SOURCE.LIBRARY]STCT.C;1
$!     104. [.SOURCE.LIBRARY]TOPO.C;1
$!     105. [.SOURCE.LIBRARY]TRAN.C;3
$!     106. [.SOURCE.LIBRARY]TSL.C;1
$!     107. [.SOURCE.LIBRARY]VIEW.C;2
$!     108. [.SOURCE.LIBRARY]WIND.C;2
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if f$trnlnm("SHARE_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$UNPACK: SUBROUTINE ! P1=filename, P2=checksum
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'."
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-PROCESS, Processing file ''P1'."
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:=
CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b));
LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1);
IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE;
MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1;
ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")=
1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF";
POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r);
ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1;
COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE,
"output_file"));ENDPROCEDURE;Unpacker;QUIT;
$ delete/nolog 'f'*
$ CHECKSUM 'P1'
$ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ ENDSUBROUTINE
$START:
$ create 'f'
X
X                     The PHIGS Toolkit
X                     -----------------
X
XCopyright (c) 1992, The Victoria University of Manchester.
X
XThe PHIGS Toolkit is produced by Department of Computer Science, and the
XComputer Graphics Unit, Manchester Computing Centre, both of the Victoria
XUniversity of Manchester.  The PHIGS Toolkit has been tested with care but
Xis not guaranteed for any particular purpose. Neither the authors, nor the
XUniversity of Manchester offer any warranties or representations, nor do
Xthey accept any liabilities with respect to the software and documentation.
XThe PHIGS Toolkit may be used freely within the academic community, but it
Xmay not be used for commmercial gain without the written permission of the
Xauthors.
X
XNB This is version 2.01 of the PHIGS Toolkit supporting versions 1.1, 1.2,
X1.3, 1.4.1 of SunPHIGS and version 2.3A of DEC PHIGS.
X
XBuilding the libraries
X----------------------
X
XOnce the PHIGS Toolkit directory structure has been successfully installed
Xthere will be eight top-level directories called  source, library, include,
Xfortran, demo, data, scripts and docs. The source directory contains all
Xthe .c files for the PHIGS Toolkit library and demos. The include directory
Xcontains all the .h files. A compressed PostScript file of the user manual
Xis found in the docs directory. PHIGS scripts for use with phinter
Xare stored in the scripts directory.
XThe libraries do not take long to compile and it is possible to build all
Xthe libraries and demo programs within an hour.
X
XSunOS
X-----
X
XTo build the PHIGS Toolkit library go into the library directory.  First
Xyou need to edit the file makefile.  Just change the value of PHIGSINCDIR
X(path to phigs.h) in the released makefile.  If you have SunPHIGS 1.1 or
XSunPHIGS 1.2 make sure the SUNVERS flag = -DPRESUN1PT3.
X
XNB The current version of the PHIGS Toolkit does NOT support SunPHIGS 2.0.
X
XNow type make, as follows:
X
X   $ make
X
XThis will compile all the library source files and create a library file
Xcalled libptk.a.
X
XTo build the Fortran interface library go to the fortran/library directory.
XThis time you will need to change the contents of the file sunphigs77.h to
Xthe path for phigs77.h on your machine. You will also need to edit
Xthe value of PHIGSINCDIR in the makefile. Now type make.
X
X   $ cd fortran/library
X   $ make
X
XThis will compile all the Fortran interface source files and create a
Xlibrary called libptk77.a.
X`20
XVAX/VMS
X-------
X
XTo build the PHIGS Toolkit library go into the library directory and run
Xthe install command file or makefile if you have VMS make on your machine:
X
X   $ set def `5B.library`5D
X   $ @install
X   or
X   $ make
X
XThis will compile all the library source files and create an object library
Xfile called ptk.olb.
X
XTo build the Fortran interface library go into the fortran.library
Xdirectory and run the install command file:
X
X   $ set def `5B.fortran.library`5D
X   $ @install
X   or
X   $ make
X
XThe files are compiled into an object library called ptk77.olb.
X
XThe DEC PHIGS C kernel does not have a Fortran interface so this is
Xprovided in the Fortran binding directory.
X
X   $ set def `5B.fortran.binding`5D
X   $ @install
X   or
X   $ make
X
XThe Fortran binding to DEC PHIGS C is compiled and put in a library file
Xcalled phigs77.olb.
X
XDemonstration Programs
X----------------------
X
XVersion 2.01 of the PHIGS Toolkit includes the following demonstration
Xprograms:
X
X cnstest. This shows the range of colours available in the colour
Xnaming scheme.
X
X phinter. This an interactive tool for using the PHIGS textual
Xinterpreter.
X
X toptest. This demonstrates the PHIGS structure network topology`20
Xdrawing facilities.
X
X stcttest. This demonstrates the PHIGS structure content drawer.
X
X menutest. This demonstrates the use of PHIGS menus.
X
X windtest. This illustrates PHIGS windows and camera operations.
X
X utiltest. This reads in the lamp and postcard structure and calls up
Xthe PHIGS debugger and PHIGS view editor.
X
XBuilding the demonstration programs on SunOS
X--------------------------------------------
X
XC demos
X-------
X
XFirst go into the demo directory and edit the makefile.
XJust change the paths of PHIGSINCDIR (path to phigs.h)
Xand PHIGSLIBDIR (path to libphigs.a) in the released makefile.
X
XTo build all the demo programs type:
X
X   $ make all
X
XFortran demos
X-------------
X
XFirst go into the fortran/demo directory and edit the makefile.
XJust change the paths of PHIGSINCDIR (path to phigs.h)
Xand PHIGSLIBDIR (path to libphigs.a) in the released makefile.
XAgain you will need to change the contents of the
Xfile sunphigs77.h to the path for phigs77.h on your machine.
X
XTo build all the demo programs type:
X
X   $ make all
X
X
XBuilding the demonstration programs on VAX/VMS
X----------------------------------------------
X
XC demos
X-------
X
XGo to the `5B.demo`5D directory and run the build.com file for each
Xdemo program.
X
X   $ @build cnstest
X   $ @build menutest
X   $ @build phinter
X   $ @build toptest
X   $ @build stcttest
X   $ @build windtest
X   $ @build utiltest
X
XThe file install.com will build all the tests in one go.
X
X   $ @install
X
XIf you have make just type`20
X
X   $ make all
X
XFortran demos
X-------------
X
XGo to the `5B.fortran.demo`5D directory and run the build.com file for each
Xdemo program.
X
X   $ @build cnstest
X   $ @build menutest
X   $ @build phinter
X   $ @build toptest
X   $ @build stcttest
X   $ @build windtest
X   $ @build utiltest
X
XThe file install.com will build all the tests in one go.
X
X   $ @install
X
XIf you have make just type`20
X
X   $ make all
X
XIf you find a bug in the PHIGS Toolkit, or in the documentation, please
Xreport it to phigstoolkit@uk.ac.man.cs, or:
X
XToby Howard
XDepartment of Computer Science
XUniversity of Manchester
XOxford Road
XManchester M13 9PL
XUnited Kingom
XTel: +44 61 275 6274
XFax: +44 61 275 6236
X
$ CALL UNPACK README.TXT;2 1248756085
$ create 'f'
X0.9804 0.9216 0.8431
X0.9412 1.0000 1.0000
X1.0000 0.8941 0.7686
X1.0000 0.9216 0.8039
X1.0000 0.9725 0.8627
X0.9900 0.9000 0.7900
X1.0000 0.9804 0.9412
X0.8627 0.8627 0.8627
X0.9725 0.9725 1.0000
X0.9412 1.0000 0.9412
X1.0000 1.0000 0.9412
X0.9020 0.9020 0.9804
X1.0000 0.9412 0.9608
X1.0000 0.9804 0.8039
X0.9804 0.9412 0.9020
X0.9608 1.0000 0.9804
X1.0000 0.8941 0.8824
X1.0000 0.8941 0.7098
X1.0000 0.8706 0.6784
X0.9922 0.9608 0.9020
X1.0000 0.9373 0.8353
X1.0000 0.8549 0.7255
X1.0000 0.9608 0.9333
X1.0000 0.9804 0.9804
X0.8471 0.7490 0.8471
X0.9900 1.0000 0.9400
X0.9608 0.8706 0.7020
X1.0000 1.0000 1.0000
X0.9608 0.9608 0.9608
X0.9900 0.9700 1.0000
X0.5000 0.5400 0.5300
X0.4118 0.4118 0.4118
X0.7529 0.7529 0.7529
X0.8275 0.8275 0.8275
X0.4392 0.5020 0.5647
X0.1843 0.3098 0.3098
X0.4667 0.5333 0.6000
X0.5000 0.5000 0.4100
X0.0000 0.0000 0.0000
X0.1600 0.1400 0.1300
X0.1800 0.2800 0.2300
X0.8900 0.1500 0.2100
X0.6100 0.4000 0.1200
X0.8900 0.0900 0.0500
X1.0000 0.4980 0.3137
X0.9412 0.5020 0.5020
X1.0000 0.0784 0.5765
X0.8300 0.2400 0.1000
X0.6980 0.1333 0.1333
X0.8900 0.0700 0.1900
X1.0000 0.4118 0.7059
X0.6900 0.0900 0.1200
X1.0000 0.6275 0.4784
X0.8900 0.1800 0.1900
X0.6902 0.1882 0.3765
X1.0000 0.7529 0.7961
+-+-+-+-+-+-+-+-  END  OF PART 1 +-+-+-+-+-+-+-+-