diff options
author | Norbert Preining <norbert@preining.info> | 2023-07-05 03:01:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-07-05 03:01:54 +0000 |
commit | 973c785dccc1812d63162178e8362e83e8c263c2 (patch) | |
tree | b2cb12a6b36a0a59e90f1611d32cf7e8d125d575 /macros/latex/contrib/profcollege/latex/PfCCartographie.tex | |
parent | ab7f5e4df027c13f5aef4fbdb032184cf2f3d5c3 (diff) |
CTAN sync 202307050301
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCCartographie.tex')
-rw-r--r-- | macros/latex/contrib/profcollege/latex/PfCCartographie.tex | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCCartographie.tex b/macros/latex/contrib/profcollege/latex/PfCCartographie.tex index 9156779cd7..fdfa7cd0a5 100644 --- a/macros/latex/contrib/profcollege/latex/PfCCartographie.tex +++ b/macros/latex/contrib/profcollege/latex/PfCCartographie.tex @@ -1,17 +1,17 @@ %%% % Cartographie %%% -\setKVdefault[Cartographie]{Echelle=1,Carte=false,All=false,Europe=false,Asie=false,Amsud=false,Amnord=false,Amcentre=false,Caraibes=false,Afrique=false,AfficheEchelle=false,PaysSeul=false,VillesSup=false,Capitales=false,Impression=false,Fleuves=false,CouleurFond=ciel,Largeur=12,Hauteur=12,Arborescence="/usr/local/texlive/2022/texmf-dist/metapost/profcollege/datastest/",Projection=false,TypeProjection="mercator",CouleurPays=Cornsilk,Pasl=2,PasL=2} +\setKVdefault[Cartographie]{Echelle=1,Carte=false,All=false,Europe=false,Asie=false,Amsud=false,Amnord=false,Amcentre=false,Caraibes=false,Afrique=false,AfficheEchelle=false,PaysSeul=false,VillesSup=false,Capitales=false,Impression=false,Fleuves=false,CouleurFond=ciel,Largeur=12,Hauteur=12,Arborescence="/usr/local/texlive/2023/texmf-dist/metapost/profcollege/",Projection=false,TypeProjection="mercator",CouleurPays=Cornsilk,Pasl=2,PasL=2} \defKV[Cartographie]{EchelleCarte=\setKV[Cartographie]{Carte}} \defKV[Cartographie]{Pays=\setKV[Cartographie]{PaysSeul}} \defKV[Cartographie]{Villes=\setKV[Cartographie]{VillesSup}} \newcommand\Cartographie[3][]{% - \ifluatex - \useKVdefault[Cartographie] - \setKV[Cartographie]{#1} + \ifluatex% + \useKVdefault[Cartographie]% + \setKV[Cartographie]{#1}% + \mplibforcehmode% \ifboolKV[Cartographie]{Projection}{% - \mplibforcehmode \begin{mplibcode} input PfCMonde; string arborescence; @@ -131,7 +131,7 @@ fi; \end{mplibcode} }{% - \mplibforcehmode +% \mplibforcehmode \begin{mplibcode} input PfCMonde; string arborescence; @@ -169,7 +169,7 @@ phi:=#3; zoom(echelle(#2,#3,\useKV[Cartographie]{EchelleCarte})); fill (bonnec(-90,-180) for k=-85 step 5 until 90:..bonnec(k,-180) endfor)..reverse(bonnec(-90,180) for k=-85 step 5 until 90:..bonnec(k,180) endfor)..cycle withcolor couleurfond; - lecturep(arborescence&\useKV[Cartographie]{Pays}&".dat",couleurfond);% + lecturep(arborescence&"PfC"&\useKV[Cartographie]{Pays}&".dat",couleurfond);% trace feuillet withpen pencircle scaled 2; if Echelle=true: draw ((Xa,Ya)+u*(1,1))--((Xa,Ya)+u*(2,1)); @@ -201,6 +201,7 @@ closefrom nomfichiermul; fi; else: + draw(0,0)--(50,50); mappemonde(#2,#3); fi; \end{mplibcode} |