diff options
author | Karl Berry <karl@freefriends.org> | 2018-12-30 22:11:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-12-30 22:11:51 +0000 |
commit | 5a8b5044b55dfb4e76f990eb433c7e229906c162 (patch) | |
tree | 6ce99f31e044b1b5bbd52eb7300f201763cd6f2d /Master/texmf-dist/dvips | |
parent | bb7737fd4c99d8110fadbf69be86d62160650916 (diff) |
pst-text (30dec18)
git-svn-id: svn://tug.org/texlive/trunk@49542 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-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 |