Auteur ou autrice : Sergey Slyusarev.
Mise en ligne le 25 décembre 2024
Le paquet byrne
permet de reproduire les figures de l'édition des Éléments d'Euclide par Oliver Byrne.
Cet exemple montre comment dessiner une figure rectilinéaire inscrite dans une autre.
Code
input byrne;
SOLID_LINE := 0;
REGULAR_WIDTH := 0;
u := 1cm;
scaleFactor := 1.0;
textLabels := true;
beginfig(0);
startMainPictureMode;
pair A, B, C, D, E, F, G, H;
A := (0, 0);
B := (1/2u, u);
C := (2u, 3/2u);
D := (4/3u, -1/2u);
E := 1/2[A, B];
F := 1/2[B, C];
G := 1/2[C, D];
H := 1/2[D, A];
draw byPolygon(E,F,G,H)(byred);
byLineDefine(A, B, byblack, SOLID_LINE, REGULAR_WIDTH);
byLineDefine(B, C, byblack, SOLID_LINE, REGULAR_WIDTH);
byLineDefine(C, D, byblack, SOLID_LINE, REGULAR_WIDTH);
byLineDefine(D, A, byblack, SOLID_LINE, REGULAR_WIDTH);
draw byNamedLineSeq(1)(AB,BC,CD,DA);
stopMainPictureMode;
endfig;
end.