Ignore:
Timestamp:
Feb 6, 2007 3:58:38 PM (16 years ago)
Author:
srkline
Message:

bug fixes and performance tweaks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/trunk/Put in User Procedures/SANS_Reduction_v5.00/MaskUtils.ipf

    r41 r47  
    2727        //SetDataFolder root:MSK 
    2828        String fname = PromptForPath("Select Mask file") 
     29        if(strlen(fname)==0) 
     30                return 
     31        endif 
    2932        ReadMCID_MASK(fname) 
    3033         
    3134        //SetDataFolder root:MSK 
    32         String waveStr = "root:MSK:data" 
    33         NewImage/F/S=2/K=1 $waveStr 
    34         ModifyImage '' ctab= {*,*,YellowHot,0} 
     35////    SRK SEP06 disable plot of mask data, just show the overlay 
     36////    String waveStr = "root:MSK:data" 
     37////    NewImage/F/S=2/K=1 $waveStr 
     38////    ModifyImage '' ctab= {*,*,YellowHot,0} 
     39        maskButtonProc("maskButton") 
     40//      OverlayMask(1) 
     41 
     42 
    3543//      Display/W=(10,50,400,400); AppendImage $waveStr 
    3644 
     
    144152// points directly to window, doesn't need current display type 
    145153// 
    146 Function OverlayMask() 
    147  
     154// if state==1, show the mask, if ==0, hide the mask 
     155Function OverlayMask(state) 
     156        Variable state 
     157         
    148158        String maskPath = "root:MSK:data" 
    149159        if(WaveExists($maskPath) == 1) 
     
    156166         
    157167                //check to see if mask overlay is currently displayed 
     168                DoWindow SANS_Data 
     169                if(V_flag==0) 
     170                        return(0) 
     171                endif 
     172                 
    158173                CheckDisplayed/W=SANS_Data root:MSK:overlay 
    159174                //Print "V_flag = ",V_flag 
    160175         
    161                 If(V_Flag == 1) 
    162                         //remove old overlay, if there was one 
    163                         RemoveImage overlay 
    164                 Else 
    165                         //append the new overlay 
    166                         AppendImage/L=left/B=bottom root:MSK:overlay 
    167                         //set the color table to vary from 0 to * (=max data = 1), with blue maximum 
    168                         //Nan's will appear transparent (just a general feature of images) 
    169                         ModifyImage/W=SANS_Data overlay ctab={0,*,BlueRedGreen,0} 
     176                If(V_Flag == 1)         //overlay is present 
     177                        if(state==0) 
     178                                RemoveImage overlay 
     179                        endif           //don't need to do anything if we want to keep the mask 
     180                Else            //overlay is not present 
     181                        if(state==1) 
     182                                //append the new overlay 
     183                                AppendImage/L=left/B=bottom root:MSK:overlay 
     184                                //set the color table to vary from 0 to * (=max data = 1), with blue maximum 
     185                                //Nan's will appear transparent (just a general feature of images) 
     186                                ModifyImage/W=SANS_Data overlay ctab={0,*,BlueRedGreen,0} 
     187                        endif           //don't do anything if we don't want the overlay 
    170188                Endif 
    171189        Endif 
Note: See TracChangeset for help on using the changeset viewer.