1.8.2. DRAWING 2 AXES AND A CURVE WITH ANNOTATION ON THE POINTS

	program p82
	include 'PHIGS.H'

	integer scenid, wkid, viewid, segtid, xaxid,yaxid, listid(3)
	real viewpt(4), xp(5),yp(5)
	data wkid , viewid, scenid / 1,1, 10 /
	data segtid,xaxid,yaxid, listid /11,12,13, 11,12,13/
	data zoom   / 0.8 /
	data xmin,ymin, xmax,ymax  / 10.,10.,20.,20. /
	data viewpt /0.,1., 0.,1./
	data xp  /11.,14., 16.,18.,19./
	data yp  /12.,14., 13.,16.,15./

c---------------------------------------------------------------------

c	open PHIGURE and X-window type workstation */
	call topph (6)
	call topwk (wkid,30,8887)

c	define 2D working domain
	call tdoma2 (xmin,ymin, xmax,ymax)

c	build a structure with PHIGS
	call popst (segtid)
	call ppl (5,xp,yp)
	call psatal (PACENT,PABASE)
	call patr (xp(1),yp(1),0.,0.02,'P0')
	call patr (xp(2),yp(2),0.,0.02,'P1')
	call patr (xp(3),yp(3),0.,0.02,'P2')
	call patr (xp(4),yp(4),0.,0.02,'P3')
	call patr (xp(5),yp(5),0.,0.02,'P4')
	call pclst 

c	build 2 axes
	call taxyln (xaxid, 10.,10.,0., 20.0,0.0)
	call tayxln (yaxid, 10.,10.,0., 20.0,0.0)

c	define scene
	call TSCENE (scenid,3,listid,viewid)

c	define a centered 2D view 
	call tv2cen (wkid,viewid,0.5,0.5,zoom,viewpt)
	
c	display on workstation
	call ppost (wkid,scenid,1.0)
	call prst (wkid,PALWAY)

c	close workstation and PHIGURE 
	call tclwk (wkid)
	call tclph 
	end