... quelques drapeaux en plus ...
[carto.git] / drapeaux / flag_of_united_states.tex
1 \documentclass{article}
2 \usepackage{web}
3 \margins{0pt}{0pt}{0pt}{0pt} %% Kein Seitenrand
4 \screensize{100mm}{190mm} %% Dimensionen: H\"{o}he, Breite des Dokuments
5
6 \parindent0pt
7
8 \usepackage{pstricks,pst-eucl,pstricks-add}
9
10 \definecolor{USred}{HTML}{B22234}
11 \definecolor{USblue}{HTML}{3C3B6E}
12
13
14 \begin{document}
15
16 \thispagestyle{empty}
17
18 \begin{pspicture}(0,0)(19,10)
19 %% White Background = Proportion of the flag
20 \psframe[fillstyle=solid,fillcolor=USred,linecolor=USred,linestyle=none,linewidth=0pt](0,0)(19,10)
21
22 %% 6 white stripes: 13 stripes alternating red (7) and white (6)
23 \multido{\rA=0.769+1.538}{6}{%
24 \rput(0,\rA){\psframe[fillstyle=solid,linestyle=none,linewidth=0pt,fillcolor=white](0,0)(!19
25 10 13 div)}
26 }
27
28 %%Blue rectangle in the upper left (Union)
29 \psframe[fillstyle=solid,fillcolor=USblue,linecolor=USblue](!0 6 13 div
30 10 mul)(!2 5 div 19 mul 10)
31
32 %%PENTAGRAMM
33 \def\star{%
34 \def\outer{0.308}
35 \pnode(\outer;90){A}
36 \pnode(\outer;162){B}
37 \pnode(\outer;234){C}
38 \pnode(\outer;306){D}
39 \pnode(\outer;18){E}
40 \pspolygon[fillstyle=solid,fillcolor=white,linestyle=none,linewidth=0pt]
41 (A)(C)(E)(B)(D)(A)
42 }
43
44 %% Arrangment of the stars
45 %% 5 lines with 6 stars
46 \multido{\rV=9.462+-1.076}{5}{%
47 \multido{\rL=0.633+1.266}{6}{%
48 \rput(\rL,\rV){\star}
49 }}
50 %% 4 lines with 5 stars
51 \multido{\rV=8.924+-1.076}{4}{%
52 \multido{\rL=1.266+1.266}{5}{%
53 \rput(\rL,\rV){\star}
54 }}
55 \end{pspicture}
56
57 \end{document}

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.