Changeset 196

Timestamp:

Dec 4, 2009 5:02:00 PM (14 years ago)

Author:

toby

Message:

# on 2000/06/09 03:41:16, toby did:
Fix dropped character in titles
Find # of MD Pref Orient terms in hapinfo

File:

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

trunk/readexp.tcl

@@ -296 +296 @@
         }
         title-set {
-            setexp "      DESCR" " $value" 2 68
+            setexp "      DESCR" "  $value" 2 68
         }
 
@@ -1026 +1026 @@
 #     pref$n -- refinement flag value for profile term #n (*)
 #     extmeth -- Fobs extraction method (*)
+#     POnaxis -- number of defined M-D preferred axes
 proc hapinfo {histlist phaselist parm "action get" "value {}"} {
     foreach phase $phaselist hist $histlist {
@@ -1128 +1129 @@
                     setexp ${key}PRCF "N" $f 1
                 }           
+            }
+            POnaxis-get {
+                set val [string trim \
+                        [string range [readexp "${key}NAXIS"] 0 4]]
+                if {$val == ""} {return 0}
+                return $val
+            }
+            POnaxis-set {
+                if ![validint value 5] {return 0}
+                # there should be a NAXIS record, but if not make one
+                if {![existsexp "${key}NAXIS"]} {
+                    makeexprec "${key}NAXIS"
+                }
+                setexp "${key}NAXIS  " $value 1 5
             }
             default {