From e8f38c351d90d6dea371a9ac15d2c4906bff9910 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 27 Sep 2009 01:53:09 +0000
Subject: 	Fix SF/2854105 	* graph/PS/*.ps: New.

---
 src/graph/PS/drawarc.ps | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/graph/PS/drawarc.ps

(limited to 'src/graph/PS/drawarc.ps')

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
+
-- 
cgit v1.2.3