%!PS-Adobe-3.0 EPSF-3.0
%%Creator: auto5
%%Date: --
%%Title: --
%%Orientation: Portrait
%%BoundingBox: 0 0 112 194
%%EndComments
%%% ------------------- DEFINITIONS GENERALES --------------------------------
/PavDict 50 dict def PavDict begin
/bd{bind def}bind def/ed{exch def}bd/ld{load def}bd
/cl/setrgbcolor ld /tr/translate ld/ro/rotate ld
/gs/gsave ld/gr/grestore ld
/M/moveto ld/L/lineto ld/rM/rmoveto ld/rmt/rmoveto ld/PL{{lineto}repeat}bd
/PLM{/pln ed/pmy ed/pmx ed pmx pmy M pln 1 sub PL pmx pmy L}bd
/st/stroke ld/np/newpath ld/cp/closepath ld/lj/setlinejoin ld/lc/setlinecap ld
/ml/setmiterlimit ld /sl/setlinewidth ld
/sc /scale ld
end
%%%---------------------------------------------------------------------------
PavDict begin
gs
/angle{161.013000}bd
/echelle{0.407400}bd
/a{60}bd/a2{a 2 div}bd/as3{a 3 sqrt mul}bd/as3d{as3 2 div}bd
/t1x{as3d}bd
/t1y{a2 3 mul}bd
/t2x{as3d}bd
/t2y{t1y neg}bd
/decx{0}bd
/decy{0}bd
/drot{0}bd
/nx{50}bd
/ny{50}bd
/bbx{112}bd
/bby{194}bd
/orx{nx 2 div t1x mul ny 2 div t2x mul add  bbx 2 div sub}bd
/ory{nx 2 div t1y mul ny 2 div t2y mul add  bby 2 div sub}bd
/origx{angle cos orx mul angle sin ory mul sub neg}bd
/origy{angle cos ory mul angle sin orx mul add neg}bd
/col0{0.910777 0.688770 0.963003 cl}bd
/col1{0.099222 0.725506 0.357786 cl}bd
/col2{0.772051 0.745881 0.297456 cl}bd
/col3{0.221283 0.352624 0.504701 cl}bd
/ep0 3.5 def
/ep1 1 def
/ep 1.2 def
%%%---------------------------------------------------------------------------
/lechemin {
0.000000 0.000000 M
0.000000 0.000000 L
10.000000 -10.000000 L
30.000000 -5.000000 L
40.000000 0.000000 L
30.000000 10.000000 L
20.000000 15.000000 L
20.000000 15.000000 L
40.000000 20.000000 L
52.000000 30.000000 L
51.961524 30.000000 L
52.000000 30.000000 L
40.000000 20.000000 L
20.000000 15.000000 L
20.000000 15.000000 L
10.000000 15.000000 L
0.000000 30.000000 L
0.000000 30.000000 L
-0.000000 30.000000 L
-10.000000 45.000000 L
-20.000000 45.000000 L
-20.000000 45.000000 L
-40.000000 40.000000 L
-52.000000 30.000000 L
-51.961524 30.000000 L
-51.980762 30.033321 L
-37.320508 24.641016 L
-22.990381 9.820508 L
-22.990381 9.820508 L
-23.660254 20.980762 L
-20.000000 34.641016 L
-10.669873 28.480762 L
3.660254 13.660254 L
-0.000000 0.000000 L
0.000000 0.000000 L
}bd
/lemotif {
gs
np
lechemin
gs ep0 sl st gr
ep1 sl col1 st
gr
}def

/lesrotations{
gs
3 {
    gs
    decx decy tr    % faire varier pour decaler le motif
    drot ro         % ou pour le tourner  
                    % et verifier l'effet produit
    lemotif         % trace du motif de base (carreau)
    gr
    120 rotate       % on en fait 4
} repeat            %
gr                  % restaure fin du bloc des 4 rotations
} def

/ledemitour{
gs
2 {
    gs
    lesrotations
    gr
    0 a tr
    -1 -1 sc
  } repeat
gr
} def

/labande{
gs
ny {
     ledemitour
     t1x t1y tr          % on translate suivant Oy
   } repeat
gr
} def

/lepavage{
gs
nx {
     labande
     t2x t2y tr
   } repeat
gr
} def

gs                 % Remplissage du fond dans la couleur col3 choisie
0 0 M 0 500 L 500 500 L 500 0 L cp col0 fill
gs
echelle dup sc     % changement d'echelle de 
origx origy tr     % pour recentrer le dessin (eviter qu'il ne  disparaisse)
angle ro           % rotation suggeree par l'utilitaire pvdim
lepavage
gr
gr
showpage
end