ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/background
(Generate patch)

Comparing rxvt-unicode/src/perl/background (file contents):
Revision 1.59 by root, Thu Jun 14 19:31:17 2012 UTC vs.
Revision 1.60 by root, Fri Jun 15 13:21:59 2012 UTC

… …
697=cut 697=cut
698 698
699 sub rotate($$$$) { 699 sub rotate($$$$) {
700 my $img = pop; 700 my $img = pop;
701 $img->rotate ( 701 $img->rotate (
702 $_[0] * $img->w, 702 $_[0] * ($img->w + $img->x),
703 $_[1] * $img->h, 703 $_[1] * ($img->h + $img->y),
704 $_[2] * (3.14159265 / 180), 704 $_[2] * (3.14159265 / 180),
705 ) 705 )
706 } 706 }
707 707
708=back 708=back

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines