!	Example program to demonstrate Graphic Drawing Primitives
	PROGRAM GPE8
	INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'
	CALL ORIENT('PORTRAIT')	! This must come before device call
	CALL GSTART
	CALL AREA2D(7.0,8.5)
	CALL DUPLX
	CALL HEADIN('GPLOT Example 8$',100,2.0,2)
	CALL HEADIN('Graphic Drawing Primitives$',100,2.0,2)
	CALL LOGO(6.0,8.5,2.0)                ! Draw IPNS Logo
	CALL GSFAIS(GSOLID)	              ! Set filling to be hatched
	CALL CIRCLE (4.5,7.0,1.0,0.0)          ! Draw filled circle
	CALL ELLIPS(2.0,1.5,1.5,0.5,45.,2.0)  ! Draw open ellipse at 45 degrees
	CALL GSFAIS(GHATCH)	              ! Set filling to be hatched
	CALL ELLIPS(5.0,1.5,1.5,0.5,45.,0.0)  ! Draw filled ellipse
	CALL BLREC (3.0,3.0,3.0,2.0,4.0)      ! Draw open rectangle
	CALL BLREC (3.5,3.5,2.0,1.0,0.0)      ! Draw filled rectangle
!	Note that fill pattern increments automatically
	CALL BLTREC(4.5,3.0,3.0,2.0,45.0,4.0) ! Draw tilted rectangle
	CALL BLTREC(1.5,3.0,3.0,2.0,45.0,0.0) ! Same, filled
	CALL NEWCLR('GREEN')                  ! Change colors
	CALL BLCIR (2.0,7.0,1.0,1.0)          ! Draw open circle
	CALL GSFAIS(GSOLID)                   ! Set filling to be solid

	CALL ENDPL(1)
	CALL GSTOP

	CALL EXIT
	END