%!PS-Adobe-3.0 EPSF-3.0 %%Creator: auto5 %%Date: -- %%Title: -- %%Orientation: Portrait %%BoundingBox: 0 0 194 112 %%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 %% C'est ici que l'angle, en degrés, de la rotation peut être modifié /angle{71.013000}bd %% On peut aussi modifier l'échelle et donc les dimensions du motif /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{194}bd /bby{112}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.93 0.93 0.96 cl}bd /col1{1 1 1 cl}bd /col2{0.066022 0.875492 0.789918 cl}bd /col3{0.025372 0.581446 0.427556 cl}bd /ep0 3.5 def /ep1 2 def /ep 1.2 def %%%--------------------------------------------------------------------------- /lechemin { 0.000000 0.000000 M 0.000000 0.000000 L 5.000000 -3.000000 L 10.000000 -8.000000 L 15.000000 -10.000000 L 20.000000 -8.000000 L 25.000000 -5.000000 L 30.000000 0.000000 L 35.000000 5.000000 L 40.000000 8.000000 L 30.000000 10.000000 L 25.000000 15.000000 L 25.000000 15.000000 L 30.000000 18.000000 L 35.000000 20.000000 L 40.000000 25.000000 L 45.000000 22.000000 L 47.000000 25.000000 L 50.000000 26.000000 L 52.000000 30.000000 L 51.961524 30.000000 L 52.000000 30.000000 L 50.000000 26.000000 L 47.000000 25.000000 L 45.000000 22.000000 L 40.000000 25.000000 L 35.000000 20.000000 L 30.000000 18.000000 L 25.000000 15.000000 L 25.000000 15.000000 L 20.000000 12.000000 L 10.000000 15.000000 L 5.000000 20.000000 L 0.000000 30.000000 L 0.000000 30.000000 L -0.000000 30.000000 L -5.000000 40.000000 L -10.000000 45.000000 L -20.000000 48.000000 L -25.000000 45.000000 L -25.000000 45.000000 L -30.000000 42.000000 L -35.000000 40.000000 L -40.000000 35.000000 L -45.000000 38.000000 L -47.000000 35.000000 L -50.000000 34.000000 L -52.000000 30.000000 L -51.961524 30.000000 L -51.980762 30.033321 L -47.516660 30.301270 L -45.150635 28.203194 L -41.552559 27.971143 L -41.650635 22.141016 L -34.820508 20.310889 L -30.588457 16.980762 L -25.490381 14.150635 L -25.490381 14.150635 L -23.660254 20.980762 L -26.928203 30.641016 L -21.830127 27.810889 L -15.000000 25.980762 L -8.169873 24.150635 L -3.071797 21.320508 L 1.160254 17.990381 L 1.928203 12.660254 L 0.098076 5.830127 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