1 | #! perl |
1 | #! perl |
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 load "/root/pix/das_fette_schwein.jpg", repeat_wrap, X, Y'; |
7 | our $EXPR = '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 | #'; |
13 | $EXPR = 'solid "red"'; |
13 | #$EXPR = 'solid "red"'; |
14 | #$EXPR = 'blur root, 10, 10' |
14 | #$EXPR = 'blur root, 10, 10' |
15 | #$EXPR = 'blur move (root, -x, -y), 5, 5' |
15 | #$EXPR = 'blur move (root, -x, -y), 5, 5' |
16 | #resize load "/root/pix/das_fette_schwein.jpg", w, h |
16 | #resize load "/root/pix/das_fette_schwein.jpg", w, h |
17 | |
17 | |
18 | use Safe; |
18 | use Safe; |