Fichier 869.jps — Modifié le 4 Avril 2007 à 16 h 52
%% 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