From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining 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