1.7.1. DRAWING CIRCLES

	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	open PHIGURE and X-window type workstation (8887)*/
	call topph (6)
	call topwk (wkid,30,8887)

c	define 2D working domain
	call tdoma2 (xmin,ymin, xmax,ymax)

c	build circle 
	call tccr2 (circid, xc,yc, radius)

c	define the scene
	call TSCENE (scenid,1,circid,viewid)
   
c	define a centered 2D view 
	call tv2cen (wkid,viewid,0.5,0.5,zoom,viewpt)
	
c	display scene on workstation 
	call ppost (wkid,scenid,1.0)
	call prst (wkid,PALWAY)

c	close workstation and PHIGURE 
	call tclwk (wkid)
	call tclph 
	end

Certain window characteristics (such as dimensions and title) are specified in a file read when PHIGURE is opened. This file is called GPHIGS.def by default and is found by PHIGURE in the current program execution directory. To change the name of this configuration file, just call the PXNDEF function before calling TOPPH.

e.g. CALLPXNDEF ('toto.def')

the configuration file is toto.def in the current execution directory

CALLPXNDEF ('/users/toto/toto.def')

the configuration file is toto.def in the /users/toto directory