summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex
blob: c958a167866987b171dcd4b64a5f3ea33d26a31c (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
\documentclass[12pt]{article}% Philippe Esperet
\usepackage[noxcolor]{pstricks} % To use the "color" package with PSTricks
\usepackage{multido}
\usepackage{pst-plot}

\definecolor{MyLightGray}{gray}{.93}
\newcommand{\curveA}{\psbezier(1.,10.)(1.333,6.667)(1.333,6.667)(2.,5.)}
\newcommand{\curveB}{\psbezier(2.,5.)(2.4,4.)(2.4,4.)(3.,3.333)}
\newcommand{\curveC}{\psbezier(3.,3.333)(3.429,2.857)(3.429,2.857)(4.,2.5)}
\newcommand{\curveD}{\psbezier(4.,2.5)(4.444,2.222)(4.444,2.222)(5.,2.)}
\newcommand{\curveE}{\psbezier(5.,2.)(5.455,1.818)(5.455,1.818)(6.,1.667)}
\newcommand{\curveF}{\psbezier(6.,1.667)(6.462,1.538)(6.462,1.538)(7.,1.429)}
\newcommand{\curveG}{\psbezier(7.,1.429)(7.467,1.333)(7.467,1.333)(8.,1.25)}
\newcommand{\curveH}{\psbezier(8.,1.25)(8.471,1.176)(8.471,1.176)(9.,1.111)}
\newcommand{\curveI}{\psbezier(9.,1.111)(9.474,1.053)(9.474,1.053)(10.,1.)}

\def\farbe#1{\ifodd#1blue\else red\fi}
\def\draw(#1,#2)(#3,#4)#5{%
  \def\rel{%
    \begin{pspicture}(#1,#4)(#3,#2) % (x1,y4)(x4,y1)
      \pscustom[linecolor=yellow,fillstyle=solid,
                fillcolor={\expandafter\farbe{#5}}]{%
        \ifcase#5\or\curveA\or\curveB\or\curveC\or\curveD%
                 \or\curveE\or\curveF\or\curveG\fi
        \psline(#1,#4)(#1,#2)}      % (x1,y4)(x1,y1)
    \end{pspicture}}
    \rput[tl]{0}(#1,#2){\rel}       % Point is (x1,y1)
    \rput[tl]{0}(0,#2){\rel}}       % Point is (0,y1)

\pagestyle{empty}
\parindent=0pt

\begin{document}

\psset{unit=2.7em}
\begin{center}
\begin{pspicture}(-.5,-.5)(10.5,10.5)
  \SpecialCoor
  % Gray rectangle on left
  \psframe*[linecolor=lightgray](0,0)(1,10)
  % Filling under the curve in more light gray
  \pscustom[linestyle=none,fillstyle=solid,fillcolor=MyLightGray]{%
    \psplot{1}{10}{10 x div}
    \psline(10,0)(1,0)(1,10)}
  % Union of curves, in bold (in a group to have a local line width)
  {\psset{linewidth=.04}
   \curveA\curveB\curveC\curveD\curveE\curveF\curveG\curveH\curveI}
  % Drawing of the 14 small surfaces
  \draw(1,10)(2.,5.)1        % (1.,10.)(1.333,6.667)(1.333,6.667)(2.,5.)}
  \draw(2.,5.)(3.,3.333)2    % (2.,5.)(2.4,4.)(2.4,4.)(3.,3.333)
  \draw(3.,3.333)(4.,2.5)3   % (3.,3.333)(3.429,2.857)(3.429,2.857)(4.,2.5) 
  \draw(4.,2.5)(5.,2.)4      % (4.,2.5)(4.444,2.222)(4.444,2.222)(5.,2.) 
  \draw(5.,2.)(6.,1.667)5    % (5.,2.)(5.455,1.818)(5.455,1.818)(6.,1.667)
  \draw(6.,1.667)(7.,1.429)6 % (6.,1.667)(6.462,1.538)(6.462,1.538)(7.,1.429)
  \draw(7.,1.429)(8.,1.25)7  % (7.,1.429)(7.467,1.333)(7.467,1.333)(8.,1.25)
  % Vertical lines and labels for n=1 and 3
  \multido{\i=1+1}{8}{%
    \psline[linestyle=dashed](!\i\space 0)(!\i\space 10 \i\space 1 add div)%
    \psline[linestyle=dotted]%
      (!1 10 \i\space div)(!\i\space  1 sub  10 \i\space div)}
  \uput[d]{0}(1,0){$n=1$}
  \uput[d]{0}(3,0){$n=3$}
  \psline{<->}(0,10.5)(0,0)(10.5,0) % Axes
\end{pspicture}
\end{center}

\end{document}