/usr/share/ngraph-gtk/addin/fitrslt.nsc is in ngraph-gtk-addins 6.07.02-2build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | # fitrslt.nsc written by S. ISHIZAKA. 1999/04
#
# This script generates a legend box.
#
# Please edit the following X, Y, and WIDTH variables as you like.
#
# Description: _Fit result...,insert fitting results as legend-text,
X=5000 # top-left of the legend to be inserted.
Y=5000 # top-left of the legend to be inserted.
new iarray name=ID
for i in `object data -instances`
do
if [ `get data:$i -field type` = "fit" ]
then
if [ "x${data::fit}" != "x" ]
then
iarray:ID:push $i
fi
fi
done
if [ ${iarray:ID:num} != 0 ]
then
DATALIST=${system:0:temp_file}
echo ${iarray:ID:num} > "$DATALIST"
for i in ${iarray:ID:@}
do
if [ "x`get data:$i -field fit`" != "x" ]
then
get data: -field id source file array >> "$DATALIST"
get ${data::fit} -field id type poly_dimension user_func %00 %01 %02 %03 %04 %05 %06 %07 %08 %09 >> "$DATALIST"
fi
done
SCRIPT=${system:0:temp_file}
"${NGRAPHLIB}/fitrslt" -x ${X} -y ${Y} "$DATALIST" "$SCRIPT"
if [ -s "$SCRIPT" ];
then
new shell
shell::shell "$SCRIPT"
del shell
gra::clear
gra::draw
gra::flush
fi
system:0:unlink_temp_file "$SCRIPT"
system:0:unlink_temp_file "$DATALIST"
else
new dialog
dialog::beep
dialog::message "No fitting data."
del dialog
fi
del iarray:ID
|