Changeset 756

Timestamp:

Dec 4, 2009 5:11:29 PM (13 years ago)

Author:

toby

Message:

# on 2003/11/21 00:46:52, toby did:
add export to grace & .csv options

File:

• trunk/widplt (modified) (6 diffs, 3 props)

trunk/widplt

@@ -67 +67 @@
 proc getprofiles {expnam} {
     global WidSetList absSetList wave XY UVWP lblarr ttrange
-
-    if {[expload $expnam] == -1} {
-        tk_dialog .err "EXP Error" "Warning -- Unable to read $expnam" \
+    global expmap 
+
+    if {$expnam != ""} {
+        if {[expload $expnam] == -1} {
+            tk_dialog .err "EXP Error" "Warning -- Unable to read $expnam" \
                 error 0 OK
-        return
-    }
-    mapexp
-
-    global expmap 
+            return
+        }
+        mapexp
+    } else {
+        set expmap(powderlist) {}
+    }
     foreach hist $expmap(powderlist) {
         # wavelength
@@ -85 +88 @@
             global ABS
             set ABS($hist) [list \
-                    [histinfo $hist abscor1] \
-                    [histinfo $hist abscor2] \
-                    [histinfo $hist abstype] \
-                    $drange \
-                    "Hist $hist" \
-                    $expmap(htype_$hist)]
+                                [histinfo $hist abscor1] \
+                                [histinfo $hist abscor2] \
+                                [histinfo $hist abstype] \
+                                $drange \
+                                "Hist $hist" \
+                                $expmap(htype_$hist)]
             lappend absSetList $hist
         } else {
@@ -106 +109 @@
                 if {$ptype == 1} {
                     set UVWP($key) [list [hapinfo $hist $phase pterm1] \
-                            [hapinfo $hist $phase pterm2] \
-                            [hapinfo $hist $phase pterm3] 0]
+                                        [hapinfo $hist $phase pterm2] \
+                                        [hapinfo $hist $phase pterm3] 0]
                     set XY($key) {0 0}
                 } elseif {$ptype == 2} {
                     set UVWP($key) [list [hapinfo $hist $phase pterm1] \
-                            [hapinfo $hist $phase pterm2] \
-                            [hapinfo $hist $phase pterm3] \
-                            [hapinfo $hist $phase pterm9]]
+                                        [hapinfo $hist $phase pterm2] \
+                                        [hapinfo $hist $phase pterm3] \
+                                        [hapinfo $hist $phase pterm9]]
                     set XY($key) [list [hapinfo $hist $phase pterm4] \
-                            [hapinfo $hist $phase pterm5]]
+                                      [hapinfo $hist $phase pterm5]]
                 } elseif {$ptype == 3 || $ptype == 4} {
                     set UVWP($key) [list [hapinfo $hist $phase pterm1] \
-                            [hapinfo $hist $phase pterm2] \
-                            [hapinfo $hist $phase pterm3] \
-                            [hapinfo $hist $phase pterm4]]
+                                        [hapinfo $hist $phase pterm2] \
+                                        [hapinfo $hist $phase pterm3] \
+                                        [hapinfo $hist $phase pterm4]]
                     if {$ptype == 3} {
                         set XY($key) [list [hapinfo $hist $phase pterm5] \
-                                [hapinfo $hist $phase pterm6]]
+                                          [hapinfo $hist $phase pterm6]]
                     } else {
                         set XY($key) [list [hapinfo $hist $phase pterm5] 0]
@@ -956 +959 @@
 }
 
+#-------------------------------------------------------------------------
+# export current plot to Grace
+#-------------------------------------------------------------------------
+if {$tcl_platform(platform) == "unix"} {
+    set graph(GraceFile) /tmp/grace_out.agr
+} else {
+    set graph(GraceFile) C:/graceout.agr
+}
+proc exportgrace {} {
+    global graph box
+    global tcl_platform graph
+    catch {toplevel .export}
+    raise .export
+    eval destroy [grid slaves .export]
+    set col 5
+    grid [label .export.1a -text Title:] -column 1 -row 1
+    set graph(title) [$box cget -title]
+    grid [entry .export.1b -width 60 -textvariable graph(title)] \
+            -column 2 -row 1 -columnspan 4
+    grid [label .export.2a -text Subtitle:] -column 1 -row 2
+    grid [entry .export.2b -width 60 -textvariable graph(subtitle)] \
+            -column 2 -row 2 -columnspan 4
+    grid [label .export.3a -text "File name:"] -column 1 -row 3
+    grid [entry .export.3b -width 60 -textvariable graph(GraceFile)] \
+            -column 2 -row 3 -columnspan 4
+    grid [button .export.help -text Help -bg yellow \
+            -command "MakeWWWHelp liveplot.html grace"] \
+            -column [incr col -1] -row 4
+    grid [button .export.c -text "Close" \
+            -command "set graph(export) 0; destroy .export"] \
+            -column [incr col -1] -row 4
+    if {$tcl_platform(platform) == "unix" && [auto_execok xmgrace] != ""} {
+        grid [button .export.d -text "Export & \nstart grace" \
+            -command "set graph(export) 1; destroy .export"] \
+                -column [incr col -1] -row 4
+    }
+    grid [button .export.e -text "Export" \
+            -command "set graph(export) 2; destroy .export"] \
+            -column [incr col -1] -row 4
+    tkwait window .export
+    if {$graph(export) == 0} return
+    if {[catch {
+        set fp [open $graph(GraceFile) w]
+        puts $fp [output_grace $box $graph(title) $graph(subtitle)]
+        close $fp
+    } errmsg]} {
+        MyMessageBox -parent . -title "Export Error" \
+                -message "An error occured during the export: $errmsg" \
+                -icon error -type Ignore -default ignore
+        return
+    }
+
+    if {$graph(export) == 1} {
+        set err [catch {exec xmgrace $graph(GraceFile) &} errmsg]
+        if $err {
+        MyMessageBox -parent . -title "Grace Error" \
+                -message "An error occured launching grace (xmgrace): $errmsg" \
+                -icon error -type Ignore -default ignore
+        }
+    } else {
+        MyMessageBox -parent . -title "OK" \
+                -message "File $graph(GraceFile) created" \
+                -type OK -default ok
+    }
+}
+#-------------------------------------------------------------------------
+# export current plot as .csv file
+#-------------------------------------------------------------------------
+proc makecsvfile {} {
+    global graph box expnam program
+    global tcl_platform graph
+    set typelist {
+        {{Comma separated} {.csv}        }
+        {{Text File}       {.txt}        }
+    }
+    set file [tk_getSaveFile -filetypes $typelist \
+            -initialfile ${expnam}_$program.csv]
+    if {$file == ""} return
+    set varlist {}
+    set line {}
+    foreach element_name [$box element names] {
+        lappend varlist ${element_name}_x
+        set ${element_name}_x [$box element cget $element_name -xdata]
+        lappend varlist ${element_name}_y
+        set ${element_name}_y [$box element cget $element_name -ydata]
+        append line [$box element cget $element_name -label] "-X, "
+        append line [$box element cget $element_name -label] "-Y, "
+    }
+    set fp [open $file w]
+    # get x and y axis limits
+    foreach v {x y} {
+        foreach "${v}min ${v}max" [$box ${v}axis limits] {}
+        puts $fp "\"$v axis range [set ${v}min] to [set ${v}max]\""
+        puts $fp "\"$v axis label [$box ${v}axis cget -title]\""
+    }
+    puts $fp $line
+    set i 0
+    set done 1
+    while {$done} {
+        set line {}
+        set done 0
+        foreach var $varlist {
+            set val [lindex [set $var] $i]
+            if {$val != ""} {set done 1}
+            append line "$val, "
+        }
+        if {$done} {puts $fp $line}
+        incr i
+    }
+    close $fp
+}
+
+
 set graph(legend) 0
 set graph(equivwave) {}
@@ -1066 +1182 @@
     .a.file.menu add cascade -label "Edit Curve" -menu .a.file.menu.edit
 }
+#.a.file.menu add command -label "Make PostScript" -command makepostscriptout
 menu .a.file.menu.edit
-.a.file.menu add command -label "Make PostScript" -command makepostscriptout
+.a.file.menu add cascade -label "Export plot" -menu .a.file.menu.export
+menu .a.file.menu.export
+.a.file.menu.export add command -label "Make PostScript" \
+    -command makepostscriptout
+if {$blt_version > 2.3 && $blt_version != 8.0} {
+    source [file join $expgui(scriptdir) graceexport.tcl]
+    .a.file.menu.export add command -label "to Grace" -command exportgrace
+}
+.a.file.menu.export add command -label "as .csv file" \
+        -command makecsvfile
 .a.file.menu add command -label Quit -command "destroy ."
 pack [menubutton .a.options -text Options -underline 0 -menu .a.options.menu] \
@@ -1106 +1232 @@
 #----------------------------------------------------------------
 # OK now go get the profile info
-if {$expnam != ""} {
-    getprofiles $expnam
-}
+getprofiles $expnam
 #----------------------------------------------------------------