summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro
blob: ebe889c702e29dd16e7dfacea20531a218781c77 (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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
%% $Id: pst-spinner.pro 466 2017-05-23 05:41:09Z herbert $
%% Package `pst-spinner.pro'
%%
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
%% in directory macros/latex/base/lppl.txt.
%%
/tx@spinnerDict 20 dict def tx@spinnerDict begin
%
/arctan { dup 0 ge { 1 atan }{ neg 1 atan neg } ifelse } def

/BallBearing {
  /point exch def
  /couleur exch def
  newpath
  point ri 0 360 arc
  point ri 0.15 cm add 360 0 arcn
  closepath
  0.25 setgray
  fill 
  newpath
  point r1 0 360 arc
  point r1 0.15 cm sub 360 0 arcn
  closepath
  0.25 setgray
  fill 
  newpath
  point r1 0.15 cm sub 0 360 arc
  point ri 0.15 cm add 360 0 arcn
  closepath
  couleur
  fill 
} def
%
% le contour du triple fidget spinner
/TripleSpinner {
  1 setlinejoin
  newpath
  O1 /yO1 exch def /xO1 exch def
  xO1 r1 a1 add alpha1 neg cos mul add
  yO1 r1 a1 add alpha1 neg sin mul add
  moveto
  O1 r1 a1 add alpha1 neg alpha1 180 add arc
  A' r2 alpha1 beta1 arcn
  O2 r1 a1 add 180 beta1 add alpha2 arc
  C' r2 alpha2 180 sub alpha2 neg arcn
  O3 r1 a1 add alpha2 neg 180 add 360 beta1 sub arc
  B' r2 beta1 180 sub neg alpha1 180 sub neg arcn
  r1 rho moveto
  O1 r1 360 0 arcn
  r1 0 moveto
  0 0 r1 360 0 arcn
  O2 moveto r1 0 rmoveto
  O2 r1 360 0 arcn
  O3 moveto r1 0 rmoveto
  O3 r1 360 0 arcn
} def
%
/makeSpinner {
  1 setlinecap
  /r1 1.1 cm def
  /ri 0.4 cm def
  /a1 R1 3 div r1 sub def
  /rho R1 r1 sub a1 sub def
  /r2 2 r1 mul a1 mul 3 a1 dup mul mul add rho dup mul add rho r1 a1 2 mul add mul sub
   rho 2 a1 mul sub div  def
  /rho2 r2 r1 add 2 a1 mul add def
  /alpha1 rho rho2 2 div sub rho2 3 sqrt mul 2 div div arctan def
  /beta1 rho rho2 add neg 3 sqrt rho2 rho sub mul div arctan def
  /alpha2 rho 2 div neg rho2 add 3 sqrt 2 div rho mul neg div arctan def
  /A {0 R1} def
  /B {R1 3 sqrt mul -2 div R1 -2 div} def
  /C {R1 3 sqrt mul 2 div R1 -2 div} def
  /O1 {0 rho} def
  /O2 {rho 3 sqrt mul -2 div rho -2 div} def
  /O3 {rho 3 sqrt mul 2 div rho -2 div} def
  /A' {rho2 3 sqrt mul 2 div neg  rho2 2 div} def
  /B' {rho2 3 sqrt mul 2 div    rho2 2 div} def
  /C' {0 rho2 neg} def
  gsave
  spinnerROT rotate
  gsave
  TripleSpinner
  clip
  ifPst@customize { spinnerImage }{ spinnerFillColor fill } ifelse
  grestore
  TripleSpinner
  spinnerLineColor
  spinnerLW SLW
  stroke
  {color1} {O1} BallBearing
  {color2} {O2} BallBearing
  {color3} {O3} BallBearing
  {color0} {0 0} BallBearing
  grestore
  ifPst@mask {
    ifPst@customizeMask {
      gsave
      newpath
      r1 0 moveto
      0 0 r1 0 360 arc
      closepath
      clip
      spinnerImage
      grestore 
    }{
      newpath
      0 0 r1 0 360 arc
      colorMask
      fill
    } ifelse
    0 0 r1 0 360 arc
    0.5 setlinewidth
    0 setgray
    stroke
  } if
} def  % makeSpinner
%
end
%%
%% end