-+-+-+-+-+-+-+-+ START OF PART 144 -+-+-+-+-+-+-+-+
X(178)0 855 y(ptkf_scaleviewwindow)m(,)f(239)0 905 y(ptkf_scrollterminal,)f
X(239)0 955 y(ptkf_setallattrasf,)h(196)0 1005 y(ptkf_setattrasf,)g(196)0
X1054 y(ptkf_setbackgroundcolour)n(,)f(204)0 1104 y(ptkf_setbackgroundcolouri
V)
Xo(nd,)g(204)0 1154 y(ptkf_setbannercolours,)h(239)0 1204 y
X(ptkf_setbannerheight,)f(239)0 1254 y(ptkf_setbannertitle,)g(239)0
X1303 y(ptkf_setboxmenuattrs,)h(224)0 1353 y(ptkf_setboxmenuhighli)o(ght)o(it
V)
Xo(em,)g(224)0 1403 y(ptkf_setboxmenutextfont)o(,)f(225)0 1453
Xy(ptkf_setcameralimits,)i(240)0 1503 y(ptkf_setcameraposition,)f(240)0
X1553 y(ptkf_setcameraprojtype,)h(240)0 1602 y(ptkf_setcameraptinterest,)g
X(240)0 1652 y(ptkf_setcamerastate,)h(240)0 1702 y(ptkf_setcameraworld,)f(241
V)
X0 1752 y(ptkf_setcnsdefaults,)f(204)0 1802 y(ptkf_setcolourrep,)g(204)0
X1851 y(ptkf_setcontentviewrange,)g(241)0 1901 y(ptkf_setdebuggerattrs,)f(248
V)
X0 1951 y(ptkf_setedgecolour)n(,)h(204)0 2001 y(ptkf_seteditmode,)g(196)0
X2051 y(ptkf_setframesize,)i(241)0 2100 y(ptkf_seticonpositio)o(n,)d(241)0
X2150 y(ptkf_seticonsize,)i(241)0 2200 y(ptkf_setintcolour)n(,)e(205)0
X2250 y(ptkf_setlinecolour)n(,)g(205)0 2300 y(ptkf_setmarkercolour)n(,)i(205)
V0
X2350 y(ptkf_setmenuposition,)e(225)0 2399 y(ptkf_setnodepositio)o(n,)g(215)0
X2449 y(ptkf_setpositionaxi)o(s,)g(242)0 2499 y(ptkf_setptinterestaxis,)g(242
V)
X0 2549 y(ptkf_setr)o(gbcolourname,)h(205)0 2599 y(ptkf_setrotatorattrs,)f
X(225)0 2648 y(ptkf_setrotatorti)o(tle,)g(225)0 2698 y
X(ptkf_setstandardviewport,)g(196)0 2748 y(ptkf_setstructcontentelemptr)n(,)g
X(210)1006 8 y(ptkf_setterminaldata,)h(242)1006 58 y
X(ptkf_setterminal\257oatformat,)f(242)1006 108 y(ptkf_settextcolour)n(,)g
X(205)1006 158 y(ptkf_settopolog)o(yattr)o(s,)g(215)1006 208
Xy(ptkf_settopolog)o(yhi)o(ghl)o(igh)o(tnod)o(e,)h(216)1006
X257 y(ptkf_settopolog)o(yty)o(pe,)f(216)1006 307 y(ptkf_settopolog)o(yvi)o
X(ewarea,)i(242)1006 357 y(ptkf_setusericon,)f(243)1006 407
Xy(ptkf_setviewclippin)o(g3,)f(243)1006 457 y(ptkf_setvieweditorattr)o(s,)g
X(250)1006 506 y(ptkf_setviewmapping3,)g(243)1006 556 y
X(ptkf_setvieworientatio)o(n3,)g(243)1006 606 y(ptkf_setwindowattrs,)f(244)
X1006 656 y(ptkf_setwindowposi)o(ti)o(on,)h(244)1006 706 y
X(ptkf_setwindowsize,)h(244)1006 756 y(ptkf_setwindowtrani)o(nput)o(pri)o(,)f
X(244)1006 805 y(ptkf_setwindowtyp)o(e,)g(245)1006 855 y(ptkf_shear)n(,)i(178
V)
X1006 905 y(ptkf_shear3,)f(179)1006 955 y(ptkf_shift,)f(179)1006
X1005 y(ptkf_shift3,)g(179)1006 1054 y(ptkf_stackmatrix,)h(179)1006
X1104 y(ptkf_stackmatrix3,)g(179)1006 1154 y(ptkf_stackstruct,)g(196)1006
X1204 y(ptkf_stacktsl,)g(201)1006 1254 y(ptkf_storeallhashtables,)f(185)1006
X1303 y(ptkf_storehashtable,)h(185)1006 1353 y(ptkf_storetopol)o(ogyl)o(ayout
V)
Xo(,)f(216)1006 1403 y(ptkf_stringscanmenus,)h(226)1006 1453
Xy(ptkf_stringscanwindo)o(ws,)f(245)1006 1503 y(ptkf_stringt)o(oin)o(t,)g(185
V)
X1006 1553 y(ptkf_stringused,)g(185)1006 1602 y(ptkf_strphint)o(er)n(,)h(209)
X1006 1652 y(ptkf_structcontent,)f(21)n(1)1006 1702 y(ptkf_structexists,)g
X(197)1006 1752 y(ptkf_structsummary)m(,)h(197)1006 1802 y(ptkf_subv)m(,)g
X(180)1006 1851 y(ptkf_subv3,)f(180)1006 1901 y(ptkf_tidyt)o(opol)o(ogy)m(,)g
X(216)1006 1951 y(ptkf_transform,)h(180)1006 2001 y(ptkf_transform3,)f(180)
X1006 2051 y(ptkf_transform4,)g(180)1006 2100 y(ptkf_transposematrix,)g(181)
X1006 2150 y(ptkf_transposematrix3,)g(181)1006 2200 y(ptkf_tsltraverserange,)
Vh
X(201)1006 2250 y(ptkf_unitmatrix)o(,)f(181)1006 2300 y(ptkf_unitmatrix)o(3,)
Vg
X(181)1006 2350 y(ptkf_unitv)m(,)g(181)1006 2399 y(ptkf_unitv3)o(,)g(182)1006
X2449 y(ptkf_unpostallf)o(romwind)o(ow)m(,)g(245)1006 2499 y
X(ptkf_unpostallmenu,)g(226)1006 2549 y(ptkf_unpostfro)o(mwindow)m(,)g(245)
X1006 2599 y(ptkf_unpostmenu,)g(226)1006 2648 y(ptkf_unpostto)o(pol)o(ogy)m(,
V)
Xg(217)1006 2698 y(ptkf_unpostwin)o(dow)m(,)g(245)1006 2748
Xy(ptkf_unseteditmode,)g(197)0 2956 y(13th)22 b(May)m(,)12 b(1992)626
Xb(260)828 b(2.01)p eop
X%%Page: 261 262
Xbop 0 -137 a Fq(PHIGS)11 b(T)m(oolkit)f(User)i(Manual)1235
Xb(PTK/100)0 8 y(ptkf_unstackmatrix,)10 b(182)0 58 y(ptkf_unstackmatrix3,)f
X(182)0 108 y(ptkf_unstackstruct,)g(197)0 158 y(ptkf_unstacktsl,)g(201)0
X208 y(ptkf_vieweditor)n(,)g(250)0 257 y(ptkf_writeallstruct,)f(209)0
X307 y(ptkf_write\257oatterminal,)h(246)0 357 y(ptkf_writeintt)o(erminal,)g
X(246)0 407 y(ptkf_writelnterminal,)f(246)0 457 y(ptkf_writestruct,)h(209)0
X506 y(ptkf_writestructnet,)g(209)0 556 y(ptkf_writeterminal,)g(246)0
X2956 y(13th)22 b(May)m(,)12 b(1992)626 b(261)828 b(2.01)p eop
X%%Trailer
Xend
Xuserdict /end-hook known`7Bend-hook`7Dif
X%%EOF
$ CALL UNPACK [.DOCS]MANUAL.PS;1 183777448
$ create 'f'
X$
X$! Creating phigs77.olb
X$
X$ fortran `5B-.source.binding`5Dfphigs
X$ fortran `5B-.source.binding`5Dfsetphigs
X$ fortran `5B-.source.binding`5Dfinqphigs
X$ fortran `5B-.source.binding`5Dpprec
X$ fortran `5B-.source.binding`5Dpkprei
X$ fortran `5B-.source.binding`5Dpurec
X$ fortran `5B-.source.binding`5Dpkurei
X$ cc `5B-.source.binding`5Dcphigs.c
X$ library/create/log phigs77
X$ library/log phigs77.olb fphigs, fsetphigs, finqphigs, pprec, pkprei, purec
V, pkurei
X$ library/log phigs77.olb cphigs
X$ purge
$ CALL UNPACK [.FORTRAN.BINDING]INSTALL.COM;1 1919963184
$ create 'f'
XFOR_QUAL =
X
XSRCDIR = `5B-.source.binding`5D
X
XOBJS = fphigs fsetphigs finqphigs \
X       pprec pkprei purec pkurei
X
Xphigs77.olb : $(OBJS).obj cphigs.obj
X        library/create/log phigs77
X`09library/log $@ $,(OBJS)
X        library/log $@ cphigs
X        purge
X
X$(OBJS).obj: $(SRCDIR)$*.for
X`09fortran/debug/noopt $(FOR_QUAL) $(SRCDIR)$*
X
Xcphigs.obj: $(SRCDIR)cphigs.c
X        cc/debug/noopt $(SRCDIR)cphigs.c
$ CALL UNPACK [.FORTRAN.BINDING]MAKEFILE.MAK;1 505160716
$ create 'f'
X$
X$! Creating fortran demo program
X$
X$ for `5B-.source.demo`5D'p1'.for
X$ link 'p1',vaxcrtl/opt,`5B-.library`5Dptk77/lib,`5B-.binding`5Dphigs77/lib,
V`5B-.library`5Dptk/lib
X$ purge
$ CALL UNPACK [.FORTRAN.DEMO]BUILD.COM;1 991561901
$ create 'f'
X$
X$! Creating all
X$
X$ for `5B-.source.demo`5Dcnstest.for
X$ link cnstest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs77
V/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dmenutest.for
X$ link menutest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs7
V7/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dtoptest.for
X$ link toptest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs77
V/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dstcttest.for
X$ link stcttest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs7
V7/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dwindtest.for
X$ link windtest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs7
V7/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dutiltest.for
X$ link utiltest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs7
V7/lib, `5B-.-.library`5Dptk/lib
X$ purge
X$ for `5B-.source.demo`5Dphinter.for
X$ link phinter,vaxcrtl/opt, `5B-.library`5Dptk77/lib, `5B-.binding`5Dphigs77
V/lib, `5B-.-.library`5Dptk/lib
X$ purge
$ CALL UNPACK [.FORTRAN.DEMO]INSTALL.COM;1 1430535897
$ create 'f'
X#
X#`20
X# VMS makefile for the PHIGS Toolkit tests
X# J.G. Williams 21/1/91
X#
X
X#FFLAGS = /debug/noopt
XFFLAGS =
X
X#LINK = link/debug
XLINK = link
X
XSRCDIR = `5B-.source.demo`5D
X
Xall: cnstest menutest toptest stcttest windtest utiltest phinter
X
Xcnstest.exe: cnstest.obj
X`09$(LINK) cnstest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xcnstest.obj: $(SRCDIR)cnstest.for
X`09for$(FFLAGS) $(SRCDIR)cnstest.for
X
Xmenutest.exe: menutest.obj
X`09$(LINK) menutest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xmenutest.obj: $(SRCDIR)menutest.for
X`09for$(FFLAGS) $(SRCDIR)menutest.for
X
Xtoptest.exe: toptest.obj
X`09$(LINK) toptest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xtoptest.obj: $(SRCDIR)toptest.for
X`09for$(FFLAGS) $(SRCDIR)toptest.for
X
Xstcttest.exe: stcttest.obj
X`09$(LINK) stcttest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xstcttest.obj: $(SRCDIR)stcttest.for
X`09for$(FFLAGS) $(SRCDIR)stcttest.for
X
Xwindtest.exe: windtest.obj
X`09$(LINK) windtest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xwindtest.obj: $(SRCDIR)windtest.for
X`09for$(FFLAGS) $(SRCDIR)windtest.for
X
Xutiltest.exe: utiltest.obj
X`09$(LINK) utiltest,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xutiltest.obj: $(SRCDIR)utiltest.for
X`09for$(FFLAGS) $(SRCDIR)utiltest.for
X
Xphinter.exe: phinter.obj
X`09$(LINK) phinter,vaxcrtl/opt, `5B-.library`5Dptk77/lib, \
X                `5B-.binding`5Dphigs77/lib, `5B-.-.library`5Dptk/lib
X        purge
X
Xphinter.obj: $(SRCDIR)phinter.for
X`09for$(FFLAGS) $(SRCDIR)phinter.for
X
X
$ CALL UNPACK [.FORTRAN.DEMO]MAKEFILE.MAK;1 1937256887
$ create 'f'
Xsys$library:vaxcrtl/share
$ CALL UNPACK [.FORTRAN.DEMO]VAXCRTL.OPT;2 1377640302
$ create 'f'
X
X       include 'sys$library:phigs$for_bnd_consts.for'
$ CALL UNPACK [.FORTRAN.DEMO]VMSPHIGS77.FOR;2 2133933384
$ create 'f'
X
X       include '`5B-.include`5Dptk77.h'
$ CALL UNPACK [.FORTRAN.DEMO]VMSPTK77.FOR;3 1080313580
$ create 'f'
XC include file for fortran interface of PHIGS Toolkit`20
X
XC toolkit types`20
X
XC axis types
X
X       INTEGER*4  PTKEXAXIS
X       PARAMETER (PTKEXAXIS = 1)
X       INTEGER*4  PTKEYAXIS
X       PARAMETER (PTKEYAXIS = 2)
X       INTEGER*4  PTKEZAXIS
X       PARAMETER (PTKEZAXIS = 3)
X
XC colour lightness
X
X       INTEGER*4  PTKEVERYDARK
X       PARAMETER (PTKEVERYDARK = 0)
X       INTEGER*4  PTKEDARK
X       PARAMETER (PTKEDARK = 1)
X       INTEGER*4  PTKEMEDIUM
X       PARAMETER (PTKEMEDIUM = 2)
X       INTEGER*4  PTKELIGHT
X       PARAMETER (PTKELIGHT = 3)
X       INTEGER*4  PTKEVERYLIGHT`20
X       PARAMETER (PTKEVERYLIGHT = 4)
X
XC colour saturation
X
X       INTEGER*4  PTKEGREYISH`20
X       PARAMETER (PTKEGREYISH = 0)
X       INTEGER*4  PTKEMODERATE
X       PARAMETER (PTKEMODERATE = 1)`20
X       INTEGER*4  PTKESTRONG
X       PARAMETER (PTKESTRONG = 2)
X       INTEGER*4  PTKEVIVID
X       PARAMETER (PTKEVIVID = 3)
X
XC menu types
X
X       INTEGER*4 PTKEUSERMENU
X       PARAMETER (PTKEUSERMENU = 0)
X       INTEGER*4 PTKEBOXMENU
X       PARAMETER (PTKEBOXMENU = 1)
X
XC rotator dimension
X
X       INTEGER*4 PTKEONED
X       PARAMETER (PTKEONED = 0)
X       INTEGER*4 PTKETWOD
X       PARAMETER (PTKETWOD = 1)
X       INTEGER*4 PTKETHREED
X       PARAMETER (PTKETHREED = 2)
X
XC topology types
X
X       INTEGER*4   PTKEBOXTOPOLOGY
X       PARAMETER (PTKEBOXTOPOLOGY = 0)
X       INTEGER*4   PTKESTRUCTTOPOLOGY
X       PARAMETER (PTKESTRUCTTOPOLOGY = 1)
X       INTEGER*4   PTKESTRUCTNETTOPOLOGY
X       PARAMETER (PTKESTRUCTNETTOPOLOGY = 2)
X
XC topology nodes
X
X       INTEGER*4   PTKESINGLE
X       PARAMETER (PTKESINGLE = 0)
X       INTEGER*4   PTKEGROUP
X       PARAMETER (PTKEGROUP = 1)
X
XC window types
X
X       INTEGER*4   PTKESTRUCTWINDOW
X       PARAMETER (PTKESTRUCTWINDOW = 0)
X       INTEGER*4   PTKETERMINALWINDOW
X       PARAMETER (PTKETERMINALWINDOW = 1)
X       INTEGER*4   PTKETOPOLOGYWINDOW
X       PARAMETER (PTKETOPOLOGYWINDOW = 2)
X       INTEGER*4   PTKECONTENTWINDOW
X       PARAMETER (PTKECONTENTWINDOW = 3)
X
XC window areas
X
X       INTEGER*4   PTKEWINDOWBANNER
X       PARAMETER (PTKEWINDOWBANNER = 0)
X       INTEGER*4   PTKEWINDOWFRAME
X       PARAMETER (PTKEWINDOWFRAME = 1)
X       INTEGER*4   PTKEWINDOWVIEW
X       PARAMETER (PTKEWINDOWVIEW = 2)
X       INTEGER*4   PTKEWINDOWICON
X       PARAMETER (PTKEWINDOWICON = 3)
X
XC window state
X
X       INTEGER*4   PTKEWINDOWOPEN
X       PARAMETER (PTKEWINDOWOPEN = 0)
X       INTEGER*4   PTKEWINDOWCLOSED
X       PARAMETER (PTKEWINDOWCLOSED = 1)
X
XC camera state
X
X       INTEGER*4   PTKECAMERAON
X       PARAMETER (PTKECAMERAON = 0)
X       INTEGER*4   PTKECAMERAOFF
X       PARAMETER (PTKECAMERAOFF = 1)
X
XC end of ptk77.h
$ CALL UNPACK [.FORTRAN.INCLUDE]PTK77.H;2 305227161
$ create 'f'
X$
X$! Creating ptk77.olb
X$
X$ for `5B-.source.library`5Dtran.for
X$ for `5B-.source.library`5Dhash.for
X$ for `5B-.source.library`5Dplib.for
X$ for `5B-.source.library`5Dcns.for
X$ for `5B-.source.library`5Dmenu.for
X$ for `5B-.source.library`5Dphin.for
X$ for `5B-.source.library`5Dtopo.for
X$ for `5B-.source.library`5Dstct.for
X$ for `5B-.source.library`5Dmisc.for
X$ for `5B-.source.library`5Dtsl.for
X$ for `5B-.source.library`5Dwind.for
X$ for `5B-.source.library`5Ddbug.for
X$ for `5B-.source.library`5Dview.for
X$ cc/include_directory=`5B-.-.include`5D `5B-.source.library`5Dftoc.c
X$ library/create/log ptk77
X$ library/log ptk77 tran.obj
X$ library/log ptk77 hash.obj
X$ library/log ptk77 plib.obj
X$ library/log ptk77 cns.obj
X$ library/log ptk77 menu.obj
X$ library/log ptk77 phin.obj
X$ library/log ptk77 topo.obj
X$ library/log ptk77 stct.obj
X$ library/log ptk77 misc.obj
X$ library/log ptk77 tsl.obj
X$ library/log ptk77 wind.obj
X$ library/log ptk77 dbug.obj
X$ library/log ptk77 view.obj
X$ library/log ptk77 ftoc.obj
X$ purge
$ CALL UNPACK [.FORTRAN.LIBRARY]INSTALL.COM;1 992414676
$ create 'f'
X#
X# makefile for the Fortran PHIGS Toolkit library.
X# J.G. Williams 14/12/90
X#
X
XSRCDIR = `5B-.source.library`5D
X
X#DBG = /debug/noopt
XDBG =
X
XFFLAGS = $(DBG)
X
XCFLAGS = $(DBG)/include_directory\=`5B-.-.include`5D
X
Xptk77.olb: tran.obj hash.obj plib.obj cns.obj menu.obj \
X             phin.obj topo.obj stct.obj misc.obj tsl.obj \
X             wind.obj dbug.obj view.obj ftoc.obj
X`09library/create/log ptk77
X        library/log ptk77 tran.obj
X        library/log ptk77 hash.obj
X        library/log ptk77 plib.obj
X        library/log ptk77 cns.obj
X        library/log ptk77 menu.obj
X        library/log ptk77 phin.obj
X        library/log ptk77 topo.obj
X        library/log ptk77 stct.obj
X        library/log ptk77 misc.obj
X        library/log ptk77 tsl.obj
X        library/log ptk77 wind.obj
+-+-+-+-+-+-+-+-  END  OF PART 144 +-+-+-+-+-+-+-+-