1.8.2. TRACÉ DE 2 AXES ET D'UNE COURBE AVEC ANNOTATION QUELCONQUE DES 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	ouverture de PHIGURE et du poste de travail */
	call topph (6)
	call topwk (wkid,30,8887)

c	definition du domaine 2D de travail
	call tdoma2 (xmin,ymin, xmax,ymax)

c	construction d'une structure par 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	construction de deux axes
	call taxyln (xaxid, 10.,10.,0., 20.0,0.0)
	call tayxln (yaxid, 10.,10.,0., 20.0,0.0)

	call tscene (scenid,3,listid,viewid)

c	definition d'une vue centree 2D 
	call tv2cen (wkid,viewid,0.5,0.5,zoom,viewpt)
	
c	trace sur le poste de travail 
	call ppost (wkid,scenid,1.0)
	call prst (wkid,PALWAY)

c	fermeture du poste de travail et de PHIGURE 
	call tclwk (wkid)
	call tclph 
	end