PROGRAM test_clipping

      PARAMETER (MaxPts = 101)

      INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'

      REAL xPts(MaxPts)                   

      REAL yPts(MaxPts)                   

      WsId    = 1

	WRITE(6,FMT='(''$Enter marker No.:'')')
	READ(5,FMT='(I5)') IMARK
      CALL GOPKS(5)                     ! open GKS with UNIT 5 as the error file

      CALL GOPWK(WsId,gconid,gwsdef)	! open Workstation with default conid

      CALL GACWK(WsId)
	CALL GSCLIP(GCLIP)

          do i=1,21
            xPts(i) = (i-1)*0.1
            yPts(i) = (i-1)*0.1
          enddo
          call GPL(101,xPts,yPts)
	  CALL GSMK(IMARK)
         call GPM(101,xPts,yPts)
	  CALL GUWK(WSID,1)
      read 100,nchar,ch
100	format(q,a)

      CALL GDAWK(WsId)
      CALL GCLWK(WsId)
      CALL GCLKS()

      END