aboutsummaryrefslogtreecommitdiff
path: root/src/graph/PS/drawarc.ps
diff options
context:
space:
mode:
Diffstat (limited to 'src/graph/PS/drawarc.ps')
-rw-r--r--src/graph/PS/drawarc.ps33
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
+