function main
// Tạo biến
bx = 4
by = 6
a = 2
b = 5
hx = bx + a
hy = by
cx = hx + b
cy = hy
ox = (bx+cx)/2
oy = (by+cy)/2
// Vẽ đoạn trung bình nhân
set_paper Draft, 1
line bx, by, cx, cy
appear Point, bx, by, "B", left
appear Point, hx, hy, "H", below
appear Point, cx, cy, "C", right
note_edge -1, "a", bx, by, hx, hy
note_edge -1, "b", hx, hy, cx, cy

appear Ruler
get_angle &angle, bx, by, hx, hy
move Ruler, bx, by, angle
appear Pencil, ox, oy
appear Point, ox, oy, "O", above
delay 5
disappear Pencil, Ruler

appear Compa
get_angle &angle, ox, oy, cx, cy
move Compa, ox, oy, angle
call Compa.OpenCompa, (a+b)/2
rotate_compa Compa, (a+b)/2, angle+180
disappear Compa

get_point &ax, &ay, hx, hy, 90, sqrt(a*b)
get_angle &angle, hx, hy, ax, ay
appear TSquare
move TSquare, hx, hy, angle
ve_dt ax, ay, hx, hy
disappear TSquare
note_angle 0, "", cx, cy, hx, hy, ax, ay
appear Pencil, ax, ay
appear Point, ax, ay, "A", above
delay 5
disappear Pencil
note_edge -1, "x", hx, hy, ax, ay
create_line bx, by, ax, ay
create_line ax, ay, cx, cy
note_angle 0, "", bx, by, ax, ay, cx, cy

end