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