1.7.1. TRACÉ D'UN CERCLE

	program p71
	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 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

Certaines caractéristiques de la fenêtre (comme ses dimensions et son titre) sont spécifiées dans un fichier lu à l'ouverture de PHIGURE. Ce fichier s'appelle par défaut GPHIGS.def et est recherché par PHIGURE dans le répertoire courant d'exécution du programme. Pour changer le nom de ce fichier de configuration, il suffit d'appeler la fonction PXNDEF avant l'appel de TOPPH

exemple

CALL PXNDEF ('toto.def')

le fichier de configuration est toto.def dans le répertoire courant de l'exécution

CALL PXNDEF ('/users/toto/toto.def')

le fichier de configuration est toto.def dans le répertoire /users/toto