1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ # -*- ifm -*-
# template for overplotting window function
# {$D->group} returns the ifeffit group name
# {$D->parameter} returns the value of that parameter
# {$P->parameter} returns the value of a Plot parameter
$k = ($D->is_larch) ? 'k' : '';
$suffix = ($C->get("window_space") eq 'r') ? 'rwin' : $k.'win';
$file = $P->tempfile;
$D->points(file => $file,
space => ($C->get("window_space") =~ m{\Ar}) ? 'r' : 'k',
suffix => ($C->get("window_space") =~ m{\Ar}) ? 'rwin' : $k.'win',
scale => $C->get("window_size"),
yoffset => $D->y_offset,
);
q{}
}
replot '{$file}' using 1:2 with {$C->default("gnuplot", "datastyle")} ls {$P->increm+1} title "window"
|
