summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-text/pst-text.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-text/pst-text.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-text/pst-text.pro30
1 files changed, 29 insertions, 1 deletions
diff --git a/Master/texmf-dist/dvips/pst-text/pst-text.pro b/Master/texmf-dist/dvips/pst-text/pst-text.pro
index f4fb7ca43aa..e60e2e6c51e 100644
--- a/Master/texmf-dist/dvips/pst-text/pst-text.pro
+++ b/Master/texmf-dist/dvips/pst-text/pst-text.pro
@@ -1,6 +1,8 @@
%!
+% $Id: pst-text.pro 891 2018-12-29 19:42:20Z herbert $
+%
% PostScript header file pst-text.pro
-% Version 1.01, 2018-12-22 (hv)
+% Version 1.02, 2018-12-28 (hv)
% For distribution, see pstricks.tex.
%
/tx@TextPathDict 45 dict def
@@ -131,5 +133,31 @@ tx@TextPathDict begin
pop
} def
%
+/circle {
+ exch neg
+ % .5 mul
+ 90 add
+ dup cos 2 index mul
+ 3 1 roll
+ sin mul
+} bind def
+
+/circmove{
+ 2 index { newpath } if
+ circle moveto
+ pop false
+} bind def
+
+/circline { circle lineto } bind def
+
+/circcurve {
+ 6 2 roll circle
+ 6 2 roll circle
+ 6 2 roll circle
+ curveto
+} bind def
+
+/circit { true { circmove } { circline } { circcurve } { closepath } pathforall pop } bind def
+%
end
% END pst-text.pro \ No newline at end of file