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 _______________________________________________ Groff mailing list Groff@gnu.org http://lists.gnu.org/mailman/listinfo/groff