{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 
257 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 258 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 
0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 
13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 
-1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 14 0 0 
0 0 0 1 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 
0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }{TEXT 256 0 "" }{TEXT 257 0 "" }}{PARA 256 "" 0 "" 
{TEXT -1 12 "bush fractal" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 103 "An example from the book \"Fractals - Endlessly r
epeated geometric figures\", by Hans Lauwerier, page 95." }}}{EXCHG 
{PARA 13 "" 1 "" {TEXT 258 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 155 "f1:=P->AFFINE1(P,.6,.6,-.6,.6,0,0);\n    #A rotation (by Pi/4
), and rescaling\nf2:=P->AFFINE1(P,.53,0,0,.53,1,0);\n    #pure scalin
g by .53, with translation\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1G
f*6#%\"PG6\"6$%)operatorG%&arrowGF(-%(AFFINE1G6)9$$\"\"'!\"\"F0$!\"'F2
F0\"\"!F5F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f2Gf*6#%\"PG6\"6
$%)operatorG%&arrowGF(-%(AFFINE1G6)9$$\"#`!\"#\"\"!F3F0\"\"\"F3F(F(F(
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "TESTMAP([f1,f2]);" }}
{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "S:=\{[0,0]\}:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "for \+
i from 1 to 13 do\nS1:=map(f1,S):\nS2:=map(f2,S):\nS:=`union`(S1,S2):
\nod:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 98 "pointplot(S,symbol=point,scaling=constrained,\naxe
s=none,   title=`Figure 5.16 page 95 Lauwerier`);" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}}{MARK "6 0 0
" 26 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }