summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-thick/pst-thick.tex
blob: 4732b4243cb99b852a4084dcd34fe9a99da2830f (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
%% $Id: pst-thick.tex 170 2009-12-08 21:30:53Z herbert $
%%
%% This is file `pst-thick.tex',
%%
%% IMPORTANT NOTICE:
%%
%% Package `pst-thick.tex'
%%
%% MAnuel Luque 
%% Herbert Voss 
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
%% in directory CTAN:/macros/latex/base/lppl.txt.
%%
%% DESCRIPTION:
%%   `pst-mirror' is a PSTricks package to view objects ob a spherical sphere
%%
%%
%
\ifx\PSTPlotLoaded\endinput\else\input pst-plot.tex\fi
\ifx\PSTNodeLoaded\endinput\else\input pst-node.tex\fi
\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex\fi
%
\def\fileversion{1.0}
\def\filedate{2009/12/08}
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax

\definecolor{darkgreen}{cmyk}{1,0,1,0.5}
\newpsstyle{vide}{fillstyle=none}
\newpsstyle{thickline}{fillstyle=solid,fillcolor=red!25,linecolor=red,plotpoints=360}
\newpsstyle{onlythecurvered}{linecolor=red,plotpoints=360}
\newpsstyle{onlythecurveblue}{linecolor=blue,plotpoints=360}
\newpsstyle{thicklineblue}{fillstyle=solid,fillcolor=blue!25,linecolor=blue,plotpoints=360}
\newpsstyle{rainbow}{fillstyle=ccslopes,linecolor=red,plotpoints=360}
\newpsstyle{solide}{fillstyle=solid,fillcolor=black,plotpoints=360}
\newpsstyle{serpent}{fillstyle=gradient,gradbegin=darkgreen,gradend=yellow,gradmidpoint=0,linecolor=green,gradangle=90,plotpoints=360}
\newpsstyle{default}{}% lignes noires, rien à l'intérieur

\pst@addfams{pst-thick}
%
\define@key[psset]{pst-thick}{E}[1]{\def\psk@thick@E{#1}}
\define@key[psset]{pst-thick}{K}[0]{\def\psk@thick@K{#1}}% K=0 => angle de rotation/normale à la courbe
\define@key[psset]{pst-thick}{stylethick}[thickline]{\def\psk@thick@stylethick{#1}}% style
\define@key[psset]{pst-thick}{stylecurve1}[onlythecurvered]{\def\psk@thick@stylecurveA{#1}}% style
\define@key[psset]{pst-thick}{stylecurve2}[onlythecurvered]{\def\psk@thick@stylecurveB{#1}}% style
\psset[pst-thick]{E=1,K=0,stylethick=thickline,stylecurve1=onlythecurvered,stylecurve2=onlythecurvered}

\define@boolkey[psset]{pst-thick}[Pst@]{curveonly}[true]{}
\psset[pst-thick]{curveonly=false}

\SpecialCoor

\def\CalculsCurves{%
    /ds dx dup mul dy dup mul add sqrt def
    /dx dx ds div def
    /dy dy ds div def
    /dx' K cos dx mul K sin dy mul sub def
    /dy' K sin dx mul K cos dy mul add def
    /nx E 2 div dy' mul neg def % normale x
    /ny E 2 div dx' mul def % normale y
    /x1 x0 nx add def
    /y1 y0 ny add def
      x1 y1 }

\def\psthick{\pst@object{psthick}}%
\def\psthick@i#1#2#3{{%
  \use@par
  \ifPst@curveonly
    \parametricplot[style=\psk@thick@stylecurveA]{#1}{#2}{%
      /E \psk@thick@E\space def /K \psk@thick@K\space def
      #3 \CalculsCurves }%
    \parametricplot[style=\psk@thick@stylecurveB]{#2}{#1}{%
      /E \psk@thick@E\space def
      /K \psk@thick@K\space def
      #3 
      /ds dx dup mul dy dup mul add sqrt def
      /dx dx ds div def
      /dy dy ds div def
      /dx' K cos dx mul K sin dy mul sub def
      /dy' K sin dx mul K cos dy mul add def
      /nx E 2 div dy' mul neg def % normale x
      /ny E 2 div dx' mul def % normale y
      x0 nx add y0 ny add  }
  \else
    \pscustom[style=\psk@thick@stylethick]{%
      \parametricplot{#1}{#2}{%
        /E \psk@thick@E\space def
        /K \psk@thick@K\space def
        #3 \CalculsCurves }%
      \parametricplot{#2}{#1}{ #3 \CalculsCurves }
      \closepath
     }
   \fi}\ignorespaces}

\def\fonctionSinus#1#2{%
    /P #1 def % période (10 unités)
    /A #2 def % amplitude
    /O 360 P div def % pulsation 2*pi/P
    /x0 t def
    /y0 t O mul sin A mul def % A*sin(O*t)
    /dx dt def
    /dy t dt add O mul sin
        t O mul sin
        sub
        A mul def }

\catcode`\@=\PstAtCode\relax
\endinput