Сделать график похожий на падающую каплю

reset;
with(linalg);
with(plots);
p1 := array(1 .. 2, [1, 1]);                        
p2 := array(1 .. 2, [7, 3]);                          
p1k := array(1 .. 2, [2, 3]);                         
p2k := array(1 .. 2, [8, 1]);                      
r1 := array(1 .. 2, [p1k[1] - p1[1], p1k[2] - p1[2]]);                          
r2 := array(1 .. 2, [p2k[1] - p2[1], p2k[2] - p2[2]]);                         
T := array(1 .. 4, [t^3, t^2, t, 1]);                
Mh := array(1 .. 4, 1 .. 4, [[2, -2, 1, 1], [-3, 3, -2, -1], [0, 0, 1, 0], [1, 0, 0, 0]]);                 
Ghx := array(1 .. 4, [p1[1], p2[1], r1[1], r2[1]]);                  
Ghy := array(1 .. 4, [p1[2], p2[2], r1[2], r2[2]]);                      
X(t):=multiply(T,Mh,Ghx);
Y(t):=multiply(T,Mh,Ghy);
F1:=plot([X(t),Y(t),t=0..1]):
display(F1);