1 files changed, 61 insertions, 0 deletions
diff --git a/info/examples/PSTricks_en/36-00-79.ltx b/info/examples/PSTricks_en/36-00-79.ltx
new file mode 100644
index 0000000000..703b2a6ee0
--- /dev/null
+++ b/info/examples/PSTricks_en/36-00-79.ltx
@@ -0,0 +1,61 @@
+%% 
+%%  A DANTE-Edition example
+%% 
+%%  Example 36-00-79 on page 800.
+%% 
+%%  Copyright (C) 2011 Herbert Voss
+%% 
+%%  It may be distributed and/or modified under the conditions
+%%  of the LaTeX Project Public License, either version 1.3
+%%  of this license or (at your option) any later version.
+%% 
+%%  See http://www.latex-project.org/lppl.txt for details.
+%% 
+%% 
+%% ==== 
+% Show page(s) 1
+%% 
+\documentclass[]{article}
+\pagestyle{empty}
+\setlength\textwidth{375.57637pt}
+\setlength\parindent{0pt}
+
+\usepackage{pstricks,pst-plot,pst-node,graphicx}
+
+\begin{document}
+\resizebox{\linewidth}{!}{%
+\newcommand{\R}{\mathbf{R}}
+\newcommand{\eps}{\varepsilon}
+\psset{xunit=.47cm,yunit=.47cm}
+\begin{pspicture}(0,0.5)(28,19)
+   \psaxes[labels=none,ticks=none]{->}(18,12)(17,11)(27,18)
+   \psaxes[labels=none,ticks=none]{->}(18,2)(17,1)(27,8)
+   \psline{->}(0,9)(11,9)
+   \uput[r](11,9){$\R^n$} \uput[63](18,18){$\R^{m-n}$}
+   \uput[r](27,12){$\R^n$} \uput[63](18,8){$\R^{m-n}$}
+   \uput[r](27,2){$\R^n$}
+   \psline[linewidth=1.2pt,linecolor=blue]{o-o}(1,9)(9,9)
+   \psline[linewidth=1.2pt,linecolor=lightgray]{o-o}(3,9)(7,9)
+   \qdisk(5,9){2pt} \uput[d](5,9){$p$}
+   \uput[u](6.5,9){$U'$} \uput[u](8.5,9){$U$}
+   \uput[d](21,2){$g\bigl(f(p)\bigr)$}
+   \psline{->}(21,10.5)(21,6) \uput[r](21,8.5){$g$}
+   \uput[10](25,15){$f(U)$}
+   \pscurve[linewidth=1.2pt,linecolor=red]{-}(18.5,12.5)(19.5,13.5)(21,14)(22.5,14)(24.8,14.2)%
+       (25.4,13.9)(25.5,13.3)(24.9,13.5)(24.8,14.2)(25,15)(24.5,16)
+   \psecurve[linewidth=1.2pt,linecolor=magenta]{-}(18.5,12.5)(19.5,13.5)%
+       (21,14)(22.5,14)(24.8,14.2)
+   \pscircle[linestyle=dashed,linecolor=blue](21,14){0.8} \uput[45](22,15.2){$V$}
+   \qdisk(21,14){2pt} \uput[d](21,14){$f(p)$}
+   \psccurve[linestyle=dashed,linecolor=blue](19,2.8)(20.1,2.6)(21.7,2.9)(22.8,2)(22.3,0.7)(21,0.4)%
+       (19.3,0.7)(19.5,2)
+   \psline[linewidth=1.2pt,linecolor=lightgray]{-}(19.5,2)(22.8,2)
+   \pscurve[linewidth=1.2pt,linecolor=red]{-}(18.5,1.5)(19,1.95)(19.5,2)
+   \pscurve[linewidth=1.2pt,linecolor=red]{-}(22.8,2)(23.3,2.1)(24.5,3)(25.5,4.5)(26,4.8)%
+       (26.7,4.4)(26,4)(25.5,4.5)(25,5.7)(24,6.3)
+   \qdisk(21,2){2pt} \uput[15](25,5.7){$g(V)$}
+   \pccurve[angleA=35,angleB=180,linecolor=magenta]{->}(6.5,10.5)(17,14) \Aput{$f$}
+   \pcline[linecolor=magenta]{->}(6.5,8)(17,4) \Bput{$g\circ f$}
+\end{pspicture}
+}
+\end{document}