Vẽ trung trực bằng Violet

Tập vẽ hình
Trung trực:
function main appear Text, 8.25, 0.5, "Hãy lấy hai điểm", 2 input_line &ax, &ay, &bx, &by disappear Text appear Point, ax, ay, "A", below appear Point, bx, by, "B", below create_line ax, ay, bx, by radius = sqrt((ax-bx)^2 + (ay-by)^2) / 3 * 2 get_angle &angle, ax, ay, bx, by set_paper Draft appear Compa move Compa, ax, ay, angle-90 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+90 move Compa, bx, by, angle+90 rotate_compa Compa, radius, angle+270 disappear Compa mx = (ax + bx) / 2 my = (ay + by) / 2 angle = angle + 90 get_point &cx, &cy, mx, my, angle, 4 set_paper Paper create_line cx, cy, 2 * mx - cx, 2 * my - cy appear Point, mx, my, "M", leftbelow note_angle 0, "", bx, by, mx, my, cx, cy note_edge 0, "", ax, ay, mx, my note_edge 0, "", mx, my, bx, by end [email protected]