my ($p0, $p1, $pt) = @_;