diff options
| author | Karl Berry <karl@freefriends.org> | 2020-03-14 20:42:00 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2020-03-14 20:42:00 +0000 |
| commit | b2608121e57d86dd2f5f8ba12b2a9fc3d4fcbb7a (patch) | |
| tree | f719a1349371274fa4f608f393cb2844ecd8fdf0 /Master/texmf-dist/dvips | |
| parent | 792d78e8b4555f20ed39adee7f374c4131c1c7aa (diff) | |
pst-spirograph (14mar20)
git-svn-id: svn://tug.org/texlive/trunk@54295 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-spirograph/pst-spirograph.pro | 39 |
1 files changed, 34 insertions, 5 deletions
diff --git a/Master/texmf-dist/dvips/pst-spirograph/pst-spirograph.pro b/Master/texmf-dist/dvips/pst-spirograph/pst-spirograph.pro index 588345b42e4..59f31ba3024 100644 --- a/Master/texmf-dist/dvips/pst-spirograph/pst-spirograph.pro +++ b/Master/texmf-dist/dvips/pst-spirograph/pst-spirograph.pro @@ -1,8 +1,8 @@ -%% $Id: pst-spirograph.pro 1159 2020-03-12 15:13:17Z herbert $ +%% $Id: pst-spirograph.pro 1160 2020-03-14 14:08:31Z herbert $ %% % PostScript prologue for pst-spirograph.tex. % -% Version 0.50, 2020/03/11 +% Version 0.51, 2020/03/14 % /tx@spirographDict 50 dict def tx@spirographDict begin @@ -288,7 +288,7 @@ tx@spirographDict begin positionAngular rotate a@ THETA DegtoRad mul THETA cos mul neg a@ THETA DegtoRad mul THETA sin mul - 0.06 cm 0 360 arc + 0.12 cm 0 360 arc }{ a@ex polarAngle cos mul t@@x add a@ex polarAngle sin mul t@@y add translate DeltaSdeg DeltaP add neg 180 Z2 div add 180 add polarAngle Z1 Z2 add Z2 div mul add rotate @@ -297,7 +297,7 @@ tx@spirographDict begin positionAngular rotate a@ THETA DegtoRad mul THETA cos mul neg a@ THETA DegtoRad mul THETA sin mul - 0.06 cm 0 360 arc + 0.12 cm 0 360 arc } ifelse closepath curvecolor @@ -332,7 +332,6 @@ tx@spirographDict begin } for } def %%%% fin de la definition de la roue dentee %%% - /COURONNE { 0 0 Rt 1.25 mul cm 360 0 arcn } def /plaquette { Beta_ neg rotate /alpha1 1 R1 2 mul atan 2 div def @@ -360,6 +359,8 @@ tx@spirographDict begin closepath linecolor stroke + } def + /drawHole { R1 cm HolePos mul 0 GetCurveWidth 1.5 mul 0 360 arc curvecolor fill @@ -380,6 +381,34 @@ tx@spirographDict begin R1 HolePos mul beta sin mul yC add cm end } def + /AXE { + %newpath + Raxe 4 div cm + A@0 cos Raxe mul cm moveto + 0 0 Raxe cm 90 A@0 sub 90 A@0 add arcn + Raxe 4 div cm neg + A@0 cos Raxe mul cm + lineto + Raxe 4 div cm neg + Raxe A@0 cos 0.2 add mul cm + lineto + Raxe 4 div cm + Raxe A@0 cos 0.2 add mul cm + lineto + } def + %%% clavette %%% + /CLAVETTE { + newpath + Raxe 4 div cm + A@0 cos 0.2 sub Raxe mul cm moveto + Raxe 4 div cm + Raxe A@0 cos 0.2 add mul cm lineto + Raxe 4 div cm neg + Raxe A@0 cos 0.2 add mul cm lineto + Raxe 4 div cm neg + A@0 cos 0.2 sub Raxe mul cm lineto + closepath + } def % end %%
\ No newline at end of file |