-+-+-+-+-+-+-+-+ START OF PART 179 -+-+-+-+-+-+-+-+
X       END
X
X       SUBROUTINE ptkf_setterminalfloatformat(windid, rformat)
X       INTEGER windid
X       CHARACTER*(*) rformat
X       external ptkc_setterminalfloatformat`20
X
X       call ptkc_setterminalfloatformat(%val(windid), rformat)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqterminalfloatformat(windid, size, totalsize,`20
X     : rformat, err)
X       INTEGER windid, size, totalsize
X       CHARACTER*(*) rformat
X       INTEGER err
X       external ptkc_inqterminalfloatformat`20
X
X       call ptkc_inqterminalfloatformat(%val(windid), %val(size),
X     : totalsize, rformat, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqterminalstructid(windid, termwinstid, err)
X       INTEGER windid, termwinstid, err
X       external ptk_inqterminalstructid`20
X
X       call ptk_inqterminalstructid(%val(windid), termwinstid, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqterminaldata(windid, numlines, numcolumns,
X     : txfont, txcolour, err)
X       INTEGER windid, numlines, numcolumns, txfont, txcolour, err
X       external ptk_inqterminaldata
X
X       call ptk_inqterminaldata(%val(windid), numlines, numcolumns,
X     : txfont, txcolour, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_scrollterminal(windid, scrolldir, numlines)
X       INTEGER windid, scrolldir, numlines
X       external ptk_scrollterminal`20
X
X       call ptk_scrollterminal(%val(windid), %val(scrolldir),`20
X     : %val(numlines))
X
X       RETURN
X       END
X
XC topology viewing functions`20
X
X       SUBROUTINE ptkf_settopologyviewarea(windid, viewarea)
X       INTEGER windid
X       REAL viewarea(4)
X       external ptk_settopologyviewarea`20
X
X       call ptk_settopologyviewarea(%val(windid), viewarea)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqtopologyviewarea(windid, viewarea, err)
X       INTEGER windid
X       REAL viewarea(4)
X       INTEGER err
X       external ptk_inqtopologyviewarea
X
X       call ptk_inqtopologyviewarea(%val(windid), viewarea, err)
X
X       RETURN
X       END
X
XC structure content viewing functions`20
X
X       SUBROUTINE ptkf_setcontentviewrange(windid, range1, range2)
X       INTEGER windid, range1, range2
X       external ptk_setcontentviewrange`20
X
X       call ptk_setcontentviewrange(%val(windid), %val(range1),`20
X     : %val(range2))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcontentviewrange(windid, range1, range2, err)
X       INTEGER windid, range1, range2, err
X       external ptk_inqcontentviewrange
X
X       call ptk_inqcontentviewrange(%val(windid), range1, range2, err)
X
X       RETURN
X       END
X
XC camera functions`20
X
X       SUBROUTINE ptkf_rotatecameraposition(windid, spinangle)
X       INTEGER windid
X       REAL spinangle
X       external ptkc_rotatecameraposition`20
X
X       call ptkc_rotatecameraposition(%val(windid), spinangle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setpositionaxis(windid, axis)
X       INTEGER windid
X       REAL axis(3)
X       external ptk_setpositionaxis`20
X
X       call ptk_setpositionaxis(%val(windid), axis)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setptinterestaxis(windid, axis)
X       INTEGER windid
X       REAL axis(3)
X       external ptk_setptinterestaxis`20
X
X       call ptk_setptinterestaxis(%val(windid), axis)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_scaleviewwindow(windid, scalefactor)
X       INTEGER windid
X       REAL scalefactor
X       external ptkc_scaleviewwindow`20
X
X       call ptkc_scaleviewwindow(%val(windid), scalefactor)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotatecameraptinterest(windid, swivelangle)
X       INTEGER windid
X       REAL swivelangle
X       external ptkc_rotatecameraptinterest`20
X
X       call ptkc_rotatecameraptinterest(%val(windid), swivelangle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotatecameraupvector(windid, twistangle)
X       INTEGER windid
X       REAL twistangle
X       external ptkc_rotatecameraupvector`20
X
X       call ptkc_rotatecameraupvector(%val(windid), twistangle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotatepositionxaxis(windid, angle)
X       INTEGER windid
X       REAL angle
X       external ptkc_rotatepositionxaxis
X
X       call ptkc_rotatepositionxaxis(%val(windid), angle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotatepositionyaxis(windid, angle)
X       INTEGER windid
X       REAL angle
X       external ptkc_rotatepositionyaxis
X
X       call ptkc_rotatepositionyaxis(%val(windid), angle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotateptinterestxaxis(windid, angle)
X       INTEGER windid
X       REAL angle
X       external ptkc_rotateptinterestxaxis
X
X       call ptkc_rotateptinterestxaxis(%val(windid), angle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_rotateptinterestyaxis(windid, angle)
X       INTEGER windid
X       REAL angle
X       external ptkc_rotateptinterestyaxis
X
X       call ptkc_rotateptinterestyaxis(%val(windid), angle)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcameraposition(windid, position)
X       INTEGER windid
X       REAL position(3)
X       external ptk_setcameraposition`20
X
X       call ptk_setcameraposition(%val(windid), position)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcameraptinterest(windid, ptinterest)
X       INTEGER windid
X       REAL ptinterest(3)
X       external ptk_setcameraptinterest`20
X
X       call ptk_setcameraptinterest(%val(windid), ptinterest)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcameraprojtype(windid, proj)
X       INTEGER windid, proj
X       external ptk_setcameraprojtype`20
X
X       call ptk_setcameraprojtype(%val(windid), proj)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcamerastate(windid, cameraswitch)
X       INTEGER windid
X       LOGICAL cameraswitch
X       LOGICAL*1 fcameraswitch
X       external ptk_setcamerastate`20
X
X       fcameraswitch = cameraswitch
X       call ptk_setcamerastate(%val(windid), %val(fcameraswitch))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcameraworld(windid, num, stids)
X       INTEGER windid, num, stids(num)
X       external ptkc_setcameraworld`20
X
X       call ptkc_setcameraworld(%val(windid), %val(num), stids)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setcameralimits(windid, limits, adjust)
X       INTEGER windid
X       REAL limits(6)
X       LOGICAL adjust
X       LOGICAL*1 fadjust
X       external ptk_setcameralimits`20
X
X       fadjust = adjust
X       call ptk_setcameralimits(%val(windid), limits, %val(fadjust))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_resetcamera(windid)
X       INTEGER windid
X       external ptk_resetcamera`20
X
X       call ptk_resetcamera(%val(windid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcameraposition(windid, position, err)
X       INTEGER windid
X       REAL position(3)
X       INTEGER err
X       external ptk_inqcameraposition
X
X       call ptk_inqcameraposition(%val(windid), position, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcameraptinterest(windid, ptinterest, err)
X       INTEGER windid
X       REAL ptinterest(3)
X       INTEGER err
X       external ptk_inqcameraptinterest
X
X       call ptk_inqcameraptinterest(%val(windid), ptinterest, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcameraprojtype(windid, projtype, err)
X       INTEGER windid, projtype, err
X       external ptk_inqcameraprojtype
X
X       call ptk_inqcameraprojtype(%val(windid), projtype, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcamerastate(windid, switch, err)
X       INTEGER windid, switch, err
X       external ptk_inqcamerastate
X
X       call ptk_inqcamerastate(%val(windid), switch, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqcameralimits(windid, limits, err)
X       INTEGER windid
X       REAL limits(6)
X       INTEGER err
X       external ptk_inqcameralimits
X
X       call ptk_inqcameralimits(%val(windid), limits, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqpositionaxis(windid, axis, err)
X       INTEGER windid
X       REAL axis(3)
X       INTEGER err
X       external ptk_inqpositionaxis
X
X       call ptk_inqpositionaxis(%val(windid), axis, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqptinterestaxis(windid, axis, err)
X       INTEGER windid
X       REAL axis(3)
X       INTEGER err
X       external ptk_inqptinterestaxis
X
X       call ptk_inqptinterestaxis(%val(windid), axis, err)
X
X       RETURN
X       END
X
X`09SUBROUTINE ptkf_inqwindowviewrep(windid,`20
X     *  vwormt, vwmpmt, vwcplm, xyclpi, bclipi, fclipi, err)
X     `09INTEGER windid      !        window identifier
X     `09REAL vwormt(4,4)  !        view orientation matrix
X     `09REAL vwmpmt(4,4)  !        view mapping matrix
X     `09REAL vwcplm(6)    !        view clipping limits (NPC)
X                          !        xmin,xmax,ymin,ymax,zmin,zmax
X     `09INTEGER xyclpi    !        x-y clipping indicator (PNCLIP,PCLIP)
X     `09INTEGER bclipi    !        back clipping indicator (PNCLIP,PCLIP)
X     `09INTEGER fclipi    !        front clipping indicator (PNCLIP,PCLIP)
X        INTEGER err
X`09EXTERNAL ptkc_inqwindowviewrep
X
X`09CALL ptkc_inqwindowviewrep(%val(windid),
X     *  vwormt, vwmpmt, vwcplm, xyclpi, bclipi, fclipi, err)
X
X`09RETURN
X`09END
X
XC viewing functions`20
X
X       SUBROUTINE ptkf_setvieworientation3(windid, vrp, vpn, vup, error)
X       INTEGER windid
X       REAL vrp(3), vpn(3), vup(3)
X       INTEGER error
X       external ptk_setvieworientation3`20
X
X       call ptk_setvieworientation3(%val(windid), vrp, vpn, vup, error)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setviewmapping3(windid, window, viewport,`20
X     : proj, prp, viewplane, backplane, frontplane, error)
X       INTEGER windid
X       REAL window(4), viewport(6)
X       INTEGER proj
X       REAL prp(3), viewplane, backplane, frontplane
X       INTEGER error
X       external ptkc_setviewmapping3`20
X
X       call ptkc_setviewmapping3(%val(windid), window, viewport,`20
X     : %val(proj), prp, viewplane, backplane, frontplane, error)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setviewclipping3(windid, cliplims, clipxy,`20
X     : clipback, clipfront)
X       INTEGER windid
X       REAL cliplims(6)
X       INTEGER clipxy, clipback, clipfront
X       external ptk_setviewclipping3`20
X
X       call ptk_setviewclipping3(%val(windid), cliplims, %val(clipxy),
X     : %val(clipback), %val(clipfront))
X
X       RETURN
X       END
X
XC window type functions`20
X
X       SUBROUTINE ptkf_setwindowtype(windid, windtype)
X       INTEGER windid, windtype
X       external ptk_setwindowtype`20
X
X       call ptk_setwindowtype(%val(windid), %val(windtype))
X
X       RETURN
X       END
X
X
XC end of wind.f
$ CALL UNPACK [.FORTRAN.SOURCE.LIBRARY]WIND.FOR;1 675481693
$ create 'f'
X/* This is file include/cnsfns.h created by Extract */
X/* Date: */
X
X/*-------------------------------*/
X/*  Including from:source/library/cns.c  */
X
Xextern void ptk_hsltorgb ARGS((  Pcobundl *  hsl,   Pcobundl *  rgb));
X
Xextern void ptk_rgbtohsl ARGS((  Pcobundl *  rgb,   Pcobundl *  hsl));
X
Xextern void ptk_hsvtorgb ARGS((  Pcobundl *  hsv,   Pcobundl *  rgb));
X
Xextern void ptk_rgbtohsv ARGS((  Pcobundl *  rgb,   Pcobundl *  hsv));
X
Xextern ptkboolean ptk_cnstorgb ARGS((  Pchar *  colourname,   Pcobundl *  rg
Vb));
X
Xextern ptkboolean ptk_cnstohsl ARGS((  Pchar *  colourname,   Pcobundl *  hs
Vl));
X
Xextern ptkboolean ptk_cnstohsv ARGS((  Pchar *  colourname,   Pcobundl *  hs
Vv));
X
Xextern void ptk_setcnsdefaults ARGS((  ptkelightness  lightness,
X                                 ptkesaturation  saturation));
X
Xextern void ptk_inqcnsdefaults ARGS((  ptkelightness *  lightness,
X                                 ptkesaturation *  saturation));
X
Xextern void ptk_setupcolourtable ARGS((  Pint  wsid,   Pint  num,
X                                   Pchar **  colournames));
X
Xextern void ptk_setcolourrep ARGS((  Pint  wsid,   Pchar *  colourname));
X
Xextern void ptk_setrgbcolourname ARGS((  Pchar *  colourname,   Pcobundl *
V  rgb));
X
Xextern void ptk_setbackgroundcolourind ARGS((  Pint  wsid,   Pint  index));
X
Xextern void ptk_setbackgroundcolour ARGS((  Pint  wsid,   Pchar *  colournam
Ve));
X
Xextern void ptk_setlinecolour ARGS((  Pint  wsid,   Pchar *  colourname));
X
Xextern void ptk_setmarkercolour ARGS((  Pint  wsid,   Pchar *  colourname));
X
Xextern void ptk_setintcolour ARGS((  Pint  wsid,   Pchar *  colourname));
X
Xextern void ptk_setedgecolour ARGS((  Pint  wsid,   Pchar *  colourname));
X
Xextern void ptk_settextcolour ARGS((  Pint  wsid,   Pchar *  colourname));
$ CALL UNPACK [.INCLUDE]CNSFNS.H;1 1142034415
$ create 'f'
X/* types from menu.c */
X
X#ifndef _CNSTYPE_
X#define _CNSTYPE_
X
Xtypedef enum`20
X`7B
X  PTKEVERYDARK,`20
X  PTKEDARK,
X  PTKEMEDIUM,
X  PTKELIGHT,
X  PTKEVERYLIGHT`20
X`7D ptkelightness;
X
Xtypedef enum`20
X`7B
X  PTKEGREYISH,`20
X  PTKEMODERATE,`20
X  PTKESTRONG,
X  PTKEVIVID
X`7D ptkesaturation;
X
X#endif
X
X/* end of cnstype.h */
$ CALL UNPACK [.INCLUDE]CNSTYPE.H;1 1635759562
$ create 'f'
X/* This is file include/dbugfns.h created by Extract */
X/* Date: */
X
X/*-------------------------------*/
X/*  Including from:source/library/dbug.c  */
X
Xextern void ptk_debugger ARGS((  Pint  wsid,   Pint  stid));
X
Xextern void ptk_setdebuggerattrs ARGS((  Pint  menufont,
X                Pint  windowfont,   Pint  menucol,   Pint  menutextcol,
X                Pint  windowcol,   Pint  bannercol,   Pint  bannertextcol,
X         Pint  tlcol,   Pint  brcol,   Pint  arrowcol,   Pint  arrowedgecol)
V);
X
Xextern void ptk_inqdebuggerattrs ARGS((  Pint *  menufont,   Pint *  windowf
Vont,
X             Pint *  menucol,   Pint *  menutextcol,   Pint *  windowcol,
X             Pint *  bannercol,   Pint *  bannertextcol,   Pint *  tlcol,
X             Pint *  brcol,   Pint *  arrowcol,   Pint *  arrowedgecol));
$ GOTO PART180