source: pro-violet-viettel/sourcecode/assets/soanbai/Lecture/vpScript/Common/Mathtool.vs @ 473

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