Script file generated from LiVES

<name>
picfill
</name>

<version>
0.3
</version>

<author>
Marco de la Cruz
</author>

<description>
Picture Fill|Filling|1|1|
</description>

<requires>
picinpic.py
python2.3
convert
identify
</requires>

<params>
Fill se_quence (e.g. 2,4,1,3 if n=2):|0|string||1024|
_Start sub-image frame|0|num0|1|1|10000000|
Sub-image _geometry (WxH+X+Y)|0|string||20|
_Overlay method|0|string_list|over|in|out|atop|xor|plus|minus|add|subtract|difference|bumpmap|replace|blend|displace|dst_in|dst_out|dst_atop|exclusion|multiply|screen|overlay|
_Crop sub-images|0|bool|0|
F_ill area (WxH+X+Y)|0|string||20|
Co_nfine fill|0|bool|0|
Fi_ll with scene|0|bool|0|
|0|num0|1|1|10000000|
|0|num1|0.0|0.0|1000000.0|
Prefer _underfill (if necessary)|1|bool|0|
Prefer o_verfill (if necessary)|1|bool|0|
</params>

<param_window>
layout|"Current selection length. This MUST be n^2 for this to work (fixed): "|p9|
layout|"Value of n for current selection (fixed, MUST be integer):"|p10|
layout|p2|fill|p8|
layout|"(if fill with scene there MUST be n^2 frames after the start sub-image frame)"|
layout|p7|fill|p6|
layout|p5|fill|p3|
layout|p11|fill|p12|
layout|"(sub-image crop only works if fill with scene)"|
layout|p4|
layout|"The fill sequence is optional (will be 1,2,3...n^2 if not specified)"|
layout|p1|
</param_window>

<properties>
0x0001
</properties>

<language_code>
0xF0
</language_code>

<pre>
$skey=&mkname($p2);
$sframe=&mkname($start);
$eframe=&mkname($end);
$me="-m $p4";
if ($p5) {
   $cs="-c $p3";
}
else {
   $cs="";
}
if ($p7) {
   $cf="-C $p6";
}
else {
   $cf="";
}
$sk="-k $skey$img_ext";
if ($p8) {
   $kf="-K";
}
else {
   $kf="";
}
if ($p11) {
   $ft="";
}
elsif ($p12) {
   $ft="-o";
}
$sf="-f $sframe$img_ext";
$ef="-F $eframe$img_ext";
$fs="$p1";
system("picfill.py -q $me $cs $cf $sk $kf $sf $ef $ft -x -e ".substr($out_ext,1)." $fs");
</pre>

<loop>
# Do nothing
</loop>

<post>
system("rm -rf picfill_ktempdir_* picfill_ftempdir_*");
</post>

<onchange>
init|$p2_max=$last;$p2=$start-1;if (!$p2) {$p2=$end+1; if ($p2>$last) {$p2=1;}}
init|$p9=$end-$start+1;
init|$p10=sqrt($end-$start+1);
init|$p11=1;
2|$p9=$end-$start+1;
2|$p10=sqrt($end-$start+1);
</onchange>