summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/profcollege/latex/PfCCartographie.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-07-05 03:01:54 +0000
committerNorbert Preining <norbert@preining.info>2023-07-05 03:01:54 +0000
commit973c785dccc1812d63162178e8362e83e8c263c2 (patch)
treeb2cb12a6b36a0a59e90f1611d32cf7e8d125d575 /macros/latex/contrib/profcollege/latex/PfCCartographie.tex
parentab7f5e4df027c13f5aef4fbdb032184cf2f3d5c3 (diff)
CTAN sync 202307050301
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCCartographie.tex')
-rw-r--r--macros/latex/contrib/profcollege/latex/PfCCartographie.tex15
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}