drapeaux/pst-flags.sty

   1 \ProvidesPackage{pst-flags}[2012/11/16 v. 0.01 Flags for Europe (jg)]
   2 \RequirePackage{pst-xkey}
   3 \RequirePackage{pst-eucl}
   4 \RequirePackage{pstricks-add}
   5 \SpecialCoor
   6
   7 \pst@addfams{pst-flags}
   8 \define@key[psset]{pst-flags}{nation}[Germany]{\def\pst@flag@nation{#1}}
   9 \psset{nation=Germany}
  10
  11 \def\pstFlag{\pst@object{pstFlag}}
  12 \def\pstFlag@i{{\use@par\@nameuse{pst@Flag\pst@flag@nation}}}
  13
  14 \def\pst@FlagAustria{%
  15 \definecolor{austriaRed}{HTML}{F5002F} %Pantone 186
  16 \begin{pspicture}(0,0)(15,10)
  17 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
  18 \psframe[linecolor=austriaRed,fillstyle=solid,fillcolor=austriaRed](!0 10 3 div 2 mul)(15,10)
  19 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](!0 10 3 div)(!15 10 3 div 2 mul)
  20 \psframe[linecolor=austriaRed,fillstyle=solid,fillcolor=austriaRed](0,0)(!15 10 3 div)%
  21 \end{pspicture}}
  22
  23 \def\pst@FlagGermany{%
  24 \definecolor{germanRed}{HTML}{FF0000}
  25 \definecolor{germanGold}{HTML}{FFCC00}
  26 \begin{pspicture}(0,0)(15,9)
  27 %% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
  28 \psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,6)(15,9)
  29 \psframe[linecolor=germanRed,fillstyle=solid,fillcolor=germanRed](0,3)(15,6)
  30 \psframe[linecolor=germanGold,fillstyle=solid,fillcolor=germanGold](0,0)(15,3)
  31 \end{pspicture}}
  32
  33 \def\pst@FlagBelgium{%
  34 \definecolor{belgiumYellow}{RGB}{255 233 54}
  35 \definecolor{belgiumRed}{RGB}{255 15 33}
  36 \begin{pspicture}(0,0)(15,13)
  37 %% Flagge (Verh\"{a}ltnis 15 Breite : 13 H\"{o}he)
  38 \psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,0)(5,13)
  39 \psframe[linecolor=belgiumYellow,fillstyle=solid,fillcolor=belgiumYellow](5,0)(10,13)
  40 \psframe[linecolor=belgiumRed,fillstyle=solid,fillcolor=belgiumRed](10,0)(15,13)
  41 \end{pspicture}}
  42
  43 \def\pst@FlagBulgaria{%
  44 \definecolor{bulgariaRed}{HTML}{D62612}
  45 \definecolor{bulgariaGreen}{HTML}{00966E}
  46 \psset{unit=0.6}
  47 \begin{pspicture}(0,0)(25,15)
  48 %% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
  49 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,10)(25,15)
  50 \psframe[linecolor=bulgariaGreen,fillstyle=solid,fillcolor=bulgariaGreen](0,5)(25,10)
  51 \psframe[linecolor=bulgariaRed,fillstyle=solid,fillcolor=bulgariaRed](0,0)(25,5)
  52 \end{pspicture}}
  53
  54 \def\pst@FlagCzechRepublic{%
  55 \definecolor{czechRed}{HTML}{D7141A}
  56 \definecolor{czechBlue}{HTML}{11457E}
  57 \begin{pspicture}(0,0)(15,10)
  58 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
  59 %% Breite 1,5 : 1.5 H\"{o}he 1 : 1
  60 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,5)(15,10)
  61 \psframe[linecolor=czechRed,fillstyle=solid,fillcolor=czechRed](0,0)(15,5)
  62 \pspolygon[linecolor=czechBlue,fillstyle=solid,fillcolor=czechBlue](0,0)(7.5,5)(0,10)
  63 \end{pspicture}}
  64
  65 \def\pst@FlagDenmark{%
  66 \definecolor{denmarkRed}{HTML}{FF173D} %Pantone 185
  67 \psset{unit=0.4054}
  68 \begin{pspicture}(0,0)(37,28)
  69 %% Flagge (Verh\"{a}ltnis 37 Breite : 28 H\"{o}he)
  70 %% Breite 12 - 4 - 21 : H\"{o}he 12 - 4 - 12
  71 \psframe[linecolor=denmarkRed,fillstyle=solid,fillcolor=denmarkRed](0,0)(37,28)
  72 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](0,12)(12,12)(12,0)(16,0)(16,12)(37,12)(37,16)(16,16)(16,28)(12,28)(12,16)(0,16)
  73 \end{pspicture}}
  74
  75 \def\pst@FlagEstonia{%
  76 \definecolor{estoniaBlue}{RGB}{18 145 255}
  77 \psset{unit=1.3636}
  78 \begin{pspicture}(0,0)(11,7)
  79 %% Flagge (Verh\"{a}ltnis 11 Breite : 7 H\"{o}he)
  80 \psframe[linecolor=estoniaBlue,fillstyle=solid,fillcolor=estoniaBlue](0,3.5)(11,7)
  81 \psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,0)(11,3.5)
  82 \end{pspicture}}
  83
  84 \def\pst@FlagFinland{%
  85 \definecolor{finlandBlue}{RGB}{0 82 165}
  86 \psset{unit=0.8333}
  87 \begin{pspicture}(0,0)(18,11)
  88 %% Flagge (Verh\"{a}ltnis 18 Breite : 11 H\"{o}he)
  89 %% Breite 5 - 3 - 10 : H\"{o}he 4 - 3 - 4
  90 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(18,11)
  91 \pspolygon[linecolor=finlandBlue,fillstyle=solid,fillcolor=finlandBlue](0,4)(5,4)(5,0)(8,0)(8,4)(18,4)(18,7)(8,7)(8,11)(5,11)(5,7)(0,7)
  92 \end{pspicture}}
  93
  94 \def\pst@FlagFrance{%
  95 \definecolor{frenchRed}{HTML}{EF4531}
  96 \definecolor{frenchBlue}{HTML}{0055A4}
  97 \begin{pspicture}(0,0)(15,10)
  98 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
  99 \psframe[linecolor=frenchBlue,fillstyle=solid,fillcolor=frenchBlue](0,0)(5,10)
 100 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](5,0)(10,10)
 101 \psframe[linecolor=frenchRed,fillstyle=solid,fillcolor=frenchRed](10,0)(15,10)
 102 \end{pspicture}}
 103
 104 \def\pst@FlagUnitedKingdom{%
 105 \definecolor{ukRed}{RGB}{204 0 0}
 106 \definecolor{ukBlue}{RGB}{0 0 102}
 107 \psset{unit=0.25}
 108 \begin{pspicture*}(0,0)(60,30)
 109 %% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
 110 \psframe[linecolor=ukBlue,fillstyle=solid,fillcolor=ukBlue](0,0)(60,30)
 111 \rput{26.56}(0,-3.3){%
 112 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](-10,0)(70,6)
 113 \psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](-10,1)(30,3)
 114 \psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](30,3)(70,5)
 115 }
 116 \rput{-26.56}(!0 30 3.3 sub){%
 117 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](-10,0)(70,6)
 118 \psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](-10,1)(30,3)
 119 \psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](30,3)(70,5)
 120 }
 121 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](0,10)(25,10)(25,0)(35,0)(35,10)(60,10)(60,20)(35,20)(35,30)(25,30)(25,20)(0,20)
 122 \pspolygon[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](0,12)(27,12)(27,0)(33,0)(33,12)(60,12)(60,18)(33,18)(33,30)(27,30)(27,18)(0,18)
 123 \end{pspicture*}}
 124
 125 \def\pst@FlagGreece{%
 126 \definecolor{greeceBlue}{cmyk}{1 0.6 0 0.05}
 127 \begin{pspicture}(0,0)(27,18)
 128 \psset{unit=0.5555}
 129 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 130 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(27,18)
 131 \multido{\iA=0+4}{5}{%
 132 \rput(0,\iA){\psframe[linecolor=greeceBlue,fillstyle=solid,fillcolor=greeceBlue](0,0)(27,2)}
 133 }
 134 \psframe[linecolor=greeceBlue,fillstyle=solid,fillcolor=greeceBlue](0,18)(10,8)
 135 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](0,12)(4,12)(4,8)(6,8)(6,12)(10,12)(10,14)(6,14)(6,18)(4,18)(4,14)(0,14)
 136 \end{pspicture}}
 137
 138 \def\pst@FlagHungary{%
 139 \definecolor{hungaryRed}{HTML}{CE1126}
 140 \definecolor{hungaryGreen}{HTML}{008751}
 141 \psset{unit=0.5}
 142 \begin{pspicture}(0,0)(30,15)
 143 %% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
 144 \psframe[linecolor=hungaryRed,fillstyle=solid,fillcolor=hungaryRed](0,10)(30,15)
 145 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,5)(30,10)
 146 \psframe[linecolor=hungaryGreen,fillstyle=solid,fillcolor=hungaryGreen](0,0)(30,5)
 147 \end{pspicture}}
 148
 149 \def\pst@FlagIceland{%
 150 \definecolor{icelandBlue}{HTML}{0048E0}
 151 \definecolor{icelandRed}{HTML}{FF0F00}
 152 \psset{unit=0.6}
 153 \begin{pspicture}(0,0)(25,18)
 154 %% Flagge (Verh\"{a}ltnis 25 Breite : 18 H\"{o}he)
 155 %% Breite 7 - 4 - 14 : H\"{o}he 7 - 4 - 7
 156 \psframe[linecolor=icelandBlue,fillstyle=solid,fillcolor=icelandBlue](0,0)(25,18)
 157 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](0,7)(7,7)(7,0)(11,0)(11,7)(25,7)(25,11)(11,11)(11,18)(7,18)(7,11)(0,11)
 158 \pspolygon[linecolor=icelandRed,fillstyle=solid,fillcolor=icelandRed](0,8)(8,8)(8,0)(10,0)(10,8)(25,8)(25,10)(10,10)(10,18)(8,18)(8,10)(0,10)
 159 \end{pspicture}}
 160
 161 \def\pst@FlagIreland{%
 162 \definecolor{irelandOrange}{HTML}{FF7900}
 163 \definecolor{irelandGreen}{HTML}{009A49}
 164 \psset{unit=0.5}
 165 \begin{pspicture}(0,0)(30,15)
 166 %% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
 167 \psframe[linecolor=irelandGreen,fillstyle=solid,fillcolor=irelandGreen](0,0)(10,15)
 168 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](10,0)(20,15)
 169 \psframe[linecolor=irelandOrange,fillstyle=solid,fillcolor=irelandOrange](20,0)(30,15)
 170 \end{pspicture}}
 171
 172 \def\pst@FlagItaly{%
 173 \definecolor{italyRed}{RGB}{206 43 55}
 174 \definecolor{italyWhite}{RGB}{241 242 241}
 175 \definecolor{italyGreen}{RGB}{0 146 70}
 176 \begin{pspicture}(0,0)(15,10)
 177 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 178 \psframe[linecolor=italyGreen,fillstyle=solid,fillcolor=italyGreen](0,0)(5,10)
 179 \psframe[linecolor=italyWhite,fillstyle=solid,fillcolor=italyWhite](5,0)(10,10)
 180 \psframe[linecolor=italyRed,fillstyle=solid,fillcolor=italyRed](10,0)(15,10)
 181 \end{pspicture}}
 182
 183 \def\pst@FlagLatvia{%
 184 \definecolor{latviaMaroon}{HTML}{9E1B34}
 185 \psset{unit=0.5}
 186 \begin{pspicture}(0,0)(30,15)
 187 %% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
 188 %% H\"{o}he 2 - 1 - 2
 189 \psframe[linecolor=latviaMaroon,fillstyle=solid,fillcolor=latviaMaroon](0,9)(30,15)
 190 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,6)(30,9)
 191 \psframe[linecolor=latviaMaroon,fillstyle=solid,fillcolor=latviaMaroon](0,0)(30,6)
 192 \end{pspicture}}
 193
 194 \def\pst@FlagLithuania{%
 195 \definecolor{lithuaniaYellow}{RGB}{253 185 19}
 196 \definecolor{lithuaniaGreen}{RGB}{0 106 68}
 197 \definecolor{lithuaniaRed}{RGB}{193 39 45}
 198 \psset{unit=0.6}
 199 \begin{pspicture}(0,0)(25,15)
 200 %% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
 201 \psframe[linecolor=lithuaniaYellow,fillstyle=solid,fillcolor=lithuaniaYellow](0,10)(25,15)
 202 \psframe[linecolor=lithuaniaGreen,fillstyle=solid,fillcolor=lithuaniaGreen](0,5)(25,10)
 203 \psframe[linecolor=lithuaniaRed,fillstyle=solid,fillcolor=lithuaniaRed](0,0)(25,5)
 204 \end{pspicture}}
 205
 206 \def\pst@FlagLuxembourg{%
 207 \definecolor{luxembourgRed}{HTML}{FF1A24} %Pantone 032
 208 \definecolor{luxembourgBlue}{HTML}{26CFFF} %Pantone 299
 209 \psset{unit=3}
 210 \begin{pspicture}(0,0)(5,3)
 211 %% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
 212 \psframe[linecolor=luxembourgRed,fillstyle=solid,fillcolor=luxembourgRed](0,2)(5,3)
 213 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,1)(5,2)
 214 \psframe[linecolor=luxembourgBlue,fillstyle=solid,fillcolor=luxembourgBlue](0,0)(5,1)
 215 \end{pspicture}}
 216
 217 \def\pst@FlagMonaco{%
 218 \definecolor{monacoRed}{cmyk}{0 0.9 0.8 0.05}
 219 \psset{unit=0.6}
 220 \begin{pspicture}(0,0)(25,20)
 221 %% Flagge (Verh\"{a}ltnis 5 Breite : 4 H\"{o}he)
 222 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(25,10)
 223 \psframe[linecolor=monacoRed,fillstyle=solid,fillcolor=monacoRed](0,10)(25,20)
 224 \end{pspicture}}
 225
 226 \def\pst@FlagNetherlands{%
 227 \definecolor{netherlandsRed}{HTML}{AE1C28}
 228 \definecolor{netherlandsBlue}{HTML}{21468B}
 229 \begin{pspicture}(0,0)(15,10)
 230 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 231 \psframe[linecolor=netherlandsRed,fillstyle=solid,fillcolor=netherlandsRed](!0 10 3 div 2 mul)(15,10)
 232 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](!0 10 3 div)(!15 10 3 div 2 mul)
 233 \psframe[linecolor=netherlandsBlue,fillstyle=solid,fillcolor=netherlandsBlue](0,0)(!15 10 3 div)
 234 \end{pspicture}}
 235
 236 \def\pst@FlagNorway{%
 237 \definecolor{norgeBlue}{HTML}{002868}
 238 \definecolor{norgeRed}{HTML}{EF2B2D}
 239 \psset{unit=0.6818}
 240 \begin{pspicture}(0,0)(22,16)
 241 %% Wei{\ss}er Grundrahmen \"{u}ber komplette Flagge (Verh\"{a}ltnis 22 Breite : 16 H\"{o}he)
 242 %% 6 - 1 - 2 - 1 - 12 Breite : 6 - 1 - 2 - 1 - 6 H\"{o}he
 243 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(22,16)
 244 %% Rote Felder
 245 \psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](0,16)(6,10)
 246 \psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](10,16)(22,10)
 247 \psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](0,0)(6,6)
 248 \psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](10,0)(22,6)
 249 %% Blaue Felder
 250 \pspolygon[fillstyle=solid,fillcolor=norgeBlue,linecolor=norgeBlue](0,7)(7,7)(7,0)(9,0)(9,7)(22,7)(22,9)(9,9)(9,16)(7,16)(7,9)(0,9)
 251 \end{pspicture}}
 252
 253 \def\pst@FlagPoland{%
 254 \definecolor{polandRed}{HTML}{DC143C}
 255 \psset{unit=1.875}
 256 \begin{pspicture}(0,0)(8,5)
 257 %% Flagge (Verh\"{a}ltnis 8 Breite : 5 H\"{o}he)
 258 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,2.5)(8,5)
 259 \psframe[linecolor=polandRed,fillstyle=solid,fillcolor=polandRed](0,0)(8,2.5)
 260 \end{pspicture}}
 261
 262 \def\pst@FlagRomania{%
 263 \definecolor{romaniaBlue}{RGB}{0 43 127}
 264 \definecolor{romaniaYellow}{RGB}{252 209 22}
 265 \definecolor{romaniaRed}{RGB}{206 17 38}
 266 \begin{pspicture}(0,0)(15,10)
 267 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 268 \psframe[linecolor=romaniaBlue,fillstyle=solid,fillcolor=romaniaBlue](0,0)(5,10)
 269 \psframe[linecolor=romaniaYellow,fillstyle=solid,fillcolor=romaniaYellow](5,0)(10,10)
 270 \psframe[linecolor=romaniaRed,fillstyle=solid,fillcolor=romaniaRed](10,0)(15,10)
 271 \end{pspicture}}
 272
 273 \def\pst@FlagRussia{%
 274 \definecolor{russiaBlue}{HTML}{0039A6}
 275 \definecolor{russiaRed}{HTML}{D52B1E}
 276 \psset{unit=0.3333}
 277 \begin{pspicture}(0,0)(45,30)
 278 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 279 \psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,20)(45,30)
 280 \psframe[linecolor=russiaBlue,fillstyle=solid,fillcolor=russiaBlue](0,10)(45,20)
 281 \psframe[linecolor=russiaRed,fillstyle=solid,fillcolor=russiaRed](0,0)(45,10)
 282 \end{pspicture}}
 283
 284 \def\pst@FlagSweden{%
 285 \definecolor{swedenBlue}{RGB}{0 127 229}
 286 \definecolor{swedenYellow}{RGB}{255 204 0}
 287 \begin{pspicture}(0,0)(15,10)
 288 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 289 %% Breite 5 - 2 - 9 : H\"{o}he 4 - 2 - 4
 290 \psframe[linecolor=swedenBlue,fillstyle=solid,fillcolor=swedenBlue](0,0)(15,10)
 291 \pspolygon[linecolor=swedenYellow,fillstyle=solid,fillcolor=swedenYellow](0,4)(5,4)(5,0)(7,0)(7,4)(15,4)(15,6)(7,6)(7,10)(5,10)(5,6)(0,6)
 292 \end{pspicture}}
 293
 294 \def\pst@FlagSwitzerland{%
 295 \definecolor{switzerlandRed}{HTML}{FF0000}
 296 \psset{unit=0.4689}
 297 \begin{pspicture}(0,0)(32,32)
 298 %% Flagge (Verh\"{a}ltnis 1 Breite : 1 H\"{o}he)
 299 %% Kreuz: 6 7 6 7 6 : 6 7 6 7 6
 300 \psframe[linecolor=switzerlandRed,fillstyle=solid,fillcolor=switzerlandRed](0,0)(32,32)
 301 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](6,13)(13,13)(13,6)(19,6)(19,13)(26,13)(26,19)(19,19)(19,26)(13,26)(13,19)(6,19)
 302 \end{pspicture}}
 303
 304 \def\pst@FlagTurkey{%
 305 \definecolor{turkeyRed}{HTML}{CE1126}
 306 \psset{unit=0.55555}
 307 \begin{pspicture}(0,0)(27,18)
 308 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 309 \pnode(9,9){M1}
 310 \pnode(4.5,9){A1}
 311 \pnode(!9 1 16 div 18 mul add 9){M2}
 312 \pnode(!9 1 16 div 18 mul add 1 5 div 18 mul sub 9){A2}
 313 \psframe[linecolor=turkeyRed,fillstyle=solid,fillcolor=turkeyRed](0,0)(27,18)
 314 \pscircle[linecolor=white,fillstyle=solid,fillcolor=white](M1){4.5}
 315 \pscircle[linecolor=turkeyRed,fillstyle=solid,fillcolor=turkeyRed](M2){!1 5 div 18 mul}
 316 \pnode(0,9){A}
 317 \pnode(27,9){B}
 318 \pstInterCC[PointName=none,PointSymbol=none]{M1}{A1}{M2}{A2}{S1}{S2}
 319 \pstInterLL[PointName=none,PointSymbol=none]{A}{B}{S1}{S2}{D}
 320 \rput(D){\rput(2.25,0){%
 321 \pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](2.25;180)(2.25;-36)(2.25;108)(2.25;252)(2.25;36)
 322 }}
 323 \end{pspicture}}
 324
 325 \def\pst@FlagUkraine{%
 326 \definecolor{ukraineBlue}{HTML}{005BBB}
 327 \definecolor{ukraineYellow}{HTML}{FFD500}
 328 \begin{pspicture}(0,0)(15,10)
 329 %% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
 330 \psframe[linecolor=ukraineBlue,fillstyle=solid,fillcolor=ukraineBlue](0,5)(15,10)
 331 \psframe[linecolor=ukraineYellow,fillstyle=solid,fillcolor=ukraineYellow](0,0)(15,5)
 332 \end{pspicture}}
 333
 334 \def\pst@FlagUnitedStates{%
 335 \definecolor{USred}{HTML}{B22234}
 336 \definecolor{USblue}{HTML}{3C3B6E}
 337 \psset{unit=0.789}
 338 \begin{pspicture}(0,0)(19,10)
 339 %% White Background = Proportion of the flag
 340 \psframe[fillstyle=solid,fillcolor=USred,linecolor=USred,linestyle=none,linewidth=0pt](0,0)(19,10)
 341 %% 6 white stripes: 13 stripes alternating red (7) and white (6)
 342 \multido{\rA=0.769+1.538}{6}{%
 343 \rput(0,\rA){\psframe[fillstyle=solid,linestyle=none,linewidth=0pt,fillcolor=white](0,0)(!19 10 13 div)}
 344 }
 345 %%Blue rectangle in the upper left (Union)
 346 \psframe[fillstyle=solid,fillcolor=USblue,linecolor=USblue](!0 6 13 div 10 mul)(!2 5 div 19 mul 10)
 347 %%PENTAGRAMM
 348 \def\star{%
 349 \def\outer{0.308}
 350 \pnode(\outer;90){A}
 351 \pnode(\outer;162){B}
 352 \pnode(\outer;234){C}
 353 \pnode(\outer;306){D}
 354 \pnode(\outer;18){E}
 355 \pspolygon[fillstyle=solid,fillcolor=white,linestyle=none,linewidth=0pt]
 356 (A)(C)(E)(B)(D)(A)
 357 }
 358 %% Arrangment of the stars
 359 %% 5 lines with 6 stars
 360 \multido{\rV=9.462+-1.076}{5}{%
 361 \multido{\rL=0.633+1.266}{6}{%
 362 \rput(\rL,\rV){\star}
 363 }}
 364 %% 4 lines with 5 stars
 365 \multido{\rV=8.924+-1.076}{4}{%
 366 \multido{\rL=1.266+1.266}{5}{%
 367 \rput(\rL,\rV){\star}
 368 }}
 369 \end{pspicture}}
 370
 371 \endinput