%!PS-Adobe-2.0 EPSF-1.2 %%BoundingBox: 11 3 38 48 %%BeginPreview: 28 46 1 46 % 00048000 % 001ec000 % 009fd000 % 00eee000 % 017fe000 % 03fffc00 % 017f7800 % 01dd7000 % 07df7e00 % fffffff0 % 80040010 % 83c40010 % c7e40010 % e3c42d90 % ff642e90 % fdf42f90 % bffc2f90 % fcfc2790 % fe7c2f90 % bf7c2f90 % fffc2e90 % fffc2d90 % fffc2810 % fffc2810 % bffc2810 % bffc2810 % f77c2810 % 8efc7c10 % 8dfc7c10 % 98fdab10 % 88fdc790 % 8fbf83a0 % 9f7dc720 % 8b7d6d20 % 4f3c7c20 % 207c3840 % 207c0080 % 103c0080 % 080c0000 % 04040600 % 03040800 % 00e4f000 % 001f0000 % 00000000 % 5e6d5820 % 5a4850a0 %%EndImage %%EndPreview %! /Jaune {1 setgray} def /Rouge {1 setgray} def /Noir {0 setgray} def /Blanc {1 setgray} def % Ellipse routine : % Syntaxe: Open_Ellipse % where: rad -> max(x_width, y_width) % sclx -> (rad==x_width) ? 1 : x_width / y_width % scly -> (rad==x_width) ? y_width / x_width : 1 % centx -> x_center % centy -> y_center /Open_Ellipse { gsave newpath /cmtx matrix currentmatrix def translate scale 0 0 3 -1 roll 0 360 arc } def /Close_Ellipse { cmtx setmatrix grestore } def /EcupathG {newpath 20 70 moveto 45 70 lineto 45 10 lineto 45 35 25 270 180 arcn closepath} def /EcupathD {newpath 45 70 moveto 70 70 lineto 70 35 lineto 45 35 25 0 270 arcn closepath} def /Ecu {EcupathG 0.3 setlinewidth stroke EcupathD 0.3 setlinewidth stroke} def % RayonDroit routine: % Syntax: RayonDroit % Dessine un rayon droit dans la direction ang. % /RayonDroit { gsave newpath /cmtx matrix currentmatrix def /angle exch def angle rotate rmin 0 moveto rmax 0 lineto rmin -1.5 lineto rmin 1.5 lineto rmax 0 lineto gsave closepath Jaune fill grestore stroke cmtx setmatrix grestore } def % RayonFlamme routine: % Syntax: RayonFlamme % Dessine un rayon flamme dans la direction ang. % /RayonFlamme { gsave newpath /cmtx matrix currentmatrix def /angle exch def angle rotate rmax 0 moveto rmax rmin sub 3 div dup 2 mul rmin add 4 3 -1 roll rmin add -3 4 2 roll rmin 1.5 curveto rmin -1.5 lineto rmax rmin sub 3 div dup 2 mul rmin add -6 3 -1 roll rmin add 2 4 2 roll rmax 0 curveto gsave closepath Jaune fill grestore stroke cmtx setmatrix grestore } def % Soleil routine: % Syntax: Soleil % Dessine le demi+ soleil de l'ecusson centre en x, y % /Soleil {gsave newpath /omtx matrix currentmatrix def /rmax exch def /rmin exch def translate 0 0 rmin -20 200 arc gsave closepath Jaune fill grestore 0 RayonDroit 45 RayonDroit 90 RayonDroit 135 RayonDroit 180 RayonDroit 22.5 RayonFlamme 67.5 RayonFlamme 112.5 RayonFlamme 157.5 RayonFlamme stroke omtx setmatrix grestore } def /CleTube {newpath 53 38 moveto 53 63 lineto 54.5 63 1.5 180 0 arcn 56 38 lineto gsave closepath Jaune fill grestore stroke} def /CleCode {newpath 60.5 59 moveto 59 59 lineto 59 56 lineto 57.5 56 lineto 57.5 55 lineto 59 55 lineto 59 52 lineto 60.5 52 lineto 60.5 55 lineto 62 55 lineto 62 56 lineto 60.5 56 lineto 60.5 59 lineto 56 58 moveto 57 58 lineto 57 62 lineto 58 62 lineto 59 61 lineto 60.5 61 lineto 61.5 62 lineto 63 62 lineto 63 59 lineto 62 59 lineto 62 58 lineto 63 58 lineto 63 53 lineto 62 53 lineto 62 52 lineto 63 52 lineto 63 49 lineto 61.5 49 lineto 60.5 50 lineto 59 50 lineto 58 49 lineto 57 49 lineto 57 53 lineto 56 53 lineto gsave closepath Jaune fill grestore stroke} def /ClePoignee {newpath 47 23 7.5 0 90 arc 47 38 7.5 270 360 arc 62 38 7.5 180 270 arc 62 23 7.5 90 180 arc 47 30.5 moveto 47 23 5.5 90 0 arcn 56.5 23 lineto 62 23 5.5 180 90 arcn 62 32.5 lineto 62 38 5.5 270 180 arcn 52.5 38 lineto 47 38 5.5 360 270 arcn 47 28.5 lineto gsave Jaune fill grestore newpath 52 38 moveto 57 38 lineto 57 37 1 90 -90 arcn 52 36 lineto 52 37 1 -90 90 arcn closepath gsave Jaune fill grestore stroke newpath 52 25 moveto 57 25 lineto 57 24 1 90 -90 arcn 52 23 lineto 52 24 1 -90 90 arcn closepath gsave Jaune fill grestore stroke newpath 54.5 23 2 -180 0 arc closepath gsave Jaune fill grestore stroke newpath 60 33.5 moveto 60 27.5 lineto 61 27.5 1 180 0 arc 62 33.5 lineto 61 33.5 1 0 180 arc closepath gsave Jaune fill grestore stroke newpath 62 30.5 2 -90 90 arc closepath gsave Jaune fill grestore stroke newpath 47 33.5 moveto 47 27.5 lineto 48 27.5 1 180 0 arc 49 33.5 lineto 48 33.5 1 0 180 arc closepath gsave Jaune fill grestore stroke newpath 47 30.5 2 90 -90 arc closepath gsave Jaune fill grestore stroke 47 23 7.5 15.5 74.5 arc stroke 62 23 7.5 105.5 164.5 arc stroke 62 38 7.5 195.5 254.5 arc stroke 47 38 7.5 285.5 344.5 arc stroke 47 23 5.5 21.3 68.7 arc stroke 62 23 5.5 111.3 158.7 arc stroke 62 38 5.5 201.3 248.7 arc stroke 47 38 5.5 291.3 338.7 arc stroke} def /Cle { gsave newpath /cmtx matrix currentmatrix def 1 0 translate CleTube CleCode ClePoignee cmtx setmatrix grestore } def /AigleCorps {newpath 45 56 moveto 38 62 lineto 32 62 lineto 31 61 lineto 34 60 34 59 32 58 curveto 33 55 36 56 38 55 curveto 38 50 33 46 34 51 curveto 23 64 lineto 20 60 23 59 30 52 curveto 21 57 lineto 20 54 22 53 29 50 curveto 21 51 lineto 22 47 23 47 28 47 curveto 21 45 lineto 23 42 24 43 30 45 curveto 22 39 lineto 25 37 26 39 31 43 curveto 27 33 lineto 30 33 31 35 34 42 curveto 34 39 lineto 35 40 36 41 36 42 curveto 39 43 40 40 34 35 curveto 39 31 39 30 41 35 curveto 41 31 37 27 37 26 curveto 40 28 lineto 36 23 37 19 39 19 curveto 37 19 41 23 42 25 curveto 41 20 lineto 42 20 lineto 45 15 lineto gsave closepath Noir fill grestore stroke} def /AiglePatte {newpath 37 34 moveto 33 30 lineto 32 30 30 31 28 31 curveto 28 30.5 29 31 31 29 curveto 27 29 27 28 26.5 27.5 curveto 28 28 28.5 28 30 28 curveto 28 27 27 25 28 25 curveto 29 27 32 27 33 26 curveto 34 24 31 25 32 24 curveto 33 23 36 27 34 29 curveto 38 33 lineto gsave closepath Rouge fill grestore stroke} def /AigleBec { newpath 31 61 moveto 27 61 27 61 28 59 curveto 28 59.5 28 59.5 30 59.5 curveto 32 59.5 32 59.5 32 58 curveto 30 58 29 57 29 58 curveto 29 56.5 30 57 33 57 curveto 35 58.5 34 60 31 61 curveto gsave closepath Rouge fill grestore stroke } def /AigleCouronne { newpath 38 62 moveto 38 63 lineto 38 64.5 1.5 -90 90 arc 32 66 lineto 32 64.5 1.5 90 -90 arc 32 62 lineto 38 62 lineto gsave closepath Rouge fill grestore stroke 38 63 moveto 32 63 lineto 34 64.5 moveto 33 64.5 1 0 360 arc stroke 38 64.5 moveto 37 64.5 1 0 360 arc stroke 38 64 moveto 35 66.4 0.5 -90 270 arc Noir fill } def /AigleOeil {0.7 1 0.5 35.3 60.4 Open_Ellipse gsave Jaune fill grestore Close_Ellipse} def /Aigle { AigleCorps AiglePatte AigleBec AigleCouronne AigleOeil} def /IHS {newpath 0.8 setlinewidth 41 75.5 moveto 41 71.5 lineto 43 75.5 moveto 43 71.5 lineto 43 73.5 moveto 45 73.5 lineto 45 75.5 moveto 45 71.5 lineto 49 75 moveto 47 75 lineto 47.5 73.5 lineto 47 72 lineto 49 72 lineto 42 76.5 moveto 44 76.5 lineto 45 76.5 1 180 0 arcn 48 76.5 lineto stroke} def /PostTenebrasLux {22 3 moveto Weight { /Helvetica-Bold findfont } { /Helvetica findfont } ifelse 4.5 scalefont setfont (POST TENEBRAS LUX) show} def % Ecusson routine: % Syntaxe: X Y SC W Ecusson -- % Dessine l'ecusson de Geneve centre dans un carre virtuel de % SC points de cote dont le bas gauche est en X,Y. % W est le poids de la legende "POST TENEBRAS LUX" (false = normal, true = bold) % % SC % <--------------------------> % % % ^ --------------------- % | | | | % | | | | % | | | | % | | | | % | | | | % SC | \ | / % | \ | / % | \ | / % | \ | / % | --------- % X | %-------------->v POST TENEBRAS LUX % ^ % | % | % | % Y | % | % | %(0,0) | /Ecusson {/Weight exch def gsave newpath /amtx matrix currentmatrix def 3 1 roll translate 100 div dup scale 0.1 setlinewidth 0 setlinejoin 45 72 7.5 15 Soleil EcupathG Jaune fill EcupathD Rouge fill Noir Ecu Cle Aigle IHS PostTenebrasLux amtx setmatrix grestore } def % tests du fichier: 0 0 55 false Ecusson % 50 500 55 false Ecusson % 150 300 300 true Ecusson % showpage