Quadrilatère (byrne)

Auteur ou autrice : Sergey Slyusarev.

Mise en ligne le 22 décembre 2024

Code

input byrne;

SOLID_LINE := 0;
REGULAR_WIDTH := 0;
ALL_LABELS := 0;

u := 1cm;
scaleFactor := 1.0;
textLabels := true;

beginfig(0);
  startMainPictureMode;
    % Sommets
    pair A, B, C, D;
    A := (0, 0);
    B := (u, 1/2u);
    C := (-1/2u, -4/3u);
    D := (4/3u, -u);

    % Diagonales
    draw byLine(C, B)(byred, SOLID_LINE, REGULAR_WIDTH);
    draw byLine(A, D)(byblue, SOLID_LINE, REGULAR_WIDTH);

    % Côtés
    byLineDefine(A, B, byyellow, SOLID_LINE, REGULAR_WIDTH);
    byLineDefine(A, C, byyellow, SOLID_LINE, REGULAR_WIDTH);
    byLineDefine(B, D, byyellow, SOLID_LINE, REGULAR_WIDTH);
    byLineDefine(C, D, byblack, SOLID_LINE, REGULAR_WIDTH);

    draw byNamedLineSeq(0)(BD, CD, AC, AB);
    draw byLabelsOnPolygon(A, B, D, C)(ALL_LABELS, 0);
  stopMainPictureMode;
endfig;

end.