Select Code to Download

sub rotate { # takes as input id of obj to rot, angle to rot by, && op
+tional x,y point to rot about instead of obj center, if possible
  my($self, $obid, $angl, $xfoc, $yfoc)= @_; croak "rotate: Must suppl
+y an angle -" unless(defined($angl));
...
  return() unless(exists($_can_rotate_about_center{$type}) || (defined
+($xfoc) && defined($yfoc)));
  $_rotate_methods{$type}->($self, $obid, $angl, $xfoc, $yfoc);
}