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}