function main // Vẽ đường thẳng vuông appear input_line create_line disappear appear input_point appear disappear get_perpendicular get_angle get_point create_line3 appear note_angle end[r]
(1)function main // Vẽ đường thẳng vuông appear input_line create_line disappear appear input_point appear disappear get_perpendicular get_angle get_point create_line3 appear note_angle end góc với đường thẳng cho trước qua điểm Text, 8.25, 0.5, "Vẽ đường thẳng", &x2, &y2,&x3,&y3 x2,y2,x3,y3 Text Text, 8.25, 0.5, "Chọn điểm", &x1, &y1 Point,x1,y1,"A", leftabove Text &chanx,&chany,x1,y1,x2,y2,x3,y3 &angle,chanx,chany,x1,y1 &mx,&my,x1,y1,angle,2 chanx,chany,mx,my Point,chanx,chany,"H", below 0,"",x1,y1,chanx,chany,x2,y2 (2)