Changeset 283 for trunk/odf.tcl

Timestamp:

Dec 4, 2009 5:03:28 PM (14 years ago)

Author:

toby

Message:

# on 2000/09/25 20:08:45, toby did:
Add texture index

File:

• trunk/odf.tcl (modified) (3 diffs, 3 props)

trunk/odf.tcl

@@ -324 +324 @@
     #     ODFterms -- a list of the {l m n} values for each ODF term (*)
     #     ODFcoefXXX -- the ODF coefficient for for ODF term XXX (*)
+    set textureindex 1.0
     foreach lmn [phaseinfo $expgui(curPhase) ODFterms] {
         # make sure that numbers are separated by spaces
@@ -344 +345 @@
         set entryvar(ODFcoef$term) [eval $entrycmd(ODFcoef$term)]
         grid columnconfig $expgui(odfFrameCanvas).fr $col -pad 12
+        set textureindex [expr {$textureindex + \
+                ($entryvar(ODFcoef$term) * $entryvar(ODFcoef$term)) \
+                / ((2. * [lindex $lmn 0]) + 1.)}]
     }
 
@@ -350 +354 @@
                 -anchor center] \
                 -column 0 -row 0 -sticky nsew
+    } else {
+        incr row 2
+        grid [label $expgui(odfFrameCanvas).fr.last \
+                -bd 2 -relief sunken -anchor center \
+                -text "Texture index = [format %.4f $textureindex]" ] \
+                -column 1 -columnspan 6 -row $row -sticky ew
+        grid rowconfig $expgui(odfFrameCanvas).fr $row -pad 12
     }
     # resize