/usr/share/savi/tcl/params.tcl is in savi 1.4.6-1.
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 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | #
######################################################
#
# SaVi by Lloyd Wood (lloydwood@users.sourceforge.net),
# Patrick Worfolk (worfolk@alum.mit.edu) and
# Robert Thurman.
#
# Copyright (c) 1997 by The Geometry Center.
# Also Copyright (c) 2013 by Lloyd Wood.
#
# This file is part of SaVi. SaVi is free software;
# you can redistribute it and/or modify it only under
# the terms given in the file COPYRIGHT which you should
# have received along with this file. SaVi may be
# obtained from:
# http://savi.sourceforge.net/
# http://www.geom.uiuc.edu/locate/SaVi
#
######################################################
#
# params.tcl
#
# $Id: params.tcl,v 1.14 2013/05/05 05:19:26 lloydwood Exp $
proc params(build) {} {
if {[eval window(raise) params]} return
set name [build_Toplevel params]
wm protocol $name WM_DELETE_WINDOW params(dismiss)
build_Title $name "Simulation constants"
set cmd [build_StdFrame $name cmd]
set cmda [build_StdFrame $cmd a]
build_LabelEntryColumns $cmda le0 \
{text " " {"Radius (km)" "Rotation rate (rad/s)" } } \
{dentry "Central body" {tparams(Radius) tparams(Omega) } }
pack $cmda -side left -expand 1
set cmdb [build_StdFrame $cmd b]
build_LabelEntryColumns $cmdb le1 \
{text " " {"Mu (km^3/s^2)" "Oblateness (J2)"} } \
{dentry "Gravitational model" {tparams(Mu) tparams(J2) } }
pack $cmdb -side right -expand 1
pack $cmd
build_DismissButtonbar $name dbbar "params(dismiss)" \
{"Reset to default" params(reset)} \
{"Cancel" params(cancel)} \
{"Apply" params(apply)}
update
# fill in the boxes
params(cancel)
}
proc params(dismiss) {} {
destroy .params
params(cancel)
}
proc params(apply) {} {
global params tparams
set inds [array names tparams]
foreach ind $inds {
set params($ind) $tparams($ind)
}
# now update other panels if necessary
edit(update)
}
proc params(cancel) {} {
global params tparams
set inds [array names tparams]
foreach ind $inds {
set tparams($ind) $params($ind)
}
}
proc params(reset) {} {
satellites RESET_PARAMS
params(cancel)
}
|