1/ Mã lệnh vẽ tam giác vuông biết goc nhọn – cạnh huyền function main input_data "Hãy nhập đoạn thẳng BC góc BCx", "Đoạn BC ", c, "Góc BCx", m set_paper DraftBC, 3, 0xFF0000 Line 5, 8, 5+c, appear Point, 5, 8, "C", below appear Point, 5+c, 8, "B", below note_edge -1, "value", 5, 8, 5+c, set_paper DraftKh, 3, 0xFF0000 get_point &ax, &ay,5,8, m, get_angle &angle,5,8,ax,ay note_angle 1, "value",5+c,8,5,8,ax,ay set_paper DraftCx, 1, 0xFF00FF line 5,8,ax,ay appear TSquare move TSquare, 5,8,angle-90 for t from to (c*cos(m) )step 0.1 get_point &cx,&cy, 5,8,m,t set_pos TSquare,cx,cy delay next delay 12 set_paper DraftAC, 3, 0xFF0000 get_point &hx, &hy,5,8, m, c*cos(m) appear Point, hx, hy, "A", above line 5,8,hx,hy line hx,hy,5+c,8 delay 12 disappear TSquare note_angle 0, ,5,8,hx,hy,5+c,8 delay 12 disappear DraftCx end / Mã lệnh vẽ đường thẳng qua điểm vng góc với đường thẳng cho trước function main set_paper Draft,3, 0xFF00FF appear Text, 8.25, 0.5, "Kéo rê chuột để vẽ đường thẳng", input_line &ax, &ay, &bx, &by disappear Text create_line ax, ay, bx, by get_angle &angle,ax,ay,bx,by appear Text, 8.25, 0.5, "Hãy click chọn điểm mà đường vng góc qua", input_point &dx,&dy appear Point, dx, dy," " get_perpendicular &cx, &cy, dx, dy, ax, ay,bx,by appear TSquare,bx,by move TSquare,bx,by,angle+90 delay move TSquare,cx,cy,angle+90 delay 12 appear Point, cx, cy, "" disappear Text disappear TSquare angle = angle + 90 set_paper Draft,3, 0x0000FF create_line (2*cx-dx), (2*cy-dy), dx,dy set_paper Draft,3,0x000000 note_angle 0, "", bx, by, cx, cy, dx, dy end / Mã lệnh vẽ tam giác cạnh-canh-canh function main set_paper Draft, 3,0xFF0000 appear Point, 6, 2, "A",above appear Point, 2,6, "B",below appear Point,7,6, "C",below line 9,6,14,6 set_paper Draft0, 3,0xFF0000 line 9,6,15,6 set_paper Draft, 3,0xFF0000 radius = get_angle &angle, 2,6,7,6 appear Point, 9,6, "B'",below line 2,6,6,2 line 7,6,6,2 line 2,6,7,6 wait_click set_paper appear Draft1,1,0xFF00FF Compa move Compa, 2,6 call Compa.OpenCompa, radius move Compa, 9,6, angle-10 rotate_compa Compa, radius, angle+10 appear Point,14,6, "C'",below set_paper Draft, 3,0x0000FF line 4.3,5.8,4.7,6.2 line 11.3,5.8,11.7,6.2 wait_click set_paper Draft2,1,0xFF00FF appear Compa move Compa, 2,6, angle+45.1 call Compa.OpenCompa, 5.65 wait_click move Compa, 9,6, angle+30 rotate_compa Compa, 5.65, angle+50 wait_click set_paper Draft2,1,0xFF00FF appear Compa move Compa, 7,6, angle+103 call Compa.OpenCompa, 4.15 wait_click move Compa, 14,6, angle+95 call Compa.OpenCompa, 4.15 rotate_compa Compa, 4.15, angle+120 appear Point, 13, 2, "A'",above disappear Compa wait_click set_paper Draft, 3,0xFF0000 create_line 9,6,13, set_paper Draft, 3,0x0000FF line 3.8,3.8,4.2,4.2 line 3.7,3.9,4.1,4.3 line 10.8,3.8,11.2,4.2 line 10.7,3.9,11.1,4.3 wait_click set_paper Draft, 3,0xFF0000 create_line 13,2,14,6 set_paper Draft, 3,0x0000FF line 6.3,3.95,6.8,4.25 line 6.65,3.95,6.25,4.25 line 13.3,3.95,13.8,4.25 line 13.7,3.95,13.3,4.25 disappear Draft1 disappear Draft2 disappear Draft0 appear Text, 8, 8, "Hai tam giác nhau",3 end 4/ Mã lệnh vẽ tam giác cân function main set_paper Draft, 3, 0xFF0000 appear Ruler, 4,7 create_line 4,7,8,7 disappear Ruler appear Point, 4,7, "A", below appear Point, 8,7, "B",below radius = get_angle &angle, 4,7,8,7 set_paper Draft1, 0.5, 0xFF00FF appear Compa move Compa, 4, call Compa.OpenCompa, radius move Compa, 4,7, angle+50 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+80 move Compa, 8,7, angle+130 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+100 disappear Compa appear Point, 6,1.33, "C", right set_paper Draft4, 3, 0xFF0000 create_line 4,7, 6,1.33 create_line 6,1.33,8,7 disappear Draft1 appear Text,6, 8.5,"Tam giác cân",3 end 5/ Mã lệnh vẽ tam giác function main set_paper Draft5, 3, 0x0000FF appear Ruler, 4,7 create_line 4,7,10,7 disappear Ruler appear Point, 4,7, "A", below appear Point, 10,7, "B",below radius = get_angle &angle, 4,7,10,7 set_paper Draft1, 0.5, 0xFF0000 appear Compa move Compa, 4, call Compa.OpenCompa, radius move Compa, 4,7, angle+50 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+80 move Compa, 10,7, angle+130 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+100 disappear Compa appear Point, 7,1.8, "C", right set_paper Draft5, 3, 0x0000FF create_line 4,7,7,1.8 create_line 7,1.8, 10,7 disappear appear end Draft1 Text,7, 8.5,"Tam giác đều",3 6/ Mã lệnh vẽ tam giác cạnh-canh-canh function main set_paper Draft, 3, 0xFF0000 appear Ruler, 4,7 create_line 4,7,8,7 disappear Ruler appear Point, 4,7, "A", below appear Point, 8,7, "B",below note_edge -1, "value", 8, 7,4,7,below wait_click appear Ruler, 4, radius = get_angle &angle, 4,7,8,7 set_paper Draft1, 0.5, 0xFF00FF appear Compa move Compa, 4, call Compa.OpenCompa, radius wait_click move Compa, 4,7, angle+10 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+40 disappear Compa wait_click radius = get_angle &angle, 4,7,8,7 set_paper Draft2, 0.5, 0xFF00FF appear Compa move Compa, 4, call Compa.OpenCompa, radius wait_click move Compa, 8,7, angle+160 call Compa.OpenCompa, radius rotate_compa Compa, radius, angle+120 disappear Compa disappear Ruler appear Point, 6.62,5.56, "C", right wait_click set_paper Draft4, 3, 0xFF0000 create_line 4,7, 6.62,5.56 wait_click create_line 6.62,5.56,8,7 appear Text,6.35, 5.75, "3 cm wait_click disappear Draft1 disappear Draft2 end cm" 7/ Mã lệnh vẽ tam giác cạnh-goc-cạnh function main input_data "Hãy nhập cạnh góc xen giữa", "Cạnh AB(