diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps')
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps b/Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps new file mode 100644 index 00000000000..65b1aaa4aec --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps @@ -0,0 +1,66 @@ +%!PS-Adobe-3.0 EPSF-3.0 +%%BoundingBox: -215 -215 215 215 +%%Title: C:\Fichiers_LaTeX\2017\spiralmosaic\spirales-hsb-2.ps +%%Creator: GSview from C:\Fichiers_LaTeX\2017\spiralmosaic\spirales-hsb-2.ps +%%CreationDate: Wed Apr 26 11:46:50 2017 +%%Pages: 1 +%%EndComments +%%Page: 1 1 +%%BeginDocument: C:\Fichiers_LaTeX\2017\spiralmosaic\spirales-hsb-2.ps +/cm {2.845 mul 5 mul} bind def +/Rmax 15 cm def +/k 4 def % nombre de tours +% ni pair !!! +/ni 8 def +gsave +newpath +Rmax 0 moveto +0 0 Rmax 0 360 arc +closepath +stroke +grestore +newpath +Rmax 0 moveto +0 0 Rmax 0 360 arc +closepath +clip +/t01 {r_0 360 mul ni div neg} def +/t02 {r_0 1 add 360 mul ni div neg} def +/RadiusA {ni 360 div t mul r_0 add } def +/RadiusB {ni 360 div t mul r_0 1 add add } def +/spiraleA { +RadiusA t cos mul cm RadiusA t sin mul cm moveto +t01 1 k 360 mul {/t exch def +RadiusA t cos mul cm RadiusA t sin mul cm lineto + } for +} def +% spirale suivante générée en partant de la fin +/spiraleB { +k 360 mul -1 t02 {/t exch def +RadiusB t cos mul cm RadiusB t sin mul cm lineto + } for +closepath +} def + +2 1 ni 1 add {/r_0 exch def +%gsave +% 2 spirales tournant a droite +newpath +/t t01 def +spiraleA +/t t02 def +spiraleB +closepath +r_0 2 sub ni 1 add div 1 1 sethsbcolor +%stroke % +fill +newpath +/t t01 def +spiraleA +1 setgray +% stroke +% +} for + +%%EndDocument +%%Trailer |