/usr/share/ngraph-gtk/addin/fitrslt.nsc is in ngraph-gtk-addins 6.06.13-5.
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 56 57 58 59 | # 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.
fitdata=""
new int name=NUM @=0
for i in `object file -instances`
do
if [ `get file:$i -field type` = "fit" ]
then
if [ ${file::fit} != "" ]
then
int:NUM:inc
fitdata=${fitdata}" $i"
fi
fi
done
if [ ${int:NUM:@} != 0 ]
then
DATALIST=${system:0:temp_file}
echo ${int:NUM:@} > "$DATALIST"
for i in $fitdata
do
if [ `get file:$i -field type` = "fit" ]
then
if [ ${file::fit} != "" ]
then
get file: -field id file >> "$DATALIST"
get ${file::fit} -field id type poly_dimension user_func %00 %01 %02 %03 %04 %05 %06 %07 %08 %09 >> "$DATALIST"
fi
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 int:NUM
|