Problème de coloriage de frites

[Archibald]

J'essaie de faire un dessin illustrant la formule des probabilités totales par un diagramme en patates. Pour ça, je voudrais découper la patate du gros ensemble en tranches (des frites quoi) coloriées de façon différente.

J'ai écrit un code qui marche très bien avec une seule frite (dans la boucle for, mettre la même valeur au from et au to), mais dès qu'il y en a 2, ça fait n'importe quoi :

Code: Tout sélectionner

view(-5.2, 4, -2.2, 4.2), size(6, 1),
A := set("{}", -1 + i, [scale := 0.9, rotation :=90]),
LabelDot(-5 + 4*i, "$\Omega$", "SE", 0),

for k from 3 to 4 do // "3 to 3" et "4 to 4" sont corrects
    L := [
      Get(Arc(k + 5 + i, k + 5, k + 5 - i, 10)),
      Get(Arc(k + 4 - i, k + 4, k + 4 + i, 10, 0))
    ],
    FillStyle := full, FillOpacity := .1,
    if mod(k, 2) = 0 then FillColor := red, else FillColor := blue, fi,
    Line(Clip2D(L, A, 1), 1),

    LabelDot(k - 6.25 + 1*i, ["$A_", k, "$"], "E", 0),
od,


Je fais donc un truc mal, mais quoi exactement ?

[P.Fradin]

Bonjour Archibald,

Tu ne fais rien de mal, j'ai l'impression que la fonction Get ne restaure pas le contexte graphique comme il faut (bug ?)
Une parade :

Code: Tout sélectionner

[//command
 view(-5.2, 4, -2.2, 4.2), size(6, 1),
A := set("{}", -1 + i, [scale := 0.9, rotation :=90]),
LabelDot(-5 + 4*i, "$\Omega$", "SE", 0),
for k from 3 to 4 do // "3 to 3" et "4 to 4" sont corrects
    SaveAttr(), //sauvegarde du contexte
    L := [
      Get(Arc(k + 4 - i, k + 4, k + 4 + i, 10,-1),0),
      Get(Arc(k + 5 + i, k + 5, k + 5 - i, 10,1),0)
    ],
    FillStyle := full, FillOpacity := .1,
    if mod(k, 2) = 0 then FillColor := red, else FillColor := blue, fi,
    S := Clip2D(L, A, 1),
    Line(S,1),
    RestoreAttr(),//restitution du contexte
    LabelDot(k - 6.25 + 1*i, ["$A_", k, "$"], "E", 0),
od,
]


frites.png (7.94 Kio) Consulté 25427 fois

[P.Fradin]

Après une recherche plus poussée, ce n'est pas un bug. Cela vient de la variable FillStyle, au premier passage elle a la valeur none donc la fonction Get renvoie la liste des points correspondant exactement aux arcs, mais au deuxième passage dans la boucle, la variable FillStyle a la valeur full et donc la fonction Get renvoie la liste des points correspondant aux arcs refermés à cause du remplissage.
Il suffit donc de faire :

Code: Tout sélectionner

[//command
     view(-5.2, 4, -2.2, 4.2), size(6, 1),
    A := set("{}", -1 + i, [scale := 0.9, rotation :=90]),
    LabelDot(-5 + 4*i, "$\Omega$", "SE", 0),
    for k from 3 to 4 do // "3 to 3" et "4 to 4" sont corrects
        FillStyle:=none,
        L := [
          Get(Arc(k + 4 - i, k + 4, k + 4 + i, 10,-1),0),
          Get(Arc(k + 5 + i, k + 5, k + 5 - i, 10,1),0)
        ],
        FillStyle := full, FillOpacity := .1,
        if mod(k, 2) = 0 then FillColor := red, else FillColor := blue, fi,
        S := Clip2D(L, A, 1),
        Line(S,1),
        LabelDot(k - 6.25 + 1*i, ["$A_", k, "$"], "E", 0),
    od,
    ]


[Archibald]

C'est fin, je mets ça de côté dans ma tête. Merci