summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-03-14 20:42:00 +0000
committerKarl Berry <karl@freefriends.org>2020-03-14 20:42:00 +0000
commitb2608121e57d86dd2f5f8ba12b2a9fc3d4fcbb7a (patch)
treef719a1349371274fa4f608f393cb2844ecd8fdf0 /Master/texmf-dist/dvips
parent792d78e8b4555f20ed39adee7f374c4131c1c7aa (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.pro39
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