blob: 65b1aaa4aecd31daf483d037a2b1860b84aa468c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
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
|
