summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro')
-rw-r--r--graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro28
1 files changed, 28 insertions, 0 deletions
diff --git a/graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro b/graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro
new file mode 100644
index 0000000000..b2a3062bac
--- /dev/null
+++ b/graphics/pstricks/contrib/pst-circ/dvips/pst-circ.pro
@@ -0,0 +1,28 @@
+%!
+% $Id: pst-circ.pro 209 2021-09-10 06:24:23Z herbert $
+%
+% PostScript prologue for pst-circ.tex.
+% version 0.02 2021-09-09 (hv)
+% For distribution, see pstricks.tex.
+%
+/tx@CircDict 50 dict def % used in pst-circ.tex
+/GetNode {
+ tx@NodeDict begin
+ tx@NodeDict 1 index known { load GetCenter } { pop 0 0 } ifelse
+ end
+} bind def
+/ZeroEq { abs 1E-10 lt } bind def /EqDr {
+ 4 copy 3 -1 roll sub 7 1 roll exch sub 5 1 roll 4 -1 roll
+ mul 3 1 roll mul exch sub } bind def
+/InterLines {
+ EqDr /D1c exch def /D1b exch def /D1a exch def
+ EqDr /D2c exch def /D2b exch def /D2a exch def
+ D1a D2b mul D1b D2a mul sub dup ZeroEq
+ { pop pop pop 0 0 }
+ {
+ /Det exch def
+ D1b D2c mul D1c D2b mul sub Det div
+ D1a D2c mul D2a D1c mul sub Det div
+ }
+ ifelse } bind def
+% END pst-circ.pro