1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
$VAR1 = bless( {
'alias' => 'Stars',
'type' => 'creator',
'comment' => 'Example Plugin (needs Netpbm)
Creates a fractal forgery of a starry sky.
The output will appear in the clipboard.',
'params' => {
'$int1' => {
'alias' => 'Width',
'val' => 50,
'min' => '0',
'default' => 50,
'max' => 200
},
'$int2' => {
'alias' => 'Height',
'val' => 50,
'min' => '0',
'default' => 50,
'max' => 200
},
'$int3' => {
'alias' => 'Stars',
'val' => 100,
'min' => '0',
'default' => 100,
'max' => 100
},
'$int4' => {
'alias' => 'Brightness',
'val' => 436,
'min' => '0',
'default' => 50,
'max' => 100
}
},
'commandstring' => 'ppmforge -width $int1 -height $int2 -night -stars $int3 | ppmbrighten -v `expr 10 \'*\' $int4` | ppmquant 256 | ppmtoxpm'
}, 'Plugin' );
|
