1.8.1. DRAWING 2 AXES AND STRAIGHT SEGMENTS

	program p81
	include 'PHIGS.H'

	integer scenid, wkid, viewid, segtid, xaxid,yaxid, listid(3)
	real viewpt(4), xp1(2),yp1(2), xp2(2),yp2(2)
	data wkid , viewid, scenid / 1,1, 10 /
	data segtid,xaxid,yaxid, listid /11,12,13, 11,12,13/
	data zoom   / 0.8 /
	data xmin,ymin, xmax,ymax  / 10.,10.,20.,20. /
	data viewpt /0.,1., 0.,1./
	data xp1, xp2 /12.,14., 17.,18./
	data yp1, yp2 /13.,14., 18.,17./

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

c	open PHIGURE and X-window type workstation */
	call topph (6)
	call topwk (wkid,30,8887)

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

c	build a structure with PHIGS
	call popst (segtid)
	call ppl (2,xp1,yp1)
	call ppl (2,xp2,yp2)
	call pclst 

c	build 2 axes
	call taxyln (xaxid, 10.,10.,0., 20.0,0.0)
	call tayxln (yaxid, 10.,10.,0., 20.0,0.0)
	call TSCENE (scenid,3,listid,viewid)

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

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