les fichiers

diff --git a/drapeaux/Drapeaux_europe.pdf b/drapeaux/Drapeaux_europe.pdf
new file mode 100644 (file)
index 0000000..76e7a0a
Binary files /dev/null and b/drapeaux/Drapeaux_europe.pdf differ

diff --git a/drapeaux/Drapeaux_europe.tex b/drapeaux/Drapeaux_europe.tex
new file mode 100644 (file)
index 0000000..a2bb40f
--- /dev/null
+++ b/drapeaux/Drapeaux_europe.tex
@@ -0,0 +1,74 @@
+
+\documentclass{article}
+\usepackage{pst-flags}
+
+
+\begin{document}
+
+The default is \verb!nation=Germany!.
+
+Possible values for \texttt{nation} are:
+
+\texttt{Austria, Belgium, Bulgaria, CzechRepublic, Denmark, Estonia, Finland, France, UnitedKingdom, Greece, Hungary, Iceland, Ireland, Italy, Latvia, Lithuania, Luxembourg, Monaco, Netherlands, Norway, Poland, Romania, Russia, Sweden, Switzerland, Turkey, Ukraine, UnitedStates}
+
+\psset{unit=2.5mm}
+
+\pstFlag
+
+\pstFlag[nation=Austria]
+
+\pstFlag[nation=Belgium]
+
+\pstFlag[nation=Bulgaria]
+
+\pstFlag[nation=CzechRepublic]
+
+\pstFlag[nation=Denmark]
+
+\pstFlag[nation=Estonia]
+
+\pstFlag[nation=Finland]
+
+\pstFlag[nation=France]
+
+\pstFlag[nation=UnitedKingdom]
+
+\pstFlag[nation=Greece]
+
+\pstFlag[nation=Hungary]
+
+\pstFlag[nation=Iceland]
+
+\pstFlag[nation=Ireland]
+
+\pstFlag[nation=Italy]
+
+\pstFlag[nation=Latvia]
+
+\pstFlag[nation=Lithuania]
+
+\pstFlag[nation=Luxembourg]
+
+\pstFlag[nation=Monaco]
+
+\pstFlag[nation=Netherlands]
+
+\pstFlag[nation=Norway]
+
+\pstFlag[nation=Poland]
+
+\pstFlag[nation=Romania]
+
+\pstFlag[nation=Russia]
+
+\pstFlag[nation=Sweden]
+
+\pstFlag[nation=Switzerland]
+
+\pstFlag[nation=Turkey]
+
+\pstFlag[nation=Ukraine]
+
+\pstFlag[nation=UnitedStates]
+
+\end{document} 
\ No newline at end of file

diff --git a/drapeaux/pst-flags.sty b/drapeaux/pst-flags.sty
new file mode 100644 (file)
index 0000000..2414e71
--- /dev/null
+++ b/drapeaux/pst-flags.sty
@@ -0,0 +1,371 @@
+\ProvidesPackage{pst-flags}[2012/11/16 v. 0.01 Flags for Europe (jg)]
+\RequirePackage{pst-xkey}
+\RequirePackage{pst-eucl}
+\RequirePackage{pstricks-add}
+\SpecialCoor
+
+\pst@addfams{pst-flags}
+\define@key[psset]{pst-flags}{nation}[Germany]{\def\pst@flag@nation{#1}}
+\psset{nation=Germany}
+
+\def\pstFlag{\pst@object{pstFlag}}
+\def\pstFlag@i{{\use@par\@nameuse{pst@Flag\pst@flag@nation}}}
+
+\def\pst@FlagAustria{%
+\definecolor{austriaRed}{HTML}{F5002F} %Pantone 186
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=austriaRed,fillstyle=solid,fillcolor=austriaRed](!0 10 3 div 2 mul)(15,10)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](!0 10 3 div)(!15 10 3 div 2 mul)
+\psframe[linecolor=austriaRed,fillstyle=solid,fillcolor=austriaRed](0,0)(!15 10 3 div)%
+\end{pspicture}}
+
+\def\pst@FlagGermany{%
+\definecolor{germanRed}{HTML}{FF0000}
+\definecolor{germanGold}{HTML}{FFCC00}
+\begin{pspicture}(0,0)(15,9)
+%% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
+\psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,6)(15,9)
+\psframe[linecolor=germanRed,fillstyle=solid,fillcolor=germanRed](0,3)(15,6)
+\psframe[linecolor=germanGold,fillstyle=solid,fillcolor=germanGold](0,0)(15,3)
+\end{pspicture}}
+
+\def\pst@FlagBelgium{%
+\definecolor{belgiumYellow}{RGB}{255 233 54}
+\definecolor{belgiumRed}{RGB}{255 15 33}
+\begin{pspicture}(0,0)(15,13)
+%% Flagge (Verh\"{a}ltnis 15 Breite : 13 H\"{o}he)
+\psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,0)(5,13)
+\psframe[linecolor=belgiumYellow,fillstyle=solid,fillcolor=belgiumYellow](5,0)(10,13)
+\psframe[linecolor=belgiumRed,fillstyle=solid,fillcolor=belgiumRed](10,0)(15,13)
+\end{pspicture}}
+
+\def\pst@FlagBulgaria{%
+\definecolor{bulgariaRed}{HTML}{D62612}
+\definecolor{bulgariaGreen}{HTML}{00966E}
+\psset{unit=0.6}
+\begin{pspicture}(0,0)(25,15)
+%% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,10)(25,15)
+\psframe[linecolor=bulgariaGreen,fillstyle=solid,fillcolor=bulgariaGreen](0,5)(25,10)
+\psframe[linecolor=bulgariaRed,fillstyle=solid,fillcolor=bulgariaRed](0,0)(25,5)
+\end{pspicture}}
+
+\def\pst@FlagCzechRepublic{%
+\definecolor{czechRed}{HTML}{D7141A}
+\definecolor{czechBlue}{HTML}{11457E}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+%% Breite 1,5 : 1.5 H\"{o}he 1 : 1
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,5)(15,10)
+\psframe[linecolor=czechRed,fillstyle=solid,fillcolor=czechRed](0,0)(15,5)
+\pspolygon[linecolor=czechBlue,fillstyle=solid,fillcolor=czechBlue](0,0)(7.5,5)(0,10)
+\end{pspicture}}
+
+\def\pst@FlagDenmark{%
+\definecolor{denmarkRed}{HTML}{FF173D} %Pantone 185
+\psset{unit=0.4054}
+\begin{pspicture}(0,0)(37,28)
+%% Flagge (Verh\"{a}ltnis 37 Breite : 28 H\"{o}he)
+%% Breite 12 - 4 - 21 : H\"{o}he 12 - 4 - 12
+\psframe[linecolor=denmarkRed,fillstyle=solid,fillcolor=denmarkRed](0,0)(37,28)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagEstonia{%
+\definecolor{estoniaBlue}{RGB}{18 145 255}
+\psset{unit=1.3636}
+\begin{pspicture}(0,0)(11,7)
+%% Flagge (Verh\"{a}ltnis 11 Breite : 7 H\"{o}he)
+\psframe[linecolor=estoniaBlue,fillstyle=solid,fillcolor=estoniaBlue](0,3.5)(11,7)
+\psframe[linecolor=black,fillstyle=solid,fillcolor=black](0,0)(11,3.5)
+\end{pspicture}}
+
+\def\pst@FlagFinland{%
+\definecolor{finlandBlue}{RGB}{0 82 165}
+\psset{unit=0.8333}
+\begin{pspicture}(0,0)(18,11)
+%% Flagge (Verh\"{a}ltnis 18 Breite : 11 H\"{o}he)
+%% Breite 5 - 3 - 10 : H\"{o}he 4 - 3 - 4
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(18,11)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagFrance{%
+\definecolor{frenchRed}{HTML}{EF4531}
+\definecolor{frenchBlue}{HTML}{0055A4}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=frenchBlue,fillstyle=solid,fillcolor=frenchBlue](0,0)(5,10)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](5,0)(10,10)
+\psframe[linecolor=frenchRed,fillstyle=solid,fillcolor=frenchRed](10,0)(15,10)
+\end{pspicture}}
+
+\def\pst@FlagUnitedKingdom{%
+\definecolor{ukRed}{RGB}{204 0 0}
+\definecolor{ukBlue}{RGB}{0 0 102}
+\psset{unit=0.25}
+\begin{pspicture*}(0,0)(60,30)
+%% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
+\psframe[linecolor=ukBlue,fillstyle=solid,fillcolor=ukBlue](0,0)(60,30)
+\rput{26.56}(0,-3.3){%
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](-10,0)(70,6)
+\psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](-10,1)(30,3)
+\psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](30,3)(70,5)
+}
+\rput{-26.56}(!0 30 3.3 sub){%
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](-10,0)(70,6)
+\psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](-10,1)(30,3)
+\psframe[linecolor=ukRed,fillstyle=solid,fillcolor=ukRed](30,3)(70,5)
+}
+\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)
+\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)
+\end{pspicture*}}
+
+\def\pst@FlagGreece{%
+\definecolor{greeceBlue}{cmyk}{1 0.6 0 0.05}
+\begin{pspicture}(0,0)(27,18)
+\psset{unit=0.5555}
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(27,18)
+\multido{\iA=0+4}{5}{%
+\rput(0,\iA){\psframe[linecolor=greeceBlue,fillstyle=solid,fillcolor=greeceBlue](0,0)(27,2)}
+}
+\psframe[linecolor=greeceBlue,fillstyle=solid,fillcolor=greeceBlue](0,18)(10,8)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagHungary{%
+\definecolor{hungaryRed}{HTML}{CE1126}
+\definecolor{hungaryGreen}{HTML}{008751}
+\psset{unit=0.5}
+\begin{pspicture}(0,0)(30,15)
+%% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
+\psframe[linecolor=hungaryRed,fillstyle=solid,fillcolor=hungaryRed](0,10)(30,15)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,5)(30,10)
+\psframe[linecolor=hungaryGreen,fillstyle=solid,fillcolor=hungaryGreen](0,0)(30,5)
+\end{pspicture}}
+
+\def\pst@FlagIceland{%
+\definecolor{icelandBlue}{HTML}{0048E0}
+\definecolor{icelandRed}{HTML}{FF0F00}
+\psset{unit=0.6}
+\begin{pspicture}(0,0)(25,18)
+%% Flagge (Verh\"{a}ltnis 25 Breite : 18 H\"{o}he)
+%% Breite 7 - 4 - 14 : H\"{o}he 7 - 4 - 7
+\psframe[linecolor=icelandBlue,fillstyle=solid,fillcolor=icelandBlue](0,0)(25,18)
+\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)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagIreland{%
+\definecolor{irelandOrange}{HTML}{FF7900}
+\definecolor{irelandGreen}{HTML}{009A49}
+\psset{unit=0.5}
+\begin{pspicture}(0,0)(30,15)
+%% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
+\psframe[linecolor=irelandGreen,fillstyle=solid,fillcolor=irelandGreen](0,0)(10,15)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](10,0)(20,15)
+\psframe[linecolor=irelandOrange,fillstyle=solid,fillcolor=irelandOrange](20,0)(30,15)
+\end{pspicture}}
+
+\def\pst@FlagItaly{%
+\definecolor{italyRed}{RGB}{206 43 55}
+\definecolor{italyWhite}{RGB}{241 242 241}
+\definecolor{italyGreen}{RGB}{0 146 70}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=italyGreen,fillstyle=solid,fillcolor=italyGreen](0,0)(5,10)
+\psframe[linecolor=italyWhite,fillstyle=solid,fillcolor=italyWhite](5,0)(10,10)
+\psframe[linecolor=italyRed,fillstyle=solid,fillcolor=italyRed](10,0)(15,10)
+\end{pspicture}}
+
+\def\pst@FlagLatvia{%
+\definecolor{latviaMaroon}{HTML}{9E1B34}
+\psset{unit=0.5}
+\begin{pspicture}(0,0)(30,15)
+%% Flagge (Verh\"{a}ltnis 2 Breite : 1 H\"{o}he)
+%% H\"{o}he 2 - 1 - 2
+\psframe[linecolor=latviaMaroon,fillstyle=solid,fillcolor=latviaMaroon](0,9)(30,15)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,6)(30,9)
+\psframe[linecolor=latviaMaroon,fillstyle=solid,fillcolor=latviaMaroon](0,0)(30,6)
+\end{pspicture}}
+
+\def\pst@FlagLithuania{%
+\definecolor{lithuaniaYellow}{RGB}{253 185 19}
+\definecolor{lithuaniaGreen}{RGB}{0 106 68}
+\definecolor{lithuaniaRed}{RGB}{193 39 45}
+\psset{unit=0.6}
+\begin{pspicture}(0,0)(25,15)
+%% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
+\psframe[linecolor=lithuaniaYellow,fillstyle=solid,fillcolor=lithuaniaYellow](0,10)(25,15)
+\psframe[linecolor=lithuaniaGreen,fillstyle=solid,fillcolor=lithuaniaGreen](0,5)(25,10)
+\psframe[linecolor=lithuaniaRed,fillstyle=solid,fillcolor=lithuaniaRed](0,0)(25,5)
+\end{pspicture}}
+
+\def\pst@FlagLuxembourg{%
+\definecolor{luxembourgRed}{HTML}{FF1A24} %Pantone 032
+\definecolor{luxembourgBlue}{HTML}{26CFFF} %Pantone 299
+\psset{unit=3}
+\begin{pspicture}(0,0)(5,3)
+%% Flagge (Verh\"{a}ltnis 5 Breite : 3 H\"{o}he)
+\psframe[linecolor=luxembourgRed,fillstyle=solid,fillcolor=luxembourgRed](0,2)(5,3)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,1)(5,2)
+\psframe[linecolor=luxembourgBlue,fillstyle=solid,fillcolor=luxembourgBlue](0,0)(5,1)
+\end{pspicture}}
+
+\def\pst@FlagMonaco{%
+\definecolor{monacoRed}{cmyk}{0 0.9 0.8 0.05}
+\psset{unit=0.6}
+\begin{pspicture}(0,0)(25,20)
+%% Flagge (Verh\"{a}ltnis 5 Breite : 4 H\"{o}he)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(25,10)
+\psframe[linecolor=monacoRed,fillstyle=solid,fillcolor=monacoRed](0,10)(25,20)
+\end{pspicture}}
+
+\def\pst@FlagNetherlands{%
+\definecolor{netherlandsRed}{HTML}{AE1C28}
+\definecolor{netherlandsBlue}{HTML}{21468B}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=netherlandsRed,fillstyle=solid,fillcolor=netherlandsRed](!0 10 3 div 2 mul)(15,10)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](!0 10 3 div)(!15 10 3 div 2 mul)
+\psframe[linecolor=netherlandsBlue,fillstyle=solid,fillcolor=netherlandsBlue](0,0)(!15 10 3 div)
+\end{pspicture}}
+
+\def\pst@FlagNorway{%
+\definecolor{norgeBlue}{HTML}{002868}
+\definecolor{norgeRed}{HTML}{EF2B2D}
+\psset{unit=0.6818}
+\begin{pspicture}(0,0)(22,16)
+%% Wei{\ss}er Grundrahmen \"{u}ber komplette Flagge (Verh\"{a}ltnis 22 Breite : 16 H\"{o}he)
+%% 6 - 1 - 2 - 1 - 12 Breite : 6 - 1 - 2 - 1 - 6 H\"{o}he
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,0)(22,16)
+%% Rote Felder
+\psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](0,16)(6,10)
+\psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](10,16)(22,10)
+\psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](0,0)(6,6)
+\psframe[linecolor=norgeRed,fillstyle=solid,fillcolor=norgeRed](10,0)(22,6)
+%% Blaue Felder
+\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)
+\end{pspicture}}
+
+\def\pst@FlagPoland{%
+\definecolor{polandRed}{HTML}{DC143C}
+\psset{unit=1.875}
+\begin{pspicture}(0,0)(8,5)
+%% Flagge (Verh\"{a}ltnis 8 Breite : 5 H\"{o}he)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,2.5)(8,5)
+\psframe[linecolor=polandRed,fillstyle=solid,fillcolor=polandRed](0,0)(8,2.5)
+\end{pspicture}}
+
+\def\pst@FlagRomania{%
+\definecolor{romaniaBlue}{RGB}{0 43 127}
+\definecolor{romaniaYellow}{RGB}{252 209 22}
+\definecolor{romaniaRed}{RGB}{206 17 38}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=romaniaBlue,fillstyle=solid,fillcolor=romaniaBlue](0,0)(5,10)
+\psframe[linecolor=romaniaYellow,fillstyle=solid,fillcolor=romaniaYellow](5,0)(10,10)
+\psframe[linecolor=romaniaRed,fillstyle=solid,fillcolor=romaniaRed](10,0)(15,10)
+\end{pspicture}}
+
+\def\pst@FlagRussia{%
+\definecolor{russiaBlue}{HTML}{0039A6}
+\definecolor{russiaRed}{HTML}{D52B1E}
+\psset{unit=0.3333}
+\begin{pspicture}(0,0)(45,30)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=white,fillstyle=solid,fillcolor=white](0,20)(45,30)
+\psframe[linecolor=russiaBlue,fillstyle=solid,fillcolor=russiaBlue](0,10)(45,20)
+\psframe[linecolor=russiaRed,fillstyle=solid,fillcolor=russiaRed](0,0)(45,10)
+\end{pspicture}}
+
+\def\pst@FlagSweden{%
+\definecolor{swedenBlue}{RGB}{0 127 229}
+\definecolor{swedenYellow}{RGB}{255 204 0}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+%% Breite 5 - 2 - 9 : H\"{o}he 4 - 2 - 4
+\psframe[linecolor=swedenBlue,fillstyle=solid,fillcolor=swedenBlue](0,0)(15,10)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagSwitzerland{%
+\definecolor{switzerlandRed}{HTML}{FF0000}
+\psset{unit=0.4689}
+\begin{pspicture}(0,0)(32,32)
+%% Flagge (Verh\"{a}ltnis 1 Breite : 1 H\"{o}he)
+%% Kreuz: 6 7 6 7 6 : 6 7 6 7 6
+\psframe[linecolor=switzerlandRed,fillstyle=solid,fillcolor=switzerlandRed](0,0)(32,32)
+\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)
+\end{pspicture}}
+
+\def\pst@FlagTurkey{%
+\definecolor{turkeyRed}{HTML}{CE1126}
+\psset{unit=0.55555}
+\begin{pspicture}(0,0)(27,18)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\pnode(9,9){M1}
+\pnode(4.5,9){A1}
+\pnode(!9 1 16 div 18 mul add 9){M2}
+\pnode(!9 1 16 div 18 mul add 1 5 div 18 mul sub 9){A2}
+\psframe[linecolor=turkeyRed,fillstyle=solid,fillcolor=turkeyRed](0,0)(27,18)
+\pscircle[linecolor=white,fillstyle=solid,fillcolor=white](M1){4.5}
+\pscircle[linecolor=turkeyRed,fillstyle=solid,fillcolor=turkeyRed](M2){!1 5 div 18 mul}
+\pnode(0,9){A}
+\pnode(27,9){B}
+\pstInterCC[PointName=none,PointSymbol=none]{M1}{A1}{M2}{A2}{S1}{S2}
+\pstInterLL[PointName=none,PointSymbol=none]{A}{B}{S1}{S2}{D}
+\rput(D){\rput(2.25,0){%
+\pspolygon[linecolor=white,fillstyle=solid,fillcolor=white](2.25;180)(2.25;-36)(2.25;108)(2.25;252)(2.25;36)
+}}
+\end{pspicture}}
+
+\def\pst@FlagUkraine{%
+\definecolor{ukraineBlue}{HTML}{005BBB}
+\definecolor{ukraineYellow}{HTML}{FFD500}
+\begin{pspicture}(0,0)(15,10)
+%% Flagge (Verh\"{a}ltnis 3 Breite : 2 H\"{o}he)
+\psframe[linecolor=ukraineBlue,fillstyle=solid,fillcolor=ukraineBlue](0,5)(15,10)
+\psframe[linecolor=ukraineYellow,fillstyle=solid,fillcolor=ukraineYellow](0,0)(15,5)
+\end{pspicture}}
+
+\def\pst@FlagUnitedStates{%
+\definecolor{USred}{HTML}{B22234}
+\definecolor{USblue}{HTML}{3C3B6E}
+\psset{unit=0.789}
+\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}}
+
+\endinput