diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-22 23:15:52 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-22 23:15:52 +0000 |
commit | becbd4ec569beab5fb5a0868c2a903381a7e869c (patch) | |
tree | 802ba69fc2df938c5dba20c0a488f6c412a2dd0a /Master/texmf-dist/dvips/pstricks/pstricks.pro | |
parent | b14ff26ccb116e07a5ecaf74fea1c90d90d1dfa6 (diff) |
pstricks 1.15
git-svn-id: svn://tug.org/texlive/trunk@2850 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index 3418879b649..9a527fb6cff 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -14,8 +14,8 @@ /T /translate load def /TMatrix { } def /RAngle { 0 } def -/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def% return 0 for negative arguments -/Atan { /atan load stopped { pop pop 0 } if } def% return 0 if atan not known +/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments +/Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known /ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter) /Div { dup 0 eq { pop } { div } ifelse } def % control the division /NET { neg exch neg exch T } def % change coordinate system to the negative one @@ -138,11 +138,15 @@ CLW moveto } def curveto -.35 0 -.85 .5 -1 1 curveto mtrx setmatrix stroke 0 CLW moveto } def /SD { 0 360 arc fill } def -/EndDot { { /z DS def } { /z 0 def } ifelse /b ED 0 z DS SD b { 0 z DS -CLW sub SD } if 0 DS z add CLW 4 div sub moveto } def +/EndDot { % DS is the dot size + { /z DS def } { /z 0 def } ifelse + /b ED 0 z DS SD b { 0 z DS CLW sub SD } if + 0 DS z add CLW 4 div sub moveto } def +% /Shadow { [ { /moveto load } { /lineto load } { /curveto load } { -/closepath load } /pathforall load stopped { pop pop pop pop CP /moveto -load } if ] cvx newpath 3 1 roll T exec } def + /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto + load } if ] cvx newpath 3 1 roll T exec } def +% /NArray { aload length 2 div dup dup cvi eq not { exch pop } if /n exch cvi def } def /NArray { % holds the coordinates and on top of stack the showpoints boolean |