diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex')
-rw-r--r-- | Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex b/Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex deleted file mode 100644 index c958a167866..00000000000 --- a/Master/texmf-dist/doc/generic/pstricks/voss/bsp57.tex +++ /dev/null @@ -1,67 +0,0 @@ -\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} |