%--------------------------- \listfiles \documentclass{article} \usepackage{ifluatex} \ifluatex\else \pdfmapfile{+CountriesofEurope.map} % only needed, if the map is not enabled with updmap \fi \usepackage{lmodern,array,longtable,graphicx,ifthen,ragged2e,libertinus} \usepackage[Scale=7.5]{CountriesofEurope} \makeatletter \newcommand\Country[2][]{{% \tabular{|>{\Centering}p{2.5cm}|}\hline \strut\footnotesize\texttt{\textbackslash#2}\\\hline \parbox[c][3.2cm]{2cm}{\EUCountry[#1]{#2}}\\\hline \endtabular}} \makeatother \newcounter{N} \begin{document} \author{Rolf Niepraschk \and Herbert Voß} \title{Package \texttt{CountriesofEurope}} \maketitle \begin{sloppypar} This package defines the two macros \verb|\CountriesofEuropeFamily| and \verb|\EUCountry[options]{name}|, which allow to print one of the european countries as a single character with the given scaling or with an individual scaling. The first one switches to the font encoding \verb|U| (Type 1) or \verb|TU| (OpenType) and loads the font and the second one does the same but also with printing the character which the given name, e.\,g. for Finland: \verb|\EUCountry[Scale=0.2]{Germany}|$\rightarrow$% \EUCountry[Scale=0.2]{Germany}. \end{sloppypar} The font can be loaded with an optional argument for the scaling factor, which is preset to 1: \begin{verbatim} \usepackage[Scale=10]{CountriesofEurope}% scaled to 10 \end{verbatim} The countris itself are available by a macro from the following list. The characters are at the position 128--166 in the Type~1 font \verb|CountriesofEurope.pfb| and also available with the \verb|\char| primitive. The following table shows the countries in their original size with a scaling of 7.5: \begin{longtable}{cccc} \Country{Albania} & \Country{Andorra} & \Country{Austria} & \Country{Belarus} \\ \Country{Belgium} & \Country{Bosnia} & \Country{Bulgaria} & \Country{Croatia} \\ \Country{Czechia} & \Country{Denmark} & \Country{Estonia} & \Country{Finland} \\ \Country{France} & \Country{Germany} & \Country{GreatBritain} & \Country{Greece} \\ \Country{Hungary} & \Country{Iceland} & \Country{Ireland} & \Country{Italy} \\ \Country{Latvia} & \Country{Liechtenstein} & \Country{Lithuania} & \Country{Luxembourg} \\ \Country{Macedonia} & \Country{Malta} & \Country{Moldova} & \Country{Montenegro} \\ \Country{Netherlands} & \Country{Norway} & \Country{Poland} & \Country{Portugal} \\ \Country{Romania} & \Country{Serbia} & \Country{Slovakia} & \Country{Slovenia} \\ \Country{Spain} & \Country{Sweden} & \Country{Switzerland} \end{longtable} \noindent\rule{\textwidth}{.5mm} The countries in the original size with the given bounding box and the text command \verb|\huge|: % \DeclareFontShape{U}{CountriesofEurope}{m}{n}{<->s*[1]CountriesofEurope}{} \medskip \begingroup \fboxsep=0pt \noindent% \ifluatex \fontspec{CountriesofEurope.otf} \huge \setcounter{N}{63724}% \whiledo{\value{N} > 63686}{% \fbox{\symbol{\value{N}}}% \addtocounter{N}{-1}} \else \huge \setcounter{N}{128}% \whiledo{\value{N} < 167}{% \fbox{\symbol{\value{N}}}% \stepcounter{N}} \fi \endgroup \clearpage All countries can be printed as outline, e.\,g.: \verb|\EUCountry[Scale=37.5,outline]{Germany}| \EUCountry[Scale=5,outline]{Germany} \ifluatex \fontspec{CountriesofEurope.otf} \else \DeclareFontShape{U}{CountriesofEurope}{m}{n}{<->s*[1]CountriesofEurope}{} \fi \begin{longtable}{cccc} \Country[outline]{Albania} & \Country[outline]{Andorra} & \Country[outline]{Austria} & \Country[outline]{Belarus} \\ \Country[outline]{Belgium} & \Country[outline]{Bosnia} & \Country[outline]{Bulgaria} & \Country[outline]{Croatia} \\ \Country[outline]{Czechia} & \Country[outline]{Denmark} & \Country[outline]{Estonia} & \Country[outline]{Finland} \\ \Country[outline]{France} & \Country[outline]{Germany} & \Country[outline]{GreatBritain} & \Country[outline]{Greece} \\ \Country[outline]{Hungary} & \Country[outline]{Iceland} & \Country[outline]{Ireland} & \Country[outline]{Italy} \\ \Country[outline]{Latvia} & \Country[outline]{Liechtenstein} & \Country[outline]{Lithuania} & \Country[outline]{Luxembourg} \\ \Country[outline]{Macedonia} & \Country[outline]{Malta} & \Country[outline]{Moldova} & \Country[outline]{Montenegro} \\ \Country[outline]{Netherlands} & \Country[outline]{Norway} & \Country[outline]{Poland} & \Country[outline]{Portugal} \\ \Country[outline]{Romania} & \Country[outline]{Serbia} & \Country[outline]{Slovakia} & \Country[outline]{Slovenia} \\ \Country[outline]{Spain} & \Country[outline]{Sweden} & \Country[outline]{Switzerland} \end{longtable} \rmfamily The countries are internally defined as a ligature so that abreviations of the countries can be used for printing: \begin{verbatim} \CountriesofEuropeFamily ge au \end{verbatim} \ifluatex \fontspec{CountriesofEurope.otf} \else \DeclareFontShape{U}{CountriesofEurope}{m}{n}{<->s*[1]CountriesofEurope}{} \fi \CountriesofEuropeFamily ge au \end{document}