diff options
Diffstat (limited to 'src/graph/PS/drawarc.ps')
| -rw-r--r-- | src/graph/PS/drawarc.ps | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/graph/PS/drawarc.ps b/src/graph/PS/drawarc.ps new file mode 100644 index 00000000..408ed3dc --- /dev/null +++ b/src/graph/PS/drawarc.ps @@ -0,0 +1,33 @@ +% operand stack configuration in order to use psDrawArc: +% psDrawArc +% angle2 +% angle1 +% width +% height +% y +% x +% graphics-context dictionary +% this draws an arc whose origin is at x, y, and whose width +% and height specifies the rectangle which encases the arc. +% Origin is at upper left corner of rectangle. +% This function uses "scale" to make cricles and ellipses. + +/psDrawArc + { gsave + newpath + /sfactor 4 index 4 index div def %% scale factor + 1 sfactor scale + 6 5 roll %% x on top of stack + 3 index 2 div add %% define x origin + 6 5 roll %% y on top of stack + 6 5 roll %% h on top of stack + 2 div add yVal sfactor div %% define y origin + 5 4 roll %% w on top of stack + 2 div %% define radius + 5 3 roll %% a1 a2 on top of stack + 1 index add + arcn %% draw clockwise arc + begin installGC stroke end + grestore } + def + |