function init
	movespeed  =  40
	rotaspeed  =  10
	timeappear =  8
	timedisapp =  6

	load_tool     Pencil, Template\Pencil.swf
	load_tool     Pen, Template\Pencil.swf
	load_tool     Burin, Template\Burin.swf
	load_tool     TSquare, Template\TSquare.swf
	load_tool     Ruler, Template\Ruler.swf
	load_tool     Protractor, Template\Protractor.swf
	load_tool     MeasurerRuler, Template\Measurer.swf, MRuler
	load_tool     MeasurerProt, Template\Measurer.swf, MProt
	load_tool     Compa, Template\Compa.swf
end

function drag_along Ruler, Pencil, x1, y1, x2, y2, time
	local         angle
	get_angle     &angle, x1, y1, x2, y2
	appear        Ruler
	move          Ruler, x1, y1, angle
	appear        Pencil
	move          Pencil, x1, y1
	delay         3
	drag_pen      Pencil, x1, y1, x2, y2
	delay         time
	disappear     Pencil
	disappear     Ruler
end

function create_line x1, y1, x2, y2
	drag_along    Ruler, Pencil, x1, y1, x2, y2, 3
end

function create_line2 x1, y1, x2, y2
	drag_along    Ruler, Pencil, x1, y1, x2, y2, 18
end

function create_line3 x1, y1, x2, y2
	drag_along    TSquare, Pencil, x1, y1, x2, y2, 12
end

function create_corner x1, y1, angle, len
	set_paper     Draft
	appear        Protractor
	move          Protractor, x1, y1
	delay         6
	get_point     &px, &py, x1, y1, angle, prot_radius
	appear        Point, px, py, ""
	get_point     &px, &py, x1, y1, angle, 3.5
	appear        TextDegree, px, py, angle
	delay         18
	disappear     Protractor, TextDegree
	delay         6
	local         x2, y2
	get_point     &x2, &y2, x1, y1, angle, len
	create_line   x1, y1, x2, y2
	disappear     Point
	set_paper     Paper
end

function drag_pen Pencil, x1, y1, x2, y2
	movespeed =   movespeed / 2
	attach_pen    Pencil
	set_pos       Pencil, x1, y1
	move          Pencil, x2, y2
	detach_pen    Pencil
	movespeed =   movespeed * 2
end

function rotate_compa Compa, radius, angle
	local x, y
	rotaspeed =     rotaspeed/2
	attach_pen      Compa, radius, 0
	get_pos         &x, &y, Compa
	set_pos         Compa, x, y
	move            Compa, x, y, angle
	detach_pen      Compa
	rotaspeed =     rotaspeed*2
end

function create_arc x1, y1, radius, start, end
	appear        Ruler, 1, 9
	appear        Compa
	move          Compa, 1, 9
	call          Compa.OpenCompa, radius
	delay         18
	disappear     Ruler
	move          Compa, x1, y1, start
	delay         3
	rotate_compa  Compa, radius, end
	delay         12
	disappear     Compa
end

function cut_polygon x1, y1, x2, y2
	set_paper     newPaper, 1, 0
	get_angle     &angle, x1, y1, x2, y2
	appear        Burin
	move          Burin, x1, y1, angle
	delay         6
	drag_pen      Burin, x1, y1, x2, y2
	delay         12
	disappear     Burin
	clip          x1, y1, x2, y2
	disappear     newPaper
	set_paper     Paper
end

function show_bigtext TextName, TextData
	disappear     all
	set_text      Verdana, 18
	appear        TextName, 8, 4, TextData
	set_text      Arial, 15
	wait_click
end

function show_movie Picture, x1, y1, fileName, frame
	disappear     all
	load_movie    Picture, x1, y1, fileName, frame, "center"
	wait_click
end