sub zoom {
    my ( $self, $surface, $zoomx, $zoomy, $smooth) = @_;