Initial commit

1 files changed, 50 insertions, 0 deletions

diff --git a/info/examples/PSTricks_en/19-02-4.ltx b/info/examples/PSTricks_en/19-02-4.ltx
new file mode 100644
index 0000000000..e74790d84d
--- /dev/null
+++ b/info/examples/PSTricks_en/19-02-4.ltx
@@ -0,0 +1,50 @@
+%% 
+%%  A DANTE-Edition example
+%% 
+%% 
+%%  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}
+\newcommand\FArc{%
+  \begin{pspicture}(-0.25,-0.25)(0.25,0.25)%
+    \psarc(-0.25,-0.25){0.25}{0}{90}
+    \psarc(0.25,0.25){0.25}{180}{270}
+    \psframe[linewidth=0.1pt](-0.25,-0.25)(0.25,0.25)
+  \end{pspicture}}
+\newcommand\FArcL{\FArc\psrotateleft{\FArc}}
+\newcommand\FArcW{%
+  \begin{pspicture}(-0.25,-0.25)(0.25,0.25)%
+    \pswedge*(-0.25,-0.25){0.25}{0}{90}
+    \pswedge*(0.25,0.25){0.25}{180}{270}
+    \psframe[linewidth=0.1pt](-0.25,-0.25)(0.25,0.25)
+  \end{pspicture}}
+\newcommand\FArcLW{\FArcW\psrotateleft{\FArcW}}
+
+\usepackage[tiling]{pst-fill}
+
+\begin{document}
+\FArcLW\ \psboxfill{\FArcLW}
+\begin{pspicture}(2.1,2.1)
+  \psframe[fillstyle=boxfill](2,2)
+\end{pspicture}
+\begin{pspicture}(2.1,2.1)
+  \psframe[fillstyle=boxfill,fillcyclex=4](2,2)
+\end{pspicture}~
+\begin{pspicture}(2.1,2.1)
+  \psframe[fillstyle=boxfill,fillcyclex=2,fillangle=45](2,2)
+\end{pspicture}
+\end{document}