1.7.6. TRACÉ D'UN PARALLÉLÉPIPÈDE

	program p76
	include 'PHIGS.H'

	integer wkid, viewid, scenid,cubid,systid, listid(2)
	real viewpt(6)
	data wkid, viewid, scenid  / 1, 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)
	call topwk (wkid,30,8887)

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	definition d'une vue centree 2D 
	call tv3spz (wkid,viewid,0.5,0.5,0.5,55.,25.,3.0,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 affiche en 3D un parallélépipède et un repère. La vue est définie en perspective en représentant l'axe des Z vertical. On remarque que le domaine étant défini aux limites du parallélépipède, la transformation de scène transforme ce dernier en un cube.