diff options
author | Norbert Preining <norbert@preining.info> | 2023-05-02 03:04:36 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-05-02 03:04:36 +0000 |
commit | 809279687ad6a85c7a45c9a469725248da509220 (patch) | |
tree | d4c2deded12208be7988b3102c85430b9f32ca49 /macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex | |
parent | 5164dcdfce521e72debadb619624c4ee37b03ccc (diff) |
CTAN sync 202305020304
Diffstat (limited to 'macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex')
-rw-r--r-- | macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex | 56 |
1 files changed, 25 insertions, 31 deletions
diff --git a/macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex b/macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex index 2c22e2b45a..c2a4d95954 100644 --- a/macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex +++ b/macros/latex/contrib/profcollege/latex/PfCRappelsFormules.tex @@ -3,43 +3,37 @@ %%% \setKVdefault[ClesFormule]{Perimetre=false,Aire=false,Volume=false,Surface=carr\'e,Solide=pav\'e,Angle=0,Ancre={(0,0)},Largeur=5cm,Couleur=white,EchelleEspace=70,Echelle=1cm} +\def\MPFigureCarreCode{% + u:=\useKV[ClesFormule]{Echelle}; + vardef FigCarre= + drawoptions(dashed dashpattern(on1cm)); + pair A,B,C,D; + A=u*(1,1); + B-A=u*(2,0); + C=rotation(A,B,-90); + D-C=A-B; + draw polygone(A,B,C,D); + draw codeperp(A,B,C,5); + draw codeperp(B,C,D,5); + draw codeperp(C,D,A,5); + draw codeperp(D,A,B,5); + marque_s:=marque_s/3; + draw Codelongueur(A,B,B,C,C,D,D,A,2); + marque_s:=marque_s*3; + draw appelation(A,B,-3mm,btex $c$ etex); + enddef; +}% + \def\MPFigureCarre{% \ifluatex \mplibforcehmode \begin{mplibcode} - u:=\useKV[ClesFormule]{Echelle}; - drawoptions( dashed dashpattern(on1cm)); - pair A,B,C,D; - A=u*(1,1); - B-A=u*(2,0); - C=rotation(A,B,-90); - D-C=A-B; - draw polygone(A,B,C,D); - draw codeperp(A,B,C,5); - draw codeperp(B,C,D,5); - draw codeperp(C,D,A,5); - draw codeperp(D,A,B,5); - marque_s:=marque_s/3; - draw Codelongueur(A,B,B,C,C,D,D,A,2); - marque_s:=marque_s*3; - draw appelation(A,B,-3mm,btex $c$ etex); + \MPFigureCarreCode + FigCarre; \end{mplibcode} \else - \begin{mpost}[mpsettings={u:=\useKV[ClesFormule]{Echelle};}] - pair A,B,C,D; - A=u*(1,1); - B-A=u*(2,0); - C=rotation(A,B,-90); - D-C=A-B; - draw polygone(A,B,C,D); - draw codeperp(A,B,C,5); - draw codeperp(B,C,D,5); - draw codeperp(C,D,A,5); - draw codeperp(D,A,B,5); - marque_s:=marque_s/3; - draw Codelongueur(A,B,B,C,C,D,D,A,2); - marque_s:=marque_s*3; - draw appelation(A,B,-3mm,btex $c$ etex); + \begin{mpost}[mpsettings={\MPFigureCarreCode}] + FigCarre; \end{mpost} \fi } |