eg_pgac.for

开放源码的编译器open watcom 1.6.0版的源代码

	include 'graphapi.fi'
	include 'graph.fi'
	include 'pgapi.fi'
	include 'pg.fi'

	integer NUM_VALUES
	parameter (NUM_VALUES=4)

	integer*4 categories( NUM_VALUES )
	real values( NUM_VALUES )
     +		    / 20, 45, 30, 25 /

	record /chartenv/ env

	categories( 1 ) = loc( 'Jan'c )
	categories( 2 ) = loc( 'Feb'c )
	categories( 3 ) = loc( 'Mar'c )
	categories( 4 ) = loc( 'Apr'c )

	call _setvideomode( _VRES16COLOR )
	call _pg_initchart()
	call _pg_defaultchart( env,
     +			_PG_COLUMNCHART, _PG_PLAINBARS )
	env.maintitle.title = 'Column Chart'c
	call _pg_analyzechart( env, categories,
     +			       values, NUM_VALUES )
	! use manual scaling
	env.yaxis.autoscale = 0
	env.yaxis.scalemin = 0.0
	env.yaxis.scalemax = 100.0
	env.yaxis.ticinterval = 25.0
	call _pg_chart( env, categories,
     +			values, NUM_VALUES )
	pause
	call _setvideomode( _DEFAULTMODE )
	end