1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -*- Mode: Latex -*- %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Letters-Tiling.tex --- Tiling of letters with various tiles
%%
%% Author : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% Created the : Tue Dec 10 18:44:34 1996
%% Last mod. by : Denis GIROU (CNRS/IDRIS - France) <Denis.Girou@idris.fr>
%% Last mod. the : Thu Dec 18 21:26:55 1997
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-char}
\usepackage[tiling]{pst-fill}
\newcommand{\TileA}{%
\psset{unit=0.2}%
\begin{pspicture}(2,2)
\psframe*[linecolor=red](0,0)(1,1)
\psframe*[linecolor=blue](1,0)(2,1)
\psframe*[linecolor=yellow](0,1)(1,2)
\psframe*[linecolor=green](1,1)(2,2)
\end{pspicture}}
\newcommand{\Hexagon}[1]{%
\pspolygon*[linecolor=#1](0.5;0)(0.5;60)(0.5;120)(0.5;180)(0.5;240)(0.5;300)}
\newcommand{\TileB}{%
\psset{unit=0.5}
\SpecialCoor
\begin{pspicture}(1.5,1.732)
\rput(0,0){\Hexagon{red}}\rput(.75,0.433){\Hexagon{yellow}}
\rput(0,0.866){\Hexagon{cyan}}\rput(.75,1.3){\Hexagon{green}}
\end{pspicture}}
\pagestyle{empty}
\parindent=0pt
\begin{document}
\DeclareFixedFont{\bigrm}{T1}{ptm}{m}{n}{3cm}
\begin{pspicture}(10,2.2)
\psboxfill{\TileA}
\pscharpath[fillstyle=boxfill,fillloopadd=3]{\rput[b](4.5,0){\bigrm Donald}}
\end{pspicture}
\clearpage
\centerline{%
\begin{pspicture}(17.5,6)
\psboxfill{\TileB}
\pscharpath[fillstyle=boxfill,fillloopadd=1]{\rput[b](7.5,0){\bigrm Knuth}}
\end{pspicture}}
\end{document}
|