Re: [Groff] Drawing filled circle segments

[Tadziu Hoffmann]

This one works without string arguments:


.sp 3c
.de YY
ps: def
/wedge
{ gsave currentpoint translate 1 -1 scale
  newpath 0 0 moveto 0 0 5 2 roll 3.6 mul exch
  3.6 mul dup 3 1 roll add arc closepath
  gsave fill grestore 0 setgray stroke
  grestore }
def
..
\Y[YY]\c
.de wedge
\m[\\$2]\Z'\N'32''\X'ps: exec \\n[pieradius] \\n[pieangle] \\$1 wedge'\m[]\c
.nr pieangle +\\$1
..
.de pie
This is a line with \D'l 5p 0'\h'\\n[pieradius]p'\h'1p'\c
.wedge 10 red
.wedge 20 green
.wedge 30 blue
.wedge 2 purple
.wedge 38 yellow
\h'1p'\h'\\n[pieradius]p'\D'l 5p 0' in the middle of it.
..
.nr pieangle 0
.nr pieradius 35
.pie
.nr pieradius 10
.nr pieangle 20 \" 20% is 72 degrees
.pie