%% auteur : Peric

10 setxunit
90 setangle_repere
0 27 setxrange
0 27 setyrange
/T {9 9 9 18 18 18 18 9} def
/S {0 0 9 0 18 0 18 9 18 18 9 18 0 18 0 9} def

/fillstyle {0.8 setgray fill} def

/Sp {[ 0 0 9 0 18 0 18 9 18 18 9 18 0 18 0 9]} def

/fillstyle {0.8 setgray fill} def

%N=0
[ T ] polygone* 

%N=1   
S  8 {
2 dict begin
/b exch def 
/a exch def
[T] { 3 div } apply {right a mulv up b mulv addv translatepoint} papply polygone* } repeat 

%N=2
S  8 {
      2 dict begin
      /b exch def 
      /a exch def 
      [S] {3 div} apply {right a mulv up b mulv addv translatepoint} papply aload    pop  8 {
                 2 dict begin
                 /b exch def 
                 /a exch def
                 [T] { 9 div } apply {right a mulv up b mulv addv translatepoint} papply polygone* 
                 } repeat
     } repeat  
end clear

%N=3