my ($self,$a,$b,$c,$d)=@_;
$d = 4 unless defined $d;