gr_pgap.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 45 行

.gfunc pg_analyzepie
.if '&lang' eq 'C' .do begin
short _FAR _pg_analyzepie( chartenv _FAR *env,
                           char _FAR * _FAR *cat,
                           float _FAR *values,
                           short _FAR *explode, short n );
.do end
.el .do begin
integer*2 function _pg_analyzepie( env, cat, values,
                                   explode, n )
record /chartenv/ env
integer*4 cat(*)
real values(*)
integer*2 explode(*), n
.do end
.gfuncend
.desc begin
The &func &routine analyzes a pie chart.
This &routine calculates default values for chart elements without
actually displaying the chart.
.pp
The chart environment structure
.arg env
is filled with default values based on the values of the
.arg cat,
.arg values
and
.arg explode
arguments.
The arguments are the same as for the
.kw _pg_chartpie
&routine..
.desc end
.return begin
The &func &routine returns zero
if successful; otherwise, a non-zero value is returned.
.return end
.see begin
.seelist &function. _pg_defaultchart _pg_initchart _pg_chart _pg_chartpie _pg_chartscatter _pg_analyzechart _pg_analyzescatter
.see end
.grexam begin eg_pgap.&langsuff
.grexam end
.class &grfun
.system