diff options
author | Norbert Preining <norbert@preining.info> | 2023-08-01 03:01:19 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-08-01 03:01:19 +0000 |
commit | 84777905249300f2ab97a23141e31f952bceb865 (patch) | |
tree | 5621415ee6ecbcbe62e4c500977af3c41aeebd9c /macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp | |
parent | 17d547a1effe2cafcdfbf704bdf8cb0484790ef2 (diff) |
CTAN sync 202308010301
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp | 42 |
1 files changed, 41 insertions, 1 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp b/macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp index 1ef8c39607..18a4e97931 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCLabyNombre.mp @@ -193,7 +193,47 @@ vardef TraceLabyrinthe= fi; ); $ -enddef; +enddef; + +vardef InitialisationLabyrintheMul(expr long,larg)= + LargeurLaby:=larg; + LongueurLaby:=long; + uh=2u; + uv=2u; + pair M[][],N[][];%centre de la case, coinbg de la case + boolean CaseExploree[][];%Case Exploree ou pas + %on initialise les cases comme non explorées pour celles qui sont à l'intérieur du labyrinthe + for k=-1 upto larg: + for l=-1 upto long: + M[k][l]:=(5mm,-uv+5mm)+(l*uh,-k*uv); + N[k][l]:=(l*uh,(-k-1)*uv); + if (k=-1) or (k=larg) or (l=-1) or (l=long): + CaseExploree[k][l]:=true; + else: + CaseExploree[k][l]:=false; + fi; + endfor; + endfor; +enddef; + +vardef TraceLabyrintheMul= + save $; + picture $; + $=image( + n:=0; + for k=0 upto LargeurLaby-1: + for l=0 upto LongueurLaby-1: + n:=n+1; + if (n mod 2)=1: + draw (Fullcircle scaled 10mm) shifted N[k][l]; + else: + draw (unitsquare scaled 10mm) shifted N[k][l]; + fi; + endfor; + endfor; + ); + $ +enddef; vardef murgauche= save $; |