1.7.2. TRACÉ D'UN CERCLE AVEC OCCUPATION DE TOUTE LA FENÊTRE

	program p72
	include 'PHIGS.H'

	integer circid, scenid, wkid, viewid
	real viewpt(4)
	data wkid , viewid, scenid, circid / 1,1, 10, 11 /
	data zoom, radius, xc,yc   / 1.0, 5.0, 15.,15. /
	data xmin,ymin, xmax,ymax  / 10.,10.,20.,20. /
	data viewpt /0.,1., 0.,1./
  
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'un cercle 
	call tccr2 (circid, xc,yc, radius)

	call tscene (scenid,1,circid,viewid)
   
c	definition d'une vue centree 2D 
	call tviewc (wkid,viewid,1,1)
	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

Ce programme est identique au P71 avec simplement l'appel suplémentaire à TVIEWC