From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 info/examples/PSTricks_en/36-00-18.ltx | 60 ++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 info/examples/PSTricks_en/36-00-18.ltx

(limited to 'info/examples/PSTricks_en/36-00-18.ltx')

diff --git a/info/examples/PSTricks_en/36-00-18.ltx b/info/examples/PSTricks_en/36-00-18.ltx
new file mode 100644
index 0000000000..75d8ffee67
--- /dev/null
+++ b/info/examples/PSTricks_en/36-00-18.ltx
@@ -0,0 +1,60 @@
+%% 
+%%  A DANTE-Edition example
+%% 
+%%  Example 36-00-18 on page 776.
+%% 
+%%  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{201.70511pt}
+\setlength\parindent{0pt}
+
+\usepackage{pstricks}
+
+\begin{document}
+\begin{pspicture}(9,4)
+  \begin{psclip}{\psellipse(3,2)(3,1)}
+    \psellipse[fillstyle=solid,fillcolor=magenta](6,2)(3,1)
+  \end{psclip}
+  \psellipse(3,2)(3,1)
+  \psellipse(6,2)(3,1)
+  \rput(2,3.5){epistemische Indizes}
+  \psline{->}(2,3.2)(2,2)
+  \rput(7,0.5){faktische Indizes}
+  \psline{->}(7,0.7)(7,2)
+  \rput(4.5,2){\parbox{1.5cm}{\small realistische Indizes}}
+\end{pspicture}
+
+\newcommand\SurfaceA{\pscircle[fillstyle=vlines,hatchcolor=red](1,1){1}}
+\newcommand\SurfaceB{\pscircle(2.5,3){2}}
+\begin{pspicture}(5,5)
+  \SurfaceA\SurfaceB
+  \begin{psclip}{\SurfaceA}
+    \psset{fillstyle=solid,fillcolor=blue}
+    \SurfaceB
+  \end{psclip}
+\end{pspicture}
+%
+\renewcommand\SurfaceA{\psframe(1.5,0.5)(3.8,4.8)}
+\renewcommand\SurfaceB{\psellipse(2,3.5)(1.5,1)}
+\newcommand\SurfaceC{\pscircle(3.5,3){1.5}}
+\newcommand\SurfaceD{\psdiamond(2.5,3)(2,1)}
+\begin{pspicture}(5,5)
+  \SurfaceA\SurfaceB\SurfaceC\SurfaceD
+  \begin{psclip}{\SurfaceA\SurfaceB\SurfaceC\SurfaceD}
+    \psset{fillstyle=solid,fillcolor=red}
+    \SurfaceA
+  \end{psclip}
+\end{pspicture}
+\end{document}
-- 
cgit v1.2.3

