-+-+-+-+-+-+-+-+ START OF PART 183 -+-+-+-+-+-+-+-+
Xextern void ptk_boxtobox ARGS((  Plimit *  box1,   Plimit *  box2,
X                             ptkboolean  preserve,   Pcomptype  operation,
X                             Pmatrix  matrix,   Pint * error));
X
Xextern void ptk_accumulatetran3 ARGS((  Ppoint3 *  fixed,   Ppoint3 *  shift
V,
X                                  Pfloat  rotx,   Pfloat  roty,
X                                  Pfloat  rotz,   Ppoint3 *  scale,
X                                  Pcomptype  operation,
X                                  Pmatrix3  matrix));
X
Xextern void ptk_accumulatetran ARGS((  Ppoint *  fixed,   Ppoint *  shift,
X                                  Pfloat  rot,   Ppoint *  scale,
X                                  Pcomptype  operation,
X                                  Pmatrix  matrix));
X
Xextern void ptk_evalvieworientation3 ARGS((  Ppoint3 *  viewrefpoint,
X                                      Ppoint3 *  viewplanenormal,
X`09`09`09`09      Ppoint3 *  viewupvector,
X                                      Pcomptype  operation,
X                                      Pmatrix3  matrix,   Pint * error));
X
Xextern void ptk_evalvieworientation ARGS((  Ppoint *  viewrefpoint,
X`09`09`09`09      Ppoint *  viewupvector,
X                                      Pcomptype  operation,
X                                      Pmatrix  matrix,   Pint * error));
X
Xextern void ptk_evalviewmapping3 ARGS((  Plimit3 *  wlimits,   Plimit3 *  vl
Vimits,
X                                  Pprojtype  viewtype,
X                                  Ppoint3 *  refpoint,   Pfloat  vplanedist,
X                                  Pcomptype  operation,   Pmatrix3  matrix,
X                                  Pint * error));
X
Xextern void ptk_evalviewmapping ARGS((  Plimit *  wlimits,   Plimit *  vlimi
Vts,
X                                  Pcomptype  operation,   Pmatrix  matrix,
X                                  Pint * error));
X
Xextern void ptk_stackmatrix3 ARGS((  Pmatrix3  matrix));
X
Xextern void ptk_stackmatrix ARGS((  Pmatrix  matrix));
X
Xextern void ptk_unstackmatrix3 ARGS((  Pmatrix3  matrix));
X
Xextern void ptk_unstackmatrix ARGS((  Pmatrix  matrix));
X
Xextern void ptk_examinestackmatrix3 ARGS((  Pmatrix3  matrix));
X
Xextern void ptk_examinestackmatrix ARGS((  Pmatrix  matrix));
X
Xextern void ptk_3ptto3pt ARGS((  Ppoint3 *  p1,   Ppoint3 *  p2,   Ppoint3 *
V  p3,
X                           Ppoint3 *  q1,   Ppoint3 *  q2,   Ppoint3 *  q3,
X                           Pcomptype  operation,   Pmatrix3  matrix,
X                           Pint * error));
X
Xextern void ptk_0to3pt ARGS((  Ppoint3 *  origin,   Ppoint3 *  xdirn,
X                Ppoint3 *  ydirn,   Pcomptype  operation,   Pmatrix3  matrix
V));
X
Xextern void ptk_oto3pt ARGS((  Ppoint3 *  origin,   Ppoint3 *  xdirn,
X               Ppoint3 *  ydirn,   Pcomptype  operation,   Pmatrix3  matrix)
V);
X
Xextern void ptk_invertmatrix3 ARGS((  Pmatrix3  a,   Pmatrix3  ainverse,
X                                Pint * error));
X
Xextern void ptk_invertmatrix ARGS((  Pmatrix  a,   Pmatrix  ainverse,
X                                Pint *  error));
$ CALL UNPACK [.INCLUDE]TRANFNS.H;1 1264212047
$ create 'f'
X#ifndef _TRANTYPE_
X#define _TRANTYPE_
X
X#define ptkcpceps           1.0e-7
X
X#define ptkcpcok            0
X
Xtypedef enum
X`7B
X  PTKEXAXIS = 1,
X  PTKEYAXIS,
X  PTKEZAXIS
X`7D ptkeaxistype;
X
X#ifdef SUN
X#ifdef PHIGS_H_INCLUDED
X#define PHIGS_INCLUDE
X#endif
X#endif
X
X#ifdef VMS
X#ifdef PHIGS_H
X#define PHIGS_INCLUDE
X#endif
X#endif
X
X#ifndef PHIGS_INCLUDE
X
Xtypedef float Pfloat;
X
X#ifdef __TURBOC__
Xtypedef long   Pint;
X#else
Xtypedef int   Pint;
X#endif
X
Xtypedef long Plong;
Xtypedef char Pchar;
X
Xtypedef Pfloat Pmatrix`5B3`5D`5B3`5D;
Xtypedef Pfloat Pmatrix3`5B4`5D`5B4`5D;
X
X/* Enumerated types */
X
Xtypedef enum
X`7B
X PPARALLEL,
X PPERSPECTIVE
X`7D Pprojtype;
X
Xtypedef enum
X`7B
X PPRECONCATENATE,
X PPOSTCONCATENATE,
X PREPLACE
X`7D Pcomptype;
X
Xtypedef struct
X`7B
X  Pfloat x;
X  Pfloat y;
X`7D Pvector;
X
Xtypedef struct
X`7B
X  Pfloat x;
X  Pfloat y;
X  Pfloat z;
X`7D Pvector3;
X
Xtypedef struct
X`7B
X  Pfloat x;
X  Pfloat y;
X`7D Ppoint;
X
Xtypedef struct
X`7B
X  Pfloat x;
X  Pfloat y;
X  Pfloat z;
X`7D Ppoint3;
X
Xtypedef struct
X`7B
X  Pfloat xmin;
X  Pfloat xmax;
X  Pfloat ymin;
X  Pfloat ymax;
X`7D Plimit;
X
Xtypedef struct
X`7B
X  Pfloat xmin;
X  Pfloat xmax;
X  Pfloat ymin;
X  Pfloat ymax;
X  Pfloat zmin;
X  Pfloat zmax;
X`7D Plimit3;
X
Xtypedef struct`20
X`7B
X  Pfloat x;
X  Pfloat y;
X  Pfloat z;
X  Pfloat w;
X#ifdef SUN
X`7D Ppoint4;
X#endif
X#ifdef VMS
X`7D PPpoint4;
X#endif
X
X
X#endif
X
Xextern Pfloat ptkveps;
X
X#endif
X
X/* End. */
$ CALL UNPACK [.INCLUDE]TRANTYPE.H;2 963245653
$ create 'f'
X/* This is file include/tslfns.h created by Extract */
X/* Date: */
X
X/*-------------------------------*/
X/*  Including from:source/library/tsl.c  */
X
Xextern void ptk_stackbbox ARGS((  void ));
X
Xextern void ptk_unstackbbox ARGS((  void ));
X
Xextern void ptk_stacktsl ARGS((  void ));
X
Xextern void ptk_unstacktsl ARGS((  void ));
X
Xextern ptkboolean ptk_boundingbox ARGS((  Pint  structid,   Plimit3 *  wcbou
Vnds,
X                                 ptkboolean  descend));
X
Xextern void ptk_inittsl ARGS((  void ));
X
Xextern void ptk_initbbox ARGS((  void ));
X
Xextern void ptk_tsltraversepath ARGS((  Pexecreflst *  reflst));
X
Xextern void ptk_tsltraverserange ARGS((  Pint  startstid,   Pint  startelemi
Vd,
X                       Pint  stopstid,   Pint  stopelemid,   ptkboolean  des
Vcend));
X
Xextern void ptk_settslstart ARGS((  Pint  startstid,   Pint  startelemid));
X
Xextern void ptk_tsltraversenext ARGS((  void ));
X
Xextern void ptk_tsltraversetoend ARGS((  void ));
X
Xextern void ptk_inqboundingbox ARGS((  Plimit3 *  bbox));
X
Xextern void ptk_inqtsledge ARGS((  Pint *  edgeind,   Pedgef *  edgeflag,
X             Pint *  edgetype,   Pfloat *  edgewidth,   Pint *  edgecolour))
V;
X
Xextern void ptk_inqtslline ARGS((  Pint *  lineind,   Pint *  linetype,
X                             Pfloat *  linewidth,   Pint *  linecolour));
X
Xextern void ptk_inqtslmarker ARGS((  Pint *  markerind,   Pint *  markertype
V,
X                             Pfloat *  markersize,   Pint *  markercolour));
X
Xextern void ptk_inqtslinterior ARGS((  Pint *  intind,   Pint *  intstyle,
X                             Pint *  intstyleind,   Pint *  intcolour));
X
Xextern void ptk_inqtsltext ARGS((  Pint *  textind,   Pint *  textfont,
X                             Ptxprec *  textprec,   Ptxpath *  textpath,
X                             Ptxalign *  textalign,   Pint *  textcolour));
X
Xextern void ptk_inqtslannotext ARGS((  Pint *  style,   Pfloat *  charheight
V,
X                             Ppoint *  charup,   Ptxalign *  textalign,
X                             Ptxpath *  textpath));
X
Xextern void ptk_inqtslchar ARGS((  Pfloat *  exp,   Pfloat *  spacing,
X                             Pfloat *  height,   Ppoint *  charup));
X
Xextern void ptk_inqtslctm ARGS((  Pmatrix3  globaltran,   Pmatrix3  localtra
Vn));
X
Xextern void ptk_inqtslnameset ARGS((  Pint  size,   Pintlst *  nameset,
X                                Pint *  totalsize));
X
Xextern void ptk_inqtslids ARGS((  Pint *  pickid,   Pint *  hlhsrid,
X                            Pint *  viewind));
X
Xextern void ptk_inqtslpattern ARGS((  Ppoint *  size,   Ppoint3 *  refpt,
X                            Ppoint3 *  refvec));
X
Xextern void ptk_inqtslattrasf ARGS((  Pattrid  attr,   Pasf *  asf));
$ CALL UNPACK [.INCLUDE]TSLFNS.H;1 1969433594
$ create 'f'
X/* types from tsl.c */
X
X#ifndef _TSLTYPE_
X#define _TSLTYPE_
X
Xtypedef struct ptkstsl
X`7B
X  Plnattr lnattr;
X  Pmkattr mkattr;
X  Pinterattr interattr;
X  Pedgeattr edgeattr;
X  Pasf edgetypeasf;
X  Ptxbundl txbundl;
X  Pint textindex;
X  Pasf textfontasf;
X  Pasf textprecasf;
X  Pasf charexpanasf;
X  Pasf charspaceasf;
X  Pasf textcolourasf;
X  Pfloat charheight;
X  Ppoint charup;
X  Ptxpath textpath;
X  Ptxalign textalign;
X  Pfloat annocharheight;
X  Ppoint annocharup;
X  Ptxpath annotextpath;
X  Ptxalign annotextalign;
X  Pint annostyle;
X  Ppoint patsize;
X  Ppoint3 patrefpt;
X  Ppoint3 patvec`5B2`5D;
X  Pint pickid;
X  Pint viewindex;
X  Pint hlhsrid;
X  Pintlst nameset;
X  Pmatrix3 globaltran;
X  Pmatrix3 localtran;
X#ifdef SUN
X  Pint modelclipoperator;
X  Phalfspacelst3 modelclipvolume;
X  Pclip modelclipindicator;
X#endif
X`7D ptkstsl;
X
X#endif
X
X/* end of tsltype.h */
$ CALL UNPACK [.INCLUDE]TSLTYPE.H;1 460198761
$ create 'f'
X/* This is file include/viewfns.h created by Extract */
X/* Date: */
X
X/*-------------------------------*/
X/*  Including from:source/library/view.c  */
X
Xextern void ptk_vieweditor ARGS((  Pint  wsid,   Pintlst *  stids,
X                             Pviewrep3 *  rep));
X
Xextern void ptk_setvieweditorattrs ARGS((  Pint  menufont,   Pint  windowfon
Vt,
X                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_inqvieweditorattrs ARGS((  Pint *  menufont,   Pint *  windo
Vwfont,
X             Pint *  menucol,   Pint *  menutextcol,   Pint *  windowcol,
X             Pint *  bannercol,   Pint *  bannertextcol,   Pint *  tlcol,
X             Pint *  brcol,   Pint *  arrowcol,   Pint *  arrowedgecol));
$ CALL UNPACK [.INCLUDE]VIEWFNS.H;1 1282373788
$ create 'f'
X/* This is file include/windfns.h created by Extract */
X/* Date: */
X
X/*-------------------------------*/
X/*  Including from:source/library/wind.c  */
X
Xextern void ptk_rotatecameraposition ARGS((  Pint  windid,   Pfloat  angle))
V;
X
Xextern void ptk_setpositionaxis ARGS((  Pint  windid,   Ppoint3 *  axis));
X
Xextern void ptk_setptinterestaxis ARGS((  Pint  windid,   Ppoint3 *  axis));
X
Xextern void ptk_scaleviewwindow ARGS((  Pint  windid,   Pfloat  scalefactor)
V);
X
Xextern void ptk_rotatecameraptinterest ARGS((  Pint  windid,   Pfloat  angle
V));
X
Xextern void ptk_rotatecameraupvector ARGS((  Pint  windid,   Pfloat  angle))
V;
X
Xextern void ptk_rotatepositionyaxis ARGS((  Pint  windid,   Pfloat  angle));
X
Xextern void ptk_rotatepositionxaxis ARGS((  Pint  windid,   Pfloat  angle));
X
Xextern void ptk_rotateptinterestyaxis ARGS((  Pint  windid,   Pfloat  angle)
V);
X
Xextern void ptk_rotateptinterestxaxis ARGS((  Pint  windid,   Pfloat  angle)
V);
X
Xextern void ptk_setcameraposition ARGS((  Pint  windid,   Ppoint3 *  positio
Vn));
X
Xextern void ptk_setcameraptinterest ARGS((  Pint  windid,   Ppoint3 *  ptint
Verest));
X
Xextern void ptk_setcameraprojtype ARGS((  Pint  windid,   Pprojtype  proj));
X
Xextern void ptk_setcamerastate ARGS((  Pint  windid,
X                                 ptkecamerastate  cameraswitch));
X
Xextern void ptk_setcameraworld ARGS((  Pint  windid,   Pintlst *  stids));
X
Xextern void ptk_setcameralimits ARGS((  Pint  windid,   Plimit3 *  limits,
X                                  ptkboolean  adjust));
X
Xextern void ptk_resetcamera ARGS((  Pint  windid));
X
Xextern void ptk_inqcameraposition ARGS((  Pint  windid,   Ppoint3 *  positio
Vn,
X                                    Pint *  err));
X
Xextern void ptk_inqcameraptinterest ARGS((  Pint  windid,   Ppoint3 *  ptint
Verest,
X                                    Pint *  err));
X
Xextern void ptk_inqcameraprojtype ARGS((  Pint  windid,   Pprojtype *  projt
Vype,
X                                    Pint *  err));
X
Xextern void ptk_inqcamerastate ARGS((  Pint  windid,
X                    ptkecamerastate *  cameraswitch,   Pint *  err));
X
Xextern void ptk_inqcameralimits ARGS((  Pint  windid,   Plimit3 *  limits,
X                                    Pint *  err));
X
Xextern void ptk_inqpositionaxis ARGS((  Pint  windid,   Ppoint3 *  axis,
X                                    Pint *  err));
X
Xextern void ptk_inqptinterestaxis ARGS((  Pint  windid,   Ppoint3 *  axis,
X                                    Pint *  err));
X
Xextern void ptk_inqwindowviewrep ARGS((  Pint  windid,   Pviewrep3 *  rep,
X                                    Pint *  err));
X
Xextern void ptk_setvieworientation3 ARGS((  Pint  windid,   Ppoint3 *  vrp,
X              Ppoint3 *  vpn,   Ppoint3 *  vup,   Pint *  error));
X
Xextern void ptk_setviewmapping3 ARGS((  Pint  windid,   Plimit *  window,
X              Plimit3 *  viewport,   Pprojtype  proj,   Ppoint3 *  prp,
X              Pfloat  viewplane,   Pfloat  backplane,   Pfloat  frontplane,
X              Pint *  error));
X
Xextern void ptk_setviewclipping3 ARGS((  Pint  windid,   Plimit3 *  cliplims
V,
X              Pclip  clipxy,   Pclip  clipback,   Pclip  clipfront));
X
Xextern void ptk_createwindow ARGS((  Pint  wsid,   Pint  windid,   Ppoint *
V  size,
X                               Ppoint *  position,   Pchar *  titlestring));
X
Xextern void ptk_setwindowattrs ARGS((  Pint  windid,
X        Pint  titlefont,   Pint  titlecolour,   Pint  bannercolour,
X        Pint  backgdcolour,   Pint  edgecolour,
X        Pint  frametlcolour,   Pint  framebrcolour));
X
Xextern void ptk_posttowindow ARGS((  Pint  windid,   Pint  id));
X
Xextern void ptk_frontwindow ARGS((  Pint  windid));
X
Xextern void ptk_backwindow ARGS((  Pint  windid));
X
Xextern void ptk_unpostfromwindow ARGS((  Pint  windid,   Pint  id));
X
Xextern void ptk_unpostallfromwindow ARGS((  Pint  windid));
X
Xextern void ptk_postwindow ARGS((  Pint  windid));
X
Xextern void ptk_unpostwindow ARGS((  Pint  windid));
X
Xextern ptkboolean ptk_delwindow ARGS((  Pint  windid));
X
Xextern void ptk_openwindow ARGS((  Pint  windid));
X
Xextern void ptk_closewindow ARGS((  Pint  windid));
X
Xextern void ptk_setwindowposition ARGS((  Pint  windid,   Ppoint *  position
V));
X
Xextern void ptk_setwindowsize ARGS((  Pint  windid,   Ppoint *  size));
X
Xextern void ptk_setwindowtraninputpri ARGS((  Pint  windid,   Pint  refwindi
Vd,
X                                        Pvpri  priority));
X
Xextern void ptk_setframesize ARGS((  Pint  windid,   Ppoint *  size));
X
Xextern ptkboolean ptk_stringscanwindows ARGS((  Pint  wsid,   Pchar *  str,
X                                  Pint *  windowid));
+-+-+-+-+-+-+-+-  END  OF PART 183 +-+-+-+-+-+-+-+-