X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=drapeaux%2FCountry_Flag.tex;fp=drapeaux%2FCountry_Flag.tex;h=1b1ce4ea94ff37163de8c12e61f1ac648b11d782;hp=0000000000000000000000000000000000000000;hb=6d8993eab3c9b20bf653fdc7a60ee57ab5f4256e;hpb=b6a7ec066f8e83cf04f68c39b3d34fc31e664be4

diff --git a/drapeaux/Country_Flag.tex b/drapeaux/Country_Flag.tex
new file mode 100644
index 0000000..1b1ce4e
--- /dev/null
+++ b/drapeaux/Country_Flag.tex
@@ -0,0 +1,36 @@
+\documentclass{article}
+\usepackage[margin=1cm]{geometry}
+\usepackage[tiling]{pst-fill}      % PSTricks package for filling/tiling
+\usepackage{pst-text}              % PSTricks package for character path
+\usepackage{pst-flags}
+\usepackage{pst-grad,pst-text,pst-blur}
+
+
+\usepackage[scaled=60]{CountriesOfEurope} 
+
+\DeclareFixedFont{\BK}{T1}{ptm}{b}{n}{1.275cm}
+
+\pagestyle{empty}
+%
+\begin{document}
+\newpsstyle{blurA}{fillstyle=solid,fillcolor=gray,shadow=true,shadowcolor=gray,shadowsize=0.035cm,blurradius=0.025cm,blur=true,blurbg=lightgray}
+\newpsstyle{blurB}{linewidth=4pt,shadow=true,shadowcolor=lightgray,shadowsize=0.075cm}
+
+
+\begin{pspicture}(0,0)(18,20)
+\psset{boxfillsize={(-0.75\linewidth,-22cm)(0.5\linewidth,15cm)}}
+\psboxfill{\psset{unit=20mm}\pspicture(10,10)\pstFlag[nation=France]\endpspicture}
+  \centerline{%
+    \pscharpath[fillstyle=solid,fillcolor=white,%green!30!white,
+      ,addfillstyle=boxfill,fillangle=0,fillsep=1mm]%
+        {\rput[b](0,-1){\EUCountry{140}}}}
+        
+\rput(-9,10){\psset{unit=4mm}
+  \begin{psclip}{\psellipse[style=blurB](0,0)(6,3.5)}
+    \rput(0,0){\psset{linewidth=0pt}\pstFlag[nation=France]}
+  \end{psclip}
+\rput(0,0){\pscharpath[style=blurA]{\BK FR}}
+}
+\end{pspicture}
+
+\end{document}