diff options
author | Karl Berry <karl@freefriends.org> | 2021-08-22 19:58:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-08-22 19:58:48 +0000 |
commit | 5169e4b2ad5512ab5713ad947b68d5534c1f62f0 (patch) | |
tree | 5587864a66ce1a01fb8b426b8b60cba28867f810 /Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp | |
parent | eab8544bd60408c04ed14726e87bf5dace53a63c (diff) |
profcollege (22aug21)
git-svn-id: svn://tug.org/texlive/trunk@60301 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp')
-rw-r--r-- | Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp b/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp index f3800b3d99f..b9edf3873ff 100644 --- a/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp +++ b/Master/texmf-dist/metapost/profcollege/PfCScratchpdf.mp @@ -2971,6 +2971,21 @@ vardef OpDiv(expr pasun,pasdeux)= Oop enddef; +vardef OpModulo(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,"modulo",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 OpAlea(expr pasun,pasdeux)= save Oop; picture Oop; save TAao; path TAao; @@ -3275,7 +3290,7 @@ vardef TestCapCouleurs(expr pasun,pasdeux)= save $; picture $; save TAa; path TAa; save LTa; picture LTa; - LTa=ColleBoxNew("couleur",OvalCouleur(redpart(pasun),greenpart(pasun),bluepart(pasun)),"touché",OvalCouleur(redpart(pasdeux),greenpart(pasdeux),bluepart(pasdeux)),"?"); + LTa=ColleBoxNew("couleur",OvalCouleur(redpart(pasun),greenpart(pasun),bluepart(pasun)),"touche",OvalCouleur(redpart(pasdeux),greenpart(pasdeux),bluepart(pasdeux)),"?"); TAa=DiamondBox(LTa); $=image( fill TAa if print=false : withcolor CapteurTrois else : withcolor coefprint*white fi; |