diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro | 121 |
1 files changed, 121 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro b/Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro new file mode 100644 index 00000000000..2a4957b1e7d --- /dev/null +++ b/Master/texmf-dist/dvips/pst-spinner/pst-spinner.pro @@ -0,0 +1,121 @@ +%% 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
\ No newline at end of file |