summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/lettre/ecusson55.ps
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-10-10 22:37:14 +0000
committerKarl Berry <karl@freefriends.org>2013-10-10 22:37:14 +0000
commit95ca32d40c7d3f78258cac6b977f909169659be4 (patch)
treeb1b639fc1a9f909289b5a4df9ef2523303f59719 /Master/texmf-dist/doc/latex/lettre/ecusson55.ps
parent3663c65a6db3af1da47593f800cd586161bba772 (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.ps330
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