summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_en/36-00-28.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_en/36-00-28.ltx')
-rw-r--r--info/examples/PSTricks_en/36-00-28.ltx46
1 files changed, 46 insertions, 0 deletions
diff --git a/info/examples/PSTricks_en/36-00-28.ltx b/info/examples/PSTricks_en/36-00-28.ltx
new file mode 100644
index 0000000000..da5016a3a8
--- /dev/null
+++ b/info/examples/PSTricks_en/36-00-28.ltx
@@ -0,0 +1,46 @@
+%%
+%% A DANTE-Edition example
+%%
+%% Example 36-00-28 on page 780.
+%%
+%% 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[dvipsnames]{pstricks}
+\usepackage{pst-node,multido}
+
+\begin{document}
+\sffamily
+\psset{unit=1.25, dimen=middle}
+\SpecialCoor
+\begin{pspicture}(-5,0)(5,5)
+ \pnode(-5,0){A}\pnode(5,0){B}\pnode(0,5){C}\pnode(0,0){MC}
+ \psclip{\pspolygon(A)(B)(C)}
+ \multido{\nA=1+1}{179}{%
+ \psline[linewidth=.25\pslinewidth,linecolor=Orange](3;\nA)(5;\nA)
+ }
+ \endpsclip
+ \pspolygon*[linecolor=white](-4.7,0)(0,4.7)(4.7,0)
+ \psclip{\pspolygon(A)(B)(C)}
+ \multido{\nA=5+10,\nB=10+10}{18}{%
+ \psline[linewidth=.5\pslinewidth,linecolor=Orange](3;\nA)(5;\nA)
+ \psline[linecolor=Orange](0.5;\nA)(5;\nA)
+ \rput*(3;\nA){\nA}
+ }
+ \endpsclip
+\end{pspicture}
+\end{document}