Changeset 1615 for trunk/examples/objects/app-fermi/fermi4.tcl

Timestamp:

Nov 16, 2009, 3:03:37 PM (15 years ago)

Author:

dkearney

Message:

clean up on example programs for new bindings

File:

• trunk/examples/objects/app-fermi/fermi4.tcl (modified) (4 diffs)

trunk/examples/objects/app-fermi/fermi4.tcl

@@ -14 +14 @@
 
 # open the XML file containing the run parameters
-set lib [Rappture::Library [lindex $argv 0]]
+set lib [Rappture::Library]
+
+$lib loadFile [lindex $argv 0]
 
 if {[$lib error] != 0} {
     # cannot open file or out of memory
-    puts stderr [$lib traceback]
+    set o [$lib outcome]
+    puts stderr [$o context]
+    puts stderr [$o remark]
     exit [$lib error]
 }
 
-set T [Rappture::connect $lib "temperature"]
-set Ef [$lib value "Ef" "units=eV"]
+set T [Rappture::Connect $lib "temperature"]
+set Ef [$lib value "Ef" "units eV"]
 
 if {[$lib error != 0]} {
     # there were errors while retrieving input data values
     # dump the tracepack
-    puts stderr [$lib traceback]
+    set o [$lib outcome]
+    puts stderr [$o context]
+    puts stderr [$o remark]
     exit [$lib error]
 }
@@ -38 +44 @@
 set Emax [expr {$Ef + 10*$kT}]
 
-set dE [expr {0.005*($Emax-$Emin)}]
+set dE [expr {(1.0/$nPts)*($Emax-$Emin)}]
 
 set E $Emin
@@ -50 +56 @@
 }
 
-set curveLabel "Fermi-Dirac Curve"
-set curveDesc "Plot of Fermi-Dirac Calculation"
-
 # do it the easy way,
 # create a plot to add to the library
@@ -59 +62 @@
 
 set p1 [Rappture::Plot $lib]
-$p1 add $nPts $fArr $EArr "" $curveLabel $curveDesc
+$p1 add $fArr $EArr -name "fdfactor"
+$p1 propstr "label" "Fermi-Dirac Curve"
+$p1 propstr "desc" "Plot of Fermi-Dirac Calculation"
 $p1 propstr "xlabel" "Fermi-Dirac Factor"
 $p1 propstr "ylabel" "Energy"