Một số đoạn mã lệnh mô phỏng cách dựng một số hình bằng ngôn ngữ Violet Script.

BT1: Dựng đường trung trực của đoạn thẳng

function main
appear Text, 8.25, 0.5, "Kéo thả chuột chọn 1 đoạn thẳng", 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

BT2: đường tròn khi biết tâm và bán kính
function main
appear Text, 8.25, 0.5, "Hãy chọn 1 điểm làm tâm và 1 điểm thuộc đường tròn", 2
input_point &ax,&ay
input_point &bx,&by
appear Point, ax, ay, "A", below
appear Point, bx, by, "B", below
radius = sqrt((ax-bx)^2 + (ay-by)^2)
get_angle &angle, ax, ay, bx, by

set_paper Draft
appear Compa
move Compa, ax, ay, angle
call Compa.OpenCompa, radius
rotate_compa Compa, radius, angle+360

disappear Compa

end

BT3: hình thang cân khi biết trước 3 điểm

function main
appear Text, 8.25, 0.5, "Chọn 3 điểm thuộc hình thang cân",2
input_point &ax,&ay
input_point &bx,&by
input_point &cx,&cy
appear Point, ax, ay, "A", below
appear Point, bx, by, "B", below
appear Point, cx, cy, "C", below

disappear Text

create_line ax, ay, bx, by
create_line bx, by, cx, cy

radius = sqrt((cx-bx)^2 + (cy-by)^2)/3*2
get_angle &angle, bx, by,cx,cy

set_paper Draft
appear Compa
move Compa, bx, by, angle-90
call Compa.OpenCompa, radius
rotate_compa Compa, radius, angle+90
move Compa, cx, cy, angle+90
rotate_compa Compa, radius, angle+270
disappear Compa


mx = (bx + cx) / 2
my = (by + cy) / 2
angle = angle + 90
get_point &ox, &oy, mx, my, angle, 5

set_paper Paper
create_line ox, oy, 2 * mx - ox, 2 * my - oy

get_angle &angle, bx, by, cx, cy
get_point &ex, &ey, ax, ay, angle, sqrt((cx-bx)^2+(cy-by)^2)
create_line ax, ay, ex, ey


get_intersection1 &x, &y, ax, ay, ex, ey, ox, oy, 2 * mx - ox, 2 * my - oy

radius = sqrt((ax-x)^2 + (ay-y)^2)
get_angle &angle, ax, ay, x, y

set_paper Draft
appear