1.7.5. TRACÉ D'UN CERCLE ET 2 AXES LINÉAIRES, ET CRÉATION D'UN FICHIER POSTSCRIPT

	program p75
	include 'PHIGS.H'

	integer circid, wkid,wkip, viewid, scenid,xaxid,yaxid, listid(3)
	real viewpt(4)
	data wkid,wkip, viewid, scenid, circid / 1,2, 1, 10, 11 /
	data xaxid,yaxid, listid /12,13, 11,12,13/
	data zoom, radius, xc,yc   / 0.8, 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	attribut de l'axe x
	call tsaxlb (xaxid, PON, 2,1, 0.0, 'X-axis')

c	construction des deux axes
	call taxyln (xaxid, 10.,10.,0., 20.0,0.0)
	call tayxln (yaxid, 10.,10.,0., 20.0,0.0)

c	insertion d'un attribut type de ligne dans la structure xaxid
	call tsln (xaxid, -1, PLDASH)

c	construction d'un cercle 
	call tccr2 (circid, xc,yc, radius)

	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)

c	generation d'un fichier PostScript     
	open (30,file='PostScript_file',status='unknown')
	call topwk (wkip,30,80791)
	call tv2cen (wkip,viewid,0.5,0.5,zoom,viewpt)
	call ppost (wkip,scenid,1.0)
	call prst (wkip,PALWAY)
	call tclwk (wkip)

	call tclph 
	end

Pour générer un fichier PostScript correspondant à l'image précédente, il suffit d'utiliser un poste de travail de type PostScript (8079x) et suivre les règles suivantes :

définir un deuxième identificateur de poste de travail PostScript_id

ouvrir le poste de travail PostScript TOPWK (PostScript_id, ...)

définir une vue sur ce poste TV2CEN (par exemple)

poster les structures à voir PPOST (PostScript_id, ...)

tracer les structures postées PRST (PostScript_id, ...)

fermer le fichier généré TCLWK (PostScript_id, ...)

En général, si le fichier PostScript doit correspondre exactement à l'image obtenu par un premier poste de travail WKID, il suffit de dupliquer tous les appels dont le premier paramètre est WKID .