polylineset.f

Intro/: Directory containing introductory examples. HelloWorld.c A simple program that draws a bo

$alias fdopen='fdopen'(%val,%ref)
      include 'phigs.f1.h'			! get the HP-PHIGS aliases
      program PolylineSet			! program "PolylineSet.f"
      include 'phigs.f2.h'			! get the HP-PHIGS constants

      integer*4	WorkstnID			! workstation identifier
      parameter (WorkstnID=1)			! value chosen by the user
      integer*4	ConnID				! connection identifier
      integer*4	WorkstnType			! workstation type
      parameter (WorkstnType=POIDDX)		! out/in, direct, dbl bfr, X
      integer*4	TheCurve			! display list structure root
      parameter (TheCurve=1)			! value chosen by the user
      real	X(100), Y(100)			! points for polyline
      integer*4	LastVerts(25)			! final points in polylines
      integer*4	I, J, K				! loop control variables
      real	Theta, Radius			! temporary variables

      real	rad, deg			! type the statement function
      integer*4 fdopen				! to get file descriptor
      rad(deg)=	((deg)*3.14159265358979/180.)	! convert degrees to radians

      call popph(fdopen(fnum(7), 'w'//char(0)), 0)	! open phigs
      call pue004('/dev/screen/phigs_window', ConnID)	! get connection ID
      call popwk(WorkstnID, ConnID, WorkstnType)! open workstation
      call popst(TheCurve)			! open display list structure
      do I=1, 25				! for each triangle...
          Radius=I*.04				! each one larger than last
          do J=1, 4				! for each vertex...
              Theta=rad((J-1)*120.+(I-1)*4.)	! angle of vertex from center
              K=(I-1)*4+J			! calculate index into array
              X(K)=(Radius*cos(Theta)+1)*.5	! \  convert polar coords
              Y(K)=(Radius*sin(Theta)+1)*.5	! /  to rectangular coords
          end do
          LastVerts(I)=I*4			! last vertex of this polyline
      end do
      call pu014(100, X, Y, 25, LastVerts)	! polyline set
      call pclst				! close display list structure
      call ppost(WorkstnID, TheCurve, 1.)	! mark structure for display
      call puwk(WorkstnID, PPERFO)		! update the workstation
      call pclwk(WorkstnID)			! close workstation
      call pclph				! close phigs
      stop					! stop processing
      end					! end of program