X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=drapeaux%2Fflag_of_united_states.tex;fp=drapeaux%2Fflag_of_united_states.tex;h=b9e86b6933244128732c41c26fa21ad7b395f715;hp=0000000000000000000000000000000000000000;hb=55903277fb344847698a1620bbf8c757e3b236da;hpb=f9672d3b464e59708de361064402a61ffed4c93a

diff --git a/drapeaux/flag_of_united_states.tex b/drapeaux/flag_of_united_states.tex
new file mode 100644
index 0000000..b9e86b6
--- /dev/null
+++ b/drapeaux/flag_of_united_states.tex
@@ -0,0 +1,57 @@
+\documentclass{article}
+\usepackage{web}
+\margins{0pt}{0pt}{0pt}{0pt}   %% Kein Seitenrand
+\screensize{100mm}{190mm}      %% Dimensionen: H\"{o}he, Breite des Dokuments
+
+\parindent0pt
+
+\usepackage{pstricks,pst-eucl,pstricks-add}
+
+\definecolor{USred}{HTML}{B22234}
+\definecolor{USblue}{HTML}{3C3B6E}
+
+
+\begin{document}
+
+\thispagestyle{empty}
+
+\begin{pspicture}(0,0)(19,10)
+%% White Background = Proportion of the flag
+\psframe[fillstyle=solid,fillcolor=USred,linecolor=USred,linestyle=none,linewidth=0pt](0,0)(19,10)
+
+%% 6 white stripes: 13 stripes alternating red (7) and white (6)
+\multido{\rA=0.769+1.538}{6}{%
+\rput(0,\rA){\psframe[fillstyle=solid,linestyle=none,linewidth=0pt,fillcolor=white](0,0)(!19
+10 13 div)}
+}
+
+%%Blue rectangle in the upper left (Union)
+\psframe[fillstyle=solid,fillcolor=USblue,linecolor=USblue](!0 6 13 div
+10 mul)(!2 5 div 19 mul 10)
+
+%%PENTAGRAMM
+\def\star{%
+\def\outer{0.308}
+\pnode(\outer;90){A}
+\pnode(\outer;162){B}
+\pnode(\outer;234){C}
+\pnode(\outer;306){D}
+\pnode(\outer;18){E}
+\pspolygon[fillstyle=solid,fillcolor=white,linestyle=none,linewidth=0pt]
+(A)(C)(E)(B)(D)(A)
+}
+
+%% Arrangment of the stars
+%% 5 lines with 6 stars
+\multido{\rV=9.462+-1.076}{5}{%
+\multido{\rL=0.633+1.266}{6}{%
+\rput(\rL,\rV){\star}
+}}
+%% 4 lines with 5 stars
+\multido{\rV=8.924+-1.076}{4}{%
+\multido{\rL=1.266+1.266}{5}{%
+\rput(\rL,\rV){\star}
+}}
+\end{pspicture}
+
+\end{document}