summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-spinner/images/spirales-hsb.eps
diff options
context:
space:
mode:
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.eps66
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