[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Groff] Drawing filled circle segments
From: |
Ted Harding |
Subject: |
Re: [Groff] Drawing filled circle segments |
Date: |
Fri, 28 Oct 2005 17:04:34 +0100 (BST) |
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 ------------------------------
- [Groff] Drawing filled circle segments, Clarke Echols, 2005/10/25
- Re: [Groff] Drawing filled circle segments, Ted Harding, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Ted Harding, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Ted Harding, 2005/10/28
- Re: [Groff] Drawing filled circle segments,
Ted Harding <=
- Re: [Groff] Drawing filled circle segments, Tadziu Hoffmann, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Tadziu Hoffmann, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Ted Harding, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Werner LEMBERG, 2005/10/28
- Re: [Groff] Drawing filled circle segments, Ted Harding, 2005/10/28