%% 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