1.7.7. TRACÉ D'UN PARALLÉLÉPIPÈDE SUR 2 POSTES DE TRAVAIL

	program p77
	include 'PHIGS.H'

	integer wkid1,wkid2, viewid, scenid,cubid,systid, listid(2)
	real viewpt(6)
	data wkid1,wkid2, viewid, scenid  / 1,2, 1, 10/
	data cubid,systid,listid /11,12, 11,12/
	data zoom                  / 1.0 /
	data xmin,ymin,zmin, xmax,ymax,zmax  / 10.,10.,5., 20.,30.,35. /
	data xmid,ymid,zmid /15.,20.,20./
	data viewpt /0.,1., 0.,1., 0.,1./

c---------------------------------------------------------------------

c	ouverture de PHIGURE et du poste de travail */
	call topph (6)

c	definition du domaine 3D de travail
	call tdoma3 (xmin,ymin,zmin, xmax,ymax,zmax)

c	construction d'un parallelepipede
	call tcube (cubid, xmin,ymin,zmin, xmax,ymax,zmax)

c	construction du repère avec un type de ligne pointille
	call tcosya (systid, xmid,ymid,zmid ,xmax,ymax,zmax,
     +             'X','Y','Z', 0.1,0.1)

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

c	definition de la scene
	call tscene (scenid,2,listid,viewid)

c	trace sur le premier poste de travail
	call topwk (wkid1,30,8887)
	call tv3spz (wkid1,viewid,0.5,0.5,0.5,55.,25.,3.0,zoom,viewpt)
	call ppost (wkid1,scenid,1.0)
	call prst (wkid1,PALWAY)

c	trace sur le deuxieme poste de travail
	call topwk (wkid2,30,8887)
	call tv3spz (wkid2,viewid,0.5,0.5,0.5,75.,25.,3.0,zoom,viewpt)
	call ppost (wkid2,scenid,1.0)
	call prst (wkid2,PALWAY)

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

Pour créér une image des mêmes objets sur 2 fenêtres différentes, il suffit de créer deux postes de travail. Les dimensions des fenêtres sont définies dans le fichier GPHIGS.def lu à l'ouverture de PHIGURE.

Ce programme définit une représentation différente de la vue d'index VIEWID sur les 2 postes de travail. Ceci permet de visualiser les mêmes objets selon deux angles de vue différents.