Changeset 196 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:02:00 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2000/05/16 21:53:20 to 2000/06/09 03:41:16
    • Property rcs:lines changed from +140 -0 to +18 -3
    • Property rcs:rev changed from 1.14 to 1.15
    r129 r196  
    296296        }
    297297        title-set {
    298             setexp "      DESCR" " $value" 2 68
     298            setexp "      DESCR" "  $value" 2 68
    299299        }
    300300
     
    10261026#     pref$n -- refinement flag value for profile term #n (*)
    10271027#     extmeth -- Fobs extraction method (*)
     1028#     POnaxis -- number of defined M-D preferred axes
    10281029proc hapinfo {histlist phaselist parm "action get" "value {}"} {
    10291030    foreach phase $phaselist hist $histlist {
     
    11281129                    setexp ${key}PRCF "N" $f 1
    11291130                }           
     1131            }
     1132            POnaxis-get {
     1133                set val [string trim \
     1134                        [string range [readexp "${key}NAXIS"] 0 4]]
     1135                if {$val == ""} {return 0}
     1136                return $val
     1137            }
     1138            POnaxis-set {
     1139                if ![validint value 5] {return 0}
     1140                # there should be a NAXIS record, but if not make one
     1141                if {![existsexp "${key}NAXIS"]} {
     1142                    makeexprec "${key}NAXIS"
     1143                }
     1144                setexp "${key}NAXIS  " $value 1 5
    11301145            }
    11311146            default {
Note: See TracChangeset for help on using the changeset viewer.