my ($p0,$p1,$pt)=(shift,shift,shift);