diff options
author | Karl Berry <karl@freefriends.org> | 2013-10-10 22:37:14 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-10-10 22:37:14 +0000 |
commit | 95ca32d40c7d3f78258cac6b977f909169659be4 (patch) | |
tree | b1b639fc1a9f909289b5a4df9ef2523303f59719 /Master/texmf-dist/doc/latex/lettre/ecusson55.ps | |
parent | 3663c65a6db3af1da47593f800cd586161bba772 (diff) |
lettre (10oct13)
git-svn-id: svn://tug.org/texlive/trunk@31879 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/lettre/ecusson55.ps')
-rw-r--r-- | Master/texmf-dist/doc/latex/lettre/ecusson55.ps | 330 |
1 files changed, 330 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/lettre/ecusson55.ps b/Master/texmf-dist/doc/latex/lettre/ecusson55.ps new file mode 100644 index 00000000000..27934d450e1 --- /dev/null +++ b/Master/texmf-dist/doc/latex/lettre/ecusson55.ps @@ -0,0 +1,330 @@ +%!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: <rad sclx scly centx centy> 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: <ang> 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: <ang> 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: <x y rsol rrays> 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 |