1.7.4. DRAWING A CIRCLE WITH 2 LINEAR AXES AND A DOTTED ATTRIBUTE ON AN AXIS

	program p74
	include 'PHIGS.H'

	integer circid, scenid, wkid, viewid, xaxid,yaxid, listid(3)
	real viewpt(4)
	data wkid , viewid, scenid, circid / 1,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	open PHIGURE and an 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 2 axes
	call taxyln (xaxid, 10.,10.,0., 20.0,0.0)
	call tayxln (yaxid, 10.,10.,0., 20.0,0.0)

c	insert line type attribute in xaxid structure
	call tsln (xaxid, -1, PLDASH)

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

c	define scene
	call TSCENE (scenid,3,listid,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

This program is identical to n° 3 with a label attribute on the X axis and a line type attribute inserted in the X axis structure.