1.8.1. TRACÉ DE 2 AXES ET DE SEGMENTS DE DROITE

	program p81
	include 'PHIGS.H'

	integer scenid, wkid, viewid, segtid, xaxid,yaxid, listid(3)
	real viewpt(4), xp1(2),yp1(2), xp2(2),yp2(2)
	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 xp1, xp2 /12.,14., 17.,18./
	data yp1, yp2 /13.,14., 18.,17./

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 (2,xp1,yp1)
	call ppl (2,xp2,yp2)
	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