/pccurve {
5 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/va {angleA dir nodesep dup ptojpoint pop mulv} def
A va addv /A' defpoint
/vb {angleB dir nodesep dup ptojpoint pop mulv} def
B vb addv /B' defpoint
[A' {angleA dir} .. {angleB 180 add dir} B']
currentdict /option known {
option
} if
draw
end
} def
|