diff options
author | Norbert Preining <norbert@preining.info> | 2023-09-08 03:02:30 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-09-08 03:02:30 +0000 |
commit | 608e422a8e775ac4d1c23c80b4170776701680d5 (patch) | |
tree | d1e69057c0dc339fb0f890882f5fef9fe3b3a66f /macros/latex/contrib/profcollege/metapost/PfCScratch.mp | |
parent | 96f1d7a9e9fe6e682cbd19d1bf2b7797891160b6 (diff) |
CTAN sync 202309080302
Diffstat (limited to 'macros/latex/contrib/profcollege/metapost/PfCScratch.mp')
-rw-r--r-- | macros/latex/contrib/profcollege/metapost/PfCScratch.mp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp index 18fe1c904a..d0dbad1a25 100644 --- a/macros/latex/contrib/profcollege/metapost/PfCScratch.mp +++ b/macros/latex/contrib/profcollege/metapost/PfCScratch.mp @@ -2958,6 +2958,21 @@ vardef OpMul(expr pasun,pasdeux)= Oop enddef; +vardef OpMulS(expr pasun,pasdeux)= + save Oop; picture Oop; + save TAao; path TAao; + save LOPop; picture LOPop; + LOPop=ColleBoxNew(if string pasun : OvalNb(pasun) else: pasun fi,"$*$",if string pasdeux : OvalNb(pasdeux) else: pasdeux fi); + TAao=OvalBox(LOPop); + Oop=image( + fill TAao if print=false : withcolor FondOvalOp else : withcolor coefprint*white fi; + draw LOPop; + draw TAao if print=false : withcolor coefprint*white fi; + ); + Oop:=Oop shifted(-center Oop); + Oop +enddef; + vardef OpDiv(expr pasun,pasdeux)= save Oop; picture Oop; save TAao; path TAao; @@ -2973,6 +2988,21 @@ vardef OpDiv(expr pasun,pasdeux)= Oop enddef; +vardef OpDivS(expr pasun,pasdeux)= + save Oop; picture Oop; + save TAao; path TAao; + save LOPop; picture LOPop; + LOPop=ColleBoxNew(if string pasun : OvalNb(pasun) else: pasun fi,"$/$",if string pasdeux : OvalNb(pasdeux) else: pasdeux fi); + TAao=OvalBox(LOPop); + Oop=image( + fill TAao if print=false : withcolor FondOvalOp else : withcolor coefprint*white fi; + draw LOPop; + draw TAao if print=false : withcolor coefprint*white fi; + ); + Oop:=Oop shifted(-center Oop); + Oop +enddef; + vardef OpModulo(expr pasun,pasdeux)= save Oop; picture Oop; save TAao; path TAao; |