Changeset 1147 for sans


Ignore:
Timestamp:
Apr 29, 2019 12:26:53 PM (4 years ago)
Author:
srkline
Message:

bug fix for Igor 8 - removing the setIgorOption forceCOLORONCOLOR for windows graphics. No longer needed in Igor 8, and generates an error. removed this line in the initialization step in all packages.

bug fix for the defining of a mask for sector averaging in VSANS. beam center in [cm] was incorrectly converted to [pixels]. No other calculations were affected.

Location:
sans/Dev/trunk/NCNR_User_Procedures
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/ModelPicker/SANSModelPicker_v40.ipf

    r1010 r1147  
    7272//              Variable/G root:myGlobals:gIsMac = 0 
    7373                //SetIgorOption to keep some PC's (graphics cards?) from smoothing the 2D image 
    74                 Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
     74                // SRK APRIL 2019 - removed this, does not exist in Igor 8 on WIN, and cause an error. 
     75//              Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
    7576        endif 
    7677         

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Initialize.ipf

    r1023 r1147  
    123123                Variable/G root:myGlobals:gIsMac = 0 
    124124                //SetIgorOption to keep some PC's (graphics cards?) from smoothing the 2D image 
    125                 Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
     125                // SRK APRIL 2019 - removed this, does not exist in Igor 8 on WIN, and cause an error. 
     126//              Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
    126127        endif 
    127128         

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/Main_USANS.ipf

    r1140 r1147  
    9090//              Variable/G root:myGlobals:gIsMac = 0 
    9191                //SetIgorOption to keep some PC's (graphics cards?) from smoothing the 2D image 
    92                 Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
     92                // SRK APRIL 2019 - removed this, does not exist in Igor 8 on WIN, and cause an error. 
     93//              Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
    9394        endif 
    9495         

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DetectorCorrections.ipf

    r1144 r1147  
    464464                if(kBCTR_CM) 
    465465                        if(cmpstr("L",detStr[1]) == 0) 
    466                                 edge = data_realDistX[47][0]            //tube 47 
    467                                 delta = abs(xCtr*10 - edge) 
    468                                 x_pix[0] = dimX-1 + delta/tube_width 
     466                                Make/O/D/N=(dimX) tmpTube 
     467                                tmpTube = data_RealDistX[p][0] 
     468                                FindLevel/P/Q tmpTube xCtr*10 
     469                                if(V_Flag) 
     470                                        edge = data_realDistX[47][0]            //tube 47 
     471                                        delta = abs(xCtr*10 - edge) 
     472                                        x_pix[0] = dimX-1 + delta/tube_width 
     473                                else 
     474                                        // beam center is on the panel, report the pixel value 
     475                                        x_pix[0] = V_LevelX 
     476                                endif 
     477                                 
    469478                        else 
    470479                        // R panel 
    471                                 edge = data_realDistX[0][0] 
    472                                 delta = abs(xCtr*10 - edge + gap) 
    473                                 x_pix[0] = -delta/tube_width            //since the left edge of the R panel is pixel 0 
     480                                Make/O/D/N=(dimX) tmpTube 
     481                                tmpTube = data_RealDistX[p][0] 
     482                                FindLevel/P/Q tmpTube xCtr*10 
     483                                if(V_Flag) 
     484                                        //level not found 
     485                                        edge = data_realDistX[0][0] 
     486                                        delta = abs(xCtr*10 - edge + gap)               // how far past the edge of the panel 
     487                                        x_pix[0] = -delta/tube_width            //since the left edge of the R panel is pixel 0 
     488                                else 
     489                                        // beam center is on the panel, report the pixel value 
     490                                        x_pix[0] = V_LevelX 
     491                                endif 
     492                                 
     493                        endif 
     494 
     495                endif 
     496 
     497// the y-center will be on the panel in this direction 
     498                Make/O/D/N=(dimY) tmpTube 
     499                tmpTube = data_RealDistY[0][p] 
     500                FindLevel /P/Q tmpTube, yCtr*10 
     501                 
     502                y_pix[0] = V_levelX 
     503                KillWaves/Z tmpTube 
     504//              Print x_pix[0],y_pix[0] 
     505                 
     506        else 
     507                //      this is data (horizontal) dimensioned as (Npix,Ntubes) 
     508 
     509                if(kBCTR_CM) 
     510                        if(cmpstr("T",detStr[1]) == 0) 
     511                                Make/O/D/N=(dimY) tmpTube 
     512                                tmpTube = data_RealDistY[p][0] 
     513                                FindLevel/P/Q tmpTube yCtr*10 
     514                                if(V_Flag) 
     515                                        edge = data_realDistY[0][0]             //tube 0 
     516                                        delta = abs(yCtr*10 - edge + gap) 
     517                                        y_pix[0] =  -delta/tube_width           //since the bottom edge of the T panel is pixel 0                                
     518                                else 
     519                                        y_pix[0] = V_LevelX 
     520                                endif                            
     521                                 
     522                        else 
     523                        // FM(B) panel 
     524                                Make/O/D/N=(dimY) tmpTube 
     525                                tmpTube = data_RealDistY[p][0] 
     526                                FindLevel/P/Q tmpTube yCtr*10 
     527                                if(V_Flag) 
     528                                        edge = data_realDistY[0][47]            //y tube 47 
     529                                        delta = abs(yCtr*10 - edge) 
     530                                        y_pix[0] = dimY-1 + delta/tube_width            //since the top edge of the B panels is pixel 47                 
     531                                else 
     532                                        y_pix[0] = V_LevelX 
     533                                endif 
     534 
    474535                        endif 
    475536                endif 
    476537 
    477                 Make/O/D/N=(dimY) tmpTube 
    478                 tmpTube = data_RealDistY[0][p] 
    479                 FindLevel /P/Q tmpTube, yCtr 
    480                  
    481                 y_pix[0] = V_levelX 
    482                 KillWaves/Z tmpTube 
    483         else 
    484                 //      this is data (horizontal) dimensioned as (Npix,Ntubes) 
    485  
    486                 if(kBCTR_CM) 
    487                         if(cmpstr("T",detStr[1]) == 0) 
    488                                 edge = data_realDistY[0][0]             //tube 0 
    489                                 delta = abs(yCtr*10 - edge + gap) 
    490                                 y_pix[0] =  -delta/tube_width           //since the bottom edge of the T panel is pixel 0 
    491                         else 
    492                         // FM(B) panel 
    493                                 edge = data_realDistY[0][47]            //y tube 47 
    494                                 delta = abs(yCtr*10 - edge) 
    495                                 y_pix[0] = dimY-1 + delta/tube_width            //since the top edge of the B panels is pixel 47                 
    496                         endif 
    497                 endif 
    498  
    499                  
     538// the x-center will be on the panel in this direction           
    500539                Make/O/D/N=(dimX) tmpTube 
    501540                tmpTube = data_RealDistX[p][0] 
    502                 FindLevel /P/Q tmpTube, xCtr 
     541                FindLevel /P/Q tmpTube, xCtr*10 
    503542                 
    504543                x_pix[0] = V_levelX 
    505544                KillWaves/Z tmpTube 
    506                  
    507545                 
    508546        endif 

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Initialize.ipf

    r1144 r1147  
    235235                Variable/G root:Packages:NIST:VSANS:Globals:gIsMac = 0 
    236236                //SetIgorOption to keep some PC's (graphics cards?) from smoothing the 2D image 
    237                 Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
     237                // SRK APRIL 2019 - removed this, does not exist in Igor 8 on WIN, and cause an error. 
     238//              Execute "SetIgorOption WinDraw,forceCOLORONCOLOR=1" 
    238239        endif 
    239240         

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Protocol_Reduction.ipf

    r1141 r1147  
    26452645                Execute strToExecute 
    26462646 
    2647                 Printf "Kappa was successfully calculated as = %g +/- %g (%g %)\r",kappa,kappa_err,(kappa_err/kappa)*100 
     2647                Printf "Kappa was successfully calculated as = %g +/- %g (%g %%)\r",kappa,kappa_err,(kappa_err/kappa)*100 
    26482648         
    26492649                // restore preferences on exit 

  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Utilities_Comparisons.ipf

    r1117 r1147  
    4444// wavelength    
    4545        if(!V_FP_Value_Match(V_getWavelength,fname1,fname2)) 
     46                Print "Wavelength does not match" 
    4647                return(0)       //no match 
    4748        endif 
    … …  
    4950// wavelength spread 
    5051        if(!V_FP_Value_Match(V_getWavelength_spread,fname1,fname2)) 
     52                Print "Wavelength spread does not match" 
    5153                return(0)       //no match 
    5254        endif 
    … …  
    5456// monochromator type    
    5557        if(!V_String_Value_Match(V_getMonochromatorType,fname1,fname2)) 
     58                Print "Monochromator type does not match" 
    5659                return(0) 
    5760        endif 
    … …  
    5962// number of guides     (or narrow_slit, etc.) 
    6063        if(!V_String_Value_Match(V_getNumberOfGuides,fname1,fname2)) 
     64                Print "Number of guides does not match" 
    6165                return(0) 
    6266        endif 
    … …  
    6973// I DON'T need to check all of the distances, just three will do 
    7074        if(!V_FP2_Value_Match(V_getDet_NominalDistance,fname1,fname2,"FL")) 
     75                Print "Front carriage distance does not match" 
    7176                return(0)       //no match 
    7277        endif 
    7378 
    7479        if(!V_FP2_Value_Match(V_getDet_NominalDistance,fname1,fname2,"ML")) 
     80                Print "Middle carriage distance does not match" 
    7581                return(0)       //no match 
    7682        endif 
    7783         
    7884        if(!V_FP2_Value_Match(V_getDet_NominalDistance,fname1,fname2,"B")) 
     85                Print "Back carriage distance does not match" 
    7986                return(0)       //no match 
    8087        endif 
    … …  
    9097                detStr = StringFromList(ii, ksDetectorListAll, ";") 
    9198                if(!V_FP2_Value_Match(V_getDet_LateralOffset,fname1,fname2,detStr)) 
     99                        Print "Lateral offset does not match for "+detStr 
    92100                        return(0)       //no match 
    93101                endif 
    94102                if(!V_FP2_Value_Match(V_getDet_VerticalOffset,fname1,fname2,detStr)) 
     103                        Print "Vertical offset does not match for "+detStr 
    95104                        return(0)       //no match 
    96105                endif 
    … …  
    102111// source aperture shape, size 
    103112        if(!V_String_Value_Match(V_getSourceAp_shape,fname1,fname2)) 
     113                Print "Source aperture shape does not match" 
    104114                return(0) 
    105115        endif 
    106116// sample aperture shape, size 
    107117        if(!V_String_Value_Match(V_getSampleAp2_shape,fname1,fname2)) 
     118                Print "Sample aperture shape does not match" 
    108119                return(0) 
    109120        endif 
Note: See TracChangeset for help on using the changeset viewer.