sub line { my ( $x1, $x_len, $y1, $y2, $e ) = @_;