| … | |
… | |
| 2 | |
2 | |
| 3 | #:META:X_RESOURCE:%.expr:string:background expression |
3 | #:META:X_RESOURCE:%.expr:string:background expression |
| 4 | #:META:X_RESOURCE:%.enable:boolean:some boolean |
4 | #:META:X_RESOURCE:%.enable:boolean:some boolean |
| 5 | #:META:X_RESOURCE:%.extra.:value:extra config |
5 | #:META:X_RESOURCE:%.extra.:value:extra config |
| 6 | |
6 | |
| 7 | our $EXPR = 'move X, Y, load "MagnoliaAlpha.png"'; |
7 | our $EXPR = 'clip -50, -50, 150, 100, move X, Y, load "MagnoliaAlpha.png"'; |
| 8 | #$EXPR = ' |
8 | #$EXPR = ' |
| 9 | # rotate W, H, 50, 50, counter 1/59.95, repeat_mirror, |
9 | # rotate W, H, 50, 50, counter 1/59.95, repeat_mirror, |
| 10 | # clip X, Y, W, H, repeat_mirror, |
10 | # clip X, Y, W, H, repeat_mirror, |
| 11 | # load "/root/pix/das_fette_schwein.jpg" |
11 | # load "/root/pix/das_fette_schwein.jpg" |
| 12 | #'; |
12 | #'; |
| … | |
… | |
| 92 | # $_[0]->clone |
92 | # $_[0]->clone |
| 93 | # } |
93 | # } |
| 94 | |
94 | |
| 95 | sub clip($;$$;$$) { |
95 | sub clip($;$$;$$) { |
| 96 | my $img = pop; |
96 | my $img = pop; |
|
|
97 | my $h = pop || H; |
|
|
98 | my $w = pop || W; |
| 97 | $img->sub_rect ($_[0], $_[1], $_[2] || W, $_[3] || H) |
99 | $img->sub_rect ($_[0], $_[1], $w, $h) |
| 98 | } |
100 | } |
| 99 | |
101 | |
| 100 | sub resize($$$) { |
102 | sub resize($$$) { |
| 101 | my $img = pop; |
103 | my $img = pop; |
| 102 | $img->scale ($_[0], $_[1]) |
104 | $img->scale ($_[0], $_[1]) |
