Re: [Groff] Drawing filled circle segments

[Ted Harding]

Here is a variant where the sectors are outlined with
thin black lines, if you prefer that.



\X'ps: def \
/drawwedge { \
  newpath \
  0 0 moveto \
  0 0   rad ang1 ang2 arc \
  closepath \
} def'
\X'ps: def \
/wedge { gsave \
  currentpoint translate 1 -1 scale \
  /ang2 exch def \
  /ang1 exch def \
  /B exch def /G exch def /R exch def \
  /rad exch def \
  R G B setrgbcolor \
  0.01 setlinewidth \
  drawwedge \
  fill stroke \
  0 setgray drawwedge stroke \
  grestore \
} def'
.ds wedge \Z'\X'ps: exec \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 wedge''
.LP
\&
.sp 1i
This is a line with_\h'0.5i'\
\*[wedge 36 1.0 0.0 0.0 000 045]\
\*[wedge 36 0.5 0.5 0.0 045 100]\
\*[wedge 36 0.0 1.0 0.0 100 170]\
\*[wedge 36 0.0 0.5 0.5 170 250]\
\*[wedge 36 0.0 0.0 1.0 250 360]\
\h'0.5i'_in the middle of it.
.sp 1i
That was a line with a pie-chart.


Best wishes,
Ted.


--------------------------------------------------------------------
E-Mail: (Ted Harding) <address@hidden>
Fax-to-email: +44 (0)870 094 0861
Date: 28-Oct-05                                       Time: 17:04:29
------------------------------ XFMail ------------------------------