... Yv2:=y2; Tlx:=(xv2-xv1)/(xw2-xw1); Tly:=(yv2-yv1)/(yw2-yw1); End; Procedure chuyenhequansat(x,y:real; var x1,y1:integer); Begin X1:=round(tlx*(x-xw1)+xv1); Y1:=round(tly*(yw2-y)+yv1); End; Procedure ... đó: t≡u L = 4-1 = • u=0: Ứng với điểm A • u=0.2: Tọa độ điểm tính sau: L k =0 k =0 P (0 .2) = ∑ Pk BkL (t ) = ∑ Pk Bk3 (0 .2) P (0 .2) = P0 C3 0,2 0.(1 − 0 ,2) 3−0 + P1 C3 0,21.(1 − 0 ,2) 3−1 + P2 ... Laydoixung(x,y,x1,y1); Chuyenhequansat(x1,y1,x2,y2); Moveto(x2,y2); End; Procedure vedendx(x,y:real); Var x1,y1 : real; x2,y2:integer; Begin Laydoixung(x,y,x1,y1); Chuyenhequansat(x1,y1,x2,y2);...