diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-text/pst-text.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pst-text/pst-text.pro | 30 |
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 |