diff --git a/doc/html/_page_projections.html b/doc/html/_page_projections.html index 9021cd6..8d9720f 100644 --- a/doc/html/_page_projections.html +++ b/doc/html/_page_projections.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Projections @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,30 +77,37 @@ $(document).ready(function(){initNavTree('_page_projections.html',''); initResiz
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
-
-
-
Projections
+
+
Projections
-

the functions of the anglescan package support the following map projections. for a description of the different projections, see, for example, https://en.wikipedia.org/wiki/Map_projection

+

the functions of the anglescan package support the following map projections.

+

for a description of the different projections, see, for example, https://en.wikipedia.org/wiki/Map_projection

- + - + - + - + - + - +
Selector Projection Function Properties
Selector Projection Function Properties
kProjDist = 0 azimuthal equidistant r = c * theta radius is proportional to polar angle.
kProjDist = 0 azimuthal equidistant r = c * theta radius is proportional to polar angle.
kProjStereo = 1 stereographic r = c * tan theta/2 circles on sphere map to circles.
kProjStereo = 1 stereographic r = c * tan theta/2 circles on sphere map to circles.
kProjArea = 2 azimuthal equal-area r = c * sin theta/2 preserves area measure.
kProjArea = 2 azimuthal equal-area r = c * sin theta/2 preserves area measure.
kProjGnom = 3 gnomonic r = c * tan theta great circles map to straight lines.
kProjGnom = 3 gnomonic r = c * tan theta great circles map to straight lines.
kProjOrtho = 4 orthographic r = c * sin theta k-space mapping in ARPES and LEED.
kProjOrtho = 4 orthographic r = c * sin theta k-space mapping in ARPES and LEED.

the projections in this package are defined for 0 <= theta < 90.

@@ -109,9 +116,7 @@ $(document).ready(function(){initNavTree('_page_projections.html',''); initResiz diff --git a/doc/html/anglescan-processing_8dox.html b/doc/html/anglescan-processing_8dox.html index d21e881..097ef5c 100644 --- a/doc/html/anglescan-processing_8dox.html +++ b/doc/html/anglescan-processing_8dox.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: anglescan-processing.dox File Reference @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('anglescan-processing_8dox.html',''); i
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
-
-
anglescan-processing.dox File Reference
+
anglescan-processing.dox File Reference
@@ -93,9 +99,7 @@ $(document).ready(function(){initNavTree('anglescan-processing_8dox.html',''); i diff --git a/doc/html/annotated.html b/doc/html/annotated.html index 8f4a839..c6a755f 100644 --- a/doc/html/annotated.html +++ b/doc/html/annotated.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Data Structures @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,20 +77,26 @@ $(document).ready(function(){initNavTree('annotated.html',''); initResizable();
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
-
-
Data Structures
+
Data Structures
Here are the data structures with brief descriptions:
- +
 CDoniachSunjicStruct
 CerrorCodeFrom matrixfilereader help
 CerrorCodeFrom matrixfilereader help
@@ -98,9 +104,7 @@ $(document).ready(function(){initNavTree('annotated.html',''); initResizable(); diff --git a/doc/html/annotated.js b/doc/html/annotated.js deleted file mode 100644 index 9a48b34..0000000 --- a/doc/html/annotated.js +++ /dev/null @@ -1,5 +0,0 @@ -var annotated = -[ - [ "DoniachSunjicStruct", "struct_doniach_sunjic_struct.html", "struct_doniach_sunjic_struct" ], - [ "errorCode", "structerror_code.html", "structerror_code" ] -]; \ No newline at end of file diff --git a/doc/html/bdwn.png b/doc/html/bdwn.png deleted file mode 100644 index 940a0b9..0000000 Binary files a/doc/html/bdwn.png and /dev/null differ diff --git a/doc/html/classes.html b/doc/html/classes.html index 81d3e92..9739f34 100644 --- a/doc/html/classes.html +++ b/doc/html/classes.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Data Structure Index @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,38 +77,37 @@ $(document).ready(function(){initNavTree('classes.html',''); initResizable(); })
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
-
-
Data Structure Index
+
Data Structure Index
-
d | e
- - - - - - - - - -
  d  
-
  e  
-
DoniachSunjicStruct   errorCode   
-
d | e
+
D | E
+
+
+
D
+
DoniachSunjicStruct
+
+
E
+
errorCode
+
diff --git a/doc/html/dir_fe5dc42579d4b99403482a3a637d9f7d.html b/doc/html/dir_fe5dc42579d4b99403482a3a637d9f7d.html index 9243214..b12532f 100644 --- a/doc/html/dir_fe5dc42579d4b99403482a3a637d9f7d.html +++ b/doc/html/dir_fe5dc42579d4b99403482a3a637d9f7d.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl Directory Reference @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,79 +77,88 @@ $(document).ready(function(){initNavTree('dir_fe5dc42579d4b99403482a3a637d9f7d.h
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
-
-
pearl Directory Reference
+
pearl Directory Reference
- - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + - + + +

+

Files

file  fermi-edge-analysis.ipf [code]
 fermi-edge-analysis.ipf
 tools for analysing the Fermi edge measured by the Scienta EW4000 analyser.
 
file  pearl-anglescan-panel.ipf [code]
 pearl-anglescan-panel.ipf
 interactive processing of angle scanned XPD data.
 
file  pearl-anglescan-process.ipf [code]
 pearl-anglescan-process.ipf
 processing and holographic mapping of angle scanned XPD data.
 
file  pearl-anglescan-tracker.ipf [code]
 pearl-anglescan-tracker.ipf
 
file  pearl-area-display.ipf [code]
 pearl-area-display.ipf
 visualization tools for 2D and 3D data.
 
file  pearl-area-import.ipf [code]
 pearl-area-import.ipf
 HDF5 file import from EPICS area detectors.
 
file  pearl-area-profiles.ipf [code]
 pearl-area-profiles.ipf
 profile extraction for multi-dimensional datasets acquired from area detectors.
 
file  pearl-arpes.ipf [code]
 pearl-arpes.ipf
 data acquisition and analysis package for ARPES at PEARL.
 
file  pearl-compat.ipf [code]
 pearl-compat.ipf
 compatibility procedures for igor 8
 
file  pearl-data-explorer.ipf [code]
 pearl-data-explorer.ipf
 
file  pearl-elog.ipf [code]
 pearl-elog.ipf
 interface for writing ELOG entries with Igor graphs as attachment.
 
file  pearl-fitfuncs.ipf [code]
 pearl-fitfuncs.ipf
 various fit functions for photoelectron spectroscopy.
 
file  pearl-gui-tools.ipf [code]
 pearl-gui-tools.ipf
 
file  pearl-matrix-import.ipf [code]
 pearl-matrix-import.ipf
 data file import for omicron matrix (STM) files
 
file  pearl-menu.ipf [code]
 pearl-menu.ipf
 
file  pearl-otf-import.ipf [code]
 pearl-otf-import.ipf
 
file  pearl-pmsco-import.ipf [code]
 pearl-pmsco-import.ipf
 data import/export procedures for multiple scattering calculations.
 
file  pearl-polar-coordinates.ipf [code]
 pearl-polar-coordinates.ipf
 
file  pearl-pshell-import.ipf [code]
 pearl-pshell-import.ipf
 import data from PShell
 
file  pearl-scienta-live.ipf [code]
 pearl-scienta-live.ipf
 utility functions for operating the Scienta analyser.
 
file  pearl-scienta-preprocess.ipf [code]
 pearl-scienta-preprocess.ipf
 preprocessing functions for Scienta detector images.
 
file  pearl-tools.ipf [code]
 pearl-scilog.ipf
 Interface for writing SciLog entries with Igor graphs as attachment.
 
file  pearl-vector-operations.ipf [code]
 pearl-tools.ipf
 
 pearl-vector-operations.ipf
 basic vector geometry operations.
 
@@ -159,9 +168,7 @@ Files diff --git a/doc/html/doc.png b/doc/html/doc.png deleted file mode 100644 index 17edabf..0000000 Binary files a/doc/html/doc.png and /dev/null differ diff --git a/doc/html/doxygen.css b/doc/html/doxygen.css index 73ecbb2..009a9b5 100644 --- a/doc/html/doxygen.css +++ b/doc/html/doxygen.css @@ -1,29 +1,378 @@ -/* The standard CSS for doxygen 1.8.17 */ +/* The standard CSS for doxygen 1.9.8*/ + +html { +/* page base colors */ +--page-background-color: white; +--page-foreground-color: black; +--page-link-color: #3D578C; +--page-visited-link-color: #4665A2; + +/* index */ +--index-odd-item-bg-color: #F8F9FC; +--index-even-item-bg-color: white; +--index-header-color: black; +--index-separator-color: #A0A0A0; + +/* header */ +--header-background-color: #F9FAFC; +--header-separator-color: #C4CFE5; +--header-gradient-image: url('nav_h.png'); +--group-header-separator-color: #879ECB; +--group-header-color: #354C7B; +--inherit-header-color: gray; + +--footer-foreground-color: #2A3D61; +--footer-logo-width: 104px; +--citation-label-color: #334975; +--glow-color: cyan; + +--title-background-color: white; +--title-separator-color: #5373B4; +--directory-separator-color: #9CAFD4; +--separator-color: #4A6AAA; + +--blockquote-background-color: #F7F8FB; +--blockquote-border-color: #9CAFD4; + +--scrollbar-thumb-color: #9CAFD4; +--scrollbar-background-color: #F9FAFC; + +--icon-background-color: #728DC1; +--icon-foreground-color: white; +--icon-doc-image: url('doc.svg'); +--icon-folder-open-image: url('folderopen.svg'); +--icon-folder-closed-image: url('folderclosed.svg'); + +/* brief member declaration list */ +--memdecl-background-color: #F9FAFC; +--memdecl-separator-color: #DEE4F0; +--memdecl-foreground-color: #555; +--memdecl-template-color: #4665A2; + +/* detailed member list */ +--memdef-border-color: #A8B8D9; +--memdef-title-background-color: #E2E8F2; +--memdef-title-gradient-image: url('nav_f.png'); +--memdef-proto-background-color: #DFE5F1; +--memdef-proto-text-color: #253555; +--memdef-proto-text-shadow: 0px 1px 1px rgba(255, 255, 255, 0.9); +--memdef-doc-background-color: white; +--memdef-param-name-color: #602020; +--memdef-template-color: #4665A2; + +/* tables */ +--table-cell-border-color: #2D4068; +--table-header-background-color: #374F7F; +--table-header-foreground-color: #FFFFFF; + +/* labels */ +--label-background-color: #728DC1; +--label-left-top-border-color: #5373B4; +--label-right-bottom-border-color: #C4CFE5; +--label-foreground-color: white; + +/** navigation bar/tree/menu */ +--nav-background-color: #F9FAFC; +--nav-foreground-color: #364D7C; +--nav-gradient-image: url('tab_b.png'); +--nav-gradient-hover-image: url('tab_h.png'); +--nav-gradient-active-image: url('tab_a.png'); +--nav-gradient-active-image-parent: url("../tab_a.png"); +--nav-separator-image: url('tab_s.png'); +--nav-breadcrumb-image: url('bc_s.png'); +--nav-breadcrumb-border-color: #C2CDE4; +--nav-splitbar-image: url('splitbar.png'); +--nav-font-size-level1: 13px; +--nav-font-size-level2: 10px; +--nav-font-size-level3: 9px; +--nav-text-normal-color: #283A5D; +--nav-text-hover-color: white; +--nav-text-active-color: white; +--nav-text-normal-shadow: 0px 1px 1px rgba(255, 255, 255, 0.9); +--nav-text-hover-shadow: 0px 1px 1px rgba(0, 0, 0, 1.0); +--nav-text-active-shadow: 0px 1px 1px rgba(0, 0, 0, 1.0); +--nav-menu-button-color: #364D7C; +--nav-menu-background-color: white; +--nav-menu-foreground-color: #555555; +--nav-menu-toggle-color: rgba(255, 255, 255, 0.5); +--nav-arrow-color: #9CAFD4; +--nav-arrow-selected-color: #9CAFD4; + +/* table of contents */ +--toc-background-color: #F4F6FA; +--toc-border-color: #D8DFEE; +--toc-header-color: #4665A2; +--toc-down-arrow-image: url("data:image/svg+xml;utf8,&%238595;"); + +/** search field */ +--search-background-color: white; +--search-foreground-color: #909090; +--search-magnification-image: url('mag.svg'); +--search-magnification-select-image: url('mag_sel.svg'); +--search-active-color: black; +--search-filter-background-color: #F9FAFC; +--search-filter-foreground-color: black; +--search-filter-border-color: #90A5CE; +--search-filter-highlight-text-color: white; +--search-filter-highlight-bg-color: #3D578C; +--search-results-foreground-color: #425E97; +--search-results-background-color: #EEF1F7; +--search-results-border-color: black; +--search-box-shadow: inset 0.5px 0.5px 3px 0px #555; + +/** code fragments */ +--code-keyword-color: #008000; +--code-type-keyword-color: #604020; +--code-flow-keyword-color: #E08000; +--code-comment-color: #800000; +--code-preprocessor-color: #806020; +--code-string-literal-color: #002080; +--code-char-literal-color: #008080; +--code-xml-cdata-color: black; +--code-vhdl-digit-color: #FF00FF; +--code-vhdl-char-color: #000000; +--code-vhdl-keyword-color: #700070; +--code-vhdl-logic-color: #FF0000; +--code-link-color: #4665A2; +--code-external-link-color: #4665A2; +--fragment-foreground-color: black; +--fragment-background-color: #FBFCFD; +--fragment-border-color: #C4CFE5; +--fragment-lineno-border-color: #00FF00; +--fragment-lineno-background-color: #E8E8E8; +--fragment-lineno-foreground-color: black; +--fragment-lineno-link-fg-color: #4665A2; +--fragment-lineno-link-bg-color: #D8D8D8; +--fragment-lineno-link-hover-fg-color: #4665A2; +--fragment-lineno-link-hover-bg-color: #C8C8C8; +--tooltip-foreground-color: black; +--tooltip-background-color: white; +--tooltip-border-color: gray; +--tooltip-doc-color: grey; +--tooltip-declaration-color: #006318; +--tooltip-link-color: #4665A2; +--tooltip-shadow: 1px 1px 7px gray; +--fold-line-color: #808080; +--fold-minus-image: url('minus.svg'); +--fold-plus-image: url('plus.svg'); +--fold-minus-image-relpath: url('../../minus.svg'); +--fold-plus-image-relpath: url('../../plus.svg'); + +/** font-family */ +--font-family-normal: Roboto,sans-serif; +--font-family-monospace: 'JetBrains Mono',Consolas,Monaco,'Andale Mono','Ubuntu Mono',monospace,fixed; +--font-family-nav: 'Lucida Grande',Geneva,Helvetica,Arial,sans-serif; +--font-family-title: Tahoma,Arial,sans-serif; +--font-family-toc: Verdana,'DejaVu Sans',Geneva,sans-serif; +--font-family-search: Arial,Verdana,sans-serif; +--font-family-icon: Arial,Helvetica; +--font-family-tooltip: Roboto,sans-serif; -body, table, div, p, dl { - font: 400 14px/22px Roboto,sans-serif; } -p.reference, p.definition { - font: 400 14px/22px Roboto,sans-serif; +@media (prefers-color-scheme: dark) { + html:not(.dark-mode) { + color-scheme: dark; + +/* page base colors */ +--page-background-color: black; +--page-foreground-color: #C9D1D9; +--page-link-color: #90A5CE; +--page-visited-link-color: #A3B4D7; + +/* index */ +--index-odd-item-bg-color: #0B101A; +--index-even-item-bg-color: black; +--index-header-color: #C4CFE5; +--index-separator-color: #334975; + +/* header */ +--header-background-color: #070B11; +--header-separator-color: #141C2E; +--header-gradient-image: url('nav_hd.png'); +--group-header-separator-color: #283A5D; +--group-header-color: #90A5CE; +--inherit-header-color: #A0A0A0; + +--footer-foreground-color: #5B7AB7; +--footer-logo-width: 60px; +--citation-label-color: #90A5CE; +--glow-color: cyan; + +--title-background-color: #090D16; +--title-separator-color: #354C79; +--directory-separator-color: #283A5D; +--separator-color: #283A5D; + +--blockquote-background-color: #101826; +--blockquote-border-color: #283A5D; + +--scrollbar-thumb-color: #283A5D; +--scrollbar-background-color: #070B11; + +--icon-background-color: #334975; +--icon-foreground-color: #C4CFE5; +--icon-doc-image: url('docd.svg'); +--icon-folder-open-image: url('folderopend.svg'); +--icon-folder-closed-image: url('folderclosedd.svg'); + +/* brief member declaration list */ +--memdecl-background-color: #0B101A; +--memdecl-separator-color: #2C3F65; +--memdecl-foreground-color: #BBB; +--memdecl-template-color: #7C95C6; + +/* detailed member list */ +--memdef-border-color: #233250; +--memdef-title-background-color: #1B2840; +--memdef-title-gradient-image: url('nav_fd.png'); +--memdef-proto-background-color: #19243A; +--memdef-proto-text-color: #9DB0D4; +--memdef-proto-text-shadow: 0px 1px 1px rgba(0, 0, 0, 0.9); +--memdef-doc-background-color: black; +--memdef-param-name-color: #D28757; +--memdef-template-color: #7C95C6; + +/* tables */ +--table-cell-border-color: #283A5D; +--table-header-background-color: #283A5D; +--table-header-foreground-color: #C4CFE5; + +/* labels */ +--label-background-color: #354C7B; +--label-left-top-border-color: #4665A2; +--label-right-bottom-border-color: #283A5D; +--label-foreground-color: #CCCCCC; + +/** navigation bar/tree/menu */ +--nav-background-color: #101826; +--nav-foreground-color: #364D7C; +--nav-gradient-image: url('tab_bd.png'); +--nav-gradient-hover-image: url('tab_hd.png'); +--nav-gradient-active-image: url('tab_ad.png'); +--nav-gradient-active-image-parent: url("../tab_ad.png"); +--nav-separator-image: url('tab_sd.png'); +--nav-breadcrumb-image: url('bc_sd.png'); +--nav-breadcrumb-border-color: #2A3D61; +--nav-splitbar-image: url('splitbard.png'); +--nav-font-size-level1: 13px; +--nav-font-size-level2: 10px; +--nav-font-size-level3: 9px; +--nav-text-normal-color: #B6C4DF; +--nav-text-hover-color: #DCE2EF; +--nav-text-active-color: #DCE2EF; +--nav-text-normal-shadow: 0px 1px 1px black; +--nav-text-hover-shadow: 0px 1px 1px rgba(0, 0, 0, 1.0); +--nav-text-active-shadow: 0px 1px 1px rgba(0, 0, 0, 1.0); +--nav-menu-button-color: #B6C4DF; +--nav-menu-background-color: #05070C; +--nav-menu-foreground-color: #BBBBBB; +--nav-menu-toggle-color: rgba(255, 255, 255, 0.2); +--nav-arrow-color: #334975; +--nav-arrow-selected-color: #90A5CE; + +/* table of contents */ +--toc-background-color: #151E30; +--toc-border-color: #202E4A; +--toc-header-color: #A3B4D7; +--toc-down-arrow-image: url("data:image/svg+xml;utf8,&%238595;"); + +/** search field */ +--search-background-color: black; +--search-foreground-color: #C5C5C5; +--search-magnification-image: url('mag_d.svg'); +--search-magnification-select-image: url('mag_seld.svg'); +--search-active-color: #C5C5C5; +--search-filter-background-color: #101826; +--search-filter-foreground-color: #90A5CE; +--search-filter-border-color: #7C95C6; +--search-filter-highlight-text-color: #BCC9E2; +--search-filter-highlight-bg-color: #283A5D; +--search-results-background-color: #101826; +--search-results-foreground-color: #90A5CE; +--search-results-border-color: #7C95C6; +--search-box-shadow: inset 0.5px 0.5px 3px 0px #2F436C; + +/** code fragments */ +--code-keyword-color: #CC99CD; +--code-type-keyword-color: #AB99CD; +--code-flow-keyword-color: #E08000; +--code-comment-color: #717790; +--code-preprocessor-color: #65CABE; +--code-string-literal-color: #7EC699; +--code-char-literal-color: #00E0F0; +--code-xml-cdata-color: #C9D1D9; +--code-vhdl-digit-color: #FF00FF; +--code-vhdl-char-color: #C0C0C0; +--code-vhdl-keyword-color: #CF53C9; +--code-vhdl-logic-color: #FF0000; +--code-link-color: #79C0FF; +--code-external-link-color: #79C0FF; +--fragment-foreground-color: #C9D1D9; +--fragment-background-color: black; +--fragment-border-color: #30363D; +--fragment-lineno-border-color: #30363D; +--fragment-lineno-background-color: black; +--fragment-lineno-foreground-color: #6E7681; +--fragment-lineno-link-fg-color: #6E7681; +--fragment-lineno-link-bg-color: #303030; +--fragment-lineno-link-hover-fg-color: #8E96A1; +--fragment-lineno-link-hover-bg-color: #505050; +--tooltip-foreground-color: #C9D1D9; +--tooltip-background-color: #202020; +--tooltip-border-color: #C9D1D9; +--tooltip-doc-color: #D9E1E9; +--tooltip-declaration-color: #20C348; +--tooltip-link-color: #79C0FF; +--tooltip-shadow: none; +--fold-line-color: #808080; +--fold-minus-image: url('minusd.svg'); +--fold-plus-image: url('plusd.svg'); +--fold-minus-image-relpath: url('../../minusd.svg'); +--fold-plus-image-relpath: url('../../plusd.svg'); + +/** font-family */ +--font-family-normal: Roboto,sans-serif; +--font-family-monospace: 'JetBrains Mono',Consolas,Monaco,'Andale Mono','Ubuntu Mono',monospace,fixed; +--font-family-nav: 'Lucida Grande',Geneva,Helvetica,Arial,sans-serif; +--font-family-title: Tahoma,Arial,sans-serif; +--font-family-toc: Verdana,'DejaVu Sans',Geneva,sans-serif; +--font-family-search: Arial,Verdana,sans-serif; +--font-family-icon: Arial,Helvetica; +--font-family-tooltip: Roboto,sans-serif; + +}} +body { + background-color: var(--page-background-color); + color: var(--page-foreground-color); +} + +body, table, div, p, dl { + font-weight: 400; + font-size: 14px; + font-family: var(--font-family-normal); + line-height: 22px; } /* @group Heading Levels */ -h1.groupheader { - font-size: 150%; -} - .title { - font: 400 14px/28px Roboto,sans-serif; + font-weight: 400; + font-size: 14px; + font-family: var(--font-family-normal); + line-height: 28px; font-size: 150%; font-weight: bold; margin: 10px 2px; } +h1.groupheader { + font-size: 150%; +} + h2.groupheader { - border-bottom: 1px solid #879ECB; - color: #354C7B; + border-bottom: 1px solid var(--group-header-separator-color); + color: var(--group-header-color); font-size: 150%; font-weight: normal; margin-top: 1.75em; @@ -46,27 +395,18 @@ h1, h2, h3, h4, h5, h6 { } h1.glow, h2.glow, h3.glow, h4.glow, h5.glow, h6.glow { - text-shadow: 0 0 15px cyan; + text-shadow: 0 0 15px var(--glow-color); } dt { font-weight: bold; } -ul.multicol { - -moz-column-gap: 1em; - -webkit-column-gap: 1em; - column-gap: 1em; - -moz-column-count: 3; - -webkit-column-count: 3; - column-count: 3; -} - p.startli, p.startdd { margin-top: 2px; } -th p.starttd, p.intertd, p.endtd { +th p.starttd, th p.intertd, th p.endtd { font-size: 100%; font-weight: 700; } @@ -103,61 +443,122 @@ caption { } span.legend { - font-size: 70%; - text-align: center; -} - -h3.version { - font-size: 90%; - text-align: center; -} - -div.qindex, div.navtab{ - background-color: #EBEFF6; - border: 1px solid #A3B4D7; + font-size: 70%; text-align: center; } -div.qindex, div.navpath { - width: 100%; - line-height: 140%; +h3.version { + font-size: 90%; + text-align: center; } div.navtab { - margin-right: 15px; + padding-right: 15px; + text-align: right; + line-height: 110%; } +div.navtab table { + border-spacing: 0; +} + +td.navtab { + padding-right: 6px; + padding-left: 6px; +} + +td.navtabHL { + background-image: var(--nav-gradient-active-image); + background-repeat:repeat-x; + padding-right: 6px; + padding-left: 6px; +} + +td.navtabHL a, td.navtabHL a:visited { + color: var(--nav-text-hover-color); + text-shadow: var(--nav-text-hover-shadow); +} + +a.navtab { + font-weight: bold; +} + +div.qindex{ + text-align: center; + width: 100%; + line-height: 140%; + font-size: 130%; + color: var(--index-separator-color); +} + +#main-menu a:focus { + outline: auto; + z-index: 10; + position: relative; +} + +dt.alphachar{ + font-size: 180%; + font-weight: bold; +} + +.alphachar a{ + color: var(--index-header-color); +} + +.alphachar a:hover, .alphachar a:visited{ + text-decoration: none; +} + +.classindex dl { + padding: 25px; + column-count:1 +} + +.classindex dd { + display:inline-block; + margin-left: 50px; + width: 90%; + line-height: 1.15em; +} + +.classindex dl.even { + background-color: var(--index-even-item-bg-color); +} + +.classindex dl.odd { + background-color: var(--index-odd-item-bg-color); +} + +@media(min-width: 1120px) { + .classindex dl { + column-count:2 + } +} + +@media(min-width: 1320px) { + .classindex dl { + column-count:3 + } +} + + /* @group Link Styling */ a { - color: #3D578C; + color: var(--page-link-color); font-weight: normal; text-decoration: none; } .contents a:visited { - color: #4665A2; + color: var(--page-visited-link-color); } a:hover { text-decoration: underline; } -a.qindex { - font-weight: bold; -} - -a.qindexHL { - font-weight: bold; - background-color: #9CAFD4; - color: #FFFFFF; - border: 1px double #869DCA; -} - -.contents a.qindexHL:visited { - color: #FFFFFF; -} - a.el { font-weight: bold; } @@ -166,13 +567,40 @@ a.elRef { } a.code, a.code:visited, a.line, a.line:visited { - color: #4665A2; + color: var(--code-link-color); } a.codeRef, a.codeRef:visited, a.lineRef, a.lineRef:visited { - color: #4665A2; + color: var(--code-external-link-color); } +a.code.hl_class { /* style for links to class names in code snippets */ } +a.code.hl_struct { /* style for links to struct names in code snippets */ } +a.code.hl_union { /* style for links to union names in code snippets */ } +a.code.hl_interface { /* style for links to interface names in code snippets */ } +a.code.hl_protocol { /* style for links to protocol names in code snippets */ } +a.code.hl_category { /* style for links to category names in code snippets */ } +a.code.hl_exception { /* style for links to exception names in code snippets */ } +a.code.hl_service { /* style for links to service names in code snippets */ } +a.code.hl_singleton { /* style for links to singleton names in code snippets */ } +a.code.hl_concept { /* style for links to concept names in code snippets */ } +a.code.hl_namespace { /* style for links to namespace names in code snippets */ } +a.code.hl_package { /* style for links to package names in code snippets */ } +a.code.hl_define { /* style for links to macro names in code snippets */ } +a.code.hl_function { /* style for links to function names in code snippets */ } +a.code.hl_variable { /* style for links to variable names in code snippets */ } +a.code.hl_typedef { /* style for links to typedef names in code snippets */ } +a.code.hl_enumvalue { /* style for links to enum value names in code snippets */ } +a.code.hl_enumeration { /* style for links to enumeration names in code snippets */ } +a.code.hl_signal { /* style for links to Qt signal names in code snippets */ } +a.code.hl_slot { /* style for links to Qt slot names in code snippets */ } +a.code.hl_friend { /* style for links to friend names in code snippets */ } +a.code.hl_dcop { /* style for links to KDE3 DCOP names in code snippets */ } +a.code.hl_property { /* style for links to property names in code snippets */ } +a.code.hl_event { /* style for links to event names in code snippets */ } +a.code.hl_sequence { /* style for links to sequence names in code snippets */ } +a.code.hl_dictionary { /* style for links to dictionary names in code snippets */ } + /* @end */ dl.el { @@ -180,7 +608,17 @@ dl.el { } ul { - overflow: hidden; /*Fixed: list item bullets overlap floating elements*/ + overflow: visible; +} + +ul.multicol { + -moz-column-gap: 1em; + -webkit-column-gap: 1em; + column-gap: 1em; + -moz-column-count: 3; + -webkit-column-count: 3; + column-count: 3; + list-style-type: none; } #side-nav ul { @@ -199,30 +637,32 @@ ul { } pre.fragment { - border: 1px solid #C4CFE5; - background-color: #FBFCFD; + border: 1px solid var(--fragment-border-color); + background-color: var(--fragment-background-color); + color: var(--fragment-foreground-color); padding: 4px 6px; margin: 4px 8px 4px 2px; overflow: auto; word-wrap: break-word; font-size: 9pt; line-height: 125%; - font-family: monospace, fixed; + font-family: var(--font-family-monospace); font-size: 105%; } div.fragment { - padding: 0 0 1px 0; /*Fixed: last line underline overlap border*/ - margin: 4px 8px 4px 2px; - background-color: #FBFCFD; - border: 1px solid #C4CFE5; + padding: 0 0 1px 0; /*Fixed: last line underline overlap border*/ + margin: 4px 8px 4px 2px; + color: var(--fragment-foreground-color); + background-color: var(--fragment-background-color); + border: 1px solid var(--fragment-border-color); } div.line { - font-family: monospace, fixed; + font-family: var(--font-family-monospace); font-size: 13px; min-height: 13px; - line-height: 1.0; + line-height: 1.2; text-wrap: unrestricted; white-space: -moz-pre-wrap; /* Moz */ white-space: -pre-wrap; /* Opera 4-6 */ @@ -251,24 +691,40 @@ div.line:after { } div.line.glow { - background-color: cyan; - box-shadow: 0 0 10px cyan; + background-color: var(--glow-color); + box-shadow: 0 0 10px var(--glow-color); } +span.fold { + margin-left: 5px; + margin-right: 1px; + margin-top: 0px; + margin-bottom: 0px; + padding: 0px; + display: inline-block; + width: 12px; + height: 12px; + background-repeat:no-repeat; + background-position:center; +} span.lineno { padding-right: 4px; + margin-right: 9px; text-align: right; - border-right: 2px solid #0F0; - background-color: #E8E8E8; + border-right: 2px solid var(--fragment-lineno-border-color); + color: var(--fragment-lineno-foreground-color); + background-color: var(--fragment-lineno-background-color); white-space: pre; } -span.lineno a { - background-color: #D8D8D8; +span.lineno a, span.lineno a:visited { + color: var(--fragment-lineno-link-fg-color); + background-color: var(--fragment-lineno-link-bg-color); } span.lineno a:hover { - background-color: #C8C8C8; + color: var(--fragment-lineno-link-hover-fg-color); + background-color: var(--fragment-lineno-link-hover-bg-color); } .lineno { @@ -280,24 +736,6 @@ span.lineno a:hover { user-select: none; } -div.ah, span.ah { - background-color: black; - font-weight: bold; - color: #FFFFFF; - margin-bottom: 3px; - margin-top: 3px; - padding: 0.2em; - border: solid thin #333; - border-radius: 0.5em; - -webkit-border-radius: .5em; - -moz-border-radius: .5em; - box-shadow: 2px 2px 3px #999; - -webkit-box-shadow: 2px 2px 3px #999; - -moz-box-shadow: rgba(0, 0, 0, 0.15) 2px 2px 2px; - background-image: -webkit-gradient(linear, left top, left bottom, from(#eee), to(#000),color-stop(0.3, #444)); - background-image: -moz-linear-gradient(center top, #eee 0%, #444 40%, #000 110%); -} - div.classindex ul { list-style: none; padding-left: 0; @@ -319,8 +757,7 @@ div.groupText { } body { - background-color: white; - color: black; + color: var(--page-foreground-color); margin: 0; } @@ -330,31 +767,17 @@ div.contents { margin-right: 8px; } -td.indexkey { - background-color: #EBEFF6; - font-weight: bold; - border: 1px solid #C4CFE5; - margin: 2px 0px 2px 0; - padding: 2px 10px; - white-space: nowrap; - vertical-align: top; -} - -td.indexvalue { - background-color: #EBEFF6; - border: 1px solid #C4CFE5; - padding: 2px 10px; - margin: 2px 0px; -} - -tr.memlist { - background-color: #EEF1F7; -} - p.formulaDsp { text-align: center; } +img.dark-mode-visible { + display: none; +} +img.light-mode-visible { + display: none; +} + img.formulaDsp { } @@ -382,89 +805,74 @@ address.footer { img.footer { border: 0px; vertical-align: middle; + width: var(--footer-logo-width); +} + +.compoundTemplParams { + color: var(--memdecl-template-color); + font-size: 80%; + line-height: 120%; } /* @group Code Colorization */ span.keyword { - color: #008000 + color: var(--code-keyword-color); } span.keywordtype { - color: #604020 + color: var(--code-type-keyword-color); } span.keywordflow { - color: #e08000 + color: var(--code-flow-keyword-color); } span.comment { - color: #800000 + color: var(--code-comment-color); } span.preprocessor { - color: #806020 + color: var(--code-preprocessor-color); } span.stringliteral { - color: #002080 + color: var(--code-string-literal-color); } span.charliteral { - color: #008080 + color: var(--code-char-literal-color); +} + +span.xmlcdata { + color: var(--code-xml-cdata-color); } span.vhdldigit { - color: #ff00ff + color: var(--code-vhdl-digit-color); } span.vhdlchar { - color: #000000 + color: var(--code-vhdl-char-color); } span.vhdlkeyword { - color: #700070 + color: var(--code-vhdl-keyword-color); } span.vhdllogic { - color: #ff0000 + color: var(--code-vhdl-logic-color); } blockquote { - background-color: #F7F8FB; - border-left: 2px solid #9CAFD4; + background-color: var(--blockquote-background-color); + border-left: 2px solid var(--blockquote-border-color); margin: 0 24px 0 4px; padding: 0 12px 0 16px; } -blockquote.DocNodeRTL { - border-left: 0; - border-right: 2px solid #9CAFD4; - margin: 0 4px 0 24px; - padding: 0 16px 0 12px; -} - /* @end */ -/* -.search { - color: #003399; - font-weight: bold; -} - -form.search { - margin-bottom: 0px; - margin-top: 0px; -} - -input.search { - font-size: 75%; - color: #000080; - font-weight: normal; - background-color: #e8eef2; -} -*/ - td.tiny { font-size: 75%; } @@ -472,18 +880,19 @@ td.tiny { .dirtab { padding: 4px; border-collapse: collapse; - border: 1px solid #A3B4D7; + border: 1px solid var(--table-cell-border-color); } th.dirtab { - background: #EBEFF6; + background-color: var(--table-header-background-color); + color: var(--table-header-foreground-color); font-weight: bold; } hr { height: 0px; border: none; - border-top: 1px solid #4A6AAA; + border-top: 1px solid var(--separator-color); } hr.footer { @@ -511,14 +920,14 @@ table.memberdecls { } .memberdecls td.glow, .fieldtable tr.glow { - background-color: cyan; - box-shadow: 0 0 15px cyan; + background-color: var(--glow-color); + box-shadow: 0 0 15px var(--glow-color); } .mdescLeft, .mdescRight, .memItemLeft, .memItemRight, .memTemplItemLeft, .memTemplItemRight, .memTemplParams { - background-color: #F9FAFC; + background-color: var(--memdecl-background-color); border: none; margin: 4px; padding: 1px 0 0 8px; @@ -526,11 +935,11 @@ table.memberdecls { .mdescLeft, .mdescRight { padding: 0px 8px 4px 8px; - color: #555; + color: var(--memdecl-foreground-color); } .memSeparator { - border-bottom: 1px solid #DEE4F0; + border-bottom: 1px solid var(--memdecl-separator-color); line-height: 1px; margin: 0px; padding: 0px; @@ -545,7 +954,7 @@ table.memberdecls { } .memTemplParams { - color: #4665A2; + color: var(--memdecl-template-color); white-space: nowrap; font-size: 80%; } @@ -558,15 +967,15 @@ table.memberdecls { .memtitle { padding: 8px; - border-top: 1px solid #A8B8D9; - border-left: 1px solid #A8B8D9; - border-right: 1px solid #A8B8D9; + border-top: 1px solid var(--memdef-border-color); + border-left: 1px solid var(--memdef-border-color); + border-right: 1px solid var(--memdef-border-color); border-top-right-radius: 4px; border-top-left-radius: 4px; margin-bottom: -1px; - background-image: url('nav_f.png'); + background-image: var(--memdef-title-gradient-image); background-repeat: repeat-x; - background-color: #E2E8F2; + background-color: var(--memdef-title-background-color); line-height: 1.25; font-weight: 300; float:left; @@ -581,20 +990,11 @@ table.memberdecls { .memtemplate { font-size: 80%; - color: #4665A2; + color: var(--memdef-template-color); font-weight: normal; margin-left: 9px; } -.memnav { - background-color: #EBEFF6; - border: 1px solid #A3B4D7; - text-align: center; - margin: 2px; - margin-right: 15px; - padding: 2px; -} - .mempage { width: 100%; } @@ -613,7 +1013,7 @@ table.memberdecls { } .memitem.glow { - box-shadow: 0 0 15px cyan; + box-shadow: 0 0 15px var(--glow-color); } .memname { @@ -626,41 +1026,32 @@ table.memberdecls { } .memproto, dl.reflist dt { - border-top: 1px solid #A8B8D9; - border-left: 1px solid #A8B8D9; - border-right: 1px solid #A8B8D9; + border-top: 1px solid var(--memdef-border-color); + border-left: 1px solid var(--memdef-border-color); + border-right: 1px solid var(--memdef-border-color); padding: 6px 0px 6px 0px; - color: #253555; + color: var(--memdef-proto-text-color); font-weight: bold; - text-shadow: 0px 1px 1px rgba(255, 255, 255, 0.9); - background-color: #DFE5F1; - /* opera specific markup */ + text-shadow: var(--memdef-proto-text-shadow); + background-color: var(--memdef-proto-background-color); box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.15); border-top-right-radius: 4px; - /* firefox specific markup */ - -moz-box-shadow: rgba(0, 0, 0, 0.15) 5px 5px 5px; - -moz-border-radius-topright: 4px; - /* webkit specific markup */ - -webkit-box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.15); - -webkit-border-top-right-radius: 4px; - } .overload { - font-family: "courier new",courier,monospace; + font-family: var(--font-family-monospace); font-size: 65%; } .memdoc, dl.reflist dd { - border-bottom: 1px solid #A8B8D9; - border-left: 1px solid #A8B8D9; - border-right: 1px solid #A8B8D9; + border-bottom: 1px solid var(--memdef-border-color); + border-left: 1px solid var(--memdef-border-color); + border-right: 1px solid var(--memdef-border-color); padding: 6px 10px 2px 10px; - background-color: #FBFCFD; border-top-width: 0; background-image:url('nav_g.png'); background-repeat:repeat-x; - background-color: #FFFFFF; + background-color: var(--memdef-doc-background-color); /* opera specific markup */ border-bottom-left-radius: 4px; border-bottom-right-radius: 4px; @@ -693,7 +1084,7 @@ dl.reflist dd { } .paramname { - color: #602020; + color: var(--memdef-param-name-color); white-space: nowrap; } .paramname em { @@ -706,20 +1097,20 @@ dl.reflist dd { .params, .retval, .exception, .tparams { margin-left: 0px; padding-left: 0px; -} +} .params .paramname, .retval .paramname, .tparams .paramname, .exception .paramname { font-weight: bold; vertical-align: top; } - + .params .paramtype, .tparams .paramtype { font-style: italic; vertical-align: top; -} - +} + .params .paramdir, .tparams .paramdir { - font-family: "courier new",courier,monospace; + font-family: var(--font-family-monospace); vertical-align: top; } @@ -743,13 +1134,13 @@ span.mlabels { } span.mlabel { - background-color: #728DC1; - border-top:1px solid #5373B4; - border-left:1px solid #5373B4; - border-right:1px solid #C4CFE5; - border-bottom:1px solid #C4CFE5; + background-color: var(--label-background-color); + border-top:1px solid var(--label-left-top-border-color); + border-left:1px solid var(--label-left-top-border-color); + border-right:1px solid var(--label-right-bottom-border-color); + border-bottom:1px solid var(--label-right-bottom-border-color); text-shadow: none; - color: white; + color: var(--label-foreground-color); margin-right: 4px; padding: 2px 3px; border-radius: 3px; @@ -766,8 +1157,8 @@ span.mlabel { div.directory { margin: 10px 0px; - border-top: 1px solid #9CAFD4; - border-bottom: 1px solid #9CAFD4; + border-top: 1px solid var(--directory-separator-color); + border-bottom: 1px solid var(--directory-separator-color); width: 100%; } @@ -803,9 +1194,14 @@ div.directory { border-left: 1px solid rgba(0,0,0,0.05); } +.directory tr.odd { + padding-left: 6px; + background-color: var(--index-odd-item-bg-color); +} + .directory tr.even { padding-left: 6px; - background-color: #F7F8FB; + background-color: var(--index-even-item-bg-color); } .directory img { @@ -823,11 +1219,11 @@ div.directory { cursor: pointer; padding-left: 2px; padding-right: 2px; - color: #3D578C; + color: var(--page-link-color); } .arrow { - color: #9CAFD4; + color: var(--nav-arrow-color); -webkit-user-select: none; -khtml-user-select: none; -moz-user-select: none; @@ -841,14 +1237,15 @@ div.directory { } .icon { - font-family: Arial, Helvetica; + font-family: var(--font-family-icon); + line-height: normal; font-weight: bold; font-size: 12px; height: 14px; width: 16px; display: inline-block; - background-color: #728DC1; - color: white; + background-color: var(--icon-background-color); + color: var(--icon-foreground-color); text-align: center; border-radius: 4px; margin-left: 2px; @@ -865,8 +1262,7 @@ div.directory { width: 24px; height: 18px; margin-bottom: 4px; - background-image:url('folderopen.png'); - background-position: 0px -4px; + background-image:var(--icon-folder-open-image); background-repeat: repeat-y; vertical-align:top; display: inline-block; @@ -876,8 +1272,7 @@ div.directory { width: 24px; height: 18px; margin-bottom: 4px; - background-image:url('folderclosed.png'); - background-position: 0px -4px; + background-image:var(--icon-folder-closed-image); background-repeat: repeat-y; vertical-align:top; display: inline-block; @@ -887,17 +1282,13 @@ div.directory { width: 24px; height: 18px; margin-bottom: 4px; - background-image:url('doc.png'); + background-image:var(--icon-doc-image); background-position: 0px -4px; background-repeat: repeat-y; vertical-align:top; display: inline-block; } -table.directory { - font: 400 14px Roboto,sans-serif; -} - /* @end */ div.dynheader { @@ -912,7 +1303,7 @@ div.dynheader { address { font-style: normal; - color: #2A3D61; + color: var(--footer-foreground-color); } table.doxtable caption { @@ -926,28 +1317,23 @@ table.doxtable { } table.doxtable td, table.doxtable th { - border: 1px solid #2D4068; + border: 1px solid var(--table-cell-border-color); padding: 3px 7px 2px; } table.doxtable th { - background-color: #374F7F; - color: #FFFFFF; + background-color: var(--table-header-background-color); + color: var(--table-header-foreground-color); font-size: 110%; padding-bottom: 4px; padding-top: 5px; } table.fieldtable { - /*width: 100%;*/ margin-bottom: 10px; - border: 1px solid #A8B8D9; + border: 1px solid var(--memdef-border-color); border-spacing: 0px; - -moz-border-radius: 4px; - -webkit-border-radius: 4px; border-radius: 4px; - -moz-box-shadow: rgba(0, 0, 0, 0.15) 2px 2px 2px; - -webkit-box-shadow: 2px 2px 2px rgba(0, 0, 0, 0.15); box-shadow: 2px 2px 2px rgba(0, 0, 0, 0.15); } @@ -957,8 +1343,8 @@ table.fieldtable { .fieldtable td.fieldtype, .fieldtable td.fieldname { white-space: nowrap; - border-right: 1px solid #A8B8D9; - border-bottom: 1px solid #A8B8D9; + border-right: 1px solid var(--memdef-border-color); + border-bottom: 1px solid var(--memdef-border-color); vertical-align: top; } @@ -967,14 +1353,13 @@ table.fieldtable { } .fieldtable td.fielddoc { - border-bottom: 1px solid #A8B8D9; - /*width: 100%;*/ + border-bottom: 1px solid var(--memdef-border-color); } .fieldtable td.fielddoc p:first-child { margin-top: 0px; -} - +} + .fieldtable td.fielddoc p:last-child { margin-bottom: 2px; } @@ -984,22 +1369,18 @@ table.fieldtable { } .fieldtable th { - background-image:url('nav_f.png'); + background-image: var(--memdef-title-gradient-image); background-repeat:repeat-x; - background-color: #E2E8F2; + background-color: var(--memdef-title-background-color); font-size: 90%; - color: #253555; + color: var(--memdef-proto-text-color); padding-bottom: 4px; padding-top: 5px; text-align:left; font-weight: 400; - -moz-border-radius-topleft: 4px; - -moz-border-radius-topright: 4px; - -webkit-border-top-left-radius: 4px; - -webkit-border-top-right-radius: 4px; border-top-left-radius: 4px; border-top-right-radius: 4px; - border-bottom: 1px solid #A8B8D9; + border-bottom: 1px solid var(--memdef-border-color); } @@ -1007,7 +1388,7 @@ table.fieldtable { top: 0px; left: 10px; height: 36px; - background-image: url('tab_b.png'); + background-image: var(--nav-gradient-image); z-index: 101; overflow: hidden; font-size: 13px; @@ -1016,13 +1397,13 @@ table.fieldtable { .navpath ul { font-size: 11px; - background-image:url('tab_b.png'); + background-image: var(--nav-gradient-image); background-repeat:repeat-x; background-position: 0 -5px; height:30px; line-height:30px; - color:#8AA0CC; - border:solid 1px #C2CDE4; + color:var(--nav-text-normal-color); + border:solid 1px var(--nav-breadcrumb-border-color); overflow:hidden; margin:0px; padding:0px; @@ -1034,10 +1415,10 @@ table.fieldtable { float:left; padding-left:10px; padding-right:15px; - background-image:url('bc_s.png'); + background-image:var(--nav-breadcrumb-image); background-repeat:no-repeat; background-position:right; - color:#364D7C; + color: var(--nav-foreground-color); } .navpath li.navelem a @@ -1046,15 +1427,16 @@ table.fieldtable { display:block; text-decoration: none; outline: none; - color: #283A5D; - font-family: 'Lucida Grande',Geneva,Helvetica,Arial,sans-serif; - text-shadow: 0px 1px 1px rgba(255, 255, 255, 0.9); - text-decoration: none; + color: var(--nav-text-normal-color); + font-family: var(--font-family-nav); + text-shadow: var(--nav-text-normal-shadow); + text-decoration: none; } .navpath li.navelem a:hover { - color:#6884BD; + color: var(--nav-text-hover-color); + text-shadow: var(--nav-text-hover-shadow); } .navpath li.footer @@ -1066,7 +1448,7 @@ table.fieldtable { background-image:none; background-repeat:no-repeat; background-position:right; - color:#364D7C; + color: var(--footer-foreground-color); font-size: 8pt; } @@ -1078,7 +1460,7 @@ div.summary padding-right: 5px; width: 50%; text-align: right; -} +} div.summary a { @@ -1093,7 +1475,7 @@ table.classindex margin-right: 3%; width: 94%; border: 0; - border-spacing: 0; + border-spacing: 0; padding: 0; } @@ -1111,11 +1493,11 @@ div.ingroups a div.header { - background-image:url('nav_h.png'); + background-image: var(--header-gradient-image); background-repeat:repeat-x; - background-color: #F9FAFC; + background-color: var(--header-background-color); margin: 0px; - border-bottom: 1px solid #C4CFE5; + border-bottom: 1px solid var(--header-separator-color); } div.headertitle @@ -1138,11 +1520,6 @@ dl.section { padding-left: 0px; } -dl.section.DocNodeRTL { - margin-right: 0px; - padding-right: 0px; -} - dl.note { margin-left: -7px; padding-left: 3px; @@ -1150,16 +1527,6 @@ dl.note { border-color: #D0C000; } -dl.note.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #D0C000; -} - dl.warning, dl.attention { margin-left: -7px; padding-left: 3px; @@ -1167,16 +1534,6 @@ dl.warning, dl.attention { border-color: #FF0000; } -dl.warning.DocNodeRTL, dl.attention.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #FF0000; -} - dl.pre, dl.post, dl.invariant { margin-left: -7px; padding-left: 3px; @@ -1184,16 +1541,6 @@ dl.pre, dl.post, dl.invariant { border-color: #00D000; } -dl.pre.DocNodeRTL, dl.post.DocNodeRTL, dl.invariant.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #00D000; -} - dl.deprecated { margin-left: -7px; padding-left: 3px; @@ -1201,16 +1548,6 @@ dl.deprecated { border-color: #505050; } -dl.deprecated.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #505050; -} - dl.todo { margin-left: -7px; padding-left: 3px; @@ -1218,16 +1555,6 @@ dl.todo { border-color: #00C0E0; } -dl.todo.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #00C0E0; -} - dl.test { margin-left: -7px; padding-left: 3px; @@ -1235,16 +1562,6 @@ dl.test { border-color: #3030E0; } -dl.test.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #3030E0; -} - dl.bug { margin-left: -7px; padding-left: 3px; @@ -1252,21 +1569,16 @@ dl.bug { border-color: #C08050; } -dl.bug.DocNodeRTL { - margin-left: 0; - padding-left: 0; - border-left: 0; - margin-right: -7px; - padding-right: 3px; - border-right: 4px solid; - border-color: #C08050; -} - dl.section dd { margin-bottom: 6px; } +#projectrow +{ + height: 56px; +} + #projectlogo { text-align: center; @@ -1282,25 +1594,29 @@ dl.section dd { #projectalign { vertical-align: middle; + padding-left: 0.5em; } #projectname { - font: 300% Tahoma, Arial,sans-serif; + font-size: 200%; + font-family: var(--font-family-title); margin: 0px; padding: 2px 0px; } - + #projectbrief { - font: 120% Tahoma, Arial,sans-serif; + font-size: 90%; + font-family: var(--font-family-title); margin: 0px; padding: 0px; } #projectnumber { - font: 50% Tahoma, Arial,sans-serif; + font-size: 50%; + font-family: 50% var(--font-family-title); margin: 0px; padding: 0px; } @@ -1310,7 +1626,8 @@ dl.section dd { padding: 0px; margin: 0px; width: 100%; - border-bottom: 1px solid #5373B4; + border-bottom: 1px solid var(--title-separator-color); + background-color: var(--title-background-color); } .image @@ -1343,32 +1660,29 @@ dl.section dd { font-weight: bold; } -div.zoom -{ - border: 1px solid #90A5CE; -} - dl.citelist { margin-bottom:50px; } dl.citelist dt { - color:#334975; + color:var(--citation-label-color); float:left; font-weight:bold; margin-right:10px; padding:5px; + text-align:right; + width:52px; } dl.citelist dd { - margin:2px 0; + margin:2px 0 2px 72px; padding:5px 0; } div.toc { padding: 14px 25px; - background-color: #F4F6FA; - border: 1px solid #D8DFEE; + background-color: var(--toc-background-color); + border: 1px solid var(--toc-border-color); border-radius: 7px 7px 7px 7px; float: right; height: auto; @@ -1376,28 +1690,17 @@ div.toc { width: 200px; } -.PageDocRTL-title div.toc { - float: left !important; - text-align: right; -} - div.toc li { - background: url("bdwn.png") no-repeat scroll 0 5px transparent; - font: 10px/1.2 Verdana,DejaVu Sans,Geneva,sans-serif; + background: var(--toc-down-arrow-image) no-repeat scroll 0 5px transparent; + font: 10px/1.2 var(--font-family-toc); margin-top: 5px; padding-left: 10px; padding-top: 2px; } -.PageDocRTL-title div.toc li { - background-position-x: right !important; - padding-left: 0 !important; - padding-right: 10px; -} - div.toc h3 { - font: bold 12px/1.2 Arial,FreeSans,sans-serif; - color: #4665A2; + font: bold 12px/1.2 var(--font-family-toc); + color: var(--toc-header-color); border-bottom: 0 none; margin: 0; } @@ -1406,7 +1709,7 @@ div.toc ul { list-style: none outside none; border: medium none; padding: 0px; -} +} div.toc li.level1 { margin-left: 0px; @@ -1417,36 +1720,26 @@ div.toc li.level2 { } div.toc li.level3 { - margin-left: 30px; + margin-left: 15px; } div.toc li.level4 { - margin-left: 45px; + margin-left: 15px; } -.PageDocRTL-title div.toc li.level1 { - margin-left: 0 !important; - margin-right: 0; +span.emoji { + /* font family used at the site: https://unicode.org/emoji/charts/full-emoji-list.html + * font-family: "Noto Color Emoji", "Apple Color Emoji", "Segoe UI Emoji", Times, Symbola, Aegyptus, Code2000, Code2001, Code2002, Musica, serif, LastResort; + */ } -.PageDocRTL-title div.toc li.level2 { - margin-left: 0 !important; - margin-right: 15px; -} - -.PageDocRTL-title div.toc li.level3 { - margin-left: 0 !important; - margin-right: 30px; -} - -.PageDocRTL-title div.toc li.level4 { - margin-left: 0 !important; - margin-right: 45px; +span.obfuscator { + display: none; } .inherit_header { font-weight: bold; - color: gray; + color: var(--inherit-header-color); cursor: pointer; -webkit-touch-callout: none; -webkit-user-select: none; @@ -1478,11 +1771,12 @@ tr.heading h2 { #powerTip { cursor: default; - white-space: nowrap; - background-color: white; - border: 1px solid gray; + /*white-space: nowrap;*/ + color: var(--tooltip-foreground-color); + background-color: var(--tooltip-background-color); + border: 1px solid var(--tooltip-border-color); border-radius: 4px 4px 4px 4px; - box-shadow: 1px 1px 7px gray; + box-shadow: var(--tooltip-shadow); display: none; font-size: smaller; max-width: 80%; @@ -1493,7 +1787,7 @@ tr.heading h2 { } #powerTip div.ttdoc { - color: grey; + color: var(--tooltip-doc-color); font-style: italic; } @@ -1501,18 +1795,24 @@ tr.heading h2 { font-weight: bold; } +#powerTip a { + color: var(--tooltip-link-color); +} + #powerTip div.ttname { font-weight: bold; } #powerTip div.ttdeci { - color: #006318; + color: var(--tooltip-declaration-color); } #powerTip div { margin: 0px; padding: 0px; - font: 12px/16px Roboto,sans-serif; + font-size: 12px; + font-family: var(--font-family-tooltip); + line-height: 16px; } #powerTip:before, #powerTip:after { @@ -1557,12 +1857,12 @@ tr.heading h2 { } #powerTip.n:after, #powerTip.ne:after, #powerTip.nw:after { - border-top-color: #FFFFFF; + border-top-color: var(--tooltip-background-color); border-width: 10px; margin: 0px -10px; } -#powerTip.n:before { - border-top-color: #808080; +#powerTip.n:before, #powerTip.ne:before, #powerTip.nw:before { + border-top-color: var(--tooltip-border-color); border-width: 11px; margin: 0px -11px; } @@ -1585,13 +1885,13 @@ tr.heading h2 { } #powerTip.s:after, #powerTip.se:after, #powerTip.sw:after { - border-bottom-color: #FFFFFF; + border-bottom-color: var(--tooltip-background-color); border-width: 10px; margin: 0px -10px; } #powerTip.s:before, #powerTip.se:before, #powerTip.sw:before { - border-bottom-color: #808080; + border-bottom-color: var(--tooltip-border-color); border-width: 11px; margin: 0px -11px; } @@ -1612,13 +1912,13 @@ tr.heading h2 { left: 100%; } #powerTip.e:after { - border-left-color: #FFFFFF; + border-left-color: var(--tooltip-border-color); border-width: 10px; top: 50%; margin-top: -10px; } #powerTip.e:before { - border-left-color: #808080; + border-left-color: var(--tooltip-border-color); border-width: 11px; top: 50%; margin-top: -11px; @@ -1628,13 +1928,13 @@ tr.heading h2 { right: 100%; } #powerTip.w:after { - border-right-color: #FFFFFF; + border-right-color: var(--tooltip-border-color); border-width: 10px; top: 50%; margin-top: -10px; } #powerTip.w:before { - border-right-color: #808080; + border-right-color: var(--tooltip-border-color); border-width: 11px; top: 50%; margin-top: -11px; @@ -1661,7 +1961,6 @@ tr.heading h2 { /* @group Markdown */ -/* table.markdownTable { border-collapse:collapse; margin-top: 4px; @@ -1669,47 +1968,7 @@ table.markdownTable { } table.markdownTable td, table.markdownTable th { - border: 1px solid #2D4068; - padding: 3px 7px 2px; -} - -table.markdownTableHead tr { -} - -table.markdownTableBodyLeft td, table.markdownTable th { - border: 1px solid #2D4068; - padding: 3px 7px 2px; -} - -th.markdownTableHeadLeft th.markdownTableHeadRight th.markdownTableHeadCenter th.markdownTableHeadNone { - background-color: #374F7F; - color: #FFFFFF; - font-size: 110%; - padding-bottom: 4px; - padding-top: 5px; -} - -th.markdownTableHeadLeft { - text-align: left -} - -th.markdownTableHeadRight { - text-align: right -} - -th.markdownTableHeadCenter { - text-align: center -} -*/ - -table.markdownTable { - border-collapse:collapse; - margin-top: 4px; - margin-bottom: 4px; -} - -table.markdownTable td, table.markdownTable th { - border: 1px solid #2D4068; + border: 1px solid var(--table-cell-border-color); padding: 3px 7px 2px; } @@ -1717,8 +1976,8 @@ table.markdownTable tr { } th.markdownTableHeadLeft, th.markdownTableHeadRight, th.markdownTableHeadCenter, th.markdownTableHeadNone { - background-color: #374F7F; - color: #FFFFFF; + background-color: var(--table-header-background-color); + color: var(--table-header-foreground-color); font-size: 110%; padding-bottom: 4px; padding-top: 5px; @@ -1736,32 +1995,9 @@ th.markdownTableHeadCenter, td.markdownTableBodyCenter { text-align: center } -.DocNodeRTL { - text-align: right; - direction: rtl; -} - -.DocNodeLTR { - text-align: left; - direction: ltr; -} - -table.DocNodeRTL { - width: auto; - margin-right: 0; - margin-left: auto; -} - -table.DocNodeLTR { - width: auto; - margin-right: auto; - margin-left: 0; -} - tt, code, kbd, samp { display: inline-block; - direction:ltr; } /* @end */ @@ -1769,3 +2005,41 @@ u { text-decoration: underline; } +details>summary { + list-style-type: none; +} + +details > summary::-webkit-details-marker { + display: none; +} + +details>summary::before { + content: "\25ba"; + padding-right:4px; + font-size: 80%; +} + +details[open]>summary::before { + content: "\25bc"; + padding-right:4px; + font-size: 80%; +} + +body { + scrollbar-color: var(--scrollbar-thumb-color) var(--scrollbar-background-color); +} + +::-webkit-scrollbar { + background-color: var(--scrollbar-background-color); + height: 12px; + width: 12px; +} +::-webkit-scrollbar-thumb { + border-radius: 6px; + box-shadow: inset 0 0 12px 12px var(--scrollbar-thumb-color); + border: solid 2px transparent; +} +::-webkit-scrollbar-corner { + background-color: var(--scrollbar-background-color); +} + diff --git a/doc/html/doxygen.png b/doc/html/doxygen.png deleted file mode 100644 index 3ff17d8..0000000 Binary files a/doc/html/doxygen.png and /dev/null differ diff --git a/doc/html/dynsections.js b/doc/html/dynsections.js index c8e84aa..9b28156 100644 --- a/doc/html/dynsections.js +++ b/doc/html/dynsections.js @@ -1,25 +1,26 @@ /* - @licstart The following is the entire license notice for the - JavaScript code in this file. + @licstart The following is the entire license notice for the JavaScript code in this file. - Copyright (C) 1997-2017 by Dimitri van Heesch + The MIT License (MIT) - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. + Copyright (C) 1997-2020 by Dimitri van Heesch - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. + Permission is hereby granted, free of charge, to any person obtaining a copy of this software + and associated documentation files (the "Software"), to deal in the Software without restriction, + including without limitation the rights to use, copy, modify, merge, publish, distribute, + sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: - You should have received a copy of the GNU General Public License along - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + The above copyright notice and this permission notice shall be included in all copies or + substantial portions of the Software. - @licend The above is the entire license notice - for the JavaScript code in this file + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING + BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, + DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + @licend The above is the entire license notice for the JavaScript code in this file */ function toggleVisibility(linkObj) { @@ -46,6 +47,8 @@ function updateStripes() { $('table.directory tr'). removeClass('even').filter(':visible:even').addClass('even'); + $('table.directory tr'). + removeClass('odd').filter(':visible:odd').addClass('odd'); } function toggleLevel(level) @@ -117,11 +120,80 @@ function toggleInherit(id) $(img).attr('src',src.substring(0,src.length-10)+'open.png'); } } -/* @license-end */ +var opened=true; +// in case HTML_COLORSTYLE is LIGHT or DARK the vars will be replaced, so we write them out explicitly and use double quotes +var plusImg = [ "var(--fold-plus-image)", "var(--fold-plus-image-relpath)" ]; +var minusImg = [ "var(--fold-minus-image)", "var(--fold-minus-image-relpath)" ]; + +// toggle all folding blocks +function codefold_toggle_all(relPath) { + if (opened) { + $('#fold_all').css('background-image',plusImg[relPath]); + $('div[id^=foldopen]').hide(); + $('div[id^=foldclosed]').show(); + } else { + $('#fold_all').css('background-image',minusImg[relPath]); + $('div[id^=foldopen]').show(); + $('div[id^=foldclosed]').hide(); + } + opened=!opened; +} + +// toggle single folding block +function codefold_toggle(id) { + $('#foldopen'+id).toggle(); + $('#foldclosed'+id).toggle(); +} +function init_codefold(relPath) { + $('span[class=lineno]').css( + {'padding-right':'4px', + 'margin-right':'2px', + 'display':'inline-block', + 'width':'54px', + 'background':'linear-gradient(var(--fold-line-color),var(--fold-line-color)) no-repeat 46px/2px 100%' + }); + // add global toggle to first line + $('span[class=lineno]:first').append(''); + // add vertical lines to other rows + $('span[class=lineno]').not(':eq(0)').append(''); + // add toggle controls to lines with fold divs + $('div[class=foldopen]').each(function() { + // extract specific id to use + var id = $(this).attr('id').replace('foldopen',''); + // extract start and end foldable fragment attributes + var start = $(this).attr('data-start'); + var end = $(this).attr('data-end'); + // replace normal fold span with controls for the first line of a foldable fragment + $(this).find('span[class=fold]:first').replaceWith(''); + // append div for folded (closed) representation + $(this).after(''); + // extract the first line from the "open" section to represent closed content + var line = $(this).children().first().clone(); + // remove any glow that might still be active on the original line + $(line).removeClass('glow'); + if (start) { + // if line already ends with a start marker (e.g. trailing {), remove it + $(line).html($(line).html().replace(new RegExp('\\s*'+start+'\\s*$','g'),'')); + } + // replace minus with plus symbol + $(line).find('span[class=fold]').css('background-image',plusImg[relPath]); + // append ellipsis + $(line).append(' '+start+'…'+end); + // insert constructed line into closed div + $('#foldclosed'+id).html(line); + }); +} + +/* @license-end */ $(document).ready(function() { $('.code,.codeRef').each(function() { $(this).data('powertip',$('#a'+$(this).attr('href').replace(/.*\//,'').replace(/[^a-z_A-Z0-9]/g,'_')).html()); + $.fn.powerTip.smartPlacementLists.s = [ 's', 'n', 'ne', 'se' ]; $(this).powerTip({ placement: 's', smartPlacement: true, mouseOnToPopup: true }); }); }); diff --git a/doc/html/fermi-edge-analysis_8ipf.html b/doc/html/fermi-edge-analysis_8ipf.html index 8fd4166..2d792c1 100644 --- a/doc/html/fermi-edge-analysis_8ipf.html +++ b/doc/html/fermi-edge-analysis_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: fermi-edge-analysis.ipf File Reference @@ -23,10 +23,9 @@
- - + @@ -35,21 +34,22 @@
-
PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
+
PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
Igor procedures for the analysis of PEARL data
- + +/* @license-end */ +
@@ -63,7 +63,7 @@ $(function() {
@@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('fermi-edge-analysis_8ipf.html',''); in
- +
+
+
+
+
Loading...
+
Searching...
+
No Matches
+
+
+
Functions | Variables
-
-
fermi-edge-analysis.ipf File Reference
ARPES package
+
fermi-edge-analysis.ipf File Reference
ARPES package
@@ -97,36 +103,36 @@ $(document).ready(function(){initNavTree('fermi-edge-analysis_8ipf.html',''); in

Go to the source code of this file.

- - + - + - + - + - + - + - +

+

Functions

variable analyse_curved_edge (wave data)
variable analyse_curved_edge (wave data)
 
variable record_results (variable index)
variable record_results (variable index)
 
variable integrate_curved_edge (wave data, wave data_sig)
variable integrate_curved_edge (wave data, wave data_sig)
 
variable slit_correction (wave data, wave data_out, variable epass)
variable slit_correction (wave data, wave data_out, variable epass)
 
threadsafe variable FermiFuncLinDOS2D_corr (variable w, threadsafe x, wave y)
threadsafe variable FermiFuncLinDOS2D_corr (variable w, threadsafe x, wave y)
 
threadsafe variable slit_shift (variable ypix, variable epass)
threadsafe variable slit_shift (variable ypix, variable epass)
 
variable show_shift (wave data)
variable show_shift (wave data)
 
- - - + + - - + + - - + + - - + +

+

Variables

static const variable mcp_radius_pix = 555
 MCP radius seen by the camera in pixels. More...
static const variable mcp_radius_pix = 555
 MCP radius seen by the camera in pixels.
 
static const variable mcp_radius_mm = 20
 physical size (radius) of the MCP in mm More...
static const variable mcp_radius_mm = 20
 physical size (radius) of the MCP in mm
 
static const variable hemi_radius_mm = 200
 physical size (radius) of the hemisphere in mm More...
static const variable hemi_radius_mm = 200
 physical size (radius) of the hemisphere in mm
 
static const variable mcp_radius_epass = 0.04
 energy range imaged on MCP relative to the pass energy More...
static const variable mcp_radius_epass = 0.04
 energy range imaged on MCP relative to the pass energy
 

Detailed Description

@@ -138,7 +144,7 @@ Variables
  • calculate corrected energy coordinates and map to single independent variable
  • fit normal fermi function
    • -
    Author
    matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
    +
    Author
    matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
    thomas dienel
    Copyright
    2013-15 Paul Scherrer Institut
    @@ -148,8 +154,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

    Definition in file fermi-edge-analysis.ipf.

    Function Documentation

    - -

    ◆ analyse_curved_edge()

    + +

    ◆ analyse_curved_edge()

    @@ -168,8 +174,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ FermiFuncLinDOS2D_corr()

    + +

    ◆ FermiFuncLinDOS2D_corr()

    @@ -204,8 +210,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ integrate_curved_edge()

    + +

    ◆ integrate_curved_edge()

    @@ -234,8 +240,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ record_results()

    + +

    ◆ record_results()

    @@ -254,8 +260,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ show_shift()

    + +

    ◆ show_shift()

    @@ -274,8 +280,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ slit_correction()

    + +

    ◆ slit_correction()

    @@ -310,8 +316,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ slit_shift()

    + +

    ◆ slit_shift()

    @@ -341,8 +347,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

    Variable Documentation

    - -

    ◆ hemi_radius_mm

    + +

    ◆ hemi_radius_mm

    @@ -367,8 +373,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ mcp_radius_epass

    + +

    ◆ mcp_radius_epass

    @@ -393,8 +399,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ mcp_radius_mm

    + +

    ◆ mcp_radius_mm

    @@ -419,8 +425,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
    - -

    ◆ mcp_radius_pix

    + +

    ◆ mcp_radius_pix

    @@ -451,9 +457,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
    diff --git a/doc/html/fermi-edge-analysis_8ipf_source.html b/doc/html/fermi-edge-analysis_8ipf_source.html index 0b5aebd..cd3e312 100644 --- a/doc/html/fermi-edge-analysis_8ipf_source.html +++ b/doc/html/fermi-edge-analysis_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: fermi-edge-analysis.ipf Source File @@ -23,10 +23,9 @@
    - - + @@ -35,22 +34,28 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ + +
    @@ -77,315 +82,333 @@ $(document).ready(function(){initNavTree('fermi-edge-analysis_8ipf_source.html',
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    fermi-edge-analysis.ipf
    +
    fermi-edge-analysis.ipf
    -Go to the documentation of this file.
    1 #pragma TextEncoding = "UTF-8"
    -
    2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
    -
    3 #include "pearl-area-profiles"
    -
    4 
    -
    5 // $Id$
    -
    6 
    -
    26 
    -
    27 
    -
    28 function analyse_curved_edge(data)
    -
    29  wave data // 2D counts data, x-scale = kinetic energy, y-scale = analyser angle
    -
    30  variable guess_EF // initial guess of the Fermi level
    -
    31 
    -
    32  dfref savedf = GetDataFolderDFR()
    -
    33  dfref datadf = GetWavesDataFolderDFR(data)
    -
    34  setdatafolder datadf
    -
    35 
    -
    36  make /n=5 /d /o w_coef_int
    -
    37  make /n=7 /d /o w_coef_curved
    -
    38 
    -
    39  // 1) integrate data
    -
    40  wave xint = ad_profile_x(data, -inf, inf, "", noavg=1)
    -
    41  duplicate /free xint, xint_sig
    -
    42  xint_sig = sqrt(xint * 4) / 4
    -
    43  variable xmin = wavemin(xint)
    -
    44  variable xmax = wavemax(xint)
    -
    45  variable xmean = mean(xint)
    -
    46 
    -
    47  // 2) fit integrated data for reference
    -
    48  w_coef_int[0] = xmin
    -
    49  w_coef_int[1] = 0
    -
    50  w_coef_int[2] = xmax - xmin
    -
    51  w_coef_int[3] = dimoffset(xint, 0) + dimdelta(xint, 0) * dimsize(xint, 0) / 2
    -
    52  w_coef_int[4] = 100
    -
    53  FuncFit /NTHR=0 FermiFuncLinDOS w_coef_int xint /D /I=1 /W=xint_sig
    -
    54  wave w_sigma
    -
    55  duplicate /o w_sigma, w_sigma_int
    -
    56 
    -
    57  // 3) normalize data
    -
    58  wave yavg = ad_profile_y(data, -inf, inf, "")
    -
    59  variable ymean = mean(yavg)
    -
    60 
    -
    61  duplicate /o data, data_norm, data_sig
    -
    62  data_sig = sqrt(data * 4) / 4
    -
    63  data_norm = data_norm * ymean / yavg[q]
    -
    64  data_sig = data_sig * ymean / yavg[q]
    -
    65 
    -
    66  // 4) fit normalized data
    -
    67  wave xavg = ad_profile_x(data, -inf, inf, "")
    -
    68  xmin = wavemin(xavg)
    -
    69  xmax = wavemax(xavg)
    -
    70  xmean = mean(xavg)
    -
    71 
    -
    72  w_coef_curved[0] = {0, 0, 1, 95.5, 100, 0, -0.0001}
    -
    73  w_coef_curved[0] = xmin
    -
    74  w_coef_curved[2] = xmax - xmin
    -
    75  w_coef_curved[3] = w_coef_int[3]
    -
    76  w_coef_curved[4] = w_coef_int[4]
    -
    77 
    -
    78  //variable box = min(11, numpnts(xavg) / 5)
    -
    79  //FindLevel /B=(box) /EDGE=2 /Q xavg, (xmin + xmax) / 2
    -
    80  //if (v_flag == 0)
    -
    81  // w_coef_curved[3] = v_levelx
    -
    82  //else
    -
    83  // w_coef_curved[3] = dimoffset(data, 0) + dimdelta(data, 0) * dimsize(data, 0) / 2
    -
    84  //endif
    -
    85 
    -
    86  duplicate /o data_norm, fit_data_norm
    -
    87  FuncFitMD /X=1 /NTHR=0 FermiFuncLinDOS_2Dcorr w_coef_curved data_norm /D=fit_data_norm /I=1 /W=data_sig
    -
    88  wave w_sigma
    -
    89  duplicate /o w_sigma, w_sigma_curved
    -
    90 
    -
    91  display /k=1; appendimage data_norm
    -
    92  ModifyImage data_norm ctab= {xmin,xmax,Grays,0}
    -
    93  AppendMatrixContour fit_data_norm
    -
    94 
    -
    95  setdatafolder savedf
    -
    96  return 0
    -
    97 end
    -
    98 
    -
    99 function record_results(index)
    -
    100  variable index
    -
    101 
    -
    102  dfref savedf = GetDataFolderDFR()
    -
    103  wave /sdfr=root: Tint, Tint_sig, Tcurv, Tcurv_sig, EFcurv, EFcurv_sig
    -
    104  wave w_coef_int, w_coef_curved
    -
    105  wave w_sigma_int, w_sigma_curved
    -
    106 
    -
    107  Tint[index] = w_coef_int[4]
    -
    108  Tint_sig[index] = w_sigma_int[4]
    -
    109  Tcurv[index] = w_coef_curved[4]
    -
    110  Tcurv_sig[index] = w_sigma_curved[4]
    -
    111  EFcurv[index] = w_coef_curved[3]
    -
    112  EFcurv_sig[index] = w_sigma_curved[3]
    -
    113 
    -
    114  setdatafolder savedf
    -
    115 end
    -
    116 
    -
    117 function integrate_curved_edge(data, data_sig)
    -
    118  wave data
    -
    119  wave /z data_sig
    -
    120  //wave coef
    -
    121 
    -
    122  string name = nameofwave(data)
    -
    123 
    -
    124  duplicate /o data, data_out
    -
    125  redimension /n=(dimsize(data,0)) data_out
    -
    126  data_out = 0
    -
    127 
    -
    128  if (waveexists(data_sig))
    -
    129  duplicate /o data_sig, sig_out
    -
    130  redimension /n=(dimsize(data,0)) sig_out
    -
    131  sig_out = 0
    -
    132  endif
    -
    133 
    -
    134  wave ywgt = ad_profile_y(data, -inf, inf, "", noavg=1)
    -
    135  ywgt = 1 / ywgt / 4
    -
    136  //ywgt = 1 / 4
    -
    137  variable sum_ywgt = sum(ywgt)
    -
    138 
    -
    139  variable nx = dimsize(data, 0)
    -
    140  variable ny = dimsize(data, 1)
    -
    141  variable iy
    -
    142  variable yy
    -
    143  variable dx
    -
    144  variable dy
    -
    145  variable dp
    -
    146  variable dp_min = 0
    -
    147 
    -
    148  wave PassEnergy = :attr:PassEnergy
    -
    149  wave NumSlices = :attr:NumSlices
    -
    150 
    -
    151  for (iy = 0; iy < ny; iy += 1)
    -
    152  dy = dimoffset(data, 1) + dimdelta(data, 1) * iy
    -
    153  dy = dy / dimdelta(data, 1)
    -
    154  dx = slit_shift(dy * 902 / NumSlices[0], PassEnergy[0])
    -
    155  dp = round(dx / dimdelta(data, 0)) // <= 0
    -
    156  dp_min = min(dp_min, dp)
    -
    157 
    -
    158  data_out[] = p+dp >= 0 ? data_out + data[p+dp][iy] * ywgt[iy] : data_out
    -
    159 
    -
    160  if (waveexists(data_sig))
    -
    161  sig_out = p+dp >= 0 ? sig_out + data_sig[p+dp][iy] * ywgt[iy] : sig_out
    -
    162  endif
    -
    163  endfor
    -
    164 
    -
    165  data_out /= sum_ywgt
    -
    166  data_out[0, -dp_min][] = nan
    -
    167 
    -
    168  if (waveexists(sig_out))
    -
    169  sig_out /= sum_ywgt
    -
    170  //sig_out[0, -dp_min] = nan
    -
    171  endif
    -
    172 end
    -
    173 
    -
    174 function slit_correction(data, data_out, epass)
    -
    175  wave data // must be image with original dimensions (no cropping!)
    -
    176  wave /z data_out // 2D or 1D wave to receive the result
    -
    177  // X dimension must be identical to the one of data
    -
    178  // if 2D, Y dimension must be either identical to the one of data
    -
    179  // if 1D, the result will be the sum of the corrected slices
    -
    180  variable epass // pass energy
    -
    181 
    -
    182  if (!WaveExists(data_out))
    -
    183  string name = nameofwave(data) + "_corr"
    -
    184  duplicate /o data, $name
    -
    185  wave data_out = $name
    -
    186  //redimension /n=(dimsize(data,0)) data_out
    -
    187  endif
    -
    188  data_out = 0
    -
    189 
    -
    190  variable nx = dimsize(data, 0)
    -
    191  variable ny = dimsize(data, 1)
    -
    192  variable iy
    -
    193  variable yy
    -
    194  variable dx
    -
    195  variable dy
    -
    196  variable dp
    -
    197  variable dp_min = 0
    -
    198 
    -
    199  for (iy = 0; iy < ny; iy += 1)
    -
    200  dy = dimoffset(data, 1) + dimdelta(data, 1) * iy
    -
    201  dy = dy / dimdelta(data, 1)
    -
    202  dx = slit_shift(dy * 902 / ny, epass)
    -
    203  dp = round(dx / dimdelta(data, 0)) // <= 0
    -
    204  dp_min = min(dp_min, dp)
    -
    205 
    -
    206  if (wavedims(data_out) >= 2)
    -
    207  data_out[][iy] = p+dp >= 0 ? data_out + data[p+dp][iy] : data_out
    -
    208  else
    -
    209  data_out = p+dp >= 0 ? data_out + data[p+dp][iy] : data_out
    -
    210  endif
    -
    211  endfor
    -
    212 
    -
    213  data_out[0, -dp_min][] = nan
    -
    214 end
    -
    215 
    -
    216 //------------------------------------------------------------------------------
    -
    217 threadsafe Function FermiFuncLinDOS2D_corr(w,x,y) : FitFunc
    -
    218 // linear density of states below Fermi level
    -
    219 // 2D data with corrections:
    -
    220 // - straight slit (slit shift)
    -
    221 // - transmission function (polynomial)
    -
    222 //------------------------------------------------------------------------------
    -
    223  Wave w; Variable x; variable y
    -
    224  // w[0] = background far above the fermi level
    -
    225  // w[1] = slope of the linear background
    -
    226  // w[2] = amplitude
    -
    227  // w[3] = fermi level in eV
    -
    228  // w[4] = temperature in K
    -
    229  // w[5] = transmission - linear term
    -
    230  // w[6] = transmission - quadratic term
    -
    231  // w[7] = transmission - cubic term
    -
    232  // w[8] = pass energy (hold this value)
    -
    233  // w[9] = y scale: pixels / unit of y
    -
    234 
    -
    235  variable pos = w[3] + slit_shift(y * w[9], w[8])
    -
    236  variable transm = 1 + w[5] * y + w[6] * y^2 + w[7] * y^3
    -
    237  variable fermi = (w[1] * min(x - pos, 0) + w[2]) / ( exp( (x - pos) / (kBoltzmann * w[4]) ) + 1.0 )
    -
    238  return transm * (fermi + w[0])
    -
    239 end
    -
    240 
    -
    241 //------------------------------------------------------------------------------
    -
    242 threadsafe Function FermiFuncLinDOS_2Dcorr_old(w,x,y) : FitFunc
    -
    243 // linear density of states below Fermi level
    -
    244 // 2D data with a polynomial shift of the Fermi level in the second dimension
    -
    245 //------------------------------------------------------------------------------
    -
    246  Wave w; Variable x; variable y
    -
    247  // w[0] = background far above the fermi level
    -
    248  // w[1] = slope of the linear background
    -
    249  // w[2] = amplitude
    -
    250  // w[3] = fermi level in eV
    -
    251  // w[4] = temperature in K
    -
    252  // w[5] = shift - linear term
    -
    253  // w[6] = shift - quadratic term
    -
    254 
    -
    255  variable pos = w[3] + w[5] * y + w[6] * y^2
    -
    256  return w[0] + (w[1] * min(x - pos, 0) + w[2]) / ( exp( (x - pos) / (kBoltzmann * w[4]) ) + 1.0 )
    -
    257 end
    -
    258 
    -
    260 static constant mcp_radius_pix = 555
    -
    262 static constant mcp_radius_mm = 20
    -
    264 static constant hemi_radius_mm = 200
    -
    266 static constant mcp_radius_epass = 0.04
    -
    267 
    -
    268 threadsafe function slit_shift(ypix, epass)
    -
    269  // calculates the energy shift due to straight slit
    -
    270  // the radius of the curve is 1/2 of the hemisphere radius
    -
    271  variable ypix // vertical (angle/position) pixels distance from center
    -
    272  // = slice coordinate * 902 / number of slices
    -
    273  variable epass // pass energy
    -
    274 
    -
    275  variable rpix = mcp_radius_pix * hemi_radius_mm / mcp_radius_mm
    -
    276  //variable rpix = mcp_radius_pix * hemi_radius_mm / 2 / mcp_radius_mm
    -
    277  variable rene = epass * mcp_radius_epass * hemi_radius_mm / 2 / mcp_radius_mm
    -
    278 
    -
    279  variable isin = asin(ypix / rpix)
    -
    280  variable dene = rene * (cos(isin) - 1)
    -
    281 
    -
    282  return dene
    -
    283 end
    -
    284 
    -
    285 function show_shift(data)
    -
    286  wave data
    -
    287  variable epass
    -
    288 
    -
    289  variable ny = dimsize(data, 1)
    -
    290  make /o /n=(ny) shift_x
    -
    291  setscale /i x -ny/2, ny/2, "", shift_x
    -
    292  wave PassEnergy = :attr:PassEnergy
    -
    293  wave NumSlices = :attr:NumSlices
    -
    294 
    -
    295  shift_x = slit_shift(x * 902 / NumSlices[0], PassEnergy[0])
    -
    296 
    -
    297  variable ecenter = dimoffset(data, 0) + dimdelta(data, 0) * dimsize(data, 0) / 2
    -
    298  shift_x += ecenter
    -
    299 end
    -
    300 
    +Go to the documentation of this file.
    1#pragma TextEncoding = "UTF-8"
    +
    2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
    +
    3#include "pearl-area-profiles"
    +
    4
    +
    5// $Id$
    +
    6
    +
    26
    +
    27
    +
    +
    28function analyse_curved_edge(data)
    +
    29 wave data // 2D counts data, x-scale = kinetic energy, y-scale = analyser angle
    +
    30 variable guess_EF // initial guess of the Fermi level
    +
    31
    +
    32 dfref savedf = GetDataFolderDFR()
    +
    33 dfref datadf = GetWavesDataFolderDFR(data)
    +
    34 setdatafolder datadf
    +
    35
    +
    36 make /n=5 /d /o w_coef_int
    +
    37 make /n=7 /d /o w_coef_curved
    +
    38
    +
    39 // 1) integrate data
    +
    40 wave xint = ad_profile_x(data, -inf, inf, "", noavg=1)
    +
    41 duplicate /free xint, xint_sig
    +
    42 xint_sig = sqrt(xint * 4) / 4
    +
    43 variable xmin = wavemin(xint)
    +
    44 variable xmax = wavemax(xint)
    +
    45 variable xmean = mean(xint)
    +
    46
    +
    47 // 2) fit integrated data for reference
    +
    48 w_coef_int[0] = xmin
    +
    49 w_coef_int[1] = 0
    +
    50 w_coef_int[2] = xmax - xmin
    +
    51 w_coef_int[3] = dimoffset(xint, 0) + dimdelta(xint, 0) * dimsize(xint, 0) / 2
    +
    52 w_coef_int[4] = 100
    +
    53 FuncFit /NTHR=0 FermiFuncLinDOS w_coef_int xint /D /I=1 /W=xint_sig
    +
    54 wave w_sigma
    +
    55 duplicate /o w_sigma, w_sigma_int
    +
    56
    +
    57 // 3) normalize data
    +
    58 wave yavg = ad_profile_y(data, -inf, inf, "")
    +
    59 variable ymean = mean(yavg)
    +
    60
    +
    61 duplicate /o data, data_norm, data_sig
    +
    62 data_sig = sqrt(data * 4) / 4
    +
    63 data_norm = data_norm * ymean / yavg[q]
    +
    64 data_sig = data_sig * ymean / yavg[q]
    +
    65
    +
    66 // 4) fit normalized data
    +
    67 wave xavg = ad_profile_x(data, -inf, inf, "")
    +
    68 xmin = wavemin(xavg)
    +
    69 xmax = wavemax(xavg)
    +
    70 xmean = mean(xavg)
    +
    71
    +
    72 w_coef_curved[0] = {0, 0, 1, 95.5, 100, 0, -0.0001}
    +
    73 w_coef_curved[0] = xmin
    +
    74 w_coef_curved[2] = xmax - xmin
    +
    75 w_coef_curved[3] = w_coef_int[3]
    +
    76 w_coef_curved[4] = w_coef_int[4]
    +
    77
    +
    78 //variable box = min(11, numpnts(xavg) / 5)
    +
    79 //FindLevel /B=(box) /EDGE=2 /Q xavg, (xmin + xmax) / 2
    +
    80 //if (v_flag == 0)
    +
    81 // w_coef_curved[3] = v_levelx
    +
    82 //else
    +
    83 // w_coef_curved[3] = dimoffset(data, 0) + dimdelta(data, 0) * dimsize(data, 0) / 2
    +
    84 //endif
    +
    85
    +
    86 duplicate /o data_norm, fit_data_norm
    +
    87 FuncFitMD /X=1 /NTHR=0 FermiFuncLinDOS_2Dcorr w_coef_curved data_norm /D=fit_data_norm /I=1 /W=data_sig
    +
    88 wave w_sigma
    +
    89 duplicate /o w_sigma, w_sigma_curved
    +
    90
    +
    91 display /k=1; appendimage data_norm
    +
    92 ModifyImage data_norm ctab= {xmin,xmax,Grays,0}
    +
    93 AppendMatrixContour fit_data_norm
    +
    94
    +
    95 setdatafolder savedf
    +
    96 return 0
    +
    97end
    +
    +
    98
    +
    +
    99function record_results(index)
    +
    100 variable index
    +
    101
    +
    102 dfref savedf = GetDataFolderDFR()
    +
    103 wave /sdfr=root: Tint, Tint_sig, Tcurv, Tcurv_sig, EFcurv, EFcurv_sig
    +
    104 wave w_coef_int, w_coef_curved
    +
    105 wave w_sigma_int, w_sigma_curved
    +
    106
    +
    107 Tint[index] = w_coef_int[4]
    +
    108 Tint_sig[index] = w_sigma_int[4]
    +
    109 Tcurv[index] = w_coef_curved[4]
    +
    110 Tcurv_sig[index] = w_sigma_curved[4]
    +
    111 EFcurv[index] = w_coef_curved[3]
    +
    112 EFcurv_sig[index] = w_sigma_curved[3]
    +
    113
    +
    114 setdatafolder savedf
    +
    115end
    +
    +
    116
    +
    +
    117function integrate_curved_edge(data, data_sig)
    +
    118 wave data
    +
    119 wave /z data_sig
    +
    120 //wave coef
    +
    121
    +
    122 string name = nameofwave(data)
    +
    123
    +
    124 duplicate /o data, data_out
    +
    125 redimension /n=(dimsize(data,0)) data_out
    +
    126 data_out = 0
    +
    127
    +
    128 if (waveexists(data_sig))
    +
    129 duplicate /o data_sig, sig_out
    +
    130 redimension /n=(dimsize(data,0)) sig_out
    +
    131 sig_out = 0
    +
    132 endif
    +
    133
    +
    134 wave ywgt = ad_profile_y(data, -inf, inf, "", noavg=1)
    +
    135 ywgt = 1 / ywgt / 4
    +
    136 //ywgt = 1 / 4
    +
    137 variable sum_ywgt = sum(ywgt)
    +
    138
    +
    139 variable nx = dimsize(data, 0)
    +
    140 variable ny = dimsize(data, 1)
    +
    141 variable iy
    +
    142 variable yy
    +
    143 variable dx
    +
    144 variable dy
    +
    145 variable dp
    +
    146 variable dp_min = 0
    +
    147
    +
    148 wave PassEnergy = :attr:PassEnergy
    +
    149 wave NumSlices = :attr:NumSlices
    +
    150
    +
    151 for (iy = 0; iy < ny; iy += 1)
    +
    152 dy = dimoffset(data, 1) + dimdelta(data, 1) * iy
    +
    153 dy = dy / dimdelta(data, 1)
    +
    154 dx = slit_shift(dy * 902 / NumSlices[0], PassEnergy[0])
    +
    155 dp = round(dx / dimdelta(data, 0)) // <= 0
    +
    156 dp_min = min(dp_min, dp)
    +
    157
    +
    158 data_out[] = p+dp >= 0 ? data_out + data[p+dp][iy] * ywgt[iy] : data_out
    +
    159
    +
    160 if (waveexists(data_sig))
    +
    161 sig_out = p+dp >= 0 ? sig_out + data_sig[p+dp][iy] * ywgt[iy] : sig_out
    +
    162 endif
    +
    163 endfor
    +
    164
    +
    165 data_out /= sum_ywgt
    +
    166 data_out[0, -dp_min][] = nan
    +
    167
    +
    168 if (waveexists(sig_out))
    +
    169 sig_out /= sum_ywgt
    +
    170 //sig_out[0, -dp_min] = nan
    +
    171 endif
    +
    172end
    +
    +
    173
    +
    +
    174function slit_correction(data, data_out, epass)
    +
    175 wave data // must be image with original dimensions (no cropping!)
    +
    176 wave /z data_out // 2D or 1D wave to receive the result
    +
    177 // X dimension must be identical to the one of data
    +
    178 // if 2D, Y dimension must be either identical to the one of data
    +
    179 // if 1D, the result will be the sum of the corrected slices
    +
    180 variable epass // pass energy
    +
    181
    +
    182 if (!WaveExists(data_out))
    +
    183 string name = nameofwave(data) + "_corr"
    +
    184 duplicate /o data, $name
    +
    185 wave data_out = $name
    +
    186 //redimension /n=(dimsize(data,0)) data_out
    +
    187 endif
    +
    188 data_out = 0
    +
    189
    +
    190 variable nx = dimsize(data, 0)
    +
    191 variable ny = dimsize(data, 1)
    +
    192 variable iy
    +
    193 variable yy
    +
    194 variable dx
    +
    195 variable dy
    +
    196 variable dp
    +
    197 variable dp_min = 0
    +
    198
    +
    199 for (iy = 0; iy < ny; iy += 1)
    +
    200 dy = dimoffset(data, 1) + dimdelta(data, 1) * iy
    +
    201 dy = dy / dimdelta(data, 1)
    +
    202 dx = slit_shift(dy * 902 / ny, epass)
    +
    203 dp = round(dx / dimdelta(data, 0)) // <= 0
    +
    204 dp_min = min(dp_min, dp)
    +
    205
    +
    206 if (wavedims(data_out) >= 2)
    +
    207 data_out[][iy] = p+dp >= 0 ? data_out + data[p+dp][iy] : data_out
    +
    208 else
    +
    209 data_out = p+dp >= 0 ? data_out + data[p+dp][iy] : data_out
    +
    210 endif
    +
    211 endfor
    +
    212
    +
    213 data_out[0, -dp_min][] = nan
    +
    214end
    +
    +
    215
    +
    216//------------------------------------------------------------------------------
    +
    +
    217threadsafe Function FermiFuncLinDOS2D_corr(w,x,y) : FitFunc
    +
    218// linear density of states below Fermi level
    +
    219// 2D data with corrections:
    +
    220// - straight slit (slit shift)
    +
    221// - transmission function (polynomial)
    +
    222//------------------------------------------------------------------------------
    +
    223 Wave w; Variable x; variable y
    +
    224 // w[0] = background far above the fermi level
    +
    225 // w[1] = slope of the linear background
    +
    226 // w[2] = amplitude
    +
    227 // w[3] = fermi level in eV
    +
    228 // w[4] = temperature in K
    +
    229 // w[5] = transmission - linear term
    +
    230 // w[6] = transmission - quadratic term
    +
    231 // w[7] = transmission - cubic term
    +
    232 // w[8] = pass energy (hold this value)
    +
    233 // w[9] = y scale: pixels / unit of y
    +
    234
    +
    235 variable pos = w[3] + slit_shift(y * w[9], w[8])
    +
    236 variable transm = 1 + w[5] * y + w[6] * y^2 + w[7] * y^3
    +
    237 variable fermi = (w[1] * min(x - pos, 0) + w[2]) / ( exp( (x - pos) / (kBoltzmann * w[4]) ) + 1.0 )
    +
    238 return transm * (fermi + w[0])
    +
    239end
    +
    240
    +
    241//------------------------------------------------------------------------------
    +
    242threadsafe Function FermiFuncLinDOS_2Dcorr_old(w,x,y) : FitFunc
    +
    243// linear density of states below Fermi level
    +
    244// 2D data with a polynomial shift of the Fermi level in the second dimension
    +
    245//------------------------------------------------------------------------------
    +
    246 Wave w; Variable x; variable y
    +
    247 // w[0] = background far above the fermi level
    +
    248 // w[1] = slope of the linear background
    +
    249 // w[2] = amplitude
    +
    250 // w[3] = fermi level in eV
    +
    251 // w[4] = temperature in K
    +
    252 // w[5] = shift - linear term
    +
    253 // w[6] = shift - quadratic term
    +
    254
    +
    255 variable pos = w[3] + w[5] * y + w[6] * y^2
    +
    256 return w[0] + (w[1] * min(x - pos, 0) + w[2]) / ( exp( (x - pos) / (kBoltzmann * w[4]) ) + 1.0 )
    +
    257end
    +
    +
    258
    +
    260static constant mcp_radius_pix = 555
    +
    262static constant mcp_radius_mm = 20
    +
    264static constant hemi_radius_mm = 200
    +
    266static constant mcp_radius_epass = 0.04
    +
    267
    +
    +
    268threadsafe function slit_shift(ypix, epass)
    +
    269 // calculates the energy shift due to straight slit
    +
    270 // the radius of the curve is 1/2 of the hemisphere radius
    +
    271 variable ypix // vertical (angle/position) pixels distance from center
    +
    272 // = slice coordinate * 902 / number of slices
    +
    273 variable epass // pass energy
    +
    274
    +
    275 variable rpix = mcp_radius_pix * hemi_radius_mm / mcp_radius_mm
    +
    276 //variable rpix = mcp_radius_pix * hemi_radius_mm / 2 / mcp_radius_mm
    +
    277 variable rene = epass * mcp_radius_epass * hemi_radius_mm / 2 / mcp_radius_mm
    +
    278
    +
    279 variable isin = asin(ypix / rpix)
    +
    280 variable dene = rene * (cos(isin) - 1)
    +
    281
    +
    282 return dene
    +
    283end
    +
    +
    284
    +
    +
    285function show_shift(data)
    +
    286 wave data
    +
    287 variable epass
    +
    288
    +
    289 variable ny = dimsize(data, 1)
    +
    290 make /o /n=(ny) shift_x
    +
    291 setscale /i x -ny/2, ny/2, "", shift_x
    +
    292 wave PassEnergy = :attr:PassEnergy
    +
    293 wave NumSlices = :attr:NumSlices
    +
    294
    +
    295 shift_x = slit_shift(x * 902 / NumSlices[0], PassEnergy[0])
    +
    296
    +
    297 variable ecenter = dimoffset(data, 0) + dimdelta(data, 0) * dimsize(data, 0) / 2
    +
    298 shift_x += ecenter
    +
    299end
    +
    +
    300
    +
    mcp_radius_pix
    static const variable mcp_radius_pix
    MCP radius seen by the camera in pixels.
    Definition fermi-edge-analysis.ipf:260
    +
    hemi_radius_mm
    static const variable hemi_radius_mm
    physical size (radius) of the hemisphere in mm
    Definition fermi-edge-analysis.ipf:264
    +
    analyse_curved_edge
    variable analyse_curved_edge(wave data)
    Definition fermi-edge-analysis.ipf:28
    +
    slit_shift
    threadsafe variable slit_shift(variable ypix, variable epass)
    Definition fermi-edge-analysis.ipf:268
    +
    integrate_curved_edge
    variable integrate_curved_edge(wave data, wave data_sig)
    Definition fermi-edge-analysis.ipf:117
    +
    mcp_radius_epass
    static const variable mcp_radius_epass
    energy range imaged on MCP relative to the pass energy
    Definition fermi-edge-analysis.ipf:266
    +
    slit_correction
    variable slit_correction(wave data, wave data_out, variable epass)
    Definition fermi-edge-analysis.ipf:174
    +
    mcp_radius_mm
    static const variable mcp_radius_mm
    physical size (radius) of the MCP in mm
    Definition fermi-edge-analysis.ipf:262
    +
    FermiFuncLinDOS2D_corr
    threadsafe variable FermiFuncLinDOS2D_corr(variable w, threadsafe x, wave y)
    Definition fermi-edge-analysis.ipf:217
    +
    record_results
    variable record_results(variable index)
    Definition fermi-edge-analysis.ipf:99
    +
    show_shift
    variable show_shift(wave data)
    Definition fermi-edge-analysis.ipf:285
    +
    ad_profile_x
    threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
    1D cut through 2D dataset along X dimension, new destination wave.
    Definition pearl-area-profiles.ipf:481
    +
    ad_profile_y
    threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
    1D cut through 2D dataset along Y dimension, new destination wave.
    Definition pearl-area-profiles.ipf:543
    -
    FermiFuncLinDOS2D_corr
    threadsafe variable FermiFuncLinDOS2D_corr(variable w, threadsafe x, wave y)
    Definition: fermi-edge-analysis.ipf:217
    -
    integrate_curved_edge
    variable integrate_curved_edge(wave data, wave data_sig)
    Definition: fermi-edge-analysis.ipf:117
    -
    hemi_radius_mm
    static const variable hemi_radius_mm
    physical size (radius) of the hemisphere in mm
    Definition: fermi-edge-analysis.ipf:264
    -
    ad_profile_x
    threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
    1D cut through 2D dataset along X dimension, new destination wave.
    Definition: pearl-area-profiles.ipf:481
    -
    slit_correction
    variable slit_correction(wave data, wave data_out, variable epass)
    Definition: fermi-edge-analysis.ipf:174
    -
    ad_profile_y
    threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
    1D cut through 2D dataset along Y dimension, new destination wave.
    Definition: pearl-area-profiles.ipf:543
    -
    mcp_radius_mm
    static const variable mcp_radius_mm
    physical size (radius) of the MCP in mm
    Definition: fermi-edge-analysis.ipf:262
    -
    show_shift
    variable show_shift(wave data)
    Definition: fermi-edge-analysis.ipf:285
    -
    analyse_curved_edge
    variable analyse_curved_edge(wave data)
    Definition: fermi-edge-analysis.ipf:28
    -
    slit_shift
    threadsafe variable slit_shift(variable ypix, variable epass)
    Definition: fermi-edge-analysis.ipf:268
    -
    record_results
    variable record_results(variable index)
    Definition: fermi-edge-analysis.ipf:99
    -
    mcp_radius_pix
    static const variable mcp_radius_pix
    MCP radius seen by the camera in pixels.
    Definition: fermi-edge-analysis.ipf:260
    -
    mcp_radius_epass
    static const variable mcp_radius_epass
    energy range imaged on MCP relative to the pass energy
    Definition: fermi-edge-analysis.ipf:266
    diff --git a/doc/html/files.html b/doc/html/files.html index c1502b7..ee5903e 100644 --- a/doc/html/files.html +++ b/doc/html/files.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: File List @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,41 +77,50 @@ $(document).ready(function(){initNavTree('files.html',''); initResizable(); });
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    File List
    +
    File List
    Here is a list of all files with brief descriptions:
    - - - - - - - - - - - - - - - - - - - - - - - - +
    [detail level 12]
     fermi-edge-analysis.ipfTools for analysing the Fermi edge measured by the Scienta EW4000 analyser
     pearl-anglescan-panel.ipfInteractive processing of angle scanned XPD data
     pearl-anglescan-process.ipfProcessing and holographic mapping of angle scanned XPD data
     pearl-anglescan-tracker.ipf
     pearl-area-display.ipfVisualization tools for 2D and 3D data
     pearl-area-import.ipfHDF5 file import from EPICS area detectors
     pearl-area-profiles.ipfProfile extraction for multi-dimensional datasets acquired from area detectors
     pearl-arpes.ipfData acquisition and analysis package for ARPES at PEARL
     pearl-compat.ipfCompatibility procedures for igor 8
     pearl-data-explorer.ipf
     pearl-elog.ipfInterface for writing ELOG entries with Igor graphs as attachment
     pearl-fitfuncs.ipfVarious fit functions for photoelectron spectroscopy
     pearl-gui-tools.ipf
     pearl-matrix-import.ipfData file import for omicron matrix (STM) files
     pearl-menu.ipf
     pearl-otf-import.ipf
     pearl-pmsco-import.ipfData import/export procedures for multiple scattering calculations
     pearl-polar-coordinates.ipf
     pearl-pshell-import.ipfImport data from PShell
     pearl-scienta-live.ipfUtility functions for operating the Scienta analyser
     pearl-scienta-preprocess.ipfPreprocessing functions for Scienta detector images
     pearl-tools.ipf
     pearl-vector-operations.ipfBasic vector geometry operations
    + + + + + + + + + + + + + + + + + + + + + + + + + +
     ▼ pearl
     fermi-edge-analysis.ipfTools for analysing the Fermi edge measured by the Scienta EW4000 analyser
     pearl-anglescan-panel.ipfInteractive processing of angle scanned XPD data
     pearl-anglescan-process.ipfProcessing and holographic mapping of angle scanned XPD data
     pearl-anglescan-tracker.ipf
     pearl-area-display.ipfVisualization tools for 2D and 3D data
     pearl-area-import.ipfHDF5 file import from EPICS area detectors
     pearl-area-profiles.ipfProfile extraction for multi-dimensional datasets acquired from area detectors
     pearl-arpes.ipfData acquisition and analysis package for ARPES at PEARL
     pearl-compat.ipfCompatibility procedures for igor 8
     pearl-data-explorer.ipf
     pearl-elog.ipfInterface for writing ELOG entries with Igor graphs as attachment
     pearl-fitfuncs.ipfVarious fit functions for photoelectron spectroscopy
     pearl-gui-tools.ipf
     pearl-matrix-import.ipfData file import for omicron matrix (STM) files
     pearl-menu.ipf
     pearl-otf-import.ipf
     pearl-pmsco-import.ipfData import/export procedures for multiple scattering calculations
     pearl-polar-coordinates.ipf
     pearl-pshell-import.ipfImport data from PShell
     pearl-scienta-live.ipfUtility functions for operating the Scienta analyser
     pearl-scienta-preprocess.ipfPreprocessing functions for Scienta detector images
     pearl-scilog.ipfInterface for writing SciLog entries with Igor graphs as attachment
     pearl-tools.ipf
     pearl-vector-operations.ipfBasic vector geometry operations
     src
    @@ -119,9 +128,7 @@ $(document).ready(function(){initNavTree('files.html',''); initResizable(); }); diff --git a/doc/html/folderclosed.png b/doc/html/folderclosed.png deleted file mode 100644 index bb8ab35..0000000 Binary files a/doc/html/folderclosed.png and /dev/null differ diff --git a/doc/html/folderopen.png b/doc/html/folderopen.png deleted file mode 100644 index d6c7f67..0000000 Binary files a/doc/html/folderopen.png and /dev/null differ diff --git a/doc/html/functions.html b/doc/html/functions.html index 0216f8f..eaf1ef8 100644 --- a/doc/html/functions.html +++ b/doc/html/functions.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Data Fields @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,82 +77,47 @@ $(document).ready(function(){initNavTree('functions.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all struct and union fields with links to the structures/unions they belong to:
    diff --git a/doc/html/functions_vars.html b/doc/html/functions_vars.html index c01633f..3019927 100644 --- a/doc/html/functions_vars.html +++ b/doc/html/functions_vars.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Data Fields - Variables @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,82 +77,47 @@ $(document).ready(function(){initNavTree('functions_vars.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    - 
    diff --git a/doc/html/globals.html b/doc/html/globals.html index 9813a08..ea4155a 100644 --- a/doc/html/globals.html +++ b/doc/html/globals.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,315 +77,125 @@ $(document).ready(function(){initNavTree('globals.html',''); initResizable(); })
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - a -

    diff --git a/doc/html/globals_b.html b/doc/html/globals_b.html index ded6e9d..76bba2e 100644 --- a/doc/html/globals_b.html +++ b/doc/html/globals_b.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,159 +77,72 @@ $(document).ready(function(){initNavTree('globals_b.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - b -

    diff --git a/doc/html/globals_c.html b/doc/html/globals_c.html index 4ca53b4..0d20869 100644 --- a/doc/html/globals_c.html +++ b/doc/html/globals_c.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,117 +77,62 @@ $(document).ready(function(){initNavTree('globals_c.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - c -

    diff --git a/doc/html/globals_d.html b/doc/html/globals_d.html index b74ee4d..946cfe7 100644 --- a/doc/html/globals_d.html +++ b/doc/html/globals_d.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,114 +77,59 @@ $(document).ready(function(){initNavTree('globals_d.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - d -

    diff --git a/doc/html/globals_e.html b/doc/html/globals_e.html index 0395494..84aa40b 100644 --- a/doc/html/globals_e.html +++ b/doc/html/globals_e.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,90 +77,51 @@ $(document).ready(function(){initNavTree('globals_e.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - e -

    diff --git a/doc/html/globals_f.html b/doc/html/globals_f.html index 2c438bd..5516248 100644 --- a/doc/html/globals_f.html +++ b/doc/html/globals_f.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,39 +77,34 @@ $(document).ready(function(){initNavTree('globals_f.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - f -

    diff --git a/doc/html/globals_func.html b/doc/html/globals_func.html index 67861ed..75261fc 100644 --- a/doc/html/globals_func.html +++ b/doc/html/globals_func.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,315 +77,125 @@ $(document).ready(function(){initNavTree('globals_func.html',''); initResizable(
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - a -

    diff --git a/doc/html/globals_func_b.html b/doc/html/globals_func_b.html index 1c97a26..c1e8063 100644 --- a/doc/html/globals_func_b.html +++ b/doc/html/globals_func_b.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,159 +77,72 @@ $(document).ready(function(){initNavTree('globals_func_b.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - b -

    diff --git a/doc/html/globals_func_c.html b/doc/html/globals_func_c.html index 20818d5..49e0922 100644 --- a/doc/html/globals_func_c.html +++ b/doc/html/globals_func_c.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,117 +77,62 @@ $(document).ready(function(){initNavTree('globals_func_c.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - c -

    diff --git a/doc/html/globals_func_d.html b/doc/html/globals_func_d.html index 686b57c..249a7a0 100644 --- a/doc/html/globals_func_d.html +++ b/doc/html/globals_func_d.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,114 +77,59 @@ $(document).ready(function(){initNavTree('globals_func_d.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - d -

    diff --git a/doc/html/globals_func_e.html b/doc/html/globals_func_e.html index a0b2c46..cb198ba 100644 --- a/doc/html/globals_func_e.html +++ b/doc/html/globals_func_e.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,84 +77,49 @@ $(document).ready(function(){initNavTree('globals_func_e.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - e -

    diff --git a/doc/html/globals_func_f.html b/doc/html/globals_func_f.html index cd3f6cd..0d04da5 100644 --- a/doc/html/globals_func_f.html +++ b/doc/html/globals_func_f.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,39 +77,34 @@ $(document).ready(function(){initNavTree('globals_func_f.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - f -

    diff --git a/doc/html/globals_func_g.html b/doc/html/globals_func_g.html index 2dce7d5..c9926cf 100644 --- a/doc/html/globals_func_g.html +++ b/doc/html/globals_func_g.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,84 +77,51 @@ $(document).ready(function(){initNavTree('globals_func_g.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - g -

    diff --git a/doc/html/globals_func_h.html b/doc/html/globals_func_h.html index 713bfeb..9a2babc 100644 --- a/doc/html/globals_func_h.html +++ b/doc/html/globals_func_h.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,60 +77,41 @@ $(document).ready(function(){initNavTree('globals_func_h.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - h -

    diff --git a/doc/html/globals_func_i.html b/doc/html/globals_func_i.html index ecd5117..5b3edf3 100644 --- a/doc/html/globals_func_i.html +++ b/doc/html/globals_func_i.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,71 +77,43 @@ $(document).ready(function(){initNavTree('globals_func_i.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - i -

    diff --git a/doc/html/globals_func_k.html b/doc/html/globals_func_k.html index 6686839..c304463 100644 --- a/doc/html/globals_func_k.html +++ b/doc/html/globals_func_k.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,30 +77,31 @@ $(document).ready(function(){initNavTree('globals_func_k.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - k -

    diff --git a/doc/html/globals_func_l.html b/doc/html/globals_func_l.html index 13b2546..b501291 100644 --- a/doc/html/globals_func_l.html +++ b/doc/html/globals_func_l.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,75 +77,45 @@ $(document).ready(function(){initNavTree('globals_func_l.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - l -

    diff --git a/doc/html/globals_func_m.html b/doc/html/globals_func_m.html index a51978c..a217612 100644 --- a/doc/html/globals_func_m.html +++ b/doc/html/globals_func_m.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,87 +77,50 @@ $(document).ready(function(){initNavTree('globals_func_m.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - m -

    diff --git a/doc/html/globals_func_n.html b/doc/html/globals_func_n.html index af55ead..ba5ea23 100644 --- a/doc/html/globals_func_n.html +++ b/doc/html/globals_func_n.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,45 +77,36 @@ $(document).ready(function(){initNavTree('globals_func_n.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - n -

    diff --git a/doc/html/globals_func_o.html b/doc/html/globals_func_o.html index 116f1c7..6c79c0c 100644 --- a/doc/html/globals_func_o.html +++ b/doc/html/globals_func_o.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,51 +77,38 @@ $(document).ready(function(){initNavTree('globals_func_o.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - o -

    diff --git a/doc/html/globals_func_p.html b/doc/html/globals_func_p.html index d2930a4..ef08aa3 100644 --- a/doc/html/globals_func_p.html +++ b/doc/html/globals_func_p.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,288 +77,123 @@ $(document).ready(function(){initNavTree('globals_func_p.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - p -

    diff --git a/doc/html/globals_func_q.html b/doc/html/globals_func_q.html index 3562189..053f1e4 100644 --- a/doc/html/globals_func_q.html +++ b/doc/html/globals_func_q.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,27 +77,30 @@ $(document).ready(function(){initNavTree('globals_func_q.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - q -

    diff --git a/doc/html/globals_func_r.html b/doc/html/globals_func_r.html index f6377a1..5d89572 100644 --- a/doc/html/globals_func_r.html +++ b/doc/html/globals_func_r.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,62 +77,41 @@ $(document).ready(function(){initNavTree('globals_func_r.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - r -

    diff --git a/doc/html/globals_func_s.html b/doc/html/globals_func_s.html index 682a223..72f2fe9 100644 --- a/doc/html/globals_func_s.html +++ b/doc/html/globals_func_s.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,135 +77,72 @@ $(document).ready(function(){initNavTree('globals_func_s.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - s -

    diff --git a/doc/html/globals_func_t.html b/doc/html/globals_func_t.html index 2e2e07a..7506587 100644 --- a/doc/html/globals_func_t.html +++ b/doc/html/globals_func_t.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,39 +77,34 @@ $(document).ready(function(){initNavTree('globals_func_t.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - t -

    diff --git a/doc/html/globals_func_u.html b/doc/html/globals_func_u.html index 8d15fe8..bdce409 100644 --- a/doc/html/globals_func_u.html +++ b/doc/html/globals_func_u.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,66 +77,43 @@ $(document).ready(function(){initNavTree('globals_func_u.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - u -

    diff --git a/doc/html/globals_func_w.html b/doc/html/globals_func_w.html index 7efaacd..69ec11c 100644 --- a/doc/html/globals_func_w.html +++ b/doc/html/globals_func_w.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,27 +77,30 @@ $(document).ready(function(){initNavTree('globals_func_w.html',''); initResizabl
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all functions with links to the files they belong to:
    -

    - w -

    diff --git a/doc/html/globals_g.html b/doc/html/globals_g.html index ba7e22d..994aa79 100644 --- a/doc/html/globals_g.html +++ b/doc/html/globals_g.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,84 +77,51 @@ $(document).ready(function(){initNavTree('globals_g.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - g -

    diff --git a/doc/html/globals_h.html b/doc/html/globals_h.html index 21a9b31..4c933b1 100644 --- a/doc/html/globals_h.html +++ b/doc/html/globals_h.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,63 +77,42 @@ $(document).ready(function(){initNavTree('globals_h.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - h -

    diff --git a/doc/html/globals_i.html b/doc/html/globals_i.html index 8f1febe..eed0585 100644 --- a/doc/html/globals_i.html +++ b/doc/html/globals_i.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,71 +77,43 @@ $(document).ready(function(){initNavTree('globals_i.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - i -

    diff --git a/doc/html/globals_k.html b/doc/html/globals_k.html index 225d55b..d085547 100644 --- a/doc/html/globals_k.html +++ b/doc/html/globals_k.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,156 +77,73 @@ $(document).ready(function(){initNavTree('globals_k.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - k -

    diff --git a/doc/html/globals_l.html b/doc/html/globals_l.html index c407e42..26529f1 100644 --- a/doc/html/globals_l.html +++ b/doc/html/globals_l.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,75 +77,45 @@ $(document).ready(function(){initNavTree('globals_l.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - l -

    diff --git a/doc/html/globals_m.html b/doc/html/globals_m.html index 3929c0a..cd1aa5b 100644 --- a/doc/html/globals_m.html +++ b/doc/html/globals_m.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,96 +77,53 @@ $(document).ready(function(){initNavTree('globals_m.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - m -

    diff --git a/doc/html/globals_n.html b/doc/html/globals_n.html index 03f1326..f961954 100644 --- a/doc/html/globals_n.html +++ b/doc/html/globals_n.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,45 +77,36 @@ $(document).ready(function(){initNavTree('globals_n.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - n -

    diff --git a/doc/html/globals_o.html b/doc/html/globals_o.html index e38a142..715ac6e 100644 --- a/doc/html/globals_o.html +++ b/doc/html/globals_o.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,51 +77,38 @@ $(document).ready(function(){initNavTree('globals_o.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - o -

    diff --git a/doc/html/globals_p.html b/doc/html/globals_p.html index 4e5eb3e..e607321 100644 --- a/doc/html/globals_p.html +++ b/doc/html/globals_p.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,303 +77,126 @@ $(document).ready(function(){initNavTree('globals_p.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - p -

    diff --git a/doc/html/globals_q.html b/doc/html/globals_q.html index 7daba7e..3914a34 100644 --- a/doc/html/globals_q.html +++ b/doc/html/globals_q.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,27 +77,30 @@ $(document).ready(function(){initNavTree('globals_q.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - q -

    diff --git a/doc/html/globals_r.html b/doc/html/globals_r.html index b229ca4..71f3d3d 100644 --- a/doc/html/globals_r.html +++ b/doc/html/globals_r.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,62 +77,41 @@ $(document).ready(function(){initNavTree('globals_r.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - r -

    diff --git a/doc/html/globals_s.html b/doc/html/globals_s.html index ee21d49..1f2604c 100644 --- a/doc/html/globals_s.html +++ b/doc/html/globals_s.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,135 +77,75 @@ $(document).ready(function(){initNavTree('globals_s.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - s -

    diff --git a/doc/html/globals_t.html b/doc/html/globals_t.html index 24e5b1b..5d732d9 100644 --- a/doc/html/globals_t.html +++ b/doc/html/globals_t.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,39 +77,34 @@ $(document).ready(function(){initNavTree('globals_t.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - t -

    diff --git a/doc/html/globals_u.html b/doc/html/globals_u.html index 6d9cef9..fd2cbfe 100644 --- a/doc/html/globals_u.html +++ b/doc/html/globals_u.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,66 +77,43 @@ $(document).ready(function(){initNavTree('globals_u.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - u -

    diff --git a/doc/html/globals_v.html b/doc/html/globals_v.html index 4b853a2..aca3630 100644 --- a/doc/html/globals_v.html +++ b/doc/html/globals_v.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,28 +77,30 @@ $(document).ready(function(){initNavTree('globals_v.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - v -

    diff --git a/doc/html/globals_vars.html b/doc/html/globals_vars.html index 7c8270e..16f5f29 100644 --- a/doc/html/globals_vars.html +++ b/doc/html/globals_vars.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,207 +77,108 @@ $(document).ready(function(){initNavTree('globals_vars.html',''); initResizable(
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -  +
    Here is a list of all variables with links to the files they belong to:
    -

    - e -

    diff --git a/doc/html/globals_w.html b/doc/html/globals_w.html index bfb714e..8ac052d 100644 --- a/doc/html/globals_w.html +++ b/doc/html/globals_w.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Globals @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,27 +77,30 @@ $(document).ready(function(){initNavTree('globals_w.html',''); initResizable();
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Here is a list of all functions, variables, defines, enums, and typedefs with links to the files they belong to:
    -

    - w -

    diff --git a/doc/html/group___arpes_package.html b/doc/html/group___arpes_package.html index 044fbba..8db23b2 100644 --- a/doc/html/group___arpes_package.html +++ b/doc/html/group___arpes_package.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: ARPES package @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,64 +77,73 @@ $(document).ready(function(){initNavTree('group___arpes_package.html',''); initR
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Files
    -
    -
    ARPES package
    +
    ARPES package

    data acquisition and analysis package for ARPES at PEARL. More...

    - - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + +

    +

    Files

    file  fermi-edge-analysis.ipf
    file  fermi-edge-analysis.ipf
     tools for analysing the Fermi edge measured by the Scienta EW4000 analyser.
     
    file  pearl-anglescan-panel.ipf
    file  pearl-anglescan-panel.ipf
     interactive processing of angle scanned XPD data.
     
    file  pearl-anglescan-process.ipf
    file  pearl-anglescan-process.ipf
     processing and holographic mapping of angle scanned XPD data.
     
    file  pearl-area-display.ipf
    file  pearl-area-display.ipf
     visualization tools for 2D and 3D data.
     
    file  pearl-area-import.ipf
    file  pearl-area-import.ipf
     HDF5 file import from EPICS area detectors.
     
    file  pearl-area-profiles.ipf
    file  pearl-area-profiles.ipf
     profile extraction for multi-dimensional datasets acquired from area detectors.
     
    file  pearl-compat.ipf
    file  pearl-compat.ipf
     compatibility procedures for igor 8
     
    file  pearl-elog.ipf
    file  pearl-elog.ipf
     interface for writing ELOG entries with Igor graphs as attachment.
     
    file  pearl-fitfuncs.ipf
    file  pearl-fitfuncs.ipf
     various fit functions for photoelectron spectroscopy.
     
    file  pearl-pmsco-import.ipf
    file  pearl-pmsco-import.ipf
     data import/export procedures for multiple scattering calculations.
     
    file  pearl-pshell-import.ipf
    file  pearl-pshell-import.ipf
     import data from PShell
     
    file  pearl-scienta-live.ipf
    file  pearl-scienta-live.ipf
     utility functions for operating the Scienta analyser.
     
    file  pearl-scienta-preprocess.ipf
    file  pearl-scienta-preprocess.ipf
     preprocessing functions for Scienta detector images.
     
    file  pearl-vector-operations.ipf
    file  pearl-scilog.ipf
     Interface for writing SciLog entries with Igor graphs as attachment.
     
    file  pearl-vector-operations.ipf
     basic vector geometry operations.
     
    @@ -164,9 +173,7 @@ Files diff --git a/doc/html/group___arpes_package.js b/doc/html/group___arpes_package.js deleted file mode 100644 index 9b440e4..0000000 --- a/doc/html/group___arpes_package.js +++ /dev/null @@ -1,17 +0,0 @@ -var group___arpes_package = -[ - [ "fermi-edge-analysis.ipf", "fermi-edge-analysis_8ipf.html", null ], - [ "pearl-anglescan-panel.ipf", "pearl-anglescan-panel_8ipf.html", null ], - [ "pearl-anglescan-process.ipf", "pearl-anglescan-process_8ipf.html", null ], - [ "pearl-area-display.ipf", "pearl-area-display_8ipf.html", null ], - [ "pearl-area-import.ipf", "pearl-area-import_8ipf.html", null ], - [ "pearl-area-profiles.ipf", "pearl-area-profiles_8ipf.html", null ], - [ "pearl-compat.ipf", "pearl-compat_8ipf.html", null ], - [ "pearl-elog.ipf", "pearl-elog_8ipf.html", null ], - [ "pearl-fitfuncs.ipf", "pearl-fitfuncs_8ipf.html", null ], - [ "pearl-pmsco-import.ipf", "pearl-pmsco-import_8ipf.html", null ], - [ "pearl-pshell-import.ipf", "pearl-pshell-import_8ipf.html", null ], - [ "pearl-scienta-live.ipf", "pearl-scienta-live_8ipf.html", null ], - [ "pearl-scienta-preprocess.ipf", "pearl-scienta-preprocess_8ipf.html", null ], - [ "pearl-vector-operations.ipf", "pearl-vector-operations_8ipf.html", null ] -]; \ No newline at end of file diff --git a/doc/html/index.html b/doc/html/index.html index 003c9dd..68dd947 100644 --- a/doc/html/index.html +++ b/doc/html/index.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Introduction @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('index.html',''); initResizable(); });
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    -
    Introduction
    +
    +
    Introduction

    Table of Contents

    @@ -98,7 +104,7 @@ Introduction

    PEARL Procedures is a suite of Igor Pro procedures developed for data acquisition and data processing at the PEARL beamline at the Swiss Light Source.

    Installation

    -

    PEARL Procedures are tested on Igor Pro 8.04, 64-bit. Compatibility with earlier versions of Igor has been dropped. Please make sure to use the latest release version of Igor Pro.

    +

    PEARL Procedures are tested on Igor Pro 8.04, 64-bit. Earlier versions of Igor Pro are not supported.

    PEARL Procedures should be installed according to the regular Igor Pro guidelines. Please read the Igor help About Igor Pro User Files for details.

    @@ -123,9 +129,7 @@ Licensed under the Apache L diff --git a/doc/html/jquery.js b/doc/html/jquery.js index 103c32d..1dffb65 100644 --- a/doc/html/jquery.js +++ b/doc/html/jquery.js @@ -1,12 +1,11 @@ -/*! jQuery v3.4.1 | (c) JS Foundation and other contributors | jquery.org/license */ -!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof window?window:this,function(C,e){"use strict";var t=[],E=C.document,r=Object.getPrototypeOf,s=t.slice,g=t.concat,u=t.push,i=t.indexOf,n={},o=n.toString,v=n.hasOwnProperty,a=v.toString,l=a.call(Object),y={},m=function(e){return"function"==typeof e&&"number"!=typeof e.nodeType},x=function(e){return null!=e&&e===e.window},c={type:!0,src:!0,nonce:!0,noModule:!0};function b(e,t,n){var r,i,o=(n=n||E).createElement("script");if(o.text=e,t)for(r in c)(i=t[r]||t.getAttribute&&t.getAttribute(r))&&o.setAttribute(r,i);n.head.appendChild(o).parentNode.removeChild(o)}function w(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?n[o.call(e)]||"object":typeof e}var f="3.4.1",k=function(e,t){return new k.fn.init(e,t)},p=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g;function d(e){var t=!!e&&"length"in e&&e.length,n=w(e);return!m(e)&&!x(e)&&("array"===n||0===t||"number"==typeof t&&0+~]|"+M+")"+M+"*"),U=new RegExp(M+"|>"),X=new RegExp($),V=new RegExp("^"+I+"$"),G={ID:new RegExp("^#("+I+")"),CLASS:new RegExp("^\\.("+I+")"),TAG:new RegExp("^("+I+"|[*])"),ATTR:new RegExp("^"+W),PSEUDO:new RegExp("^"+$),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+R+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},Y=/HTML$/i,Q=/^(?:input|select|textarea|button)$/i,J=/^h\d$/i,K=/^[^{]+\{\s*\[native \w/,Z=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ee=/[+~]/,te=new RegExp("\\\\([\\da-f]{1,6}"+M+"?|("+M+")|.)","ig"),ne=function(e,t,n){var r="0x"+t-65536;return r!=r||n?t:r<0?String.fromCharCode(r+65536):String.fromCharCode(r>>10|55296,1023&r|56320)},re=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ie=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},oe=function(){T()},ae=be(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{H.apply(t=O.call(m.childNodes),m.childNodes),t[m.childNodes.length].nodeType}catch(e){H={apply:t.length?function(e,t){L.apply(e,O.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function se(t,e,n,r){var i,o,a,s,u,l,c,f=e&&e.ownerDocument,p=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==p&&9!==p&&11!==p)return n;if(!r&&((e?e.ownerDocument||e:m)!==C&&T(e),e=e||C,E)){if(11!==p&&(u=Z.exec(t)))if(i=u[1]){if(9===p){if(!(a=e.getElementById(i)))return n;if(a.id===i)return n.push(a),n}else if(f&&(a=f.getElementById(i))&&y(e,a)&&a.id===i)return n.push(a),n}else{if(u[2])return H.apply(n,e.getElementsByTagName(t)),n;if((i=u[3])&&d.getElementsByClassName&&e.getElementsByClassName)return H.apply(n,e.getElementsByClassName(i)),n}if(d.qsa&&!A[t+" "]&&(!v||!v.test(t))&&(1!==p||"object"!==e.nodeName.toLowerCase())){if(c=t,f=e,1===p&&U.test(t)){(s=e.getAttribute("id"))?s=s.replace(re,ie):e.setAttribute("id",s=k),o=(l=h(t)).length;while(o--)l[o]="#"+s+" "+xe(l[o]);c=l.join(","),f=ee.test(t)&&ye(e.parentNode)||e}try{return H.apply(n,f.querySelectorAll(c)),n}catch(e){A(t,!0)}finally{s===k&&e.removeAttribute("id")}}}return g(t.replace(B,"$1"),e,n,r)}function ue(){var r=[];return function e(t,n){return r.push(t+" ")>b.cacheLength&&delete e[r.shift()],e[t+" "]=n}}function le(e){return e[k]=!0,e}function ce(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function fe(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function pe(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function de(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}function he(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&ae(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function ve(a){return le(function(o){return o=+o,le(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in d=se.support={},i=se.isXML=function(e){var t=e.namespaceURI,n=(e.ownerDocument||e).documentElement;return!Y.test(t||n&&n.nodeName||"HTML")},T=se.setDocument=function(e){var t,n,r=e?e.ownerDocument||e:m;return r!==C&&9===r.nodeType&&r.documentElement&&(a=(C=r).documentElement,E=!i(C),m!==C&&(n=C.defaultView)&&n.top!==n&&(n.addEventListener?n.addEventListener("unload",oe,!1):n.attachEvent&&n.attachEvent("onunload",oe)),d.attributes=ce(function(e){return e.className="i",!e.getAttribute("className")}),d.getElementsByTagName=ce(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),d.getElementsByClassName=K.test(C.getElementsByClassName),d.getById=ce(function(e){return a.appendChild(e).id=k,!C.getElementsByName||!C.getElementsByName(k).length}),d.getById?(b.filter.ID=function(e){var t=e.replace(te,ne);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n=t.getElementById(e);return n?[n]:[]}}):(b.filter.ID=function(e){var n=e.replace(te,ne);return function(e){var t="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return t&&t.value===n}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=d.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):d.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},b.find.CLASS=d.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},s=[],v=[],(d.qsa=K.test(C.querySelectorAll))&&(ce(function(e){a.appendChild(e).innerHTML="",e.querySelectorAll("[msallowcapture^='']").length&&v.push("[*^$]="+M+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||v.push("\\["+M+"*(?:value|"+R+")"),e.querySelectorAll("[id~="+k+"-]").length||v.push("~="),e.querySelectorAll(":checked").length||v.push(":checked"),e.querySelectorAll("a#"+k+"+*").length||v.push(".#.+[+~]")}),ce(function(e){e.innerHTML="";var t=C.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&v.push("name"+M+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&v.push(":enabled",":disabled"),a.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&v.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),v.push(",.*:")})),(d.matchesSelector=K.test(c=a.matches||a.webkitMatchesSelector||a.mozMatchesSelector||a.oMatchesSelector||a.msMatchesSelector))&&ce(function(e){d.disconnectedMatch=c.call(e,"*"),c.call(e,"[s!='']:x"),s.push("!=",$)}),v=v.length&&new RegExp(v.join("|")),s=s.length&&new RegExp(s.join("|")),t=K.test(a.compareDocumentPosition),y=t||K.test(a.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,r=t&&t.parentNode;return e===r||!(!r||1!==r.nodeType||!(n.contains?n.contains(r):e.compareDocumentPosition&&16&e.compareDocumentPosition(r)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},D=t?function(e,t){if(e===t)return l=!0,0;var n=!e.compareDocumentPosition-!t.compareDocumentPosition;return n||(1&(n=(e.ownerDocument||e)===(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!d.sortDetached&&t.compareDocumentPosition(e)===n?e===C||e.ownerDocument===m&&y(m,e)?-1:t===C||t.ownerDocument===m&&y(m,t)?1:u?P(u,e)-P(u,t):0:4&n?-1:1)}:function(e,t){if(e===t)return l=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e===C?-1:t===C?1:i?-1:o?1:u?P(u,e)-P(u,t):0;if(i===o)return pe(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?pe(a[r],s[r]):a[r]===m?-1:s[r]===m?1:0}),C},se.matches=function(e,t){return se(e,null,null,t)},se.matchesSelector=function(e,t){if((e.ownerDocument||e)!==C&&T(e),d.matchesSelector&&E&&!A[t+" "]&&(!s||!s.test(t))&&(!v||!v.test(t)))try{var n=c.call(e,t);if(n||d.disconnectedMatch||e.document&&11!==e.document.nodeType)return n}catch(e){A(t,!0)}return 0":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(te,ne),e[3]=(e[3]||e[4]||e[5]||"").replace(te,ne),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||se.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&se.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return G.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=h(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(te,ne).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=p[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&p(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(n,r,i){return function(e){var t=se.attr(e,n);return null==t?"!="===r:!r||(t+="","="===r?t===i:"!="===r?t!==i:"^="===r?i&&0===t.indexOf(i):"*="===r?i&&-1:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,n,r){return m(n)?k.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?k.grep(e,function(e){return e===n!==r}):"string"!=typeof n?k.grep(e,function(e){return-1)[^>]*|#([\w-]+))$/;(k.fn.init=function(e,t,n){var r,i;if(!e)return this;if(n=n||q,"string"==typeof e){if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:L.exec(e))||!r[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(r[1]){if(t=t instanceof k?t[0]:t,k.merge(this,k.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:E,!0)),D.test(r[1])&&k.isPlainObject(t))for(r in t)m(this[r])?this[r](t[r]):this.attr(r,t[r]);return this}return(i=E.getElementById(r[2]))&&(this[0]=i,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):m(e)?void 0!==n.ready?n.ready(e):e(k):k.makeArray(e,this)}).prototype=k.fn,q=k(E);var H=/^(?:parents|prev(?:Until|All))/,O={children:!0,contents:!0,next:!0,prev:!0};function P(e,t){while((e=e[t])&&1!==e.nodeType);return e}k.fn.extend({has:function(e){var t=k(e,this),n=t.length;return this.filter(function(){for(var e=0;e\x20\t\r\n\f]*)/i,he=/^$|^module$|\/(?:java|ecma)script/i,ge={option:[1,""],thead:[1,"","
    "],col:[2,"","
    "],tr:[2,"","
    "],td:[3,"","
    "],_default:[0,"",""]};function ve(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&A(e,t)?k.merge([e],n):n}function ye(e,t){for(var n=0,r=e.length;nx",y.noCloneChecked=!!me.cloneNode(!0).lastChild.defaultValue;var Te=/^key/,Ce=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,Ee=/^([^.]*)(?:\.(.+)|)/;function ke(){return!0}function Se(){return!1}function Ne(e,t){return e===function(){try{return E.activeElement}catch(e){}}()==("focus"===t)}function Ae(e,t,n,r,i,o){var a,s;if("object"==typeof t){for(s in"string"!=typeof n&&(r=r||n,n=void 0),t)Ae(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=Se;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return k().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=k.guid++)),e.each(function(){k.event.add(this,t,i,r,n)})}function De(e,i,o){o?(Q.set(e,i,!1),k.event.add(e,i,{namespace:!1,handler:function(e){var t,n,r=Q.get(this,i);if(1&e.isTrigger&&this[i]){if(r.length)(k.event.special[i]||{}).delegateType&&e.stopPropagation();else if(r=s.call(arguments),Q.set(this,i,r),t=o(this,i),this[i](),r!==(n=Q.get(this,i))||t?Q.set(this,i,!1):n={},r!==n)return e.stopImmediatePropagation(),e.preventDefault(),n.value}else r.length&&(Q.set(this,i,{value:k.event.trigger(k.extend(r[0],k.Event.prototype),r.slice(1),this)}),e.stopImmediatePropagation())}})):void 0===Q.get(e,i)&&k.event.add(e,i,ke)}k.event={global:{},add:function(t,e,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.get(t);if(v){n.handler&&(n=(o=n).handler,i=o.selector),i&&k.find.matchesSelector(ie,i),n.guid||(n.guid=k.guid++),(u=v.events)||(u=v.events={}),(a=v.handle)||(a=v.handle=function(e){return"undefined"!=typeof k&&k.event.triggered!==e.type?k.event.dispatch.apply(t,arguments):void 0}),l=(e=(e||"").match(R)||[""]).length;while(l--)d=g=(s=Ee.exec(e[l])||[])[1],h=(s[2]||"").split(".").sort(),d&&(f=k.event.special[d]||{},d=(i?f.delegateType:f.bindType)||d,f=k.event.special[d]||{},c=k.extend({type:d,origType:g,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&k.expr.match.needsContext.test(i),namespace:h.join(".")},o),(p=u[d])||((p=u[d]=[]).delegateCount=0,f.setup&&!1!==f.setup.call(t,r,h,a)||t.addEventListener&&t.addEventListener(d,a)),f.add&&(f.add.call(t,c),c.handler.guid||(c.handler.guid=n.guid)),i?p.splice(p.delegateCount++,0,c):p.push(c),k.event.global[d]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,v=Q.hasData(e)&&Q.get(e);if(v&&(u=v.events)){l=(t=(t||"").match(R)||[""]).length;while(l--)if(d=g=(s=Ee.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d){f=k.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,v.handle)||k.removeEvent(e,d,v.handle),delete u[d])}else for(d in u)k.event.remove(e,d+t[l],n,r,!0);k.isEmptyObject(u)&&Q.remove(e,"handle events")}},dispatch:function(e){var t,n,r,i,o,a,s=k.event.fix(e),u=new Array(arguments.length),l=(Q.get(this,"events")||{})[s.type]||[],c=k.event.special[s.type]||{};for(u[0]=s,t=1;t\x20\t\r\n\f]*)[^>]*)\/>/gi,qe=/\s*$/g;function Oe(e,t){return A(e,"table")&&A(11!==t.nodeType?t:t.firstChild,"tr")&&k(e).children("tbody")[0]||e}function Pe(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Re(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Me(e,t){var n,r,i,o,a,s,u,l;if(1===t.nodeType){if(Q.hasData(e)&&(o=Q.access(e),a=Q.set(t,o),l=o.events))for(i in delete a.handle,a.events={},l)for(n=0,r=l[i].length;n")},clone:function(e,t,n){var r,i,o,a,s,u,l,c=e.cloneNode(!0),f=oe(e);if(!(y.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||k.isXMLDoc(e)))for(a=ve(c),r=0,i=(o=ve(e)).length;r").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),E.head.appendChild(r[0])},abort:function(){i&&i()}}});var Vt,Gt=[],Yt=/(=)\?(?=&|$)|\?\?/;k.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Gt.pop()||k.expando+"_"+kt++;return this[e]=!0,e}}),k.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Yt.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Yt.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=m(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Yt,"$1"+r):!1!==e.jsonp&&(e.url+=(St.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||k.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=C[r],C[r]=function(){o=arguments},n.always(function(){void 0===i?k(C).removeProp(r):C[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,Gt.push(r)),o&&m(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((Vt=E.implementation.createHTMLDocument("").body).innerHTML="
    ",2===Vt.childNodes.length),k.parseHTML=function(e,t,n){return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=E.implementation.createHTMLDocument("")).createElement("base")).href=E.location.href,t.head.appendChild(r)):t=E),o=!n&&[],(i=D.exec(e))?[t.createElement(i[1])]:(i=we([e],t,o),o&&o.length&&k(o).remove(),k.merge([],i.childNodes)));var r,i,o},k.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1").append(k.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},k.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){k.fn[t]=function(e){return this.on(t,e)}}),k.expr.pseudos.animated=function(t){return k.grep(k.timers,function(e){return t===e.elem}).length},k.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l=k.css(e,"position"),c=k(e),f={};"static"===l&&(e.style.position="relative"),s=c.offset(),o=k.css(e,"top"),u=k.css(e,"left"),("absolute"===l||"fixed"===l)&&-1<(o+u).indexOf("auto")?(a=(r=c.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),m(t)&&(t=t.call(e,n,k.extend({},s))),null!=t.top&&(f.top=t.top-s.top+a),null!=t.left&&(f.left=t.left-s.left+i),"using"in t?t.using.call(e,f):c.css(f)}},k.fn.extend({offset:function(t){if(arguments.length)return void 0===t?this:this.each(function(e){k.offset.setOffset(this,t,e)});var e,n,r=this[0];return r?r.getClientRects().length?(e=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===k.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===k.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=k(e).offset()).top+=k.css(e,"borderTopWidth",!0),i.left+=k.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-k.css(r,"marginTop",!0),left:t.left-i.left-k.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===k.css(e,"position"))e=e.offsetParent;return e||ie})}}),k.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;k.fn[t]=function(e){return _(this,function(e,t,n){var r;if(x(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),k.each(["top","left"],function(e,n){k.cssHooks[n]=ze(y.pixelPosition,function(e,t){if(t)return t=_e(e,n),$e.test(t)?k(e).position()[n]+"px":t})}),k.each({Height:"height",Width:"width"},function(a,s){k.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){k.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return _(this,function(e,t,n){var r;return x(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?k.css(e,t,i):k.style(e,t,n,i)},s,n?e:void 0,n)}})}),k.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){k.fn[n]=function(e,t){return 0+~]|"+M+")"+M+"*"),U=new RegExp(M+"|>"),X=new RegExp(F),V=new RegExp("^"+I+"$"),G={ID:new RegExp("^#("+I+")"),CLASS:new RegExp("^\\.("+I+")"),TAG:new RegExp("^("+I+"|[*])"),ATTR:new RegExp("^"+W),PSEUDO:new RegExp("^"+F),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+R+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},Y=/HTML$/i,Q=/^(?:input|select|textarea|button)$/i,J=/^h\d$/i,K=/^[^{]+\{\s*\[native \w/,Z=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,ee=/[+~]/,te=new RegExp("\\\\[\\da-fA-F]{1,6}"+M+"?|\\\\([^\\r\\n\\f])","g"),ne=function(e,t){var n="0x"+e.slice(1)-65536;return t||(n<0?String.fromCharCode(n+65536):String.fromCharCode(n>>10|55296,1023&n|56320))},re=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ie=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},oe=function(){T()},ae=be(function(e){return!0===e.disabled&&"fieldset"===e.nodeName.toLowerCase()},{dir:"parentNode",next:"legend"});try{H.apply(t=O.call(p.childNodes),p.childNodes),t[p.childNodes.length].nodeType}catch(e){H={apply:t.length?function(e,t){L.apply(e,O.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function se(t,e,n,r){var i,o,a,s,u,l,c,f=e&&e.ownerDocument,p=e?e.nodeType:9;if(n=n||[],"string"!=typeof t||!t||1!==p&&9!==p&&11!==p)return n;if(!r&&(T(e),e=e||C,E)){if(11!==p&&(u=Z.exec(t)))if(i=u[1]){if(9===p){if(!(a=e.getElementById(i)))return n;if(a.id===i)return n.push(a),n}else if(f&&(a=f.getElementById(i))&&y(e,a)&&a.id===i)return n.push(a),n}else{if(u[2])return H.apply(n,e.getElementsByTagName(t)),n;if((i=u[3])&&d.getElementsByClassName&&e.getElementsByClassName)return H.apply(n,e.getElementsByClassName(i)),n}if(d.qsa&&!N[t+" "]&&(!v||!v.test(t))&&(1!==p||"object"!==e.nodeName.toLowerCase())){if(c=t,f=e,1===p&&(U.test(t)||z.test(t))){(f=ee.test(t)&&ye(e.parentNode)||e)===e&&d.scope||((s=e.getAttribute("id"))?s=s.replace(re,ie):e.setAttribute("id",s=S)),o=(l=h(t)).length;while(o--)l[o]=(s?"#"+s:":scope")+" "+xe(l[o]);c=l.join(",")}try{return H.apply(n,f.querySelectorAll(c)),n}catch(e){N(t,!0)}finally{s===S&&e.removeAttribute("id")}}}return g(t.replace($,"$1"),e,n,r)}function ue(){var r=[];return function e(t,n){return r.push(t+" ")>b.cacheLength&&delete e[r.shift()],e[t+" "]=n}}function le(e){return e[S]=!0,e}function ce(e){var t=C.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function fe(e,t){var n=e.split("|"),r=n.length;while(r--)b.attrHandle[n[r]]=t}function pe(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function de(t){return function(e){return"input"===e.nodeName.toLowerCase()&&e.type===t}}function he(n){return function(e){var t=e.nodeName.toLowerCase();return("input"===t||"button"===t)&&e.type===n}}function ge(t){return function(e){return"form"in e?e.parentNode&&!1===e.disabled?"label"in e?"label"in e.parentNode?e.parentNode.disabled===t:e.disabled===t:e.isDisabled===t||e.isDisabled!==!t&&ae(e)===t:e.disabled===t:"label"in e&&e.disabled===t}}function ve(a){return le(function(o){return o=+o,le(function(e,t){var n,r=a([],e.length,o),i=r.length;while(i--)e[n=r[i]]&&(e[n]=!(t[n]=e[n]))})})}function ye(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}for(e in d=se.support={},i=se.isXML=function(e){var t=e&&e.namespaceURI,n=e&&(e.ownerDocument||e).documentElement;return!Y.test(t||n&&n.nodeName||"HTML")},T=se.setDocument=function(e){var t,n,r=e?e.ownerDocument||e:p;return r!=C&&9===r.nodeType&&r.documentElement&&(a=(C=r).documentElement,E=!i(C),p!=C&&(n=C.defaultView)&&n.top!==n&&(n.addEventListener?n.addEventListener("unload",oe,!1):n.attachEvent&&n.attachEvent("onunload",oe)),d.scope=ce(function(e){return a.appendChild(e).appendChild(C.createElement("div")),"undefined"!=typeof e.querySelectorAll&&!e.querySelectorAll(":scope fieldset div").length}),d.attributes=ce(function(e){return e.className="i",!e.getAttribute("className")}),d.getElementsByTagName=ce(function(e){return e.appendChild(C.createComment("")),!e.getElementsByTagName("*").length}),d.getElementsByClassName=K.test(C.getElementsByClassName),d.getById=ce(function(e){return a.appendChild(e).id=S,!C.getElementsByName||!C.getElementsByName(S).length}),d.getById?(b.filter.ID=function(e){var t=e.replace(te,ne);return function(e){return e.getAttribute("id")===t}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n=t.getElementById(e);return n?[n]:[]}}):(b.filter.ID=function(e){var n=e.replace(te,ne);return function(e){var t="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return t&&t.value===n}},b.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&E){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),b.find.TAG=d.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):d.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},b.find.CLASS=d.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&E)return t.getElementsByClassName(e)},s=[],v=[],(d.qsa=K.test(C.querySelectorAll))&&(ce(function(e){var t;a.appendChild(e).innerHTML="",e.querySelectorAll("[msallowcapture^='']").length&&v.push("[*^$]="+M+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||v.push("\\["+M+"*(?:value|"+R+")"),e.querySelectorAll("[id~="+S+"-]").length||v.push("~="),(t=C.createElement("input")).setAttribute("name",""),e.appendChild(t),e.querySelectorAll("[name='']").length||v.push("\\["+M+"*name"+M+"*="+M+"*(?:''|\"\")"),e.querySelectorAll(":checked").length||v.push(":checked"),e.querySelectorAll("a#"+S+"+*").length||v.push(".#.+[+~]"),e.querySelectorAll("\\\f"),v.push("[\\r\\n\\f]")}),ce(function(e){e.innerHTML="";var t=C.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&v.push("name"+M+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&v.push(":enabled",":disabled"),a.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&v.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),v.push(",.*:")})),(d.matchesSelector=K.test(c=a.matches||a.webkitMatchesSelector||a.mozMatchesSelector||a.oMatchesSelector||a.msMatchesSelector))&&ce(function(e){d.disconnectedMatch=c.call(e,"*"),c.call(e,"[s!='']:x"),s.push("!=",F)}),v=v.length&&new RegExp(v.join("|")),s=s.length&&new RegExp(s.join("|")),t=K.test(a.compareDocumentPosition),y=t||K.test(a.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,r=t&&t.parentNode;return e===r||!(!r||1!==r.nodeType||!(n.contains?n.contains(r):e.compareDocumentPosition&&16&e.compareDocumentPosition(r)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},j=t?function(e,t){if(e===t)return l=!0,0;var n=!e.compareDocumentPosition-!t.compareDocumentPosition;return n||(1&(n=(e.ownerDocument||e)==(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!d.sortDetached&&t.compareDocumentPosition(e)===n?e==C||e.ownerDocument==p&&y(p,e)?-1:t==C||t.ownerDocument==p&&y(p,t)?1:u?P(u,e)-P(u,t):0:4&n?-1:1)}:function(e,t){if(e===t)return l=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e==C?-1:t==C?1:i?-1:o?1:u?P(u,e)-P(u,t):0;if(i===o)return pe(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?pe(a[r],s[r]):a[r]==p?-1:s[r]==p?1:0}),C},se.matches=function(e,t){return se(e,null,null,t)},se.matchesSelector=function(e,t){if(T(e),d.matchesSelector&&E&&!N[t+" "]&&(!s||!s.test(t))&&(!v||!v.test(t)))try{var n=c.call(e,t);if(n||d.disconnectedMatch||e.document&&11!==e.document.nodeType)return n}catch(e){N(t,!0)}return 0":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(te,ne),e[3]=(e[3]||e[4]||e[5]||"").replace(te,ne),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||se.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&se.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return G.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=h(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(te,ne).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=m[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&m(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(n,r,i){return function(e){var t=se.attr(e,n);return null==t?"!="===r:!r||(t+="","="===r?t===i:"!="===r?t!==i:"^="===r?i&&0===t.indexOf(i):"*="===r?i&&-1:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,n,r){return m(n)?S.grep(e,function(e,t){return!!n.call(e,t,e)!==r}):n.nodeType?S.grep(e,function(e){return e===n!==r}):"string"!=typeof n?S.grep(e,function(e){return-1)[^>]*|#([\w-]+))$/;(S.fn.init=function(e,t,n){var r,i;if(!e)return this;if(n=n||D,"string"==typeof e){if(!(r="<"===e[0]&&">"===e[e.length-1]&&3<=e.length?[null,e,null]:q.exec(e))||!r[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(r[1]){if(t=t instanceof S?t[0]:t,S.merge(this,S.parseHTML(r[1],t&&t.nodeType?t.ownerDocument||t:E,!0)),N.test(r[1])&&S.isPlainObject(t))for(r in t)m(this[r])?this[r](t[r]):this.attr(r,t[r]);return this}return(i=E.getElementById(r[2]))&&(this[0]=i,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):m(e)?void 0!==n.ready?n.ready(e):e(S):S.makeArray(e,this)}).prototype=S.fn,D=S(E);var L=/^(?:parents|prev(?:Until|All))/,H={children:!0,contents:!0,next:!0,prev:!0};function O(e,t){while((e=e[t])&&1!==e.nodeType);return e}S.fn.extend({has:function(e){var t=S(e,this),n=t.length;return this.filter(function(){for(var e=0;e\x20\t\r\n\f]*)/i,he=/^$|^module$|\/(?:java|ecma)script/i;ce=E.createDocumentFragment().appendChild(E.createElement("div")),(fe=E.createElement("input")).setAttribute("type","radio"),fe.setAttribute("checked","checked"),fe.setAttribute("name","t"),ce.appendChild(fe),y.checkClone=ce.cloneNode(!0).cloneNode(!0).lastChild.checked,ce.innerHTML="",y.noCloneChecked=!!ce.cloneNode(!0).lastChild.defaultValue,ce.innerHTML="",y.option=!!ce.lastChild;var ge={thead:[1,"","
    "],col:[2,"","
    "],tr:[2,"","
    "],td:[3,"","
    "],_default:[0,"",""]};function ve(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&A(e,t)?S.merge([e],n):n}function ye(e,t){for(var n=0,r=e.length;n",""]);var me=/<|&#?\w+;/;function xe(e,t,n,r,i){for(var o,a,s,u,l,c,f=t.createDocumentFragment(),p=[],d=0,h=e.length;d\s*$/g;function je(e,t){return A(e,"table")&&A(11!==t.nodeType?t:t.firstChild,"tr")&&S(e).children("tbody")[0]||e}function De(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function qe(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Le(e,t){var n,r,i,o,a,s;if(1===t.nodeType){if(Y.hasData(e)&&(s=Y.get(e).events))for(i in Y.remove(t,"handle events"),s)for(n=0,r=s[i].length;n").attr(n.scriptAttrs||{}).prop({charset:n.scriptCharset,src:n.url}).on("load error",i=function(e){r.remove(),i=null,e&&t("error"===e.type?404:200,e.type)}),E.head.appendChild(r[0])},abort:function(){i&&i()}}});var _t,zt=[],Ut=/(=)\?(?=&|$)|\?\?/;S.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=zt.pop()||S.expando+"_"+wt.guid++;return this[e]=!0,e}}),S.ajaxPrefilter("json jsonp",function(e,t,n){var r,i,o,a=!1!==e.jsonp&&(Ut.test(e.url)?"url":"string"==typeof e.data&&0===(e.contentType||"").indexOf("application/x-www-form-urlencoded")&&Ut.test(e.data)&&"data");if(a||"jsonp"===e.dataTypes[0])return r=e.jsonpCallback=m(e.jsonpCallback)?e.jsonpCallback():e.jsonpCallback,a?e[a]=e[a].replace(Ut,"$1"+r):!1!==e.jsonp&&(e.url+=(Tt.test(e.url)?"&":"?")+e.jsonp+"="+r),e.converters["script json"]=function(){return o||S.error(r+" was not called"),o[0]},e.dataTypes[0]="json",i=C[r],C[r]=function(){o=arguments},n.always(function(){void 0===i?S(C).removeProp(r):C[r]=i,e[r]&&(e.jsonpCallback=t.jsonpCallback,zt.push(r)),o&&m(i)&&i(o[0]),o=i=void 0}),"script"}),y.createHTMLDocument=((_t=E.implementation.createHTMLDocument("").body).innerHTML="
    ",2===_t.childNodes.length),S.parseHTML=function(e,t,n){return"string"!=typeof e?[]:("boolean"==typeof t&&(n=t,t=!1),t||(y.createHTMLDocument?((r=(t=E.implementation.createHTMLDocument("")).createElement("base")).href=E.location.href,t.head.appendChild(r)):t=E),o=!n&&[],(i=N.exec(e))?[t.createElement(i[1])]:(i=xe([e],t,o),o&&o.length&&S(o).remove(),S.merge([],i.childNodes)));var r,i,o},S.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return-1").append(S.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},S.expr.pseudos.animated=function(t){return S.grep(S.timers,function(e){return t===e.elem}).length},S.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l=S.css(e,"position"),c=S(e),f={};"static"===l&&(e.style.position="relative"),s=c.offset(),o=S.css(e,"top"),u=S.css(e,"left"),("absolute"===l||"fixed"===l)&&-1<(o+u).indexOf("auto")?(a=(r=c.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),m(t)&&(t=t.call(e,n,S.extend({},s))),null!=t.top&&(f.top=t.top-s.top+a),null!=t.left&&(f.left=t.left-s.left+i),"using"in t?t.using.call(e,f):c.css(f)}},S.fn.extend({offset:function(t){if(arguments.length)return void 0===t?this:this.each(function(e){S.offset.setOffset(this,t,e)});var e,n,r=this[0];return r?r.getClientRects().length?(e=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:e.top+n.pageYOffset,left:e.left+n.pageXOffset}):{top:0,left:0}:void 0},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===S.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===S.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=S(e).offset()).top+=S.css(e,"borderTopWidth",!0),i.left+=S.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-S.css(r,"marginTop",!0),left:t.left-i.left-S.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===S.css(e,"position"))e=e.offsetParent;return e||re})}}),S.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(t,i){var o="pageYOffset"===i;S.fn[t]=function(e){return $(this,function(e,t,n){var r;if(x(e)?r=e:9===e.nodeType&&(r=e.defaultView),void 0===n)return r?r[i]:e[t];r?r.scrollTo(o?r.pageXOffset:n,o?n:r.pageYOffset):e[t]=n},t,e,arguments.length)}}),S.each(["top","left"],function(e,n){S.cssHooks[n]=Fe(y.pixelPosition,function(e,t){if(t)return t=We(e,n),Pe.test(t)?S(e).position()[n]+"px":t})}),S.each({Height:"height",Width:"width"},function(a,s){S.each({padding:"inner"+a,content:s,"":"outer"+a},function(r,o){S.fn[o]=function(e,t){var n=arguments.length&&(r||"boolean"!=typeof e),i=r||(!0===e||!0===t?"margin":"border");return $(this,function(e,t,n){var r;return x(e)?0===o.indexOf("outer")?e["inner"+a]:e.document.documentElement["client"+a]:9===e.nodeType?(r=e.documentElement,Math.max(e.body["scroll"+a],r["scroll"+a],e.body["offset"+a],r["offset"+a],r["client"+a])):void 0===n?S.css(e,t,i):S.style(e,t,n,i)},s,n?e:void 0,n)}})}),S.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){S.fn[t]=function(e){return this.on(t,e)}}),S.fn.extend({bind:function(e,t,n){return this.on(e,null,t,n)},unbind:function(e,t){return this.off(e,null,t)},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)},hover:function(e,t){return this.mouseenter(e).mouseleave(t||e)}}),S.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,n){S.fn[n]=function(e,t){return 0a;a++)for(i in o[a])n=o[a][i],o[a].hasOwnProperty(i)&&void 0!==n&&(e[i]=t.isPlainObject(n)?t.isPlainObject(e[i])?t.widget.extend({},e[i],n):t.widget.extend({},n):n);return e},t.widget.bridge=function(e,i){var n=i.prototype.widgetFullName||e;t.fn[e]=function(o){var a="string"==typeof o,r=s.call(arguments,1),h=this;return a?this.length||"instance"!==o?this.each(function(){var i,s=t.data(this,n);return"instance"===o?(h=s,!1):s?t.isFunction(s[o])&&"_"!==o.charAt(0)?(i=s[o].apply(s,r),i!==s&&void 0!==i?(h=i&&i.jquery?h.pushStack(i.get()):i,!1):void 0):t.error("no such method '"+o+"' for "+e+" widget instance"):t.error("cannot call methods on "+e+" prior to initialization; "+"attempted to call method '"+o+"'")}):h=void 0:(r.length&&(o=t.widget.extend.apply(null,[o].concat(r))),this.each(function(){var e=t.data(this,n);e?(e.option(o||{}),e._init&&e._init()):t.data(this,n,new i(o,this))})),h}},t.Widget=function(){},t.Widget._childConstructors=[],t.Widget.prototype={widgetName:"widget",widgetEventPrefix:"",defaultElement:"
    ",options:{classes:{},disabled:!1,create:null},_createWidget:function(e,s){s=t(s||this.defaultElement||this)[0],this.element=t(s),this.uuid=i++,this.eventNamespace="."+this.widgetName+this.uuid,this.bindings=t(),this.hoverable=t(),this.focusable=t(),this.classesElementLookup={},s!==this&&(t.data(s,this.widgetFullName,this),this._on(!0,this.element,{remove:function(t){t.target===s&&this.destroy()}}),this.document=t(s.style?s.ownerDocument:s.document||s),this.window=t(this.document[0].defaultView||this.document[0].parentWindow)),this.options=t.widget.extend({},this.options,this._getCreateOptions(),e),this._create(),this.options.disabled&&this._setOptionDisabled(this.options.disabled),this._trigger("create",null,this._getCreateEventData()),this._init()},_getCreateOptions:function(){return{}},_getCreateEventData:t.noop,_create:t.noop,_init:t.noop,destroy:function(){var e=this;this._destroy(),t.each(this.classesElementLookup,function(t,i){e._removeClass(i,t)}),this.element.off(this.eventNamespace).removeData(this.widgetFullName),this.widget().off(this.eventNamespace).removeAttr("aria-disabled"),this.bindings.off(this.eventNamespace)},_destroy:t.noop,widget:function(){return this.element},option:function(e,i){var s,n,o,a=e;if(0===arguments.length)return t.widget.extend({},this.options);if("string"==typeof e)if(a={},s=e.split("."),e=s.shift(),s.length){for(n=a[e]=t.widget.extend({},this.options[e]),o=0;s.length-1>o;o++)n[s[o]]=n[s[o]]||{},n=n[s[o]];if(e=s.pop(),1===arguments.length)return void 0===n[e]?null:n[e];n[e]=i}else{if(1===arguments.length)return void 0===this.options[e]?null:this.options[e];a[e]=i}return this._setOptions(a),this},_setOptions:function(t){var e;for(e in t)this._setOption(e,t[e]);return this},_setOption:function(t,e){return"classes"===t&&this._setOptionClasses(e),this.options[t]=e,"disabled"===t&&this._setOptionDisabled(e),this},_setOptionClasses:function(e){var i,s,n;for(i in e)n=this.classesElementLookup[i],e[i]!==this.options.classes[i]&&n&&n.length&&(s=t(n.get()),this._removeClass(n,i),s.addClass(this._classes({element:s,keys:i,classes:e,add:!0})))},_setOptionDisabled:function(t){this._toggleClass(this.widget(),this.widgetFullName+"-disabled",null,!!t),t&&(this._removeClass(this.hoverable,null,"ui-state-hover"),this._removeClass(this.focusable,null,"ui-state-focus"))},enable:function(){return this._setOptions({disabled:!1})},disable:function(){return this._setOptions({disabled:!0})},_classes:function(e){function i(i,o){var a,r;for(r=0;i.length>r;r++)a=n.classesElementLookup[i[r]]||t(),a=e.add?t(t.unique(a.get().concat(e.element.get()))):t(a.not(e.element).get()),n.classesElementLookup[i[r]]=a,s.push(i[r]),o&&e.classes[i[r]]&&s.push(e.classes[i[r]])}var s=[],n=this;return e=t.extend({element:this.element,classes:this.options.classes||{}},e),this._on(e.element,{remove:"_untrackClassesElement"}),e.keys&&i(e.keys.match(/\S+/g)||[],!0),e.extra&&i(e.extra.match(/\S+/g)||[]),s.join(" ")},_untrackClassesElement:function(e){var i=this;t.each(i.classesElementLookup,function(s,n){-1!==t.inArray(e.target,n)&&(i.classesElementLookup[s]=t(n.not(e.target).get()))})},_removeClass:function(t,e,i){return this._toggleClass(t,e,i,!1)},_addClass:function(t,e,i){return this._toggleClass(t,e,i,!0)},_toggleClass:function(t,e,i,s){s="boolean"==typeof s?s:i;var n="string"==typeof t||null===t,o={extra:n?e:i,keys:n?t:e,element:n?this.element:t,add:s};return o.element.toggleClass(this._classes(o),s),this},_on:function(e,i,s){var n,o=this;"boolean"!=typeof e&&(s=i,i=e,e=!1),s?(i=n=t(i),this.bindings=this.bindings.add(i)):(s=i,i=this.element,n=this.widget()),t.each(s,function(s,a){function r(){return e||o.options.disabled!==!0&&!t(this).hasClass("ui-state-disabled")?("string"==typeof a?o[a]:a).apply(o,arguments):void 0}"string"!=typeof a&&(r.guid=a.guid=a.guid||r.guid||t.guid++);var h=s.match(/^([\w:-]*)\s*(.*)$/),l=h[1]+o.eventNamespace,c=h[2];c?n.on(l,c,r):i.on(l,r)})},_off:function(e,i){i=(i||"").split(" ").join(this.eventNamespace+" ")+this.eventNamespace,e.off(i).off(i),this.bindings=t(this.bindings.not(e).get()),this.focusable=t(this.focusable.not(e).get()),this.hoverable=t(this.hoverable.not(e).get())},_delay:function(t,e){function i(){return("string"==typeof t?s[t]:t).apply(s,arguments)}var s=this;return setTimeout(i,e||0)},_hoverable:function(e){this.hoverable=this.hoverable.add(e),this._on(e,{mouseenter:function(e){this._addClass(t(e.currentTarget),null,"ui-state-hover")},mouseleave:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-hover")}})},_focusable:function(e){this.focusable=this.focusable.add(e),this._on(e,{focusin:function(e){this._addClass(t(e.currentTarget),null,"ui-state-focus")},focusout:function(e){this._removeClass(t(e.currentTarget),null,"ui-state-focus")}})},_trigger:function(e,i,s){var n,o,a=this.options[e];if(s=s||{},i=t.Event(i),i.type=(e===this.widgetEventPrefix?e:this.widgetEventPrefix+e).toLowerCase(),i.target=this.element[0],o=i.originalEvent)for(n in o)n in i||(i[n]=o[n]);return this.element.trigger(i,s),!(t.isFunction(a)&&a.apply(this.element[0],[i].concat(s))===!1||i.isDefaultPrevented())}},t.each({show:"fadeIn",hide:"fadeOut"},function(e,i){t.Widget.prototype["_"+e]=function(s,n,o){"string"==typeof n&&(n={effect:n});var a,r=n?n===!0||"number"==typeof n?i:n.effect||i:e;n=n||{},"number"==typeof n&&(n={duration:n}),a=!t.isEmptyObject(n),n.complete=o,n.delay&&s.delay(n.delay),a&&t.effects&&t.effects.effect[r]?s[e](n):r!==e&&s[r]?s[r](n.duration,n.easing,o):s.queue(function(i){t(this)[e](),o&&o.call(s[0]),i()})}}),t.widget,function(){function e(t,e,i){return[parseFloat(t[0])*(u.test(t[0])?e/100:1),parseFloat(t[1])*(u.test(t[1])?i/100:1)]}function i(e,i){return parseInt(t.css(e,i),10)||0}function s(e){var i=e[0];return 9===i.nodeType?{width:e.width(),height:e.height(),offset:{top:0,left:0}}:t.isWindow(i)?{width:e.width(),height:e.height(),offset:{top:e.scrollTop(),left:e.scrollLeft()}}:i.preventDefault?{width:0,height:0,offset:{top:i.pageY,left:i.pageX}}:{width:e.outerWidth(),height:e.outerHeight(),offset:e.offset()}}var n,o=Math.max,a=Math.abs,r=/left|center|right/,h=/top|center|bottom/,l=/[\+\-]\d+(\.[\d]+)?%?/,c=/^\w+/,u=/%$/,d=t.fn.position;t.position={scrollbarWidth:function(){if(void 0!==n)return n;var e,i,s=t("
    "),o=s.children()[0];return t("body").append(s),e=o.offsetWidth,s.css("overflow","scroll"),i=o.offsetWidth,e===i&&(i=s[0].clientWidth),s.remove(),n=e-i},getScrollInfo:function(e){var i=e.isWindow||e.isDocument?"":e.element.css("overflow-x"),s=e.isWindow||e.isDocument?"":e.element.css("overflow-y"),n="scroll"===i||"auto"===i&&e.widthi?"left":e>0?"right":"center",vertical:0>r?"top":s>0?"bottom":"middle"};l>p&&p>a(e+i)&&(u.horizontal="center"),c>f&&f>a(s+r)&&(u.vertical="middle"),u.important=o(a(e),a(i))>o(a(s),a(r))?"horizontal":"vertical",n.using.call(this,t,u)}),h.offset(t.extend(D,{using:r}))})},t.ui.position={fit:{left:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollLeft:s.offset.left,a=s.width,r=t.left-e.collisionPosition.marginLeft,h=n-r,l=r+e.collisionWidth-a-n;e.collisionWidth>a?h>0&&0>=l?(i=t.left+h+e.collisionWidth-a-n,t.left+=h-i):t.left=l>0&&0>=h?n:h>l?n+a-e.collisionWidth:n:h>0?t.left+=h:l>0?t.left-=l:t.left=o(t.left-r,t.left)},top:function(t,e){var i,s=e.within,n=s.isWindow?s.scrollTop:s.offset.top,a=e.within.height,r=t.top-e.collisionPosition.marginTop,h=n-r,l=r+e.collisionHeight-a-n;e.collisionHeight>a?h>0&&0>=l?(i=t.top+h+e.collisionHeight-a-n,t.top+=h-i):t.top=l>0&&0>=h?n:h>l?n+a-e.collisionHeight:n:h>0?t.top+=h:l>0?t.top-=l:t.top=o(t.top-r,t.top)}},flip:{left:function(t,e){var i,s,n=e.within,o=n.offset.left+n.scrollLeft,r=n.width,h=n.isWindow?n.scrollLeft:n.offset.left,l=t.left-e.collisionPosition.marginLeft,c=l-h,u=l+e.collisionWidth-r-h,d="left"===e.my[0]?-e.elemWidth:"right"===e.my[0]?e.elemWidth:0,p="left"===e.at[0]?e.targetWidth:"right"===e.at[0]?-e.targetWidth:0,f=-2*e.offset[0];0>c?(i=t.left+d+p+f+e.collisionWidth-r-o,(0>i||a(c)>i)&&(t.left+=d+p+f)):u>0&&(s=t.left-e.collisionPosition.marginLeft+d+p+f-h,(s>0||u>a(s))&&(t.left+=d+p+f))},top:function(t,e){var i,s,n=e.within,o=n.offset.top+n.scrollTop,r=n.height,h=n.isWindow?n.scrollTop:n.offset.top,l=t.top-e.collisionPosition.marginTop,c=l-h,u=l+e.collisionHeight-r-h,d="top"===e.my[1],p=d?-e.elemHeight:"bottom"===e.my[1]?e.elemHeight:0,f="top"===e.at[1]?e.targetHeight:"bottom"===e.at[1]?-e.targetHeight:0,m=-2*e.offset[1];0>c?(s=t.top+p+f+m+e.collisionHeight-r-o,(0>s||a(c)>s)&&(t.top+=p+f+m)):u>0&&(i=t.top-e.collisionPosition.marginTop+p+f+m-h,(i>0||u>a(i))&&(t.top+=p+f+m))}},flipfit:{left:function(){t.ui.position.flip.left.apply(this,arguments),t.ui.position.fit.left.apply(this,arguments)},top:function(){t.ui.position.flip.top.apply(this,arguments),t.ui.position.fit.top.apply(this,arguments)}}}}(),t.ui.position,t.extend(t.expr[":"],{data:t.expr.createPseudo?t.expr.createPseudo(function(e){return function(i){return!!t.data(i,e)}}):function(e,i,s){return!!t.data(e,s[3])}}),t.fn.extend({disableSelection:function(){var t="onselectstart"in document.createElement("div")?"selectstart":"mousedown";return function(){return this.on(t+".ui-disableSelection",function(t){t.preventDefault()})}}(),enableSelection:function(){return this.off(".ui-disableSelection")}}),t.ui.focusable=function(i,s){var n,o,a,r,h,l=i.nodeName.toLowerCase();return"area"===l?(n=i.parentNode,o=n.name,i.href&&o&&"map"===n.nodeName.toLowerCase()?(a=t("img[usemap='#"+o+"']"),a.length>0&&a.is(":visible")):!1):(/^(input|select|textarea|button|object)$/.test(l)?(r=!i.disabled,r&&(h=t(i).closest("fieldset")[0],h&&(r=!h.disabled))):r="a"===l?i.href||s:s,r&&t(i).is(":visible")&&e(t(i)))},t.extend(t.expr[":"],{focusable:function(e){return t.ui.focusable(e,null!=t.attr(e,"tabindex"))}}),t.ui.focusable,t.fn.form=function(){return"string"==typeof this[0].form?this.closest("form"):t(this[0].form)},t.ui.formResetMixin={_formResetHandler:function(){var e=t(this);setTimeout(function(){var i=e.data("ui-form-reset-instances");t.each(i,function(){this.refresh()})})},_bindFormResetHandler:function(){if(this.form=this.element.form(),this.form.length){var t=this.form.data("ui-form-reset-instances")||[];t.length||this.form.on("reset.ui-form-reset",this._formResetHandler),t.push(this),this.form.data("ui-form-reset-instances",t)}},_unbindFormResetHandler:function(){if(this.form.length){var e=this.form.data("ui-form-reset-instances");e.splice(t.inArray(this,e),1),e.length?this.form.data("ui-form-reset-instances",e):this.form.removeData("ui-form-reset-instances").off("reset.ui-form-reset")}}},"1.7"===t.fn.jquery.substring(0,3)&&(t.each(["Width","Height"],function(e,i){function s(e,i,s,o){return t.each(n,function(){i-=parseFloat(t.css(e,"padding"+this))||0,s&&(i-=parseFloat(t.css(e,"border"+this+"Width"))||0),o&&(i-=parseFloat(t.css(e,"margin"+this))||0)}),i}var n="Width"===i?["Left","Right"]:["Top","Bottom"],o=i.toLowerCase(),a={innerWidth:t.fn.innerWidth,innerHeight:t.fn.innerHeight,outerWidth:t.fn.outerWidth,outerHeight:t.fn.outerHeight};t.fn["inner"+i]=function(e){return void 0===e?a["inner"+i].call(this):this.each(function(){t(this).css(o,s(this,e)+"px")})},t.fn["outer"+i]=function(e,n){return"number"!=typeof e?a["outer"+i].call(this,e):this.each(function(){t(this).css(o,s(this,e,!0,n)+"px")})}}),t.fn.addBack=function(t){return this.add(null==t?this.prevObject:this.prevObject.filter(t))}),t.ui.keyCode={BACKSPACE:8,COMMA:188,DELETE:46,DOWN:40,END:35,ENTER:13,ESCAPE:27,HOME:36,LEFT:37,PAGE_DOWN:34,PAGE_UP:33,PERIOD:190,RIGHT:39,SPACE:32,TAB:9,UP:38},t.ui.escapeSelector=function(){var t=/([!"#$%&'()*+,./:;<=>?@[\]^`{|}~])/g;return function(e){return e.replace(t,"\\$1")}}(),t.fn.labels=function(){var e,i,s,n,o;return this[0].labels&&this[0].labels.length?this.pushStack(this[0].labels):(n=this.eq(0).parents("label"),s=this.attr("id"),s&&(e=this.eq(0).parents().last(),o=e.add(e.length?e.siblings():this.siblings()),i="label[for='"+t.ui.escapeSelector(s)+"']",n=n.add(o.find(i).addBack(i))),this.pushStack(n))},t.fn.scrollParent=function(e){var i=this.css("position"),s="absolute"===i,n=e?/(auto|scroll|hidden)/:/(auto|scroll)/,o=this.parents().filter(function(){var e=t(this);return s&&"static"===e.css("position")?!1:n.test(e.css("overflow")+e.css("overflow-y")+e.css("overflow-x"))}).eq(0);return"fixed"!==i&&o.length?o:t(this[0].ownerDocument||document)},t.extend(t.expr[":"],{tabbable:function(e){var i=t.attr(e,"tabindex"),s=null!=i;return(!s||i>=0)&&t.ui.focusable(e,s)}}),t.fn.extend({uniqueId:function(){var t=0;return function(){return this.each(function(){this.id||(this.id="ui-id-"+ ++t)})}}(),removeUniqueId:function(){return this.each(function(){/^ui-id-\d+$/.test(this.id)&&t(this).removeAttr("id")})}}),t.ui.ie=!!/msie [\w.]+/.exec(navigator.userAgent.toLowerCase());var n=!1;t(document).on("mouseup",function(){n=!1}),t.widget("ui.mouse",{version:"1.12.1",options:{cancel:"input, textarea, button, select, option",distance:1,delay:0},_mouseInit:function(){var e=this;this.element.on("mousedown."+this.widgetName,function(t){return e._mouseDown(t)}).on("click."+this.widgetName,function(i){return!0===t.data(i.target,e.widgetName+".preventClickEvent")?(t.removeData(i.target,e.widgetName+".preventClickEvent"),i.stopImmediatePropagation(),!1):void 0}),this.started=!1},_mouseDestroy:function(){this.element.off("."+this.widgetName),this._mouseMoveDelegate&&this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate)},_mouseDown:function(e){if(!n){this._mouseMoved=!1,this._mouseStarted&&this._mouseUp(e),this._mouseDownEvent=e;var i=this,s=1===e.which,o="string"==typeof this.options.cancel&&e.target.nodeName?t(e.target).closest(this.options.cancel).length:!1;return s&&!o&&this._mouseCapture(e)?(this.mouseDelayMet=!this.options.delay,this.mouseDelayMet||(this._mouseDelayTimer=setTimeout(function(){i.mouseDelayMet=!0},this.options.delay)),this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(e)!==!1,!this._mouseStarted)?(e.preventDefault(),!0):(!0===t.data(e.target,this.widgetName+".preventClickEvent")&&t.removeData(e.target,this.widgetName+".preventClickEvent"),this._mouseMoveDelegate=function(t){return i._mouseMove(t)},this._mouseUpDelegate=function(t){return i._mouseUp(t)},this.document.on("mousemove."+this.widgetName,this._mouseMoveDelegate).on("mouseup."+this.widgetName,this._mouseUpDelegate),e.preventDefault(),n=!0,!0)):!0}},_mouseMove:function(e){if(this._mouseMoved){if(t.ui.ie&&(!document.documentMode||9>document.documentMode)&&!e.button)return this._mouseUp(e);if(!e.which)if(e.originalEvent.altKey||e.originalEvent.ctrlKey||e.originalEvent.metaKey||e.originalEvent.shiftKey)this.ignoreMissingWhich=!0;else if(!this.ignoreMissingWhich)return this._mouseUp(e)}return(e.which||e.button)&&(this._mouseMoved=!0),this._mouseStarted?(this._mouseDrag(e),e.preventDefault()):(this._mouseDistanceMet(e)&&this._mouseDelayMet(e)&&(this._mouseStarted=this._mouseStart(this._mouseDownEvent,e)!==!1,this._mouseStarted?this._mouseDrag(e):this._mouseUp(e)),!this._mouseStarted)},_mouseUp:function(e){this.document.off("mousemove."+this.widgetName,this._mouseMoveDelegate).off("mouseup."+this.widgetName,this._mouseUpDelegate),this._mouseStarted&&(this._mouseStarted=!1,e.target===this._mouseDownEvent.target&&t.data(e.target,this.widgetName+".preventClickEvent",!0),this._mouseStop(e)),this._mouseDelayTimer&&(clearTimeout(this._mouseDelayTimer),delete this._mouseDelayTimer),this.ignoreMissingWhich=!1,n=!1,e.preventDefault()},_mouseDistanceMet:function(t){return Math.max(Math.abs(this._mouseDownEvent.pageX-t.pageX),Math.abs(this._mouseDownEvent.pageY-t.pageY))>=this.options.distance},_mouseDelayMet:function(){return this.mouseDelayMet},_mouseStart:function(){},_mouseDrag:function(){},_mouseStop:function(){},_mouseCapture:function(){return!0}}),t.ui.plugin={add:function(e,i,s){var n,o=t.ui[e].prototype;for(n in s)o.plugins[n]=o.plugins[n]||[],o.plugins[n].push([i,s[n]])},call:function(t,e,i,s){var n,o=t.plugins[e];if(o&&(s||t.element[0].parentNode&&11!==t.element[0].parentNode.nodeType))for(n=0;o.length>n;n++)t.options[o[n][0]]&&o[n][1].apply(t.element,i)}},t.widget("ui.resizable",t.ui.mouse,{version:"1.12.1",widgetEventPrefix:"resize",options:{alsoResize:!1,animate:!1,animateDuration:"slow",animateEasing:"swing",aspectRatio:!1,autoHide:!1,classes:{"ui-resizable-se":"ui-icon ui-icon-gripsmall-diagonal-se"},containment:!1,ghost:!1,grid:!1,handles:"e,s,se",helper:!1,maxHeight:null,maxWidth:null,minHeight:10,minWidth:10,zIndex:90,resize:null,start:null,stop:null},_num:function(t){return parseFloat(t)||0},_isNumber:function(t){return!isNaN(parseFloat(t))},_hasScroll:function(e,i){if("hidden"===t(e).css("overflow"))return!1;var s=i&&"left"===i?"scrollLeft":"scrollTop",n=!1;return e[s]>0?!0:(e[s]=1,n=e[s]>0,e[s]=0,n)},_create:function(){var e,i=this.options,s=this;this._addClass("ui-resizable"),t.extend(this,{_aspectRatio:!!i.aspectRatio,aspectRatio:i.aspectRatio,originalElement:this.element,_proportionallyResizeElements:[],_helper:i.helper||i.ghost||i.animate?i.helper||"ui-resizable-helper":null}),this.element[0].nodeName.match(/^(canvas|textarea|input|select|button|img)$/i)&&(this.element.wrap(t("
    ").css({position:this.element.css("position"),width:this.element.outerWidth(),height:this.element.outerHeight(),top:this.element.css("top"),left:this.element.css("left")})),this.element=this.element.parent().data("ui-resizable",this.element.resizable("instance")),this.elementIsWrapper=!0,e={marginTop:this.originalElement.css("marginTop"),marginRight:this.originalElement.css("marginRight"),marginBottom:this.originalElement.css("marginBottom"),marginLeft:this.originalElement.css("marginLeft")},this.element.css(e),this.originalElement.css("margin",0),this.originalResizeStyle=this.originalElement.css("resize"),this.originalElement.css("resize","none"),this._proportionallyResizeElements.push(this.originalElement.css({position:"static",zoom:1,display:"block"})),this.originalElement.css(e),this._proportionallyResize()),this._setupHandles(),i.autoHide&&t(this.element).on("mouseenter",function(){i.disabled||(s._removeClass("ui-resizable-autohide"),s._handles.show())}).on("mouseleave",function(){i.disabled||s.resizing||(s._addClass("ui-resizable-autohide"),s._handles.hide())}),this._mouseInit()},_destroy:function(){this._mouseDestroy();var e,i=function(e){t(e).removeData("resizable").removeData("ui-resizable").off(".resizable").find(".ui-resizable-handle").remove()};return this.elementIsWrapper&&(i(this.element),e=this.element,this.originalElement.css({position:e.css("position"),width:e.outerWidth(),height:e.outerHeight(),top:e.css("top"),left:e.css("left")}).insertAfter(e),e.remove()),this.originalElement.css("resize",this.originalResizeStyle),i(this.originalElement),this},_setOption:function(t,e){switch(this._super(t,e),t){case"handles":this._removeHandles(),this._setupHandles();break;default:}},_setupHandles:function(){var e,i,s,n,o,a=this.options,r=this;if(this.handles=a.handles||(t(".ui-resizable-handle",this.element).length?{n:".ui-resizable-n",e:".ui-resizable-e",s:".ui-resizable-s",w:".ui-resizable-w",se:".ui-resizable-se",sw:".ui-resizable-sw",ne:".ui-resizable-ne",nw:".ui-resizable-nw"}:"e,s,se"),this._handles=t(),this.handles.constructor===String)for("all"===this.handles&&(this.handles="n,e,s,w,se,sw,ne,nw"),s=this.handles.split(","),this.handles={},i=0;s.length>i;i++)e=t.trim(s[i]),n="ui-resizable-"+e,o=t("
    "),this._addClass(o,"ui-resizable-handle "+n),o.css({zIndex:a.zIndex}),this.handles[e]=".ui-resizable-"+e,this.element.append(o);this._renderAxis=function(e){var i,s,n,o;e=e||this.element;for(i in this.handles)this.handles[i].constructor===String?this.handles[i]=this.element.children(this.handles[i]).first().show():(this.handles[i].jquery||this.handles[i].nodeType)&&(this.handles[i]=t(this.handles[i]),this._on(this.handles[i],{mousedown:r._mouseDown})),this.elementIsWrapper&&this.originalElement[0].nodeName.match(/^(textarea|input|select|button)$/i)&&(s=t(this.handles[i],this.element),o=/sw|ne|nw|se|n|s/.test(i)?s.outerHeight():s.outerWidth(),n=["padding",/ne|nw|n/.test(i)?"Top":/se|sw|s/.test(i)?"Bottom":/^e$/.test(i)?"Right":"Left"].join(""),e.css(n,o),this._proportionallyResize()),this._handles=this._handles.add(this.handles[i])},this._renderAxis(this.element),this._handles=this._handles.add(this.element.find(".ui-resizable-handle")),this._handles.disableSelection(),this._handles.on("mouseover",function(){r.resizing||(this.className&&(o=this.className.match(/ui-resizable-(se|sw|ne|nw|n|e|s|w)/i)),r.axis=o&&o[1]?o[1]:"se")}),a.autoHide&&(this._handles.hide(),this._addClass("ui-resizable-autohide"))},_removeHandles:function(){this._handles.remove()},_mouseCapture:function(e){var i,s,n=!1;for(i in this.handles)s=t(this.handles[i])[0],(s===e.target||t.contains(s,e.target))&&(n=!0);return!this.options.disabled&&n},_mouseStart:function(e){var i,s,n,o=this.options,a=this.element;return this.resizing=!0,this._renderProxy(),i=this._num(this.helper.css("left")),s=this._num(this.helper.css("top")),o.containment&&(i+=t(o.containment).scrollLeft()||0,s+=t(o.containment).scrollTop()||0),this.offset=this.helper.offset(),this.position={left:i,top:s},this.size=this._helper?{width:this.helper.width(),height:this.helper.height()}:{width:a.width(),height:a.height()},this.originalSize=this._helper?{width:a.outerWidth(),height:a.outerHeight()}:{width:a.width(),height:a.height()},this.sizeDiff={width:a.outerWidth()-a.width(),height:a.outerHeight()-a.height()},this.originalPosition={left:i,top:s},this.originalMousePosition={left:e.pageX,top:e.pageY},this.aspectRatio="number"==typeof o.aspectRatio?o.aspectRatio:this.originalSize.width/this.originalSize.height||1,n=t(".ui-resizable-"+this.axis).css("cursor"),t("body").css("cursor","auto"===n?this.axis+"-resize":n),this._addClass("ui-resizable-resizing"),this._propagate("start",e),!0},_mouseDrag:function(e){var i,s,n=this.originalMousePosition,o=this.axis,a=e.pageX-n.left||0,r=e.pageY-n.top||0,h=this._change[o];return this._updatePrevProperties(),h?(i=h.apply(this,[e,a,r]),this._updateVirtualBoundaries(e.shiftKey),(this._aspectRatio||e.shiftKey)&&(i=this._updateRatio(i,e)),i=this._respectSize(i,e),this._updateCache(i),this._propagate("resize",e),s=this._applyChanges(),!this._helper&&this._proportionallyResizeElements.length&&this._proportionallyResize(),t.isEmptyObject(s)||(this._updatePrevProperties(),this._trigger("resize",e,this.ui()),this._applyChanges()),!1):!1},_mouseStop:function(e){this.resizing=!1;var i,s,n,o,a,r,h,l=this.options,c=this;return this._helper&&(i=this._proportionallyResizeElements,s=i.length&&/textarea/i.test(i[0].nodeName),n=s&&this._hasScroll(i[0],"left")?0:c.sizeDiff.height,o=s?0:c.sizeDiff.width,a={width:c.helper.width()-o,height:c.helper.height()-n},r=parseFloat(c.element.css("left"))+(c.position.left-c.originalPosition.left)||null,h=parseFloat(c.element.css("top"))+(c.position.top-c.originalPosition.top)||null,l.animate||this.element.css(t.extend(a,{top:h,left:r})),c.helper.height(c.size.height),c.helper.width(c.size.width),this._helper&&!l.animate&&this._proportionallyResize()),t("body").css("cursor","auto"),this._removeClass("ui-resizable-resizing"),this._propagate("stop",e),this._helper&&this.helper.remove(),!1},_updatePrevProperties:function(){this.prevPosition={top:this.position.top,left:this.position.left},this.prevSize={width:this.size.width,height:this.size.height}},_applyChanges:function(){var t={};return this.position.top!==this.prevPosition.top&&(t.top=this.position.top+"px"),this.position.left!==this.prevPosition.left&&(t.left=this.position.left+"px"),this.size.width!==this.prevSize.width&&(t.width=this.size.width+"px"),this.size.height!==this.prevSize.height&&(t.height=this.size.height+"px"),this.helper.css(t),t},_updateVirtualBoundaries:function(t){var e,i,s,n,o,a=this.options;o={minWidth:this._isNumber(a.minWidth)?a.minWidth:0,maxWidth:this._isNumber(a.maxWidth)?a.maxWidth:1/0,minHeight:this._isNumber(a.minHeight)?a.minHeight:0,maxHeight:this._isNumber(a.maxHeight)?a.maxHeight:1/0},(this._aspectRatio||t)&&(e=o.minHeight*this.aspectRatio,s=o.minWidth/this.aspectRatio,i=o.maxHeight*this.aspectRatio,n=o.maxWidth/this.aspectRatio,e>o.minWidth&&(o.minWidth=e),s>o.minHeight&&(o.minHeight=s),o.maxWidth>i&&(o.maxWidth=i),o.maxHeight>n&&(o.maxHeight=n)),this._vBoundaries=o},_updateCache:function(t){this.offset=this.helper.offset(),this._isNumber(t.left)&&(this.position.left=t.left),this._isNumber(t.top)&&(this.position.top=t.top),this._isNumber(t.height)&&(this.size.height=t.height),this._isNumber(t.width)&&(this.size.width=t.width)},_updateRatio:function(t){var e=this.position,i=this.size,s=this.axis;return this._isNumber(t.height)?t.width=t.height*this.aspectRatio:this._isNumber(t.width)&&(t.height=t.width/this.aspectRatio),"sw"===s&&(t.left=e.left+(i.width-t.width),t.top=null),"nw"===s&&(t.top=e.top+(i.height-t.height),t.left=e.left+(i.width-t.width)),t},_respectSize:function(t){var e=this._vBoundaries,i=this.axis,s=this._isNumber(t.width)&&e.maxWidth&&e.maxWidtht.width,a=this._isNumber(t.height)&&e.minHeight&&e.minHeight>t.height,r=this.originalPosition.left+this.originalSize.width,h=this.originalPosition.top+this.originalSize.height,l=/sw|nw|w/.test(i),c=/nw|ne|n/.test(i);return o&&(t.width=e.minWidth),a&&(t.height=e.minHeight),s&&(t.width=e.maxWidth),n&&(t.height=e.maxHeight),o&&l&&(t.left=r-e.minWidth),s&&l&&(t.left=r-e.maxWidth),a&&c&&(t.top=h-e.minHeight),n&&c&&(t.top=h-e.maxHeight),t.width||t.height||t.left||!t.top?t.width||t.height||t.top||!t.left||(t.left=null):t.top=null,t},_getPaddingPlusBorderDimensions:function(t){for(var e=0,i=[],s=[t.css("borderTopWidth"),t.css("borderRightWidth"),t.css("borderBottomWidth"),t.css("borderLeftWidth")],n=[t.css("paddingTop"),t.css("paddingRight"),t.css("paddingBottom"),t.css("paddingLeft")];4>e;e++)i[e]=parseFloat(s[e])||0,i[e]+=parseFloat(n[e])||0;return{height:i[0]+i[2],width:i[1]+i[3]}},_proportionallyResize:function(){if(this._proportionallyResizeElements.length)for(var t,e=0,i=this.helper||this.element;this._proportionallyResizeElements.length>e;e++)t=this._proportionallyResizeElements[e],this.outerDimensions||(this.outerDimensions=this._getPaddingPlusBorderDimensions(t)),t.css({height:i.height()-this.outerDimensions.height||0,width:i.width()-this.outerDimensions.width||0})},_renderProxy:function(){var e=this.element,i=this.options;this.elementOffset=e.offset(),this._helper?(this.helper=this.helper||t("
    "),this._addClass(this.helper,this._helper),this.helper.css({width:this.element.outerWidth(),height:this.element.outerHeight(),position:"absolute",left:this.elementOffset.left+"px",top:this.elementOffset.top+"px",zIndex:++i.zIndex}),this.helper.appendTo("body").disableSelection()):this.helper=this.element -},_change:{e:function(t,e){return{width:this.originalSize.width+e}},w:function(t,e){var i=this.originalSize,s=this.originalPosition;return{left:s.left+e,width:i.width-e}},n:function(t,e,i){var s=this.originalSize,n=this.originalPosition;return{top:n.top+i,height:s.height-i}},s:function(t,e,i){return{height:this.originalSize.height+i}},se:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},sw:function(e,i,s){return t.extend(this._change.s.apply(this,arguments),this._change.w.apply(this,[e,i,s]))},ne:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.e.apply(this,[e,i,s]))},nw:function(e,i,s){return t.extend(this._change.n.apply(this,arguments),this._change.w.apply(this,[e,i,s]))}},_propagate:function(e,i){t.ui.plugin.call(this,e,[i,this.ui()]),"resize"!==e&&this._trigger(e,i,this.ui())},plugins:{},ui:function(){return{originalElement:this.originalElement,element:this.element,helper:this.helper,position:this.position,size:this.size,originalSize:this.originalSize,originalPosition:this.originalPosition}}}),t.ui.plugin.add("resizable","animate",{stop:function(e){var i=t(this).resizable("instance"),s=i.options,n=i._proportionallyResizeElements,o=n.length&&/textarea/i.test(n[0].nodeName),a=o&&i._hasScroll(n[0],"left")?0:i.sizeDiff.height,r=o?0:i.sizeDiff.width,h={width:i.size.width-r,height:i.size.height-a},l=parseFloat(i.element.css("left"))+(i.position.left-i.originalPosition.left)||null,c=parseFloat(i.element.css("top"))+(i.position.top-i.originalPosition.top)||null;i.element.animate(t.extend(h,c&&l?{top:c,left:l}:{}),{duration:s.animateDuration,easing:s.animateEasing,step:function(){var s={width:parseFloat(i.element.css("width")),height:parseFloat(i.element.css("height")),top:parseFloat(i.element.css("top")),left:parseFloat(i.element.css("left"))};n&&n.length&&t(n[0]).css({width:s.width,height:s.height}),i._updateCache(s),i._propagate("resize",e)}})}}),t.ui.plugin.add("resizable","containment",{start:function(){var e,i,s,n,o,a,r,h=t(this).resizable("instance"),l=h.options,c=h.element,u=l.containment,d=u instanceof t?u.get(0):/parent/.test(u)?c.parent().get(0):u;d&&(h.containerElement=t(d),/document/.test(u)||u===document?(h.containerOffset={left:0,top:0},h.containerPosition={left:0,top:0},h.parentData={element:t(document),left:0,top:0,width:t(document).width(),height:t(document).height()||document.body.parentNode.scrollHeight}):(e=t(d),i=[],t(["Top","Right","Left","Bottom"]).each(function(t,s){i[t]=h._num(e.css("padding"+s))}),h.containerOffset=e.offset(),h.containerPosition=e.position(),h.containerSize={height:e.innerHeight()-i[3],width:e.innerWidth()-i[1]},s=h.containerOffset,n=h.containerSize.height,o=h.containerSize.width,a=h._hasScroll(d,"left")?d.scrollWidth:o,r=h._hasScroll(d)?d.scrollHeight:n,h.parentData={element:d,left:s.left,top:s.top,width:a,height:r}))},resize:function(e){var i,s,n,o,a=t(this).resizable("instance"),r=a.options,h=a.containerOffset,l=a.position,c=a._aspectRatio||e.shiftKey,u={top:0,left:0},d=a.containerElement,p=!0;d[0]!==document&&/static/.test(d.css("position"))&&(u=h),l.left<(a._helper?h.left:0)&&(a.size.width=a.size.width+(a._helper?a.position.left-h.left:a.position.left-u.left),c&&(a.size.height=a.size.width/a.aspectRatio,p=!1),a.position.left=r.helper?h.left:0),l.top<(a._helper?h.top:0)&&(a.size.height=a.size.height+(a._helper?a.position.top-h.top:a.position.top),c&&(a.size.width=a.size.height*a.aspectRatio,p=!1),a.position.top=a._helper?h.top:0),n=a.containerElement.get(0)===a.element.parent().get(0),o=/relative|absolute/.test(a.containerElement.css("position")),n&&o?(a.offset.left=a.parentData.left+a.position.left,a.offset.top=a.parentData.top+a.position.top):(a.offset.left=a.element.offset().left,a.offset.top=a.element.offset().top),i=Math.abs(a.sizeDiff.width+(a._helper?a.offset.left-u.left:a.offset.left-h.left)),s=Math.abs(a.sizeDiff.height+(a._helper?a.offset.top-u.top:a.offset.top-h.top)),i+a.size.width>=a.parentData.width&&(a.size.width=a.parentData.width-i,c&&(a.size.height=a.size.width/a.aspectRatio,p=!1)),s+a.size.height>=a.parentData.height&&(a.size.height=a.parentData.height-s,c&&(a.size.width=a.size.height*a.aspectRatio,p=!1)),p||(a.position.left=a.prevPosition.left,a.position.top=a.prevPosition.top,a.size.width=a.prevSize.width,a.size.height=a.prevSize.height)},stop:function(){var e=t(this).resizable("instance"),i=e.options,s=e.containerOffset,n=e.containerPosition,o=e.containerElement,a=t(e.helper),r=a.offset(),h=a.outerWidth()-e.sizeDiff.width,l=a.outerHeight()-e.sizeDiff.height;e._helper&&!i.animate&&/relative/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l}),e._helper&&!i.animate&&/static/.test(o.css("position"))&&t(this).css({left:r.left-n.left-s.left,width:h,height:l})}}),t.ui.plugin.add("resizable","alsoResize",{start:function(){var e=t(this).resizable("instance"),i=e.options;t(i.alsoResize).each(function(){var e=t(this);e.data("ui-resizable-alsoresize",{width:parseFloat(e.width()),height:parseFloat(e.height()),left:parseFloat(e.css("left")),top:parseFloat(e.css("top"))})})},resize:function(e,i){var s=t(this).resizable("instance"),n=s.options,o=s.originalSize,a=s.originalPosition,r={height:s.size.height-o.height||0,width:s.size.width-o.width||0,top:s.position.top-a.top||0,left:s.position.left-a.left||0};t(n.alsoResize).each(function(){var e=t(this),s=t(this).data("ui-resizable-alsoresize"),n={},o=e.parents(i.originalElement[0]).length?["width","height"]:["width","height","top","left"];t.each(o,function(t,e){var i=(s[e]||0)+(r[e]||0);i&&i>=0&&(n[e]=i||null)}),e.css(n)})},stop:function(){t(this).removeData("ui-resizable-alsoresize")}}),t.ui.plugin.add("resizable","ghost",{start:function(){var e=t(this).resizable("instance"),i=e.size;e.ghost=e.originalElement.clone(),e.ghost.css({opacity:.25,display:"block",position:"relative",height:i.height,width:i.width,margin:0,left:0,top:0}),e._addClass(e.ghost,"ui-resizable-ghost"),t.uiBackCompat!==!1&&"string"==typeof e.options.ghost&&e.ghost.addClass(this.options.ghost),e.ghost.appendTo(e.helper)},resize:function(){var e=t(this).resizable("instance");e.ghost&&e.ghost.css({position:"relative",height:e.size.height,width:e.size.width})},stop:function(){var e=t(this).resizable("instance");e.ghost&&e.helper&&e.helper.get(0).removeChild(e.ghost.get(0))}}),t.ui.plugin.add("resizable","grid",{resize:function(){var e,i=t(this).resizable("instance"),s=i.options,n=i.size,o=i.originalSize,a=i.originalPosition,r=i.axis,h="number"==typeof s.grid?[s.grid,s.grid]:s.grid,l=h[0]||1,c=h[1]||1,u=Math.round((n.width-o.width)/l)*l,d=Math.round((n.height-o.height)/c)*c,p=o.width+u,f=o.height+d,m=s.maxWidth&&p>s.maxWidth,g=s.maxHeight&&f>s.maxHeight,_=s.minWidth&&s.minWidth>p,v=s.minHeight&&s.minHeight>f;s.grid=h,_&&(p+=l),v&&(f+=c),m&&(p-=l),g&&(f-=c),/^(se|s|e)$/.test(r)?(i.size.width=p,i.size.height=f):/^(ne)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.top=a.top-d):/^(sw)$/.test(r)?(i.size.width=p,i.size.height=f,i.position.left=a.left-u):((0>=f-c||0>=p-l)&&(e=i._getPaddingPlusBorderDimensions(this)),f-c>0?(i.size.height=f,i.position.top=a.top-d):(f=c-e.height,i.size.height=f,i.position.top=a.top+o.height-f),p-l>0?(i.size.width=p,i.position.left=a.left-u):(p=l-e.width,i.size.width=p,i.position.left=a.left+o.width-p))}}),t.ui.resizable});/** +!function(t){"use strict";"function"==typeof define&&define.amd?define(["jquery"],t):t(jQuery)}(function(y){"use strict";y.ui=y.ui||{};y.ui.version="1.13.2";var n,i=0,h=Array.prototype.hasOwnProperty,a=Array.prototype.slice;y.cleanData=(n=y.cleanData,function(t){for(var e,i,s=0;null!=(i=t[s]);s++)(e=y._data(i,"events"))&&e.remove&&y(i).triggerHandler("remove");n(t)}),y.widget=function(t,i,e){var s,n,o,h={},a=t.split(".")[0],r=a+"-"+(t=t.split(".")[1]);return e||(e=i,i=y.Widget),Array.isArray(e)&&(e=y.extend.apply(null,[{}].concat(e))),y.expr.pseudos[r.toLowerCase()]=function(t){return!!y.data(t,r)},y[a]=y[a]||{},s=y[a][t],n=y[a][t]=function(t,e){if(!this||!this._createWidget)return new n(t,e);arguments.length&&this._createWidget(t,e)},y.extend(n,s,{version:e.version,_proto:y.extend({},e),_childConstructors:[]}),(o=new i).options=y.widget.extend({},o.options),y.each(e,function(e,s){function n(){return i.prototype[e].apply(this,arguments)}function o(t){return i.prototype[e].apply(this,t)}h[e]="function"==typeof s?function(){var t,e=this._super,i=this._superApply;return this._super=n,this._superApply=o,t=s.apply(this,arguments),this._super=e,this._superApply=i,t}:s}),n.prototype=y.widget.extend(o,{widgetEventPrefix:s&&o.widgetEventPrefix||t},h,{constructor:n,namespace:a,widgetName:t,widgetFullName:r}),s?(y.each(s._childConstructors,function(t,e){var i=e.prototype;y.widget(i.namespace+"."+i.widgetName,n,e._proto)}),delete s._childConstructors):i._childConstructors.push(n),y.widget.bridge(t,n),n},y.widget.extend=function(t){for(var e,i,s=a.call(arguments,1),n=0,o=s.length;n",options:{classes:{},disabled:!1,create:null},_createWidget:function(t,e){e=y(e||this.defaultElement||this)[0],this.element=y(e),this.uuid=i++,this.eventNamespace="."+this.widgetName+this.uuid,this.bindings=y(),this.hoverable=y(),this.focusable=y(),this.classesElementLookup={},e!==this&&(y.data(e,this.widgetFullName,this),this._on(!0,this.element,{remove:function(t){t.target===e&&this.destroy()}}),this.document=y(e.style?e.ownerDocument:e.document||e),this.window=y(this.document[0].defaultView||this.document[0].parentWindow)),this.options=y.widget.extend({},this.options,this._getCreateOptions(),t),this._create(),this.options.disabled&&this._setOptionDisabled(this.options.disabled),this._trigger("create",null,this._getCreateEventData()),this._init()},_getCreateOptions:function(){return{}},_getCreateEventData:y.noop,_create:y.noop,_init:y.noop,destroy:function(){var i=this;this._destroy(),y.each(this.classesElementLookup,function(t,e){i._removeClass(e,t)}),this.element.off(this.eventNamespace).removeData(this.widgetFullName),this.widget().off(this.eventNamespace).removeAttr("aria-disabled"),this.bindings.off(this.eventNamespace)},_destroy:y.noop,widget:function(){return this.element},option:function(t,e){var i,s,n,o=t;if(0===arguments.length)return y.widget.extend({},this.options);if("string"==typeof t)if(o={},t=(i=t.split(".")).shift(),i.length){for(s=o[t]=y.widget.extend({},this.options[t]),n=0;n
    "),i=e.children()[0];return y("body").append(e),t=i.offsetWidth,e.css("overflow","scroll"),t===(i=i.offsetWidth)&&(i=e[0].clientWidth),e.remove(),s=t-i},getScrollInfo:function(t){var e=t.isWindow||t.isDocument?"":t.element.css("overflow-x"),i=t.isWindow||t.isDocument?"":t.element.css("overflow-y"),e="scroll"===e||"auto"===e&&t.widthx(D(s),D(n))?o.important="horizontal":o.important="vertical",p.using.call(this,t,o)}),h.offset(y.extend(l,{using:t}))})},y.ui.position={fit:{left:function(t,e){var i=e.within,s=i.isWindow?i.scrollLeft:i.offset.left,n=i.width,o=t.left-e.collisionPosition.marginLeft,h=s-o,a=o+e.collisionWidth-n-s;e.collisionWidth>n?0n?0=this.options.distance},_mouseDelayMet:function(){return this.mouseDelayMet},_mouseStart:function(){},_mouseDrag:function(){},_mouseStop:function(){},_mouseCapture:function(){return!0}}),y.ui.plugin={add:function(t,e,i){var s,n=y.ui[t].prototype;for(s in i)n.plugins[s]=n.plugins[s]||[],n.plugins[s].push([e,i[s]])},call:function(t,e,i,s){var n,o=t.plugins[e];if(o&&(s||t.element[0].parentNode&&11!==t.element[0].parentNode.nodeType))for(n=0;n
    ").css({overflow:"hidden",position:this.element.css("position"),width:this.element.outerWidth(),height:this.element.outerHeight(),top:this.element.css("top"),left:this.element.css("left")})),this.element=this.element.parent().data("ui-resizable",this.element.resizable("instance")),this.elementIsWrapper=!0,t={marginTop:this.originalElement.css("marginTop"),marginRight:this.originalElement.css("marginRight"),marginBottom:this.originalElement.css("marginBottom"),marginLeft:this.originalElement.css("marginLeft")},this.element.css(t),this.originalElement.css("margin",0),this.originalResizeStyle=this.originalElement.css("resize"),this.originalElement.css("resize","none"),this._proportionallyResizeElements.push(this.originalElement.css({position:"static",zoom:1,display:"block"})),this.originalElement.css(t),this._proportionallyResize()),this._setupHandles(),e.autoHide&&y(this.element).on("mouseenter",function(){e.disabled||(i._removeClass("ui-resizable-autohide"),i._handles.show())}).on("mouseleave",function(){e.disabled||i.resizing||(i._addClass("ui-resizable-autohide"),i._handles.hide())}),this._mouseInit()},_destroy:function(){this._mouseDestroy(),this._addedHandles.remove();function t(t){y(t).removeData("resizable").removeData("ui-resizable").off(".resizable")}var e;return this.elementIsWrapper&&(t(this.element),e=this.element,this.originalElement.css({position:e.css("position"),width:e.outerWidth(),height:e.outerHeight(),top:e.css("top"),left:e.css("left")}).insertAfter(e),e.remove()),this.originalElement.css("resize",this.originalResizeStyle),t(this.originalElement),this},_setOption:function(t,e){switch(this._super(t,e),t){case"handles":this._removeHandles(),this._setupHandles();break;case"aspectRatio":this._aspectRatio=!!e}},_setupHandles:function(){var t,e,i,s,n,o=this.options,h=this;if(this.handles=o.handles||(y(".ui-resizable-handle",this.element).length?{n:".ui-resizable-n",e:".ui-resizable-e",s:".ui-resizable-s",w:".ui-resizable-w",se:".ui-resizable-se",sw:".ui-resizable-sw",ne:".ui-resizable-ne",nw:".ui-resizable-nw"}:"e,s,se"),this._handles=y(),this._addedHandles=y(),this.handles.constructor===String)for("all"===this.handles&&(this.handles="n,e,s,w,se,sw,ne,nw"),i=this.handles.split(","),this.handles={},e=0;e"),this._addClass(n,"ui-resizable-handle "+s),n.css({zIndex:o.zIndex}),this.handles[t]=".ui-resizable-"+t,this.element.children(this.handles[t]).length||(this.element.append(n),this._addedHandles=this._addedHandles.add(n));this._renderAxis=function(t){var e,i,s;for(e in t=t||this.element,this.handles)this.handles[e].constructor===String?this.handles[e]=this.element.children(this.handles[e]).first().show():(this.handles[e].jquery||this.handles[e].nodeType)&&(this.handles[e]=y(this.handles[e]),this._on(this.handles[e],{mousedown:h._mouseDown})),this.elementIsWrapper&&this.originalElement[0].nodeName.match(/^(textarea|input|select|button)$/i)&&(i=y(this.handles[e],this.element),s=/sw|ne|nw|se|n|s/.test(e)?i.outerHeight():i.outerWidth(),i=["padding",/ne|nw|n/.test(e)?"Top":/se|sw|s/.test(e)?"Bottom":/^e$/.test(e)?"Right":"Left"].join(""),t.css(i,s),this._proportionallyResize()),this._handles=this._handles.add(this.handles[e])},this._renderAxis(this.element),this._handles=this._handles.add(this.element.find(".ui-resizable-handle")),this._handles.disableSelection(),this._handles.on("mouseover",function(){h.resizing||(this.className&&(n=this.className.match(/ui-resizable-(se|sw|ne|nw|n|e|s|w)/i)),h.axis=n&&n[1]?n[1]:"se")}),o.autoHide&&(this._handles.hide(),this._addClass("ui-resizable-autohide"))},_removeHandles:function(){this._addedHandles.remove()},_mouseCapture:function(t){var e,i,s=!1;for(e in this.handles)(i=y(this.handles[e])[0])!==t.target&&!y.contains(i,t.target)||(s=!0);return!this.options.disabled&&s},_mouseStart:function(t){var e,i,s=this.options,n=this.element;return this.resizing=!0,this._renderProxy(),e=this._num(this.helper.css("left")),i=this._num(this.helper.css("top")),s.containment&&(e+=y(s.containment).scrollLeft()||0,i+=y(s.containment).scrollTop()||0),this.offset=this.helper.offset(),this.position={left:e,top:i},this.size=this._helper?{width:this.helper.width(),height:this.helper.height()}:{width:n.width(),height:n.height()},this.originalSize=this._helper?{width:n.outerWidth(),height:n.outerHeight()}:{width:n.width(),height:n.height()},this.sizeDiff={width:n.outerWidth()-n.width(),height:n.outerHeight()-n.height()},this.originalPosition={left:e,top:i},this.originalMousePosition={left:t.pageX,top:t.pageY},this.aspectRatio="number"==typeof s.aspectRatio?s.aspectRatio:this.originalSize.width/this.originalSize.height||1,s=y(".ui-resizable-"+this.axis).css("cursor"),y("body").css("cursor","auto"===s?this.axis+"-resize":s),this._addClass("ui-resizable-resizing"),this._propagate("start",t),!0},_mouseDrag:function(t){var e=this.originalMousePosition,i=this.axis,s=t.pageX-e.left||0,e=t.pageY-e.top||0,i=this._change[i];return this._updatePrevProperties(),i&&(e=i.apply(this,[t,s,e]),this._updateVirtualBoundaries(t.shiftKey),(this._aspectRatio||t.shiftKey)&&(e=this._updateRatio(e,t)),e=this._respectSize(e,t),this._updateCache(e),this._propagate("resize",t),e=this._applyChanges(),!this._helper&&this._proportionallyResizeElements.length&&this._proportionallyResize(),y.isEmptyObject(e)||(this._updatePrevProperties(),this._trigger("resize",t,this.ui()),this._applyChanges())),!1},_mouseStop:function(t){this.resizing=!1;var e,i,s,n=this.options,o=this;return this._helper&&(s=(e=(i=this._proportionallyResizeElements).length&&/textarea/i.test(i[0].nodeName))&&this._hasScroll(i[0],"left")?0:o.sizeDiff.height,i=e?0:o.sizeDiff.width,e={width:o.helper.width()-i,height:o.helper.height()-s},i=parseFloat(o.element.css("left"))+(o.position.left-o.originalPosition.left)||null,s=parseFloat(o.element.css("top"))+(o.position.top-o.originalPosition.top)||null,n.animate||this.element.css(y.extend(e,{top:s,left:i})),o.helper.height(o.size.height),o.helper.width(o.size.width),this._helper&&!n.animate&&this._proportionallyResize()),y("body").css("cursor","auto"),this._removeClass("ui-resizable-resizing"),this._propagate("stop",t),this._helper&&this.helper.remove(),!1},_updatePrevProperties:function(){this.prevPosition={top:this.position.top,left:this.position.left},this.prevSize={width:this.size.width,height:this.size.height}},_applyChanges:function(){var t={};return this.position.top!==this.prevPosition.top&&(t.top=this.position.top+"px"),this.position.left!==this.prevPosition.left&&(t.left=this.position.left+"px"),this.size.width!==this.prevSize.width&&(t.width=this.size.width+"px"),this.size.height!==this.prevSize.height&&(t.height=this.size.height+"px"),this.helper.css(t),t},_updateVirtualBoundaries:function(t){var e,i,s=this.options,n={minWidth:this._isNumber(s.minWidth)?s.minWidth:0,maxWidth:this._isNumber(s.maxWidth)?s.maxWidth:1/0,minHeight:this._isNumber(s.minHeight)?s.minHeight:0,maxHeight:this._isNumber(s.maxHeight)?s.maxHeight:1/0};(this._aspectRatio||t)&&(e=n.minHeight*this.aspectRatio,i=n.minWidth/this.aspectRatio,s=n.maxHeight*this.aspectRatio,t=n.maxWidth/this.aspectRatio,e>n.minWidth&&(n.minWidth=e),i>n.minHeight&&(n.minHeight=i),st.width,h=this._isNumber(t.height)&&e.minHeight&&e.minHeight>t.height,a=this.originalPosition.left+this.originalSize.width,r=this.originalPosition.top+this.originalSize.height,l=/sw|nw|w/.test(i),i=/nw|ne|n/.test(i);return o&&(t.width=e.minWidth),h&&(t.height=e.minHeight),s&&(t.width=e.maxWidth),n&&(t.height=e.maxHeight),o&&l&&(t.left=a-e.minWidth),s&&l&&(t.left=a-e.maxWidth),h&&i&&(t.top=r-e.minHeight),n&&i&&(t.top=r-e.maxHeight),t.width||t.height||t.left||!t.top?t.width||t.height||t.top||!t.left||(t.left=null):t.top=null,t},_getPaddingPlusBorderDimensions:function(t){for(var e=0,i=[],s=[t.css("borderTopWidth"),t.css("borderRightWidth"),t.css("borderBottomWidth"),t.css("borderLeftWidth")],n=[t.css("paddingTop"),t.css("paddingRight"),t.css("paddingBottom"),t.css("paddingLeft")];e<4;e++)i[e]=parseFloat(s[e])||0,i[e]+=parseFloat(n[e])||0;return{height:i[0]+i[2],width:i[1]+i[3]}},_proportionallyResize:function(){if(this._proportionallyResizeElements.length)for(var t,e=0,i=this.helper||this.element;e
    ").css({overflow:"hidden"}),this._addClass(this.helper,this._helper),this.helper.css({width:this.element.outerWidth(),height:this.element.outerHeight(),position:"absolute",left:this.elementOffset.left+"px",top:this.elementOffset.top+"px",zIndex:++e.zIndex}),this.helper.appendTo("body").disableSelection()):this.helper=this.element},_change:{e:function(t,e){return{width:this.originalSize.width+e}},w:function(t,e){var i=this.originalSize;return{left:this.originalPosition.left+e,width:i.width-e}},n:function(t,e,i){var s=this.originalSize;return{top:this.originalPosition.top+i,height:s.height-i}},s:function(t,e,i){return{height:this.originalSize.height+i}},se:function(t,e,i){return y.extend(this._change.s.apply(this,arguments),this._change.e.apply(this,[t,e,i]))},sw:function(t,e,i){return y.extend(this._change.s.apply(this,arguments),this._change.w.apply(this,[t,e,i]))},ne:function(t,e,i){return y.extend(this._change.n.apply(this,arguments),this._change.e.apply(this,[t,e,i]))},nw:function(t,e,i){return y.extend(this._change.n.apply(this,arguments),this._change.w.apply(this,[t,e,i]))}},_propagate:function(t,e){y.ui.plugin.call(this,t,[e,this.ui()]),"resize"!==t&&this._trigger(t,e,this.ui())},plugins:{},ui:function(){return{originalElement:this.originalElement,element:this.element,helper:this.helper,position:this.position,size:this.size,originalSize:this.originalSize,originalPosition:this.originalPosition}}}),y.ui.plugin.add("resizable","animate",{stop:function(e){var i=y(this).resizable("instance"),t=i.options,s=i._proportionallyResizeElements,n=s.length&&/textarea/i.test(s[0].nodeName),o=n&&i._hasScroll(s[0],"left")?0:i.sizeDiff.height,h=n?0:i.sizeDiff.width,n={width:i.size.width-h,height:i.size.height-o},h=parseFloat(i.element.css("left"))+(i.position.left-i.originalPosition.left)||null,o=parseFloat(i.element.css("top"))+(i.position.top-i.originalPosition.top)||null;i.element.animate(y.extend(n,o&&h?{top:o,left:h}:{}),{duration:t.animateDuration,easing:t.animateEasing,step:function(){var t={width:parseFloat(i.element.css("width")),height:parseFloat(i.element.css("height")),top:parseFloat(i.element.css("top")),left:parseFloat(i.element.css("left"))};s&&s.length&&y(s[0]).css({width:t.width,height:t.height}),i._updateCache(t),i._propagate("resize",e)}})}}),y.ui.plugin.add("resizable","containment",{start:function(){var i,s,n=y(this).resizable("instance"),t=n.options,e=n.element,o=t.containment,h=o instanceof y?o.get(0):/parent/.test(o)?e.parent().get(0):o;h&&(n.containerElement=y(h),/document/.test(o)||o===document?(n.containerOffset={left:0,top:0},n.containerPosition={left:0,top:0},n.parentData={element:y(document),left:0,top:0,width:y(document).width(),height:y(document).height()||document.body.parentNode.scrollHeight}):(i=y(h),s=[],y(["Top","Right","Left","Bottom"]).each(function(t,e){s[t]=n._num(i.css("padding"+e))}),n.containerOffset=i.offset(),n.containerPosition=i.position(),n.containerSize={height:i.innerHeight()-s[3],width:i.innerWidth()-s[1]},t=n.containerOffset,e=n.containerSize.height,o=n.containerSize.width,o=n._hasScroll(h,"left")?h.scrollWidth:o,e=n._hasScroll(h)?h.scrollHeight:e,n.parentData={element:h,left:t.left,top:t.top,width:o,height:e}))},resize:function(t){var e=y(this).resizable("instance"),i=e.options,s=e.containerOffset,n=e.position,o=e._aspectRatio||t.shiftKey,h={top:0,left:0},a=e.containerElement,t=!0;a[0]!==document&&/static/.test(a.css("position"))&&(h=s),n.left<(e._helper?s.left:0)&&(e.size.width=e.size.width+(e._helper?e.position.left-s.left:e.position.left-h.left),o&&(e.size.height=e.size.width/e.aspectRatio,t=!1),e.position.left=i.helper?s.left:0),n.top<(e._helper?s.top:0)&&(e.size.height=e.size.height+(e._helper?e.position.top-s.top:e.position.top),o&&(e.size.width=e.size.height*e.aspectRatio,t=!1),e.position.top=e._helper?s.top:0),i=e.containerElement.get(0)===e.element.parent().get(0),n=/relative|absolute/.test(e.containerElement.css("position")),i&&n?(e.offset.left=e.parentData.left+e.position.left,e.offset.top=e.parentData.top+e.position.top):(e.offset.left=e.element.offset().left,e.offset.top=e.element.offset().top),n=Math.abs(e.sizeDiff.width+(e._helper?e.offset.left-h.left:e.offset.left-s.left)),s=Math.abs(e.sizeDiff.height+(e._helper?e.offset.top-h.top:e.offset.top-s.top)),n+e.size.width>=e.parentData.width&&(e.size.width=e.parentData.width-n,o&&(e.size.height=e.size.width/e.aspectRatio,t=!1)),s+e.size.height>=e.parentData.height&&(e.size.height=e.parentData.height-s,o&&(e.size.width=e.size.height*e.aspectRatio,t=!1)),t||(e.position.left=e.prevPosition.left,e.position.top=e.prevPosition.top,e.size.width=e.prevSize.width,e.size.height=e.prevSize.height)},stop:function(){var t=y(this).resizable("instance"),e=t.options,i=t.containerOffset,s=t.containerPosition,n=t.containerElement,o=y(t.helper),h=o.offset(),a=o.outerWidth()-t.sizeDiff.width,o=o.outerHeight()-t.sizeDiff.height;t._helper&&!e.animate&&/relative/.test(n.css("position"))&&y(this).css({left:h.left-s.left-i.left,width:a,height:o}),t._helper&&!e.animate&&/static/.test(n.css("position"))&&y(this).css({left:h.left-s.left-i.left,width:a,height:o})}}),y.ui.plugin.add("resizable","alsoResize",{start:function(){var t=y(this).resizable("instance").options;y(t.alsoResize).each(function(){var t=y(this);t.data("ui-resizable-alsoresize",{width:parseFloat(t.width()),height:parseFloat(t.height()),left:parseFloat(t.css("left")),top:parseFloat(t.css("top"))})})},resize:function(t,i){var e=y(this).resizable("instance"),s=e.options,n=e.originalSize,o=e.originalPosition,h={height:e.size.height-n.height||0,width:e.size.width-n.width||0,top:e.position.top-o.top||0,left:e.position.left-o.left||0};y(s.alsoResize).each(function(){var t=y(this),s=y(this).data("ui-resizable-alsoresize"),n={},e=t.parents(i.originalElement[0]).length?["width","height"]:["width","height","top","left"];y.each(e,function(t,e){var i=(s[e]||0)+(h[e]||0);i&&0<=i&&(n[e]=i||null)}),t.css(n)})},stop:function(){y(this).removeData("ui-resizable-alsoresize")}}),y.ui.plugin.add("resizable","ghost",{start:function(){var t=y(this).resizable("instance"),e=t.size;t.ghost=t.originalElement.clone(),t.ghost.css({opacity:.25,display:"block",position:"relative",height:e.height,width:e.width,margin:0,left:0,top:0}),t._addClass(t.ghost,"ui-resizable-ghost"),!1!==y.uiBackCompat&&"string"==typeof t.options.ghost&&t.ghost.addClass(this.options.ghost),t.ghost.appendTo(t.helper)},resize:function(){var t=y(this).resizable("instance");t.ghost&&t.ghost.css({position:"relative",height:t.size.height,width:t.size.width})},stop:function(){var t=y(this).resizable("instance");t.ghost&&t.helper&&t.helper.get(0).removeChild(t.ghost.get(0))}}),y.ui.plugin.add("resizable","grid",{resize:function(){var t,e=y(this).resizable("instance"),i=e.options,s=e.size,n=e.originalSize,o=e.originalPosition,h=e.axis,a="number"==typeof i.grid?[i.grid,i.grid]:i.grid,r=a[0]||1,l=a[1]||1,u=Math.round((s.width-n.width)/r)*r,p=Math.round((s.height-n.height)/l)*l,d=n.width+u,c=n.height+p,f=i.maxWidth&&i.maxWidthd,s=i.minHeight&&i.minHeight>c;i.grid=a,m&&(d+=r),s&&(c+=l),f&&(d-=r),g&&(c-=l),/^(se|s|e)$/.test(h)?(e.size.width=d,e.size.height=c):/^(ne)$/.test(h)?(e.size.width=d,e.size.height=c,e.position.top=o.top-p):/^(sw)$/.test(h)?(e.size.width=d,e.size.height=c,e.position.left=o.left-u):((c-l<=0||d-r<=0)&&(t=e._getPaddingPlusBorderDimensions(this)),0 - + - - + + PEARL Procedures: mainpage.dox File Reference @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('mainpage_8dox.html',''); initResizable
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    mainpage.dox File Reference
    +
    mainpage.dox File Reference
    @@ -93,9 +99,7 @@ $(document).ready(function(){initNavTree('mainpage_8dox.html',''); initResizable diff --git a/doc/html/menu.js b/doc/html/menu.js index 433c15b..b0b2693 100644 --- a/doc/html/menu.js +++ b/doc/html/menu.js @@ -1,25 +1,26 @@ /* - @licstart The following is the entire license notice for the - JavaScript code in this file. + @licstart The following is the entire license notice for the JavaScript code in this file. - Copyright (C) 1997-2017 by Dimitri van Heesch + The MIT License (MIT) - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. + Copyright (C) 1997-2020 by Dimitri van Heesch - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. + Permission is hereby granted, free of charge, to any person obtaining a copy of this software + and associated documentation files (the "Software"), to deal in the Software without restriction, + including without limitation the rights to use, copy, modify, merge, publish, distribute, + sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: - You should have received a copy of the GNU General Public License along - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + The above copyright notice and this permission notice shall be included in all copies or + substantial portions of the Software. - @licend The above is the entire license notice - for the JavaScript code in this file + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING + BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, + DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + @licend The above is the entire license notice for the JavaScript code in this file */ function initMenu(relPath,searchEnabled,serverSide,searchPage,search) { function makeTree(data,relPath) { @@ -27,7 +28,15 @@ function initMenu(relPath,searchEnabled,serverSide,searchPage,search) { if ('children' in data) { result+='
      '; for (var i in data.children) { - result+='
    • '+ + var url; + var link; + link = data.children[i].url; + if (link.substring(0,1)=='^') { + url = link.substring(1); + } else { + url = relPath+link; + } + result+='
    • '+ data.children[i].text+''+ makeTree(data.children[i],relPath)+'
      • '; } @@ -35,16 +44,93 @@ function initMenu(relPath,searchEnabled,serverSide,searchPage,search) { } return result; } - - $('#main-nav').append(makeTree(menudata,relPath)); - $('#main-nav').children(':first').addClass('sm sm-dox').attr('id','main-menu'); + var searchBoxHtml; if (searchEnabled) { if (serverSide) { - $('#main-menu').append('
      • '); + searchBoxHtml='
      '+ + '
      '+ + '
       '+ + ''+ + '
      '+ + '
      '+ + '
      '+ + '
      '; } else { - $('#main-menu').append('
      • '); + searchBoxHtml='
      '+ + ''+ + ' '+ + ''+ + ''+ + ''+ + ''+ + ''+ + '
      '; } } + + $('#main-nav').before('
      '+ + ''+ + ''+ + '
      '); + $('#main-nav').append(makeTree(menudata,relPath)); + $('#main-nav').children(':first').addClass('sm sm-dox').attr('id','main-menu'); + if (searchBoxHtml) { + $('#main-menu').append('
    • '); + } + var $mainMenuState = $('#main-menu-state'); + var prevWidth = 0; + if ($mainMenuState.length) { + function initResizableIfExists() { + if (typeof initResizable==='function') initResizable(); + } + // animate mobile menu + $mainMenuState.change(function(e) { + var $menu = $('#main-menu'); + var options = { duration: 250, step: initResizableIfExists }; + if (this.checked) { + options['complete'] = function() { $menu.css('display', 'block') }; + $menu.hide().slideDown(options); + } else { + options['complete'] = function() { $menu.css('display', 'none') }; + $menu.show().slideUp(options); + } + }); + // set default menu visibility + function resetState() { + var $menu = $('#main-menu'); + var $mainMenuState = $('#main-menu-state'); + var newWidth = $(window).outerWidth(); + if (newWidth!=prevWidth) { + if ($(window).outerWidth()<768) { + $mainMenuState.prop('checked',false); $menu.hide(); + $('#searchBoxPos1').html(searchBoxHtml); + $('#searchBoxPos2').hide(); + } else { + $menu.show(); + $('#searchBoxPos1').empty(); + $('#searchBoxPos2').html(searchBoxHtml); + $('#searchBoxPos2').show(); + } + if (typeof searchBox!=='undefined') { + searchBox.CloseResultsWindow(); + } + prevWidth = newWidth; + } + } + $(window).ready(function() { resetState(); initResizableIfExists(); }); + $(window).resize(resetState); + } $('#main-menu').smartmenus(); } /* @license-end */ diff --git a/doc/html/menudata.js b/doc/html/menudata.js index a850eaa..717a668 100644 --- a/doc/html/menudata.js +++ b/doc/html/menudata.js @@ -1,29 +1,30 @@ /* -@licstart The following is the entire license notice for the -JavaScript code in this file. + @licstart The following is the entire license notice for the JavaScript code in this file. -Copyright (C) 1997-2019 by Dimitri van Heesch + The MIT License (MIT) -This program is free software; you can redistribute it and/or modify -it under the terms of version 2 of the GNU General Public License as published by -the Free Software Foundation + Copyright (C) 1997-2020 by Dimitri van Heesch -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + Permission is hereby granted, free of charge, to any person obtaining a copy of this software + and associated documentation files (the "Software"), to deal in the Software without restriction, + including without limitation the rights to use, copy, modify, merge, publish, distribute, + sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: -You should have received a copy of the GNU General Public License along -with this program; if not, write to the Free Software Foundation, Inc., -51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + The above copyright notice and this permission notice shall be included in all copies or + substantial portions of the Software. -@licend The above is the entire license notice -for the JavaScript code in this file + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING + BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, + DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + @licend The above is the entire license notice for the JavaScript code in this file */ var menudata={children:[ {text:"Main Page",url:"index.html"}, {text:"Related Pages",url:"pages.html"}, -{text:"Packages",url:"modules.html"}, {text:"Namespaces",url:"namespaces.html",children:[ {text:"Namespace List",url:"namespaces.html"}]}, {text:"Files",url:"files.html",children:[ @@ -80,4 +81,5 @@ var menudata={children:[ {text:"k",url:"globals_vars.html#index_k"}, {text:"m",url:"globals_vars.html#index_m"}, {text:"p",url:"globals_vars.html#index_p"}, +{text:"s",url:"globals_vars.html#index_s"}, {text:"v",url:"globals_vars.html#index_v"}]}]}]}]} diff --git a/doc/html/modules.html b/doc/html/modules.html deleted file mode 100644 index 88d5994..0000000 --- a/doc/html/modules.html +++ /dev/null @@ -1,106 +0,0 @@ - - - - - - - -PEARL Procedures: Packages - - - - - - - - - - - - - -
      -
      - - - - - - -
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty -
      -
      Igor procedures for the analysis of PEARL data
      -
      -
      - - - - - - - -
      -
      - -
      -
      -
      - -
      - -
      -
      - - -
      - -
      - -
      -
      -
      Packages
      -
      -
      -
      Packages are collections of procedure files to be loaded together. PEARL defines the following packages:
      - - -
       ARPES packageData acquisition and analysis package for ARPES at PEARL
      -
      -
      -
      - - - - diff --git a/doc/html/modules.js b/doc/html/modules.js deleted file mode 100644 index 253ce8b..0000000 --- a/doc/html/modules.js +++ /dev/null @@ -1,4 +0,0 @@ -var modules = -[ - [ "ARPES package", "group___arpes_package.html", "group___arpes_package" ] -]; \ No newline at end of file diff --git a/doc/html/namespace_pearl_anglescan_panel.html b/doc/html/namespace_pearl_anglescan_panel.html index 953174e..105a7bb 100644 --- a/doc/html/namespace_pearl_anglescan_panel.html +++ b/doc/html/namespace_pearl_anglescan_panel.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlAnglescanPanel Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_anglescan_panel.html',
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlAnglescanPanel Namespace Reference
      +
      PearlAnglescanPanel Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_anglescan_panel.html', diff --git a/doc/html/namespace_pearl_anglescan_process.html b/doc/html/namespace_pearl_anglescan_process.html index 3e1999c..7b08bd8 100644 --- a/doc/html/namespace_pearl_anglescan_process.html +++ b/doc/html/namespace_pearl_anglescan_process.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlAnglescanProcess Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_anglescan_process.html
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlAnglescanProcess Namespace Reference
      +
      PearlAnglescanProcess Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_anglescan_process.html diff --git a/doc/html/namespace_pearl_area_display.html b/doc/html/namespace_pearl_area_display.html index 027d458..d999ac7 100644 --- a/doc/html/namespace_pearl_area_display.html +++ b/doc/html/namespace_pearl_area_display.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlAreaDisplay Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_area_display.html','')
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlAreaDisplay Namespace Reference
      +
      PearlAreaDisplay Namespace Reference
      @@ -118,16 +124,14 @@ Licensed under the Apache License, Version 2.0 (the "License"); @n you may not use this file except in compliance with the License. @n You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 -

      PearlAreaDisplay is declared in pearl-area-display.ipf.

      +

      PearlAreaDisplay is declared in pearl-area-display.ipf.

      diff --git a/doc/html/namespace_pearl_area_import.html b/doc/html/namespace_pearl_area_import.html index f591244..0bdf77f 100644 --- a/doc/html/namespace_pearl_area_import.html +++ b/doc/html/namespace_pearl_area_import.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlAreaImport Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_area_import.html','');
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlAreaImport Namespace Reference
      +
      PearlAreaImport Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_area_import.html',''); diff --git a/doc/html/namespace_pearl_area_profiles.html b/doc/html/namespace_pearl_area_profiles.html index 22041f9..716efff 100644 --- a/doc/html/namespace_pearl_area_profiles.html +++ b/doc/html/namespace_pearl_area_profiles.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlAreaProfiles Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_area_profiles.html',''
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlAreaProfiles Namespace Reference
      +
      PearlAreaProfiles Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_area_profiles.html','' diff --git a/doc/html/namespace_pearl_arpes.html b/doc/html/namespace_pearl_arpes.html index 4c2d4a3..ba2c6ce 100644 --- a/doc/html/namespace_pearl_arpes.html +++ b/doc/html/namespace_pearl_arpes.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlArpes Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_arpes.html',''); initR
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlArpes Namespace Reference
      +
      PearlArpes Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_arpes.html',''); initR diff --git a/doc/html/namespace_pearl_compat.html b/doc/html/namespace_pearl_compat.html index 92cd9c4..9bae4b0 100644 --- a/doc/html/namespace_pearl_compat.html +++ b/doc/html/namespace_pearl_compat.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlCompat Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_compat.html',''); init
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlCompat Namespace Reference
      +
      PearlCompat Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_compat.html',''); init diff --git a/doc/html/namespace_pearl_elog.html b/doc/html/namespace_pearl_elog.html index 9c795bb..a736810 100644 --- a/doc/html/namespace_pearl_elog.html +++ b/doc/html/namespace_pearl_elog.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlElog Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_elog.html',''); initRe
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlElog Namespace Reference
      +
      PearlElog Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_elog.html',''); initRe diff --git a/doc/html/namespace_pearl_fit_funcs.html b/doc/html/namespace_pearl_fit_funcs.html index a8d490a..9316015 100644 --- a/doc/html/namespace_pearl_fit_funcs.html +++ b/doc/html/namespace_pearl_fit_funcs.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlFitFuncs Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_fit_funcs.html',''); i
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlFitFuncs Namespace Reference
      +
      PearlFitFuncs Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_fit_funcs.html',''); i diff --git a/doc/html/namespace_pearl_matrix_import.html b/doc/html/namespace_pearl_matrix_import.html index e5f5f40..9f7b95f 100644 --- a/doc/html/namespace_pearl_matrix_import.html +++ b/doc/html/namespace_pearl_matrix_import.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlMatrixImport Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_matrix_import.html',''
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlMatrixImport Namespace Reference
      +
      PearlMatrixImport Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_matrix_import.html','' diff --git a/doc/html/namespace_pearl_p_shell_import.html b/doc/html/namespace_pearl_p_shell_import.html index 4051559..dcbb162 100644 --- a/doc/html/namespace_pearl_p_shell_import.html +++ b/doc/html/namespace_pearl_p_shell_import.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlPShellImport Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_p_shell_import.html','
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlPShellImport Namespace Reference
      +
      PearlPShellImport Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_p_shell_import.html',' diff --git a/doc/html/namespace_pearl_pmsco_import.html b/doc/html/namespace_pearl_pmsco_import.html index 0f4fc84..92d9f2e 100644 --- a/doc/html/namespace_pearl_pmsco_import.html +++ b/doc/html/namespace_pearl_pmsco_import.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlPmscoImport Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_pmsco_import.html','')
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlPmscoImport Namespace Reference
      +
      PearlPmscoImport Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_pmsco_import.html','') diff --git a/doc/html/namespace_pearl_scienta_preprocess.html b/doc/html/namespace_pearl_scienta_preprocess.html index b35f252..0515c29 100644 --- a/doc/html/namespace_pearl_scienta_preprocess.html +++ b/doc/html/namespace_pearl_scienta_preprocess.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlScientaPreprocess Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_scienta_preprocess.htm
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlScientaPreprocess Namespace Reference
      +
      PearlScientaPreprocess Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_scienta_preprocess.htm diff --git a/doc/html/namespace_pearl_vector_operations.html b/doc/html/namespace_pearl_vector_operations.html index 505643c..5099985 100644 --- a/doc/html/namespace_pearl_vector_operations.html +++ b/doc/html/namespace_pearl_vector_operations.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: PearlVectorOperations Namespace Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('namespace_pearl_vector_operations.html
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      PearlVectorOperations Namespace Reference
      +
      PearlVectorOperations Namespace Reference
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('namespace_pearl_vector_operations.html diff --git a/doc/html/namespaces.html b/doc/html/namespaces.html index 55c4249..e29c0eb 100644 --- a/doc/html/namespaces.html +++ b/doc/html/namespaces.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Namespace List @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,33 +77,40 @@ $(document).ready(function(){initNavTree('namespaces.html',''); initResizable();
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      Namespace List
      +
      Namespace List
      Here is a list of all namespaces with brief descriptions:
      - + - + - + - + - + - + - - + + +
       NPearlAnglescanPanelInteractive processing of angle scanned XPD data
       NPearlAnglescanProcessProcessing and holographic mapping of angle scanned XPD data
       NPearlAnglescanProcessProcessing and holographic mapping of angle scanned XPD data
       NPearlAreaDisplayInstant visualization of angle scan and manipulator position
       NPearlAreaImportHDF5 file import from EPICS area detectors
       NPearlAreaImportHDF5 file import from EPICS area detectors
       NPearlAreaProfilesProfile extraction for multi-dimensional datasets acquired from area detectors
       NPearlArpesData acquisition and analysis package for ARPES at PEARL
       NPearlArpesData acquisition and analysis package for ARPES at PEARL
       NPearlCompatCompatibility procedures for igor 8
       NPearlElogInterface for writing ELOG entries with Igor graphs as attachment
       NPearlElogInterface for writing ELOG entries with Igor graphs as attachment
       NPearlFitFuncsVarious fit functions for photoelectron spectroscopy
       NPearlMatrixImportData file import for omicron matrix (STM) files
       NPearlMatrixImportData file import for omicron matrix (STM) files
       NPearlPmscoImportData import/export procedures for multiple scattering calculations
       NPearlPShellImportImport data from PShell
       NPearlPShellImportImport data from PShell
       NPearlScientaLiveUtility functions for operating the Scienta analyser
       NPearlScientaPreprocessPreprocessing functions for Scienta detector images
       NPearlVectorOperationsBasic vector geometry operations
       NPearlScientaPreprocessPreprocessing functions for Scienta detector images
       NPearlSciLogInterface for writing SciLog entries with Igor graphs as attachment
       NPearlVectorOperationsBasic vector geometry operations
      @@ -111,9 +118,7 @@ $(document).ready(function(){initNavTree('namespaces.html',''); initResizable(); diff --git a/doc/html/navtree.css b/doc/html/navtree.css index 33341a6..69211d4 100644 --- a/doc/html/navtree.css +++ b/doc/html/navtree.css @@ -22,8 +22,13 @@ #nav-tree .selected { background-image: url('tab_a.png'); background-repeat:repeat-x; - color: #fff; - text-shadow: 0px 1px 1px rgba(0, 0, 0, 1.0); + color: var(--nav-text-active-color); + text-shadow: var(--nav-text-active-shadow); +} + +#nav-tree .selected .arrow { + color: var(--nav-arrow-selected-color); + text-shadow: none; } #nav-tree img { @@ -37,13 +42,12 @@ text-decoration:none; padding:0px; margin:0px; - outline:none; } #nav-tree .label { margin:0px; padding:0px; - font: 12px 'Lucida Grande',Geneva,Helvetica,Arial,sans-serif; + font: 12px var(--font-family-nav); } #nav-tree .label a { @@ -52,7 +56,7 @@ #nav-tree .selected a { text-decoration:none; - color:#fff; + color:var(--nav-text-active-color); } #nav-tree .children_ul { @@ -67,7 +71,6 @@ #nav-tree { padding: 0px 0px; - background-color: #FAFAFF; font-size:14px; overflow:auto; } @@ -86,7 +89,8 @@ display:block; position: absolute; left: 0px; - width: 250px; + width: $width; + overflow : hidden; } .ui-resizable .ui-resizable-handle { @@ -94,7 +98,7 @@ } .ui-resizable-e { - background-image:url("splitbar.png"); + background-image:var(--nav-splitbar-image); background-size:100%; background-repeat:repeat-y; background-attachment: scroll; @@ -117,9 +121,8 @@ } #nav-tree { - background-image:url('nav_h.png'); background-repeat:repeat-x; - background-color: #F9FAFC; + background-color: var(--nav-background-color); -webkit-overflow-scrolling : touch; /* iOS 5+ */ } diff --git a/doc/html/navtree.js b/doc/html/navtree.js index edc31ef..93dd3d4 100644 --- a/doc/html/navtree.js +++ b/doc/html/navtree.js @@ -1,24 +1,26 @@ /* - @licstart The following is the entire license notice for the - JavaScript code in this file. + @licstart The following is the entire license notice for the JavaScript code in this file. - Copyright (C) 1997-2019 by Dimitri van Heesch + The MIT License (MIT) - This program is free software; you can redistribute it and/or modify - it under the terms of version 2 of the GNU General Public License as - published by the Free Software Foundation. + Copyright (C) 1997-2020 by Dimitri van Heesch - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. + Permission is hereby granted, free of charge, to any person obtaining a copy of this software + and associated documentation files (the "Software"), to deal in the Software without restriction, + including without limitation the rights to use, copy, modify, merge, publish, distribute, + sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: - You should have received a copy of the GNU General Public License along - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + The above copyright notice and this permission notice shall be included in all copies or + substantial portions of the Software. - @licend The above is the entire license notice - for the JavaScript code in this file + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING + BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, + DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + @licend The above is the entire license notice for the JavaScript code in this file */ var navTreeSubIndices = new Array(); var arrowDown = '▼'; @@ -92,7 +94,7 @@ function cachedLink() } } -function getScript(scriptName,func,show) +function getScript(scriptName,func) { var head = document.getElementsByTagName("head")[0]; var script = document.createElement('script'); @@ -122,7 +124,7 @@ function createIndent(o,domNode,node,level) node.plus_img.innerHTML=arrowRight; node.expanded = false; } else { - expandNode(o, node, false, false); + expandNode(o, node, false, true); } } node.expandToggle.appendChild(imgNode); @@ -263,15 +265,15 @@ function showRoot() })(); } -function expandNode(o, node, imm, showRoot) +function expandNode(o, node, imm, setFocus) { if (node.childrenData && !node.expanded) { if (typeof(node.childrenData)==='string') { var varName = node.childrenData; getScript(node.relpath+varName,function(){ node.childrenData = getData(varName); - expandNode(o, node, imm, showRoot); - }, showRoot); + expandNode(o, node, imm, setFocus); + }); } else { if (!node.childrenVisited) { getNode(o, node); @@ -279,6 +281,9 @@ function expandNode(o, node, imm, showRoot) $(node.getChildrenUL()).slideDown("fast"); node.plus_img.innerHTML = arrowDown; node.expanded = true; + if (setFocus) { + $(node.expandToggle).focus(); + } } } } @@ -323,11 +328,14 @@ function selectAndHighlight(hash,n) $(n.itemDiv).addClass('selected'); $(n.itemDiv).attr('id','selected'); } - if ($('#nav-tree-contents .item:first').hasClass('selected')) { - $('#nav-sync').css('top','30px'); - } else { - $('#nav-sync').css('top','5px'); + var topOffset=5; + if (typeof page_layout!=='undefined' && page_layout==1) { + topOffset+=$('#top').outerHeight(); } + if ($('#nav-tree-contents .item:first').hasClass('selected')) { + topOffset+=25; + } + $('#nav-sync').css('top',topOffset+'px'); showRoot(); } @@ -339,7 +347,7 @@ function showNode(o, node, index, hash) getScript(node.relpath+varName,function(){ node.childrenData = getData(varName); showNode(o,node,index,hash); - },true); + }); } else { if (!node.childrenVisited) { getNode(o, node); @@ -357,11 +365,11 @@ function showNode(o, node, index, hash) n.childrenData = getData(varName); node.expanded=false; showNode(o,node,index,hash); // retry with child node expanded - },true); + }); } else { var rootBase = stripPath(o.toroot.replace(/\..+$/, '')); if (rootBase=="index" || rootBase=="pages" || rootBase=="search") { - expandNode(o, n, true, true); + expandNode(o, n, true, false); } selectAndHighlight(hash,n); } @@ -439,7 +447,7 @@ function navTo(o,root,hash,relpath) if (navTreeSubIndices[i]) { gotoNode(o,i,root,hash,relpath); } - },true); + }); } } @@ -540,5 +548,12 @@ function initNavTree(toroot,relpath) navTo(o,toroot,hashUrl(),relpath); } }) + + $("div.toc a[href]").click(function(e) { + e.preventDefault(); + var docContent = $('#doc-content'); + var aname = $(this).attr("href"); + gotoAnchor($(aname),aname,true); + }) } /* @license-end */ diff --git a/doc/html/navtreedata.js b/doc/html/navtreedata.js index 0014aba..25a2f18 100644 --- a/doc/html/navtreedata.js +++ b/doc/html/navtreedata.js @@ -1,33 +1,31 @@ /* -@licstart The following is the entire license notice for the -JavaScript code in this file. + @licstart The following is the entire license notice for the JavaScript code in this file. -Copyright (C) 1997-2019 by Dimitri van Heesch + The MIT License (MIT) -This program is free software; you can redistribute it and/or modify -it under the terms of version 2 of the GNU General Public License as published by -the Free Software Foundation + Copyright (C) 1997-2020 by Dimitri van Heesch -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + Permission is hereby granted, free of charge, to any person obtaining a copy of this software + and associated documentation files (the "Software"), to deal in the Software without restriction, + including without limitation the rights to use, copy, modify, merge, publish, distribute, + sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: -You should have received a copy of the GNU General Public License along -with this program; if not, write to the Free Software Foundation, Inc., -51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + The above copyright notice and this permission notice shall be included in all copies or + substantial portions of the Software. -@licend The above is the entire license notice -for the JavaScript code in this file + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING + BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, + DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + + @licend The above is the entire license notice for the JavaScript code in this file */ var NAVTREE = [ [ "PEARL Procedures", "index.html", [ - [ "Introduction", "index.html", [ - [ "Introduction", "index.html#sec_intro", null ], - [ "Installation", "index.html#sec_install", null ], - [ "License Information", "index.html#sec_license", null ] - ] ], + [ "Introduction", "index.html", "index" ], [ "Projections", "_page_projections.html", null ], [ "Angle-scan processing", "pag_anglescan_processing.html", [ [ "Introduction", "pag_anglescan_processing.html#sec_anglescan_intro", null ], @@ -57,16 +55,9 @@ var NAVTREE = ] ] ] ], [ "Todo List", "todo.html", null ], - [ "Packages", "modules.html", "modules" ], [ "Namespaces", "namespaces.html", [ [ "Namespace List", "namespaces.html", "namespaces_dup" ] ] ], - [ "Data Structures", "annotated.html", "annotated" ], - [ "Data Structure Index", "classes.html", null ], - [ "Data Fields", "functions.html", [ - [ "All", "functions.html", null ], - [ "Variables", "functions_vars.html", null ] - ] ], [ "Files", "files.html", [ [ "File List", "files.html", "files_dup" ], [ "Globals", "globals.html", [ @@ -81,8 +72,7 @@ var NAVTREE = var NAVTREEINDEX = [ "_page_projections.html", -"pearl-anglescan-tracker_8ipf.html#a33e84ae8e13f405d466b28e83f608cb9", -"pearl-elog_8ipf.html#acbba78d869a543edf7c2b80d7a8d2344" +"pearl-menu_8ipf.html#a3404a53bf13a01c1e811d1af6c35b726" ]; var SYNCONMSG = 'click to disable panel synchronisation'; diff --git a/doc/html/navtreeindex0.js b/doc/html/navtreeindex0.js index cb355ae..1f1ef40 100644 --- a/doc/html/navtreeindex0.js +++ b/doc/html/navtreeindex0.js @@ -1,93 +1,77 @@ var NAVTREEINDEX0 = { "_page_projections.html":[1], -"annotated.html":[6], -"classes.html":[7], -"fermi-edge-analysis_8ipf.html":[9,0,0], -"fermi-edge-analysis_8ipf.html#a09f26b0a0fd940a3d8c6f92aa769c8bc":[9,0,0,10], -"fermi-edge-analysis_8ipf.html#a0cb8da36beae05c79fe5b1da918d3897":[9,0,0,7], -"fermi-edge-analysis_8ipf.html#a1c4a805435a1d43c2b6dfb6deb633894":[9,0,0,0], -"fermi-edge-analysis_8ipf.html#a27f000c3a3ea74c49db31716be3396d4":[9,0,0,6], -"fermi-edge-analysis_8ipf.html#a2a1d7b49c1f88f29ee6d49f6a6f4fbf8":[9,0,0,2], -"fermi-edge-analysis_8ipf.html#a4749b9bce3e1d0381bd9daeb97c9754c":[9,0,0,8], -"fermi-edge-analysis_8ipf.html#a4cec596c8fd2b21953cb45d6d347211d":[9,0,0,5], -"fermi-edge-analysis_8ipf.html#a4dcc00b93822f1663be2908b10d2ad3e":[9,0,0,9], -"fermi-edge-analysis_8ipf.html#a520d8de9fbc4276c19fb417861f05b0d":[9,0,0,1], -"fermi-edge-analysis_8ipf.html#aac6bac1ee0582caa0676bdc9c2d254f0":[9,0,0,3], -"fermi-edge-analysis_8ipf.html#acf72d644b8d37b6c26b1e070edba4e30":[9,0,0,4], -"fermi-edge-analysis_8ipf_source.html":[9,0,0], -"files.html":[9,0], -"functions.html":[8,0], -"functions_vars.html":[8,1], -"globals.html":[9,1,0], -"globals.html":[9,1,0,0], -"globals_b.html":[9,1,0,1], -"globals_c.html":[9,1,0,2], -"globals_d.html":[9,1,0,3], -"globals_e.html":[9,1,0,4], -"globals_f.html":[9,1,0,5], -"globals_func.html":[9,1,1], -"globals_func.html":[9,1,1,0], -"globals_func_b.html":[9,1,1,1], -"globals_func_c.html":[9,1,1,2], -"globals_func_d.html":[9,1,1,3], -"globals_func_e.html":[9,1,1,4], -"globals_func_f.html":[9,1,1,5], -"globals_func_g.html":[9,1,1,6], -"globals_func_h.html":[9,1,1,7], -"globals_func_i.html":[9,1,1,8], -"globals_func_k.html":[9,1,1,9], -"globals_func_l.html":[9,1,1,10], -"globals_func_m.html":[9,1,1,11], -"globals_func_n.html":[9,1,1,12], -"globals_func_o.html":[9,1,1,13], -"globals_func_p.html":[9,1,1,14], -"globals_func_q.html":[9,1,1,15], -"globals_func_r.html":[9,1,1,16], -"globals_func_s.html":[9,1,1,17], -"globals_func_t.html":[9,1,1,18], -"globals_func_u.html":[9,1,1,19], -"globals_func_w.html":[9,1,1,20], -"globals_g.html":[9,1,0,6], -"globals_h.html":[9,1,0,7], -"globals_i.html":[9,1,0,8], -"globals_k.html":[9,1,0,9], -"globals_l.html":[9,1,0,10], -"globals_m.html":[9,1,0,11], -"globals_n.html":[9,1,0,12], -"globals_o.html":[9,1,0,13], -"globals_p.html":[9,1,0,14], -"globals_q.html":[9,1,0,15], -"globals_r.html":[9,1,0,16], -"globals_s.html":[9,1,0,17], -"globals_t.html":[9,1,0,18], -"globals_u.html":[9,1,0,19], -"globals_v.html":[9,1,0,20], -"globals_vars.html":[9,1,2], -"globals_w.html":[9,1,0,21], -"group___arpes_package.html":[4,0], +"dir_61c9e5842729cb34568d93cb98ad85b9.html":[5,0,1], +"dir_fe5dc42579d4b99403482a3a637d9f7d.html":[5,0,0], +"files.html":[5,0], +"globals.html":[5,1,0,0], +"globals.html":[5,1,0], +"globals_b.html":[5,1,0,1], +"globals_c.html":[5,1,0,2], +"globals_d.html":[5,1,0,3], +"globals_e.html":[5,1,0,4], +"globals_f.html":[5,1,0,5], +"globals_func.html":[5,1,1], +"globals_func.html":[5,1,1,0], +"globals_func_b.html":[5,1,1,1], +"globals_func_c.html":[5,1,1,2], +"globals_func_d.html":[5,1,1,3], +"globals_func_e.html":[5,1,1,4], +"globals_func_f.html":[5,1,1,5], +"globals_func_g.html":[5,1,1,6], +"globals_func_h.html":[5,1,1,7], +"globals_func_i.html":[5,1,1,8], +"globals_func_k.html":[5,1,1,9], +"globals_func_l.html":[5,1,1,10], +"globals_func_m.html":[5,1,1,11], +"globals_func_n.html":[5,1,1,12], +"globals_func_o.html":[5,1,1,13], +"globals_func_p.html":[5,1,1,14], +"globals_func_q.html":[5,1,1,15], +"globals_func_r.html":[5,1,1,16], +"globals_func_s.html":[5,1,1,17], +"globals_func_t.html":[5,1,1,18], +"globals_func_u.html":[5,1,1,19], +"globals_func_w.html":[5,1,1,20], +"globals_g.html":[5,1,0,6], +"globals_h.html":[5,1,0,7], +"globals_i.html":[5,1,0,8], +"globals_k.html":[5,1,0,9], +"globals_l.html":[5,1,0,10], +"globals_m.html":[5,1,0,11], +"globals_n.html":[5,1,0,12], +"globals_o.html":[5,1,0,13], +"globals_p.html":[5,1,0,14], +"globals_q.html":[5,1,0,15], +"globals_r.html":[5,1,0,16], +"globals_s.html":[5,1,0,17], +"globals_t.html":[5,1,0,18], +"globals_u.html":[5,1,0,19], +"globals_v.html":[5,1,0,20], +"globals_vars.html":[5,1,2], +"globals_w.html":[5,1,0,21], "index.html":[], "index.html":[0], "index.html#sec_install":[0,1], "index.html#sec_intro":[0,0], "index.html#sec_license":[0,2], -"modules.html":[4], -"namespace_pearl_anglescan_panel.html":[5,0,0], -"namespace_pearl_anglescan_process.html":[5,0,1], -"namespace_pearl_area_display.html":[5,0,2], -"namespace_pearl_area_import.html":[5,0,3], -"namespace_pearl_area_profiles.html":[5,0,4], -"namespace_pearl_arpes.html":[5,0,5], -"namespace_pearl_compat.html":[5,0,6], -"namespace_pearl_elog.html":[5,0,7], -"namespace_pearl_fit_funcs.html":[5,0,8], -"namespace_pearl_matrix_import.html":[5,0,9], -"namespace_pearl_p_shell_import.html":[5,0,11], -"namespace_pearl_pmsco_import.html":[5,0,10], -"namespace_pearl_scienta_live.html":[5,0,12], -"namespace_pearl_scienta_preprocess.html":[5,0,13], -"namespace_pearl_vector_operations.html":[5,0,14], -"namespaces.html":[5,0], +"namespace_pearl_anglescan_panel.html":[4,0,0], +"namespace_pearl_anglescan_process.html":[4,0,1], +"namespace_pearl_area_display.html":[4,0,2], +"namespace_pearl_area_import.html":[4,0,3], +"namespace_pearl_area_profiles.html":[4,0,4], +"namespace_pearl_arpes.html":[4,0,5], +"namespace_pearl_compat.html":[4,0,6], +"namespace_pearl_elog.html":[4,0,7], +"namespace_pearl_fit_funcs.html":[4,0,8], +"namespace_pearl_matrix_import.html":[4,0,9], +"namespace_pearl_p_shell_import.html":[4,0,11], +"namespace_pearl_pmsco_import.html":[4,0,10], +"namespace_pearl_sci_log.html":[4,0,14], +"namespace_pearl_scienta_live.html":[4,0,12], +"namespace_pearl_scienta_preprocess.html":[4,0,13], +"namespace_pearl_vector_operations.html":[4,0,15], +"namespaces.html":[4,0], "pag_anglescan_processing.html":[2], "pag_anglescan_processing.html#sec_anglescan_intro":[2,0], "pag_anglescan_processing.html#sec_export":[2,4], @@ -111,143 +95,159 @@ var NAVTREEINDEX0 = "pag_anglescan_processing.html#sec_plot_refine":[2,3,1], "pag_anglescan_processing.html#sec_projection":[2,3,4], "pages.html":[], -"pearl-anglescan-panel_8ipf.html":[9,0,1], -"pearl-anglescan-panel_8ipf.html#a0153f4ed4892dd3b48276af190590e4f":[9,0,1,49], -"pearl-anglescan-panel_8ipf.html#a0931ce925d2dae6a1bb7e4a65a8a2be7":[9,0,1,21], -"pearl-anglescan-panel_8ipf.html#a0bdc14f90bdc40045200ac23229b225d":[9,0,1,28], -"pearl-anglescan-panel_8ipf.html#a0c228ce2048827dc8161691ec5c425fc":[9,0,1,54], -"pearl-anglescan-panel_8ipf.html#a0e0f10d125f1cdacffa3bff9b0854aa9":[9,0,1,10], -"pearl-anglescan-panel_8ipf.html#a16424e5787967d9c120fb09c7849956e":[9,0,1,36], -"pearl-anglescan-panel_8ipf.html#a16d2f6a58fedc370d7901126bb814bbb":[9,0,1,27], -"pearl-anglescan-panel_8ipf.html#a1836e607851ba4d5a4048f4cfb8121a7":[9,0,1,38], -"pearl-anglescan-panel_8ipf.html#a1868754e64cb1448e564c0936e78574d":[9,0,1,16], -"pearl-anglescan-panel_8ipf.html#a1b41c992729d627445dbba0637b31ece":[9,0,1,46], -"pearl-anglescan-panel_8ipf.html#a1e50019bc895a0787cb3f07d776e9463":[9,0,1,30], -"pearl-anglescan-panel_8ipf.html#a21aab19fbcde395df6e1ea8654b3af9a":[9,0,1,8], -"pearl-anglescan-panel_8ipf.html#a2268cc96a879c1a055c1ff29c1b040ea":[9,0,1,52], -"pearl-anglescan-panel_8ipf.html#a289996a12d0ef46af1dac49a67289931":[9,0,1,51], -"pearl-anglescan-panel_8ipf.html#a3e798e20a99a03a789dd7914612e4fd2":[9,0,1,56], -"pearl-anglescan-panel_8ipf.html#a452f09c3057638056ac2b5a15ac660b2":[9,0,1,11], -"pearl-anglescan-panel_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[9,0,1,43], -"pearl-anglescan-panel_8ipf.html#a4708e7385790d1a9f2d58c4d64a60653":[9,0,1,35], -"pearl-anglescan-panel_8ipf.html#a57c666f93cb4310fadf13b1916eaf134":[9,0,1,13], -"pearl-anglescan-panel_8ipf.html#a59886414c7dc2486c5a17f078896c705":[9,0,1,4], -"pearl-anglescan-panel_8ipf.html#a630dfc775d45843c71c279bbb01d05a6":[9,0,1,17], -"pearl-anglescan-panel_8ipf.html#a65dbeab54647d7c27a139035d69c812f":[9,0,1,1], -"pearl-anglescan-panel_8ipf.html#a66b3eef1fd0be13dfef0a66781f55062":[9,0,1,6], -"pearl-anglescan-panel_8ipf.html#a740c8a80ab2fc0550a05cf3b032821d0":[9,0,1,20], -"pearl-anglescan-panel_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[9,0,1,60], -"pearl-anglescan-panel_8ipf.html#a790519191391ac03c75eb7b57ea0749e":[9,0,1,40], -"pearl-anglescan-panel_8ipf.html#a7ab3962d1d9d50d6cd285d40d4a7ce50":[9,0,1,31], -"pearl-anglescan-panel_8ipf.html#a7b288598e3faa37e414b1443982c1a3e":[9,0,1,41], -"pearl-anglescan-panel_8ipf.html#a7ddecbeeaee3f9da87ac1ecdc26f530b":[9,0,1,58], -"pearl-anglescan-panel_8ipf.html#a89caab501e8f15262d6e4f2fa5b4a1bd":[9,0,1,23], -"pearl-anglescan-panel_8ipf.html#a8e4eacc6efacf2c65615c1ea72d722ed":[9,0,1,0], -"pearl-anglescan-panel_8ipf.html#a8e540427fab71f879e84003c49c59f22":[9,0,1,5], -"pearl-anglescan-panel_8ipf.html#a8f7266ac2840155dede704fda66fe6b0":[9,0,1,39], -"pearl-anglescan-panel_8ipf.html#a91d5343cc96730de12b535cb0bef9df2":[9,0,1,33], -"pearl-anglescan-panel_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[9,0,1,44], -"pearl-anglescan-panel_8ipf.html#a93dc5a029ae9831066e6ad133522ee88":[9,0,1,12], -"pearl-anglescan-panel_8ipf.html#a940f2115fb5b47e19516168d15346472":[9,0,1,15], -"pearl-anglescan-panel_8ipf.html#a9be861636d98d7891e6d106deac2f90b":[9,0,1,14], -"pearl-anglescan-panel_8ipf.html#aaa3478a3b0f26b12a12196cfaa87a8ae":[9,0,1,24], -"pearl-anglescan-panel_8ipf.html#aaaf3facc118f90a8f1b32948446899b3":[9,0,1,18], -"pearl-anglescan-panel_8ipf.html#aac9d4d0388cbe8e6aa8f47b1c5276d83":[9,0,1,3], -"pearl-anglescan-panel_8ipf.html#abb4d53822bc34bda0e38332c7777ebac":[9,0,1,9], -"pearl-anglescan-panel_8ipf.html#abe1237d8bf79a2ec3791ad9fe184bc3f":[9,0,1,55], -"pearl-anglescan-panel_8ipf.html#ac729557a307bddd2f2ad298199976c01":[9,0,1,57], -"pearl-anglescan-panel_8ipf.html#ac80c675f6f1a5505e9b6f0349ff5fe92":[9,0,1,45], -"pearl-anglescan-panel_8ipf.html#aca457d1f4414d20a911254b1de13ebbb":[9,0,1,59], -"pearl-anglescan-panel_8ipf.html#acc1028dcd046f441ceaac268ffac9af6":[9,0,1,48], -"pearl-anglescan-panel_8ipf.html#ad355d06d3b57bb458bd62e6d6f1f2417":[9,0,1,53], -"pearl-anglescan-panel_8ipf.html#ad8a01428a137278a31d4f1f4f9c634c5":[9,0,1,29], -"pearl-anglescan-panel_8ipf.html#addddc12e5b622a3d00756d724e5d05a9":[9,0,1,34], -"pearl-anglescan-panel_8ipf.html#adefddc5f384948c9dab3ee65b4a0668a":[9,0,1,25], -"pearl-anglescan-panel_8ipf.html#adf7c5a4e7c66c3d6e13d01674b9cf47f":[9,0,1,7], -"pearl-anglescan-panel_8ipf.html#ae42eb7f46e5c1a1b5d334ebb5e94d2d3":[9,0,1,19], -"pearl-anglescan-panel_8ipf.html#ae68496dbe344dc8a2c7c99b2d3f4b01c":[9,0,1,50], -"pearl-anglescan-panel_8ipf.html#ae838bde232c45d81f88303e91b16326b":[9,0,1,26], -"pearl-anglescan-panel_8ipf.html#af21424ce00e4bac1ac990d2bb83d46dc":[9,0,1,2], -"pearl-anglescan-panel_8ipf.html#af39609fc80e58f2188b3aa564f53b750":[9,0,1,37], -"pearl-anglescan-panel_8ipf.html#af5435ccaabba78f855b244929dc09ed0":[9,0,1,32], -"pearl-anglescan-panel_8ipf.html#af57abb0a7d41b800d33bb748f9fc5c38":[9,0,1,22], -"pearl-anglescan-panel_8ipf.html#af6509fc7584b0bcbdc8561df2bc12a58":[9,0,1,42], -"pearl-anglescan-panel_8ipf.html#af83bfcf48723e7f6eeb78b4e0d84277d":[9,0,1,47], -"pearl-anglescan-panel_8ipf_source.html":[9,0,1], -"pearl-anglescan-process_8ipf.html":[9,0,2], -"pearl-anglescan-process_8ipf.html#a01bac9e7d4ba743c3c34177a05070466":[9,0,2,49], -"pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13":[9,0,2,59], -"pearl-anglescan-process_8ipf.html#a0b9e2b025e1d55d2a064edccf6c1c3e3":[9,0,2,44], -"pearl-anglescan-process_8ipf.html#a13e0d37ae23f68cdc5da3d84cb4beed8":[9,0,2,51], -"pearl-anglescan-process_8ipf.html#a1442bc23122d52ba9c77e0f9baaad1da":[9,0,2,24], -"pearl-anglescan-process_8ipf.html#a1baaa3ffd9495ed427b43cbfe6e1edf8":[9,0,2,53], -"pearl-anglescan-process_8ipf.html#a1f4f74a8ae557c56e1e3aacd0b45f3f1":[9,0,2,18], -"pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0":[9,0,2,8], -"pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f":[9,0,2,54], -"pearl-anglescan-process_8ipf.html#a229770447193d4fd12032b235aab4d28":[9,0,2,41], -"pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779":[9,0,2,13], -"pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659":[9,0,2,57], -"pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d":[9,0,2,12], -"pearl-anglescan-process_8ipf.html#a3ec6935a5903d0974c93a2072d743013":[9,0,2,11], -"pearl-anglescan-process_8ipf.html#a4641c716180d737700c6df87f5f8974e":[9,0,2,26], -"pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770":[9,0,2,17], -"pearl-anglescan-process_8ipf.html#a48b7d774ed8d3f4329e9923e18e580e8":[9,0,2,39], -"pearl-anglescan-process_8ipf.html#a48cbd596656bc6d849c53afb4c58b90d":[9,0,2,46], -"pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5":[9,0,2,25], -"pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3":[9,0,2,56], -"pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae":[9,0,2,3], -"pearl-anglescan-process_8ipf.html#a5162488b366e217195d8f8bd7cdde0ce":[9,0,2,45], -"pearl-anglescan-process_8ipf.html#a5265fd61f86eb72dd877e4190bfb4adf":[9,0,2,29], -"pearl-anglescan-process_8ipf.html#a5dc0cc7db9d3d7a6b3fa3f1b04d84a5e":[9,0,2,52], -"pearl-anglescan-process_8ipf.html#a67d53a1c362d7e5bbeccf1c9c12ae0c2":[9,0,2,10], -"pearl-anglescan-process_8ipf.html#a70b0e243bcbd549e2b1da74aab605629":[9,0,2,48], -"pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4":[9,0,2,5], -"pearl-anglescan-process_8ipf.html#a89f73edcd51a675f4c3933cd0242484e":[9,0,2,32], -"pearl-anglescan-process_8ipf.html#a8c83a187e371783dea62c9f2bc97c52c":[9,0,2,0], -"pearl-anglescan-process_8ipf.html#a8eabc7feca73f9e0db2109a78ee382cb":[9,0,2,1], -"pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7":[9,0,2,33], -"pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389":[9,0,2,6], -"pearl-anglescan-process_8ipf.html#a987811346894d8d81fc590b2f5ccec49":[9,0,2,23], -"pearl-anglescan-process_8ipf.html#a992920d621023e6b483ff51eee68b508":[9,0,2,37], -"pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1":[9,0,2,7], -"pearl-anglescan-process_8ipf.html#a9b56897bd92d926d65f4c67bef1d41bb":[9,0,2,36], -"pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d":[9,0,2,22], -"pearl-anglescan-process_8ipf.html#aa486e16909d01e2251eeb4d635b972b1":[9,0,2,28], -"pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5":[9,0,2,61], -"pearl-anglescan-process_8ipf.html#aa54a550eccad2c8ccd82d2b4167f7a92":[9,0,2,31], -"pearl-anglescan-process_8ipf.html#aa5b1e2ab1dd43a73b7157406b803887e":[9,0,2,21], -"pearl-anglescan-process_8ipf.html#aa79c0ff6073bd42e202b9fa3f8c00b9f":[9,0,2,15], -"pearl-anglescan-process_8ipf.html#aaa734fddecdd75c7cabe20ba777b41b9":[9,0,2,35], -"pearl-anglescan-process_8ipf.html#aae45cc49d67f79dcedc4420f82acea4c":[9,0,2,55], -"pearl-anglescan-process_8ipf.html#ab65d25af7476ed18f7bf7359614a912b":[9,0,2,14], -"pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843":[9,0,2,60], -"pearl-anglescan-process_8ipf.html#ab6ac1268de338040028dca8d0ddc967c":[9,0,2,27], -"pearl-anglescan-process_8ipf.html#ab97a936bc0fa6137b6d0b43cb61d39a1":[9,0,2,50], -"pearl-anglescan-process_8ipf.html#ac0def1ded61f9cd758df0c99f4ff9470":[9,0,2,9], -"pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db":[9,0,2,63], -"pearl-anglescan-process_8ipf.html#ac15ebd5a19c558dde666ab36aeb9906f":[9,0,2,43], -"pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288":[9,0,2,42], -"pearl-anglescan-process_8ipf.html#ac617c3b400488b656493af8ca08f1791":[9,0,2,34], -"pearl-anglescan-process_8ipf.html#acca0130cccf2286863bbf5b7f91c5b3b":[9,0,2,30], -"pearl-anglescan-process_8ipf.html#acf6fddb73624fe2d21429e38c4994088":[9,0,2,2], -"pearl-anglescan-process_8ipf.html#ad0a93367d2e9b66bb7b81697e87adfaf":[9,0,2,38], -"pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a":[9,0,2,4], -"pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2":[9,0,2,16], -"pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665":[9,0,2,62], -"pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d":[9,0,2,20], -"pearl-anglescan-process_8ipf.html#af9874b5c1ce1d216741c7880a5fdcfcc":[9,0,2,47], -"pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217":[9,0,2,58], -"pearl-anglescan-process_8ipf.html#afed227ae79873fd32c96afbf606d1965":[9,0,2,40], -"pearl-anglescan-process_8ipf.html#afedad38a418cee5d1fb9e08aae2160a0":[9,0,2,19], -"pearl-anglescan-process_8ipf_source.html":[9,0,2], -"pearl-anglescan-tracker_8ipf.html":[9,0,3], -"pearl-anglescan-tracker_8ipf.html#a02271bf812a3e3f87c958f4c58e9f71b":[9,0,3,10], -"pearl-anglescan-tracker_8ipf.html#a02987fe03ea914a53c52d58219979d65":[9,0,3,37], -"pearl-anglescan-tracker_8ipf.html#a07efc5d6a7121540cc185c251353677c":[9,0,3,27], -"pearl-anglescan-tracker_8ipf.html#a0852e59e9018cf3f7e176aa2355b18e3":[9,0,3,22], -"pearl-anglescan-tracker_8ipf.html#a09e95dbf1582fcf2e6f71baddb147f86":[9,0,3,20], -"pearl-anglescan-tracker_8ipf.html#a0b8ff36cf3c20b1c0db3217d9065f7cf":[9,0,3,39], -"pearl-anglescan-tracker_8ipf.html#a150243e26e8adf8b354b8afde064136d":[9,0,3,12], -"pearl-anglescan-tracker_8ipf.html#a20720748c82a7eaa4b02d4084a4219b2":[9,0,3,43], -"pearl-anglescan-tracker_8ipf.html#a306b168cab2f9c4146cee87009e69f6d":[9,0,3,17] +"pearl-anglescan-tracker_8ipf.html":[5,0,0,3], +"pearl-anglescan-tracker_8ipf.html#a02271bf812a3e3f87c958f4c58e9f71b":[5,0,0,3,10], +"pearl-anglescan-tracker_8ipf.html#a02987fe03ea914a53c52d58219979d65":[5,0,0,3,37], +"pearl-anglescan-tracker_8ipf.html#a07efc5d6a7121540cc185c251353677c":[5,0,0,3,27], +"pearl-anglescan-tracker_8ipf.html#a0852e59e9018cf3f7e176aa2355b18e3":[5,0,0,3,22], +"pearl-anglescan-tracker_8ipf.html#a09e95dbf1582fcf2e6f71baddb147f86":[5,0,0,3,20], +"pearl-anglescan-tracker_8ipf.html#a0b8ff36cf3c20b1c0db3217d9065f7cf":[5,0,0,3,39], +"pearl-anglescan-tracker_8ipf.html#a150243e26e8adf8b354b8afde064136d":[5,0,0,3,12], +"pearl-anglescan-tracker_8ipf.html#a20720748c82a7eaa4b02d4084a4219b2":[5,0,0,3,43], +"pearl-anglescan-tracker_8ipf.html#a306b168cab2f9c4146cee87009e69f6d":[5,0,0,3,17], +"pearl-anglescan-tracker_8ipf.html#a33e84ae8e13f405d466b28e83f608cb9":[5,0,0,3,13], +"pearl-anglescan-tracker_8ipf.html#a35a5cd8a21b48be8d726c69eb5fca134":[5,0,0,3,0], +"pearl-anglescan-tracker_8ipf.html#a37aaf2f08c3910bed554a10dd82616ec":[5,0,0,3,15], +"pearl-anglescan-tracker_8ipf.html#a3844e7fd93b4f54aa52f084687c2106c":[5,0,0,3,16], +"pearl-anglescan-tracker_8ipf.html#a3882038c0ad82396b6591fd756817535":[5,0,0,3,26], +"pearl-anglescan-tracker_8ipf.html#a43d85b93bb42a67b8e8afb9afc8d8eae":[5,0,0,3,2], +"pearl-anglescan-tracker_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[5,0,0,3,24], +"pearl-anglescan-tracker_8ipf.html#a4619cb98a75adb3c39ea3a62e524b793":[5,0,0,3,18], +"pearl-anglescan-tracker_8ipf.html#a4bc40cded4d4d7676b084f7200ca5e0d":[5,0,0,3,31], +"pearl-anglescan-tracker_8ipf.html#a4bde8b2fc39c61c0d5a6879f1d0ae115":[5,0,0,3,21], +"pearl-anglescan-tracker_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab":[5,0,0,3,44], +"pearl-anglescan-tracker_8ipf.html#a4cf5ad2fdf771ffc157a3924a03f5a46":[5,0,0,3,3], +"pearl-anglescan-tracker_8ipf.html#a4dad34b0481be20234fa5e8d25b262c4":[5,0,0,3,28], +"pearl-anglescan-tracker_8ipf.html#a5fb1f1abddb56b129f053605035d3281":[5,0,0,3,11], +"pearl-anglescan-tracker_8ipf.html#a6bfd8b6eba0b206df6ec56c7b6489e0b":[5,0,0,3,34], +"pearl-anglescan-tracker_8ipf.html#a6d484e3bb5f8c18d3b2910e8346b2c17":[5,0,0,3,29], +"pearl-anglescan-tracker_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[5,0,0,3,42], +"pearl-anglescan-tracker_8ipf.html#a766f90a9dad70d9deb4272ba480ee84a":[5,0,0,3,9], +"pearl-anglescan-tracker_8ipf.html#a8a74ddd33e286105a45a89105de72621":[5,0,0,3,6], +"pearl-anglescan-tracker_8ipf.html#a8d6e9058f2b0b4978f56e892ce199e6a":[5,0,0,3,33], +"pearl-anglescan-tracker_8ipf.html#a8e4eacc6efacf2c65615c1ea72d722ed":[5,0,0,3,1], +"pearl-anglescan-tracker_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[5,0,0,3,25], +"pearl-anglescan-tracker_8ipf.html#a9751db419b4c0de884450c09ff5822a7":[5,0,0,3,38], +"pearl-anglescan-tracker_8ipf.html#a9b4acc299c5e698695baf0b4817ff7eb":[5,0,0,3,5], +"pearl-anglescan-tracker_8ipf.html#aa79c1d1584eb2322adae328bf1437f34":[5,0,0,3,35], +"pearl-anglescan-tracker_8ipf.html#aa7c4e3e0ed255e61bc80f8b27b78fce6":[5,0,0,3,36], +"pearl-anglescan-tracker_8ipf.html#ab961340af09fed4d2006bca8c0f2edd5":[5,0,0,3,40], +"pearl-anglescan-tracker_8ipf.html#ac729557a307bddd2f2ad298199976c01":[5,0,0,3,32], +"pearl-anglescan-tracker_8ipf.html#ac953a75b45d65adf37ce5560bf441876":[5,0,0,3,4], +"pearl-anglescan-tracker_8ipf.html#ac9c92805f39c7a5c68d4c017d14ee178":[5,0,0,3,7], +"pearl-anglescan-tracker_8ipf.html#acfe94a64ff3e8c4cb32e34ffb9cae594":[5,0,0,3,19], +"pearl-anglescan-tracker_8ipf.html#ad06e1354226f4f617ad0a8d6d7572dca":[5,0,0,3,30], +"pearl-anglescan-tracker_8ipf.html#ae4ece97352b85ced47e954c025e3b69b":[5,0,0,3,8], +"pearl-anglescan-tracker_8ipf.html#ae53e615892fbc39f831b6bd7a0ae242e":[5,0,0,3,23], +"pearl-anglescan-tracker_8ipf.html#af5a2960c49626f267fbd2873b27c8e42":[5,0,0,3,41], +"pearl-anglescan-tracker_8ipf.html#afaec8443094530fd1e723251e04c5dc9":[5,0,0,3,14], +"pearl-anglescan-tracker_8ipf_source.html":[5,0,0,3], +"pearl-arpes_8ipf.html":[5,0,0,7], +"pearl-arpes_8ipf.html#a8e4eacc6efacf2c65615c1ea72d722ed":[5,0,0,7,0], +"pearl-arpes_8ipf.html#ac41f24572943dac2b40c255797a6c7a8":[5,0,0,7,1], +"pearl-arpes_8ipf_source.html":[5,0,0,7], +"pearl-data-explorer_8ipf.html":[5,0,0,9], +"pearl-data-explorer_8ipf.html#a00068ee0657abb41a9b96a4575e41bf3":[5,0,0,9,42], +"pearl-data-explorer_8ipf.html#a001074020ad32b290d390a450a389c69":[5,0,0,9,14], +"pearl-data-explorer_8ipf.html#a00307dffd6f272f13acfe4dea99a81d4":[5,0,0,9,60], +"pearl-data-explorer_8ipf.html#a00bf5267a40b2b3d760c64d73e139878":[5,0,0,9,67], +"pearl-data-explorer_8ipf.html#a01469ffeb3101084c04861acd93d704d":[5,0,0,9,43], +"pearl-data-explorer_8ipf.html#a01e48e67a22dc56851447bd77abecbe1":[5,0,0,9,6], +"pearl-data-explorer_8ipf.html#a02a64144b7ed2c1bc230e265c55e81a1":[5,0,0,9,2], +"pearl-data-explorer_8ipf.html#a04cc0b9d5e3a649ba3514fcbf126eefe":[5,0,0,9,63], +"pearl-data-explorer_8ipf.html#a0adc1b370fd3bf230b61b094b3c0accb":[5,0,0,9,16], +"pearl-data-explorer_8ipf.html#a0c162346b59b0f66d34ee26ce5fe1e52":[5,0,0,9,38], +"pearl-data-explorer_8ipf.html#a0e1e23060294bd4b18980e59229c70ed":[5,0,0,9,36], +"pearl-data-explorer_8ipf.html#a0f7473343cf773af9efedee1a18ac5db":[5,0,0,9,3], +"pearl-data-explorer_8ipf.html#a166273677188a66c25a84616c6f4baa9":[5,0,0,9,46], +"pearl-data-explorer_8ipf.html#a1731f8e1507d90e285885723ae32ba13":[5,0,0,9,49], +"pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d":[5,0,0,9,65], +"pearl-data-explorer_8ipf.html#a1868754e64cb1448e564c0936e78574d":[5,0,0,9,8], +"pearl-data-explorer_8ipf.html#a1bcfbc48250274bcf3b8ca7a3a4b7c50":[5,0,0,9,59], +"pearl-data-explorer_8ipf.html#a1d7f4ad59b81ecd84bb63cfabd9f24dc":[5,0,0,9,54], +"pearl-data-explorer_8ipf.html#a200e7ba052fbce4614fb4254701646ab":[5,0,0,9,55], +"pearl-data-explorer_8ipf.html#a2178d5acf21fe4372ecc06224bec28ba":[5,0,0,9,37], +"pearl-data-explorer_8ipf.html#a28921b185d4e6fbe9a7a689757269f19":[5,0,0,9,19], +"pearl-data-explorer_8ipf.html#a2fef024292bab2b7c8dea2adc19ce3b4":[5,0,0,9,44], +"pearl-data-explorer_8ipf.html#a3232c51a8c19eaf86b9bc67352967a9f":[5,0,0,9,48], +"pearl-data-explorer_8ipf.html#a36fd730f2d057513179dd59f8fddaf75":[5,0,0,9,27], +"pearl-data-explorer_8ipf.html#a384a37c2865baf5c21b63cff2488c3b3":[5,0,0,9,26], +"pearl-data-explorer_8ipf.html#a3fd06ac9aa62de7f00e10ce749ba12c9":[5,0,0,9,7], +"pearl-data-explorer_8ipf.html#a435adef620193e09110ff69ca8d106de":[5,0,0,9,32], +"pearl-data-explorer_8ipf.html#a457d2257ffd5880ab858fa583a5d1c99":[5,0,0,9,51], +"pearl-data-explorer_8ipf.html#a45be265789a5260e3daa05eca0ec309e":[5,0,0,9,11], +"pearl-data-explorer_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[5,0,0,9,29], +"pearl-data-explorer_8ipf.html#a4633885afab755fbc5d262178b9ddcb8":[5,0,0,9,50], +"pearl-data-explorer_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab":[5,0,0,9,69], +"pearl-data-explorer_8ipf.html#a4db79d04c74beb1af71b72916f8f0362":[5,0,0,9,61], +"pearl-data-explorer_8ipf.html#a4ef196f752bb5780ed4f4a588f9ebc81":[5,0,0,9,1], +"pearl-data-explorer_8ipf.html#a505ebda6bdecc4120e01766d7aedaf5d":[5,0,0,9,53], +"pearl-data-explorer_8ipf.html#a53af8689144e3aeb27ca177db5dd0c22":[5,0,0,9,66], +"pearl-data-explorer_8ipf.html#a54be4e40b17906c281cdf649d6ce537e":[5,0,0,9,21], +"pearl-data-explorer_8ipf.html#a5a7d3c00360944c00f236900b992694d":[5,0,0,9,52], +"pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e":[5,0,0,9,41], +"pearl-data-explorer_8ipf.html#a5d0c796365e8a24683c73e2b29571018":[5,0,0,9,25], +"pearl-data-explorer_8ipf.html#a614e89b9c06511144ccb380e61cc7bd6":[5,0,0,9,31], +"pearl-data-explorer_8ipf.html#a638a13044aede37cabe0c2c7a7c0cb06":[5,0,0,9,45], +"pearl-data-explorer_8ipf.html#a66043ccbe2e8dda258e639cb7a231537":[5,0,0,9,18], +"pearl-data-explorer_8ipf.html#a67cd1a025e5428d443027c1f57eaec09":[5,0,0,9,13], +"pearl-data-explorer_8ipf.html#a6aa44ff12b8530adbaaaf7405b1a68ba":[5,0,0,9,5], +"pearl-data-explorer_8ipf.html#a6b5e9729ee6dedbb217c741639a168ed":[5,0,0,9,30], +"pearl-data-explorer_8ipf.html#a6e8eaf8c092f5da60bd425f9bd8bf178":[5,0,0,9,47], +"pearl-data-explorer_8ipf.html#a70150946799d759473b409b3371e3ae2":[5,0,0,9,9], +"pearl-data-explorer_8ipf.html#a71f9c277d310c3f4e7739be69dad0ab5":[5,0,0,9,62], +"pearl-data-explorer_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[5,0,0,9,68], +"pearl-data-explorer_8ipf.html#a77047115739da6d28055f7fd44c9fd2c":[5,0,0,9,12], +"pearl-data-explorer_8ipf.html#a7c36ce6ccfaa77cf7a6b68b9014c1b9b":[5,0,0,9,24], +"pearl-data-explorer_8ipf.html#a844467a592e5b26b2324326f22b7da89":[5,0,0,9,0], +"pearl-data-explorer_8ipf.html#a896081071fffecdeff09ae4c9d6e84cb":[5,0,0,9,20], +"pearl-data-explorer_8ipf.html#a8a923d7095071e7e6f99018379807732":[5,0,0,9,40], +"pearl-data-explorer_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[5,0,0,9,35], +"pearl-data-explorer_8ipf.html#a96a3ef643cc29948ba57a3bfa1339c4d":[5,0,0,9,33], +"pearl-data-explorer_8ipf.html#a9865cbba072e1b6e2d05e1e7d68a0a35":[5,0,0,9,17], +"pearl-data-explorer_8ipf.html#a9cefcdc49b2169e99c743b0a683ed3a6":[5,0,0,9,4], +"pearl-data-explorer_8ipf.html#aac8d96d9ccaeddab1cb0f463b01616cb":[5,0,0,9,58], +"pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca":[5,0,0,9,39], +"pearl-data-explorer_8ipf.html#aba2f8be504e49469194cc4b562be3a9c":[5,0,0,9,23], +"pearl-data-explorer_8ipf.html#ababd5be120b526ca410c53b4a2ba3f8d":[5,0,0,9,34], +"pearl-data-explorer_8ipf.html#ac729557a307bddd2f2ad298199976c01":[5,0,0,9,56], +"pearl-data-explorer_8ipf.html#ac9bd62937d6046e08be6d0a737a49a3e":[5,0,0,9,57], +"pearl-data-explorer_8ipf.html#ad8a01428a137278a31d4f1f4f9c634c5":[5,0,0,9,10], +"pearl-data-explorer_8ipf.html#ad95697e197428ff73a1a258ea3bb79b2":[5,0,0,9,22], +"pearl-data-explorer_8ipf.html#ae02b954d90dc8f43c007cc3fb1a1ee16":[5,0,0,9,64], +"pearl-data-explorer_8ipf.html#af4474f34647ec24f27f900226c6bb3bd":[5,0,0,9,15], +"pearl-data-explorer_8ipf.html#af616e37167d5753b11e513bd03685ab8":[5,0,0,9,28], +"pearl-data-explorer_8ipf_source.html":[5,0,0,9], +"pearl-gui-tools_8ipf.html":[5,0,0,12], +"pearl-gui-tools_8ipf.html#a97ad19d83cf0007c4bcf97a32164610f":[5,0,0,12,2], +"pearl-gui-tools_8ipf.html#aaf29d090c81e00cf44af295193b24c5a":[5,0,0,12,0], +"pearl-gui-tools_8ipf.html#aca0a41a0f28a35ac7535df30ddbd79fe":[5,0,0,12,1], +"pearl-gui-tools_8ipf_source.html":[5,0,0,12], +"pearl-matrix-import_8ipf.html":[5,0,0,13], +"pearl-matrix-import_8ipf.html#a0dc1efa23739e10b7558543b166e95b9":[5,0,0,13,18], +"pearl-matrix-import_8ipf.html#a1a46b042e41daffee61706ab2cf54351":[5,0,0,13,10], +"pearl-matrix-import_8ipf.html#a3a0ba4a7ad64739303b705d92be53267":[5,0,0,13,13], +"pearl-matrix-import_8ipf.html#a3f524f5190341d2accc8cb8c3ed2ceb5":[5,0,0,13,1], +"pearl-matrix-import_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[5,0,0,13,4], +"pearl-matrix-import_8ipf.html#a4bfeaf81ac483df0a38b26b6a8cf74a6":[5,0,0,13,16], +"pearl-matrix-import_8ipf.html#a59e72c849f4314aaa8339fd899665d85":[5,0,0,13,15], +"pearl-matrix-import_8ipf.html#a6ac0c685976b0e0c1944fb616a4f3a3c":[5,0,0,13,11], +"pearl-matrix-import_8ipf.html#a6aeef317fd468c88c99a274338c70ae3":[5,0,0,13,12], +"pearl-matrix-import_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[5,0,0,13,23], +"pearl-matrix-import_8ipf.html#a81b1d81261a32d0ed4cf79b81487f1b4":[5,0,0,13,6], +"pearl-matrix-import_8ipf.html#a856478705a78e8105ea5d91a2228975b":[5,0,0,13,7], +"pearl-matrix-import_8ipf.html#a893405a122fdf70429f4f75b8877ed7d":[5,0,0,13,8], +"pearl-matrix-import_8ipf.html#a8acd2b03343ef9bdfecaa75e831392d1":[5,0,0,13,19], +"pearl-matrix-import_8ipf.html#ab80101bc780dcbe94200e2446bce51d9":[5,0,0,13,20], +"pearl-matrix-import_8ipf.html#abd09594d22038853e1e8021e0f36363d":[5,0,0,13,14], +"pearl-matrix-import_8ipf.html#ac7790f06151821678a65ab0065a5323e":[5,0,0,13,3], +"pearl-matrix-import_8ipf.html#aca457d1f4414d20a911254b1de13ebbb":[5,0,0,13,22], +"pearl-matrix-import_8ipf.html#ad720655ff881ddecae2e1b8afed58fa0":[5,0,0,13,21], +"pearl-matrix-import_8ipf.html#ad74d5afa71179728a9237d1ec5884482":[5,0,0,13,9], +"pearl-matrix-import_8ipf.html#ad8532f1473f92539fe88217d5d6e3368":[5,0,0,13,17], +"pearl-matrix-import_8ipf.html#ae2cfa1ac6651cfc3fb0dfce03494995b":[5,0,0,13,2], +"pearl-matrix-import_8ipf.html#af0eaec901e06ce59250eb434539a0f6c":[5,0,0,13,5], +"pearl-matrix-import_8ipf_source.html":[5,0,0,13], +"pearl-menu_8ipf.html":[5,0,0,14], +"pearl-menu_8ipf.html#a1437f6baee0bd6d04bbcd2236c2d1f7f":[5,0,0,14,10] }; diff --git a/doc/html/navtreeindex1.js b/doc/html/navtreeindex1.js index e5d7f78..a19c37c 100644 --- a/doc/html/navtreeindex1.js +++ b/doc/html/navtreeindex1.js @@ -1,253 +1,42 @@ var NAVTREEINDEX1 = { -"pearl-anglescan-tracker_8ipf.html#a33e84ae8e13f405d466b28e83f608cb9":[9,0,3,13], -"pearl-anglescan-tracker_8ipf.html#a35a5cd8a21b48be8d726c69eb5fca134":[9,0,3,0], -"pearl-anglescan-tracker_8ipf.html#a37aaf2f08c3910bed554a10dd82616ec":[9,0,3,15], -"pearl-anglescan-tracker_8ipf.html#a3844e7fd93b4f54aa52f084687c2106c":[9,0,3,16], -"pearl-anglescan-tracker_8ipf.html#a3882038c0ad82396b6591fd756817535":[9,0,3,26], -"pearl-anglescan-tracker_8ipf.html#a43d85b93bb42a67b8e8afb9afc8d8eae":[9,0,3,2], -"pearl-anglescan-tracker_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[9,0,3,24], -"pearl-anglescan-tracker_8ipf.html#a4619cb98a75adb3c39ea3a62e524b793":[9,0,3,18], -"pearl-anglescan-tracker_8ipf.html#a4bc40cded4d4d7676b084f7200ca5e0d":[9,0,3,31], -"pearl-anglescan-tracker_8ipf.html#a4bde8b2fc39c61c0d5a6879f1d0ae115":[9,0,3,21], -"pearl-anglescan-tracker_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab":[9,0,3,44], -"pearl-anglescan-tracker_8ipf.html#a4cf5ad2fdf771ffc157a3924a03f5a46":[9,0,3,3], -"pearl-anglescan-tracker_8ipf.html#a4dad34b0481be20234fa5e8d25b262c4":[9,0,3,28], -"pearl-anglescan-tracker_8ipf.html#a5fb1f1abddb56b129f053605035d3281":[9,0,3,11], -"pearl-anglescan-tracker_8ipf.html#a6bfd8b6eba0b206df6ec56c7b6489e0b":[9,0,3,34], -"pearl-anglescan-tracker_8ipf.html#a6d484e3bb5f8c18d3b2910e8346b2c17":[9,0,3,29], -"pearl-anglescan-tracker_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[9,0,3,42], -"pearl-anglescan-tracker_8ipf.html#a766f90a9dad70d9deb4272ba480ee84a":[9,0,3,9], -"pearl-anglescan-tracker_8ipf.html#a8a74ddd33e286105a45a89105de72621":[9,0,3,6], -"pearl-anglescan-tracker_8ipf.html#a8d6e9058f2b0b4978f56e892ce199e6a":[9,0,3,33], -"pearl-anglescan-tracker_8ipf.html#a8e4eacc6efacf2c65615c1ea72d722ed":[9,0,3,1], -"pearl-anglescan-tracker_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[9,0,3,25], -"pearl-anglescan-tracker_8ipf.html#a9751db419b4c0de884450c09ff5822a7":[9,0,3,38], -"pearl-anglescan-tracker_8ipf.html#a9b4acc299c5e698695baf0b4817ff7eb":[9,0,3,5], -"pearl-anglescan-tracker_8ipf.html#aa79c1d1584eb2322adae328bf1437f34":[9,0,3,35], -"pearl-anglescan-tracker_8ipf.html#aa7c4e3e0ed255e61bc80f8b27b78fce6":[9,0,3,36], -"pearl-anglescan-tracker_8ipf.html#ab961340af09fed4d2006bca8c0f2edd5":[9,0,3,40], -"pearl-anglescan-tracker_8ipf.html#ac729557a307bddd2f2ad298199976c01":[9,0,3,32], -"pearl-anglescan-tracker_8ipf.html#ac953a75b45d65adf37ce5560bf441876":[9,0,3,4], -"pearl-anglescan-tracker_8ipf.html#ac9c92805f39c7a5c68d4c017d14ee178":[9,0,3,7], -"pearl-anglescan-tracker_8ipf.html#acfe94a64ff3e8c4cb32e34ffb9cae594":[9,0,3,19], -"pearl-anglescan-tracker_8ipf.html#ad06e1354226f4f617ad0a8d6d7572dca":[9,0,3,30], -"pearl-anglescan-tracker_8ipf.html#ae4ece97352b85ced47e954c025e3b69b":[9,0,3,8], -"pearl-anglescan-tracker_8ipf.html#ae53e615892fbc39f831b6bd7a0ae242e":[9,0,3,23], -"pearl-anglescan-tracker_8ipf.html#af5a2960c49626f267fbd2873b27c8e42":[9,0,3,41], -"pearl-anglescan-tracker_8ipf.html#afaec8443094530fd1e723251e04c5dc9":[9,0,3,14], -"pearl-anglescan-tracker_8ipf_source.html":[9,0,3], -"pearl-area-display_8ipf.html":[9,0,4], -"pearl-area-display_8ipf.html#a174177742fdce7f37027de8fa832b3bd":[9,0,4,37], -"pearl-area-display_8ipf.html#a195b12857685c4e535a840c5db324b4a":[9,0,4,32], -"pearl-area-display_8ipf.html#a1bf20e37ed3e9c76be8ebe448c68a048":[9,0,4,30], -"pearl-area-display_8ipf.html#a2442bc044aaa12ab817a5f9fa300d1f8":[9,0,4,39], -"pearl-area-display_8ipf.html#a24b17f99fafd8043ed3e4502000da316":[9,0,4,28], -"pearl-area-display_8ipf.html#a27f0957d61f3c2d30a4854911b460c36":[9,0,4,1], -"pearl-area-display_8ipf.html#a2b183a27ec795b0ec1f8efabe3068369":[9,0,4,33], -"pearl-area-display_8ipf.html#a31461b664ec651a39442e9a46ffd88c9":[9,0,4,25], -"pearl-area-display_8ipf.html#a48044f9ee518d47770e33ee9f381f204":[9,0,4,5], -"pearl-area-display_8ipf.html#a48b08ab53729d9d0477deaceedef2769":[9,0,4,4], -"pearl-area-display_8ipf.html#a4af98ec7af48a653c6fac716ea8fa505":[9,0,4,20], -"pearl-area-display_8ipf.html#a4b76a98582f5997d3810f969dbb6c4ed":[9,0,4,29], -"pearl-area-display_8ipf.html#a5657fc4dcd395aef637c19e8df57a418":[9,0,4,15], -"pearl-area-display_8ipf.html#a6418a1b2d18b82cb71c0fecbd513a934":[9,0,4,6], -"pearl-area-display_8ipf.html#a65b07e355df20cfb692dfb32f472b478":[9,0,4,8], -"pearl-area-display_8ipf.html#a6cc0970b41ca197fa47263556fa2686a":[9,0,4,31], -"pearl-area-display_8ipf.html#a6d20a8c6bf5ed143d375dee71fb3a6d5":[9,0,4,14], -"pearl-area-display_8ipf.html#a72b57037abd27f65986034c0b4cc191e":[9,0,4,3], -"pearl-area-display_8ipf.html#a7334815c60e2c11e2754c07489a62f4b":[9,0,4,19], -"pearl-area-display_8ipf.html#a77a71985e716a300e0b61c233cd93f40":[9,0,4,22], -"pearl-area-display_8ipf.html#a8411f0cfec3515f1ae4f0140efc14318":[9,0,4,23], -"pearl-area-display_8ipf.html#a89a5e3e29a0cd09951dcdf13aa28d941":[9,0,4,16], -"pearl-area-display_8ipf.html#a8cc3ea3bea4e851e4144140a2da42a03":[9,0,4,9], -"pearl-area-display_8ipf.html#a8fad5aebaca72887d5898b4c421bcdae":[9,0,4,10], -"pearl-area-display_8ipf.html#ab10a0d94991b9cd958557dbc48d70624":[9,0,4,38], -"pearl-area-display_8ipf.html#ab8c9979c6f3ab95f983c2a525a69c035":[9,0,4,26], -"pearl-area-display_8ipf.html#abaf229d75d9d579a559295795a6bc2e1":[9,0,4,18], -"pearl-area-display_8ipf.html#abafc4f012b04592724109f4757cbe271":[9,0,4,35], -"pearl-area-display_8ipf.html#abe702d40071e3c5e662eb8d47dd6d885":[9,0,4,27], -"pearl-area-display_8ipf.html#ac5c7a25e9a8c0b001a429bae23639da9":[9,0,4,34], -"pearl-area-display_8ipf.html#ace169e0824e6bddbd646972946edccbe":[9,0,4,36], -"pearl-area-display_8ipf.html#ad2a84495ddac89bc8f4203fca56babfd":[9,0,4,17], -"pearl-area-display_8ipf.html#ad3e190d1ec1b82ebef00c9f9ac44b50a":[9,0,4,12], -"pearl-area-display_8ipf.html#ad79b37ab4fcf2cbdad6874813d93d4b1":[9,0,4,21], -"pearl-area-display_8ipf.html#ae2b11295d2715e9af019513923c64570":[9,0,4,7], -"pearl-area-display_8ipf.html#ae3b4756cdc12a4a4b15a770ba0069823":[9,0,4,2], -"pearl-area-display_8ipf.html#aee051acfe6a3c8214118b78dfe4854fd":[9,0,4,13], -"pearl-area-display_8ipf.html#af8d5e003fcff1f750685ed6f94717730":[9,0,4,11], -"pearl-area-display_8ipf.html#af9bd125ed4fb4ada10b78bca2607b44d":[9,0,4,0], -"pearl-area-display_8ipf.html#afa2546f9cb03dfa8bf0cc9966f0b7a45":[9,0,4,24], -"pearl-area-display_8ipf_source.html":[9,0,4], -"pearl-area-import_8ipf.html":[9,0,5], -"pearl-area-import_8ipf.html#a1fdcc02340375afe8d8cd7537c6e9cfb":[9,0,5,17], -"pearl-area-import_8ipf.html#a227e4db1c51a910dcf86d355473fe74e":[9,0,5,18], -"pearl-area-import_8ipf.html#a27a72a3901a5342ca9dea02e3219631c":[9,0,5,3], -"pearl-area-import_8ipf.html#a33f8faf117450af1d6dae9ef48786cd6":[9,0,5,26], -"pearl-area-import_8ipf.html#a3f2ac36f961941e46e80a775de8300e5":[9,0,5,12], -"pearl-area-import_8ipf.html#a44d495fba0dd2b82dec13760a07fd226":[9,0,5,25], -"pearl-area-import_8ipf.html#a4a9741d1c19b10bb98b73bd5163a497b":[9,0,5,8], -"pearl-area-import_8ipf.html#a4efc9178892310c9e2caf40c61d71bd7":[9,0,5,24], -"pearl-area-import_8ipf.html#a774751d1857ea6946a942448dc913128":[9,0,5,16], -"pearl-area-import_8ipf.html#a84dc7f466b42dde5d96c49827b2122cf":[9,0,5,6], -"pearl-area-import_8ipf.html#a931a7bfaaf75d308a0ce3c74ffc751bc":[9,0,5,7], -"pearl-area-import_8ipf.html#a9439de3b676e686eeca4e6b2588c01a6":[9,0,5,19], -"pearl-area-import_8ipf.html#a98804ce23a5c2c314ac243baa0824424":[9,0,5,20], -"pearl-area-import_8ipf.html#a98f29671bdce6a5981e8865de8b9d483":[9,0,5,10], -"pearl-area-import_8ipf.html#a98f9339cd2fae80d0d92451df88395aa":[9,0,5,11], -"pearl-area-import_8ipf.html#aa3cdc56096a6a1bf2a2d80a6245a36d2":[9,0,5,22], -"pearl-area-import_8ipf.html#aa5e29dc1a380311d00a5f85be867e47b":[9,0,5,4], -"pearl-area-import_8ipf.html#ab1040bf272c69dc69777b2f91df41fab":[9,0,5,5], -"pearl-area-import_8ipf.html#ac76d5ba94a3d7c864437420d80c77064":[9,0,5,9], -"pearl-area-import_8ipf.html#ac98a5f2d12b559aba4e53192c49a7743":[9,0,5,23], -"pearl-area-import_8ipf.html#acde16dc7a393250b17165344f865f7b5":[9,0,5,13], -"pearl-area-import_8ipf.html#acfa6d2675e63f4f686289ef853b262a9":[9,0,5,14], -"pearl-area-import_8ipf.html#ad28dbbba73e553f7b5dcf8baf1c86786":[9,0,5,1], -"pearl-area-import_8ipf.html#ade69cb0f82e0c9cf6082d5fcc29f742f":[9,0,5,2], -"pearl-area-import_8ipf.html#ae2cfa1ac6651cfc3fb0dfce03494995b":[9,0,5,21], -"pearl-area-import_8ipf.html#ae88bc41882fd16c94c04d856f3e062e4":[9,0,5,15], -"pearl-area-import_8ipf.html#aedff2e67d2e1bac907f2eaf24a6e5c3c":[9,0,5,0], -"pearl-area-import_8ipf_source.html":[9,0,5], -"pearl-area-profiles_8ipf.html":[9,0,6], -"pearl-area-profiles_8ipf.html#a2eb6a0bcced893e827cfa4e1236e8460":[9,0,6,7], -"pearl-area-profiles_8ipf.html#a3483707fbdbfdbaec069591a5d3b07a6":[9,0,6,4], -"pearl-area-profiles_8ipf.html#a363af257a04d51fff2a8d5b282f65f21":[9,0,6,3], -"pearl-area-profiles_8ipf.html#a3cadf0b28d1fd84e9922610c20868283":[9,0,6,0], -"pearl-area-profiles_8ipf.html#a65bb359c057a9d900c486e186c9974df":[9,0,6,5], -"pearl-area-profiles_8ipf.html#a71f02613c4a4d21c014493e906dbe922":[9,0,6,8], -"pearl-area-profiles_8ipf.html#a83700e2faf844e2480c89b6ca4c66a79":[9,0,6,2], -"pearl-area-profiles_8ipf.html#a8b09e13162fa47cc076e1e661e80b002":[9,0,6,12], -"pearl-area-profiles_8ipf.html#a8de5d4f1bcca91df5bbff568ab7b582d":[9,0,6,1], -"pearl-area-profiles_8ipf.html#aa40fd5049f993e72fd52a66a6cdde7cc":[9,0,6,10], -"pearl-area-profiles_8ipf.html#ab1a65cf82f6933db3dd7b564582e8ed1":[9,0,6,9], -"pearl-area-profiles_8ipf.html#ab58b7c0a88743ecbcb0fc8296577a792":[9,0,6,13], -"pearl-area-profiles_8ipf.html#abb1eed32a982037ebab00f5c3ea95e62":[9,0,6,11], -"pearl-area-profiles_8ipf.html#af612340d1d132cacda9de7bb77c2e0aa":[9,0,6,6], -"pearl-area-profiles_8ipf_source.html":[9,0,6], -"pearl-arpes_8ipf.html":[9,0,7], -"pearl-arpes_8ipf.html#a8e4eacc6efacf2c65615c1ea72d722ed":[9,0,7,0], -"pearl-arpes_8ipf.html#ac41f24572943dac2b40c255797a6c7a8":[9,0,7,1], -"pearl-arpes_8ipf_source.html":[9,0,7], -"pearl-compat_8ipf.html":[9,0,8], -"pearl-compat_8ipf.html#aa1f59acc532c7eee75c83b70ee1feaa9":[9,0,8,0], -"pearl-compat_8ipf_source.html":[9,0,8], -"pearl-data-explorer_8ipf.html":[9,0,9], -"pearl-data-explorer_8ipf.html#a001074020ad32b290d390a450a389c69":[9,0,9,15], -"pearl-data-explorer_8ipf.html#a00307dffd6f272f13acfe4dea99a81d4":[9,0,9,57], -"pearl-data-explorer_8ipf.html#a00bf5267a40b2b3d760c64d73e139878":[9,0,9,65], -"pearl-data-explorer_8ipf.html#a01e48e67a22dc56851447bd77abecbe1":[9,0,9,7], -"pearl-data-explorer_8ipf.html#a02a64144b7ed2c1bc230e265c55e81a1":[9,0,9,2], -"pearl-data-explorer_8ipf.html#a04cc0b9d5e3a649ba3514fcbf126eefe":[9,0,9,61], -"pearl-data-explorer_8ipf.html#a0adc1b370fd3bf230b61b094b3c0accb":[9,0,9,17], -"pearl-data-explorer_8ipf.html#a0c162346b59b0f66d34ee26ce5fe1e52":[9,0,9,38], -"pearl-data-explorer_8ipf.html#a0e1e23060294bd4b18980e59229c70ed":[9,0,9,36], -"pearl-data-explorer_8ipf.html#a0f7473343cf773af9efedee1a18ac5db":[9,0,9,3], -"pearl-data-explorer_8ipf.html#a166273677188a66c25a84616c6f4baa9":[9,0,9,43], -"pearl-data-explorer_8ipf.html#a1731f8e1507d90e285885723ae32ba13":[9,0,9,46], -"pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d":[9,0,9,63], -"pearl-data-explorer_8ipf.html#a1868754e64cb1448e564c0936e78574d":[9,0,9,9], -"pearl-data-explorer_8ipf.html#a1d7f4ad59b81ecd84bb63cfabd9f24dc":[9,0,9,51], -"pearl-data-explorer_8ipf.html#a200e7ba052fbce4614fb4254701646ab":[9,0,9,52], -"pearl-data-explorer_8ipf.html#a2178d5acf21fe4372ecc06224bec28ba":[9,0,9,37], -"pearl-data-explorer_8ipf.html#a28921b185d4e6fbe9a7a689757269f19":[9,0,9,19], -"pearl-data-explorer_8ipf.html#a3232c51a8c19eaf86b9bc67352967a9f":[9,0,9,45], -"pearl-data-explorer_8ipf.html#a36fd730f2d057513179dd59f8fddaf75":[9,0,9,27], -"pearl-data-explorer_8ipf.html#a384a37c2865baf5c21b63cff2488c3b3":[9,0,9,26], -"pearl-data-explorer_8ipf.html#a3fd06ac9aa62de7f00e10ce749ba12c9":[9,0,9,8], -"pearl-data-explorer_8ipf.html#a435adef620193e09110ff69ca8d106de":[9,0,9,32], -"pearl-data-explorer_8ipf.html#a457d2257ffd5880ab858fa583a5d1c99":[9,0,9,48], -"pearl-data-explorer_8ipf.html#a45be265789a5260e3daa05eca0ec309e":[9,0,9,12], -"pearl-data-explorer_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[9,0,9,29], -"pearl-data-explorer_8ipf.html#a4633885afab755fbc5d262178b9ddcb8":[9,0,9,47], -"pearl-data-explorer_8ipf.html#a4c7a521b8f1a0769c09bfa4a1fca7dab":[9,0,9,67], -"pearl-data-explorer_8ipf.html#a4db79d04c74beb1af71b72916f8f0362":[9,0,9,58], -"pearl-data-explorer_8ipf.html#a4ef196f752bb5780ed4f4a588f9ebc81":[9,0,9,1], -"pearl-data-explorer_8ipf.html#a505ebda6bdecc4120e01766d7aedaf5d":[9,0,9,50], -"pearl-data-explorer_8ipf.html#a53af8689144e3aeb27ca177db5dd0c22":[9,0,9,64], -"pearl-data-explorer_8ipf.html#a54be4e40b17906c281cdf649d6ce537e":[9,0,9,21], -"pearl-data-explorer_8ipf.html#a57e21bffee4cd64f2ea1efd9cc958bf1":[9,0,9,60], -"pearl-data-explorer_8ipf.html#a5a7d3c00360944c00f236900b992694d":[9,0,9,49], -"pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e":[9,0,9,41], -"pearl-data-explorer_8ipf.html#a5d0c796365e8a24683c73e2b29571018":[9,0,9,25], -"pearl-data-explorer_8ipf.html#a614e89b9c06511144ccb380e61cc7bd6":[9,0,9,31], -"pearl-data-explorer_8ipf.html#a638a13044aede37cabe0c2c7a7c0cb06":[9,0,9,42], -"pearl-data-explorer_8ipf.html#a64bd3e5e68b30c94db00c58fa3be3f0d":[9,0,9,4], -"pearl-data-explorer_8ipf.html#a66043ccbe2e8dda258e639cb7a231537":[9,0,9,18], -"pearl-data-explorer_8ipf.html#a67cd1a025e5428d443027c1f57eaec09":[9,0,9,14], -"pearl-data-explorer_8ipf.html#a6aa44ff12b8530adbaaaf7405b1a68ba":[9,0,9,6], -"pearl-data-explorer_8ipf.html#a6b5e9729ee6dedbb217c741639a168ed":[9,0,9,30], -"pearl-data-explorer_8ipf.html#a6e8eaf8c092f5da60bd425f9bd8bf178":[9,0,9,44], -"pearl-data-explorer_8ipf.html#a70150946799d759473b409b3371e3ae2":[9,0,9,10], -"pearl-data-explorer_8ipf.html#a71f9c277d310c3f4e7739be69dad0ab5":[9,0,9,59], -"pearl-data-explorer_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[9,0,9,66], -"pearl-data-explorer_8ipf.html#a77047115739da6d28055f7fd44c9fd2c":[9,0,9,13], -"pearl-data-explorer_8ipf.html#a7c36ce6ccfaa77cf7a6b68b9014c1b9b":[9,0,9,24], -"pearl-data-explorer_8ipf.html#a844467a592e5b26b2324326f22b7da89":[9,0,9,0], -"pearl-data-explorer_8ipf.html#a896081071fffecdeff09ae4c9d6e84cb":[9,0,9,20], -"pearl-data-explorer_8ipf.html#a8a923d7095071e7e6f99018379807732":[9,0,9,40], -"pearl-data-explorer_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[9,0,9,35], -"pearl-data-explorer_8ipf.html#a93c61109535e1644f5e53aabb895b48a":[9,0,9,56], -"pearl-data-explorer_8ipf.html#a96a3ef643cc29948ba57a3bfa1339c4d":[9,0,9,33], -"pearl-data-explorer_8ipf.html#a9cefcdc49b2169e99c743b0a683ed3a6":[9,0,9,5], -"pearl-data-explorer_8ipf.html#aac8d96d9ccaeddab1cb0f463b01616cb":[9,0,9,55], -"pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca":[9,0,9,39], -"pearl-data-explorer_8ipf.html#aba2f8be504e49469194cc4b562be3a9c":[9,0,9,23], -"pearl-data-explorer_8ipf.html#ababd5be120b526ca410c53b4a2ba3f8d":[9,0,9,34], -"pearl-data-explorer_8ipf.html#ac477142f1949dc32d86663f1de4384e5":[9,0,9,54], -"pearl-data-explorer_8ipf.html#ac729557a307bddd2f2ad298199976c01":[9,0,9,53], -"pearl-data-explorer_8ipf.html#ad8a01428a137278a31d4f1f4f9c634c5":[9,0,9,11], -"pearl-data-explorer_8ipf.html#ad95697e197428ff73a1a258ea3bb79b2":[9,0,9,22], -"pearl-data-explorer_8ipf.html#ae02b954d90dc8f43c007cc3fb1a1ee16":[9,0,9,62], -"pearl-data-explorer_8ipf.html#af4474f34647ec24f27f900226c6bb3bd":[9,0,9,16], -"pearl-data-explorer_8ipf.html#af616e37167d5753b11e513bd03685ab8":[9,0,9,28], -"pearl-data-explorer_8ipf_source.html":[9,0,9], -"pearl-elog_8ipf.html":[9,0,10], -"pearl-elog_8ipf.html#a05301d497e4796e5fb5adde3728ba971":[9,0,10,16], -"pearl-elog_8ipf.html#a1376b5c9e6b1180a09961bc3296849ae":[9,0,10,26], -"pearl-elog_8ipf.html#a14f8376a0485aa654ccf3d2f30ab4d01":[9,0,10,6], -"pearl-elog_8ipf.html#a2417d079483f773f8231c5f2caba6cf0":[9,0,10,12], -"pearl-elog_8ipf.html#a28eb44739e7d5c7f9899a69afa231b8e":[9,0,10,57], -"pearl-elog_8ipf.html#a3498e65d04de046481170b49d4e3d0d6":[9,0,10,55], -"pearl-elog_8ipf.html#a356bebea8eb41c9ac3ea2148af22707f":[9,0,10,37], -"pearl-elog_8ipf.html#a39a1f418c8a2f9a5e4ab976827d8efca":[9,0,10,46], -"pearl-elog_8ipf.html#a3cc9074c84d684d207dfdf2045755df4":[9,0,10,25], -"pearl-elog_8ipf.html#a3eac4012891c2813e401aee2c1134763":[9,0,10,19], -"pearl-elog_8ipf.html#a3f524f5190341d2accc8cb8c3ed2ceb5":[9,0,10,0], -"pearl-elog_8ipf.html#a4040736819edadf4b26982bcfdb9c7b9":[9,0,10,2], -"pearl-elog_8ipf.html#a4088a48a8428629f120c08a419af62d6":[9,0,10,41], -"pearl-elog_8ipf.html#a424460442afd5f6f853e68cd665ed785":[9,0,10,15], -"pearl-elog_8ipf.html#a4986de01085dc5481500240ef7667419":[9,0,10,44], -"pearl-elog_8ipf.html#a5306514bf7d1a582aec146256ae45a12":[9,0,10,40], -"pearl-elog_8ipf.html#a5afeb893f92034532341ae51471dc2d2":[9,0,10,54], -"pearl-elog_8ipf.html#a63aa38b624b66fe502505040c25bc0c3":[9,0,10,51], -"pearl-elog_8ipf.html#a66e1200515eff8cd5c961572eccd7220":[9,0,10,29], -"pearl-elog_8ipf.html#a6a9923c6465c91b1f9d1d97b090f424b":[9,0,10,50], -"pearl-elog_8ipf.html#a6b2d6cf641c61120332ac1983b2f3846":[9,0,10,32], -"pearl-elog_8ipf.html#a6da33f1bb2639cb912e9b25af25bf663":[9,0,10,42], -"pearl-elog_8ipf.html#a6eca5f4fab999984df32b50dd669c0b1":[9,0,10,47], -"pearl-elog_8ipf.html#a6fcae5eafc97bca9a637bd7800b13e25":[9,0,10,34], -"pearl-elog_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[9,0,10,60], -"pearl-elog_8ipf.html#a7990f2948d48aefe990271d1961df833":[9,0,10,39], -"pearl-elog_8ipf.html#a7a4572f4f861f7eb46c932508d1164f9":[9,0,10,35], -"pearl-elog_8ipf.html#a7ce92b03b6a786129959d44bf1112efa":[9,0,10,31], -"pearl-elog_8ipf.html#a8251cea45c8d1f1993a4051a6d0760c4":[9,0,10,8], -"pearl-elog_8ipf.html#a85cf9d39ea917860b463b1b4111705f2":[9,0,10,36], -"pearl-elog_8ipf.html#a915905f2e57d0d9a25c75f39fcce485f":[9,0,10,58], -"pearl-elog_8ipf.html#a91b5f51982d23a36d1760b8874b5736a":[9,0,10,3], -"pearl-elog_8ipf.html#a92c27964d49ab8bcd7afc858ebe214a3":[9,0,10,38], -"pearl-elog_8ipf.html#a96e4cbbdb0fd8c58d87b502dc1883664":[9,0,10,20], -"pearl-elog_8ipf.html#a9c1cfd320e88e84dcf4f84bbcf3f46a5":[9,0,10,49], -"pearl-elog_8ipf.html#aa1dfae6d78a367d50ee8fc1ffe9cb69b":[9,0,10,4], -"pearl-elog_8ipf.html#aa7a3988440bb6d73573b50a4698a0e75":[9,0,10,48], -"pearl-elog_8ipf.html#aaca820a0149ce6a0e843ca72b9c9e7ab":[9,0,10,18], -"pearl-elog_8ipf.html#aae61ff4d4a4d83dfc55af45d9ed1cbc3":[9,0,10,53], -"pearl-elog_8ipf.html#ab2558ef5cd5e5dfba410bd58ed258b64":[9,0,10,24], -"pearl-elog_8ipf.html#ab39637298c93b7aefd67febf3a4e7672":[9,0,10,5], -"pearl-elog_8ipf.html#ab6d97edbf33e8ec039b34ff756e7ab93":[9,0,10,17], -"pearl-elog_8ipf.html#abd15431defaec6d770cc8cab2a40e6b0":[9,0,10,43], -"pearl-elog_8ipf.html#ac2f76abed8cfaa7ac02a46c0b89004f0":[9,0,10,14], -"pearl-elog_8ipf.html#ac45196cb9ce8b43b76c9daf67689c49a":[9,0,10,27], -"pearl-elog_8ipf.html#ac729557a307bddd2f2ad298199976c01":[9,0,10,45], -"pearl-elog_8ipf.html#ac8b61eefed231018cc36d47e95bd8c22":[9,0,10,11], -"pearl-elog_8ipf.html#aca457d1f4414d20a911254b1de13ebbb":[9,0,10,59] +"pearl-menu_8ipf.html#a3404a53bf13a01c1e811d1af6c35b726":[5,0,0,14,9], +"pearl-menu_8ipf.html#a3658ae687e12987fa1d70636849a060f":[5,0,0,14,5], +"pearl-menu_8ipf.html#a61ded60be72959b00f22842afa37c56f":[5,0,0,14,8], +"pearl-menu_8ipf.html#a74bc5da7843ee6c25f2d9c93d22a6ffa":[5,0,0,14,6], +"pearl-menu_8ipf.html#aa70ef420d6fe0f6a433cd2371fc4a03d":[5,0,0,14,3], +"pearl-menu_8ipf.html#aab34952c2f3b36f9ee8619eb901ff581":[5,0,0,14,2], +"pearl-menu_8ipf.html#aab4ec7bc68f93029377b7657f40fbd6a":[5,0,0,14,7], +"pearl-menu_8ipf.html#aad7d768680c6d8a9b8a7025c7e1ec75d":[5,0,0,14,0], +"pearl-menu_8ipf.html#ac73a94f760455f19294a9f917b43f145":[5,0,0,14,1], +"pearl-menu_8ipf.html#af6c9740540c6242eb7bf57fc49de82ab":[5,0,0,14,4], +"pearl-menu_8ipf_source.html":[5,0,0,14], +"pearl-otf-import_8ipf.html":[5,0,0,15], +"pearl-otf-import_8ipf.html#a3632f8a5c0ee32a14a3e589b74a0c496":[5,0,0,15,4], +"pearl-otf-import_8ipf.html#a44078e1d8f26e515539acb96973fc630":[5,0,0,15,2], +"pearl-otf-import_8ipf.html#a603b71176ed838713ec555c440082e22":[5,0,0,15,5], +"pearl-otf-import_8ipf.html#a715f9cf2d2b1ffb04f2f9a0e344a80ee":[5,0,0,15,7], +"pearl-otf-import_8ipf.html#a882da254075e8d89f0117e491af90df0":[5,0,0,15,8], +"pearl-otf-import_8ipf.html#aa47fc4b956ee84a993b6d285b628fe20":[5,0,0,15,6], +"pearl-otf-import_8ipf.html#aba965b854836658aa00e3ec2b361d7c9":[5,0,0,15,9], +"pearl-otf-import_8ipf.html#abd8897317366046dfb97c6ca53813d18":[5,0,0,15,3], +"pearl-otf-import_8ipf.html#ad2a83b85030a7d7769d434d6e2e9e557":[5,0,0,15,1], +"pearl-otf-import_8ipf.html#ae2640256d7d07c11b41621430279cef6":[5,0,0,15,0], +"pearl-otf-import_8ipf_source.html":[5,0,0,15], +"pearl-polar-coordinates_8ipf.html":[5,0,0,17], +"pearl-polar-coordinates_8ipf.html#a58139e6ebfba242b6b2ba3533b865a9a":[5,0,0,17,4], +"pearl-polar-coordinates_8ipf.html#a6a0ffb6b9160413d9694b1fd8e10c858":[5,0,0,17,3], +"pearl-polar-coordinates_8ipf.html#a94ccfa9cf52c55eb1f66c2704478c396":[5,0,0,17,2], +"pearl-polar-coordinates_8ipf.html#aca0a5aaa4854d83ef667c53007312fb8":[5,0,0,17,0], +"pearl-polar-coordinates_8ipf.html#adfc1f0b3cddf672b0ccdb6a22b97ba9e":[5,0,0,17,1], +"pearl-polar-coordinates_8ipf_source.html":[5,0,0,17], +"pearl-tools_8ipf.html":[5,0,0,22], +"pearl-tools_8ipf.html#a3fb8c06030dc41a599380150807caeb0":[5,0,0,22,1], +"pearl-tools_8ipf.html#a6bdd1c0b269f1d7d99843ce0cb218cc7":[5,0,0,22,2], +"pearl-tools_8ipf.html#a7c5307e5e7c0202d2b088fdc11887069":[5,0,0,22,3], +"pearl-tools_8ipf.html#a90c62bdfc186e2482ccb18113a591d5e":[5,0,0,22,0], +"pearl-tools_8ipf.html#aabc250f68dd85ca58d7be5077255af99":[5,0,0,22,4], +"pearl-tools_8ipf.html#aea193a1b5fbdbb2a5dec9f25f3c05c45":[5,0,0,22,5], +"pearl-tools_8ipf_source.html":[5,0,0,22], +"todo.html":[3] }; diff --git a/doc/html/navtreeindex2.js b/doc/html/navtreeindex2.js deleted file mode 100644 index 405a0b5..0000000 --- a/doc/html/navtreeindex2.js +++ /dev/null @@ -1,232 +0,0 @@ -var NAVTREEINDEX2 = -{ -"pearl-elog_8ipf.html#acbba78d869a543edf7c2b80d7a8d2344":[9,0,10,1], -"pearl-elog_8ipf.html#ace94356f691cbe343761aabd67ced23c":[9,0,10,30], -"pearl-elog_8ipf.html#acedf0c8ae34e9ebadd6fa0d9d1353aa4":[9,0,10,22], -"pearl-elog_8ipf.html#ad1a72c63f269b2e22b21a72d1ef3b279":[9,0,10,28], -"pearl-elog_8ipf.html#ad4472ea917691c41ad0b4ea6f36010a5":[9,0,10,7], -"pearl-elog_8ipf.html#ad7640d06f004ecd4a8980ea29d24dcbe":[9,0,10,10], -"pearl-elog_8ipf.html#addbdec64930e9c1e417b16b25df8c723":[9,0,10,52], -"pearl-elog_8ipf.html#adeff6678e57313cb218824f06d32b5ec":[9,0,10,9], -"pearl-elog_8ipf.html#ae824bbf81f8b7d16b36b53e3f3d85f69":[9,0,10,33], -"pearl-elog_8ipf.html#af34e46263aa50843f98f755988f9ab5c":[9,0,10,56], -"pearl-elog_8ipf.html#af652f6f257be1ee749fe788d1b03f75f":[9,0,10,13], -"pearl-elog_8ipf.html#af8b1ea711208bcc2cd1647abe04131dc":[9,0,10,21], -"pearl-elog_8ipf.html#afbace5ffc3167b42b09657ce6cc854ca":[9,0,10,23], -"pearl-elog_8ipf_source.html":[9,0,10], -"pearl-fitfuncs_8ipf.html":[9,0,11], -"pearl-fitfuncs_8ipf.html#a02368cc4adfbd746cd2f1e7d73884a61":[9,0,11,23], -"pearl-fitfuncs_8ipf.html#a13a5ee22049d9a3379cd6e55654e70a3":[9,0,11,1], -"pearl-fitfuncs_8ipf.html#a1e729418252bf0d05ea6ec5cbd65b834":[9,0,11,11], -"pearl-fitfuncs_8ipf.html#a24cd6a0c96ef8c720e371bb31ac0a479":[9,0,11,2], -"pearl-fitfuncs_8ipf.html#a2c6547164c0b46efecf4d372ea04c263":[9,0,11,18], -"pearl-fitfuncs_8ipf.html#a4d20215153c0e0cee3870dfceded8bc9":[9,0,11,14], -"pearl-fitfuncs_8ipf.html#a5a2a03026b88f3dd99214ab1b26e6f80":[9,0,11,13], -"pearl-fitfuncs_8ipf.html#a704de4b170620d07b75f2093fe052272":[9,0,11,19], -"pearl-fitfuncs_8ipf.html#a709f7c4585b1d850ea8aae1885ac18cb":[9,0,11,3], -"pearl-fitfuncs_8ipf.html#a819902ab9f541b75a0fd33a7b52465d0":[9,0,11,15], -"pearl-fitfuncs_8ipf.html#a81da09e30e2800703dd178248f0c55be":[9,0,11,20], -"pearl-fitfuncs_8ipf.html#a84a0278284332631682ce032018d1716":[9,0,11,22], -"pearl-fitfuncs_8ipf.html#a9d110819fa3cd2173f3103724e394fdf":[9,0,11,8], -"pearl-fitfuncs_8ipf.html#aaa48428994f8720a12e7237ef43e86ea":[9,0,11,6], -"pearl-fitfuncs_8ipf.html#aad1418e71830c1ec71d7dd62b2ecf9ba":[9,0,11,17], -"pearl-fitfuncs_8ipf.html#ab32134566b2573672ac674565deebd36":[9,0,11,12], -"pearl-fitfuncs_8ipf.html#aca0bf4ff35794a459e15a3b358dbfa04":[9,0,11,5], -"pearl-fitfuncs_8ipf.html#adb438f665e51a8dd104a37cfead04f27":[9,0,11,9], -"pearl-fitfuncs_8ipf.html#ae2d138beb7cb39e8042487893095b461":[9,0,11,7], -"pearl-fitfuncs_8ipf.html#af07f887f3ba8e3e35c9214df8bb6a49f":[9,0,11,21], -"pearl-fitfuncs_8ipf.html#af62cb65b7444ff60e956a45bd5d0ec27":[9,0,11,10], -"pearl-fitfuncs_8ipf.html#af669aa08d0c32d3647007155f4b7ea3c":[9,0,11,16], -"pearl-fitfuncs_8ipf.html#aff8e8b103c32c8e723b57ce7ad5ef0f5":[9,0,11,4], -"pearl-fitfuncs_8ipf_source.html":[9,0,11], -"pearl-gui-tools_8ipf.html":[9,0,12], -"pearl-gui-tools_8ipf.html#a97ad19d83cf0007c4bcf97a32164610f":[9,0,12,2], -"pearl-gui-tools_8ipf.html#aaf29d090c81e00cf44af295193b24c5a":[9,0,12,0], -"pearl-gui-tools_8ipf.html#aca0a41a0f28a35ac7535df30ddbd79fe":[9,0,12,1], -"pearl-gui-tools_8ipf_source.html":[9,0,12], -"pearl-matrix-import_8ipf.html":[9,0,13], -"pearl-matrix-import_8ipf.html#a0dc1efa23739e10b7558543b166e95b9":[9,0,13,18], -"pearl-matrix-import_8ipf.html#a1a46b042e41daffee61706ab2cf54351":[9,0,13,10], -"pearl-matrix-import_8ipf.html#a3a0ba4a7ad64739303b705d92be53267":[9,0,13,13], -"pearl-matrix-import_8ipf.html#a3f524f5190341d2accc8cb8c3ed2ceb5":[9,0,13,1], -"pearl-matrix-import_8ipf.html#a45e930b8eadd7cf6a5f664befd87d725":[9,0,13,4], -"pearl-matrix-import_8ipf.html#a4bfeaf81ac483df0a38b26b6a8cf74a6":[9,0,13,16], -"pearl-matrix-import_8ipf.html#a59e72c849f4314aaa8339fd899665d85":[9,0,13,15], -"pearl-matrix-import_8ipf.html#a6ac0c685976b0e0c1944fb616a4f3a3c":[9,0,13,11], -"pearl-matrix-import_8ipf.html#a6aeef317fd468c88c99a274338c70ae3":[9,0,13,12], -"pearl-matrix-import_8ipf.html#a75bb92ef5f80843e66a7243bd958ef8b":[9,0,13,23], -"pearl-matrix-import_8ipf.html#a81b1d81261a32d0ed4cf79b81487f1b4":[9,0,13,6], -"pearl-matrix-import_8ipf.html#a856478705a78e8105ea5d91a2228975b":[9,0,13,7], -"pearl-matrix-import_8ipf.html#a893405a122fdf70429f4f75b8877ed7d":[9,0,13,8], -"pearl-matrix-import_8ipf.html#a8acd2b03343ef9bdfecaa75e831392d1":[9,0,13,19], -"pearl-matrix-import_8ipf.html#ab80101bc780dcbe94200e2446bce51d9":[9,0,13,20], -"pearl-matrix-import_8ipf.html#abd09594d22038853e1e8021e0f36363d":[9,0,13,14], -"pearl-matrix-import_8ipf.html#ac7790f06151821678a65ab0065a5323e":[9,0,13,3], -"pearl-matrix-import_8ipf.html#aca457d1f4414d20a911254b1de13ebbb":[9,0,13,22], -"pearl-matrix-import_8ipf.html#ad720655ff881ddecae2e1b8afed58fa0":[9,0,13,21], -"pearl-matrix-import_8ipf.html#ad74d5afa71179728a9237d1ec5884482":[9,0,13,9], -"pearl-matrix-import_8ipf.html#ad8532f1473f92539fe88217d5d6e3368":[9,0,13,17], -"pearl-matrix-import_8ipf.html#ae2cfa1ac6651cfc3fb0dfce03494995b":[9,0,13,2], -"pearl-matrix-import_8ipf.html#af0eaec901e06ce59250eb434539a0f6c":[9,0,13,5], -"pearl-matrix-import_8ipf_source.html":[9,0,13], -"pearl-menu_8ipf.html":[9,0,14], -"pearl-menu_8ipf.html#a1437f6baee0bd6d04bbcd2236c2d1f7f":[9,0,14,10], -"pearl-menu_8ipf.html#a3404a53bf13a01c1e811d1af6c35b726":[9,0,14,9], -"pearl-menu_8ipf.html#a3658ae687e12987fa1d70636849a060f":[9,0,14,5], -"pearl-menu_8ipf.html#a61ded60be72959b00f22842afa37c56f":[9,0,14,8], -"pearl-menu_8ipf.html#a74bc5da7843ee6c25f2d9c93d22a6ffa":[9,0,14,6], -"pearl-menu_8ipf.html#aa70ef420d6fe0f6a433cd2371fc4a03d":[9,0,14,3], -"pearl-menu_8ipf.html#aab34952c2f3b36f9ee8619eb901ff581":[9,0,14,2], -"pearl-menu_8ipf.html#aab4ec7bc68f93029377b7657f40fbd6a":[9,0,14,7], -"pearl-menu_8ipf.html#aad7d768680c6d8a9b8a7025c7e1ec75d":[9,0,14,0], -"pearl-menu_8ipf.html#ac73a94f760455f19294a9f917b43f145":[9,0,14,1], -"pearl-menu_8ipf.html#af6c9740540c6242eb7bf57fc49de82ab":[9,0,14,4], -"pearl-menu_8ipf_source.html":[9,0,14], -"pearl-otf-import_8ipf.html":[9,0,15], -"pearl-otf-import_8ipf.html#a3632f8a5c0ee32a14a3e589b74a0c496":[9,0,15,4], -"pearl-otf-import_8ipf.html#a44078e1d8f26e515539acb96973fc630":[9,0,15,2], -"pearl-otf-import_8ipf.html#a603b71176ed838713ec555c440082e22":[9,0,15,5], -"pearl-otf-import_8ipf.html#a715f9cf2d2b1ffb04f2f9a0e344a80ee":[9,0,15,7], -"pearl-otf-import_8ipf.html#a882da254075e8d89f0117e491af90df0":[9,0,15,8], -"pearl-otf-import_8ipf.html#aa47fc4b956ee84a993b6d285b628fe20":[9,0,15,6], -"pearl-otf-import_8ipf.html#aba965b854836658aa00e3ec2b361d7c9":[9,0,15,9], -"pearl-otf-import_8ipf.html#abd8897317366046dfb97c6ca53813d18":[9,0,15,3], -"pearl-otf-import_8ipf.html#ad2a83b85030a7d7769d434d6e2e9e557":[9,0,15,1], -"pearl-otf-import_8ipf.html#ae2640256d7d07c11b41621430279cef6":[9,0,15,0], -"pearl-otf-import_8ipf_source.html":[9,0,15], -"pearl-pmsco-import_8ipf.html":[9,0,16], -"pearl-pmsco-import_8ipf.html#a0a53a4686b482d62fe1797932a1708db":[9,0,16,4], -"pearl-pmsco-import_8ipf.html#a98bbe8db14dba5aea9588a1b433baca7":[9,0,16,1], -"pearl-pmsco-import_8ipf.html#aa31bbaa2fc77b447e6c6f386b23abdd9":[9,0,16,3], -"pearl-pmsco-import_8ipf.html#ab3421c7f54aa64e5e493b267d700c0c8":[9,0,16,2], -"pearl-pmsco-import_8ipf.html#afae0650a37e89f18c9c54f8adc9eafb2":[9,0,16,0], -"pearl-pmsco-import_8ipf_source.html":[9,0,16], -"pearl-polar-coordinates_8ipf.html":[9,0,17], -"pearl-polar-coordinates_8ipf.html#a58139e6ebfba242b6b2ba3533b865a9a":[9,0,17,4], -"pearl-polar-coordinates_8ipf.html#a6a0ffb6b9160413d9694b1fd8e10c858":[9,0,17,3], -"pearl-polar-coordinates_8ipf.html#a94ccfa9cf52c55eb1f66c2704478c396":[9,0,17,2], -"pearl-polar-coordinates_8ipf.html#aca0a5aaa4854d83ef667c53007312fb8":[9,0,17,0], -"pearl-polar-coordinates_8ipf.html#adfc1f0b3cddf672b0ccdb6a22b97ba9e":[9,0,17,1], -"pearl-polar-coordinates_8ipf_source.html":[9,0,17], -"pearl-pshell-import_8ipf.html":[9,0,18], -"pearl-pshell-import_8ipf.html#a03f00b3299bc3df671fcc239f7dd5418":[9,0,18,56], -"pearl-pshell-import_8ipf.html#a0f2c168c04d075734edb995361aefb82":[9,0,18,57], -"pearl-pshell-import_8ipf.html#a10224f615973777a43fefae8eb1a39f2":[9,0,18,40], -"pearl-pshell-import_8ipf.html#a113622ae05611e5051a97d223fae59d0":[9,0,18,17], -"pearl-pshell-import_8ipf.html#a237e95f14b988f58e2d4c37659f17347":[9,0,18,39], -"pearl-pshell-import_8ipf.html#a23a2e4cb2dc5364bfdbab4367ed6f234":[9,0,18,27], -"pearl-pshell-import_8ipf.html#a24afba76ed5323d8cd0abc3c7b0d9912":[9,0,18,30], -"pearl-pshell-import_8ipf.html#a277cd450cca7832aa44f8097934e6acb":[9,0,18,38], -"pearl-pshell-import_8ipf.html#a2c456397c36d4116bfddca452eff5954":[9,0,18,7], -"pearl-pshell-import_8ipf.html#a2f39f9379e66ead0d25c33adfbe05ee9":[9,0,18,3], -"pearl-pshell-import_8ipf.html#a300847a8e08161a64a199a6e7ef165c8":[9,0,18,45], -"pearl-pshell-import_8ipf.html#a3236744797a780eb144a684b0bd41d4a":[9,0,18,51], -"pearl-pshell-import_8ipf.html#a33f8faf117450af1d6dae9ef48786cd6":[9,0,18,33], -"pearl-pshell-import_8ipf.html#a3c72087695969f42ea91c000de47b26e":[9,0,18,54], -"pearl-pshell-import_8ipf.html#a412b4753ceb753d705a113a26c018b22":[9,0,18,55], -"pearl-pshell-import_8ipf.html#a47513a1db5693f88d64739a5b28926b2":[9,0,18,11], -"pearl-pshell-import_8ipf.html#a476f19c72d6e54787535ab6989ee778d":[9,0,18,2], -"pearl-pshell-import_8ipf.html#a48f07030482af8315447ac2c598edd0d":[9,0,18,49], -"pearl-pshell-import_8ipf.html#a4f5d11063bd50ded36ca013a2656b539":[9,0,18,14], -"pearl-pshell-import_8ipf.html#a513091ea9a4e23f76765aa37f1d34055":[9,0,18,4], -"pearl-pshell-import_8ipf.html#a5a1961e05ea900e72d6a886ac5744f2d":[9,0,18,8], -"pearl-pshell-import_8ipf.html#a5ad52cb10171572c454f9426d3a9be21":[9,0,18,52], -"pearl-pshell-import_8ipf.html#a654f0b9fe8770a8bd09a6da4182ca3bc":[9,0,18,48], -"pearl-pshell-import_8ipf.html#a712ea7a6f18ce4178fd06b07d2d05a9f":[9,0,18,44], -"pearl-pshell-import_8ipf.html#a72465006d4e8379fad08d1a1064de2a3":[9,0,18,31], -"pearl-pshell-import_8ipf.html#a7c191ea7367f2f328333b9986c7dd538":[9,0,18,16], -"pearl-pshell-import_8ipf.html#a7c5aaa2f133862ae16ddd735df1ab73d":[9,0,18,41], -"pearl-pshell-import_8ipf.html#a7d7b67c9f983d3446c5c6f274284b82a":[9,0,18,5], -"pearl-pshell-import_8ipf.html#a8089a75744ffc3626305406e925d320a":[9,0,18,32], -"pearl-pshell-import_8ipf.html#a83930d4384b0238fc8416ba03dbc0386":[9,0,18,37], -"pearl-pshell-import_8ipf.html#a85c1fbd2aefff2028e084ea61314dc67":[9,0,18,19], -"pearl-pshell-import_8ipf.html#a8704627410409bcd27a1adeda4082c47":[9,0,18,10], -"pearl-pshell-import_8ipf.html#a92a18d6e81c3f521ba3bb240eaf578a9":[9,0,18,34], -"pearl-pshell-import_8ipf.html#a972bf23d6da0bb33e9f12e50c9d7f5e5":[9,0,18,0], -"pearl-pshell-import_8ipf.html#aa6dc3e3f7dc1ca4346132635a90fc447":[9,0,18,36], -"pearl-pshell-import_8ipf.html#aa7a48b65e465abde9aad80377605ae59":[9,0,18,12], -"pearl-pshell-import_8ipf.html#ab0bc752ab76659b492cf88c75935336b":[9,0,18,53], -"pearl-pshell-import_8ipf.html#ab41e955a4ff70f9c78571faad1b43d7b":[9,0,18,20], -"pearl-pshell-import_8ipf.html#ab684c44d5f0668631e42d9c9c9dfea9e":[9,0,18,29], -"pearl-pshell-import_8ipf.html#ab7c2cc8687f6d4550ef90c538b938dad":[9,0,18,50], -"pearl-pshell-import_8ipf.html#ab86e42bb6f9ff20f685ad5627b446b77":[9,0,18,15], -"pearl-pshell-import_8ipf.html#aba25eb98e4c6cc9066c46ef6be1cde15":[9,0,18,9], -"pearl-pshell-import_8ipf.html#abcf01e205858a512aa713da914eaf966":[9,0,18,22], -"pearl-pshell-import_8ipf.html#ac782084655d44d222742e3397051619d":[9,0,18,26], -"pearl-pshell-import_8ipf.html#ac81d8f4276cf7bb86a74796cc7199e42":[9,0,18,46], -"pearl-pshell-import_8ipf.html#acda8bf0493a2e8ba1955f12de08e28f2":[9,0,18,13], -"pearl-pshell-import_8ipf.html#ad2275b0b8a0a1ed05afc50ef50564243":[9,0,18,1], -"pearl-pshell-import_8ipf.html#ad811542ccfc7c73156c2a107faa93d87":[9,0,18,18], -"pearl-pshell-import_8ipf.html#adc11ea797562b3d99c247f4866618d39":[9,0,18,6], -"pearl-pshell-import_8ipf.html#adf778206fa825ab5006bd553c64a8760":[9,0,18,42], -"pearl-pshell-import_8ipf.html#ae2aedcb7028cccdb683c43411cc8f1e2":[9,0,18,35], -"pearl-pshell-import_8ipf.html#ae539a7501119cb2349707e2027f0f759":[9,0,18,25], -"pearl-pshell-import_8ipf.html#aeb9a7f56922ff3c862e8b29b5090c01a":[9,0,18,47], -"pearl-pshell-import_8ipf.html#aebf53e3de392d631b340ee0747b8bbbf":[9,0,18,43], -"pearl-pshell-import_8ipf.html#af3b5005859915f410ec27a31ac9519ca":[9,0,18,28], -"pearl-pshell-import_8ipf.html#af662500c4f992ef7b956f37ed463513d":[9,0,18,23], -"pearl-pshell-import_8ipf.html#af7a6eefbda58d31336c81a3dda6e9a2d":[9,0,18,21], -"pearl-pshell-import_8ipf.html#afc4fa60c5fbfdb08c2a9d3072d3e16ce":[9,0,18,24], -"pearl-pshell-import_8ipf_source.html":[9,0,18], -"pearl-scienta-live_8ipf.html":[9,0,19], -"pearl-scienta-live_8ipf.html#a55886895329455b36b64d52ed6a4e228":[9,0,19,2], -"pearl-scienta-live_8ipf.html#ad23de34bb698589e2576ce2836b89d55":[9,0,19,0], -"pearl-scienta-live_8ipf.html#af2879284b1d1397447a31733fddd6273":[9,0,19,1], -"pearl-scienta-live_8ipf_source.html":[9,0,19], -"pearl-scienta-preprocess_8ipf.html":[9,0,20], -"pearl-scienta-preprocess_8ipf.html#a11d42ef1352876666b710b7545360fce":[9,0,20,3], -"pearl-scienta-preprocess_8ipf.html#a145c7275b8809c5e789b932ef46e4811":[9,0,20,7], -"pearl-scienta-preprocess_8ipf.html#a1514250704b40aa2614d389a2e250d61":[9,0,20,6], -"pearl-scienta-preprocess_8ipf.html#a1e91197cd7a3581b70bc59a194d3f43b":[9,0,20,4], -"pearl-scienta-preprocess_8ipf.html#a6d06ea5a11ba79160efeea7fe673af8c":[9,0,20,8], -"pearl-scienta-preprocess_8ipf.html#a6e7de6441bbcba217760448babaca827":[9,0,20,9], -"pearl-scienta-preprocess_8ipf.html#a83cdbd96c5b59011914d53118e5ef71c":[9,0,20,2], -"pearl-scienta-preprocess_8ipf.html#a8e2aef3e0d5f2b304399a11423661fdc":[9,0,20,10], -"pearl-scienta-preprocess_8ipf.html#a95fbd22f52f61d2bff0625b7b8e159d1":[9,0,20,1], -"pearl-scienta-preprocess_8ipf.html#ad626526589efec3f2f72ad001702fe39":[9,0,20,5], -"pearl-scienta-preprocess_8ipf.html#adb78e8b2bbfd9c0faa5eb049b1dcad1c":[9,0,20,11], -"pearl-scienta-preprocess_8ipf.html#ae6877c51ad15c2ba8a69c65356cb34b8":[9,0,20,0], -"pearl-scienta-preprocess_8ipf_source.html":[9,0,20], -"pearl-tools_8ipf.html":[9,0,21], -"pearl-tools_8ipf.html#a3fb8c06030dc41a599380150807caeb0":[9,0,21,1], -"pearl-tools_8ipf.html#a6bdd1c0b269f1d7d99843ce0cb218cc7":[9,0,21,2], -"pearl-tools_8ipf.html#a7c5307e5e7c0202d2b088fdc11887069":[9,0,21,3], -"pearl-tools_8ipf.html#a90c62bdfc186e2482ccb18113a591d5e":[9,0,21,0], -"pearl-tools_8ipf.html#aabc250f68dd85ca58d7be5077255af99":[9,0,21,4], -"pearl-tools_8ipf.html#aea193a1b5fbdbb2a5dec9f25f3c05c45":[9,0,21,5], -"pearl-tools_8ipf_source.html":[9,0,21], -"pearl-vector-operations_8ipf.html":[9,0,22], -"pearl-vector-operations_8ipf.html#a0030e927980581d57781ad391f2d872a":[9,0,22,5], -"pearl-vector-operations_8ipf.html#a355150c423ab975fe7f1832917118ea3":[9,0,22,2], -"pearl-vector-operations_8ipf.html#a72c3200a7344c708ea76e20cc2c19c43":[9,0,22,0], -"pearl-vector-operations_8ipf.html#a76feca10fe5d3e085f01c73a59b38424":[9,0,22,8], -"pearl-vector-operations_8ipf.html#a8a8dff94d9f7b992c2c2c0744001e74b":[9,0,22,6], -"pearl-vector-operations_8ipf.html#ac579a92f012f0d0ef7b8f097e1c8b3c7":[9,0,22,1], -"pearl-vector-operations_8ipf.html#ada80428496dc748b960bd9c65df7da8b":[9,0,22,3], -"pearl-vector-operations_8ipf.html#adfd1d68e739694982fbd00b76568c1c0":[9,0,22,4], -"pearl-vector-operations_8ipf.html#adfdf1cfe8812d8d0006228f6c14c9582":[9,0,22,7], -"pearl-vector-operations_8ipf_source.html":[9,0,22], -"struct_doniach_sunjic_struct.html":[6,0], -"struct_doniach_sunjic_struct.html#a02c13fdcf15e9adfee13464701bb7de2":[6,0,2], -"struct_doniach_sunjic_struct.html#a45c3a3fa68850032e545907ca65ab982":[6,0,7], -"struct_doniach_sunjic_struct.html#a6cef648ad0cf4be1dd9fbe33ff5df1eb":[6,0,8], -"struct_doniach_sunjic_struct.html#a750e7260bf5d4c936dadde714fb2db52":[6,0,6], -"struct_doniach_sunjic_struct.html#a7f05f7827435fea3c986a8d538496955":[6,0,1], -"struct_doniach_sunjic_struct.html#a906e214875392bc470dbd4bb4bdda2db":[6,0,4], -"struct_doniach_sunjic_struct.html#a92bbb374f66840510e7cb8b316057610":[6,0,5], -"struct_doniach_sunjic_struct.html#ab5a630be50286c3cf04e40d5880506e6":[6,0,3], -"struct_doniach_sunjic_struct.html#ac9b18c8b44b43c2ee438f37f8d002a66":[6,0,0], -"structerror_code.html":[6,1], -"structerror_code.html#a11b729058e2f4a2698ddaecf4e61c846":[6,1,8], -"structerror_code.html#a19dc49bdfb4bd9601f17f907da158026":[6,1,0], -"structerror_code.html#a36a53ca508600b841a54cfd3a3fd5402":[6,1,7], -"structerror_code.html#a4ec3cbf922809b99b04d324d3a0bbb22":[6,1,6], -"structerror_code.html#a5477920df1edcc7a1af0513d9120947a":[6,1,4], -"structerror_code.html#a71ce7c0413c44515d9570dab1ffd5ffd":[6,1,2], -"structerror_code.html#aa4279dfdaceed3bd57336cd4e38ed739":[6,1,10], -"structerror_code.html#aa91bd8ef7a635f4575161813ebb09f3b":[6,1,9], -"structerror_code.html#ab7f29ef2ba8497c55f2bc55c4b9fc186":[6,1,1], -"structerror_code.html#afb49d1cffe8e7590892b018ac9e648cc":[6,1,3], -"structerror_code.html#affc9a8a46877373b0212d82d867ca5fa":[6,1,5], -"todo.html":[3] -}; diff --git a/doc/html/pag_anglescan_processing.html b/doc/html/pag_anglescan_processing.html index 2ead273..a4fff62 100644 --- a/doc/html/pag_anglescan_processing.html +++ b/doc/html/pag_anglescan_processing.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Angle-scan processing @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,14 +77,20 @@ $(document).ready(function(){initNavTree('pag_anglescan_processing.html',''); in
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      -
      Angle-scan processing
      +
      +
      Angle-scan processing

      Table of Contents

      @@ -137,40 +143,44 @@ Basic steps
      setdatafolder root: // or other parent folder
      variable fid
      string sparam
      -
      fid = psh5_open_file("<igor-datafolder>", "<igor-filepath>", "<filename>")
      +
      fid = psh5_open_file("<igor-datafolder>", "<igor-filepath>", "<filename>")
      // load metadata for scaling
      -
      psh5_load_scan_meta(fileID, "<scan 1>")
      +
      psh5_load_scan_meta(fileID, "<scan 1>")
      newdatafolder /s /o attr
      psh5_load_scan_attrs(fileID, "<scan 1>")
      setdatafolder ::
      // load and reduce dataset
      sparam = "<param1=1.5;param2=test;>"
      -
      psh5_load_dataset_reduced(fid, "<scan 1/region1>", "<ScientaImage>", <reduction_function>, sparam)
      +
      psh5_load_dataset_reduced(fid, "<scan 1/region1>", "<ScientaImage>", <reduction_function>, sparam)
      // close the file
      -
      psh5_close_file(fid)
      +
      psh5_close_file(fid)
      fid = 0
      +
      psh5_load_scan_meta
      string psh5_load_scan_meta(dfref file_df, string scanpath)
      load metadata of a PShell scan group.
      Definition pearl-pshell-import.ipf:1954
      +
      psh5_close_file
      variable psh5_close_file(dfref file_df)
      close a HDF5 file opened by psh5_open_file.
      Definition pearl-pshell-import.ipf:509
      +
      psh5_open_file
      dfr psh5_open_file(string path_name, string file_name, dfref dest_df=defaultValue)
      open a HDF5 file created by the PShell data acquisition program and prepare the data folder.
      Definition pearl-pshell-import.ipf:450
      +
      psh5_load_dataset_reduced
      string psh5_load_dataset_reduced(dfref file_df, string datasetpath, funcref reduction_func, string reduction_params, variable create_folders=defaultValue, variable progress=defaultValue, variable nthreads=defaultValue)
      load a dataset with reduced dimensionality
      Definition pearl-pshell-import.ipf:1472

      Peak integration over linear background

      The int_linbg_reduction function converts a two-dimensional Scienta image I(angle, energy) into a one-dimensional angle distribution I(angle). For each angle slice, it calculates a linear background. Then, it integrates the difference between the original data and the background over a specified interval.

      The function requires the following, fixed parameters:

      - + - + - + - + - + - + - +
      Parameter Description Typical value
      Parameter Description Typical value
      Lcrop size of the low-energy cropping region 0.11 (fixed mode)
      Lcrop size of the low-energy cropping region 0.11 (fixed mode)
      Lsize size of the low-energy background region 0.2
      Lsize size of the low-energy background region 0.2
      Hcrop size of the high-energy cropping region 0.11
      Hcrop size of the high-energy cropping region 0.11
      Hsize size of the high-energy background region 0.2
      Hsize size of the high-energy background region 0.2
      Cpos position of the peak center 0.5
      Cpos position of the peak center 0.5
      Csize size of the center region 0.3
      Csize size of the center region 0.3

      All parameters are relative to the size of the image (length of the energy interval) and must be in the range from 0 to 1.

      The cropping region is cut away from the image for the rest of the processing. This is necessary to remove the dark corners in fixed mode but can be neglected in swept mode (cropping size = 0).

      @@ -184,31 +194,31 @@ Peak fitting

      The function requires the following, fixed parameters:

      - + - + - + - + - + - + - + - + - + - + - + - + - +
      Parameter Description
      Parameter Description
      rngl lower limit of the fit interval
      rngl lower limit of the fit interval
      rngh upper limit of the fit interval
      rngh upper limit of the fit interval
      npeaks number of components
      npeaks number of components
      pos1 center energy of peak 1
      pos1 center energy of peak 1
      wid1 width of peak 1
      wid1 width of peak 1
      pos2 center energy of peak 2
      pos2 center energy of peak 2
      wid2 width of peak 2
      wid2 width of peak 2
      pos3 center energy of peak 3
      pos3 center energy of peak 3
      wid3 width of peak 3
      wid3 width of peak 3
      pos4 center energy of peak 3
      pos4 center energy of peak 3
      wid4 width of peak 3
      wid4 width of peak 3
      ybox box size of slice averaging (1 or 3)
      ybox box size of slice averaging (1 or 3)

      The peak parameters should be determined beforehand from fitting a reference spectrum, or the angle-scan integrated over all angles. Peak positions and widths have to be specified only up to the given number of peaks.

      The data reduction procedure returns the peak integrals (amplitude times width times square root of 2) in waves named ReducedDataN where N is a numeric index from 1 to npeaks. The waves starting with an index of npeaks+1 contain the corresponding error estimate of the peak integral.

      @@ -223,37 +233,45 @@ Normalization

      Preparations

      Start by creating a new copy of the data and inspecting it:

      duplicate ReducedData1, NormData1
      -
      ad_display_profiles(NormData1)
      -

      To update the display after changes to NormData1:

      ad_update_profiles(NormData1)
      +
      ad_display_profiles(NormData1)
      +
      ad_display_profiles
      string ad_display_profiles(wave image, string filter=defaultValue)
      open a new profiles graph window.
      Definition pearl-area-display.ipf:168
      +

      To update the display after changes to NormData1:

      ad_update_profiles(NormData1)
      +
      ad_update_profiles
      variable ad_update_profiles(wave image)
      update a profiles graph with new data.
      Definition pearl-area-display.ipf:377

      Detector angle range

      -

      Crop the detector angle axis to a useful range (usually about -25 to +25 degrees):

      crop_strip(NormData1, -25, 25)
      +

      Crop the detector angle axis to a useful range (usually about -25 to +25 degrees):

      crop_strip(NormData1, -25, 25)
      +
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition pearl-anglescan-process.ipf:747

      Normalize detector angle

      Remove inhomogeneity of the detector in the detector angle axis. This component may also include a contribution from the sample. If your raw data shows a flat distribution, this step is not necessary.

      -
      normalize_strip_x(NormData1, smooth_method=4, smooth_factor=0.15, check=2)
      +
      normalize_strip_x(NormData1, smooth_method=4, smooth_factor=0.15, check=2)
      +
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition pearl-anglescan-process.ipf:252

      Note that the argument check=2 causes the function to generate two check waves but not to modify the original data. To inspect the check waves:

      display check_dist, check_smoo
      ModifyGraph rgb(check_dist)=(0,0,0)

      Vary the smooth_factor (between 0.1 and 1.0) until it follows the instrumental curve but does not affect diffraction features. Then set check=1 to apply the normalization to NormData1.

      Azimuthal variation (wobble)

      Reduce the effect of azimuthal wobble (misaligned surface) on intensity. A misaligned surface may cause a sinusoidal variation of the intensity as a function of azimuthal angle with a 360° period. A strong azimuthal variation may affect the polar normalization in the next step. The azimuthal normalization can be based on a restricted range of polar angles (theta range). You have to find out which value works best for your sample.

      -
      normalize_strip_phi(NormData1, :attr:ManipulatorTheta, :attr:ManipulatorPhi, theta_offset=-8.8, theta_range=10, check=2)
      +
      normalize_strip_phi(NormData1, :attr:ManipulatorTheta, :attr:ManipulatorPhi, theta_offset=-8.8, theta_range=10, check=2)
      +
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition pearl-anglescan-process.ipf:348

      Note, however, that his function does not correct for angle shifts induced by the misalignment!

      Polar dependence

      Remove the polar angle dependence (matrix element and excitation/detection geometry).

      -
      normalize_strip_theta(NormData1, :attr:ManipulatorTheta, theta_offset=-8.8, smooth_method=4, smooth_factor=0.5, check=2)
      +
      normalize_strip_theta(NormData1, :attr:ManipulatorTheta, theta_offset=-8.8, smooth_method=4, smooth_factor=0.5, check=2)
      +
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition pearl-anglescan-process.ipf:433

      Use the check waves and the check argument as described above.

      Binning and plotting

      Basic steps

      You can bin and plot the data in one step:

      -
      pizza_service(NormData1, "Nickname1", -8.8, 0.5, 6)
      +
      pizza_service(NormData1, "Nickname1", -8.8, 0.5, 6)
      +
      pizza_service
      variable pizza_service(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition pearl-anglescan-process.ipf:843

      or two steps:

      -
      pizza_service(NormData1, "Nickname2", -8.8, 0.5, 6, nograph=1)
      -
      display_hemi_scan("Nickname2")
      +
      pizza_service(NormData1, "Nickname2", -8.8, 0.5, 6, nograph=1)
      +
      display_hemi_scan("Nickname2")
      +
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition pearl-anglescan-process.ipf:1858

      The benefit of the latter is that you have more control over the graph through optional arguments. In particular, you can select the projection or hide the ticks and grids. See display_hemi_scan for details.

      The pizza_service function requires the waves with manipulator positions in a specific place, namely :attr:ManipulatorTheta (for the polar angle), and the normal emission values as function arguments. If you have moved the waves, or if you have subtracted the offsets yourself, use the alternative pizza_service_2 function.

      Additional parameters of the pizza_service function allow for rotational averaging, larger angle steps (default 1 degree), or the creation of metadata including a notebook for xpdPlot.

      @@ -261,21 +279,25 @@ Basic steps

      Refinements

      To remove high polar angles above θ = 80 from the plot (and data):

      -
      trim_hemi_scan("Nickname1", 80)
      +
      trim_hemi_scan("Nickname1", 80)
      +
      trim_hemi_scan
      variable trim_hemi_scan(string nickname, variable theta_max)
      trim a hemispherical scan at grazing angle
      Definition pearl-anglescan-process.ipf:3229

      Modify the pseudocolor scale by changing the polarY0 trace:

      ModifyGraph zColor(polarY0)={mod_values, *, *, BlueGreenOrange, 0}
      ModifyGraph zColor(polarY0)={mod_values, -0.2, 0.2, BlueGreenOrange, 0}

      To set the contrast to clip specified percentiles of the data points, use the

      • set_contrast function:
      -
      set_contrast(2, 2, graphname="graph_Nickname1", colortable="BlueGreenOrange")
      +
      set_contrast(2, 2, graphname="graph_Nickname1", colortable="BlueGreenOrange")
      +
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition pearl-anglescan-process.ipf:3463

      Interpolation

      Polar plots can also be interpolated to a rectangular matrix, which may in some cases produce nicer images:

      -
      interpolate_hemi_scan("Nickname1")
      -
      display_hemi_scan("Nickname1", graphtype=3, graphname="intp")
      -
      matrix = sqrt(x^2 + y^2) <= calc_graph_radius(80) ? matrix : nan
      +
      interpolate_hemi_scan("Nickname1")
      +
      display_hemi_scan("Nickname1", graphtype=3, graphname="intp")
      +
      matrix = sqrt(x^2 + y^2) <= calc_graph_radius(80) ? matrix : nan
      ModifyImage matrix ctab= {*,*,BlueGreenOrange,0}
      +
      calc_graph_radius
      threadsafe variable calc_graph_radius(variable polar, variable projection=defaultValue)
      calculate the projected polar angle
      Definition pearl-anglescan-process.ipf:2369
      +
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition pearl-anglescan-process.ipf:2920

      The matrix = line optionally removes artefacts at high polar angles. Replace the cut-off angle with your own.

      Modulation function

      @@ -288,17 +310,17 @@ Projection

      The display_hemi_scan and interpolate_hemi_scan functions take an optional argument projection which selects one of the following projections. By default, stereographic projection is selected.

      - + - + - + - + - + - +
      Selector Projection Function Properties
      Selector Projection Function Properties
      kProjDist = 0 azimuthal equidistant r = c * theta radius is proportional to polar angle
      kProjDist = 0 azimuthal equidistant r = c * theta radius is proportional to polar angle
      kProjStereo = 1 stereographic r = c * tan theta/2 circles on sphere map to circles
      kProjStereo = 1 stereographic r = c * tan theta/2 circles on sphere map to circles
      kProjArea = 2 azimuthal equal-area r = c * sin theta/2 preserves area measure
      kProjArea = 2 azimuthal equal-area r = c * sin theta/2 preserves area measure
      kProjGnom = 3 gnomonic r = c * tan theta great circles map to straight lines
      kProjGnom = 3 gnomonic r = c * tan theta great circles map to straight lines
      kProjOrtho = 4 orthographic r = c * sin theta momentum mapping in ARPES and LEED
      kProjOrtho = 4 orthographic r = c * sin theta momentum mapping in ARPES and LEED

      For a description of the different projections, see Wikipedia, for example. The projections in this package are defined for 0 <= theta < 90.

      @@ -310,7 +332,8 @@ Export picture

      Export processed data

      The following line saves the dataset to an Igor text file. The file contains all data necessary to recreate a polar plot without further processing.

      -
      save_hemi_scan("Nickname1", "home", "some_filename")
      +
      save_hemi_scan("Nickname1", "home", "some_filename")
      +
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition pearl-anglescan-process.ipf:3097

      For structural optimization using the PMSCO software, it is necessary to generate an ETPI file. There is currently no special function for this. Instead, you have to create and set an energy wave,

      duplicate pol, en
      en = 123.4 // kinetic energy of the photoelectron
      @@ -319,29 +342,10 @@ Export processed data
      -
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition: pearl-anglescan-process.ipf:747
      -
      trim_hemi_scan
      variable trim_hemi_scan(string nickname, variable theta_max)
      trim a hemispherical scan at grazing angle
      Definition: pearl-anglescan-process.ipf:3229
      -
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition: pearl-anglescan-process.ipf:433
      -
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition: pearl-anglescan-process.ipf:252
      -
      psh5_load_dataset_reduced
      string psh5_load_dataset_reduced(dfref file_df, string datasetpath, funcref reduction_func, string reduction_params, variable create_folders=defaultValue, variable progress=defaultValue, variable nthreads=defaultValue)
      load a dataset with reduced dimensionality
      Definition: pearl-pshell-import.ipf:1472
      -
      psh5_load_scan_meta
      string psh5_load_scan_meta(dfref file_df, string scanpath)
      load metadata of a PShell scan group.
      Definition: pearl-pshell-import.ipf:1954
      -
      ad_update_profiles
      variable ad_update_profiles(wave image)
      update a profiles graph with new data.
      Definition: pearl-area-display.ipf:377
      -
      calc_graph_radius
      threadsafe variable calc_graph_radius(variable polar, variable projection=defaultValue)
      calculate the projected polar angle
      Definition: pearl-anglescan-process.ipf:2369
      -
      pizza_service
      variable pizza_service(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition: pearl-anglescan-process.ipf:843
      -
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition: pearl-anglescan-process.ipf:2920
      -
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition: pearl-anglescan-process.ipf:3463
      -
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition: pearl-anglescan-process.ipf:3097
      -
      psh5_close_file
      variable psh5_close_file(dfref file_df)
      close a HDF5 file opened by psh5_open_file.
      Definition: pearl-pshell-import.ipf:509
      -
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition: pearl-anglescan-process.ipf:348
      -
      ad_display_profiles
      string ad_display_profiles(wave image, string filter=defaultValue)
      open a new profiles graph window.
      Definition: pearl-area-display.ipf:168
      -
      psh5_open_file
      dfr psh5_open_file(string path_name, string file_name, dfref dest_df=defaultValue)
      open a HDF5 file created by the PShell data acquisition program and prepare the data folder.
      Definition: pearl-pshell-import.ipf:450
      -
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition: pearl-anglescan-process.ipf:1858
      diff --git a/doc/html/pages.html b/doc/html/pages.html index 6e60331..43bfc24 100644 --- a/doc/html/pages.html +++ b/doc/html/pages.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: Related Pages @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,20 +77,26 @@ $(document).ready(function(){initNavTree('pages.html',''); initResizable(); });
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      Related Pages
      +
      Related Pages
      Here is a list of all related documentation pages:
      - - + +
       Projections
       Angle-scan processing
       ProjectionsFunctions of the anglescan package support the following map projections
       Angle-scan processing
       Todo List
      @@ -99,9 +105,7 @@ $(document).ready(function(){initNavTree('pages.html',''); initResizable(); }); diff --git a/doc/html/pearl-anglescan-panel_8ipf.html b/doc/html/pearl-anglescan-panel_8ipf.html index b8cc6fb..291b012 100644 --- a/doc/html/pearl-anglescan-panel_8ipf.html +++ b/doc/html/pearl-anglescan-panel_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-panel.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,9 +77,16 @@ $(document).ready(function(){initNavTree('pearl-anglescan-panel_8ipf.html','');
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      @@ -87,8 +94,7 @@ $(document).ready(function(){initNavTree('pearl-anglescan-panel_8ipf.html',''); Namespaces | Functions | Variables
      -
      -
      pearl-anglescan-panel.ipf File Reference
      ARPES package
      +
      pearl-anglescan-panel.ipf File Reference
      ARPES package
      @@ -101,162 +107,162 @@ $(document).ready(function(){initNavTree('pearl-anglescan-panel_8ipf.html','');

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlAnglescanPanel
      namespace  PearlAnglescanPanel
       interactive processing of angle scanned XPD data.
       
      - - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - + - + - + - + - + - + - + - + - - + + - + - - + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +

      +

      Functions

      static variable AfterCompiledHook ()
       initialize package data once when the procedure is first loaded More...
      static variable AfterCompiledHook ()
       initialize package data once when the procedure is first loaded
       
      static variable init_package ()
      static variable init_package ()
       
      static variable save_prefs ()
       save persistent package data to the preferences file. More...
      static variable save_prefs ()
       save persistent package data to the preferences file.
       
      static variable load_prefs ()
       load persistent package data from the preferences file. More...
      static variable load_prefs ()
       load persistent package data from the preferences file.
       
      variable asp_import_raw (wave raw_data)
       import raw data More...
      variable asp_import_raw (wave raw_data)
       import raw data
       
      variable asp_display_previews ()
       display a graph window of the processed data. More...
      variable asp_display_previews ()
       display a graph window of the processed data.
       
      variable asp_display_dist_check (variable xdist, variable ydist)
       display a graph window of the distribution checks. More...
      variable asp_display_dist_check (variable xdist, variable ydist)
       display a graph window of the distribution checks.
       
      static variable do_init_process (variable check)
       initialize the process data with a copy of the raw data. More...
      static variable do_init_process (variable check)
       initialize the process data with a copy of the raw data.
       
      static variable do_crop (variable check, variable force=defaultValue)
       crop the process data. More...
      static variable do_crop (variable check, variable force=defaultValue)
       crop the process data.
       
      static variable delete_rows (string rows, wave data, wave theta, wave tilt, wave phi)
       delete individual rows from the data strip More...
      static variable delete_rows (string rows, wave data, wave theta, wave tilt, wave phi)
       delete individual rows from the data strip
       
      static variable do_norm_alpha (variable check, variable force=defaultValue)
       alpha-normalize the process data. More...
      static variable do_norm_alpha (variable check, variable force=defaultValue)
       alpha-normalize the process data.
       
      static variable do_norm_phi (variable check, variable force=defaultValue)
       phi-normalize the process data. More...
      static variable do_norm_phi (variable check, variable force=defaultValue)
       phi-normalize the process data.
       
      static variable do_norm_theta (variable check, variable force=defaultValue)
       theta-normalize the process data. More...
      static variable do_norm_theta (variable check, variable force=defaultValue)
       theta-normalize the process data.
       
      static variable do_norm_thetaphi (variable check, variable force=defaultValue)
       theta,phi-normalize the process data. More...
      static variable do_norm_thetaphi (variable check, variable force=defaultValue)
       theta,phi-normalize the process data.
       
      variable asp_calculate_output ()
       calculate the output using all enabled processing filters. More...
      variable asp_calculate_output ()
       calculate the output using all enabled processing filters.
       
      string asp_display_output (dfref data_df=defaultValue, string data_name=defaultValue)
       display the output diffractogram More...
      string asp_display_output (dfref data_df=defaultValue, string data_name=defaultValue)
       display the output diffractogram
       
      variable asp_update_graph ()
       update graphs with new color table or contrast More...
      variable asp_update_graph ()
       update graphs with new color table or contrast
       
      variable asp_close_graphs ()
       close all graphs created by the angle scan panel More...
      variable asp_close_graphs ()
       close all graphs created by the angle scan panel
       
      string asp_duplicate_output (string dest_name, variable do_graph=defaultValue)
       copy the output data to a new folder More...
      string asp_duplicate_output (string dest_name, variable do_graph=defaultValue)
       copy the output data to a new folder
       
      variable asp_save_output_itx ()
       save the output diffractogram to an igor text file More...
      variable asp_save_output_itx ()
       save the output diffractogram to an igor text file
       
      variable asp_save_output_etpi (variable ekin)
       save the output diffractogram to a PMSCO ETPI file More...
      variable asp_save_output_etpi (variable ekin)
       save the output diffractogram to a PMSCO ETPI file
       
      static variable check_norm_alpha ()
      static variable check_norm_alpha ()
       
      static variable check_norm_phi ()
      static variable check_norm_phi ()
       
      static variable check_norm_theta ()
      static variable check_norm_theta ()
       
      static variable check_norm_thetaphi ()
      static variable check_norm_thetaphi ()
       
      static variable preview_crop ()
      static variable preview_crop ()
       
      static variable preview_norm_alpha ()
      static variable preview_norm_alpha ()
       
      static variable preview_norm_phi ()
      static variable preview_norm_phi ()
       
      static variable preview_norm_theta ()
      static variable preview_norm_theta ()
       
      static variable preview_norm_thetaphi ()
      static variable preview_norm_thetaphi ()
       
      variable asp_show_panel ()
       create the angle scan processing panel More...
      variable asp_show_panel ()
       create the angle scan processing panel
       
      static variable arrange_controls ()
      static variable arrange_controls ()
       
      static variable update_menus ()
       update the popup menus to reflect the values of the global variables More...
      static variable update_menus ()
       update the popup menus to reflect the values of the global variables
       
      static variable bp_load_prefs (WMButtonAction *ba)
      static variable bp_load_prefs (WMButtonAction *ba)
       
      static variable bp_save_prefs (WMButtonAction *ba)
      static variable bp_save_prefs (WMButtonAction *ba)
       
      static variable bp_source_select (WMButtonAction *ba)
      static variable bp_source_select (WMButtonAction *ba)
       
      static variable bp_source_update (WMButtonAction *ba)
      static variable bp_source_update (WMButtonAction *ba)
       
      static variable bp_norm_alpha_check (WMButtonAction *ba)
      static variable bp_norm_alpha_check (WMButtonAction *ba)
       
      static variable bp_norm_theta_check (WMButtonAction *ba)
      static variable bp_norm_theta_check (WMButtonAction *ba)
       
      static variable bp_norm_phi_check (WMButtonAction *ba)
      static variable bp_norm_phi_check (WMButtonAction *ba)
       
      static variable bp_norm_thetaphi_check (WMButtonAction *ba)
      static variable bp_norm_thetaphi_check (WMButtonAction *ba)
       
      static variable bp_crop_preview (WMButtonAction *ba)
      static variable bp_crop_preview (WMButtonAction *ba)
       
      static variable bp_norm_alpha_preview (WMButtonAction *ba)
      static variable bp_norm_alpha_preview (WMButtonAction *ba)
       
      static variable bp_norm_phi_preview (WMButtonAction *ba)
      static variable bp_norm_phi_preview (WMButtonAction *ba)
       
      static variable bp_norm_theta_preview (WMButtonAction *ba)
      static variable bp_norm_theta_preview (WMButtonAction *ba)
       
      static variable bp_norm_thetaphi_preview (WMButtonAction *ba)
      static variable bp_norm_thetaphi_preview (WMButtonAction *ba)
       
      static variable bp_output_calc (WMButtonAction *ba)
      static variable bp_output_calc (WMButtonAction *ba)
       
      static variable bp_output_duplicate (WMButtonAction *ba)
      static variable bp_output_duplicate (WMButtonAction *ba)
       
      static variable bp_output_etpi (WMButtonAction *ba)
      static variable bp_output_etpi (WMButtonAction *ba)
       
      static variable bp_output_itx (WMButtonAction *ba)
      static variable bp_output_itx (WMButtonAction *ba)
       
      static variable bp_graph_update (WMButtonAction *ba)
      static variable bp_graph_update (WMButtonAction *ba)
       
      static variable bp_graph_png (WMButtonAction *ba)
      static variable bp_graph_png (WMButtonAction *ba)
       
      static variable pmp_norm_alpha_mode (WMPopupAction *pa)
      static variable pmp_norm_alpha_mode (WMPopupAction *pa)
       
      static variable pmp_norm_theta_domain (WMPopupAction *pa)
      static variable pmp_norm_theta_domain (WMPopupAction *pa)
       
      static variable pmp_norm_theta_mode (WMPopupAction *pa)
      static variable pmp_norm_theta_mode (WMPopupAction *pa)
       
      static variable pmp_norm_thetaphi_mode (WMPopupAction *pa)
      static variable pmp_norm_thetaphi_mode (WMPopupAction *pa)
       
      static variable pmp_graph_mode (WMPopupAction *pa)
      static variable pmp_graph_mode (WMPopupAction *pa)
       
      static variable pmp_graph_projection (WMPopupAction *pa)
      static variable pmp_graph_projection (WMPopupAction *pa)
       
      static variable pmp_graph_colortable (WMPopupAction *pa)
      static variable pmp_graph_colortable (WMPopupAction *pa)
       
      - - - + + - - + +

      +

      Variables

      static const string package_name = "pearl_anglescan_panel"
       package name is used as data folder name More...
      static const string package_name = "pearl_anglescan_panel"
       package name is used as data folder name
       
      static const string package_path = "root:packages:pearl_anglescan_panel:"
       data folder path More...
      static const string package_path = "root:packages:pearl_anglescan_panel:"
       data folder path
       

      Detailed Description

      @@ -270,7 +276,7 @@ Variables
    • refine parameters and repeat steps 4-5.
    • export the result in the desired form.
      • -
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      +
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      Copyright
      2018-20 Paul Scherrer Institut
      Licensed under the Apache License, Version 2.0 (the "License");
      you may not use this file except in compliance with the License.
      @@ -278,8 +284,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

      Definition in file pearl-anglescan-panel.ipf.

      Function Documentation

      - -

      ◆ AfterCompiledHook()

      + +

      ◆ AfterCompiledHook()

      @@ -307,8 +313,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ arrange_controls()

      + +

      ◆ arrange_controls()

      @@ -334,8 +340,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_calculate_output()

      + +

      ◆ asp_calculate_output()

      @@ -356,8 +362,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_close_graphs()

      + +

      ◆ asp_close_graphs()

      @@ -377,8 +383,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_display_dist_check()

      + +

      ◆ asp_display_dist_check()

      @@ -417,8 +423,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_display_output()

      + +

      ◆ asp_display_output()

      @@ -457,8 +463,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_display_previews()

      + +

      ◆ asp_display_previews()

      @@ -479,8 +485,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_duplicate_output()

      + +

      ◆ asp_duplicate_output()

      @@ -519,8 +525,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_import_raw()

      + +

      ◆ asp_import_raw()

      @@ -548,8 +554,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_save_output_etpi()

      + +

      ◆ asp_save_output_etpi()

      @@ -576,8 +582,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_save_output_itx()

      + +

      ◆ asp_save_output_itx()

      @@ -597,8 +603,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_show_panel()

      + +

      ◆ asp_show_panel()

      @@ -618,8 +624,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ asp_update_graph()

      + +

      ◆ asp_update_graph()

      @@ -640,8 +646,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_crop_preview()

      + +

      ◆ bp_crop_preview()

      @@ -668,8 +674,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_graph_png()

      + +

      ◆ bp_graph_png()

      @@ -696,8 +702,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_graph_update()

      + +

      ◆ bp_graph_update()

      @@ -724,8 +730,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_load_prefs()

      + +

      ◆ bp_load_prefs()

      @@ -752,8 +758,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_alpha_check()

      + +

      ◆ bp_norm_alpha_check()

      @@ -780,8 +786,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_alpha_preview()

      + +

      ◆ bp_norm_alpha_preview()

      @@ -808,8 +814,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_phi_check()

      + +

      ◆ bp_norm_phi_check()

      @@ -836,8 +842,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_phi_preview()

      + +

      ◆ bp_norm_phi_preview()

      @@ -864,8 +870,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_theta_check()

      + +

      ◆ bp_norm_theta_check()

      @@ -892,8 +898,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_theta_preview()

      + +

      ◆ bp_norm_theta_preview()

      @@ -920,8 +926,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_thetaphi_check()

      + +

      ◆ bp_norm_thetaphi_check()

      @@ -948,8 +954,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_norm_thetaphi_preview()

      + +

      ◆ bp_norm_thetaphi_preview()

      @@ -976,8 +982,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_output_calc()

      + +

      ◆ bp_output_calc()

      @@ -1004,8 +1010,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_output_duplicate()

      + +

      ◆ bp_output_duplicate()

      @@ -1032,8 +1038,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_output_etpi()

      + +

      ◆ bp_output_etpi()

      @@ -1060,8 +1066,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_output_itx()

      + +

      ◆ bp_output_itx()

      @@ -1088,8 +1094,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_save_prefs()

      + +

      ◆ bp_save_prefs()

      @@ -1116,8 +1122,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_source_select()

      + +

      ◆ bp_source_select()

      @@ -1144,8 +1150,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ bp_source_update()

      + +

      ◆ bp_source_update()

      @@ -1172,8 +1178,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ check_norm_alpha()

      + +

      ◆ check_norm_alpha()

      @@ -1199,8 +1205,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ check_norm_phi()

      + +

      ◆ check_norm_phi()

      @@ -1226,8 +1232,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ check_norm_theta()

      + +

      ◆ check_norm_theta()

      @@ -1253,8 +1259,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ check_norm_thetaphi()

      + +

      ◆ check_norm_thetaphi()

      @@ -1280,8 +1286,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ delete_rows()

      + +

      ◆ delete_rows()

      @@ -1348,8 +1354,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_crop()

      + +

      ◆ do_crop()

      @@ -1404,8 +1410,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_init_process()

      + +

      ◆ do_init_process()

      @@ -1446,8 +1452,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_norm_alpha()

      + +

      ◆ do_norm_alpha()

      @@ -1502,8 +1508,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_norm_phi()

      + +

      ◆ do_norm_phi()

      @@ -1558,8 +1564,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_norm_theta()

      + +

      ◆ do_norm_theta()

      @@ -1614,8 +1620,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ do_norm_thetaphi()

      + +

      ◆ do_norm_thetaphi()

      @@ -1670,8 +1676,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ init_package()

      + +

      ◆ init_package()

      @@ -1697,8 +1703,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ load_prefs()

      + +

      ◆ load_prefs()

      @@ -1728,8 +1734,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_graph_colortable()

      + +

      ◆ pmp_graph_colortable()

      @@ -1756,8 +1762,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_graph_mode()

      + +

      ◆ pmp_graph_mode()

      @@ -1784,8 +1790,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_graph_projection()

      + +

      ◆ pmp_graph_projection()

      @@ -1812,8 +1818,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_norm_alpha_mode()

      + +

      ◆ pmp_norm_alpha_mode()

      @@ -1840,8 +1846,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_norm_theta_domain()

      + +

      ◆ pmp_norm_theta_domain()

      @@ -1868,8 +1874,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_norm_theta_mode()

      + +

      ◆ pmp_norm_theta_mode()

      @@ -1896,8 +1902,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ pmp_norm_thetaphi_mode()

      + +

      ◆ pmp_norm_thetaphi_mode()

      @@ -1924,8 +1930,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ preview_crop()

      + +

      ◆ preview_crop()

      @@ -1951,8 +1957,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ preview_norm_alpha()

      + +

      ◆ preview_norm_alpha()

      @@ -1978,8 +1984,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ preview_norm_phi()

      + +

      ◆ preview_norm_phi()

      @@ -2005,8 +2011,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ preview_norm_theta()

      + +

      ◆ preview_norm_theta()

      @@ -2032,8 +2038,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ preview_norm_thetaphi()

      + +

      ◆ preview_norm_thetaphi()

      @@ -2059,8 +2065,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ save_prefs()

      + +

      ◆ save_prefs()

      @@ -2089,8 +2095,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ update_menus()

      + +

      ◆ update_menus()

      @@ -2119,8 +2125,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

      Variable Documentation

      - -

      ◆ package_name

      + +

      ◆ package_name

      @@ -2145,8 +2151,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ package_path

      + +

      ◆ package_path

      @@ -2177,9 +2183,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
      diff --git a/doc/html/pearl-anglescan-panel_8ipf_source.html b/doc/html/pearl-anglescan-panel_8ipf_source.html index 42a3d4a..1bd76a8 100644 --- a/doc/html/pearl-anglescan-panel_8ipf_source.html +++ b/doc/html/pearl-anglescan-panel_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-panel.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,1579 +82,1701 @@ $(document).ready(function(){initNavTree('pearl-anglescan-panel_8ipf_source.html
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-anglescan-panel.ipf
      +
      pearl-anglescan-panel.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "UTF-8"
      -
      2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
      -
      3 #pragma version = 1.8
      -
      4 #pragma IgorVersion = 6.2
      -
      5 #pragma ModuleName = PearlAnglescanPanel
      -
      6 #include "pearl-anglescan-process"
      -
      7 #include "pearl-pmsco-import"
      -
      8 #include "pearl-scienta-preprocess"
      -
      9 #include "pearl-area-display"
      -
      10 
      -
      11 // copyright (c) 2018-20 Paul Scherrer Institut
      -
      12 //
      -
      13 // Licensed under the Apache License, Version 2.0 (the "License");
      -
      14 // you may not use this file except in compliance with the License.
      -
      15 // You may obtain a copy of the License at
      -
      16 // http:///www.apache.org/licenses/LICENSE-2.0
      -
      17 //
      -
      18 // Please acknowledge the use of this code.
      -
      19 
      -
      41 
      -
      46 
      -
      48 static strconstant package_name = "pearl_anglescan_panel"
      -
      50 static strconstant package_path = "root:packages:pearl_anglescan_panel:"
      -
      51 
      -
      53 static function AfterCompiledHook()
      -
      54 
      -
      55  dfref savedf = GetDataFolderDFR()
      -
      56  variable do_init = 1
      -
      57  if (DataFolderExists(package_path))
      -
      58  setdatafolder $(package_path)
      -
      59  nvar /z init_done
      -
      60  if (nvar_exists(init_done))
      -
      61  if (init_done)
      -
      62  do_init = 0
      -
      63  endif
      -
      64  endif
      -
      65  endif
      -
      66 
      -
      67  if (do_init)
      -
      68  init_package()
      -
      69  load_prefs()
      -
      70  setdatafolder $(package_path)
      -
      71  variable /g init_done = 1
      -
      72  endif
      -
      73 
      -
      74  setdatafolder savedf
      -
      75  return 0
      -
      76 end
      -
      77 
      -
      78 static function init_package()
      -
      79  dfref savedf = getdatafolderdfr()
      -
      80  setdatafolder root:
      -
      81  newdatafolder /o/s packages
      -
      82  newdatafolder /o/s $package_name
      -
      83 
      -
      84  // configuration (persistent)
      -
      85  string /g graphname = "graph_anglescan_panel"
      -
      86  string /g prefs_objects = "prefs_objects;theta_offset;tilt_offset;phi_offset;alpha_offset;crop_enable;crop_alpha;crop_theta;"
      -
      87  prefs_objects += "norm_alpha_enable;norm_alpha_mode;norm_alpha_smoothing;norm_phi_enable;norm_phi_mode;norm_phi_thetarange;"
      -
      88  prefs_objects += "norm_theta_enable;norm_theta_mode;norm_theta_domain;norm_theta_smoothing;norm_thetaphi_enable;norm_thetaphi_mode;norm_thetaphi_smoothing;"
      -
      89  prefs_objects += "output_folding;output_horizon;graph_mode;graph_projection;graph_colortable;graph_contrast;"
      -
      90 
      -
      91  // recently used (persistent)
      -
      92  variable /g theta_offset = 0
      -
      93  variable /g tilt_offset = 0
      -
      94  variable /g phi_offset = 0
      -
      95  variable /g alpha_offset = 0
      -
      96  variable /g crop_enable = 0
      -
      97  variable /g crop_alpha = 25
      -
      98  variable /g crop_theta = 88
      -
      99  string /g crop_rows = ""
      -
      100  variable /g norm_alpha_enable = 0
      -
      101  variable /g norm_alpha_mode = 4
      -
      102  variable /g norm_alpha_smoothing = 0.25
      -
      103  variable /g norm_theta_enable = 0
      -
      104  variable /g norm_theta_mode = 4
      -
      105  variable /g norm_theta_domain = 0
      -
      106  variable /g norm_theta_smoothing = 0.25
      -
      107  variable /g norm_thetaphi_enable = 0
      -
      108  variable /g norm_thetaphi_mode = 4
      -
      109  variable /g norm_thetaphi_smoothing = 0.25
      -
      110  variable /g norm_phi_enable = 0
      -
      111  variable /g norm_phi_mode = 4
      -
      112  variable /g norm_phi_thetarange = 20
      -
      113  string /g output_name = "holo1"
      -
      114  variable /g output_folding = 1
      -
      115  variable /g output_horizon = 88
      -
      116  variable /g graph_mode = 1
      -
      117  variable /g graph_projection = kProjStereo
      -
      118  string /g graph_colortable = "grays"
      -
      119  variable /g graph_contrast = 2
      -
      120 
      -
      121  // recently used (volatile)
      -
      122  string /g source_path = ""
      -
      123  string /g export_folderpath = "root:"
      -
      124  variable /g export_format = 1
      -
      125 
      -
      126  // administrative data (volatile)
      -
      127  string /g panel_name = ""
      -
      128  string /g preview_graphname = ""
      -
      129  string /g dist_x_graphname = ""
      -
      130  string /g dist_y_graphname = ""
      -
      131  string /g output_graphname = ""
      -
      132 
      -
      133  // data (volatile)
      -
      134  make /n=(10,10) /o raw_data, process_data
      -
      135  make /o dist_x, dist_x_smoo
      -
      136  make /o dist_y, dist_y_smoo
      -
      137 
      -
      138  setdatafolder savedf
      -
      139 end
      -
      140 
      -
      145 static function save_prefs()
      -
      146  dfref saveDF = GetDataFolderDFR()
      -
      147  dfref df = $(package_path)
      -
      148  svar /sdfr=df prefs_objects
      -
      149 
      -
      150  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      -
      151  fullPath += package_name
      -
      152  NewPath/O/C/Q tempPackagePrefsPath, fullPath
      -
      153  fullPath += ":preferences.pxp"
      -
      154 
      -
      155  SetDataFolder root:packages
      -
      156  SetDataFolder $package_name
      -
      157  SaveData /O /Q /J=prefs_objects fullPath
      -
      158 
      -
      159  KillPath/Z tempPackagePrefsPath
      -
      160 
      -
      161  SetDataFolder saveDF
      -
      162 end
      -
      163 
      -
      171 static function load_prefs()
      -
      172  dfref saveDF = GetDataFolderDFR()
      -
      173 
      -
      174  variable result = -1
      -
      175  setdatafolder root:
      -
      176  NewDataFolder /O/S packages
      -
      177  NewDataFolder /O/S $package_name
      -
      178  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      -
      179  fullPath += package_name
      -
      180 
      -
      181  GetFileFolderInfo /Q /Z fullPath
      -
      182  if (V_Flag == 0) // Disk directory exists?
      -
      183  fullPath += ":preferences.pxp"
      -
      184  GetFileFolderInfo /Q /Z fullPath
      -
      185  if (V_Flag == 0) // Preference file exist?
      -
      186  LoadData /O /R /Q fullPath
      -
      187  result = 0
      -
      188  endif
      -
      189  endif
      -
      190 
      -
      191  SetDataFolder saveDF
      -
      192  return result
      -
      193 end
      -
      194 
      -
      207 function asp_import_raw(raw_data)
      -
      208  wave raw_data
      -
      209 
      -
      210  dfref saveDF = GetDataFolderDFR()
      -
      211  dfref datadf = GetWavesDataFolderDFR(raw_data)
      -
      212  dfref attrdf = datadf:attr
      -
      213  if (!DataFolderRefStatus(attrdf))
      -
      214  setdatafolder datadf
      -
      215  setdatafolder ::
      -
      216  dfref parentdf = GetDataFolderDFR()
      -
      217  dfref attrdf = parentdf:attr
      -
      218  endif
      -
      219  setdatafolder $(package_path)
      -
      220 
      -
      221  // todo : check dimensions and scales
      -
      222 
      -
      223  svar source_path
      -
      224  source_path = GetWavesDataFolder(raw_data, 2)
      -
      225 
      -
      226  duplicate /o raw_data, raw, process_data
      -
      227 
      -
      228  wave /sdfr=attrdf /z ManipulatorTheta
      -
      229  wave /sdfr=attrdf /z ManipulatorTilt
      -
      230  wave /sdfr=attrdf /z ManipulatorPhi
      -
      231  if (WaveExists(ManipulatorTheta) && WaveExists(ManipulatorTilt) && WaveExists(ManipulatorPhi))
      -
      232  duplicate /o attrdf:ManipulatorTheta, raw_theta, process_theta
      -
      233  duplicate /o attrdf:ManipulatorTilt, raw_tilt, process_tilt
      -
      234  duplicate /o attrdf:ManipulatorPhi, raw_phi, process_phi
      -
      235  else
      -
      236  DoAlert 0, "Can't find manipulator angle waves.\rCheck that the attr folder exists, or provide values in the following table."
      -
      237  make /n=(dimsize(raw_data, 1)) /o raw_theta, raw_tilt, raw_phi
      -
      238  make /n=(dimsize(raw_data, 1)) /o process_theta, process_tilt, process_phi
      -
      239  edit /k=1 raw_theta, raw_tilt, raw_phi
      -
      240  endif
      -
      241 
      -
      242  make /o /n=(dimsize(raw_data, 0)) dist_x, dist_x_smoo
      -
      243  make /o /n=(dimsize(raw_data, 1)) dist_y, dist_y_smoo
      -
      244 
      -
      245  SetDataFolder saveDF
      -
      246 end
      -
      247 
      -
      252 function asp_display_previews()
      -
      253  dfref df = $(package_path)
      -
      254  wave /sdfr=df process_data
      -
      255  svar /sdfr=df preview_graphname
      -
      256 
      -
      257  if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      -
      258  ad_update_profiles(process_data)
      -
      259  DoWindow /F $preview_graphname
      -
      260  else
      -
      261  preview_graphname = ad_display_profiles(process_data)
      -
      262  endif
      -
      263 
      -
      264  nvar /sdfr=df graph_contrast
      -
      265  svar /sdfr=df graph_colortable
      -
      266  set_contrast(graph_contrast, graph_contrast, graphname=preview_graphname, colortable=graph_colortable)
      -
      267 end
      -
      268 
      -
      276 function asp_display_dist_check(xdist, ydist)
      -
      277  variable xdist, ydist
      -
      278 
      -
      279  dfref df = $(package_path)
      -
      280  wave /sdfr=df dist_x
      -
      281  wave /sdfr=df dist_y
      -
      282  wave /sdfr=df dist_x_smoo
      -
      283  wave /sdfr=df dist_y_smoo
      -
      284  svar /sdfr=df dist_x_graphname
      -
      285  svar /sdfr=df dist_y_graphname
      -
      286 
      -
      287  if (xdist)
      -
      288  if (strlen(dist_x_graphname) && (wintype(dist_x_graphname) == 1))
      -
      289  DoWindow /F $dist_x_graphname
      -
      290  else
      -
      291  display /k=1 /n=graph_asp_dist_x dist_x, dist_x_smoo
      -
      292  dist_x_graphname = s_name
      -
      293  ModifyGraph /w=$dist_x_graphname mode(dist_x)=2
      -
      294  ModifyGraph /w=$dist_x_graphname lsize(dist_x)=2
      -
      295  ModifyGraph /w=$dist_x_graphname rgb(dist_x)=(0,0,0)
      -
      296  endif
      -
      297  endif
      -
      298 
      -
      299  if (ydist)
      -
      300  if (strlen(dist_y_graphname) && (wintype(dist_y_graphname) == 1))
      -
      301  DoWindow /F $dist_y_graphname
      -
      302  else
      -
      303  display /k=1 /n=graph_asp_dist_y dist_y, dist_y_smoo
      -
      304  dist_y_graphname = s_name
      -
      305  ModifyGraph /w=$dist_y_graphname mode(dist_y)=2
      -
      306  ModifyGraph /w=$dist_y_graphname lsize(dist_y)=2
      -
      307  ModifyGraph /w=$dist_y_graphname rgb(dist_y)=(0,0,0)
      -
      308  endif
      -
      309  endif
      -
      310 end
      -
      311 
      -
      321 static function do_init_process(check)
      -
      322  variable check
      -
      323 
      -
      324  dfref df = $(package_path)
      -
      325  wave /sdfr=df raw
      -
      326  wave /sdfr=df raw_theta
      -
      327  wave /sdfr=df raw_tilt
      -
      328  wave /sdfr=df raw_phi
      -
      329  nvar /sdfr=df theta_offset
      -
      330  nvar /sdfr=df tilt_offset
      -
      331  nvar /sdfr=df phi_offset
      -
      332  nvar /sdfr=df alpha_offset
      -
      333 
      -
      334  duplicate /o raw, df:process_data
      -
      335  duplicate /o raw_theta, df:process_theta
      -
      336  duplicate /o raw_tilt, df:process_tilt
      -
      337  duplicate /o raw_phi, df:process_phi
      -
      338 
      -
      339  wave /sdfr=df process_data
      -
      340  wave /sdfr=df process_theta
      -
      341  wave /sdfr=df process_tilt
      -
      342  wave /sdfr=df process_phi
      -
      343 
      -
      344  process_theta = raw_theta - theta_offset
      -
      345  process_tilt = raw_tilt - tilt_offset
      -
      346  process_phi = raw_phi - phi_offset
      -
      347  setscale /p x dimoffset(raw, 0) - alpha_offset, dimdelta(raw, 0), waveunits(raw, 0), process_data
      -
      348 end
      -
      349 
      -
      361 static function do_crop(check, [force])
      -
      362  variable check
      -
      363  variable force
      -
      364 
      -
      365  if (ParamIsDefault(force))
      -
      366  force = 0
      -
      367  endif
      -
      368 
      -
      369  dfref df = $(package_path)
      -
      370  wave /sdfr=df process_data
      -
      371  wave /sdfr=df process_theta
      -
      372  wave /sdfr=df process_tilt
      -
      373  wave /sdfr=df process_phi
      -
      374  nvar /sdfr=df crop_enable
      -
      375  nvar /sdfr=df crop_alpha
      -
      376  nvar /sdfr=df crop_theta
      -
      377  svar /sdfr=df crop_rows
      -
      378 
      -
      379  if (force || crop_enable)
      -
      380 
      -
      381  if (crop_alpha > abs(dimdelta(process_data, 0)))
      -
      382  crop_strip(process_data, -crop_alpha, +crop_alpha)
      -
      383  endif
      -
      384 
      -
      385  if ((crop_theta >= 10) && (crop_theta < 90))
      -
      386  crop_strip_theta(process_data, -0.1, crop_theta + 0.1, process_theta, process_tilt, process_phi)
      -
      387  endif
      -
      388 
      -
      389  if (strlen(crop_rows) > 0)
      -
      390  delete_rows(crop_rows, process_data, process_theta, process_tilt, process_phi)
      -
      391  endif
      -
      392  endif
      -
      393 end
      -
      394 
      -
      409 static function delete_rows(rows, data, theta, tilt, phi)
      -
      410  string rows
      -
      411  wave data
      -
      412  wave theta
      -
      413  wave tilt
      -
      414  wave phi
      -
      415 
      -
      416  make /n=(numpnts(theta)) /i /free idx
      -
      417  idx = p
      -
      418  variable nrows = ItemsInList(rows, ",")
      -
      419  variable irow
      -
      420  string srow
      -
      421  variable q1, q2
      -
      422  for (irow = 0; irow < nrows; irow += 1)
      -
      423  srow = StringFromList(irow, rows, ",")
      -
      424  q1 = str2num(StringFromList(0, srow, "-"))
      -
      425  q2 = str2num(StringFromList(1, srow, "-"))
      -
      426  if (numtype(q2))
      -
      427  q2 = q1
      -
      428  endif
      -
      429  if (q1 <= q2)
      -
      430  idx[q1,q2] = -1
      -
      431  endif
      -
      432  endfor
      -
      433  extract /free idx, idx, idx >= 0
      -
      434  variable nx = dimsize(data, 0)
      -
      435  variable ny = numpnts(idx)
      -
      436  theta[0,ny-1] = theta[idx]
      -
      437  tilt[0,ny-1] = tilt[idx]
      -
      438  phi[0,ny-1] = phi[idx]
      -
      439  redimension /n=(ny) theta, tilt, phi
      -
      440  duplicate /free data, data_copy
      -
      441  redimension /n=(nx,ny) data
      -
      442  data = data_copy[p][idx[q]]
      -
      443 end
      -
      444 
      -
      456 static function do_norm_alpha(check, [force])
      -
      457  variable check
      -
      458  variable force
      -
      459 
      -
      460  if (ParamIsDefault(force))
      -
      461  force = 0
      -
      462  endif
      -
      463 
      -
      464  dfref saveDF = GetDataFolderDFR()
      -
      465  dfref df = $(package_path)
      -
      466  wave /sdfr=df process_data
      -
      467  nvar /sdfr=df norm_alpha_enable
      -
      468  nvar /sdfr=df norm_alpha_mode
      -
      469  nvar /sdfr=df norm_alpha_smoothing
      -
      470 
      -
      471  if (force || norm_alpha_enable)
      -
      472  dfref temp_df = newfreedatafolder()
      -
      473  setdatafolder temp_df
      -
      474  normalize_strip_x(process_data, smooth_method=norm_alpha_mode, smooth_factor=norm_alpha_smoothing, check=check)
      -
      475  if (check)
      -
      476  wave check_dist
      -
      477  wave check_smoo
      -
      478  duplicate /o check_dist, df:dist_x
      -
      479  duplicate /o check_smoo, df:dist_x_smoo
      -
      480  endif
      -
      481  endif
      -
      482 
      -
      483  SetDataFolder saveDF
      -
      484 end
      -
      485 
      -
      497 static function do_norm_phi(check, [force])
      -
      498  variable check
      -
      499  variable force
      -
      500 
      -
      501  if (ParamIsDefault(force))
      -
      502  force = 0
      -
      503  endif
      -
      504 
      -
      505  dfref saveDF = GetDataFolderDFR()
      -
      506  dfref df = $(package_path)
      -
      507  wave /sdfr=df process_data
      -
      508  wave /sdfr=df process_theta
      -
      509  wave /sdfr=df process_phi
      -
      510  nvar /sdfr=df norm_phi_enable
      -
      511  nvar /sdfr=df norm_phi_mode
      -
      512  nvar /sdfr=df norm_phi_thetarange
      -
      513 
      -
      514  if (force || norm_phi_enable)
      -
      515  dfref temp_df = newfreedatafolder()
      -
      516  setdatafolder temp_df
      -
      517  normalize_strip_phi(process_data, process_theta, process_phi, theta_range=norm_phi_thetarange, check=check)
      -
      518  if (check)
      -
      519  wave check_dist
      -
      520  wave check_smoo
      -
      521  duplicate /o check_dist, df:dist_y
      -
      522  duplicate /o check_smoo, df:dist_y_smoo
      -
      523  endif
      -
      524  endif
      -
      525 
      -
      526  SetDataFolder saveDF
      -
      527 end
      -
      528 
      -
      540 static function do_norm_theta(check, [force])
      -
      541  variable check
      -
      542  variable force
      -
      543 
      -
      544  if (ParamIsDefault(force))
      -
      545  force = 0
      -
      546  endif
      -
      547 
      -
      548  dfref saveDF = GetDataFolderDFR()
      -
      549  dfref df = $(package_path)
      -
      550  wave /sdfr=df process_data
      -
      551  wave /sdfr=df process_theta
      -
      552  nvar /sdfr=df norm_theta_enable
      -
      553  nvar /sdfr=df norm_theta_mode
      -
      554  nvar /sdfr=df norm_theta_domain
      -
      555  nvar /sdfr=df norm_theta_smoothing
      -
      556 
      -
      557  if (force || norm_theta_enable)
      -
      558  dfref temp_df = newfreedatafolder()
      -
      559  setdatafolder temp_df
      -
      560  if (norm_theta_domain==1)
      -
      561  normalize_strip_theta_scans(process_data, process_theta, smooth_method=norm_theta_mode, smooth_factor=norm_theta_smoothing, check=check)
      -
      562  else
      -
      563  normalize_strip_theta(process_data, process_theta, smooth_method=norm_theta_mode, smooth_factor=norm_theta_smoothing, check=check)
      -
      564  endif
      -
      565  if (check)
      -
      566  wave check_dist
      -
      567  wave check_smoo
      -
      568  duplicate /o check_dist, df:dist_y
      -
      569  duplicate /o check_smoo, df:dist_y_smoo
      -
      570  endif
      -
      571  endif
      -
      572 
      -
      573  SetDataFolder saveDF
      -
      574 end
      -
      575 
      -
      587 static function do_norm_thetaphi(check, [force])
      -
      588  variable check
      -
      589  variable force
      -
      590 
      -
      591  if (ParamIsDefault(force))
      -
      592  force = 0
      -
      593  endif
      -
      594 
      -
      595  dfref saveDF = GetDataFolderDFR()
      -
      596  dfref df = $(package_path)
      -
      597  wave /sdfr=df process_data
      -
      598  wave /sdfr=df process_theta
      -
      599  wave /sdfr=df process_phi
      -
      600  nvar /sdfr=df norm_thetaphi_enable
      -
      601  nvar /sdfr=df norm_thetaphi_mode
      -
      602  nvar /sdfr=df norm_thetaphi_smoothing
      -
      603 
      -
      604  if (force || norm_thetaphi_enable)
      -
      605  dfref temp_df = newfreedatafolder()
      -
      606  setdatafolder temp_df
      -
      607  normalize_strip_thetaphi(process_data, process_theta, process_phi, smooth_method=norm_thetaphi_mode, smooth_factor=norm_thetaphi_smoothing, check=check)
      -
      608  if (check)
      -
      609  wave check_dist
      -
      610  wave check_smoo
      -
      611  duplicate /o check_dist, df:dist_y
      -
      612  duplicate /o check_smoo, df:dist_y_smoo
      -
      613  endif
      -
      614  endif
      -
      615 
      -
      616  SetDataFolder saveDF
      -
      617 end
      -
      618 
      -
      623 function asp_calculate_output()
      -
      624  dfref saveDF = GetDataFolderDFR()
      -
      625  setdatafolder $(package_path)
      -
      626 
      -
      627  svar output_name
      -
      628 
      -
      629  wave process_data
      -
      630  wave process_theta
      -
      631  wave process_tilt
      -
      632  wave process_phi
      -
      633 
      -
      634  nvar folding=output_folding
      -
      635  nvar horizon=output_horizon
      -
      636 
      -
      637  do_init_process(0)
      -
      638  do_crop(0)
      -
      639  do_norm_alpha(0)
      -
      640  do_norm_phi(0)
      -
      641  do_norm_theta(0)
      -
      642  do_norm_thetaphi(0)
      -
      643 
      -
      644  pizza_service_2(process_data, output_name, process_theta, process_tilt, process_phi, folding=folding, nograph=1)
      -
      645 
      -
      646  setdatafolder $output_name
      -
      647  wave values
      -
      648  wave pol
      -
      649  if (horizon > 0)
      -
      650  values = pol <= horizon ? values : nan
      -
      651  endif
      -
      652 
      -
      653  SetDataFolder saveDF
      -
      654 end
      -
      655 
      -
      669 function /s asp_display_output([data_df, data_name])
      -
      670  dfref data_df
      -
      671  string data_name
      -
      672 
      -
      673  dfref pkg_df = $(package_path)
      -
      674  svar /sdfr=pkg_df output_name
      -
      675  svar /sdfr=pkg_df output_graphname
      -
      676  nvar /sdfr=pkg_df graph_projection
      -
      677  nvar /sdfr=pkg_df graph_mode
      -
      678  svar /sdfr=pkg_df graph_colortable
      -
      679  nvar /sdfr=pkg_df graph_contrast
      -
      680 
      -
      681  if (ParamIsDefault(data_df))
      -
      682  dfref data_df = pkg_df
      -
      683  endif
      -
      684  if (ParamIsDefault(data_name))
      -
      685  data_name = output_name
      -
      686  endif
      -
      687 
      -
      688  dfref saveDF = GetDataFolderDFR()
      -
      689  setdatafolder data_df
      -
      690 
      -
      691  if (graph_mode == 3)
      -
      692  interpolate_hemi_scan(data_name, projection=graph_projection)
      -
      693  endif
      -
      694 
      -
      695  string graphname = data_name
      -
      696  graphname = display_hemi_scan(data_name, projection=graph_projection, graphtype=graph_mode, graphname=graphname)
      -
      697  if (ParamIsDefault(data_df))
      -
      698  output_graphname = graphname
      -
      699  endif
      -
      700  SetDataFolder saveDF
      -
      701 
      -
      702  if (strlen(graphname) && (wintype(graphname) == 1))
      -
      703  set_contrast(graph_contrast, graph_contrast, graphname=graphname, colortable=graph_colortable)
      -
      704  endif
      -
      705 
      -
      706  return graphname
      -
      707 end
      -
      708 
      -
      713 function asp_update_graph()
      -
      714  dfref df = $(package_path)
      -
      715 
      -
      716  svar /sdfr=df preview_graphname
      -
      717  svar /sdfr=df output_graphname
      -
      718  svar /sdfr=df graph_colortable
      -
      719  nvar /sdfr=df graph_contrast
      -
      720 
      -
      721  if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      -
      722  set_contrast(graph_contrast, graph_contrast, graphname=preview_graphname, colortable=graph_colortable)
      -
      723  endif
      -
      724  if (strlen(output_graphname) && (wintype(output_graphname) == 1))
      -
      725  set_contrast(graph_contrast, graph_contrast, graphname=output_graphname, colortable=graph_colortable)
      -
      726  endif
      -
      727 end
      -
      728 
      -
      731 function asp_close_graphs()
      -
      732  dfref df = $(package_path)
      -
      733 
      -
      734  svar /sdfr=df preview_graphname
      -
      735  svar /sdfr=df output_graphname
      -
      736  svar /sdfr=df dist_x_graphname
      -
      737  svar /sdfr=df dist_y_graphname
      -
      738 
      -
      739  if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      -
      740  killwindow $preview_graphname
      -
      741  endif
      -
      742  if (strlen(output_graphname) && (wintype(output_graphname) == 1))
      -
      743  killwindow $output_graphname
      -
      744  endif
      -
      745  if (strlen(dist_x_graphname) && (wintype(dist_x_graphname) == 1))
      -
      746  killwindow $dist_x_graphname
      -
      747  endif
      -
      748  if (strlen(dist_y_graphname) && (wintype(dist_y_graphname) == 1))
      -
      749  killwindow $dist_y_graphname
      -
      750  endif
      -
      751 
      -
      752  preview_graphname = ""
      -
      753  output_graphname = ""
      -
      754  dist_x_graphname = ""
      -
      755  dist_y_graphname = ""
      -
      756 end
      -
      757 
      -
      771 function /s asp_duplicate_output(dest_name, [do_graph])
      -
      772  string dest_name
      -
      773  variable do_graph
      -
      774 
      -
      775  if (ParamIsDefault(do_graph))
      -
      776  do_graph = 0
      -
      777  endif
      -
      778 
      -
      779  dfref df = $(package_path)
      -
      780  svar /sdfr=df source_path
      -
      781  svar /sdfr=df output_name
      -
      782  svar /sdfr=df output_graphname
      -
      783  wave raw_data = $source_path
      -
      784 
      -
      785  dfref saveDF = GetDataFolderDFR()
      -
      786  dfref raw_df = GetWavesDataFolderDFR(raw_data)
      -
      787  setdatafolder raw_df
      -
      788  newdatafolder /o /s $dest_name
      -
      789  dfref dest_df = GetDataFolderDFR()
      -
      790  setdatafolder df
      -
      791  duplicate_hemi_scan(output_name, dest_df, "")
      -
      792 
      -
      793  string graphname = ""
      -
      794  if (do_graph)
      -
      795  graphname = asp_display_output(data_df=raw_df, data_name=dest_name)
      -
      796  endif
      -
      797 
      -
      798  SetDataFolder saveDF
      -
      799  return graphname
      -
      800 end
      -
      801 
      -
      804 function asp_save_output_itx()
      -
      805  dfref df = $(package_path)
      -
      806  svar /sdfr=df output_name
      -
      807 
      -
      808  dfref saveDF = GetDataFolderDFR()
      -
      809  setdatafolder df
      -
      810  save_hemi_scan(output_name, "", "")
      -
      811 
      -
      812  SetDataFolder saveDF
      -
      813 end
      -
      814 
      -
      819 function asp_save_output_etpi(ekin)
      -
      820  variable ekin
      -
      821 
      -
      822  dfref df = $(package_path)
      -
      823  svar /sdfr=df output_name
      -
      824  wave /sdfr=df process_data
      -
      825 
      -
      826  dfref saveDF = GetDataFolderDFR()
      -
      827  setdatafolder df
      -
      828  string s_prefix = ""
      -
      829  string s_int = "values"
      -
      830  dfref data_df = find_hemi_data(output_name, s_prefix, s_int)
      -
      831  string s_polar = s_prefix + "pol"
      -
      832  string s_azim = s_prefix + "az"
      -
      833 
      -
      834  pmsco_save_scan("", "", num2str(ekin), s_polar, s_azim, "", s_int, "", sdfr=data_df)
      -
      835 
      -
      836  SetDataFolder saveDF
      -
      837 end
      -
      838 
      -
      839 static function check_norm_alpha()
      -
      840  do_init_process(0)
      -
      841  do_crop(0)
      -
      842  do_norm_alpha(2, force=1)
      -
      843  asp_display_dist_check(1, 0)
      -
      844 end
      -
      845 
      -
      846 static function check_norm_phi()
      -
      847  do_init_process(0)
      -
      848  do_crop(0)
      -
      849  do_norm_phi(2, force=1)
      -
      850  asp_display_dist_check(0, 1)
      -
      851 end
      -
      852 
      -
      853 static function check_norm_theta()
      -
      854  do_init_process(0)
      -
      855  do_crop(0)
      -
      856  do_norm_theta(2, force=1)
      -
      857  asp_display_dist_check(0, 1)
      -
      858 end
      -
      859 
      -
      860 static function check_norm_thetaphi()
      -
      861  do_init_process(0)
      -
      862  do_crop(0)
      -
      863  do_norm_thetaphi(2, force=1)
      -
      864  asp_display_dist_check(0, 1)
      -
      865 end
      -
      866 
      -
      867 static function preview_crop()
      -
      868  do_init_process(0)
      -
      869  do_crop(0, force=1)
      -
      870  asp_display_previews()
      -
      871 end
      -
      872 
      -
      873 static function preview_norm_alpha()
      -
      874  do_init_process(0)
      -
      875  do_crop(0)
      -
      876  do_norm_alpha(1, force=1)
      -
      877  asp_display_previews()
      -
      878 end
      -
      879 
      -
      880 static function preview_norm_phi()
      -
      881  do_init_process(0)
      -
      882  do_crop(0)
      -
      883  do_norm_phi(1, force=1)
      -
      884  asp_display_previews()
      -
      885 end
      -
      886 
      -
      887 static function preview_norm_theta()
      -
      888  do_init_process(0)
      -
      889  do_crop(0)
      -
      890  do_norm_theta(1, force=1)
      -
      891  asp_display_previews()
      -
      892 end
      -
      893 
      -
      894 static function preview_norm_thetaphi()
      -
      895  do_init_process(0)
      -
      896  do_crop(0)
      -
      897  do_norm_thetaphi(1, force=1)
      -
      898  asp_display_previews()
      -
      899 end
      -
      900 
      -
      903 function asp_show_panel()
      -
      904  dfref df = $(package_path)
      -
      905  svar /sdfr=df panel_name
      -
      906 
      -
      907  if (strlen(panel_name) && (wintype(panel_name) == 7))
      -
      908  DoWindow /F $panel_name
      -
      909  return 0
      -
      910  endif
      -
      911 
      -
      912  NewPanel /K=1 /N=anglescan_panel /W=(200,50,480,874) as "angle scan processing"
      -
      913  panel_name = s_name
      -
      914 
      -
      915  GroupBox gb_source, title="data source"
      -
      916  Button b_source_select, size={50,20},proc=PearlAnglescanPanel#bp_source_select,title="select..."
      -
      917  Button b_source_select, help={"select the source wave, e.g. ReducedData1. it must be in the scan or region data folder. the attr folder with the manipulator waves must be in the same folder or one level up."}
      -
      918  Button b_source_update, size={50,20},proc=PearlAnglescanPanel#bp_source_update,title="update"
      -
      919  Button b_source_update, help={"reload the process data from the previous source (link displayed below)"}
      -
      920  TitleBox tb_source_path, size={240,21}
      -
      921  TitleBox tb_source_path,variable= root:packages:pearl_anglescan_panel:source_path
      -
      922 
      -
      923  GroupBox gb_offsets, title="offsets"
      -
      924  SetVariable sv_theta_offset, size={88,16},bodyWidth=60,title="theta"
      -
      925  SetVariable sv_theta_offset,value= root:packages:pearl_anglescan_panel:theta_offset
      -
      926  SetVariable sv_theta_offset, help={"manipulator theta value that corresponds to normal emission."}
      -
      927  SetVariable sv_tilt_offset, size={74,16},bodyWidth=60,title="tilt"
      -
      928  SetVariable sv_tilt_offset,value= root:packages:pearl_anglescan_panel:tilt_offset
      -
      929  SetVariable sv_tilt_offset, help={"manipulator tilt value that corresponds to normal emission."}
      -
      930  SetVariable sv_phi_offset, size={78,16},bodyWidth=60,title="phi"
      -
      931  SetVariable sv_phi_offset,value= root:packages:pearl_anglescan_panel:phi_offset
      -
      932  SetVariable sv_phi_offset, help={"manipulator phi value that should map to the 3 o'clock angle."}
      -
      933  SetVariable sv_alpha_offset, size={90,16},bodyWidth=60,title="alpha"
      -
      934  SetVariable sv_alpha_offset,value= root:packages:pearl_anglescan_panel:alpha_offset
      -
      935  SetVariable sv_alpha_offset, help={"alpha value that corresponds to normal emission (if the sample normal is properly aligned)."}
      -
      936  Button b_save_prefs, size={80,20},proc=PearlAnglescanPanel#bp_save_prefs,title="save prefs"
      -
      937  Button b_save_prefs, help={"save settings as preferences."}
      -
      938  Button b_load_prefs, size={80,20},proc=PearlAnglescanPanel#bp_load_prefs,title="load prefs"
      -
      939  Button b_load_prefs, help={"load settings from preferences."}
      -
      940 
      -
      941  GroupBox gb_crop, title="crop and delete"
      -
      942  CheckBox cb_crop_enable, size={50,14}, title="enable"
      -
      943  CheckBox cb_crop_enable, help={"crop at +/-alpha and +theta, delete arbitrary rows"}
      -
      944  CheckBox cb_crop_enable, variable= root:packages:pearl_anglescan_panel:crop_enable
      -
      945  SetVariable sv_crop_alpha, size={90,16},bodyWidth=60,title="alpha"
      -
      946  SetVariable sv_crop_alpha, limits={0,30,1},value= root:packages:pearl_anglescan_panel:crop_alpha
      -
      947  SetVariable sv_crop_alpha, help={"alpha (detection angle) cropping angle (positive boundary), relative to normal emission"}
      -
      948  SetVariable sv_crop_theta, size={90,16},bodyWidth=60,title="theta"
      -
      949  SetVariable sv_crop_theta, limits={10,90,1},value= root:packages:pearl_anglescan_panel:crop_theta
      -
      950  SetVariable sv_crop_theta, help={"theta (polar angle) upper limit, relative to normal emission"}
      -
      951  SetVariable sv_crop_rows, size={200,16},bodyWidth=160,title="rows"
      -
      952  SetVariable sv_crop_rows, limits={10,90,1},value= root:packages:pearl_anglescan_panel:crop_rows
      -
      953  SetVariable sv_crop_rows, help={"rows to delete from the raw data. comma-separated point indices, hyphen for range."}
      -
      954  Button b_crop_preview, size={80,20},proc=PearlAnglescanPanel#bp_crop_preview,title="preview"
      -
      955  Button b_crop_preview, help={"show a preview of the cropped dataset."}
      -
      956 
      -
      957  GroupBox gb_norm_alpha, title="normalize alpha"
      -
      958  CheckBox cb_norm_alpha_enable, size={50,14}, title="enable"
      -
      959  CheckBox cb_norm_alpha_enable,variable= root:packages:pearl_anglescan_panel:norm_alpha_enable
      -
      960  CheckBox cb_norm_alpha_enable, help={"enable normalization of the alpha distribution"}
      -
      961  PopupMenu pm_norm_alpha_mode, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_alpha_mode,title="method"
      -
      962  PopupMenu pm_norm_alpha_mode, mode=5, popvalue="loess", value= #"\"none;binomial;boxcar;scienta;loess;\""
      -
      963  PopupMenu pm_norm_alpha_mode, help={"alpha normalization method. recommended: loess"}
      -
      964  SetVariable sv_norm_alpha_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      -
      965  SetVariable sv_norm_alpha_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_alpha_smoothing
      -
      966  SetVariable sv_norm_alpha_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      -
      967  Button b_norm_alpha_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_alpha_check,title="check"
      -
      968  Button b_norm_alpha_check, help={"show a graph of the normalization function"}
      -
      969  Button b_norm_alpha_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_alpha_preview,title="preview"
      -
      970  Button b_norm_alpha_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      -
      971 
      -
      972  GroupBox gb_norm_phi, title="normalize phi"
      -
      973  CheckBox cb_norm_phi_enable, size={50,14}, title="enable"
      -
      974  CheckBox cb_norm_phi_enable,variable= root:packages:pearl_anglescan_panel:norm_phi_enable
      -
      975  CheckBox cb_norm_phi_enable, help={"enable normalization of the phi distribution to reduce the effect of wobble"}
      -
      976  SetVariable sv_norm_phi_range, size={118,16}, bodyWidth=60, title="theta range"
      -
      977  SetVariable sv_norm_phi_range, limits={0,90,1}, value= root:packages:pearl_anglescan_panel:norm_phi_thetarange
      -
      978  SetVariable sv_norm_phi_range, help={"theta range (from normal) to factor into the normalization function"}
      -
      979  Button b_norm_phi_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_phi_check, title="check"
      -
      980  Button b_norm_phi_check, help={"show a graph of the normalization function"}
      -
      981  Button b_norm_phi_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_phi_preview, title="preview"
      -
      982  Button b_norm_phi_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      -
      983 
      -
      984  GroupBox gb_norm_theta, title="normalize theta"
      -
      985  CheckBox cb_norm_theta_enable, size={50,14},title="enable"
      -
      986  CheckBox cb_norm_theta_enable, variable= root:packages:pearl_anglescan_panel:norm_theta_enable
      -
      987  CheckBox cb_norm_theta_enable, help={"enable normalization of the theta distribution (integrated over phi)"}
      -
      988  PopupMenu pm_norm_theta_domain, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_theta_domain, title="domain"
      -
      989  PopupMenu pm_norm_theta_domain, mode=5, popvalue="loess", value= #"\"global;scans;\""
      -
      990  PopupMenu pm_norm_theta_domain, help={"smoothing domain: global or individual scans. use global unless there is a stronga or irregular phi variation."}
      -
      991  PopupMenu pm_norm_theta_mode, size={138,21},bodyWidth=100,proc=PearlAnglescanPanel#pmp_norm_theta_mode,title="method"
      -
      992  PopupMenu pm_norm_theta_mode,mode=5,popvalue="loess",value= #"\"none;binomial;boxcar;polynomial;loess;\""
      -
      993  PopupMenu pm_norm_theta_mode, help={"theta normalization method. recommended: loess"}
      -
      994  SetVariable sv_norm_theta_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      -
      995  SetVariable sv_norm_theta_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_theta_smoothing
      -
      996  SetVariable sv_norm_theta_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      -
      997  Button b_norm_theta_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_theta_check, title="check"
      -
      998  Button b_norm_theta_check, help={"show a graph of the normalization function"}
      -
      999  Button b_norm_theta_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_theta_preview, title="preview"
      -
      1000  Button b_norm_theta_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      -
      1001 
      -
      1002  GroupBox gb_norm_thetaphi, size={272,97},title="normalize (theta,phi)"
      -
      1003  CheckBox cb_norm_thetaphi_enable, size={50,14},title="enable"
      -
      1004  CheckBox cb_norm_thetaphi_enable, variable= root:packages:pearl_anglescan_panel:norm_thetaphi_enable
      -
      1005  CheckBox cb_norm_thetaphi_enable, help={"enable normalization of the (theta, phi) distribution."}
      -
      1006  PopupMenu pm_norm_thetaphi_mode, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_thetaphi_mode,title="method"
      -
      1007  PopupMenu pm_norm_thetaphi_mode, mode=5, popvalue="loess", value= #"\"none;none;none;none;loess;\""
      -
      1008  PopupMenu pm_norm_thetaphi_mode, help={"theta normalization method. recommended: loess"}
      -
      1009  SetVariable sv_norm_thetaphi_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      -
      1010  SetVariable sv_norm_thetaphi_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_thetaphi_smoothing
      -
      1011  SetVariable sv_norm_thetaphi_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      -
      1012  Button b_norm_thetaphi_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_thetaphi_check, title="check"
      -
      1013  Button b_norm_thetaphi_check, help={"show a graph of the normalization function"}
      -
      1014  Button b_norm_thetaphi_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_thetaphi_preview, title="preview"
      -
      1015  Button b_norm_thetaphi_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      -
      1016 
      -
      1017  GroupBox gb_output, title="output"
      -
      1018  SetVariable sv_output_folding, size={95,16}, bodyWidth=60, title="folding"
      -
      1019  SetVariable sv_output_folding, limits={1,20,1}, value= root:packages:pearl_anglescan_panel:output_folding
      -
      1020  SetVariable sv_output_folding, help={"n-fold rotational average. 1=no averaging."}
      -
      1021  SetVariable sv_output_horizon, size={98,16}, bodyWidth=60, title="horizon"
      -
      1022  SetVariable sv_output_horizon, limits={1,90,1}, value= root:packages:pearl_anglescan_panel:output_horizon
      -
      1023  SetVariable sv_output_horizon, help={"highest theta to display"}
      -
      1024  PopupMenu pm_graph_projection, size={149,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_projection, title="projection"
      -
      1025  PopupMenu pm_graph_projection, mode=2, popvalue="stereographic", value= #"\"equidistant;stereographic;equal area;gnomonic;orthographic;\""
      -
      1026  PopupMenu pm_graph_projection, help={"projection (theta mapping) mode"}
      -
      1027  PopupMenu pm_graph_mode, size={129,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_mode,title="mode"
      -
      1028  PopupMenu pm_graph_mode, mode=2, popvalue="dots", value= #"\"none;dots;none;image;\""
      -
      1029  PopupMenu pm_graph_mode, help={"graph type: dots = coloured dots on circles; image = interpolated matrix"}
      -
      1030  Button b_output_calc, size={80,20}, proc=PearlAnglescanPanel#bp_output_calc, title="calc + display"
      -
      1031  Button b_output_calc, help={"execute data processing with the enabled filters and display the diffractogram."}
      -
      1032  Button b_output_duplicate, size={80,20}, proc=PearlAnglescanPanel#bp_output_duplicate, title="duplicate ..."
      -
      1033  Button b_output_duplicate, help={"copy the result to an arbitrary data folder."}
      -
      1034  Button b_output_itx, size={80,20}, proc=PearlAnglescanPanel#bp_output_itx, title="save ITX ..."
      -
      1035  Button b_output_itx, help={"save the result to an igor text file (itx)."}
      -
      1036  Button b_output_etpi, size={80,20}, proc=PearlAnglescanPanel#bp_output_etpi, title="save ETPI ..."
      -
      1037  Button b_output_etpi, help={"save the result to a pmsco angle scan file (etpi)."}
      -
      1038 
      -
      1039  GroupBox gb_graph, title="graph"
      -
      1040  PopupMenu pm_graph_colortable, size={152,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_colortable, title="color table"
      -
      1041  PopupMenu pm_graph_colortable, mode=0, value= #"\"*COLORTABLEPOPNONAMES*\""
      -
      1042  PopupMenu pm_graph_colortable, help={"color table to use in pseudocolor graphs."}
      -
      1043  SetVariable sv_graph_contrast, size={119,16}, bodyWidth=60, title="contrast (%)"
      -
      1044  SetVariable sv_graph_contrast, limits={0,25,1}, value= root:packages:pearl_anglescan_panel:graph_contrast
      -
      1045  SetVariable sv_graph_contrast, help={"contrast value (percentile)."}
      -
      1046  Button b_graph_update, size={80,20}, proc=PearlAnglescanPanel#bp_graph_update, title="update"
      -
      1047  Button b_graph_update, help={"update the existing graph."}
      -
      1048  Button b_graph_png, size={80,20}, proc=PearlAnglescanPanel#bp_graph_png, title="save PNG ..."
      -
      1049  Button b_graph_png, help={"save the graph in png format."}
      -
      1050 
      -
      1051  arrange_controls()
      -
      1052  update_menus()
      -
      1053 end
      -
      1054 
      -
      1055 static function arrange_controls()
      -
      1056  dfref df = $(package_path)
      -
      1057  svar /sdfr=df panel_name
      -
      1058 
      -
      1059  variable gb_space = 2
      -
      1060  variable gb_internal_top = 16
      -
      1061  variable gb_internal_bot = 4
      -
      1062  variable line_space = 22
      -
      1063 
      -
      1064  variable cb_adj = 2
      -
      1065  variable sv_adj = 2
      -
      1066  variable pm_adj = 0
      -
      1067  variable b_adj = 0
      -
      1068  variable tb_adj = 0
      -
      1069 
      -
      1070  variable gb_top = 4
      -
      1071  variable gb_ht = 0
      -
      1072 
      -
      1073  // ht = line + 30
      -
      1074  // gb = gb + ht + 2
      -
      1075  // cb = gb + 18
      -
      1076  // pm = gb + 38
      -
      1077  // line += 26
      -
      1078  // sv = line + 2
      -
      1079 
      -
      1080  GroupBox gb_source,pos={4,gb_top}
      -
      1081  gb_ht = gb_internal_top
      -
      1082  Button b_source_select,pos={17, gb_top + gb_ht + b_adj},size={50,20}
      -
      1083  Button b_source_update, pos={67, gb_top + gb_ht + b_adj},size={50,20}
      -
      1084  gb_ht += line_space
      -
      1085  TitleBox tb_source_path,pos={18, gb_top + gb_ht + tb_adj},size={240,21}
      -
      1086  gb_ht += line_space
      -
      1087  gb_ht += gb_internal_bot
      -
      1088  GroupBox gb_source, size={272,gb_ht}
      -
      1089 
      -
      1090  gb_top += gb_ht + gb_space
      -
      1091  GroupBox gb_offsets,pos={4,gb_top}
      -
      1092  gb_ht = gb_internal_top
      -
      1093  SetVariable sv_theta_offset,pos={46, gb_top + gb_ht + sv_adj},size={88,16}
      -
      1094  Button b_save_prefs,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1095  gb_ht += line_space
      -
      1096  SetVariable sv_tilt_offset,pos={60, gb_top + gb_ht + sv_adj},size={74,16}
      -
      1097  Button b_load_prefs,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1098  gb_ht += line_space
      -
      1099  SetVariable sv_phi_offset,pos={56, gb_top + gb_ht + sv_adj},size={78,16}
      -
      1100  gb_ht += line_space
      -
      1101  SetVariable sv_alpha_offset,pos={44, gb_top + gb_ht + sv_adj},size={90,16}
      -
      1102  gb_ht += line_space
      -
      1103  gb_ht += gb_internal_bot
      -
      1104  GroupBox gb_offsets, size={272,gb_ht}
      -
      1105 
      -
      1106  gb_top += gb_ht + gb_space
      -
      1107  GroupBox gb_crop,pos={4,gb_top}
      -
      1108  gb_ht = gb_internal_top
      -
      1109  CheckBox cb_crop_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      -
      1110  gb_ht += line_space
      -
      1111  SetVariable sv_crop_alpha, pos={44, gb_top + gb_ht + sv_adj}, size={90,16}
      -
      1112  Button b_crop_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1113  gb_ht += line_space
      -
      1114  SetVariable sv_crop_theta, pos={44, gb_top + gb_ht + sv_adj}, size={90,16}
      -
      1115  gb_ht += line_space
      -
      1116  SetVariable sv_crop_rows, pos={44, gb_top + gb_ht + sv_adj}, size={190,16}
      -
      1117  gb_ht += line_space
      -
      1118  gb_ht += gb_internal_bot
      -
      1119  GroupBox gb_crop, size={272,gb_ht}
      -
      1120 
      -
      1121  gb_top += gb_ht + gb_space
      -
      1122  GroupBox gb_norm_alpha,pos={4,gb_top}
      -
      1123  gb_ht = gb_internal_top
      -
      1124  CheckBox cb_norm_alpha_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      -
      1125  gb_ht += line_space
      -
      1126  PopupMenu pm_norm_alpha_mode,pos={36, gb_top + gb_ht + pm_adj},size={138,21}
      -
      1127  Button b_norm_alpha_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1128  gb_ht += line_space
      -
      1129  SetVariable sv_norm_alpha_smoothing,pos={22, gb_top + gb_ht + sv_adj},size={112,16}
      -
      1130  Button b_norm_alpha_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1131  gb_ht += line_space
      -
      1132  gb_ht += gb_internal_bot
      -
      1133  GroupBox gb_norm_alpha, size={272,gb_ht}
      -
      1134 
      -
      1135  gb_top += gb_ht + gb_space
      -
      1136  GroupBox gb_norm_phi,pos={4,gb_top}
      -
      1137  gb_ht = gb_internal_top
      -
      1138  CheckBox cb_norm_phi_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      -
      1139  Button b_norm_phi_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1140  gb_ht += line_space
      -
      1141  SetVariable sv_norm_phi_range,pos={15, gb_top + gb_ht + sv_adj},size={118,16}
      -
      1142  Button b_norm_phi_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1143  gb_ht += line_space
      -
      1144  gb_ht += gb_internal_bot
      -
      1145  GroupBox gb_norm_phi, size={272,gb_ht}
      -
      1146 
      -
      1147  gb_top += gb_ht + gb_space
      -
      1148  GroupBox gb_norm_theta,pos={4,gb_top}
      -
      1149  gb_ht = gb_internal_top
      -
      1150  CheckBox cb_norm_theta_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      -
      1151  gb_ht += line_space
      -
      1152  PopupMenu pm_norm_theta_domain, pos={35, gb_top + gb_ht + pm_adj}, size={138,21}
      -
      1153  Button b_norm_theta_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1154  gb_ht += line_space
      -
      1155  PopupMenu pm_norm_theta_mode,pos={35, gb_top + gb_ht + pm_adj},size={138,21}
      -
      1156  Button b_norm_theta_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1157  gb_ht += line_space
      -
      1158  SetVariable sv_norm_theta_smoothing,pos={21, gb_top + gb_ht + sv_adj},size={112,16}
      -
      1159  gb_ht += line_space
      -
      1160  gb_ht += gb_internal_bot
      -
      1161  GroupBox gb_norm_theta, size={272,gb_ht}
      -
      1162 
      -
      1163  gb_top += gb_ht + gb_space
      -
      1164  GroupBox gb_norm_thetaphi,pos={4,gb_top}
      -
      1165  gb_ht = gb_internal_top
      -
      1166  CheckBox cb_norm_thetaphi_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      -
      1167  gb_ht += line_space
      -
      1168  PopupMenu pm_norm_thetaphi_mode,pos={35, gb_top + gb_ht + pm_adj},size={138,21}
      -
      1169  Button b_norm_thetaphi_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1170  gb_ht += line_space
      -
      1171  SetVariable sv_norm_thetaphi_smoothing,pos={21, gb_top + gb_ht + sv_adj},size={112,16}
      -
      1172  Button b_norm_thetaphi_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1173  gb_ht += line_space
      -
      1174  gb_ht += gb_internal_bot
      -
      1175  GroupBox gb_norm_thetaphi, size={272,gb_ht}
      -
      1176 
      -
      1177  gb_top += gb_ht + gb_space
      -
      1178  GroupBox gb_output,pos={4,gb_top}
      -
      1179  gb_ht = gb_internal_top
      -
      1180  SetVariable sv_output_folding,pos={38, gb_top + gb_ht + sv_adj},size={95,16}
      -
      1181  Button b_output_calc,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1182  gb_ht += line_space
      -
      1183  SetVariable sv_output_horizon,pos={35, gb_top + gb_ht + sv_adj},size={98,16}
      -
      1184  Button b_output_duplicate,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1185  gb_ht += line_space
      -
      1186  PopupMenu pm_graph_projection,pos={24, gb_top + gb_ht + pm_adj},size={149,21}
      -
      1187  Button b_output_itx,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1188  gb_ht += line_space
      -
      1189  PopupMenu pm_graph_mode,pos={44, gb_top + gb_ht + pm_adj},size={129,21}
      -
      1190  Button b_output_etpi,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1191  gb_ht += line_space
      -
      1192  gb_ht += gb_internal_bot
      -
      1193  GroupBox gb_output, size={272,gb_ht}
      -
      1194 
      -
      1195  gb_top += gb_ht + gb_space
      -
      1196  GroupBox gb_graph,pos={4,gb_top}
      -
      1197  gb_ht = gb_internal_top
      -
      1198  PopupMenu pm_graph_colortable,pos={21, gb_top + gb_ht + pm_adj},size={152,21}
      -
      1199  Button b_graph_update,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1200  gb_ht += line_space
      -
      1201  SetVariable sv_graph_contrast,pos={14, gb_top + gb_ht + sv_adj},size={119,16}
      -
      1202  Button b_graph_png,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      -
      1203  gb_ht += line_space
      -
      1204  gb_ht += gb_internal_bot
      -
      1205  GroupBox gb_graph, size={272,gb_ht}
      -
      1206 
      -
      1207  gb_top += gb_ht + gb_space
      -
      1208  //MoveWindow 200, 100, 479, 100 + gb_top
      -
      1209 end
      -
      1210 
      -
      1213 static function update_menus()
      -
      1214  dfref df = $(package_path)
      -
      1215  svar /sdfr=df panel_name
      -
      1216  if (wintype(panel_name) == 7)
      -
      1217  variable m
      -
      1218  nvar /sdfr=df norm_alpha_mode
      -
      1219  m = norm_alpha_mode + 1
      -
      1220  PopupMenu pm_norm_alpha_mode win=$panel_name, mode=m
      -
      1221  nvar /sdfr=df norm_theta_domain
      -
      1222  m = norm_theta_domain + 1
      -
      1223  PopupMenu pm_norm_theta_domain win=$panel_name, mode=m
      -
      1224  nvar /sdfr=df norm_theta_mode
      -
      1225  m = norm_theta_mode + 1
      -
      1226  PopupMenu pm_norm_theta_mode win=$panel_name, mode=m
      -
      1227  nvar /sdfr=df norm_thetaphi_mode
      -
      1228  m = norm_thetaphi_mode + 1
      -
      1229  PopupMenu pm_norm_thetaphi_mode win=$panel_name, mode=m
      -
      1230  nvar /sdfr=df graph_mode
      -
      1231  m = graph_mode + 1
      -
      1232  PopupMenu pm_graph_mode win=$panel_name, mode=m
      -
      1233  nvar /sdfr=df graph_projection
      -
      1234  m = graph_projection + 1
      -
      1235  PopupMenu pm_graph_projection win=$panel_name, mode=m
      -
      1236  svar /sdfr=df graph_colortable
      -
      1237  m = 1 + WhichListItem(graph_colortable, CTabList())
      -
      1238  PopupMenu pm_graph_colortable win=$panel_name, mode=m
      -
      1239  endif
      -
      1240 end
      -
      1241 
      -
      1242 static function bp_load_prefs(ba) : ButtonControl
      -
      1243  STRUCT WMButtonAction &ba
      -
      1244 
      -
      1245  switch( ba.eventCode )
      -
      1246  case 2: // mouse up
      -
      1247  load_prefs()
      -
      1248  break
      -
      1249  case -1: // control being killed
      -
      1250  break
      -
      1251  endswitch
      -
      1252 
      -
      1253  return 0
      -
      1254 End
      -
      1255 
      -
      1256 static function bp_save_prefs(ba) : ButtonControl
      -
      1257  STRUCT WMButtonAction &ba
      -
      1258 
      -
      1259  switch( ba.eventCode )
      -
      1260  case 2: // mouse up
      -
      1261  save_prefs()
      -
      1262  break
      -
      1263  case -1: // control being killed
      -
      1264  break
      -
      1265  endswitch
      -
      1266 
      -
      1267  return 0
      -
      1268 End
      -
      1269 
      -
      1270 static function bp_source_select(ba) : ButtonControl
      -
      1271  STRUCT WMButtonAction &ba
      -
      1272 
      -
      1273  switch( ba.eventCode )
      -
      1274  case 2: // mouse up
      -
      1275  dfref dfBefore = GetDataFolderDFR()
      -
      1276  Execute /q/z "CreateBrowser prompt=\"Select 2D holo scan wave\", showWaves=1, showVars=0, showStrs=0"
      -
      1277  dfref dfAfter = GetDataFolderDFR()
      -
      1278  SetDataFolder dfBefore
      -
      1279 
      -
      1280  SVAR list = S_BrowserList
      -
      1281  NVAR flag = V_Flag
      -
      1282  if ((flag != 0) && (ItemsInList(list) >= 1))
      -
      1283  string wname = StringFromList(0, list)
      -
      1284  wave w = $wname
      -
      1285  asp_import_raw(w)
      -
      1286  endif
      -
      1287 
      -
      1288  break
      -
      1289  case -1: // control being killed
      -
      1290  break
      -
      1291  endswitch
      -
      1292 
      -
      1293  return 0
      -
      1294 End
      -
      1295 
      -
      1296 static function bp_source_update(ba) : ButtonControl
      -
      1297  STRUCT WMButtonAction &ba
      -
      1298 
      -
      1299  switch( ba.eventCode )
      -
      1300  case 2: // mouse up
      -
      1301  dfref packdf = $package_path
      -
      1302  svar /sdfr=packdf source_path
      -
      1303  wave /z w = $source_path
      -
      1304  if (waveexists(w))
      -
      1305  asp_import_raw(w)
      -
      1306  else
      -
      1307  DoAlert 0, "can't find source data."
      -
      1308  endif
      -
      1309  break
      -
      1310  case -1: // control being killed
      -
      1311  break
      -
      1312  endswitch
      -
      1313 
      -
      1314  return 0
      -
      1315 End
      -
      1316 
      -
      1317 static function bp_norm_alpha_check(ba) : ButtonControl
      -
      1318  STRUCT WMButtonAction &ba
      -
      1319 
      -
      1320  switch( ba.eventCode )
      -
      1321  case 2: // mouse up
      -
      1322  check_norm_alpha()
      -
      1323  break
      -
      1324  case -1: // control being killed
      -
      1325  break
      -
      1326  endswitch
      -
      1327 
      -
      1328  return 0
      -
      1329 End
      -
      1330 
      -
      1331 static function bp_norm_theta_check(ba) : ButtonControl
      -
      1332  STRUCT WMButtonAction &ba
      -
      1333 
      -
      1334  switch( ba.eventCode )
      -
      1335  case 2: // mouse up
      -
      1336  check_norm_theta()
      -
      1337  break
      -
      1338  case -1: // control being killed
      -
      1339  break
      -
      1340  endswitch
      -
      1341 
      -
      1342  return 0
      -
      1343 End
      -
      1344 
      -
      1345 static function bp_norm_phi_check(ba) : ButtonControl
      -
      1346  STRUCT WMButtonAction &ba
      -
      1347 
      -
      1348  switch( ba.eventCode )
      -
      1349  case 2: // mouse up
      -
      1350  check_norm_phi()
      -
      1351  break
      -
      1352  case -1: // control being killed
      -
      1353  break
      -
      1354  endswitch
      -
      1355 
      -
      1356  return 0
      -
      1357 End
      -
      1358 
      -
      1359 static function bp_norm_thetaphi_check(ba) : ButtonControl
      -
      1360  STRUCT WMButtonAction &ba
      -
      1361 
      -
      1362  switch( ba.eventCode )
      -
      1363  case 2: // mouse up
      -
      1364  check_norm_thetaphi()
      -
      1365  break
      -
      1366  case -1: // control being killed
      -
      1367  break
      -
      1368  endswitch
      -
      1369 
      -
      1370  return 0
      -
      1371 End
      -
      1372 
      -
      1373 static function bp_crop_preview(ba) : ButtonControl
      -
      1374  STRUCT WMButtonAction &ba
      -
      1375 
      -
      1376  switch( ba.eventCode )
      -
      1377  case 2: // mouse up
      -
      1378  preview_crop()
      -
      1379  break
      -
      1380  case -1: // control being killed
      -
      1381  break
      -
      1382  endswitch
      -
      1383 
      -
      1384  return 0
      -
      1385 End
      -
      1386 
      -
      1387 static function bp_norm_alpha_preview(ba) : ButtonControl
      -
      1388  STRUCT WMButtonAction &ba
      -
      1389 
      -
      1390  switch( ba.eventCode )
      -
      1391  case 2: // mouse up
      -
      1392  preview_norm_alpha()
      -
      1393  break
      -
      1394  case -1: // control being killed
      -
      1395  break
      -
      1396  endswitch
      -
      1397 
      -
      1398  return 0
      -
      1399 End
      -
      1400 
      -
      1401 static function bp_norm_phi_preview(ba) : ButtonControl
      -
      1402  STRUCT WMButtonAction &ba
      -
      1403 
      -
      1404  switch( ba.eventCode )
      -
      1405  case 2: // mouse up
      -
      1406  preview_norm_phi()
      -
      1407  break
      -
      1408  case -1: // control being killed
      -
      1409  break
      -
      1410  endswitch
      -
      1411 
      -
      1412  return 0
      -
      1413 End
      -
      1414 
      -
      1415 static function bp_norm_theta_preview(ba) : ButtonControl
      -
      1416  STRUCT WMButtonAction &ba
      -
      1417 
      -
      1418  switch( ba.eventCode )
      -
      1419  case 2: // mouse up
      -
      1420  preview_norm_theta()
      -
      1421  break
      -
      1422  case -1: // control being killed
      -
      1423  break
      -
      1424  endswitch
      -
      1425 
      -
      1426  return 0
      -
      1427 End
      -
      1428 
      -
      1429 static function bp_norm_thetaphi_preview(ba) : ButtonControl
      -
      1430  STRUCT WMButtonAction &ba
      -
      1431 
      -
      1432  switch( ba.eventCode )
      -
      1433  case 2: // mouse up
      -
      1434  preview_norm_thetaphi()
      -
      1435  break
      -
      1436  case -1: // control being killed
      -
      1437  break
      -
      1438  endswitch
      -
      1439 
      -
      1440  return 0
      -
      1441 End
      -
      1442 
      -
      1443 static function bp_output_calc(ba) : ButtonControl
      -
      1444  STRUCT WMButtonAction &ba
      -
      1445 
      -
      1446  switch( ba.eventCode )
      -
      1447  case 2: // mouse up
      -
      1448  asp_calculate_output()
      -
      1449  asp_display_output()
      -
      1450  break
      -
      1451  case -1: // control being killed
      -
      1452  break
      -
      1453  endswitch
      -
      1454 
      -
      1455  return 0
      -
      1456 End
      -
      1457 
      -
      1458 static function bp_output_duplicate(ba) : ButtonControl
      -
      1459  STRUCT WMButtonAction &ba
      -
      1460 
      -
      1461  switch( ba.eventCode )
      -
      1462  case 2: // mouse up
      -
      1463  string dest_folder
      -
      1464  variable do_graph = 1
      -
      1465  prompt dest_folder, "destination folder name (relative to data source)"
      -
      1466  prompt do_graph, "duplicate graph (yes = 1, no = 0)"
      -
      1467  doprompt "duplicate", dest_folder, do_graph
      -
      1468  if (!v_flag)
      -
      1469  asp_duplicate_output(dest_folder, do_graph=do_graph)
      -
      1470  endif
      -
      1471  break
      -
      1472  case -1: // control being killed
      -
      1473  break
      -
      1474  endswitch
      -
      1475 
      -
      1476  return 0
      -
      1477 End
      -
      1478 
      -
      1479 static function bp_output_etpi(ba) : ButtonControl
      -
      1480  STRUCT WMButtonAction &ba
      -
      1481 
      -
      1482  switch( ba.eventCode )
      -
      1483  case 2: // mouse up
      -
      1484  dfref df = $(package_path)
      -
      1485  wave /sdfr=df process_data
      -
      1486  variable ekin
      -
      1487  ekin = NumberByKey("KineticEnergy", note(process_data), "=", "\r")
      -
      1488  prompt ekin, "kinetic energy"
      -
      1489  doprompt "save etpi", ekin
      -
      1490  if (!v_flag)
      -
      1491  asp_save_output_etpi(ekin)
      -
      1492  endif
      -
      1493  break
      -
      1494  case -1: // control being killed
      -
      1495  break
      -
      1496  endswitch
      -
      1497 
      -
      1498  return 0
      -
      1499 End
      -
      1500 
      -
      1501 static function bp_output_itx(ba) : ButtonControl
      -
      1502  STRUCT WMButtonAction &ba
      -
      1503 
      -
      1504  switch( ba.eventCode )
      -
      1505  case 2: // mouse up
      -
      1506  asp_save_output_itx()
      -
      1507  break
      -
      1508  case -1: // control being killed
      -
      1509  break
      -
      1510  endswitch
      -
      1511 
      -
      1512  return 0
      -
      1513 End
      -
      1514 
      -
      1515 static function bp_graph_update(ba) : ButtonControl
      -
      1516  STRUCT WMButtonAction &ba
      -
      1517 
      -
      1518  switch( ba.eventCode )
      -
      1519  case 2: // mouse up
      -
      1520  asp_update_graph()
      -
      1521  break
      -
      1522  case -1: // control being killed
      -
      1523  break
      -
      1524  endswitch
      -
      1525 
      -
      1526  return 0
      -
      1527 End
      -
      1528 
      -
      1529 static function bp_graph_png(ba) : ButtonControl
      -
      1530  STRUCT WMButtonAction &ba
      -
      1531 
      -
      1532  switch( ba.eventCode )
      -
      1533  case 2: // mouse up
      -
      1534  dfref df = $(package_path)
      -
      1535  svar /sdfr=df source_path
      -
      1536  svar /sdfr=df output_graphname
      -
      1537  if (WinType(output_graphname) == 1)
      -
      1538  SavePICT /WIN=$output_graphname /E=-5 /B=144 /TRAN=0
      -
      1539  endif
      -
      1540  break
      -
      1541  case -1: // control being killed
      -
      1542  break
      -
      1543  endswitch
      -
      1544 
      -
      1545  return 0
      -
      1546 End
      -
      1547 
      -
      1548 static function pmp_norm_alpha_mode(pa) : PopupMenuControl
      -
      1549  STRUCT WMPopupAction &pa
      -
      1550 
      -
      1551  switch( pa.eventCode )
      -
      1552  case 2: // mouse up
      -
      1553  dfref df = $(package_path)
      -
      1554  nvar /sdfr=df norm_alpha_mode
      -
      1555  norm_alpha_mode = pa.popNum - 1
      -
      1556  break
      -
      1557  case -1: // control being killed
      -
      1558  break
      -
      1559  endswitch
      -
      1560 
      -
      1561  return 0
      -
      1562 End
      -
      1563 
      -
      1564 static function pmp_norm_theta_domain(pa) : PopupMenuControl
      -
      1565  STRUCT WMPopupAction &pa
      -
      1566 
      -
      1567  switch( pa.eventCode )
      -
      1568  case 2: // mouse up
      -
      1569  dfref df = $(package_path)
      -
      1570  nvar /sdfr=df norm_theta_domain
      -
      1571  norm_theta_domain = pa.popNum - 1
      -
      1572  break
      -
      1573  case -1: // control being killed
      -
      1574  break
      -
      1575  endswitch
      -
      1576 
      -
      1577  return 0
      -
      1578 End
      -
      1579 
      -
      1580 static function pmp_norm_theta_mode(pa) : PopupMenuControl
      -
      1581  STRUCT WMPopupAction &pa
      -
      1582 
      -
      1583  switch( pa.eventCode )
      -
      1584  case 2: // mouse up
      -
      1585  dfref df = $(package_path)
      -
      1586  nvar /sdfr=df norm_theta_mode
      -
      1587  norm_theta_mode = pa.popNum - 1
      -
      1588  break
      -
      1589  case -1: // control being killed
      -
      1590  break
      -
      1591  endswitch
      -
      1592 
      -
      1593  return 0
      -
      1594 End
      -
      1595 
      -
      1596 static function pmp_norm_thetaphi_mode(pa) : PopupMenuControl
      -
      1597  STRUCT WMPopupAction &pa
      -
      1598 
      -
      1599  switch( pa.eventCode )
      -
      1600  case 2: // mouse up
      -
      1601  dfref df = $(package_path)
      -
      1602  nvar /sdfr=df norm_thetaphi_mode
      -
      1603  norm_thetaphi_mode = pa.popNum - 1
      -
      1604  break
      -
      1605  case -1: // control being killed
      -
      1606  break
      -
      1607  endswitch
      -
      1608 
      -
      1609  return 0
      -
      1610 End
      -
      1611 
      -
      1612 static function pmp_graph_mode(pa) : PopupMenuControl
      -
      1613  STRUCT WMPopupAction &pa
      -
      1614 
      -
      1615  switch( pa.eventCode )
      -
      1616  case 2: // mouse up
      -
      1617  dfref df = $(package_path)
      -
      1618  nvar /sdfr=df graph_mode
      -
      1619  graph_mode = pa.popNum - 1
      -
      1620  break
      -
      1621  case -1: // control being killed
      -
      1622  break
      -
      1623  endswitch
      -
      1624 
      -
      1625  return 0
      -
      1626 End
      -
      1627 
      -
      1628 static function pmp_graph_projection(pa) : PopupMenuControl
      -
      1629  STRUCT WMPopupAction &pa
      -
      1630 
      -
      1631  switch( pa.eventCode )
      -
      1632  case 2: // mouse up
      -
      1633  dfref df = $(package_path)
      -
      1634  nvar /sdfr=df graph_projection
      -
      1635  graph_projection = pa.popNum - 1
      -
      1636  break
      -
      1637  case -1: // control being killed
      -
      1638  break
      -
      1639  endswitch
      -
      1640 
      -
      1641  return 0
      -
      1642 End
      -
      1643 
      -
      1644 static function pmp_graph_colortable(pa) : PopupMenuControl
      -
      1645  STRUCT WMPopupAction &pa
      -
      1646 
      -
      1647  switch( pa.eventCode )
      -
      1648  case 2: // mouse up
      -
      1649  dfref df = $(package_path)
      -
      1650  svar /sdfr=df graph_colortable
      -
      1651  graph_colortable = StringFromList(pa.popNum - 1, CTabList())
      -
      1652  asp_update_graph()
      -
      1653  break
      -
      1654  case -1: // control being killed
      -
      1655  break
      -
      1656  endswitch
      -
      1657 
      -
      1658  return 0
      -
      1659 End
      +Go to the documentation of this file.
      1#pragma TextEncoding = "UTF-8"
      +
      2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
      +
      3#pragma version = 1.8
      +
      4#pragma IgorVersion = 6.2
      +
      5#pragma ModuleName = PearlAnglescanPanel
      +
      6#include "pearl-anglescan-process"
      +
      7#include "pearl-pmsco-import"
      +
      8#include "pearl-scienta-preprocess"
      +
      9#include "pearl-area-display"
      +
      10
      +
      11// copyright (c) 2018-20 Paul Scherrer Institut
      +
      12//
      +
      13// Licensed under the Apache License, Version 2.0 (the "License");
      +
      14// you may not use this file except in compliance with the License.
      +
      15// You may obtain a copy of the License at
      +
      16// http:///www.apache.org/licenses/LICENSE-2.0
      +
      17//
      +
      18// Please acknowledge the use of this code.
      +
      19
      +
      41
      +
      46
      +
      48static strconstant package_name = "pearl_anglescan_panel"
      +
      50static strconstant package_path = "root:packages:pearl_anglescan_panel:"
      +
      51
      +
      +
      53static function AfterCompiledHook()
      +
      54
      +
      55 dfref savedf = GetDataFolderDFR()
      +
      56 variable do_init = 1
      +
      57 if (DataFolderExists(package_path))
      +
      58 setdatafolder $(package_path)
      +
      59 nvar /z init_done
      +
      60 if (nvar_exists(init_done))
      +
      61 if (init_done)
      +
      62 do_init = 0
      +
      63 endif
      +
      64 endif
      +
      65 endif
      +
      66
      +
      67 if (do_init)
      +
      68 init_package()
      +
      69 load_prefs()
      +
      70 setdatafolder $(package_path)
      +
      71 variable /g init_done = 1
      +
      72 endif
      +
      73
      +
      74 setdatafolder savedf
      +
      75 return 0
      +
      76end
      +
      +
      77
      +
      +
      78static function init_package()
      +
      79 dfref savedf = getdatafolderdfr()
      +
      80 setdatafolder root:
      +
      81 newdatafolder /o/s packages
      +
      82 newdatafolder /o/s $package_name
      +
      83
      +
      84 // configuration (persistent)
      +
      85 string /g graphname = "graph_anglescan_panel"
      +
      86 string /g prefs_objects = "prefs_objects;theta_offset;tilt_offset;phi_offset;alpha_offset;crop_enable;crop_alpha;crop_theta;"
      +
      87 prefs_objects += "norm_alpha_enable;norm_alpha_mode;norm_alpha_smoothing;norm_phi_enable;norm_phi_mode;norm_phi_thetarange;"
      +
      88 prefs_objects += "norm_theta_enable;norm_theta_mode;norm_theta_domain;norm_theta_smoothing;norm_thetaphi_enable;norm_thetaphi_mode;norm_thetaphi_smoothing;"
      +
      89 prefs_objects += "output_folding;output_horizon;graph_mode;graph_projection;graph_colortable;graph_contrast;"
      +
      90
      +
      91 // recently used (persistent)
      +
      92 variable /g theta_offset = 0
      +
      93 variable /g tilt_offset = 0
      +
      94 variable /g phi_offset = 0
      +
      95 variable /g alpha_offset = 0
      +
      96 variable /g crop_enable = 0
      +
      97 variable /g crop_alpha = 25
      +
      98 variable /g crop_theta = 88
      +
      99 string /g crop_rows = ""
      +
      100 variable /g norm_alpha_enable = 0
      +
      101 variable /g norm_alpha_mode = 4
      +
      102 variable /g norm_alpha_smoothing = 0.25
      +
      103 variable /g norm_theta_enable = 0
      +
      104 variable /g norm_theta_mode = 4
      +
      105 variable /g norm_theta_domain = 0
      +
      106 variable /g norm_theta_smoothing = 0.25
      +
      107 variable /g norm_thetaphi_enable = 0
      +
      108 variable /g norm_thetaphi_mode = 4
      +
      109 variable /g norm_thetaphi_smoothing = 0.25
      +
      110 variable /g norm_phi_enable = 0
      +
      111 variable /g norm_phi_mode = 4
      +
      112 variable /g norm_phi_thetarange = 20
      +
      113 string /g output_name = "holo1"
      +
      114 variable /g output_folding = 1
      +
      115 variable /g output_horizon = 88
      +
      116 variable /g graph_mode = 1
      +
      117 variable /g graph_projection = kProjStereo
      +
      118 string /g graph_colortable = "grays"
      +
      119 variable /g graph_contrast = 2
      +
      120
      +
      121 // recently used (volatile)
      +
      122 string /g source_path = ""
      +
      123 string /g export_folderpath = "root:"
      +
      124 variable /g export_format = 1
      +
      125
      +
      126 // administrative data (volatile)
      +
      127 string /g panel_name = ""
      +
      128 string /g preview_graphname = ""
      +
      129 string /g dist_x_graphname = ""
      +
      130 string /g dist_y_graphname = ""
      +
      131 string /g output_graphname = ""
      +
      132
      +
      133 // data (volatile)
      +
      134 make /n=(10,10) /o raw_data, process_data
      +
      135 make /o dist_x, dist_x_smoo
      +
      136 make /o dist_y, dist_y_smoo
      +
      137
      +
      138 setdatafolder savedf
      +
      139end
      +
      +
      140
      +
      +
      145static function save_prefs()
      +
      146 dfref saveDF = GetDataFolderDFR()
      +
      147 dfref df = $(package_path)
      +
      148 svar /sdfr=df prefs_objects
      +
      149
      +
      150 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      +
      151 fullPath += package_name
      +
      152 NewPath/O/C/Q tempPackagePrefsPath, fullPath
      +
      153 fullPath += ":preferences.pxp"
      +
      154
      +
      155 SetDataFolder root:packages
      +
      156 SetDataFolder $package_name
      +
      157 SaveData /O /Q /J=prefs_objects fullPath
      +
      158
      +
      159 KillPath/Z tempPackagePrefsPath
      +
      160
      +
      161 SetDataFolder saveDF
      +
      162end
      +
      +
      163
      +
      +
      171static function load_prefs()
      +
      172 dfref saveDF = GetDataFolderDFR()
      +
      173
      +
      174 variable result = -1
      +
      175 setdatafolder root:
      +
      176 NewDataFolder /O/S packages
      +
      177 NewDataFolder /O/S $package_name
      +
      178 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      +
      179 fullPath += package_name
      +
      180
      +
      181 GetFileFolderInfo /Q /Z fullPath
      +
      182 if (V_Flag == 0) // Disk directory exists?
      +
      183 fullPath += ":preferences.pxp"
      +
      184 GetFileFolderInfo /Q /Z fullPath
      +
      185 if (V_Flag == 0) // Preference file exist?
      +
      186 LoadData /O /R /Q fullPath
      +
      187 result = 0
      +
      188 endif
      +
      189 endif
      +
      190
      +
      191 SetDataFolder saveDF
      +
      192 return result
      +
      193end
      +
      +
      194
      +
      +
      207function asp_import_raw(raw_data)
      +
      208 wave raw_data
      +
      209
      +
      210 dfref saveDF = GetDataFolderDFR()
      +
      211 dfref datadf = GetWavesDataFolderDFR(raw_data)
      +
      212 dfref attrdf = datadf:attr
      +
      213 if (!DataFolderRefStatus(attrdf))
      +
      214 setdatafolder datadf
      +
      215 setdatafolder ::
      +
      216 dfref parentdf = GetDataFolderDFR()
      +
      217 dfref attrdf = parentdf:attr
      +
      218 endif
      +
      219 setdatafolder $(package_path)
      +
      220
      +
      221 // todo : check dimensions and scales
      +
      222
      +
      223 svar source_path
      +
      224 source_path = GetWavesDataFolder(raw_data, 2)
      +
      225
      +
      226 duplicate /o raw_data, raw, process_data
      +
      227
      +
      228 wave /sdfr=attrdf /z ManipulatorTheta
      +
      229 wave /sdfr=attrdf /z ManipulatorTilt
      +
      230 wave /sdfr=attrdf /z ManipulatorPhi
      +
      231 if (WaveExists(ManipulatorTheta) && WaveExists(ManipulatorTilt) && WaveExists(ManipulatorPhi))
      +
      232 duplicate /o attrdf:ManipulatorTheta, raw_theta, process_theta
      +
      233 duplicate /o attrdf:ManipulatorTilt, raw_tilt, process_tilt
      +
      234 duplicate /o attrdf:ManipulatorPhi, raw_phi, process_phi
      +
      235 else
      +
      236 DoAlert 0, "Can't find manipulator angle waves.\rCheck that the attr folder exists, or provide values in the following table."
      +
      237 make /n=(dimsize(raw_data, 1)) /o raw_theta, raw_tilt, raw_phi
      +
      238 make /n=(dimsize(raw_data, 1)) /o process_theta, process_tilt, process_phi
      +
      239 edit /k=1 raw_theta, raw_tilt, raw_phi
      +
      240 endif
      +
      241
      +
      242 make /o /n=(dimsize(raw_data, 0)) dist_x, dist_x_smoo
      +
      243 make /o /n=(dimsize(raw_data, 1)) dist_y, dist_y_smoo
      +
      244
      +
      245 SetDataFolder saveDF
      +
      246end
      +
      +
      247
      +
      +
      252function asp_display_previews()
      +
      253 dfref df = $(package_path)
      +
      254 wave /sdfr=df process_data
      +
      255 svar /sdfr=df preview_graphname
      +
      256
      +
      257 if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      +
      258 ad_update_profiles(process_data)
      +
      259 DoWindow /F $preview_graphname
      +
      260 else
      +
      261 preview_graphname = ad_display_profiles(process_data)
      +
      262 endif
      +
      263
      +
      264 nvar /sdfr=df graph_contrast
      +
      265 svar /sdfr=df graph_colortable
      +
      266 set_contrast(graph_contrast, graph_contrast, graphname=preview_graphname, colortable=graph_colortable)
      +
      267end
      +
      +
      268
      +
      +
      276function asp_display_dist_check(xdist, ydist)
      +
      277 variable xdist, ydist
      +
      278
      +
      279 dfref df = $(package_path)
      +
      280 wave /sdfr=df dist_x
      +
      281 wave /sdfr=df dist_y
      +
      282 wave /sdfr=df dist_x_smoo
      +
      283 wave /sdfr=df dist_y_smoo
      +
      284 svar /sdfr=df dist_x_graphname
      +
      285 svar /sdfr=df dist_y_graphname
      +
      286
      +
      287 if (xdist)
      +
      288 if (strlen(dist_x_graphname) && (wintype(dist_x_graphname) == 1))
      +
      289 DoWindow /F $dist_x_graphname
      +
      290 else
      +
      291 display /k=1 /n=graph_asp_dist_x dist_x, dist_x_smoo
      +
      292 dist_x_graphname = s_name
      +
      293 ModifyGraph /w=$dist_x_graphname mode(dist_x)=2
      +
      294 ModifyGraph /w=$dist_x_graphname lsize(dist_x)=2
      +
      295 ModifyGraph /w=$dist_x_graphname rgb(dist_x)=(0,0,0)
      +
      296 endif
      +
      297 endif
      +
      298
      +
      299 if (ydist)
      +
      300 if (strlen(dist_y_graphname) && (wintype(dist_y_graphname) == 1))
      +
      301 DoWindow /F $dist_y_graphname
      +
      302 else
      +
      303 display /k=1 /n=graph_asp_dist_y dist_y, dist_y_smoo
      +
      304 dist_y_graphname = s_name
      +
      305 ModifyGraph /w=$dist_y_graphname mode(dist_y)=2
      +
      306 ModifyGraph /w=$dist_y_graphname lsize(dist_y)=2
      +
      307 ModifyGraph /w=$dist_y_graphname rgb(dist_y)=(0,0,0)
      +
      308 endif
      +
      309 endif
      +
      310end
      +
      +
      311
      +
      +
      321static function do_init_process(check)
      +
      322 variable check
      +
      323
      +
      324 dfref df = $(package_path)
      +
      325 wave /sdfr=df raw
      +
      326 wave /sdfr=df raw_theta
      +
      327 wave /sdfr=df raw_tilt
      +
      328 wave /sdfr=df raw_phi
      +
      329 nvar /sdfr=df theta_offset
      +
      330 nvar /sdfr=df tilt_offset
      +
      331 nvar /sdfr=df phi_offset
      +
      332 nvar /sdfr=df alpha_offset
      +
      333
      +
      334 duplicate /o raw, df:process_data
      +
      335 duplicate /o raw_theta, df:process_theta
      +
      336 duplicate /o raw_tilt, df:process_tilt
      +
      337 duplicate /o raw_phi, df:process_phi
      +
      338
      +
      339 wave /sdfr=df process_data
      +
      340 wave /sdfr=df process_theta
      +
      341 wave /sdfr=df process_tilt
      +
      342 wave /sdfr=df process_phi
      +
      343
      +
      344 process_theta = raw_theta - theta_offset
      +
      345 process_tilt = raw_tilt - tilt_offset
      +
      346 process_phi = raw_phi - phi_offset
      +
      347 setscale /p x dimoffset(raw, 0) - alpha_offset, dimdelta(raw, 0), waveunits(raw, 0), process_data
      +
      348end
      +
      +
      349
      +
      +
      361static function do_crop(check, [force])
      +
      362 variable check
      +
      363 variable force
      +
      364
      +
      365 if (ParamIsDefault(force))
      +
      366 force = 0
      +
      367 endif
      +
      368
      +
      369 dfref df = $(package_path)
      +
      370 wave /sdfr=df process_data
      +
      371 wave /sdfr=df process_theta
      +
      372 wave /sdfr=df process_tilt
      +
      373 wave /sdfr=df process_phi
      +
      374 nvar /sdfr=df crop_enable
      +
      375 nvar /sdfr=df crop_alpha
      +
      376 nvar /sdfr=df crop_theta
      +
      377 svar /sdfr=df crop_rows
      +
      378
      +
      379 if (force || crop_enable)
      +
      380
      +
      381 if (crop_alpha > abs(dimdelta(process_data, 0)))
      +
      382 crop_strip(process_data, -crop_alpha, +crop_alpha)
      +
      383 endif
      +
      384
      +
      385 if ((crop_theta >= 10) && (crop_theta < 90))
      +
      386 crop_strip_theta(process_data, -0.1, crop_theta + 0.1, process_theta, process_tilt, process_phi)
      +
      387 endif
      +
      388
      +
      389 if (strlen(crop_rows) > 0)
      +
      390 delete_rows(crop_rows, process_data, process_theta, process_tilt, process_phi)
      +
      391 endif
      +
      392 endif
      +
      393end
      +
      +
      394
      +
      +
      409static function delete_rows(rows, data, theta, tilt, phi)
      +
      410 string rows
      +
      411 wave data
      +
      412 wave theta
      +
      413 wave tilt
      +
      414 wave phi
      +
      415
      +
      416 make /n=(numpnts(theta)) /i /free idx
      +
      417 idx = p
      +
      418 variable nrows = ItemsInList(rows, ",")
      +
      419 variable irow
      +
      420 string srow
      +
      421 variable q1, q2
      +
      422 for (irow = 0; irow < nrows; irow += 1)
      +
      423 srow = StringFromList(irow, rows, ",")
      +
      424 q1 = str2num(StringFromList(0, srow, "-"))
      +
      425 q2 = str2num(StringFromList(1, srow, "-"))
      +
      426 if (numtype(q2))
      +
      427 q2 = q1
      +
      428 endif
      +
      429 if (q1 <= q2)
      +
      430 idx[q1,q2] = -1
      +
      431 endif
      +
      432 endfor
      +
      433 extract /free idx, idx, idx >= 0
      +
      434 variable nx = dimsize(data, 0)
      +
      435 variable ny = numpnts(idx)
      +
      436 theta[0,ny-1] = theta[idx]
      +
      437 tilt[0,ny-1] = tilt[idx]
      +
      438 phi[0,ny-1] = phi[idx]
      +
      439 redimension /n=(ny) theta, tilt, phi
      +
      440 duplicate /free data, data_copy
      +
      441 redimension /n=(nx,ny) data
      +
      442 data = data_copy[p][idx[q]]
      +
      443end
      +
      +
      444
      +
      +
      456static function do_norm_alpha(check, [force])
      +
      457 variable check
      +
      458 variable force
      +
      459
      +
      460 if (ParamIsDefault(force))
      +
      461 force = 0
      +
      462 endif
      +
      463
      +
      464 dfref saveDF = GetDataFolderDFR()
      +
      465 dfref df = $(package_path)
      +
      466 wave /sdfr=df process_data
      +
      467 nvar /sdfr=df norm_alpha_enable
      +
      468 nvar /sdfr=df norm_alpha_mode
      +
      469 nvar /sdfr=df norm_alpha_smoothing
      +
      470
      +
      471 if (force || norm_alpha_enable)
      +
      472 dfref temp_df = newfreedatafolder()
      +
      473 setdatafolder temp_df
      +
      474 normalize_strip_x(process_data, smooth_method=norm_alpha_mode, smooth_factor=norm_alpha_smoothing, check=check)
      +
      475 if (check)
      +
      476 wave check_dist
      +
      477 wave check_smoo
      +
      478 duplicate /o check_dist, df:dist_x
      +
      479 duplicate /o check_smoo, df:dist_x_smoo
      +
      480 endif
      +
      481 endif
      +
      482
      +
      483 SetDataFolder saveDF
      +
      484end
      +
      +
      485
      +
      +
      497static function do_norm_phi(check, [force])
      +
      498 variable check
      +
      499 variable force
      +
      500
      +
      501 if (ParamIsDefault(force))
      +
      502 force = 0
      +
      503 endif
      +
      504
      +
      505 dfref saveDF = GetDataFolderDFR()
      +
      506 dfref df = $(package_path)
      +
      507 wave /sdfr=df process_data
      +
      508 wave /sdfr=df process_theta
      +
      509 wave /sdfr=df process_phi
      +
      510 nvar /sdfr=df norm_phi_enable
      +
      511 nvar /sdfr=df norm_phi_mode
      +
      512 nvar /sdfr=df norm_phi_thetarange
      +
      513
      +
      514 if (force || norm_phi_enable)
      +
      515 dfref temp_df = newfreedatafolder()
      +
      516 setdatafolder temp_df
      +
      517 normalize_strip_phi(process_data, process_theta, process_phi, theta_range=norm_phi_thetarange, check=check)
      +
      518 if (check)
      +
      519 wave check_dist
      +
      520 wave check_smoo
      +
      521 duplicate /o check_dist, df:dist_y
      +
      522 duplicate /o check_smoo, df:dist_y_smoo
      +
      523 endif
      +
      524 endif
      +
      525
      +
      526 SetDataFolder saveDF
      +
      527end
      +
      +
      528
      +
      +
      540static function do_norm_theta(check, [force])
      +
      541 variable check
      +
      542 variable force
      +
      543
      +
      544 if (ParamIsDefault(force))
      +
      545 force = 0
      +
      546 endif
      +
      547
      +
      548 dfref saveDF = GetDataFolderDFR()
      +
      549 dfref df = $(package_path)
      +
      550 wave /sdfr=df process_data
      +
      551 wave /sdfr=df process_theta
      +
      552 nvar /sdfr=df norm_theta_enable
      +
      553 nvar /sdfr=df norm_theta_mode
      +
      554 nvar /sdfr=df norm_theta_domain
      +
      555 nvar /sdfr=df norm_theta_smoothing
      +
      556
      +
      557 if (force || norm_theta_enable)
      +
      558 dfref temp_df = newfreedatafolder()
      +
      559 setdatafolder temp_df
      +
      560 if (norm_theta_domain==1)
      +
      561 normalize_strip_theta_scans(process_data, process_theta, smooth_method=norm_theta_mode, smooth_factor=norm_theta_smoothing, check=check)
      +
      562 else
      +
      563 normalize_strip_theta(process_data, process_theta, smooth_method=norm_theta_mode, smooth_factor=norm_theta_smoothing, check=check)
      +
      564 endif
      +
      565 if (check)
      +
      566 wave check_dist
      +
      567 wave check_smoo
      +
      568 duplicate /o check_dist, df:dist_y
      +
      569 duplicate /o check_smoo, df:dist_y_smoo
      +
      570 endif
      +
      571 endif
      +
      572
      +
      573 SetDataFolder saveDF
      +
      574end
      +
      +
      575
      +
      +
      587static function do_norm_thetaphi(check, [force])
      +
      588 variable check
      +
      589 variable force
      +
      590
      +
      591 if (ParamIsDefault(force))
      +
      592 force = 0
      +
      593 endif
      +
      594
      +
      595 dfref saveDF = GetDataFolderDFR()
      +
      596 dfref df = $(package_path)
      +
      597 wave /sdfr=df process_data
      +
      598 wave /sdfr=df process_theta
      +
      599 wave /sdfr=df process_phi
      +
      600 nvar /sdfr=df norm_thetaphi_enable
      +
      601 nvar /sdfr=df norm_thetaphi_mode
      +
      602 nvar /sdfr=df norm_thetaphi_smoothing
      +
      603
      +
      604 if (force || norm_thetaphi_enable)
      +
      605 dfref temp_df = newfreedatafolder()
      +
      606 setdatafolder temp_df
      +
      607 normalize_strip_thetaphi(process_data, process_theta, process_phi, smooth_method=norm_thetaphi_mode, smooth_factor=norm_thetaphi_smoothing, check=check)
      +
      608 if (check)
      +
      609 wave check_dist
      +
      610 wave check_smoo
      +
      611 duplicate /o check_dist, df:dist_y
      +
      612 duplicate /o check_smoo, df:dist_y_smoo
      +
      613 endif
      +
      614 endif
      +
      615
      +
      616 SetDataFolder saveDF
      +
      617end
      +
      +
      618
      +
      +
      623function asp_calculate_output()
      +
      624 dfref saveDF = GetDataFolderDFR()
      +
      625 setdatafolder $(package_path)
      +
      626
      +
      627 svar output_name
      +
      628
      +
      629 wave process_data
      +
      630 wave process_theta
      +
      631 wave process_tilt
      +
      632 wave process_phi
      +
      633
      +
      634 nvar folding=output_folding
      +
      635 nvar horizon=output_horizon
      +
      636
      +
      637 do_init_process(0)
      +
      638 do_crop(0)
      +
      639 do_norm_alpha(0)
      +
      640 do_norm_phi(0)
      +
      641 do_norm_theta(0)
      +
      642 do_norm_thetaphi(0)
      +
      643
      +
      644 pizza_service_2(process_data, output_name, process_theta, process_tilt, process_phi, folding=folding, nograph=1)
      +
      645
      +
      646 setdatafolder $output_name
      +
      647 wave values
      +
      648 wave pol
      +
      649 if (horizon > 0)
      +
      650 values = pol <= horizon ? values : nan
      +
      651 endif
      +
      652
      +
      653 SetDataFolder saveDF
      +
      654end
      +
      +
      655
      +
      +
      669function /s asp_display_output([data_df, data_name])
      +
      670 dfref data_df
      +
      671 string data_name
      +
      672
      +
      673 dfref pkg_df = $(package_path)
      +
      674 svar /sdfr=pkg_df output_name
      +
      675 svar /sdfr=pkg_df output_graphname
      +
      676 nvar /sdfr=pkg_df graph_projection
      +
      677 nvar /sdfr=pkg_df graph_mode
      +
      678 svar /sdfr=pkg_df graph_colortable
      +
      679 nvar /sdfr=pkg_df graph_contrast
      +
      680
      +
      681 if (ParamIsDefault(data_df))
      +
      682 dfref data_df = pkg_df
      +
      683 endif
      +
      684 if (ParamIsDefault(data_name))
      +
      685 data_name = output_name
      +
      686 endif
      +
      687
      +
      688 dfref saveDF = GetDataFolderDFR()
      +
      689 setdatafolder data_df
      +
      690
      +
      691 if (graph_mode == 3)
      +
      692 interpolate_hemi_scan(data_name, projection=graph_projection)
      +
      693 endif
      +
      694
      +
      695 string graphname = data_name
      +
      696 graphname = display_hemi_scan(data_name, projection=graph_projection, graphtype=graph_mode, graphname=graphname)
      +
      697 if (ParamIsDefault(data_df))
      +
      698 output_graphname = graphname
      +
      699 endif
      +
      700 SetDataFolder saveDF
      +
      701
      +
      702 if (strlen(graphname) && (wintype(graphname) == 1))
      +
      703 set_contrast(graph_contrast, graph_contrast, graphname=graphname, colortable=graph_colortable)
      +
      704 endif
      +
      705
      +
      706 return graphname
      +
      707end
      +
      +
      708
      +
      +
      713function asp_update_graph()
      +
      714 dfref df = $(package_path)
      +
      715
      +
      716 svar /sdfr=df preview_graphname
      +
      717 svar /sdfr=df output_graphname
      +
      718 svar /sdfr=df graph_colortable
      +
      719 nvar /sdfr=df graph_contrast
      +
      720
      +
      721 if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      +
      722 set_contrast(graph_contrast, graph_contrast, graphname=preview_graphname, colortable=graph_colortable)
      +
      723 endif
      +
      724 if (strlen(output_graphname) && (wintype(output_graphname) == 1))
      +
      725 set_contrast(graph_contrast, graph_contrast, graphname=output_graphname, colortable=graph_colortable)
      +
      726 endif
      +
      727end
      +
      +
      728
      +
      +
      731function asp_close_graphs()
      +
      732 dfref df = $(package_path)
      +
      733
      +
      734 svar /sdfr=df preview_graphname
      +
      735 svar /sdfr=df output_graphname
      +
      736 svar /sdfr=df dist_x_graphname
      +
      737 svar /sdfr=df dist_y_graphname
      +
      738
      +
      739 if (strlen(preview_graphname) && (wintype(preview_graphname) == 1))
      +
      740 killwindow $preview_graphname
      +
      741 endif
      +
      742 if (strlen(output_graphname) && (wintype(output_graphname) == 1))
      +
      743 killwindow $output_graphname
      +
      744 endif
      +
      745 if (strlen(dist_x_graphname) && (wintype(dist_x_graphname) == 1))
      +
      746 killwindow $dist_x_graphname
      +
      747 endif
      +
      748 if (strlen(dist_y_graphname) && (wintype(dist_y_graphname) == 1))
      +
      749 killwindow $dist_y_graphname
      +
      750 endif
      +
      751
      +
      752 preview_graphname = ""
      +
      753 output_graphname = ""
      +
      754 dist_x_graphname = ""
      +
      755 dist_y_graphname = ""
      +
      756end
      +
      +
      757
      +
      +
      771function /s asp_duplicate_output(dest_name, [do_graph])
      +
      772 string dest_name
      +
      773 variable do_graph
      +
      774
      +
      775 if (ParamIsDefault(do_graph))
      +
      776 do_graph = 0
      +
      777 endif
      +
      778
      +
      779 dfref df = $(package_path)
      +
      780 svar /sdfr=df source_path
      +
      781 svar /sdfr=df output_name
      +
      782 svar /sdfr=df output_graphname
      +
      783 wave raw_data = $source_path
      +
      784
      +
      785 dfref saveDF = GetDataFolderDFR()
      +
      786 dfref raw_df = GetWavesDataFolderDFR(raw_data)
      +
      787 setdatafolder raw_df
      +
      788 newdatafolder /o /s $dest_name
      +
      789 dfref dest_df = GetDataFolderDFR()
      +
      790 setdatafolder df
      +
      791 duplicate_hemi_scan(output_name, dest_df, "")
      +
      792
      +
      793 string graphname = ""
      +
      794 if (do_graph)
      +
      795 graphname = asp_display_output(data_df=raw_df, data_name=dest_name)
      +
      796 endif
      +
      797
      +
      798 SetDataFolder saveDF
      +
      799 return graphname
      +
      800end
      +
      +
      801
      +
      +
      804function asp_save_output_itx()
      +
      805 dfref df = $(package_path)
      +
      806 svar /sdfr=df output_name
      +
      807
      +
      808 dfref saveDF = GetDataFolderDFR()
      +
      809 setdatafolder df
      +
      810 save_hemi_scan(output_name, "", "")
      +
      811
      +
      812 SetDataFolder saveDF
      +
      813end
      +
      +
      814
      +
      +
      819function asp_save_output_etpi(ekin)
      +
      820 variable ekin
      +
      821
      +
      822 dfref df = $(package_path)
      +
      823 svar /sdfr=df output_name
      +
      824 wave /sdfr=df process_data
      +
      825
      +
      826 dfref saveDF = GetDataFolderDFR()
      +
      827 setdatafolder df
      +
      828 string s_prefix = ""
      +
      829 string s_int = "values"
      +
      830 dfref data_df = find_hemi_data(output_name, s_prefix, s_int)
      +
      831 string s_polar = s_prefix + "pol"
      +
      832 string s_azim = s_prefix + "az"
      +
      833
      +
      834 pmsco_save_scan("", "", num2str(ekin), s_polar, s_azim, "", s_int, "", sdfr=data_df)
      +
      835
      +
      836 SetDataFolder saveDF
      +
      837end
      +
      +
      838
      +
      +
      839static function check_norm_alpha()
      +
      840 do_init_process(0)
      +
      841 do_crop(0)
      +
      842 do_norm_alpha(2, force=1)
      +
      843 asp_display_dist_check(1, 0)
      +
      844end
      +
      +
      845
      +
      +
      846static function check_norm_phi()
      +
      847 do_init_process(0)
      +
      848 do_crop(0)
      +
      849 do_norm_phi(2, force=1)
      +
      850 asp_display_dist_check(0, 1)
      +
      851end
      +
      +
      852
      +
      +
      853static function check_norm_theta()
      +
      854 do_init_process(0)
      +
      855 do_crop(0)
      +
      856 do_norm_theta(2, force=1)
      +
      857 asp_display_dist_check(0, 1)
      +
      858end
      +
      +
      859
      +
      +
      860static function check_norm_thetaphi()
      +
      861 do_init_process(0)
      +
      862 do_crop(0)
      +
      863 do_norm_thetaphi(2, force=1)
      +
      864 asp_display_dist_check(0, 1)
      +
      865end
      +
      +
      866
      +
      +
      867static function preview_crop()
      +
      868 do_init_process(0)
      +
      869 do_crop(0, force=1)
      +
      870 asp_display_previews()
      +
      871end
      +
      +
      872
      +
      +
      873static function preview_norm_alpha()
      +
      874 do_init_process(0)
      +
      875 do_crop(0)
      +
      876 do_norm_alpha(1, force=1)
      +
      877 asp_display_previews()
      +
      878end
      +
      +
      879
      +
      +
      880static function preview_norm_phi()
      +
      881 do_init_process(0)
      +
      882 do_crop(0)
      +
      883 do_norm_phi(1, force=1)
      +
      884 asp_display_previews()
      +
      885end
      +
      +
      886
      +
      +
      887static function preview_norm_theta()
      +
      888 do_init_process(0)
      +
      889 do_crop(0)
      +
      890 do_norm_theta(1, force=1)
      +
      891 asp_display_previews()
      +
      892end
      +
      +
      893
      +
      +
      894static function preview_norm_thetaphi()
      +
      895 do_init_process(0)
      +
      896 do_crop(0)
      +
      897 do_norm_thetaphi(1, force=1)
      +
      898 asp_display_previews()
      +
      899end
      +
      +
      900
      +
      +
      903function asp_show_panel()
      +
      904 dfref df = $(package_path)
      +
      905 svar /sdfr=df panel_name
      +
      906
      +
      907 if (strlen(panel_name) && (wintype(panel_name) == 7))
      +
      908 DoWindow /F $panel_name
      +
      909 return 0
      +
      910 endif
      +
      911
      +
      912 NewPanel /K=1 /N=anglescan_panel /W=(200,50,480,874) as "angle scan processing"
      +
      913 panel_name = s_name
      +
      914
      +
      915 GroupBox gb_source, title="data source"
      +
      916 Button b_source_select, size={50,20},proc=PearlAnglescanPanel#bp_source_select,title="select..."
      +
      917 Button b_source_select, help={"select the source wave, e.g. ReducedData1. it must be in the scan or region data folder. the attr folder with the manipulator waves must be in the same folder or one level up."}
      +
      918 Button b_source_update, size={50,20},proc=PearlAnglescanPanel#bp_source_update,title="update"
      +
      919 Button b_source_update, help={"reload the process data from the previous source (link displayed below)"}
      +
      920 TitleBox tb_source_path, size={240,21}
      +
      921 TitleBox tb_source_path,variable= root:packages:pearl_anglescan_panel:source_path
      +
      922
      +
      923 GroupBox gb_offsets, title="offsets"
      +
      924 SetVariable sv_theta_offset, size={88,16},bodyWidth=60,title="theta"
      +
      925 SetVariable sv_theta_offset,value= root:packages:pearl_anglescan_panel:theta_offset
      +
      926 SetVariable sv_theta_offset, help={"manipulator theta value that corresponds to normal emission."}
      +
      927 SetVariable sv_tilt_offset, size={74,16},bodyWidth=60,title="tilt"
      +
      928 SetVariable sv_tilt_offset,value= root:packages:pearl_anglescan_panel:tilt_offset
      +
      929 SetVariable sv_tilt_offset, help={"manipulator tilt value that corresponds to normal emission."}
      +
      930 SetVariable sv_phi_offset, size={78,16},bodyWidth=60,title="phi"
      +
      931 SetVariable sv_phi_offset,value= root:packages:pearl_anglescan_panel:phi_offset
      +
      932 SetVariable sv_phi_offset, help={"manipulator phi value that should map to the 3 o'clock angle."}
      +
      933 SetVariable sv_alpha_offset, size={90,16},bodyWidth=60,title="alpha"
      +
      934 SetVariable sv_alpha_offset,value= root:packages:pearl_anglescan_panel:alpha_offset
      +
      935 SetVariable sv_alpha_offset, help={"alpha value that corresponds to normal emission (if the sample normal is properly aligned)."}
      +
      936 Button b_save_prefs, size={80,20},proc=PearlAnglescanPanel#bp_save_prefs,title="save prefs"
      +
      937 Button b_save_prefs, help={"save settings as preferences."}
      +
      938 Button b_load_prefs, size={80,20},proc=PearlAnglescanPanel#bp_load_prefs,title="load prefs"
      +
      939 Button b_load_prefs, help={"load settings from preferences."}
      +
      940
      +
      941 GroupBox gb_crop, title="crop and delete"
      +
      942 CheckBox cb_crop_enable, size={50,14}, title="enable"
      +
      943 CheckBox cb_crop_enable, help={"crop at +/-alpha and +theta, delete arbitrary rows"}
      +
      944 CheckBox cb_crop_enable, variable= root:packages:pearl_anglescan_panel:crop_enable
      +
      945 SetVariable sv_crop_alpha, size={90,16},bodyWidth=60,title="alpha"
      +
      946 SetVariable sv_crop_alpha, limits={0,30,1},value= root:packages:pearl_anglescan_panel:crop_alpha
      +
      947 SetVariable sv_crop_alpha, help={"alpha (detection angle) cropping angle (positive boundary), relative to normal emission"}
      +
      948 SetVariable sv_crop_theta, size={90,16},bodyWidth=60,title="theta"
      +
      949 SetVariable sv_crop_theta, limits={10,90,1},value= root:packages:pearl_anglescan_panel:crop_theta
      +
      950 SetVariable sv_crop_theta, help={"theta (polar angle) upper limit, relative to normal emission"}
      +
      951 SetVariable sv_crop_rows, size={200,16},bodyWidth=160,title="rows"
      +
      952 SetVariable sv_crop_rows, limits={10,90,1},value= root:packages:pearl_anglescan_panel:crop_rows
      +
      953 SetVariable sv_crop_rows, help={"rows to delete from the raw data. comma-separated point indices, hyphen for range."}
      +
      954 Button b_crop_preview, size={80,20},proc=PearlAnglescanPanel#bp_crop_preview,title="preview"
      +
      955 Button b_crop_preview, help={"show a preview of the cropped dataset."}
      +
      956
      +
      957 GroupBox gb_norm_alpha, title="normalize alpha"
      +
      958 CheckBox cb_norm_alpha_enable, size={50,14}, title="enable"
      +
      959 CheckBox cb_norm_alpha_enable,variable= root:packages:pearl_anglescan_panel:norm_alpha_enable
      +
      960 CheckBox cb_norm_alpha_enable, help={"enable normalization of the alpha distribution"}
      +
      961 PopupMenu pm_norm_alpha_mode, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_alpha_mode,title="method"
      +
      962 PopupMenu pm_norm_alpha_mode, mode=5, popvalue="loess", value= #"\"none;binomial;boxcar;scienta;loess;\""
      +
      963 PopupMenu pm_norm_alpha_mode, help={"alpha normalization method. recommended: loess"}
      +
      964 SetVariable sv_norm_alpha_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      +
      965 SetVariable sv_norm_alpha_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_alpha_smoothing
      +
      966 SetVariable sv_norm_alpha_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      +
      967 Button b_norm_alpha_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_alpha_check,title="check"
      +
      968 Button b_norm_alpha_check, help={"show a graph of the normalization function"}
      +
      969 Button b_norm_alpha_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_alpha_preview,title="preview"
      +
      970 Button b_norm_alpha_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      +
      971
      +
      972 GroupBox gb_norm_phi, title="normalize phi"
      +
      973 CheckBox cb_norm_phi_enable, size={50,14}, title="enable"
      +
      974 CheckBox cb_norm_phi_enable,variable= root:packages:pearl_anglescan_panel:norm_phi_enable
      +
      975 CheckBox cb_norm_phi_enable, help={"enable normalization of the phi distribution to reduce the effect of wobble"}
      +
      976 SetVariable sv_norm_phi_range, size={118,16}, bodyWidth=60, title="theta range"
      +
      977 SetVariable sv_norm_phi_range, limits={0,90,1}, value= root:packages:pearl_anglescan_panel:norm_phi_thetarange
      +
      978 SetVariable sv_norm_phi_range, help={"theta range (from normal) to factor into the normalization function"}
      +
      979 Button b_norm_phi_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_phi_check, title="check"
      +
      980 Button b_norm_phi_check, help={"show a graph of the normalization function"}
      +
      981 Button b_norm_phi_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_phi_preview, title="preview"
      +
      982 Button b_norm_phi_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      +
      983
      +
      984 GroupBox gb_norm_theta, title="normalize theta"
      +
      985 CheckBox cb_norm_theta_enable, size={50,14},title="enable"
      +
      986 CheckBox cb_norm_theta_enable, variable= root:packages:pearl_anglescan_panel:norm_theta_enable
      +
      987 CheckBox cb_norm_theta_enable, help={"enable normalization of the theta distribution (integrated over phi)"}
      +
      988 PopupMenu pm_norm_theta_domain, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_theta_domain, title="domain"
      +
      989 PopupMenu pm_norm_theta_domain, mode=5, popvalue="loess", value= #"\"global;scans;\""
      +
      990 PopupMenu pm_norm_theta_domain, help={"smoothing domain: global or individual scans. use global unless there is a stronga or irregular phi variation."}
      +
      991 PopupMenu pm_norm_theta_mode, size={138,21},bodyWidth=100,proc=PearlAnglescanPanel#pmp_norm_theta_mode,title="method"
      +
      992 PopupMenu pm_norm_theta_mode,mode=5,popvalue="loess",value= #"\"none;binomial;boxcar;polynomial;loess;\""
      +
      993 PopupMenu pm_norm_theta_mode, help={"theta normalization method. recommended: loess"}
      +
      994 SetVariable sv_norm_theta_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      +
      995 SetVariable sv_norm_theta_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_theta_smoothing
      +
      996 SetVariable sv_norm_theta_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      +
      997 Button b_norm_theta_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_theta_check, title="check"
      +
      998 Button b_norm_theta_check, help={"show a graph of the normalization function"}
      +
      999 Button b_norm_theta_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_theta_preview, title="preview"
      +
      1000 Button b_norm_theta_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      +
      1001
      +
      1002 GroupBox gb_norm_thetaphi, size={272,97},title="normalize (theta,phi)"
      +
      1003 CheckBox cb_norm_thetaphi_enable, size={50,14},title="enable"
      +
      1004 CheckBox cb_norm_thetaphi_enable, variable= root:packages:pearl_anglescan_panel:norm_thetaphi_enable
      +
      1005 CheckBox cb_norm_thetaphi_enable, help={"enable normalization of the (theta, phi) distribution."}
      +
      1006 PopupMenu pm_norm_thetaphi_mode, size={138,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_norm_thetaphi_mode,title="method"
      +
      1007 PopupMenu pm_norm_thetaphi_mode, mode=5, popvalue="loess", value= #"\"none;none;none;none;loess;\""
      +
      1008 PopupMenu pm_norm_thetaphi_mode, help={"theta normalization method. recommended: loess"}
      +
      1009 SetVariable sv_norm_thetaphi_smoothing, size={112,16}, bodyWidth=60, title="smoothing"
      +
      1010 SetVariable sv_norm_thetaphi_smoothing, limits={0,1,0.05}, value= root:packages:pearl_anglescan_panel:norm_thetaphi_smoothing
      +
      1011 SetVariable sv_norm_thetaphi_smoothing, help={"smoothing parameter (depends on the normalization method)."}
      +
      1012 Button b_norm_thetaphi_check, size={80,20}, proc=PearlAnglescanPanel#bp_norm_thetaphi_check, title="check"
      +
      1013 Button b_norm_thetaphi_check, help={"show a graph of the normalization function"}
      +
      1014 Button b_norm_thetaphi_preview, size={80,20}, proc=PearlAnglescanPanel#bp_norm_thetaphi_preview, title="preview"
      +
      1015 Button b_norm_thetaphi_preview, help={"show a preview of the normalized dataset (without other normalizations)."}
      +
      1016
      +
      1017 GroupBox gb_output, title="output"
      +
      1018 SetVariable sv_output_folding, size={95,16}, bodyWidth=60, title="folding"
      +
      1019 SetVariable sv_output_folding, limits={1,20,1}, value= root:packages:pearl_anglescan_panel:output_folding
      +
      1020 SetVariable sv_output_folding, help={"n-fold rotational average. 1=no averaging."}
      +
      1021 SetVariable sv_output_horizon, size={98,16}, bodyWidth=60, title="horizon"
      +
      1022 SetVariable sv_output_horizon, limits={1,90,1}, value= root:packages:pearl_anglescan_panel:output_horizon
      +
      1023 SetVariable sv_output_horizon, help={"highest theta to display"}
      +
      1024 PopupMenu pm_graph_projection, size={149,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_projection, title="projection"
      +
      1025 PopupMenu pm_graph_projection, mode=2, popvalue="stereographic", value= #"\"equidistant;stereographic;equal area;gnomonic;orthographic;\""
      +
      1026 PopupMenu pm_graph_projection, help={"projection (theta mapping) mode"}
      +
      1027 PopupMenu pm_graph_mode, size={129,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_mode,title="mode"
      +
      1028 PopupMenu pm_graph_mode, mode=2, popvalue="dots", value= #"\"none;dots;none;image;\""
      +
      1029 PopupMenu pm_graph_mode, help={"graph type: dots = coloured dots on circles; image = interpolated matrix"}
      +
      1030 Button b_output_calc, size={80,20}, proc=PearlAnglescanPanel#bp_output_calc, title="calc + display"
      +
      1031 Button b_output_calc, help={"execute data processing with the enabled filters and display the diffractogram."}
      +
      1032 Button b_output_duplicate, size={80,20}, proc=PearlAnglescanPanel#bp_output_duplicate, title="duplicate ..."
      +
      1033 Button b_output_duplicate, help={"copy the result to an arbitrary data folder."}
      +
      1034 Button b_output_itx, size={80,20}, proc=PearlAnglescanPanel#bp_output_itx, title="save ITX ..."
      +
      1035 Button b_output_itx, help={"save the result to an igor text file (itx)."}
      +
      1036 Button b_output_etpi, size={80,20}, proc=PearlAnglescanPanel#bp_output_etpi, title="save ETPI ..."
      +
      1037 Button b_output_etpi, help={"save the result to a pmsco angle scan file (etpi)."}
      +
      1038
      +
      1039 GroupBox gb_graph, title="graph"
      +
      1040 PopupMenu pm_graph_colortable, size={152,21}, bodyWidth=100, proc=PearlAnglescanPanel#pmp_graph_colortable, title="color table"
      +
      1041 PopupMenu pm_graph_colortable, mode=0, value= #"\"*COLORTABLEPOPNONAMES*\""
      +
      1042 PopupMenu pm_graph_colortable, help={"color table to use in pseudocolor graphs."}
      +
      1043 SetVariable sv_graph_contrast, size={119,16}, bodyWidth=60, title="contrast (%)"
      +
      1044 SetVariable sv_graph_contrast, limits={0,25,1}, value= root:packages:pearl_anglescan_panel:graph_contrast
      +
      1045 SetVariable sv_graph_contrast, help={"contrast value (percentile)."}
      +
      1046 Button b_graph_update, size={80,20}, proc=PearlAnglescanPanel#bp_graph_update, title="update"
      +
      1047 Button b_graph_update, help={"update the existing graph."}
      +
      1048 Button b_graph_png, size={80,20}, proc=PearlAnglescanPanel#bp_graph_png, title="save PNG ..."
      +
      1049 Button b_graph_png, help={"save the graph in png format."}
      +
      1050
      +
      1051 arrange_controls()
      +
      1052 update_menus()
      +
      1053end
      +
      +
      1054
      +
      +
      1055static function arrange_controls()
      +
      1056 dfref df = $(package_path)
      +
      1057 svar /sdfr=df panel_name
      +
      1058
      +
      1059 variable gb_space = 2
      +
      1060 variable gb_internal_top = 16
      +
      1061 variable gb_internal_bot = 4
      +
      1062 variable line_space = 22
      +
      1063
      +
      1064 variable cb_adj = 2
      +
      1065 variable sv_adj = 2
      +
      1066 variable pm_adj = 0
      +
      1067 variable b_adj = 0
      +
      1068 variable tb_adj = 0
      +
      1069
      +
      1070 variable gb_top = 4
      +
      1071 variable gb_ht = 0
      +
      1072
      +
      1073 // ht = line + 30
      +
      1074 // gb = gb + ht + 2
      +
      1075 // cb = gb + 18
      +
      1076 // pm = gb + 38
      +
      1077 // line += 26
      +
      1078 // sv = line + 2
      +
      1079
      +
      1080 GroupBox gb_source,pos={4,gb_top}
      +
      1081 gb_ht = gb_internal_top
      +
      1082 Button b_source_select,pos={17, gb_top + gb_ht + b_adj},size={50,20}
      +
      1083 Button b_source_update, pos={67, gb_top + gb_ht + b_adj},size={50,20}
      +
      1084 gb_ht += line_space
      +
      1085 TitleBox tb_source_path,pos={18, gb_top + gb_ht + tb_adj},size={240,21}
      +
      1086 gb_ht += line_space
      +
      1087 gb_ht += gb_internal_bot
      +
      1088 GroupBox gb_source, size={272,gb_ht}
      +
      1089
      +
      1090 gb_top += gb_ht + gb_space
      +
      1091 GroupBox gb_offsets,pos={4,gb_top}
      +
      1092 gb_ht = gb_internal_top
      +
      1093 SetVariable sv_theta_offset,pos={46, gb_top + gb_ht + sv_adj},size={88,16}
      +
      1094 Button b_save_prefs,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1095 gb_ht += line_space
      +
      1096 SetVariable sv_tilt_offset,pos={60, gb_top + gb_ht + sv_adj},size={74,16}
      +
      1097 Button b_load_prefs,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1098 gb_ht += line_space
      +
      1099 SetVariable sv_phi_offset,pos={56, gb_top + gb_ht + sv_adj},size={78,16}
      +
      1100 gb_ht += line_space
      +
      1101 SetVariable sv_alpha_offset,pos={44, gb_top + gb_ht + sv_adj},size={90,16}
      +
      1102 gb_ht += line_space
      +
      1103 gb_ht += gb_internal_bot
      +
      1104 GroupBox gb_offsets, size={272,gb_ht}
      +
      1105
      +
      1106 gb_top += gb_ht + gb_space
      +
      1107 GroupBox gb_crop,pos={4,gb_top}
      +
      1108 gb_ht = gb_internal_top
      +
      1109 CheckBox cb_crop_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      +
      1110 gb_ht += line_space
      +
      1111 SetVariable sv_crop_alpha, pos={44, gb_top + gb_ht + sv_adj}, size={90,16}
      +
      1112 Button b_crop_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1113 gb_ht += line_space
      +
      1114 SetVariable sv_crop_theta, pos={44, gb_top + gb_ht + sv_adj}, size={90,16}
      +
      1115 gb_ht += line_space
      +
      1116 SetVariable sv_crop_rows, pos={44, gb_top + gb_ht + sv_adj}, size={190,16}
      +
      1117 gb_ht += line_space
      +
      1118 gb_ht += gb_internal_bot
      +
      1119 GroupBox gb_crop, size={272,gb_ht}
      +
      1120
      +
      1121 gb_top += gb_ht + gb_space
      +
      1122 GroupBox gb_norm_alpha,pos={4,gb_top}
      +
      1123 gb_ht = gb_internal_top
      +
      1124 CheckBox cb_norm_alpha_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      +
      1125 gb_ht += line_space
      +
      1126 PopupMenu pm_norm_alpha_mode,pos={36, gb_top + gb_ht + pm_adj},size={138,21}
      +
      1127 Button b_norm_alpha_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1128 gb_ht += line_space
      +
      1129 SetVariable sv_norm_alpha_smoothing,pos={22, gb_top + gb_ht + sv_adj},size={112,16}
      +
      1130 Button b_norm_alpha_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1131 gb_ht += line_space
      +
      1132 gb_ht += gb_internal_bot
      +
      1133 GroupBox gb_norm_alpha, size={272,gb_ht}
      +
      1134
      +
      1135 gb_top += gb_ht + gb_space
      +
      1136 GroupBox gb_norm_phi,pos={4,gb_top}
      +
      1137 gb_ht = gb_internal_top
      +
      1138 CheckBox cb_norm_phi_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      +
      1139 Button b_norm_phi_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1140 gb_ht += line_space
      +
      1141 SetVariable sv_norm_phi_range,pos={15, gb_top + gb_ht + sv_adj},size={118,16}
      +
      1142 Button b_norm_phi_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1143 gb_ht += line_space
      +
      1144 gb_ht += gb_internal_bot
      +
      1145 GroupBox gb_norm_phi, size={272,gb_ht}
      +
      1146
      +
      1147 gb_top += gb_ht + gb_space
      +
      1148 GroupBox gb_norm_theta,pos={4,gb_top}
      +
      1149 gb_ht = gb_internal_top
      +
      1150 CheckBox cb_norm_theta_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      +
      1151 gb_ht += line_space
      +
      1152 PopupMenu pm_norm_theta_domain, pos={35, gb_top + gb_ht + pm_adj}, size={138,21}
      +
      1153 Button b_norm_theta_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1154 gb_ht += line_space
      +
      1155 PopupMenu pm_norm_theta_mode,pos={35, gb_top + gb_ht + pm_adj},size={138,21}
      +
      1156 Button b_norm_theta_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1157 gb_ht += line_space
      +
      1158 SetVariable sv_norm_theta_smoothing,pos={21, gb_top + gb_ht + sv_adj},size={112,16}
      +
      1159 gb_ht += line_space
      +
      1160 gb_ht += gb_internal_bot
      +
      1161 GroupBox gb_norm_theta, size={272,gb_ht}
      +
      1162
      +
      1163 gb_top += gb_ht + gb_space
      +
      1164 GroupBox gb_norm_thetaphi,pos={4,gb_top}
      +
      1165 gb_ht = gb_internal_top
      +
      1166 CheckBox cb_norm_thetaphi_enable,pos={73, gb_top + gb_ht + cb_adj},size={50,14}
      +
      1167 gb_ht += line_space
      +
      1168 PopupMenu pm_norm_thetaphi_mode,pos={35, gb_top + gb_ht + pm_adj},size={138,21}
      +
      1169 Button b_norm_thetaphi_check,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1170 gb_ht += line_space
      +
      1171 SetVariable sv_norm_thetaphi_smoothing,pos={21, gb_top + gb_ht + sv_adj},size={112,16}
      +
      1172 Button b_norm_thetaphi_preview,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1173 gb_ht += line_space
      +
      1174 gb_ht += gb_internal_bot
      +
      1175 GroupBox gb_norm_thetaphi, size={272,gb_ht}
      +
      1176
      +
      1177 gb_top += gb_ht + gb_space
      +
      1178 GroupBox gb_output,pos={4,gb_top}
      +
      1179 gb_ht = gb_internal_top
      +
      1180 SetVariable sv_output_folding,pos={38, gb_top + gb_ht + sv_adj},size={95,16}
      +
      1181 Button b_output_calc,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1182 gb_ht += line_space
      +
      1183 SetVariable sv_output_horizon,pos={35, gb_top + gb_ht + sv_adj},size={98,16}
      +
      1184 Button b_output_duplicate,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1185 gb_ht += line_space
      +
      1186 PopupMenu pm_graph_projection,pos={24, gb_top + gb_ht + pm_adj},size={149,21}
      +
      1187 Button b_output_itx,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1188 gb_ht += line_space
      +
      1189 PopupMenu pm_graph_mode,pos={44, gb_top + gb_ht + pm_adj},size={129,21}
      +
      1190 Button b_output_etpi,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1191 gb_ht += line_space
      +
      1192 gb_ht += gb_internal_bot
      +
      1193 GroupBox gb_output, size={272,gb_ht}
      +
      1194
      +
      1195 gb_top += gb_ht + gb_space
      +
      1196 GroupBox gb_graph,pos={4,gb_top}
      +
      1197 gb_ht = gb_internal_top
      +
      1198 PopupMenu pm_graph_colortable,pos={21, gb_top + gb_ht + pm_adj},size={152,21}
      +
      1199 Button b_graph_update,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1200 gb_ht += line_space
      +
      1201 SetVariable sv_graph_contrast,pos={14, gb_top + gb_ht + sv_adj},size={119,16}
      +
      1202 Button b_graph_png,pos={186, gb_top + gb_ht + b_adj},size={80,20}
      +
      1203 gb_ht += line_space
      +
      1204 gb_ht += gb_internal_bot
      +
      1205 GroupBox gb_graph, size={272,gb_ht}
      +
      1206
      +
      1207 gb_top += gb_ht + gb_space
      +
      1208 //MoveWindow 200, 100, 479, 100 + gb_top
      +
      1209end
      +
      +
      1210
      +
      +
      1213static function update_menus()
      +
      1214 dfref df = $(package_path)
      +
      1215 svar /sdfr=df panel_name
      +
      1216 if (wintype(panel_name) == 7)
      +
      1217 variable m
      +
      1218 nvar /sdfr=df norm_alpha_mode
      +
      1219 m = norm_alpha_mode + 1
      +
      1220 PopupMenu pm_norm_alpha_mode win=$panel_name, mode=m
      +
      1221 nvar /sdfr=df norm_theta_domain
      +
      1222 m = norm_theta_domain + 1
      +
      1223 PopupMenu pm_norm_theta_domain win=$panel_name, mode=m
      +
      1224 nvar /sdfr=df norm_theta_mode
      +
      1225 m = norm_theta_mode + 1
      +
      1226 PopupMenu pm_norm_theta_mode win=$panel_name, mode=m
      +
      1227 nvar /sdfr=df norm_thetaphi_mode
      +
      1228 m = norm_thetaphi_mode + 1
      +
      1229 PopupMenu pm_norm_thetaphi_mode win=$panel_name, mode=m
      +
      1230 nvar /sdfr=df graph_mode
      +
      1231 m = graph_mode + 1
      +
      1232 PopupMenu pm_graph_mode win=$panel_name, mode=m
      +
      1233 nvar /sdfr=df graph_projection
      +
      1234 m = graph_projection + 1
      +
      1235 PopupMenu pm_graph_projection win=$panel_name, mode=m
      +
      1236 svar /sdfr=df graph_colortable
      +
      1237 m = 1 + WhichListItem(graph_colortable, CTabList())
      +
      1238 PopupMenu pm_graph_colortable win=$panel_name, mode=m
      +
      1239 endif
      +
      1240end
      +
      +
      1241
      +
      +
      1242static function bp_load_prefs(ba) : ButtonControl
      +
      1243 STRUCT WMButtonAction &ba
      +
      1244
      +
      1245 switch( ba.eventCode )
      +
      1246 case 2: // mouse up
      +
      1247 load_prefs()
      +
      1248 break
      +
      1249 case -1: // control being killed
      +
      1250 break
      +
      1251 endswitch
      +
      1252
      +
      1253 return 0
      +
      1254End
      +
      +
      1255
      +
      +
      1256static function bp_save_prefs(ba) : ButtonControl
      +
      1257 STRUCT WMButtonAction &ba
      +
      1258
      +
      1259 switch( ba.eventCode )
      +
      1260 case 2: // mouse up
      +
      1261 save_prefs()
      +
      1262 break
      +
      1263 case -1: // control being killed
      +
      1264 break
      +
      1265 endswitch
      +
      1266
      +
      1267 return 0
      +
      1268End
      +
      +
      1269
      +
      +
      1270static function bp_source_select(ba) : ButtonControl
      +
      1271 STRUCT WMButtonAction &ba
      +
      1272
      +
      1273 switch( ba.eventCode )
      +
      1274 case 2: // mouse up
      +
      1275 dfref dfBefore = GetDataFolderDFR()
      +
      1276 Execute /q/z "CreateBrowser prompt=\"Select 2D holo scan wave\", showWaves=1, showVars=0, showStrs=0"
      +
      1277 dfref dfAfter = GetDataFolderDFR()
      +
      1278 SetDataFolder dfBefore
      +
      1279
      +
      1280 SVAR list = S_BrowserList
      +
      1281 NVAR flag = V_Flag
      +
      1282 if ((flag != 0) && (ItemsInList(list) >= 1))
      +
      1283 string wname = StringFromList(0, list)
      +
      1284 wave w = $wname
      +
      1285 asp_import_raw(w)
      +
      1286 endif
      +
      1287
      +
      1288 break
      +
      1289 case -1: // control being killed
      +
      1290 break
      +
      1291 endswitch
      +
      1292
      +
      1293 return 0
      +
      1294End
      +
      +
      1295
      +
      +
      1296static function bp_source_update(ba) : ButtonControl
      +
      1297 STRUCT WMButtonAction &ba
      +
      1298
      +
      1299 switch( ba.eventCode )
      +
      1300 case 2: // mouse up
      +
      1301 dfref packdf = $package_path
      +
      1302 svar /sdfr=packdf source_path
      +
      1303 wave /z w = $source_path
      +
      1304 if (waveexists(w))
      +
      1305 asp_import_raw(w)
      +
      1306 else
      +
      1307 DoAlert 0, "can't find source data."
      +
      1308 endif
      +
      1309 break
      +
      1310 case -1: // control being killed
      +
      1311 break
      +
      1312 endswitch
      +
      1313
      +
      1314 return 0
      +
      1315End
      +
      +
      1316
      +
      +
      1317static function bp_norm_alpha_check(ba) : ButtonControl
      +
      1318 STRUCT WMButtonAction &ba
      +
      1319
      +
      1320 switch( ba.eventCode )
      +
      1321 case 2: // mouse up
      +
      1322 check_norm_alpha()
      +
      1323 break
      +
      1324 case -1: // control being killed
      +
      1325 break
      +
      1326 endswitch
      +
      1327
      +
      1328 return 0
      +
      1329End
      +
      +
      1330
      +
      +
      1331static function bp_norm_theta_check(ba) : ButtonControl
      +
      1332 STRUCT WMButtonAction &ba
      +
      1333
      +
      1334 switch( ba.eventCode )
      +
      1335 case 2: // mouse up
      +
      1336 check_norm_theta()
      +
      1337 break
      +
      1338 case -1: // control being killed
      +
      1339 break
      +
      1340 endswitch
      +
      1341
      +
      1342 return 0
      +
      1343End
      +
      +
      1344
      +
      +
      1345static function bp_norm_phi_check(ba) : ButtonControl
      +
      1346 STRUCT WMButtonAction &ba
      +
      1347
      +
      1348 switch( ba.eventCode )
      +
      1349 case 2: // mouse up
      +
      1350 check_norm_phi()
      +
      1351 break
      +
      1352 case -1: // control being killed
      +
      1353 break
      +
      1354 endswitch
      +
      1355
      +
      1356 return 0
      +
      1357End
      +
      +
      1358
      +
      +
      1359static function bp_norm_thetaphi_check(ba) : ButtonControl
      +
      1360 STRUCT WMButtonAction &ba
      +
      1361
      +
      1362 switch( ba.eventCode )
      +
      1363 case 2: // mouse up
      +
      1364 check_norm_thetaphi()
      +
      1365 break
      +
      1366 case -1: // control being killed
      +
      1367 break
      +
      1368 endswitch
      +
      1369
      +
      1370 return 0
      +
      1371End
      +
      +
      1372
      +
      +
      1373static function bp_crop_preview(ba) : ButtonControl
      +
      1374 STRUCT WMButtonAction &ba
      +
      1375
      +
      1376 switch( ba.eventCode )
      +
      1377 case 2: // mouse up
      +
      1378 preview_crop()
      +
      1379 break
      +
      1380 case -1: // control being killed
      +
      1381 break
      +
      1382 endswitch
      +
      1383
      +
      1384 return 0
      +
      1385End
      +
      +
      1386
      +
      +
      1387static function bp_norm_alpha_preview(ba) : ButtonControl
      +
      1388 STRUCT WMButtonAction &ba
      +
      1389
      +
      1390 switch( ba.eventCode )
      +
      1391 case 2: // mouse up
      +
      1392 preview_norm_alpha()
      +
      1393 break
      +
      1394 case -1: // control being killed
      +
      1395 break
      +
      1396 endswitch
      +
      1397
      +
      1398 return 0
      +
      1399End
      +
      +
      1400
      +
      +
      1401static function bp_norm_phi_preview(ba) : ButtonControl
      +
      1402 STRUCT WMButtonAction &ba
      +
      1403
      +
      1404 switch( ba.eventCode )
      +
      1405 case 2: // mouse up
      +
      1406 preview_norm_phi()
      +
      1407 break
      +
      1408 case -1: // control being killed
      +
      1409 break
      +
      1410 endswitch
      +
      1411
      +
      1412 return 0
      +
      1413End
      +
      +
      1414
      +
      +
      1415static function bp_norm_theta_preview(ba) : ButtonControl
      +
      1416 STRUCT WMButtonAction &ba
      +
      1417
      +
      1418 switch( ba.eventCode )
      +
      1419 case 2: // mouse up
      +
      1420 preview_norm_theta()
      +
      1421 break
      +
      1422 case -1: // control being killed
      +
      1423 break
      +
      1424 endswitch
      +
      1425
      +
      1426 return 0
      +
      1427End
      +
      +
      1428
      +
      +
      1429static function bp_norm_thetaphi_preview(ba) : ButtonControl
      +
      1430 STRUCT WMButtonAction &ba
      +
      1431
      +
      1432 switch( ba.eventCode )
      +
      1433 case 2: // mouse up
      +
      1434 preview_norm_thetaphi()
      +
      1435 break
      +
      1436 case -1: // control being killed
      +
      1437 break
      +
      1438 endswitch
      +
      1439
      +
      1440 return 0
      +
      1441End
      +
      +
      1442
      +
      +
      1443static function bp_output_calc(ba) : ButtonControl
      +
      1444 STRUCT WMButtonAction &ba
      +
      1445
      +
      1446 switch( ba.eventCode )
      +
      1447 case 2: // mouse up
      +
      1448 asp_calculate_output()
      +
      1449 asp_display_output()
      +
      1450 break
      +
      1451 case -1: // control being killed
      +
      1452 break
      +
      1453 endswitch
      +
      1454
      +
      1455 return 0
      +
      1456End
      +
      +
      1457
      +
      +
      1458static function bp_output_duplicate(ba) : ButtonControl
      +
      1459 STRUCT WMButtonAction &ba
      +
      1460
      +
      1461 switch( ba.eventCode )
      +
      1462 case 2: // mouse up
      +
      1463 string dest_folder
      +
      1464 variable do_graph = 1
      +
      1465 prompt dest_folder, "destination folder name (relative to data source)"
      +
      1466 prompt do_graph, "duplicate graph (yes = 1, no = 0)"
      +
      1467 doprompt "duplicate", dest_folder, do_graph
      +
      1468 if (!v_flag)
      +
      1469 asp_duplicate_output(dest_folder, do_graph=do_graph)
      +
      1470 endif
      +
      1471 break
      +
      1472 case -1: // control being killed
      +
      1473 break
      +
      1474 endswitch
      +
      1475
      +
      1476 return 0
      +
      1477End
      +
      +
      1478
      +
      +
      1479static function bp_output_etpi(ba) : ButtonControl
      +
      1480 STRUCT WMButtonAction &ba
      +
      1481
      +
      1482 switch( ba.eventCode )
      +
      1483 case 2: // mouse up
      +
      1484 dfref df = $(package_path)
      +
      1485 wave /sdfr=df process_data
      +
      1486 variable ekin
      +
      1487 ekin = NumberByKey("KineticEnergy", note(process_data), "=", "\r")
      +
      1488 prompt ekin, "kinetic energy"
      +
      1489 doprompt "save etpi", ekin
      +
      1490 if (!v_flag)
      +
      1491 asp_save_output_etpi(ekin)
      +
      1492 endif
      +
      1493 break
      +
      1494 case -1: // control being killed
      +
      1495 break
      +
      1496 endswitch
      +
      1497
      +
      1498 return 0
      +
      1499End
      +
      +
      1500
      +
      +
      1501static function bp_output_itx(ba) : ButtonControl
      +
      1502 STRUCT WMButtonAction &ba
      +
      1503
      +
      1504 switch( ba.eventCode )
      +
      1505 case 2: // mouse up
      +
      1506 asp_save_output_itx()
      +
      1507 break
      +
      1508 case -1: // control being killed
      +
      1509 break
      +
      1510 endswitch
      +
      1511
      +
      1512 return 0
      +
      1513End
      +
      +
      1514
      +
      +
      1515static function bp_graph_update(ba) : ButtonControl
      +
      1516 STRUCT WMButtonAction &ba
      +
      1517
      +
      1518 switch( ba.eventCode )
      +
      1519 case 2: // mouse up
      +
      1520 asp_update_graph()
      +
      1521 break
      +
      1522 case -1: // control being killed
      +
      1523 break
      +
      1524 endswitch
      +
      1525
      +
      1526 return 0
      +
      1527End
      +
      +
      1528
      +
      +
      1529static function bp_graph_png(ba) : ButtonControl
      +
      1530 STRUCT WMButtonAction &ba
      +
      1531
      +
      1532 switch( ba.eventCode )
      +
      1533 case 2: // mouse up
      +
      1534 dfref df = $(package_path)
      +
      1535 svar /sdfr=df source_path
      +
      1536 svar /sdfr=df output_graphname
      +
      1537 if (WinType(output_graphname) == 1)
      +
      1538 SavePICT /WIN=$output_graphname /E=-5 /B=144 /TRAN=0
      +
      1539 endif
      +
      1540 break
      +
      1541 case -1: // control being killed
      +
      1542 break
      +
      1543 endswitch
      +
      1544
      +
      1545 return 0
      +
      1546End
      +
      +
      1547
      +
      +
      1548static function pmp_norm_alpha_mode(pa) : PopupMenuControl
      +
      1549 STRUCT WMPopupAction &pa
      +
      1550
      +
      1551 switch( pa.eventCode )
      +
      1552 case 2: // mouse up
      +
      1553 dfref df = $(package_path)
      +
      1554 nvar /sdfr=df norm_alpha_mode
      +
      1555 norm_alpha_mode = pa.popNum - 1
      +
      1556 break
      +
      1557 case -1: // control being killed
      +
      1558 break
      +
      1559 endswitch
      +
      1560
      +
      1561 return 0
      +
      1562End
      +
      +
      1563
      +
      +
      1564static function pmp_norm_theta_domain(pa) : PopupMenuControl
      +
      1565 STRUCT WMPopupAction &pa
      +
      1566
      +
      1567 switch( pa.eventCode )
      +
      1568 case 2: // mouse up
      +
      1569 dfref df = $(package_path)
      +
      1570 nvar /sdfr=df norm_theta_domain
      +
      1571 norm_theta_domain = pa.popNum - 1
      +
      1572 break
      +
      1573 case -1: // control being killed
      +
      1574 break
      +
      1575 endswitch
      +
      1576
      +
      1577 return 0
      +
      1578End
      +
      +
      1579
      +
      +
      1580static function pmp_norm_theta_mode(pa) : PopupMenuControl
      +
      1581 STRUCT WMPopupAction &pa
      +
      1582
      +
      1583 switch( pa.eventCode )
      +
      1584 case 2: // mouse up
      +
      1585 dfref df = $(package_path)
      +
      1586 nvar /sdfr=df norm_theta_mode
      +
      1587 norm_theta_mode = pa.popNum - 1
      +
      1588 break
      +
      1589 case -1: // control being killed
      +
      1590 break
      +
      1591 endswitch
      +
      1592
      +
      1593 return 0
      +
      1594End
      +
      +
      1595
      +
      +
      1596static function pmp_norm_thetaphi_mode(pa) : PopupMenuControl
      +
      1597 STRUCT WMPopupAction &pa
      +
      1598
      +
      1599 switch( pa.eventCode )
      +
      1600 case 2: // mouse up
      +
      1601 dfref df = $(package_path)
      +
      1602 nvar /sdfr=df norm_thetaphi_mode
      +
      1603 norm_thetaphi_mode = pa.popNum - 1
      +
      1604 break
      +
      1605 case -1: // control being killed
      +
      1606 break
      +
      1607 endswitch
      +
      1608
      +
      1609 return 0
      +
      1610End
      +
      +
      1611
      +
      +
      1612static function pmp_graph_mode(pa) : PopupMenuControl
      +
      1613 STRUCT WMPopupAction &pa
      +
      1614
      +
      1615 switch( pa.eventCode )
      +
      1616 case 2: // mouse up
      +
      1617 dfref df = $(package_path)
      +
      1618 nvar /sdfr=df graph_mode
      +
      1619 graph_mode = pa.popNum - 1
      +
      1620 break
      +
      1621 case -1: // control being killed
      +
      1622 break
      +
      1623 endswitch
      +
      1624
      +
      1625 return 0
      +
      1626End
      +
      +
      1627
      +
      +
      1628static function pmp_graph_projection(pa) : PopupMenuControl
      +
      1629 STRUCT WMPopupAction &pa
      +
      1630
      +
      1631 switch( pa.eventCode )
      +
      1632 case 2: // mouse up
      +
      1633 dfref df = $(package_path)
      +
      1634 nvar /sdfr=df graph_projection
      +
      1635 graph_projection = pa.popNum - 1
      +
      1636 break
      +
      1637 case -1: // control being killed
      +
      1638 break
      +
      1639 endswitch
      +
      1640
      +
      1641 return 0
      +
      1642End
      +
      +
      1643
      +
      +
      1644static function pmp_graph_colortable(pa) : PopupMenuControl
      +
      1645 STRUCT WMPopupAction &pa
      +
      1646
      +
      1647 switch( pa.eventCode )
      +
      1648 case 2: // mouse up
      +
      1649 dfref df = $(package_path)
      +
      1650 svar /sdfr=df graph_colortable
      +
      1651 graph_colortable = StringFromList(pa.popNum - 1, CTabList())
      +
      1652 asp_update_graph()
      +
      1653 break
      +
      1654 case -1: // control being killed
      +
      1655 break
      +
      1656 endswitch
      +
      1657
      +
      1658 return 0
      +
      1659End
      +
      +
      PearlAnglescanPanel
      interactive processing of angle scanned XPD data.
      +
      pmp_norm_theta_domain
      static variable pmp_norm_theta_domain(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1564
      +
      bp_norm_theta_check
      static variable bp_norm_theta_check(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1331
      +
      bp_output_itx
      static variable bp_output_itx(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1501
      +
      preview_norm_phi
      static variable preview_norm_phi()
      Definition pearl-anglescan-panel.ipf:880
      +
      asp_save_output_itx
      variable asp_save_output_itx()
      save the output diffractogram to an igor text file
      Definition pearl-anglescan-panel.ipf:804
      +
      delete_rows
      static variable delete_rows(string rows, wave data, wave theta, wave tilt, wave phi)
      delete individual rows from the data strip
      Definition pearl-anglescan-panel.ipf:409
      +
      bp_output_etpi
      static variable bp_output_etpi(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1479
      +
      do_init_process
      static variable do_init_process(variable check)
      initialize the process data with a copy of the raw data.
      Definition pearl-anglescan-panel.ipf:321
      +
      bp_load_prefs
      static variable bp_load_prefs(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1242
      +
      pmp_graph_mode
      static variable pmp_graph_mode(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1612
      +
      bp_source_select
      static variable bp_source_select(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1270
      +
      asp_import_raw
      variable asp_import_raw(wave raw_data)
      import raw data
      Definition pearl-anglescan-panel.ipf:207
      +
      preview_crop
      static variable preview_crop()
      Definition pearl-anglescan-panel.ipf:867
      +
      pmp_norm_thetaphi_mode
      static variable pmp_norm_thetaphi_mode(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1596
      +
      preview_norm_thetaphi
      static variable preview_norm_thetaphi()
      Definition pearl-anglescan-panel.ipf:894
      +
      asp_show_panel
      variable asp_show_panel()
      create the angle scan processing panel
      Definition pearl-anglescan-panel.ipf:903
      +
      init_package
      static variable init_package()
      Definition pearl-anglescan-panel.ipf:78
      +
      check_norm_thetaphi
      static variable check_norm_thetaphi()
      Definition pearl-anglescan-panel.ipf:860
      +
      bp_crop_preview
      static variable bp_crop_preview(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1373
      +
      asp_display_dist_check
      variable asp_display_dist_check(variable xdist, variable ydist)
      display a graph window of the distribution checks.
      Definition pearl-anglescan-panel.ipf:276
      +
      bp_norm_alpha_check
      static variable bp_norm_alpha_check(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1317
      +
      arrange_controls
      static variable arrange_controls()
      Definition pearl-anglescan-panel.ipf:1055
      +
      asp_display_previews
      variable asp_display_previews()
      display a graph window of the processed data.
      Definition pearl-anglescan-panel.ipf:252
      +
      bp_norm_phi_preview
      static variable bp_norm_phi_preview(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1401
      +
      package_path
      static const string package_path
      data folder path
      Definition pearl-anglescan-panel.ipf:50
      +
      do_norm_phi
      static variable do_norm_phi(variable check, variable force=defaultValue)
      phi-normalize the process data.
      Definition pearl-anglescan-panel.ipf:497
      +
      bp_source_update
      static variable bp_source_update(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1296
      +
      do_norm_theta
      static variable do_norm_theta(variable check, variable force=defaultValue)
      theta-normalize the process data.
      Definition pearl-anglescan-panel.ipf:540
      +
      update_menus
      static variable update_menus()
      update the popup menus to reflect the values of the global variables
      Definition pearl-anglescan-panel.ipf:1213
      +
      bp_norm_thetaphi_check
      static variable bp_norm_thetaphi_check(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1359
      +
      AfterCompiledHook
      static variable AfterCompiledHook()
      initialize package data once when the procedure is first loaded
      Definition pearl-anglescan-panel.ipf:53
      +
      asp_display_output
      string asp_display_output(dfref data_df=defaultValue, string data_name=defaultValue)
      display the output diffractogram
      Definition pearl-anglescan-panel.ipf:669
      +
      do_norm_alpha
      static variable do_norm_alpha(variable check, variable force=defaultValue)
      alpha-normalize the process data.
      Definition pearl-anglescan-panel.ipf:456
      +
      check_norm_phi
      static variable check_norm_phi()
      Definition pearl-anglescan-panel.ipf:846
      +
      load_prefs
      static variable load_prefs()
      load persistent package data from the preferences file.
      Definition pearl-anglescan-panel.ipf:171
      +
      asp_update_graph
      variable asp_update_graph()
      update graphs with new color table or contrast
      Definition pearl-anglescan-panel.ipf:713
      +
      bp_graph_update
      static variable bp_graph_update(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1515
      +
      bp_graph_png
      static variable bp_graph_png(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1529
      +
      bp_norm_thetaphi_preview
      static variable bp_norm_thetaphi_preview(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1429
      +
      bp_norm_alpha_preview
      static variable bp_norm_alpha_preview(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1387
      +
      asp_close_graphs
      variable asp_close_graphs()
      close all graphs created by the angle scan panel
      Definition pearl-anglescan-panel.ipf:731
      +
      asp_save_output_etpi
      variable asp_save_output_etpi(variable ekin)
      save the output diffractogram to a PMSCO ETPI file
      Definition pearl-anglescan-panel.ipf:819
      +
      preview_norm_theta
      static variable preview_norm_theta()
      Definition pearl-anglescan-panel.ipf:887
      +
      save_prefs
      static variable save_prefs()
      save persistent package data to the preferences file.
      Definition pearl-anglescan-panel.ipf:145
      +
      pmp_graph_colortable
      static variable pmp_graph_colortable(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1644
      +
      package_name
      static const string package_name
      package name is used as data folder name
      Definition pearl-anglescan-panel.ipf:48
      +
      pmp_norm_alpha_mode
      static variable pmp_norm_alpha_mode(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1548
      +
      preview_norm_alpha
      static variable preview_norm_alpha()
      Definition pearl-anglescan-panel.ipf:873
      +
      bp_save_prefs
      static variable bp_save_prefs(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1256
      +
      check_norm_theta
      static variable check_norm_theta()
      Definition pearl-anglescan-panel.ipf:853
      +
      bp_output_calc
      static variable bp_output_calc(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1443
      +
      asp_duplicate_output
      string asp_duplicate_output(string dest_name, variable do_graph=defaultValue)
      copy the output data to a new folder
      Definition pearl-anglescan-panel.ipf:771
      +
      bp_norm_phi_check
      static variable bp_norm_phi_check(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1345
      +
      pmp_norm_theta_mode
      static variable pmp_norm_theta_mode(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1580
      +
      bp_output_duplicate
      static variable bp_output_duplicate(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1458
      +
      asp_calculate_output
      variable asp_calculate_output()
      calculate the output using all enabled processing filters.
      Definition pearl-anglescan-panel.ipf:623
      +
      do_crop
      static variable do_crop(variable check, variable force=defaultValue)
      crop the process data.
      Definition pearl-anglescan-panel.ipf:361
      +
      check_norm_alpha
      static variable check_norm_alpha()
      Definition pearl-anglescan-panel.ipf:839
      +
      bp_norm_theta_preview
      static variable bp_norm_theta_preview(WMButtonAction *ba)
      Definition pearl-anglescan-panel.ipf:1415
      +
      do_norm_thetaphi
      static variable do_norm_thetaphi(variable check, variable force=defaultValue)
      theta,phi-normalize the process data.
      Definition pearl-anglescan-panel.ipf:587
      +
      pmp_graph_projection
      static variable pmp_graph_projection(WMPopupAction *pa)
      Definition pearl-anglescan-panel.ipf:1628
      +
      pizza_service_2
      variable pizza_service_2(wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition pearl-anglescan-process.ipf:936
      +
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition pearl-anglescan-process.ipf:252
      +
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition pearl-anglescan-process.ipf:3097
      +
      normalize_strip_theta_scans
      variable normalize_strip_theta_scans(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip piecewise by a smooth polar distribution.
      Definition pearl-anglescan-process.ipf:594
      +
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition pearl-anglescan-process.ipf:433
      +
      find_hemi_data
      dfr find_hemi_data(string nickname, string *prefix, string *intwave)
      finds the folder, prefix and name of holo waves given their nick name
      Definition pearl-anglescan-process.ipf:1572
      +
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition pearl-anglescan-process.ipf:1653
      +
      crop_strip_theta
      variable crop_strip_theta(wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
      crop a strip in theta.
      Definition pearl-anglescan-process.ipf:779
      +
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition pearl-anglescan-process.ipf:348
      +
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition pearl-anglescan-process.ipf:747
      +
      kProjStereo
      const variable kProjStereo
      Definition pearl-anglescan-process.ipf:2343
      +
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition pearl-anglescan-process.ipf:2920
      +
      normalize_strip_thetaphi
      variable normalize_strip_thetaphi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a smooth polar-azimuthal distribution.
      Definition pearl-anglescan-process.ipf:533
      +
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition pearl-anglescan-process.ipf:1858
      +
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition pearl-anglescan-process.ipf:3463
      +
      prefs_objects
      static const string prefs_objects
      semicolon-separated list of persistent variable, string, and wave names
      Definition pearl-anglescan-tracker.ipf:71
      +
      ad_display_profiles
      string ad_display_profiles(wave image, string filter=defaultValue)
      open a new profiles graph window.
      Definition pearl-area-display.ipf:168
      +
      ad_update_profiles
      variable ad_update_profiles(wave image)
      update a profiles graph with new data.
      Definition pearl-area-display.ipf:377
      +
      pmsco_save_scan
      string pmsco_save_scan(string pathname, string filename, string energy, string theta, string phi, string alpha, string intensity, string sigma, dfref sdfr=defaultValue)
      save waves in a PMSCO scan data file.
      Definition pearl-pmsco-import.ipf:89
      -
      pmp_graph_colortable
      static variable pmp_graph_colortable(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1644
      -
      preview_norm_thetaphi
      static variable preview_norm_thetaphi()
      Definition: pearl-anglescan-panel.ipf:894
      -
      asp_save_output_etpi
      variable asp_save_output_etpi(variable ekin)
      save the output diffractogram to a PMSCO ETPI file
      Definition: pearl-anglescan-panel.ipf:819
      -
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition: pearl-anglescan-process.ipf:747
      -
      bp_norm_phi_preview
      static variable bp_norm_phi_preview(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1401
      -
      bp_norm_thetaphi_preview
      static variable bp_norm_thetaphi_preview(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1429
      -
      pizza_service_2
      variable pizza_service_2(wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition: pearl-anglescan-process.ipf:936
      -
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition: pearl-anglescan-process.ipf:433
      -
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition: pearl-anglescan-process.ipf:252
      -
      asp_update_graph
      variable asp_update_graph()
      update graphs with new color table or contrast
      Definition: pearl-anglescan-panel.ipf:713
      -
      bp_load_prefs
      static variable bp_load_prefs(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1242
      -
      AfterCompiledHook
      static variable AfterCompiledHook()
      initialize package data once when the procedure is first loaded
      Definition: pearl-anglescan-panel.ipf:53
      -
      check_norm_theta
      static variable check_norm_theta()
      Definition: pearl-anglescan-panel.ipf:853
      -
      asp_import_raw
      variable asp_import_raw(wave raw_data)
      import raw data
      Definition: pearl-anglescan-panel.ipf:207
      -
      do_norm_alpha
      static variable do_norm_alpha(variable check, variable force=defaultValue)
      alpha-normalize the process data.
      Definition: pearl-anglescan-panel.ipf:456
      -
      do_crop
      static variable do_crop(variable check, variable force=defaultValue)
      crop the process data.
      Definition: pearl-anglescan-panel.ipf:361
      -
      bp_output_etpi
      static variable bp_output_etpi(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1479
      -
      bp_norm_alpha_preview
      static variable bp_norm_alpha_preview(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1387
      -
      package_path
      static const string package_path
      data folder path
      Definition: pearl-anglescan-panel.ipf:50
      -
      asp_show_panel
      variable asp_show_panel()
      create the angle scan processing panel
      Definition: pearl-anglescan-panel.ipf:903
      -
      do_init_process
      static variable do_init_process(variable check)
      initialize the process data with a copy of the raw data.
      Definition: pearl-anglescan-panel.ipf:321
      -
      bp_norm_theta_preview
      static variable bp_norm_theta_preview(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1415
      -
      normalize_strip_theta_scans
      variable normalize_strip_theta_scans(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip piecewise by a smooth polar distribution.
      Definition: pearl-anglescan-process.ipf:594
      -
      crop_strip_theta
      variable crop_strip_theta(wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
      crop a strip in theta.
      Definition: pearl-anglescan-process.ipf:779
      -
      pmp_norm_alpha_mode
      static variable pmp_norm_alpha_mode(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1548
      -
      asp_display_previews
      variable asp_display_previews()
      display a graph window of the processed data.
      Definition: pearl-anglescan-panel.ipf:252
      -
      asp_display_dist_check
      variable asp_display_dist_check(variable xdist, variable ydist)
      display a graph window of the distribution checks.
      Definition: pearl-anglescan-panel.ipf:276
      -
      ad_update_profiles
      variable ad_update_profiles(wave image)
      update a profiles graph with new data.
      Definition: pearl-area-display.ipf:377
      -
      bp_norm_theta_check
      static variable bp_norm_theta_check(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1331
      -
      find_hemi_data
      dfr find_hemi_data(string nickname, string *prefix, string *intwave)
      finds the folder, prefix and name of holo waves given their nick name
      Definition: pearl-anglescan-process.ipf:1572
      -
      check_norm_alpha
      static variable check_norm_alpha()
      Definition: pearl-anglescan-panel.ipf:839
      -
      asp_duplicate_output
      string asp_duplicate_output(string dest_name, variable do_graph=defaultValue)
      copy the output data to a new folder
      Definition: pearl-anglescan-panel.ipf:771
      -
      bp_output_itx
      static variable bp_output_itx(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1501
      -
      pmp_graph_mode
      static variable pmp_graph_mode(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1612
      -
      bp_norm_alpha_check
      static variable bp_norm_alpha_check(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1317
      -
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition: pearl-anglescan-process.ipf:2920
      -
      preview_norm_phi
      static variable preview_norm_phi()
      Definition: pearl-anglescan-panel.ipf:880
      -
      pmp_norm_thetaphi_mode
      static variable pmp_norm_thetaphi_mode(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1596
      -
      bp_save_prefs
      static variable bp_save_prefs(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1256
      -
      load_prefs
      static variable load_prefs()
      load persistent package data from the preferences file.
      Definition: pearl-anglescan-panel.ipf:171
      -
      update_menus
      static variable update_menus()
      update the popup menus to reflect the values of the global variables
      Definition: pearl-anglescan-panel.ipf:1213
      -
      bp_source_update
      static variable bp_source_update(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1296
      -
      do_norm_phi
      static variable do_norm_phi(variable check, variable force=defaultValue)
      phi-normalize the process data.
      Definition: pearl-anglescan-panel.ipf:497
      -
      do_norm_theta
      static variable do_norm_theta(variable check, variable force=defaultValue)
      theta-normalize the process data.
      Definition: pearl-anglescan-panel.ipf:540
      -
      pmsco_save_scan
      string pmsco_save_scan(string pathname, string filename, string energy, string theta, string phi, string alpha, string intensity, string sigma, dfref sdfr=defaultValue)
      save waves in a PMSCO scan data file.
      Definition: pearl-pmsco-import.ipf:89
      -
      pmp_norm_theta_mode
      static variable pmp_norm_theta_mode(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1580
      -
      prefs_objects
      static const string prefs_objects
      semicolon-separated list of persistent variable, string, and wave names
      Definition: pearl-anglescan-tracker.ipf:71
      -
      asp_close_graphs
      variable asp_close_graphs()
      close all graphs created by the angle scan panel
      Definition: pearl-anglescan-panel.ipf:731
      -
      init_package
      static variable init_package()
      Definition: pearl-anglescan-panel.ipf:78
      -
      check_norm_thetaphi
      static variable check_norm_thetaphi()
      Definition: pearl-anglescan-panel.ipf:860
      -
      delete_rows
      static variable delete_rows(string rows, wave data, wave theta, wave tilt, wave phi)
      delete individual rows from the data strip
      Definition: pearl-anglescan-panel.ipf:409
      -
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition: pearl-anglescan-process.ipf:3463
      -
      pmp_graph_projection
      static variable pmp_graph_projection(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1628
      -
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition: pearl-anglescan-process.ipf:3097
      -
      check_norm_phi
      static variable check_norm_phi()
      Definition: pearl-anglescan-panel.ipf:846
      -
      kProjStereo
      const variable kProjStereo
      Definition: pearl-anglescan-process.ipf:2343
      -
      normalize_strip_thetaphi
      variable normalize_strip_thetaphi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a smooth polar-azimuthal distribution.
      Definition: pearl-anglescan-process.ipf:533
      -
      preview_norm_alpha
      static variable preview_norm_alpha()
      Definition: pearl-anglescan-panel.ipf:873
      -
      arrange_controls
      static variable arrange_controls()
      Definition: pearl-anglescan-panel.ipf:1055
      -
      do_norm_thetaphi
      static variable do_norm_thetaphi(variable check, variable force=defaultValue)
      theta,phi-normalize the process data.
      Definition: pearl-anglescan-panel.ipf:587
      -
      pmp_norm_theta_domain
      static variable pmp_norm_theta_domain(WMPopupAction *pa)
      Definition: pearl-anglescan-panel.ipf:1564
      -
      bp_graph_update
      static variable bp_graph_update(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1515
      -
      save_prefs
      static variable save_prefs()
      save persistent package data to the preferences file.
      Definition: pearl-anglescan-panel.ipf:145
      -
      bp_output_calc
      static variable bp_output_calc(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1443
      -
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition: pearl-anglescan-process.ipf:1653
      -
      asp_calculate_output
      variable asp_calculate_output()
      calculate the output using all enabled processing filters.
      Definition: pearl-anglescan-panel.ipf:623
      -
      bp_output_duplicate
      static variable bp_output_duplicate(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1458
      -
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition: pearl-anglescan-process.ipf:348
      -
      bp_norm_thetaphi_check
      static variable bp_norm_thetaphi_check(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1359
      -
      bp_graph_png
      static variable bp_graph_png(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1529
      -
      asp_save_output_itx
      variable asp_save_output_itx()
      save the output diffractogram to an igor text file
      Definition: pearl-anglescan-panel.ipf:804
      -
      bp_norm_phi_check
      static variable bp_norm_phi_check(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1345
      -
      ad_display_profiles
      string ad_display_profiles(wave image, string filter=defaultValue)
      open a new profiles graph window.
      Definition: pearl-area-display.ipf:168
      -
      preview_norm_theta
      static variable preview_norm_theta()
      Definition: pearl-anglescan-panel.ipf:887
      -
      preview_crop
      static variable preview_crop()
      Definition: pearl-anglescan-panel.ipf:867
      -
      asp_display_output
      string asp_display_output(dfref data_df=defaultValue, string data_name=defaultValue)
      display the output diffractogram
      Definition: pearl-anglescan-panel.ipf:669
      -
      package_name
      static const string package_name
      package name is used as data folder name
      Definition: pearl-anglescan-panel.ipf:48
      -
      bp_crop_preview
      static variable bp_crop_preview(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1373
      -
      bp_source_select
      static variable bp_source_select(WMButtonAction *ba)
      Definition: pearl-anglescan-panel.ipf:1270
      -
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition: pearl-anglescan-process.ipf:1858
      -
      PearlAnglescanPanel
      interactive processing of angle scanned XPD data.
      diff --git a/doc/html/pearl-anglescan-process_8ipf.html b/doc/html/pearl-anglescan-process_8ipf.html index 36468a1..4241ca8 100644 --- a/doc/html/pearl-anglescan-process_8ipf.html +++ b/doc/html/pearl-anglescan-process_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-process.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,9 +77,16 @@ $(document).ready(function(){initNavTree('pearl-anglescan-process_8ipf.html','')
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      @@ -87,8 +94,7 @@ $(document).ready(function(){initNavTree('pearl-anglescan-process_8ipf.html','') Namespaces | Functions | Variables
      -
      -
      pearl-anglescan-process.ipf File Reference
      ARPES package
      +
      pearl-anglescan-process.ipf File Reference
      ARPES package
      @@ -100,195 +106,195 @@ $(document).ready(function(){initNavTree('pearl-anglescan-process_8ipf.html','')

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlAnglescanProcess
      namespace  PearlAnglescanProcess
       processing and holographic mapping of angle scanned XPD data.
       
      - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - - + + - - + +

      +

      Functions

      string strip_append (wave strip1, wave strip2)
       append an angle scan strip to another one More...
      string strip_append (wave strip1, wave strip2)
       append an angle scan strip to another one
       
      variable strip_delete_frames (wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi)
       delete a contiguous range of frames from a strip. More...
      variable strip_delete_frames (wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi)
       delete a contiguous range of frames from a strip.
       
      variable normalize_strip_x (wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by the average X distribution. More...
      variable normalize_strip_x (wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by the average X distribution.
       
      variable normalize_strip_phi (wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
       divide the strip by a sine function in phi (wobble correction). More...
      variable normalize_strip_phi (wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
       divide the strip by a sine function in phi (wobble correction).
       
      variable normalize_strip_theta (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by the average polar distribution. More...
      variable normalize_strip_theta (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by the average polar distribution.
       
      variable normalize_strip_thetaphi (wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by a smooth polar-azimuthal distribution. More...
      variable normalize_strip_thetaphi (wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by a smooth polar-azimuthal distribution.
       
      variable normalize_strip_theta_scans (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip piecewise by a smooth polar distribution. More...
      variable normalize_strip_theta_scans (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip piecewise by a smooth polar distribution.
       
      variable normalize_strip_2d (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by a two-dimensional normalization function. More...
      variable normalize_strip_2d (wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
       divide the strip by a two-dimensional normalization function.
       
      variable crop_strip (wave strip, variable xlo, variable xhi)
       crop a strip at the sides. More...
      variable crop_strip (wave strip, variable xlo, variable xhi)
       crop a strip at the sides.
       
      variable crop_strip_theta (wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
       crop a strip in theta. More...
      variable crop_strip_theta (wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
       crop a strip in theta.
       
      variable pizza_service (wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
       create a pizza plot from a measured (energy-integrated) data strip More...
      variable pizza_service (wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
       create a pizza plot from a measured (energy-integrated) data strip
       
      variable pizza_service_2 (wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
       create a pizza plot from a measured (energy-integrated) data strip More...
      variable pizza_service_2 (wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
       create a pizza plot from a measured (energy-integrated) data strip
       
      variable show_analyser_line (variable theta, variable tilt, variable phi, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
       calculate and display the line seen by the analyser for a specific emission angle More...
      variable show_analyser_line (variable theta, variable tilt, variable phi, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
       calculate and display the line seen by the analyser for a specific emission angle
       
      variable convert_angles_ttpd2polar (wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
       convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates. More...
      variable convert_angles_ttpd2polar (wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
       convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
       
      variable convert_angles_ttpa2polar (wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
       convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates. More...
      variable convert_angles_ttpa2polar (wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
       convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
       
      static variable line_average (wave source, wave dest)
      static variable line_average (wave source, wave dest)
       
      static variable calc_nth (variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, string Holomode)
       calculate the number of phis for a given theta More...
      static variable calc_nth (variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, string Holomode)
       calculate the number of phis for a given theta
       
      static variable calc_phi_step (variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, string Holomode)
       calculate delta-phi for a given theta More...
      static variable calc_phi_step (variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, string Holomode)
       calculate delta-phi for a given theta
       
      static variable Calc_The_step (variable th, variable Theta_st, string Holomode)
       calculate delta-theta for a given theta More...
      static variable Calc_The_step (variable th, variable Theta_st, string Holomode)
       calculate delta-theta for a given theta
       
      static variable CalcN_Theta (string HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st)
       calculate the number of thetas for a pattern More...
      static variable CalcN_Theta (string HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st)
       calculate the number of thetas for a pattern
       
      variable make_hemi_grid (variable npol, string nickname, variable xpdplot=defaultValue)
       create a hemispherical, constant solid angle grid More...
      variable make_hemi_grid (variable npol, string nickname, variable xpdplot=defaultValue)
       create a hemispherical, constant solid angle grid
       
      string get_hemi_nickname (wave w)
       finds the nick name given any hemi wave More...
      string get_hemi_nickname (wave w)
       finds the nick name given any hemi wave
       
      string get_hemi_prefix (wave w)
       finds the prefix given any hemi wave More...
      string get_hemi_prefix (wave w)
       finds the prefix given any hemi wave
       
      dfr find_hemi_data (string nickname, string *prefix, string *intwave)
       finds the folder, prefix and name of holo waves given their nick name More...
      dfr find_hemi_data (string nickname, string *prefix, string *intwave)
       finds the folder, prefix and name of holo waves given their nick name
       
      variable clear_hemi_grid (string nickname)
       clear a hemispherical scan grid More...
      variable clear_hemi_grid (string nickname)
       clear a hemispherical scan grid
       
      variable duplicate_hemi_scan (string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
       duplicate a hemispherical scan dataset. More...
      variable duplicate_hemi_scan (string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
       duplicate a hemispherical scan dataset.
       
      variable rotate_hemi_scan (string nickname, variable angle)
       azimuthally rotate a hemispherical scan dataset. More...
      variable rotate_hemi_scan (string nickname, variable angle)
       azimuthally rotate a hemispherical scan dataset.
       
      string prepare_hemi_scan_display (string nickname, variable projection=defaultValue)
       create waves for plotting a hemispherical angle scan. More...
      string prepare_hemi_scan_display (string nickname, variable projection=defaultValue)
       create waves for plotting a hemispherical angle scan.
       
      string display_hemi_scan (string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
       display a plot of a hemispherical angle scan. More...
      string display_hemi_scan (string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
       display a plot of a hemispherical angle scan.
       
      static string display_polar_graph (string graphname, variable angle_offset=defaultValue, variable do_ticks=defaultValue)
       displays an empty polar graph More...
      static string display_polar_graph (string graphname, variable angle_offset=defaultValue, variable do_ticks=defaultValue)
       displays an empty polar graph
       
      static string draw_hemi_axes (string graphname, variable do_grids=defaultValue)
       draw polar and azimuthal grids in an existing polar graph. More...
      static string draw_hemi_axes (string graphname, variable do_grids=defaultValue)
       draw polar and azimuthal grids in an existing polar graph.
       
      variable draw_diffraction_cone (string graphname, string groupname, variable theta_axis, variable theta_inner, variable phi)
       draw the circle of a diffraction cone in a stereographic polar graph. More...
      variable draw_diffraction_cone (string graphname, string groupname, variable theta_axis, variable theta_inner, variable phi)
       draw the circle of a diffraction cone in a stereographic polar graph.
       
      string display_scanlines (string nickname, variable alpha_lo, variable alpha_hi, wave m_theta, wave m_tilt, wave m_phi, variable folding=defaultValue, variable projection=defaultValue)
       display a polar graph with lines indicating the angles covered by an angle scan. More...
      string display_scanlines (string nickname, variable alpha_lo, variable alpha_hi, wave m_theta, wave m_tilt, wave m_phi, variable folding=defaultValue, variable projection=defaultValue)
       display a polar graph with lines indicating the angles covered by an angle scan.
       
      threadsafe variable calc_graph_radius (variable polar, variable projection=defaultValue)
       calculate the projected polar angle More...
      threadsafe variable calc_graph_radius (variable polar, variable projection=defaultValue)
       calculate the projected polar angle
       
      threadsafe variable calc_graph_polar (variable x, variable y, variable projection=defaultValue)
       calculate polar angle from Cartesian coordinate More...
      threadsafe variable calc_graph_polar (variable x, variable y, variable projection=defaultValue)
       calculate polar angle from Cartesian coordinate
       
      threadsafe variable calc_graph_azi (variable x, variable y, variable projection=defaultValue, variable zeroAngle=defaultValue)
       calculate azimuthal angle from Cartesian coordinate More...
      threadsafe variable calc_graph_azi (variable x, variable y, variable projection=defaultValue, variable zeroAngle=defaultValue)
       calculate azimuthal angle from Cartesian coordinate
       
      static variable update_polar_info (string graphname)
       update the angles info based on cursors A and B of a given polar graph window More...
      static variable update_polar_info (string graphname)
       update the angles info based on cursors A and B of a given polar graph window
       
      static variable polar_graph_hook (WMWinHookStruct *s)
       polar graph window hook More...
      static variable polar_graph_hook (WMWinHookStruct *s)
       polar graph window hook
       
      variable set_polar_graph_cursor (string nickname, string cursorname, variable polar_angle, variable azim_angle, string graphname=defaultValue)
      variable set_polar_graph_cursor (string nickname, string cursorname, variable polar_angle, variable azim_angle, string graphname=defaultValue)
       
      variable hemi_add_anglescan (string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
       add arbitrary angle scan data to a hemispherical scan grid. More...
      variable hemi_add_anglescan (string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
       add arbitrary angle scan data to a hemispherical scan grid.
       
      static threadsafe dfr add_anglescan_worker (variable ith, wave values, wave weights, wave polar, wave azi, wave w_polar, wave w_azim, wave w_theta, wave w_index, wave w_dphi, wave w_nphis)
       thread worker for hemi_add_anglescan More...
      static threadsafe dfr add_anglescan_worker (variable ith, wave values, wave weights, wave polar, wave azi, wave w_polar, wave w_azim, wave w_theta, wave w_index, wave w_dphi, wave w_nphis)
       thread worker for hemi_add_anglescan
       
      static threadsafe variable add_aziscan_core (wave values, wave weights, variable polar, wave azi, wave w_theta, wave w_azim, wave w_index, wave w_dphi, wave w_totals, wave w_weights)
       thread worker for hemi_add_anglescan and hemi_add_aziscan More...
      static threadsafe variable add_aziscan_core (wave values, wave weights, variable polar, wave azi, wave w_theta, wave w_azim, wave w_index, wave w_dphi, wave w_totals, wave w_weights)
       thread worker for hemi_add_anglescan and hemi_add_aziscan
       
      variable hemi_add_aziscan (string nickname, wave values, variable polar, wave azi, wave weights=defaultValue)
       add azimuthal data to a hemispherical scan grid. More...
      variable hemi_add_aziscan (string nickname, wave values, variable polar, wave azi, wave weights=defaultValue)
       add azimuthal data to a hemispherical scan grid.
       
      variable interpolate_hemi_scan (string nickname, variable projection=defaultValue)
       interpolate a hemispherical scan onto a rectangular grid More...
      variable interpolate_hemi_scan (string nickname, variable projection=defaultValue)
       interpolate a hemispherical scan onto a rectangular grid
       
      variable quick_pizza_image (wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue)
       map angle scan data onto a rectangular grid in stereographic projection More...
      variable quick_pizza_image (wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue)
       map angle scan data onto a rectangular grid in stereographic projection
       
      variable save_hemi_scan (string nickname, string pathname, string filename)
       save a hemispherical scan to an Igor text file More...
      variable save_hemi_scan (string nickname, string pathname, string filename)
       save a hemispherical scan to an Igor text file
       
      variable load_hemi_scan (string nickname, string pathname, string filename)
       load a hemispherical scan from an Igor text file More...
      variable load_hemi_scan (string nickname, string pathname, string filename)
       load a hemispherical scan from an Igor text file
       
      variable import_tpi_scan (string nickname, wave theta, wave phi, wave intensity, variable folding=defaultValue, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
       import a hemispherical scan from theta-phi-intensity waves and display it More...
      variable import_tpi_scan (string nickname, wave theta, wave phi, wave intensity, variable folding=defaultValue, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
       import a hemispherical scan from theta-phi-intensity waves and display it
       
      variable trim_hemi_scan (string nickname, variable theta_max)
       trim a hemispherical scan at grazing angle More...
      variable trim_hemi_scan (string nickname, variable theta_max)
       trim a hemispherical scan at grazing angle
       
      wave hemi_polar_cut (string nickname, variable azim)
       extract a polar cut from a hemispherical scan. More...
      wave hemi_polar_cut (string nickname, variable azim)
       extract a polar cut from a hemispherical scan.
       
      wave hemi_azi_cut (string nickname, variable pol)
       extract an azimuthal cut from a hemispherical scan More...
      wave hemi_azi_cut (string nickname, variable pol)
       extract an azimuthal cut from a hemispherical scan
       
      static variable check_contrast (wave values, variable pcmin, variable pcmax, variable *vmin, variable *vmax, variable sym)
      static variable check_contrast (wave values, variable pcmin, variable pcmax, variable *vmin, variable *vmax, variable sym)
       
      variable set_contrast (variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
       set the pseudocolor contrast by percentile. More...
      variable set_contrast (variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
       set the pseudocolor contrast by percentile.
       
      variable AngleToK (wave inwave)
       k-space mapping of 2D angle-energy distribution (scienta image) More...
      variable AngleToK (wave inwave)
       k-space mapping of 2D angle-energy distribution (scienta image)
       
      - - + - + - + - + - + - + - + - + - + - +

      +

      Variables

      const variable kProjDist = 0
      const variable kProjDist = 0
       
      const variable kProjStereo = 1
      const variable kProjStereo = 1
       
      const variable kProjArea = 2
      const variable kProjArea = 2
       
      const variable kProjGnom = 3
      const variable kProjGnom = 3
       
      const variable kProjOrtho = 4
      const variable kProjOrtho = 4
       
      static const variable kProjScaleDist = 2
      static const variable kProjScaleDist = 2
       
      static const variable kProjScaleStereo = 2
      static const variable kProjScaleStereo = 2
       
      static const variable kProjScaleArea = 2
      static const variable kProjScaleArea = 2
       
      static const variable kProjScaleGnom = 0.06744519021
      static const variable kProjScaleGnom = 0.06744519021
       
      static const variable kProjScaleOrtho = 2
      static const variable kProjScaleOrtho = 2
       

      Detailed Description

      @@ -303,7 +309,7 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to *

      valid for theta_manipulator = normal emission only: (to be revised - v1.6) 

      *      theta_sample = | -(tilt_manipulator - tilt_offset) |
 *      phi_sample = 270 if tilt_manipulator - tilt_offset > 0
 *      phi_sample = 90 if tilt_manipulator - tilt_offset < 0
-*
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      +*
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      Copyright
      2013-21 Paul Scherrer Institut
      Licensed under the Apache License, Version 2.0 (the "License");
      you may not use this file except in compliance with the License.
      @@ -312,8 +318,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to

      Definition in file pearl-anglescan-process.ipf.

      Function Documentation

      - -

      ◆ add_anglescan_worker()

      + +

      ◆ add_anglescan_worker()

      @@ -408,8 +414,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ add_aziscan_core()

      + +

      ◆ add_aziscan_core()

      @@ -499,8 +505,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ AngleToK()

      + +

      ◆ AngleToK()

      @@ -529,8 +535,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ calc_graph_azi()

      + +

      ◆ calc_graph_azi()

      @@ -594,8 +600,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ calc_graph_polar()

      + +

      ◆ calc_graph_polar()

      @@ -648,8 +654,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ calc_graph_radius()

      + +

      ◆ calc_graph_radius()

      @@ -695,8 +701,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ calc_nth()

      + +

      ◆ calc_nth()

      @@ -760,8 +766,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ calc_phi_step()

      + +

      ◆ calc_phi_step()

      @@ -825,8 +831,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ Calc_The_step()

      + +

      ◆ Calc_The_step()

      @@ -872,8 +878,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ CalcN_Theta()

      + +

      ◆ CalcN_Theta()

      @@ -925,8 +931,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ check_contrast()

      + +

      ◆ check_contrast()

      @@ -987,8 +993,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ clear_hemi_grid()

      + +

      ◆ clear_hemi_grid()

      @@ -1016,8 +1022,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ convert_angles_ttpa2polar()

      + +

      ◆ convert_angles_ttpa2polar()

      @@ -1085,8 +1091,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ convert_angles_ttpd2polar()

      + +

      ◆ convert_angles_ttpd2polar()

      @@ -1142,8 +1148,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ crop_strip()

      + +

      ◆ crop_strip()

      @@ -1190,8 +1196,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ crop_strip_theta()

      + +

      ◆ crop_strip_theta()

      @@ -1258,8 +1264,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ display_hemi_scan()

      + +

      ◆ display_hemi_scan()

      @@ -1349,8 +1355,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ display_polar_graph()

      + +

      ◆ display_polar_graph()

      @@ -1419,8 +1425,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ display_scanlines()

      + +

      ◆ display_scanlines()

      @@ -1501,8 +1507,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ draw_diffraction_cone()

      + +

      ◆ draw_diffraction_cone()

      @@ -1563,8 +1569,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ draw_hemi_axes()

      + +

      ◆ draw_hemi_axes()

      @@ -1622,8 +1628,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ duplicate_hemi_scan()

      + +

      ◆ duplicate_hemi_scan()

      @@ -1681,8 +1687,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ find_hemi_data()

      + +

      ◆ find_hemi_data()

      @@ -1734,8 +1740,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ get_hemi_nickname()

      + +

      ◆ get_hemi_nickname()

      @@ -1758,8 +1764,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ get_hemi_prefix()

      + +

      ◆ get_hemi_prefix()

      @@ -1782,8 +1788,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ hemi_add_anglescan()

      + +

      ◆ hemi_add_anglescan()

      @@ -1846,8 +1852,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ hemi_add_aziscan()

      + +

      ◆ hemi_add_aziscan()

      @@ -1908,8 +1914,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ hemi_azi_cut()

      + +

      ◆ hemi_azi_cut()

      @@ -1950,8 +1956,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ hemi_polar_cut()

      + +

      ◆ hemi_polar_cut()

      @@ -1992,8 +1998,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ import_tpi_scan()

      + +

      ◆ import_tpi_scan()

      @@ -2086,8 +2092,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ interpolate_hemi_scan()

      + +

      ◆ interpolate_hemi_scan()

      @@ -2136,8 +2142,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ line_average()

      + +

      ◆ line_average()

      @@ -2174,8 +2180,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ load_hemi_scan()

      + +

      ◆ load_hemi_scan()

      @@ -2213,8 +2219,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ make_hemi_grid()

      + +

      ◆ make_hemi_grid()

      @@ -2265,8 +2271,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ normalize_strip_2d()

      + +

      ◆ normalize_strip_2d()

      @@ -2338,8 +2344,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ normalize_strip_phi()

      + +

      ◆ normalize_strip_phi()

      @@ -2418,8 +2424,8 @@ data imported with version 1.5 and earlier, must be offset by 180 deg in phi to
      - -

      ◆ normalize_strip_theta()

      + +

      ◆ normalize_strip_theta()

      @@ -2507,8 +2513,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ normalize_strip_theta_scans()

      + +

      ◆ normalize_strip_theta_scans()

      @@ -2564,8 +2570,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ normalize_strip_thetaphi()

      + +

      ◆ normalize_strip_thetaphi()

      @@ -2658,8 +2664,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ normalize_strip_x()

      + +

      ◆ normalize_strip_x()

      @@ -2730,8 +2736,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ pizza_service()

      + +

      ◆ pizza_service()

      @@ -2836,8 +2842,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ pizza_service_2()

      + +

      ◆ pizza_service_2()

      @@ -2942,8 +2948,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ polar_graph_hook()

      + +

      ◆ polar_graph_hook()

      @@ -2973,8 +2979,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ prepare_hemi_scan_display()

      + +

      ◆ prepare_hemi_scan_display()

      @@ -3020,8 +3026,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ quick_pizza_image()

      + +

      ◆ quick_pizza_image()

      @@ -3097,8 +3103,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ rotate_hemi_scan()

      + +

      ◆ rotate_hemi_scan()

      @@ -3137,8 +3143,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ save_hemi_scan()

      + +

      ◆ save_hemi_scan()

      @@ -3175,8 +3181,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ set_contrast()

      + +

      ◆ set_contrast()

      @@ -3253,8 +3259,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ set_polar_graph_cursor()

      + +

      ◆ set_polar_graph_cursor()

      @@ -3301,8 +3307,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ show_analyser_line()

      + +

      ◆ show_analyser_line()

      @@ -3399,8 +3405,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ strip_append()

      + +

      ◆ strip_append()

      @@ -3442,8 +3448,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ strip_delete_frames()

      + +

      ◆ strip_delete_frames()

      @@ -3510,8 +3516,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ trim_hemi_scan()

      + +

      ◆ trim_hemi_scan()

      @@ -3550,8 +3556,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ update_polar_info()

      + +

      ◆ update_polar_info()

      @@ -3589,8 +3595,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp

      Variable Documentation

      - -

      ◆ kProjArea

      + +

      ◆ kProjArea

      @@ -3605,8 +3611,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjDist

      + +

      ◆ kProjDist

      @@ -3621,8 +3627,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjGnom

      + +

      ◆ kProjGnom

      @@ -3637,8 +3643,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjOrtho

      + +

      ◆ kProjOrtho

      @@ -3653,8 +3659,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjScaleArea

      + +

      ◆ kProjScaleArea

      @@ -3677,8 +3683,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjScaleDist

      + +

      ◆ kProjScaleDist

      @@ -3701,8 +3707,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjScaleGnom

      + +

      ◆ kProjScaleGnom

      @@ -3725,8 +3731,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjScaleOrtho

      + +

      ◆ kProjScaleOrtho

      @@ -3749,8 +3755,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjScaleStereo

      + +

      ◆ kProjScaleStereo

      @@ -3773,8 +3779,8 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp
      - -

      ◆ kProjStereo

      + +

      ◆ kProjStereo

      @@ -3795,9 +3801,7 @@ caution: binomial and boxcar smoothing are not aware of theta. this may give unp diff --git a/doc/html/pearl-anglescan-process_8ipf_source.html b/doc/html/pearl-anglescan-process_8ipf_source.html index 9276d42..feabb67 100644 --- a/doc/html/pearl-anglescan-process_8ipf_source.html +++ b/doc/html/pearl-anglescan-process_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-process.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,2700 +82,2812 @@ $(document).ready(function(){initNavTree('pearl-anglescan-process_8ipf_source.ht
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-anglescan-process.ipf
      +
      pearl-anglescan-process.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "UTF-8"
      -
      2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
      -
      3 #pragma version = 1.9
      -
      4 #pragma IgorVersion = 6.2
      -
      5 #pragma ModuleName = PearlAnglescanProcess
      -
      6 #include "pearl-vector-operations"
      -
      7 #include "pearl-polar-coordinates"
      -
      8 #include <New Polar Graphs>
      -
      9 
      -
      10 // copyright (c) 2013-21 Paul Scherrer Institut
      -
      11 //
      -
      12 // Licensed under the Apache License, Version 2.0 (the "License");
      -
      13 // you may not use this file except in compliance with the License.
      -
      14 // You may obtain a copy of the License at
      -
      15 // http:///www.apache.org/licenses/LICENSE-2.0
      -
      16 //
      -
      17 // Please acknowledge the use of this code.
      -
      18 
      -
      77 
      -
      82 
      -
      83 
      -
      106 function /s strip_append(strip1, strip2)
      -
      107  wave strip1
      -
      108  wave strip2
      -
      109 
      -
      110  dfref df1 = GetWavesDataFolderDFR(strip1)
      -
      111  dfref df2 = GetWavesDataFolderDFR(strip2)
      -
      112  variable ny1 = dimsize(strip1, 1)
      -
      113  variable ny2 = dimsize(strip2, 1)
      -
      114 
      -
      115  concatenate /np=1 {strip2}, strip1
      -
      116  string modified = AddListItem(NameOfWave(strip1), "")
      -
      117 
      -
      118  variable idf = 0
      -
      119  do
      -
      120  variable iw = 0
      -
      121  do
      -
      122  wave /z w1 = WaveRefIndexedDFR(df1, iw)
      -
      123  if (!WaveExists(w1))
      -
      124  break
      -
      125  endif
      -
      126 
      -
      127  wave /z w2 = df2:$(NameOfWave(w1))
      -
      128  if (WaveExists(w1) && WaveExists(w2))
      -
      129  if ((DimSize(w1, 0) == ny1) && (DimSize(w1, 1) == 0) && (DimSize(w2, 0) == ny2) && (DimSize(w2, 1) == 0))
      -
      130  concatenate /np=0 {w2}, w1
      -
      131  modified = AddListItem(NameOfWave(w1), modified, "", Inf)
      -
      132  endif
      -
      133  endif
      -
      134  iw += 1
      -
      135  while(1)
      -
      136 
      -
      137  df1 = df1:attr
      -
      138  df2 = df2:attr
      -
      139  if ((DataFolderRefStatus(df1) != 1) || (DataFolderRefStatus(df2) != 1))
      -
      140  break
      -
      141  endif
      -
      142  idf += 1
      -
      143  while(idf < 2)
      -
      144 
      -
      145  return modified
      -
      146 end
      -
      147 
      -
      170 function strip_delete_frames(strip, qlo, qhi, theta, tilt, phi)
      -
      171  wave strip // 2D data, X-axis = analyser angle, Y-axis = arbitrary manipulator scan
      -
      172  variable qlo
      -
      173  variable qhi
      -
      174  wave theta
      -
      175  wave tilt
      -
      176  wave phi
      -
      177 
      -
      178  if (qlo > qhi)
      -
      179  return -1
      -
      180  endif
      -
      181 
      -
      182  // source indices
      -
      183  variable snx = dimsize(strip, 0)
      -
      184  variable sny = dimsize(strip, 1)
      -
      185  variable sq1lo = 0
      -
      186  variable sq1hi = max(qlo-1, 0)
      -
      187  variable sq2lo = min(qhi+1, sny - 1)
      -
      188  variable sq2hi = dimsize(strip, 1) - 1
      -
      189 
      -
      190  // dest indices
      -
      191  variable dnx = snx
      -
      192  variable dny = sny - (sq2lo - sq1hi + 1)
      -
      193  variable dq1lo = 0
      -
      194  variable dq1hi = sq1hi
      -
      195  variable dq2lo = dq1hi + 1
      -
      196  variable dq2hi = dny - 1
      -
      197  variable q1ofs = sq1lo - dq1lo
      -
      198  variable q2ofs = sq2lo - dq2lo
      -
      199 
      -
      200  duplicate /free strip, strip_copy
      -
      201  redimension /n=(dnx,dny) strip
      -
      202  strip[][dq1lo,dq1hi] = strip_copy[p][q + q1ofs]
      -
      203  strip[][dq2lo,dq2hi] = strip_copy[p][q + q2ofs]
      -
      204 
      -
      205  duplicate /free theta, theta_copy
      -
      206  redimension /n=(dny) theta
      -
      207  theta[dq1lo,dq1hi] = theta_copy[p + q1ofs]
      -
      208  theta[dq2lo,dq2hi] = theta_copy[p + q2ofs]
      -
      209 
      -
      210  duplicate /free tilt, tilt_copy
      -
      211  redimension /n=(dny) tilt
      -
      212  tilt[dq1lo,dq1hi] = tilt_copy[p + q1ofs]
      -
      213  tilt[dq2lo,dq2hi] = tilt_copy[p + q2ofs]
      -
      214 
      -
      215  duplicate /free phi, phi_copy
      -
      216  redimension /n=(dny) phi
      -
      217  phi[dq1lo,dq1hi] = phi_copy[p + q1ofs]
      -
      218  phi[dq2lo,dq2hi] = phi_copy[p + q2ofs]
      -
      219 
      -
      220  return 0
      -
      221 end
      -
      222 
      -
      252 function normalize_strip_x(strip, [smooth_method, smooth_factor, check])
      -
      253  wave strip
      -
      254  variable smooth_method
      -
      255  variable smooth_factor
      -
      256  variable check
      -
      257 
      -
      258  if (ParamIsDefault(smooth_method))
      -
      259  smooth_method = 4
      -
      260  endif
      -
      261  if (ParamIsDefault(smooth_factor))
      -
      262  switch(smooth_method)
      -
      263  case 4:
      -
      264  smooth_factor = 0.5
      -
      265  break
      -
      266  default:
      -
      267  smooth_factor = 2
      -
      268  endswitch
      -
      269  endif
      -
      270  if (ParamIsDefault(check))
      -
      271  check = 0
      -
      272  endif
      -
      273 
      -
      274  // average over all scan positions
      -
      275  wave raw_dist = ad_profile_x(strip, -inf, inf, "")
      -
      276 
      -
      277  // remove nans
      -
      278  extract /free /indx raw_dist, clean_index, numtype(raw_dist) == 0
      -
      279  duplicate /free raw_dist, dist, dist_x
      -
      280  redimension /n=(numpnts(clean_index)) dist, dist_x
      -
      281  dist = raw_dist[clean_index[p]]
      -
      282  dist_x = pnt2x(raw_dist, clean_index[p])
      -
      283  variable div = mean(dist)
      -
      284  dist /= div
      -
      285 
      -
      286  if (check)
      -
      287  duplicate /o raw_dist, check_dist
      -
      288  check_dist = numtype(raw_dist) == 0 ? interp(x, dist_x, dist) : nan
      -
      289  endif
      -
      290 
      -
      291  // smooth distribution function
      -
      292  switch(smooth_method)
      -
      293  case 1:
      -
      294  Smooth /B /E=3 smooth_factor, dist
      -
      295  break
      -
      296  case 2:
      -
      297  Smooth /E=3 smooth_factor, dist
      -
      298  break
      -
      299  case 3:
      -
      300  make /n=1 /d /free fit_params
      -
      301  fit_scienta_ang_transm(raw_dist, fit_params)
      -
      302  duplicate /free raw_dist, dist, dist_x
      -
      303  dist_x = x
      -
      304  dist = scienta_ang_transm(fit_params, x)
      -
      305  break
      -
      306  case 4:
      -
      307  loess /smth=(smooth_factor) srcWave=dist, factors={dist_x}
      -
      308  break
      -
      309  endswitch
      -
      310 
      -
      311  if (check)
      -
      312  duplicate /o raw_dist, check_smoo
      -
      313  check_smoo = interp(x, dist_x, dist)
      -
      314  endif
      -
      315 
      -
      316  // divide
      -
      317  if (check != 2)
      -
      318  strip /= interp(x, dist_x, dist)
      -
      319  endif
      -
      320 end
      -
      321 
      -
      348 function normalize_strip_phi(strip, theta, phi, [theta_offset, theta_range, check])
      -
      349  wave strip
      -
      350  wave theta
      -
      351  wave phi
      -
      352  variable theta_offset
      -
      353  variable theta_range
      -
      354  variable check
      -
      355 
      -
      356  if (ParamIsDefault(check))
      -
      357  check = 0
      -
      358  endif
      -
      359  if (ParamIsDefault(theta_offset))
      -
      360  theta_offset = 0
      -
      361  endif
      -
      362  if (ParamIsDefault(theta_range))
      -
      363  theta_offset = 10
      -
      364  endif
      -
      365 
      -
      366  // average over analyser angles
      -
      367  duplicate /free strip, strip_copy
      -
      368  MatrixFilter NanZapMedian strip_copy
      -
      369  wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      -
      370 
      -
      371  // smooth distribution function
      -
      372  duplicate /free dist, dist_smoo
      -
      373  duplicate /free theta, theta_int
      -
      374  theta_int = theta - theta_offset
      -
      375  duplicate /free phi, phi_int
      -
      376  setscale /p x phi_int[0], phi_int[1] - phi_int[0], waveunits(phi, -1), dist, dist_smoo
      -
      377 
      -
      378  extract /free /indx dist, red_idx, theta_int < theta_range
      -
      379  duplicate /free red_idx, red_dist, red_phi
      -
      380  red_dist = dist[red_idx]
      -
      381  red_phi = phi_int[red_idx]
      -
      382 
      -
      383  variable wavg = mean(red_dist)
      -
      384  make /n=4 /d /free coef
      -
      385  coef[0] = {wavg, wavg/100, pi/180, 0}
      -
      386  CurveFit /q /h="0010" /g /w=2 sin, kwcWave=coef, red_dist /x=red_phi
      -
      387  dist_smoo = coef[0] + coef[1] * sin(coef[2] * phi_int[p] + coef[3])
      -
      388 
      -
      389  // divide
      -
      390  if (check != 2)
      -
      391  strip = strip / dist_smoo[q] * coef[0]
      -
      392  endif
      -
      393 
      -
      394  // check
      -
      395  if (check)
      -
      396  duplicate /o dist, check_dist
      -
      397  duplicate /o dist_smoo, check_smoo
      -
      398  setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      -
      399  endif
      -
      400 end
      -
      401 
      -
      433 function normalize_strip_theta(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      -
      434  wave strip
      -
      435  wave theta
      -
      436  variable theta_offset
      -
      437  variable smooth_method
      -
      438  variable smooth_factor
      -
      439  variable check
      -
      440 
      -
      441  if (ParamIsDefault(check))
      -
      442  check = 0
      -
      443  endif
      -
      444  if (ParamIsDefault(theta_offset))
      -
      445  theta_offset = 0
      -
      446  endif
      -
      447  if (ParamIsDefault(smooth_method))
      -
      448  smooth_method = 4
      -
      449  endif
      -
      450  if (ParamIsDefault(smooth_factor))
      -
      451  smooth_factor = 0.5
      -
      452  endif
      -
      453 
      -
      454  // average over analyser angles
      -
      455  duplicate /free strip, strip_copy
      -
      456  MatrixFilter NanZapMedian strip_copy
      -
      457  wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      -
      458 
      -
      459  // smooth distribution function
      -
      460  duplicate /free dist, dist_smoo
      -
      461  duplicate /free theta, theta_int
      -
      462  theta_int = theta - theta_offset
      -
      463  setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      -
      464  variable nx = dimsize(strip, 0)
      -
      465  variable ix
      -
      466 
      -
      467  switch(smooth_method)
      -
      468  case 1:
      -
      469  Smooth /B /E=3 smooth_factor, dist_smoo
      -
      470  break
      -
      471  case 2:
      -
      472  Smooth /E=3 smooth_factor, dist_smoo
      -
      473  break
      -
      474  case 4:
      -
      475  loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int}
      -
      476  break
      -
      477  case 3:
      -
      478  for (ix = 0; ix < nx; ix += 1)
      -
      479  dist = strip[ix][p]
      -
      480  if (smooth_factor > 1)
      -
      481  CurveFit /nthr=0 /q /w=2 poly smooth_factor+1, dist /x=theta_int /d=dist_smoo
      -
      482  else
      -
      483  CurveFit /nthr=0 /q /w=2 line, dist /x=theta_int /d=dist_smoo
      -
      484  endif
      -
      485  strip[ix,ix][] /= dist_smoo[q]
      -
      486  endfor
      -
      487  dist_smoo = 1
      -
      488  break
      -
      489  endswitch
      -
      490 
      -
      491  // divide
      -
      492  if (check != 2)
      -
      493  strip /= dist_smoo[q]
      -
      494  endif
      -
      495 
      -
      496  // check
      -
      497  if (check)
      -
      498  duplicate /o dist, check_dist
      -
      499  duplicate /o dist_smoo, check_smoo
      -
      500  setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      -
      501  endif
      -
      502 end
      -
      503 
      -
      533 function normalize_strip_thetaphi(strip, theta, phi, [theta_offset, smooth_method, smooth_factor, check])
      -
      534  wave strip
      -
      535  wave theta
      -
      536  wave phi
      -
      537  variable theta_offset
      -
      538  variable smooth_method
      -
      539  variable smooth_factor
      -
      540  variable check
      -
      541 
      -
      542  if (ParamIsDefault(check))
      -
      543  check = 0
      -
      544  endif
      -
      545  if (ParamIsDefault(theta_offset))
      -
      546  theta_offset = 0
      -
      547  endif
      -
      548  if (ParamIsDefault(smooth_method))
      -
      549  smooth_method = 4
      -
      550  endif
      -
      551  if (ParamIsDefault(smooth_factor))
      -
      552  smooth_factor = 0.5
      -
      553  endif
      -
      554 
      -
      555  // average over analyser angles
      -
      556  duplicate /free strip, strip_copy
      -
      557  MatrixFilter NanZapMedian strip_copy
      -
      558  wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      -
      559 
      -
      560  // smooth distribution function
      -
      561  duplicate /free dist, dist_smoo
      -
      562  duplicate /free theta, theta_int
      -
      563  theta_int = theta - theta_offset
      -
      564  setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      -
      565  variable nx = dimsize(strip, 0)
      -
      566  variable ix
      -
      567 
      -
      568  switch(smooth_method)
      -
      569  case 4:
      -
      570  loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int, phi}
      -
      571  break
      -
      572  default:
      -
      573  abort "smooth method not supported"
      -
      574  endswitch
      -
      575 
      -
      576  // divide
      -
      577  if (check != 2)
      -
      578  strip /= dist_smoo[q]
      -
      579  endif
      -
      580 
      -
      581  // check
      -
      582  if (check)
      -
      583  duplicate /o dist, check_dist
      -
      584  duplicate /o dist_smoo, check_smoo
      -
      585  setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      -
      586  endif
      -
      587 end
      -
      588 
      -
      594 function normalize_strip_theta_scans(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      -
      595  wave strip
      -
      596  wave theta
      -
      597  variable theta_offset
      -
      598  variable smooth_method
      -
      599  variable smooth_factor
      -
      600  variable check
      -
      601 
      -
      602  if (ParamIsDefault(check))
      -
      603  check = 0
      -
      604  endif
      -
      605  if (ParamIsDefault(theta_offset))
      -
      606  theta_offset = 0
      -
      607  endif
      -
      608  if (ParamIsDefault(smooth_method))
      -
      609  smooth_method = 4
      -
      610  endif
      -
      611  if (ParamIsDefault(smooth_factor))
      -
      612  smooth_factor = 0.5
      -
      613  endif
      -
      614 
      -
      615  // average over analyser angles
      -
      616  duplicate /free strip, strip_copy
      -
      617  MatrixFilter NanZapMedian strip_copy
      -
      618  wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      -
      619 
      -
      620  // smooth distribution function
      -
      621  duplicate /free dist, dist_smoo
      -
      622  duplicate /free theta, theta_int
      -
      623  theta_int = theta - theta_offset
      -
      624  setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      -
      625 
      -
      626  // analyse scanning scheme
      -
      627  duplicate /free theta_int, d1_theta, d2_theta
      -
      628  Differentiate /METH=2 theta_int /D=d1_theta
      -
      629  Differentiate /METH=2 d1_theta /D=d2_theta
      -
      630  d2_theta = abs(d2_theta)
      -
      631  make /free w_levels
      -
      632  FindLevels /edge=1 /p /q /d=w_levels d2_theta, 0.1
      -
      633  if (v_flag != 1)
      -
      634  abort "unrecognized scanning scheme"
      -
      635  endif
      -
      636  w_levels = ceil(w_levels)
      -
      637  InsertPoints 0, 1, w_levels
      -
      638  w_levels[0] = 0
      -
      639  InsertPoints numpnts(w_levels), 1, w_levels
      -
      640  w_levels[numpnts(w_levels)-1] = numpnts(theta_int)
      -
      641 
      -
      642  variable n_scans = numpnts(w_levels) - 1
      -
      643  variable i_scan
      -
      644  variable p1, p2
      -
      645  for (i_scan = 0; i_scan < n_scans; i_scan += 1)
      -
      646  p1 = w_levels[i_scan]
      -
      647  p2 = w_levels[i_scan+1] - 1
      -
      648  duplicate /free /r=[p1, p2] dist, dist_piece, smooth_piece
      -
      649  duplicate /free /r=[p1, p2] theta_int, theta_piece
      -
      650  switch(smooth_method)
      -
      651  case 4:
      -
      652  loess /dest=smooth_piece /smth=(smooth_factor) srcWave=dist_piece, factors={theta_piece}
      -
      653  break
      -
      654  default:
      -
      655  abort "smooth method not supported"
      -
      656  endswitch
      -
      657  dist_smoo[p1, p2] = smooth_piece[p - p1]
      -
      658  endfor
      -
      659 
      -
      660  // divide
      -
      661  if (check != 2)
      -
      662  strip /= dist_smoo[q]
      -
      663  endif
      -
      664 
      -
      665  // check
      -
      666  if (check)
      -
      667  duplicate /o dist, check_dist
      -
      668  duplicate /o dist_smoo, check_smoo
      -
      669  setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      -
      670  endif
      -
      671 end
      -
      672 
      -
      686 function normalize_strip_2d(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      -
      687  wave strip
      -
      688  wave theta
      -
      689  variable theta_offset
      -
      690  variable smooth_method
      -
      691  variable smooth_factor
      -
      692  variable check
      -
      693 
      -
      694  if (ParamIsDefault(check))
      -
      695  check = 0
      -
      696  endif
      -
      697  if (ParamIsDefault(theta_offset))
      -
      698  theta_offset = 0
      -
      699  endif
      -
      700  if (ParamIsDefault(smooth_method))
      -
      701  smooth_method = 4
      -
      702  endif
      -
      703  if (ParamIsDefault(smooth_factor))
      -
      704  smooth_factor = 0.5
      -
      705  endif
      -
      706 
      -
      707  variable nx = dimsize(strip, 0)
      -
      708  variable ny = dimsize(strip, 1)
      -
      709 
      -
      710  duplicate /free strip, dist, alpha_int, theta_int
      -
      711  MatrixFilter NanZapMedian dist
      -
      712  theta_int = theta[q] - theta_offset
      -
      713  alpha_int = dimoffset(strip, 0) + p * dimdelta(strip, 0)
      -
      714  redimension /n=(nx * ny) dist, alpha_int, theta_int
      -
      715 
      -
      716  switch(smooth_method)
      -
      717  case 4:
      -
      718  loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={alpha_int, theta_int}
      -
      719  redimension /n=(nx, ny) dist_smoo
      -
      720  break
      -
      721  default:
      -
      722  Abort "undefined smooth method"
      -
      723  break
      -
      724  endswitch
      -
      725 
      -
      726  // divide
      -
      727  if (check != 2)
      -
      728  strip /= dist_smoo
      -
      729  endif
      -
      730 
      -
      731  // check
      -
      732  if (check)
      -
      733  //duplicate /o dist, check_dist
      -
      734  duplicate /o dist_smoo, check_smoo
      -
      735  endif
      -
      736 end
      -
      737 
      -
      747 function crop_strip(strip, xlo, xhi)
      -
      748  wave strip
      -
      749  variable xlo
      -
      750  variable xhi
      -
      751 
      -
      752  variable plo = round((xlo - dimoffset(strip, 0)) / dimdelta(strip, 0))
      -
      753  variable phi = round((xhi - dimoffset(strip, 0)) / dimdelta(strip, 0))
      -
      754  xlo = plo * dimdelta(strip, 0) + dimoffset(strip, 0)
      -
      755  xhi = phi * dimdelta(strip, 0) + dimoffset(strip, 0)
      -
      756  variable nx = phi - plo + 1
      -
      757  variable ny = dimsize(strip, 1)
      -
      758 
      -
      759  duplicate /free strip, strip_copy
      -
      760  redimension /n=(nx,ny) strip
      -
      761  strip = strip_copy[p + plo][q]
      -
      762  setscale /i x xlo, xhi, waveunits(strip, 0), strip
      -
      763 end
      -
      764 
      -
      779 function crop_strip_theta(strip, theta_lo, theta_hi, theta, tilt, phi)
      -
      780  wave strip
      -
      781  variable theta_lo
      -
      782  variable theta_hi
      -
      783  wave theta
      -
      784  wave tilt
      -
      785  wave phi
      -
      786 
      -
      787  extract /indx /free theta, idx, (theta >= theta_lo) && (theta <= theta_hi)
      -
      788  variable nx = dimsize(strip, 0)
      -
      789  variable ny = numpnts(idx)
      -
      790 
      -
      791  theta[0, ny-1] = theta[idx]
      -
      792  tilt[0, ny-1] = tilt[idx]
      -
      793  phi[0, ny-1] = phi[idx]
      -
      794  redimension /n=(ny) theta, tilt, phi
      -
      795 
      -
      796  duplicate /free strip, strip_copy
      -
      797  redimension /n=(nx,ny) strip
      -
      798  strip = strip_copy[p][idx[q]]
      -
      799 end
      -
      800 
      -
      843 function pizza_service(data, nickname, theta_offset, tilt_offset, phi_offset, [npolar, nograph, folding, xpdplot])
      -
      844  wave data
      -
      845  string nickname
      -
      846  variable theta_offset
      -
      847  variable tilt_offset
      -
      848  variable phi_offset
      -
      849  variable npolar
      -
      850  variable nograph
      -
      851  variable folding
      -
      852  variable xpdplot
      -
      853 
      -
      854  if (ParamIsDefault(npolar))
      -
      855  npolar = 91
      -
      856  endif
      -
      857  if (ParamIsDefault(nograph))
      -
      858  nograph = 0
      -
      859  endif
      -
      860  if (ParamIsDefault(folding))
      -
      861  folding = 1
      -
      862  endif
      -
      863  if (ParamIsDefault(xpdplot))
      -
      864  xpdplot = 0
      -
      865  endif
      -
      866 
      -
      867  // sort out data folder structure
      -
      868  dfref saveDF = GetDataFolderDFR()
      -
      869  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      870  setdatafolder dataDF
      -
      871  if (DataFolderExists(":attr"))
      -
      872  setdatafolder :attr
      -
      873  endif
      -
      874  dfref attrDF = GetDataFolderDFR()
      -
      875 
      -
      876  wave /sdfr=attrDF ManipulatorTheta
      -
      877  wave /sdfr=attrDF ManipulatorTilt
      -
      878  wave /sdfr=attrDF ManipulatorPhi
      -
      879 
      -
      880  if ((dimsize(ManipulatorTheta, 0) != dimsize(data, 1)) || (dimsize(ManipulatorTilt, 0) != dimsize(data, 1)) || (dimsize(ManipulatorPhi, 0) != dimsize(data, 1)))
      -
      881  Abort "Warning: The dimension size of the manipulator waves does not match the Y dimension of the data wave!\rIf you restructured the data wave, please use pizza_service_2 with properly scaled manipulator waves."
      -
      882  endif
      -
      883 
      -
      884  duplicate /free ManipulatorTheta, m_theta
      -
      885  duplicate /free ManipulatorTilt, m_tilt
      -
      886  duplicate /free ManipulatorPhi, m_phi
      -
      887 
      -
      888  m_theta -= theta_offset
      -
      889  m_tilt -= tilt_offset
      -
      890  m_phi -= phi_offset
      -
      891 
      -
      892  pizza_service_2(data, nickname, m_theta, m_tilt, m_phi, npolar=npolar, nograph=nograph, folding=folding, xpdplot=xpdplot)
      -
      893 
      -
      894  setdatafolder saveDF
      -
      895 end
      -
      896 
      -
      936 function pizza_service_2(data, nickname, m_theta, m_tilt, m_phi, [npolar, nograph, folding, xpdplot])
      -
      937  wave data
      -
      938  string nickname
      -
      939  wave m_theta
      -
      940  wave m_tilt
      -
      941  wave m_phi
      -
      942  variable npolar
      -
      943  variable nograph
      -
      944  variable folding
      -
      945  variable xpdplot
      -
      946 
      -
      947  if (ParamIsDefault(npolar))
      -
      948  npolar = 91
      -
      949  endif
      -
      950  if (ParamIsDefault(nograph))
      -
      951  nograph = 0
      -
      952  endif
      -
      953  if (ParamIsDefault(folding))
      -
      954  folding = 1
      -
      955  endif
      -
      956  if (ParamIsDefault(xpdplot))
      -
      957  xpdplot = 0
      -
      958  endif
      -
      959 
      -
      960  if ((dimsize(m_theta, 0) != dimsize(data, 1)) || (dimsize(m_tilt, 0) != dimsize(data, 1)) || (dimsize(m_phi, 0) != dimsize(data, 1)))
      -
      961  Abort "Warning: The dimension size of the manipulator waves does not match the Y dimension of the data wave!"
      -
      962  endif
      -
      963 
      -
      964  string graphname = "graph_" + nickname
      -
      965  string outprefix = nickname
      -
      966 
      -
      967  // sort out data folder structure
      -
      968  dfref saveDF = GetDataFolderDFR()
      -
      969  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      970  setdatafolder dataDF
      -
      971 
      -
      972  if (xpdplot)
      -
      973  setdatafolder root:
      -
      974  outprefix = nickname
      -
      975  else
      -
      976  setdatafolder dataDF
      -
      977  newdatafolder /s/o $nickname
      -
      978  outprefix = ""
      -
      979  endif
      -
      980  dfref destDF = GetDataFolderDFR()
      -
      981 
      -
      982  // performance monitoring
      -
      983  variable timerRefNum
      -
      984  variable /g pol_perf_secs
      -
      985  timerRefNum = startMSTimer
      -
      986 
      -
      987  duplicate /free m_tilt, corr_tilt
      -
      988  duplicate /free m_phi, corr_phi
      -
      989  corr_tilt = -m_tilt // checked 140702
      -
      990  corr_phi = m_phi // checked 140702
      -
      991 
      -
      992  make /n=1/d/free d_polar, d_azi
      -
      993 
      -
      994  convert_angles_ttpd2polar(m_theta, corr_tilt, corr_phi, data, d_polar, d_azi)
      -
      995  d_azi += 180 // changed 151030 (v1.6)
      -
      996  make_hemi_grid(npolar, outprefix, xpdplot=xpdplot)
      -
      997  variable ifold
      -
      998  for (ifold = 0; ifold < folding; ifold += 1)
      -
      999  d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      -
      1000  hemi_add_anglescan(outprefix, data, d_polar, d_azi)
      -
      1001  d_azi += 360 / folding
      -
      1002  endfor
      -
      1003 
      -
      1004  // normalize folding
      -
      1005  if (strlen(outprefix))
      -
      1006  string s_prefix = outprefix + "_"
      -
      1007  string s_int = s_prefix + "i"
      -
      1008  else
      -
      1009  s_prefix = ""
      -
      1010  s_int = "values"
      -
      1011  endif
      -
      1012  if (folding > 1)
      -
      1013  wave values = $s_int
      -
      1014  values /= folding
      -
      1015  endif
      -
      1016 
      -
      1017  if (!nograph)
      -
      1018  display_hemi_scan(outprefix, graphname = graphname)
      -
      1019  endif
      -
      1020 
      -
      1021  if (timerRefNum >= 0)
      -
      1022  pol_perf_secs = stopMSTimer(timerRefNum) / 1e6
      -
      1023  endif
      -
      1024 
      -
      1025  setdatafolder saveDF
      -
      1026 end
      -
      1027 
      -
      1053 function show_analyser_line(theta, tilt, phi, theta_offset, tilt_offset, phi_offset, [npolar, nograph, xpdplot])
      -
      1054  variable theta
      -
      1055  variable tilt
      -
      1056  variable phi
      -
      1057  variable theta_offset
      -
      1058  variable tilt_offset
      -
      1059  variable phi_offset
      -
      1060  variable npolar
      -
      1061  variable nograph
      -
      1062  variable xpdplot
      -
      1063 
      -
      1064  string nickname = "analyser"
      -
      1065 
      -
      1066  if (ParamIsDefault(npolar))
      -
      1067  npolar = 91
      -
      1068  endif
      -
      1069  if (ParamIsDefault(nograph))
      -
      1070  nograph = 0
      -
      1071  endif
      -
      1072  if (ParamIsDefault(xpdplot))
      -
      1073  xpdplot = 0
      -
      1074  endif
      -
      1075  string graphname = "graph_" + nickname
      -
      1076  string outprefix = nickname
      -
      1077 
      -
      1078  // sort out data folder structure
      -
      1079  dfref saveDF = GetDataFolderDFR()
      -
      1080  dfref dataDF = saveDF
      -
      1081  if (xpdplot)
      -
      1082  setdatafolder root:
      -
      1083  outprefix = nickname
      -
      1084  else
      -
      1085  setdatafolder dataDF
      -
      1086  newdatafolder /s/o $nickname
      -
      1087  outprefix = ""
      -
      1088  endif
      -
      1089  dfref destDF = GetDataFolderDFR()
      -
      1090 
      -
      1091  make /n=1 /free m_theta
      -
      1092  make /n=1 /free m_tilt
      -
      1093  make /n=1 /free m_phi
      -
      1094  m_theta = theta - theta_offset
      -
      1095  m_tilt = tilt - tilt_offset
      -
      1096  m_tilt *= -1 // checked 140702
      -
      1097  m_phi = phi - phi_offset
      -
      1098  //m_phi *= -1 // checked 140702
      -
      1099 
      -
      1100  make /n=60 /free data
      -
      1101  setscale /i x -30, 30, data
      -
      1102  data = x
      -
      1103  make /n=1/d/free d_polar, d_azi
      -
      1104 
      -
      1105  convert_angles_ttpa2polar(m_theta, m_tilt, m_phi, data, d_polar, d_azi)
      -
      1106  d_azi += 180 // changed 151030 (v1.6)
      -
      1107  d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      -
      1108  make_hemi_grid(npolar, outprefix, xpdplot=xpdplot)
      -
      1109  hemi_add_anglescan(outprefix, data, d_polar, d_azi)
      -
      1110 
      -
      1111  if (!nograph)
      -
      1112  display_hemi_scan(outprefix, graphname = graphname)
      -
      1113  endif
      -
      1114 
      -
      1115  setdatafolder saveDF
      -
      1116 end
      -
      1117 
      -
      1122 
      -
      1123 function convert_angles_ttpd2polar(theta, tilt, phi, data, polar, azi)
      -
      1124  wave theta, tilt, phi // see convert_angles_ttpa2polar
      -
      1125  wave data // in, 1D or 2D
      -
      1126  // X-scale must be set to analyser angle scale
      -
      1127  wave polar, azi // see convert_angles_ttpa2polar
      -
      1128 
      -
      1129  make /n=(dimsize(data, 0)) /d /free ana
      -
      1130  setscale /p x dimoffset(data, 0), dimdelta(data, 0), waveunits(data, 0), ana
      -
      1131  ana = x
      -
      1132  convert_angles_ttpa2polar(theta, tilt, phi, ana, polar, azi)
      -
      1133 end
      -
      1134 
      -
      1162 function convert_angles_ttpa2polar(theta, tilt, phi, analyser, polar, azi)
      -
      1163  wave theta
      -
      1164  wave tilt
      -
      1165  wave phi
      -
      1166  wave analyser
      -
      1167  wave polar, azi
      -
      1168 
      -
      1169  variable nn = numpnts(theta)
      -
      1170  variable na = numpnts(analyser)
      -
      1171  redimension /n=(na, nn) polar, azi
      -
      1172 
      -
      1173  variable radius = 1 // don't need to specify - everything is scalable
      -
      1174 
      -
      1175  // step 1: calculate cartesian detection vectors at normal emission
      -
      1176  // this is simply a polar-cartesian mapping, independent of the manipulator
      -
      1177  // phi=0 is in the polar rotation plane
      -
      1178  make /n=(3,na) /d /free w_orig_polar, w_orig_cart, w_rot_cart, w_rot_polar
      -
      1179  w_orig_polar[0][] = radius
      -
      1180  w_orig_polar[1][] = analyser[q]
      -
      1181  w_orig_polar[2][] = 0
      -
      1182  polar2cart_wave(w_orig_polar, w_orig_cart)
      -
      1183  // if the angle-dispersive axis was horizontal, we'd need to rotate the detector
      -
      1184  //rotate_z_wave(w_orig_cart, 90)
      -
      1185 
      -
      1186  variable ii
      -
      1187  for (ii = 0; ii < nn; ii += 1)
      -
      1188  // step 2: rotate the detection vectors according to the manipulator angles
      -
      1189  // the order of rotations is important because we rotate about fixed axes
      -
      1190  // y-axis = tilt rotation axis
      -
      1191  // x-axis = polar rotation axis
      -
      1192  // z-axis = normal emission = azimuthal rotation axis
      -
      1193  w_rot_cart = w_orig_cart
      -
      1194  rotate_y_wave(w_rot_cart, -tilt[ii])
      -
      1195  rotate_x_wave(w_rot_cart, -theta[ii])
      -
      1196  rotate_z_wave(w_rot_cart, -phi[ii] - 90)
      -
      1197  // map the vectors back to the sample coordinate system
      -
      1198  cart2polar_wave(w_rot_cart, w_rot_polar)
      -
      1199  // copy to output
      -
      1200  polar[][ii] = w_rot_polar[1][p]
      -
      1201  azi[][ii] = w_rot_polar[2][p]
      -
      1202  endfor
      -
      1203 end
      -
      1204 
      -
      1205 static function line_average(source, dest)
      -
      1206  // is this function used?
      -
      1207  wave source
      -
      1208  wave dest
      -
      1209 
      -
      1210  variable ii
      -
      1211  variable nn = dimsize(source, 1)
      -
      1212  make /n=(dimsize(source, 0))/d/free line
      -
      1213  for (ii = 0; ii < nn; ii += 1)
      -
      1214  line = source[p][ii]
      -
      1215  wavestats /q line
      -
      1216  dest[][ii] = line[p] / v_max
      -
      1217  endfor
      -
      1218 end
      -
      1219 
      -
      1223 static function calc_nth(Theta_st, Theta_in, th, Phi_ran, Phi_ref, Holomode)
      -
      1224  Variable Theta_st, Theta_in, th, Phi_ran, Phi_ref
      -
      1225  String Holomode
      -
      1226  Variable The_step
      -
      1227  Variable deg2rad=0.01745329
      -
      1228 
      -
      1229  if ( cmpstr(Holomode, "Stereographic") == 0)
      -
      1230  The_step =trunc( Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st )
      -
      1231  if(th==90)
      -
      1232  The_step =trunc( Phi_ran*sin(th*pi/180)*Phi_ref/Theta_st )
      -
      1233  endif
      -
      1234  else
      -
      1235  if (cmpstr(Holomode, "Parallel") == 0)
      -
      1236  The_step=trunc( Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st )
      -
      1237  else
      -
      1238  if ( cmpstr(Holomode, "h") == 0)
      -
      1239  The_step=trunc( th/Theta_in*Phi_ran/Theta_st )
      -
      1240  else
      -
      1241  //altro
      -
      1242  endif
      -
      1243  endif
      -
      1244  endif
      -
      1245 
      -
      1246  return(The_step)
      -
      1247 end
      -
      1248 
      -
      1252 static function calc_phi_step(Theta_in, th, Theta_st, Phi_ran, Phi_ref, Holomode)
      -
      1253  Variable Theta_in, th, Theta_st, Phi_ran, Phi_ref
      -
      1254  String Holomode
      -
      1255 
      -
      1256  Variable Phi_st
      -
      1257  Variable deg2rad=0.01745329
      -
      1258 
      -
      1259  if ( cmpstr(Holomode, "Stereographic") == 0 )
      -
      1260  if ((th < 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))
      -
      1261  Phi_st=0.0
      -
      1262  else
      -
      1263  Phi_st=Phi_ran/(trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st))
      -
      1264  endif
      -
      1265  if(th==90)
      -
      1266  Phi_st=2.0
      -
      1267  endif
      -
      1268  endif
      -
      1269 
      -
      1270  if ( cmpstr(Holomode, "Parallel") == 0 )
      -
      1271  if((th < 0.5) || (trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st) == 0))
      -
      1272  Phi_st=0.0
      -
      1273  else
      -
      1274  Phi_st=Phi_ran/(trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st))
      -
      1275  endif
      -
      1276  endif
      -
      1277 
      -
      1278  if ( cmpstr(Holomode, "h") == 0 )
      -
      1279  if((th < 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))
      -
      1280  Phi_st=0.0
      -
      1281  else
      -
      1282  Phi_st=Phi_ran/trunc(th/Theta_in*Phi_ran/Theta_st)
      -
      1283  endif
      -
      1284  endif
      -
      1285 
      -
      1286  if (Phi_st==0)
      -
      1287  Phi_st=360
      -
      1288  endif
      -
      1289 
      -
      1290  return(Phi_st)
      -
      1291 end
      -
      1292 
      -
      1296 static function Calc_The_step(th, Theta_st, Holomode)
      -
      1297  String Holomode
      -
      1298  Variable th, Theta_st
      -
      1299 
      -
      1300  Variable deg2rad=0.01745329, dt_loc,The_step
      -
      1301 
      -
      1302  if ( (cmpstr(Holomode, "Stereographic")) ==0 )
      -
      1303  The_step=Theta_st
      -
      1304  endif
      -
      1305 
      -
      1306  if ( (cmpstr(Holomode, "h")) ==0 )
      -
      1307  The_step=Theta_st
      -
      1308  endif
      -
      1309 
      -
      1310  if ( cmpstr(Holomode, "Parallel") == 0 )
      -
      1311  if(th < 89.5)
      -
      1312  dt_loc = Theta_st/cos(th*deg2rad)
      -
      1313  if(dt_loc > 10)
      -
      1314  dt_loc=10
      -
      1315  endif
      -
      1316  The_step=dt_loc
      -
      1317  else
      -
      1318  The_step=10
      -
      1319  endif
      -
      1320  endif
      -
      1321  return(The_step)
      -
      1322 end
      -
      1323 
      -
      1327 static function CalcN_Theta(HoloMode,Theta_in,Theta_ran,Theta_st)
      -
      1328  String HoloMode
      -
      1329  Variable Theta_in,Theta_ran,Theta_st
      -
      1330  Variable n_theta, aux, aux1,ii
      -
      1331 
      -
      1332  aux = Theta_in
      -
      1333  aux1= Theta_in - Theta_ran
      -
      1334  ii = 0
      -
      1335  do
      -
      1336  aux = aux - Calc_The_step(aux, Theta_st, HoloMode)
      -
      1337  if(aux<=Theta_in-Theta_ran)
      -
      1338  aux=Theta_in-Theta_ran
      -
      1339  endif
      -
      1340  ii = ii+1
      -
      1341  while((aux>aux1)%&(Theta_in-aux<=Theta_ran)) //
      -
      1342  n_theta=ii+1
      -
      1343  Return(n_theta)
      -
      1344 end
      -
      1345 
      -
      1365 function make_hemi_grid(npol, nickname, [xpdplot])
      -
      1366  variable npol
      -
      1367  string nickname
      -
      1368  variable xpdplot
      -
      1369 
      -
      1370  if (ParamIsDefault(xpdplot))
      -
      1371  xpdplot = 0
      -
      1372  endif
      -
      1373 
      -
      1374  string HoloMode = "h"
      -
      1375  variable Theta_in = 90
      -
      1376  variable Theta_ran = 90
      -
      1377  variable Theta_st = 90 / (npol - 1)
      -
      1378  variable Phi_ran = 360
      -
      1379  variable Phi_ref = 1
      -
      1380  variable Phi_in = 0
      -
      1381 
      -
      1382  variable n_theta = CalcN_Theta(HoloMode, Theta_in, Theta_ran, Theta_st)
      -
      1383 
      -
      1384  // wave names
      -
      1385  if (strlen(nickname))
      -
      1386  string s_prefix = nickname + "_"
      -
      1387  string s_int = s_prefix + "i" // Intensity wave (counts/sec)
      -
      1388  else
      -
      1389  s_prefix = ""
      -
      1390  s_int = "values" // "i" is not a valid wave name
      -
      1391  endif
      -
      1392  string s_polar = s_prefix + "pol" // thetas for each int-point of the holo
      -
      1393  string s_azim = s_prefix + "az" // phis for each int-point of the holo
      -
      1394 
      -
      1395  string s_index = s_prefix + "index" // starting index for each theta
      -
      1396  string s_theta = s_prefix + "th" // theta values
      -
      1397  string s_dphi = s_prefix + "dphi" // delta phis at each theta
      -
      1398  string s_nphis = s_prefix + "nphis" // number of phis at each theta
      -
      1399 
      -
      1400  string s_HoloData = s_prefix + "data" // All holo exp.- parameter information
      -
      1401  string s_HoloInfo = s_prefix + "info"
      -
      1402 
      -
      1403  // the following two waves are used by the pearl-anglescan procedures but not by XPDplot
      -
      1404  string s_tot = s_prefix + "tot" // accumulated counts at each point
      -
      1405  string s_weight = s_prefix + "wt" // total accumulation time at each point (arb. units)
      -
      1406 
      -
      1407  make /O/D/n=(n_theta) $s_index /wave=index
      -
      1408  make /O/D/n=(n_theta) $s_theta /wave=theta
      -
      1409  make /O/D/n=(n_theta) $s_dphi /wave=dphi
      -
      1410  make /O/D/n=(n_theta) $s_nphis /wave=nphis
      -
      1411 
      -
      1412  //---------- calculate phi-step-size for this theta:
      -
      1413  variable aux = Calc_The_step(Theta_in, Theta_st, HoloMode)
      -
      1414  dphi[0] = calc_phi_step(Theta_in, Theta_in, aux, Phi_ran, Phi_ref, HoloMode)
      -
      1415  Theta[0] = Theta_in
      -
      1416  nphis[0] = calc_nth(aux, Theta_in, Theta_in, Phi_ran, Phi_ref, HoloMode)
      -
      1417  Index[0] = nphis[0]
      -
      1418 
      -
      1419  //---------- calculate number of phis, phi-step, and starting-index for each theta:
      -
      1420  variable ii = 1
      -
      1421  do
      -
      1422  Theta[ii] = Theta[ii-1] - aux
      -
      1423  if(Theta[ii] <= Theta_in-Theta_ran)
      -
      1424  Theta[ii] = Theta_in-Theta_ran
      -
      1425  endif
      -
      1426  aux = Calc_The_step(Theta[ii], Theta_st, HoloMode)
      -
      1427  dphi[ii] = calc_phi_step(Theta_in, Theta[ii], aux, Phi_ran, Phi_ref, HoloMode)
      -
      1428  nphis[ii] = calc_nth(aux, Theta_in, Theta[ii], Phi_ran, Phi_ref, HoloMode)
      -
      1429  Index[ii] = Index[ii-1] + nphis[ii]
      -
      1430  ii=ii+1
      -
      1431  while(ii < n_theta)
      -
      1432 
      -
      1433  if (Index[n_theta-1]==Index[n_theta-2])
      -
      1434  Index[n_theta-1]=Index[n_theta-2]+1
      -
      1435  nphis[n_theta-1]=1
      -
      1436  endif
      -
      1437 
      -
      1438  variable NumPoints = sum(nphis, 0, numpnts(nphis))
      -
      1439 
      -
      1440  //---------- calculate theta and phi for each data point:
      -
      1441  make /O/D/N=(NumPoints) $s_polar /wave=polar, $s_azim /wave=azim
      -
      1442  note azim, "version=1.6"
      -
      1443 
      -
      1444  ii = 0
      -
      1445  variable StartIndex = 0
      -
      1446  variable EndIndex
      -
      1447  do
      -
      1448  EndIndex=Index[ii]
      -
      1449  Polar[StartIndex, EndIndex-1]=Theta[ii]
      -
      1450  Azim[StartIndex, EndIndex-1]= mod(Phi_ran+(x-StartIndex)*dphi[ii]+Phi_in,Phi_ran)
      -
      1451  ii = ii + 1
      -
      1452  StartIndex = EndIndex
      -
      1453  while(ii < n_theta)
      -
      1454 
      -
      1455  duplicate /o azim, $s_int /wave=values
      -
      1456  duplicate /o azim, $s_tot /wave=totals
      -
      1457  duplicate /o azim, $s_weight /wave=weights
      -
      1458  values = nan
      -
      1459  totals = 0
      -
      1460  weights = 0
      -
      1461 
      -
      1462  // XPDplot metadata
      -
      1463  if (xpdplot)
      -
      1464  string s_FileName = ""
      -
      1465  string s_Comment = "created by pearl-anglescan-process.ipf"
      -
      1466  string s_HoloMode = "Stereographic"
      -
      1467  variable /g gb_SpectraFile = 0
      -
      1468 
      -
      1469  Make/O/D/n=22 $s_HoloData /wave=HoloData
      -
      1470  HoloData[0] = NaN // v_StartKE
      -
      1471  HoloData[1] = NaN // v_StoppKE
      -
      1472  HoloData[6] = NumPoints
      -
      1473  HoloData[7] = Theta_in
      -
      1474  HoloData[8] = Theta_ran
      -
      1475  HoloData[9] = Theta_st
      -
      1476  HoloData[11] = Phi_in
      -
      1477  HoloData[12] = Phi_ran
      -
      1478  HoloData[13] = Theta_st
      -
      1479  HoloData[15] = Phi_ref
      -
      1480  HoloData[16] = Phi_ran
      -
      1481  HoloData[17] = 0 // v_HoloBit (stereographic)
      -
      1482 
      -
      1483  Make/O/T/n=22 $s_HoloInfo /wave=HoloInfo
      -
      1484  HoloInfo[0] = s_FileName
      -
      1485  HoloInfo[1] = s_Comment
      -
      1486  HoloInfo[10] = s_HoloMode
      -
      1487  HoloInfo[11] = "" // s_MeasuringMode
      -
      1488 
      -
      1489  // notebook for XPDplot
      -
      1490  if (WinType(NickName) == 5)
      -
      1491  Notebook $NickName selection={startOfFile, endOfFile}
      -
      1492  Notebook $NickName text=""
      -
      1493  else
      -
      1494  NewNotebook /F=0 /K=1 /N=$NickName /W=(5,40,341,260)
      -
      1495  Notebook $NickName defaultTab=140
      -
      1496  Notebook $NickName statusWidth=300
      -
      1497  Notebook $NickName backRGB=(56797,56797,56797)
      -
      1498  Notebook $NickName pageMargins={80,80,80,80}
      -
      1499  Notebook $NickName fSize=10
      -
      1500  Notebook $NickName fStyle=0,textRGB=(65535,0,26214)
      -
      1501  Notebook $NickName textRGB=(65535,0,26214)
      -
      1502  endif
      -
      1503  Notebook $NickName text = "File:\t" + s_FileName + "\r"
      -
      1504  Notebook $NickName text = "*** " + s_Comment + " ***\r\r"
      -
      1505  Notebook $NickName text = "Angle-Mode:\t" + s_HoloMode + "\r"
      -
      1506  Notebook $NickName text = "XPDplot Nickname:\t" + NickName + "\r"
      -
      1507  endif
      -
      1508 end
      -
      1509 
      -
      1516 function /s get_hemi_nickname(w)
      -
      1517  wave w
      -
      1518 
      -
      1519  string prefix = get_hemi_prefix(w)
      -
      1520  string wname = nameofwave(w)
      -
      1521  string nickname
      -
      1522 
      -
      1523  if (strlen(prefix))
      -
      1524  nickname = prefix
      -
      1525  else
      -
      1526  string s_wave_df = GetWavesDataFolder(w, 1)
      -
      1527  dfref parent_df = $(s_wave_df + "::")
      -
      1528  nickname = GetDataFolder(0, parent_df)
      -
      1529  endif
      -
      1530 
      -
      1531  return nickname
      -
      1532 end
      -
      1533 
      -
      1541 function /s get_hemi_prefix(w)
      -
      1542  wave w
      -
      1543 
      -
      1544  string wname = nameofwave(w)
      -
      1545  string prefix
      -
      1546  if (ItemsInList(wname, "_") >= 2)
      -
      1547  prefix = StringFromList(0, wname, "_")
      -
      1548  else
      -
      1549  prefix = ""
      -
      1550  endif
      -
      1551 
      -
      1552  return prefix
      -
      1553 end
      -
      1554 
      -
      1572 function /df find_hemi_data(nickname, prefix, intwave)
      -
      1573  string nickname
      -
      1574  string &prefix
      -
      1575  string &intwave
      -
      1576 
      -
      1577  dfref datadf
      -
      1578  prefix = ""
      -
      1579  intwave = "values"
      -
      1580  if (strlen(nickname))
      -
      1581  if (DataFolderExists(nickname))
      -
      1582  datadf = $nickname
      -
      1583  else
      -
      1584  datadf = getdatafolderdfr()
      -
      1585  prefix = nickname + "_"
      -
      1586  intwave = prefix + "i"
      -
      1587  if (exists(intwave) != 1)
      -
      1588  datadf = root:
      -
      1589  endif
      -
      1590  endif
      -
      1591  else
      -
      1592  datadf = getdatafolderdfr()
      -
      1593  prefix = ""
      -
      1594  intwave = "values"
      -
      1595  endif
      -
      1596  return datadf
      -
      1597 end
      -
      1598 
      -
      1606 function clear_hemi_grid(nickname)
      -
      1607  string nickname
      -
      1608 
      -
      1609  dfref datadf
      -
      1610  string s_prefix
      -
      1611  string s_int
      -
      1612  datadf = find_hemi_data(nickname, s_prefix, s_int)
      -
      1613 
      -
      1614  string s_totals = s_prefix + "tot"
      -
      1615  string s_weights = s_prefix + "wt"
      -
      1616 
      -
      1617  wave /sdfr=datadf /z w_values = $s_int
      -
      1618  wave /sdfr=datadf /z w_totals = $s_totals
      -
      1619  wave /sdfr=datadf /z w_weights = $s_weights
      -
      1620 
      -
      1621  if (waveexists(w_totals))
      -
      1622  w_totals = 0
      -
      1623  endif
      -
      1624  if (waveexists(w_weights))
      -
      1625  w_weights = 0
      -
      1626  endif
      -
      1627  if (waveexists(w_values))
      -
      1628  w_values = nan
      -
      1629  endif
      -
      1630 end
      -
      1631 
      -
      1653 function duplicate_hemi_scan(source_nickname, dest_folder, dest_nickname, [xpdplot])
      -
      1654  string source_nickname
      -
      1655  dfref dest_folder
      -
      1656  string dest_nickname
      -
      1657  variable xpdplot
      -
      1658 
      -
      1659  if (ParamIsDefault(xpdplot))
      -
      1660  xpdplot = 0
      -
      1661  endif
      -
      1662 
      -
      1663  dfref savedf = getdatafolderdfr()
      -
      1664 
      -
      1665  // source data
      -
      1666  string s_prefix = ""
      -
      1667  string s_int = "values"
      -
      1668  dfref source_df = find_hemi_data(source_nickname, s_prefix, s_int)
      -
      1669  string s_polar = s_prefix + "pol"
      -
      1670  string s_azim = s_prefix + "az"
      -
      1671  string s_theta = s_prefix + "th"
      -
      1672  string s_tot = s_prefix + "tot"
      -
      1673  string s_weight = s_prefix + "wt"
      -
      1674  string s_matrix = s_prefix + "matrix"
      -
      1675 
      -
      1676  wave /sdfr=source_df theta1 = $s_theta
      -
      1677  wave /sdfr=source_df polar1 = $s_polar
      -
      1678  wave /sdfr=source_df azim1 = $s_azim
      -
      1679  wave /sdfr=source_df tot1 = $s_tot
      -
      1680  wave /sdfr=source_df weight1 = $s_weight
      -
      1681  wave /sdfr=source_df values1 = $s_int
      -
      1682  wave /sdfr=source_df /z matrix1 = $s_matrix
      -
      1683 
      -
      1684  variable npol = numpnts(theta1)
      -
      1685 
      -
      1686  setdatafolder dest_folder
      -
      1687  make_hemi_grid(npol, dest_nickname, xpdplot=xpdplot)
      -
      1688 
      -
      1689  // dest data
      -
      1690  dfref dest_df = find_hemi_data(dest_nickname, s_prefix, s_int)
      -
      1691  s_polar = s_prefix + "pol"
      -
      1692  s_azim = s_prefix + "az"
      -
      1693  s_theta = s_prefix + "th"
      -
      1694  s_tot = s_prefix + "tot"
      -
      1695  s_weight = s_prefix + "wt"
      -
      1696  s_matrix = s_prefix + "matrix"
      -
      1697 
      -
      1698  wave /sdfr=dest_df theta2 = $s_theta
      -
      1699  wave /sdfr=dest_df polar2 = $s_polar
      -
      1700  wave /sdfr=dest_df azim2 = $s_azim
      -
      1701  wave /sdfr=dest_df tot2 = $s_tot
      -
      1702  wave /sdfr=dest_df weight2 = $s_weight
      -
      1703  wave /sdfr=dest_df values2 = $s_int
      -
      1704 
      -
      1705  tot2 = tot1
      -
      1706  weight2 = weight1
      -
      1707  values2 = values1
      -
      1708  if (waveexists(matrix1))
      -
      1709  setdatafolder dest_df
      -
      1710  duplicate /o matrix1, $s_matrix
      -
      1711  endif
      -
      1712 
      -
      1713  if (!(NumberByKey("version", note(azim1), "=", "\r") >= 1.6))
      -
      1714  azim2 += 180 // changed 151030 (v1.6)
      -
      1715  azim2 = azim2 >= 360 ? azim2 - 360 : azim2
      -
      1716  endif
      -
      1717 
      -
      1718  setdatafolder saveDF
      -
      1719 end
      -
      1720 
      -
      1728 function rotate_hemi_scan(nickname, angle)
      -
      1729  string nickname
      -
      1730  variable angle
      -
      1731 
      -
      1732  dfref savedf = getdatafolderdfr()
      -
      1733 
      -
      1734  string s_prefix = ""
      -
      1735  string s_int = "values"
      -
      1736  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      1737 
      -
      1738  string s_polar = s_prefix + "pol"
      -
      1739  string s_azim = s_prefix + "az"
      -
      1740  string s_tot = s_prefix + "tot"
      -
      1741  string s_weight = s_prefix + "wt"
      -
      1742 
      -
      1743  wave /sdfr=df polar = $s_polar
      -
      1744  wave /sdfr=df azim = $s_azim
      -
      1745  wave /sdfr=df tot = $s_tot
      -
      1746  wave /sdfr=df weight = $s_weight
      -
      1747  wave /sdfr=df values = $s_int
      -
      1748 
      -
      1749  azim += angle
      -
      1750  azim = azim < 0 ? azim + 360 : azim
      -
      1751  azim = azim >= 360 ? azim - 360 : azim
      -
      1752 
      -
      1753  duplicate /free polar, neg_polar
      -
      1754  neg_polar = -polar
      -
      1755  sort {neg_polar, azim}, polar, azim, tot, weight, values
      -
      1756 
      -
      1757  setdatafolder saveDF
      -
      1758 end
      -
      1759 
      -
      1776 function /s prepare_hemi_scan_display(nickname, [projection])
      -
      1777  string nickname
      -
      1778  variable projection
      -
      1779 
      -
      1780  dfref savedf = getdatafolderdfr()
      -
      1781 
      -
      1782  if (ParamIsDefault(projection))
      -
      1783  projection = 1
      -
      1784  endif
      -
      1785 
      -
      1786  // hemi grid waves
      -
      1787  string s_prefix = ""
      -
      1788  string s_int = "values"
      -
      1789  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      1790 
      -
      1791  string s_polar = s_prefix + "pol"
      -
      1792  string s_azim = s_prefix + "az"
      -
      1793 
      -
      1794  wave /sdfr=df /z values = $s_int
      -
      1795  wave /sdfr=df /z azim = $s_azim
      -
      1796  wave /sdfr=df /z polar = $s_polar
      -
      1797 
      -
      1798  setdatafolder df
      -
      1799  string s_ster_rad = s_prefix + "ster_rad"
      -
      1800  duplicate /o polar, $s_ster_rad /wave=ster_rad
      -
      1801  ster_rad = calc_graph_radius(polar, projection=projection)
      -
      1802 
      -
      1803  string s_ster_x = s_prefix + "ster_x"
      -
      1804  string s_ster_y = s_prefix + "ster_y"
      -
      1805  duplicate /o azim, $s_ster_x /wave=ster_x, $s_ster_y /wave=ster_y
      -
      1806  ster_x = ster_rad * cos(azim * pi / 180)
      -
      1807  ster_y = ster_rad * sin(azim * pi / 180)
      -
      1808 
      -
      1809  setdatafolder savedf
      -
      1810 end
      -
      1811 
      -
      1858 function /s display_hemi_scan(nickname, [projection, graphtype, do_ticks, do_grids, graphname])
      -
      1859  string nickname
      -
      1860  variable projection
      -
      1861  variable graphtype
      -
      1862  variable do_ticks
      -
      1863  variable do_grids
      -
      1864  string graphname
      -
      1865 
      -
      1866  dfref savedf = getdatafolderdfr()
      -
      1867 
      -
      1868  if (ParamIsDefault(projection))
      -
      1869  projection = 1
      -
      1870  endif
      -
      1871  if (ParamIsDefault(graphtype))
      -
      1872  graphtype = 1
      -
      1873  endif
      -
      1874  if (ParamIsDefault(do_ticks))
      -
      1875  do_ticks = 3
      -
      1876  endif
      -
      1877  if (ParamIsDefault(do_grids))
      -
      1878  do_grids = 3
      -
      1879  endif
      -
      1880  if (ParamIsDefault(graphname))
      -
      1881  if (strlen(nickname) > 0)
      -
      1882  graphname = nickname
      -
      1883  else
      -
      1884  graphname = GetDataFolder(0)
      -
      1885  endif
      -
      1886  endif
      -
      1887 
      -
      1888  prepare_hemi_scan_display(nickname, projection=projection)
      -
      1889 
      -
      1890  // hemi grid waves
      -
      1891  string s_prefix = ""
      -
      1892  string s_int = "values"
      -
      1893  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      1894 
      -
      1895  string s_polar = s_prefix + "pol"
      -
      1896  string s_azim = s_prefix + "az"
      -
      1897  string s_matrix = s_prefix + "matrix"
      -
      1898  string s_ster_rad = s_prefix + "ster_rad"
      -
      1899 
      -
      1900  wave /sdfr=df /z values = $s_int
      -
      1901  wave /sdfr=df /z azim = $s_azim
      -
      1902  wave /sdfr=df /z polar = $s_polar
      -
      1903  wave /sdfr=df /z ster_rad = $s_ster_rad
      -
      1904  wave /sdfr=df /z matrix = $s_matrix
      -
      1905 
      -
      1906  setdatafolder df
      -
      1907  variable azim_offset = 0
      -
      1908  if (!(NumberByKey("version", note(azim), "=", "\r") >= 1.6))
      -
      1909  DoAlert /T="display hemi scan" 0, "your dataset doesn't include the version 1.6 flag. if it was created with an earlier version that might be okay. please check that the orientation is correct!"
      -
      1910  azim_offset = 180 // changed 151030 (v1.6)
      -
      1911  endif
      -
      1912 
      -
      1913  string s_trace
      -
      1914  DoWindow $graphname
      -
      1915  if (v_flag)
      -
      1916  if (str2num(GetUserData(graphname, "", "graphtype")) == graphtype)
      -
      1917  // graph exists and will update automatically - do not recreate
      -
      1918  graphtype = 0
      -
      1919  else
      -
      1920  // graph exists - but needs recreating
      -
      1921  killwindow $graphname
      -
      1922  endif
      -
      1923  endif
      -
      1924 
      -
      1925  switch(graphtype)
      -
      1926  case 1:
      -
      1927  graphname = display_polar_graph(graphname, angle_offset=azim_offset, do_ticks=do_ticks)
      -
      1928 
      -
      1929  s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)
      -
      1930  ModifyGraph /W=$graphname mode($s_trace)=2, lsize($s_trace)=2
      -
      1931  ModifyGraph /W=$graphname zColor($s_trace)={values,*,*,BlueGreenOrange,0}
      -
      1932 
      -
      1933  ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 trace=polarY0
      -
      1934  ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0
      -
      1935  ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50
      -
      1936 
      -
      1937  SetWindow $graphname, userdata(projection)=num2str(projection)
      -
      1938  SetWindow $graphname, userdata(graphtype)=num2str(graphtype)
      -
      1939  draw_hemi_axes(graphname, do_grids=do_grids)
      -
      1940  break
      -
      1941  case 3:
      -
      1942  graphname = display_polar_graph(graphname, angle_offset=azim_offset, do_ticks=do_ticks)
      -
      1943 
      -
      1944  s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)
      -
      1945  ModifyGraph /W=$graphname mode($s_trace)=0, lsize($s_trace)=0
      -
      1946  AppendImage /L=VertCrossing /B=HorizCrossing matrix
      -
      1947 
      -
      1948  ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 image=$s_matrix
      -
      1949  ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0
      -
      1950  ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50
      -
      1951 
      -
      1952  SetWindow $graphname, userdata(projection)=num2str(projection)
      -
      1953  SetWindow $graphname, userdata(graphtype)=num2str(graphtype)
      -
      1954  draw_hemi_axes(graphname, do_grids=do_grids)
      -
      1955  break
      -
      1956  endswitch
      -
      1957 
      -
      1958  setdatafolder savedf
      -
      1959  return graphname
      -
      1960 end
      -
      1961 
      -
      2003 static function /s display_polar_graph(graphname, [angle_offset, do_ticks])
      -
      2004 
      -
      2005  string graphname
      -
      2006  variable angle_offset
      -
      2007  variable do_ticks
      -
      2008 
      -
      2009  dfref savedf = GetDataFolderDFR()
      -
      2010 
      -
      2011  if (ParamIsDefault(angle_offset))
      -
      2012  angle_offset = 0
      -
      2013  endif
      -
      2014  if (ParamIsDefault(do_ticks))
      -
      2015  do_ticks = 3
      -
      2016  endif
      -
      2017 
      -
      2018  if ((strlen(graphname) == 0) || (wintype(graphname) == 0))
      -
      2019  Display /k=1 /W=(10,45,360,345)
      -
      2020  DoWindow /C $graphname
      -
      2021  graphname = WMNewPolarGraph("", graphname)
      -
      2022  WMPolarGraphSetVar(graphname, "zeroAngleWhere", angle_offset)
      -
      2023 
      -
      2024  WMPolarGraphSetVar(graphname, "angleAxisThick", 0.5)
      -
      2025  WMPolarGraphSetStr(graphname, "doMajorAngleTicks", "manual")
      -
      2026  WMPolarGraphSetVar(graphname, "majorAngleInc", 30) // major ticks in 30 deg steps
      -
      2027  WMPolarGraphSetVar(graphname, "minorAngleTicks", 2) // minor ticks in 10 deg steps
      -
      2028  WMPolarGraphSetStr(graphname, "angleTicksLocation", "Outside")
      -
      2029  WMPolarGraphSetVar(graphname, "doAngleTickLabelSubRange", 1)
      -
      2030  WMPolarGraphSetVar(graphname, "angleTickLabelRangeStart", 0)
      -
      2031  WMPolarGraphSetVar(graphname, "angleTickLabelRangeExtent", 90)
      -
      2032  WMPolarGraphSetStr(graphname, "angleTickLabelNotation", "%g°")
      -
      2033 
      -
      2034  WMPolarGraphSetVar(graphname, "doPolarGrids", 0)
      -
      2035  WMPolarGraphSetVar(graphname, "doRadiusTickLabels", 0)
      -
      2036  WMPolarGraphSetStr(graphname, "radiusAxesWhere", " Off") // note the leading spaces, cf. WMPolarAnglesForRadiusAxes
      -
      2037  WMPolarGraphSetStr(graphname, "radiusTicksLocation", "Off")
      -
      2038 
      -
      2039  WMPolarGraphSetVar(graphname, "majorTickLength", 2)
      -
      2040  WMPolarGraphSetVar(graphname, "majorTickThick", 0.5)
      -
      2041  WMPolarGraphSetVar(graphname, "minorTickLength", 1)
      -
      2042  WMPolarGraphSetVar(graphname, "minorTickThick", 0.5)
      -
      2043  WMPolarGraphSetVar(graphname, "tickLabelOpaque", 0)
      -
      2044  WMPolarGraphSetVar(graphname, "tickLabelFontSize", 7)
      -
      2045 
      -
      2046  // changes
      -
      2047  if (do_ticks & 1)
      -
      2048  WMPolarGraphSetStr(graphname, "angleTicksLocation", "Outside")
      -
      2049  else
      -
      2050  WMPolarGraphSetStr(graphname, "angleTicksLocation", "Off")
      -
      2051  endif
      -
      2052  if (do_ticks & 2)
      -
      2053  WMPolarGraphSetVar(graphname, "doMinorAngleTicks", 1)
      -
      2054  else
      -
      2055  WMPolarGraphSetVar(graphname, "doMinorAngleTicks", 0)
      -
      2056  endif
      -
      2057 
      -
      2058  DoWindow /T $graphname, graphname
      -
      2059 
      -
      2060  // cursor info in angles
      -
      2061  string graphdf = "root:packages:WMPolarGraphs:" + graphname
      -
      2062  setdatafolder graphdf
      -
      2063  // current theta, phi coordinates are stored in global variables in the package folder of the graph
      -
      2064  variable /g csrA_theta
      -
      2065  variable /g csrA_phi
      -
      2066  variable /g csrB_theta
      -
      2067  variable /g csrB_phi
      -
      2068  // the text box is hidden initially. it shows up and hides with the cursor info box.
      -
      2069  string tb
      -
      2070  tb = "\\{"
      -
      2071  tb = tb + "\"A = (%.1f, %.1f)\","
      -
      2072  tb = tb + graphdf + ":csrA_theta,"
      -
      2073  tb = tb + graphdf + ":csrA_phi"
      -
      2074  tb = tb + "}"
      -
      2075  TextBox /W=$graphname /A=LT /B=1 /E=2 /F=0 /N=tb_angles /X=1 /Y=1 /V=0 tb
      -
      2076  tb = "\\{"
      -
      2077  tb = tb + "\"B = (%.1f, %.1f)\","
      -
      2078  tb = tb + graphdf + ":csrB_theta,"
      -
      2079  tb = tb + graphdf + ":csrB_phi"
      -
      2080  tb = tb + "}"
      -
      2081  AppendText /W=$graphname /N=tb_angles tb
      -
      2082  // updates are triggered by a window hook
      -
      2083  SetWindow $graphname, hook(polar_graph_hook)=PearlAnglescanProcess#polar_graph_hook
      -
      2084  else
      -
      2085  // graph window exists
      -
      2086  DoWindow /F $graphname
      -
      2087  endif
      -
      2088 
      -
      2089  setdatafolder savedf
      -
      2090  return graphname
      -
      2091 end
      -
      2092 
      -
      2118 static function /s draw_hemi_axes(graphname, [do_grids])
      -
      2119  string graphname
      -
      2120  variable do_grids
      -
      2121 
      -
      2122  if (ParamIsDefault(do_grids))
      -
      2123  do_grids = 3
      -
      2124  endif
      -
      2125 
      -
      2126  dfref savedf = GetDataFolderDFR()
      -
      2127 
      -
      2128  string sproj = GetUserData(graphname, "", "projection")
      -
      2129  variable projection = str2num("0" + sproj)
      -
      2130 
      -
      2131  SetDrawLayer /W=$graphname ProgFront
      -
      2132 
      -
      2133  // polar axis
      -
      2134  SetDrawEnv /W=$graphname xcoord=HorizCrossing, ycoord=VertCrossing
      -
      2135  SetDrawEnv /W=$graphname linethick= 0.5
      -
      2136  SetDrawEnv /W=$graphname dash=2
      -
      2137  SetDrawEnv /W=$graphname fillpat=0
      -
      2138  SetDrawEnv /W=$graphname fname="default", fsize=7
      -
      2139  SetDrawEnv /W=$graphname textxjust=1, textyjust=1
      -
      2140  //SetDrawEnv /W=$graphname linefgc=(65535,65535,65535)
      -
      2141  SetDrawEnv /W=$graphname save
      -
      2142 
      -
      2143  if (do_grids & 1)
      -
      2144  DrawLine /W=$graphname 0, -2, 0, 2
      -
      2145  DrawLine /W=$graphname -2, 0, 2, 0
      -
      2146  endif
      -
      2147 
      -
      2148  variable radi
      -
      2149  if (do_grids & 2)
      -
      2150  radi = calc_graph_radius(0.5, projection=projection)
      -
      2151  DrawOval /W=$graphname -radi, radi, radi, -radi
      -
      2152  radi = calc_graph_radius(30, projection=projection)
      -
      2153  DrawOval /W=$graphname -radi, radi, radi, -radi
      -
      2154  radi = calc_graph_radius(60, projection=projection)
      -
      2155  DrawOval /W=$graphname -radi, radi, radi, -radi
      -
      2156 
      -
      2157  SetDrawEnv /W=$graphname textxjust= 1,textyjust= 2
      -
      2158  SetDrawEnv /W=$graphname save
      -
      2159  radi = calc_graph_radius(30, projection=projection)
      -
      2160  DrawText /W=$graphname radi, -0.1, "30°"
      -
      2161  radi = calc_graph_radius(60, projection=projection)
      -
      2162  DrawText /W=$graphname radi, -0.1, "60°"
      -
      2163  endif
      -
      2164 
      -
      2165  setdatafolder savedf
      -
      2166 end
      -
      2167 
      -
      2190 function draw_diffraction_cone(graphname, groupname, theta_axis, theta_inner, phi)
      -
      2191  string graphname
      -
      2192  string groupname
      -
      2193 
      -
      2194  variable theta_axis
      -
      2195  variable theta_inner
      -
      2196  variable phi
      -
      2197 
      -
      2198  variable r_axis = calc_graph_radius(theta_axis)
      -
      2199  variable r_inner = calc_graph_radius(theta_inner)
      -
      2200  variable r_outer = calc_graph_radius(2 * theta_axis - theta_inner)
      -
      2201 
      -
      2202  SetDrawEnv push
      -
      2203  SetDrawLayer UserFront
      -
      2204  DrawAction getgroup=$groupname, delete
      -
      2205  SetDrawEnv gstart, gname=$groupname
      -
      2206  variable xc, yc, xr, yr
      -
      2207 
      -
      2208  // cone periphery
      -
      2209  variable r_center = (r_outer + r_inner) / 2
      -
      2210  variable r_radius = (r_outer - r_inner) / 2
      -
      2211  xc = r_center * cos(phi * pi / 180)
      -
      2212  yc = r_center * sin(phi * pi / 180)
      -
      2213  xr = r_radius
      -
      2214  yr = r_radius
      -
      2215  SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing
      -
      2216  SetDrawEnv dash=11, fillpat=0
      -
      2217  DrawOval xc - xr, yc - yr, xc + xr, yc + yr
      -
      2218 
      -
      2219  // cone axis
      -
      2220  xc = r_axis * cos(phi * pi / 180)
      -
      2221  yc = r_axis * sin(phi * pi / 180)
      -
      2222  r_radius = calc_graph_radius(2)
      -
      2223  xr = r_radius
      -
      2224  yr = r_radius
      -
      2225  SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing
      -
      2226  SetDrawEnv fillfgc=(0,0,0)
      -
      2227  DrawOval xc - xr, yc - yr, xc + xr, yc + yr
      -
      2228 
      -
      2229  SetDrawEnv gstop
      -
      2230  SetDrawEnv pop
      -
      2231 end
      -
      2232 
      -
      2254 function /s display_scanlines(nickname, alpha_lo, alpha_hi, m_theta, m_tilt, m_phi, [folding, projection])
      -
      2255  string nickname
      -
      2256  variable alpha_lo
      -
      2257  variable alpha_hi
      -
      2258  wave m_theta
      -
      2259  wave m_tilt
      -
      2260  wave m_phi
      -
      2261  variable folding
      -
      2262  variable projection
      -
      2263 
      -
      2264  if (ParamIsDefault(folding))
      -
      2265  folding = 1
      -
      2266  endif
      -
      2267  if (ParamIsDefault(projection))
      -
      2268  projection = 1
      -
      2269  endif
      -
      2270 
      -
      2271  // sort out data folder structure
      -
      2272  dfref saveDF = GetDataFolderDFR()
      -
      2273  newdatafolder /s/o $nickname
      -
      2274  string graphname = "graph_" + nickname
      -
      2275 
      -
      2276  duplicate /free m_tilt, loc_m_tilt
      -
      2277  loc_m_tilt = -m_tilt
      -
      2278 
      -
      2279  make /n=1 /d /free d_polar, d_azi
      -
      2280  variable n_alpha = round(alpha_hi - alpha_lo) + 1
      -
      2281  make /n=(n_alpha) /d /free analyser
      -
      2282  setscale /i x alpha_lo, alpha_hi, "°", analyser
      -
      2283  analyser = x
      -
      2284 
      -
      2285  convert_angles_ttpa2polar(m_theta, loc_m_tilt, m_phi, analyser, d_polar, d_azi)
      -
      2286  duplicate /free d_polar, d_radius
      -
      2287  d_radius = calc_graph_radius(d_polar, projection=projection)
      -
      2288  d_azi += 180 // changed 151030 (v1.6)
      -
      2289 
      -
      2290  graphname = display_polar_graph(graphname)
      -
      2291  SetWindow $graphname, userdata(projection)=num2str(projection)
      -
      2292 
      -
      2293  variable ifold
      -
      2294  variable iang
      -
      2295  variable nang = numpnts(m_theta)
      -
      2296  string s_rad
      -
      2297  string s_azi
      -
      2298  string s_trace
      -
      2299  for (ifold = 0; ifold < folding; ifold += 1)
      -
      2300  d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      -
      2301  for (iang = 0; iang < nang; iang += 1)
      -
      2302  sprintf s_rad, "rad_%d_%d", ifold, iang
      -
      2303  duplicate /o analyser, $s_rad
      -
      2304  wave w_rad = $s_rad
      -
      2305  w_rad = d_radius[p][iang]
      -
      2306 
      -
      2307  sprintf s_azi, "azi_%d_%d", ifold, iang
      -
      2308  duplicate /o analyser, $s_azi
      -
      2309  wave w_azi = $s_azi
      -
      2310  w_azi = d_azi[p][iang]
      -
      2311 
      -
      2312  if (numtype(sum(w_rad)) == 0)
      -
      2313  s_trace = WMPolarAppendTrace(graphname, w_rad, w_azi, 360)
      -
      2314  ModifyGraph /w=$graphname mode($s_trace)=0, lsize($s_trace)=0.5
      -
      2315  endif
      -
      2316  endfor
      -
      2317  d_azi += 360 / folding
      -
      2318  endfor
      -
      2319 
      -
      2320  draw_hemi_axes(graphname)
      -
      2321 
      -
      2322  setdatafolder saveDF
      -
      2323  return graphname
      -
      2324 end
      -
      2325 
      -
      2342 constant kProjDist = 0
      -
      2343 constant kProjStereo = 1
      -
      2344 constant kProjArea = 2
      -
      2345 constant kProjGnom = 3
      -
      2346 constant kProjOrtho = 4
      -
      2347 
      -
      2348 static constant kProjScaleDist = 2
      -
      2349 static constant kProjScaleStereo = 2
      -
      2350 static constant kProjScaleArea = 2
      -
      2351 // scaled so that radius(gnom) = radius(stereo) for polar = 88
      -
      2352 static constant kProjScaleGnom = 0.06744519021
      -
      2353 static constant kProjScaleOrtho = 2
      -
      2354 
      -
      2369 threadsafe function calc_graph_radius(polar, [projection])
      -
      2370  variable polar
      -
      2371  variable projection
      -
      2372 
      -
      2373  if (ParamIsDefault(projection))
      -
      2374  projection = 1
      -
      2375  endif
      -
      2376 
      -
      2377  variable radius
      -
      2378  switch(projection)
      -
      2379  case kProjStereo: // stereographic
      -
      2380  radius = kProjScaleStereo * tan(polar / 2 * pi / 180)
      -
      2381  break
      -
      2382  case kProjArea: // equal area
      -
      2383  radius = kProjScaleArea * sin(polar / 2 * pi / 180)
      -
      2384  break
      -
      2385  case kProjGnom: // gnomonic
      -
      2386  radius = polar < 90 ? kProjScaleGnom * tan(polar * pi / 180) : inf
      -
      2387  break
      -
      2388  case kProjOrtho: // orthographic
      -
      2389  radius = kProjScaleOrtho * sin(polar * pi / 180)
      -
      2390  break
      -
      2391  default: // equidistant
      -
      2392  radius = kProjScaleDist * polar / 90
      -
      2393  endswitch
      -
      2394 
      -
      2395  return radius
      -
      2396 end
      -
      2397 
      -
      2414 threadsafe function calc_graph_polar(x, y, [projection])
      -
      2415  variable x
      -
      2416  variable y
      -
      2417  variable projection
      -
      2418 
      -
      2419  if (ParamIsDefault(projection))
      -
      2420  projection = 1
      -
      2421  endif
      -
      2422 
      -
      2423  variable radius
      -
      2424  variable polar
      -
      2425 
      -
      2426  radius = sqrt(x^2 + y^2)
      -
      2427  switch(projection)
      -
      2428  case kProjStereo: // stereographic
      -
      2429  polar = 2 * atan(radius / kProjScaleStereo) * 180 / pi
      -
      2430  break
      -
      2431  case kProjArea: // equal area
      -
      2432  polar = 2 * asin(radius / kProjScaleArea) * 180 / pi
      -
      2433  break
      -
      2434  case kProjGnom: // gnomonic
      -
      2435  polar = atan(radius / kProjScaleGnom) * 180 / pi
      -
      2436  break
      -
      2437  case kProjOrtho: // orthographic
      -
      2438  polar = asin(radius / kProjScaleOrtho) * 180 / pi
      -
      2439  break
      -
      2440  default: // equidistant
      -
      2441  polar = 90 * radius / kProjScaleDist
      -
      2442  endswitch
      -
      2443 
      -
      2444  return polar
      -
      2445 end
      -
      2446 
      -
      2467 threadsafe function calc_graph_azi(x, y, [projection,zeroAngle])
      -
      2468  variable x
      -
      2469  variable y
      -
      2470  variable projection
      -
      2471  variable zeroAngle
      -
      2472 
      -
      2473  if (ParamIsDefault(projection))
      -
      2474  projection = 1
      -
      2475  endif
      -
      2476  if (ParamIsDefault(zeroAngle))
      -
      2477  zeroAngle = 0
      -
      2478  endif
      -
      2479 
      -
      2480  variable azi
      -
      2481  if (x > 0)
      -
      2482  azi = atan(y / x) * 180 / pi
      -
      2483  else
      -
      2484  azi = atan(y / x) * 180 / pi + 180
      -
      2485  endif
      -
      2486 
      -
      2487  azi += zeroAngle
      -
      2488  if (azi < 0)
      -
      2489  azi += 360
      -
      2490  endif
      -
      2491  if (azi >= 360)
      -
      2492  azi -= 360
      -
      2493  endif
      -
      2494  if (numtype(azi) != 0)
      -
      2495  azi = 0
      -
      2496  endif
      -
      2497 
      -
      2498  return azi
      -
      2499 end
      -
      2500 
      -
      2512 static function update_polar_info(graphname)
      -
      2513  string graphname
      -
      2514 
      -
      2515  dfref savedf = GetDataFolderDFR()
      -
      2516 
      -
      2517  string graphdf = "root:packages:WMPolarGraphs:" + graphname
      -
      2518  setdatafolder graphdf
      -
      2519 
      -
      2520  nvar csrA_theta
      -
      2521  nvar csrA_phi
      -
      2522  nvar csrB_theta
      -
      2523  nvar csrB_phi
      -
      2524 
      -
      2525  string sproj = GetUserData(graphname, "", "projection")
      -
      2526  variable projection = str2num("0" + sproj)
      -
      2527  nvar zeroAngleWhere
      -
      2528 
      -
      2529  variable x = hcsr(A, graphname)
      -
      2530  variable y = vcsr(A, graphname)
      -
      2531  csrA_theta = calc_graph_polar(x, y, projection=projection)
      -
      2532  csrA_phi = calc_graph_azi(x, y, projection=projection, zeroAngle=zeroAngleWhere)
      -
      2533 
      -
      2534  x = hcsr(B, graphname)
      -
      2535  y = vcsr(B, graphname)
      -
      2536  csrB_theta = calc_graph_polar(x, y, projection=projection)
      -
      2537  csrB_phi = calc_graph_azi(x, y, projection=projection, zeroAngle=zeroAngleWhere)
      -
      2538 
      -
      2539  setdatafolder savedf
      -
      2540 end
      -
      2541 
      -
      2547 static function polar_graph_hook(s)
      -
      2548  STRUCT WMWinHookStruct &s
      -
      2549 
      -
      2550  Variable hookResult = 0
      -
      2551 
      -
      2552  switch(s.eventCode)
      -
      2553  case 7: // cursor moved
      -
      2554  update_polar_info(s.winname)
      -
      2555  break
      -
      2556  case 20: // show info
      -
      2557  TextBox /W=$s.winname /N=tb_angles /C /V=1
      -
      2558  break
      -
      2559  case 21: // hide info
      -
      2560  TextBox /W=$s.winname /N=tb_angles /C /V=0
      -
      2561  break
      -
      2562  endswitch
      -
      2563 
      -
      2564  return hookResult // 0 if nothing done, else 1
      -
      2565 end
      -
      2566 
      -
      2567 function set_polar_graph_cursor(nickname, cursorname, polar_angle, azim_angle, [graphname])
      -
      2568  string nickname
      -
      2569  string cursorname
      -
      2570  variable polar_angle
      -
      2571  variable azim_angle
      -
      2572  string graphname
      -
      2573 
      -
      2574  if (ParamIsDefault(graphname))
      -
      2575  if (strlen(nickname) > 0)
      -
      2576  graphname = nickname
      -
      2577  else
      -
      2578  graphname = GetDataFolder(0)
      -
      2579  endif
      -
      2580  endif
      -
      2581 
      -
      2582  string s_prefix = ""
      -
      2583  string s_int = "values"
      -
      2584  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      2585 
      -
      2586  string s_polar = s_prefix + "pol"
      -
      2587  string s_azim = s_prefix + "az"
      -
      2588  wave /sdfr=df /z azim = $s_azim
      -
      2589  wave /sdfr=df /z polar = $s_polar
      -
      2590 
      -
      2591  FindLevel /P /Q polar, polar_angle
      -
      2592  if (v_flag == 0)
      -
      2593  variable polar_level = floor(v_levelx)
      -
      2594  FindLevel /P /Q /R=[polar_level] azim, azim_angle
      -
      2595  if (v_flag == 0)
      -
      2596  variable azim_level = round(v_levelx)
      -
      2597  string tracename = "polarY0"
      -
      2598  Cursor /W=$graphname /P $cursorname $traceName azim_level
      -
      2599  endif
      -
      2600  endif
      -
      2601 end
      -
      2602 
      -
      2603 
      -
      2637 function hemi_add_anglescan(nickname, values, polar, azi, [weights])
      -
      2638  string nickname
      -
      2639  wave values
      -
      2640  wave polar
      -
      2641  wave azi
      -
      2642  wave weights
      -
      2643 
      -
      2644  dfref savedf = GetDataFolderDFR()
      -
      2645 
      -
      2646  if (ParamIsDefault(weights))
      -
      2647  duplicate /free values, weights
      -
      2648  weights = 1
      -
      2649  endif
      -
      2650 
      -
      2651  string s_prefix = ""
      -
      2652  string s_int = "values"
      -
      2653  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      2654 
      -
      2655  string s_totals = s_prefix + "tot"
      -
      2656  string s_weights = s_prefix + "wt"
      -
      2657  string s_polar = s_prefix + "pol"
      -
      2658  string s_azim = s_prefix + "az"
      -
      2659  string s_index = s_prefix + "index"
      -
      2660  string s_theta = s_prefix + "th"
      -
      2661  string s_dphi = s_prefix + "dphi"
      -
      2662  string s_nphis = s_prefix + "nphis"
      -
      2663 
      -
      2664  wave /sdfr=df w_polar = $s_polar
      -
      2665  wave /sdfr=df w_azim = $s_azim
      -
      2666  wave /sdfr=df w_values = $s_int
      -
      2667  wave /sdfr=df w_totals = $s_totals
      -
      2668  wave /sdfr=df w_weights = $s_weights
      -
      2669  wave /sdfr=df w_index = $s_index
      -
      2670  wave /sdfr=df w_theta = $s_theta
      -
      2671  wave /sdfr=df w_dphi = $s_dphi
      -
      2672  wave /sdfr=df w_nphis = $s_nphis
      -
      2673 
      -
      2674  // make internal copies of input, one-dimensional, ordered in theta
      -
      2675  duplicate /free values, values_copy
      -
      2676  duplicate /free polar, polar_copy
      -
      2677  duplicate /free azi, azi_copy
      -
      2678  duplicate /free weights, weights_copy
      -
      2679  variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)
      -
      2680  redimension /n=(nn) values_copy, polar_copy, azi_copy, weights_copy
      -
      2681  sort /r polar_copy, polar_copy, azi_copy, values_copy, weights_copy
      -
      2682 
      -
      2683  make /n=(numpnts(w_theta)) /free /df dfw
      -
      2684  // for debugging: remove the MultiThread keyword and the ThreadSafe keywords of sub-functions
      -
      2685  MultiThread dfw = add_anglescan_worker(p, values_copy, weights_copy, polar_copy, azi_copy, w_polar, w_azim, w_theta, w_index, w_dphi, w_nphis)
      -
      2686 
      -
      2687  variable pp
      -
      2688  for (pp = 0; pp < numpnts(dfw); pp += 1)
      -
      2689  dfref tdf= dfw[pp]
      -
      2690  wave df_totals = tdf:w_totals
      -
      2691  wave df_weights = tdf:w_weights
      -
      2692  w_totals += df_totals
      -
      2693  w_weights += df_weights
      -
      2694  endfor
      -
      2695  w_values = w_weights > 0 ? w_totals / w_weights : nan
      -
      2696 
      -
      2697  SetDataFolder savedf
      -
      2698 end
      -
      2699 
      -
      2711 threadsafe static function /df add_anglescan_worker(ith, values, weights, polar, azi, w_polar, w_azim, w_theta, w_index, w_dphi, w_nphis)
      -
      2712  variable ith // index into w_theta
      -
      2713  wave values // input data: intensity/counts
      -
      2714  wave weights // input data: weights/dwell time
      -
      2715  wave polar // input data: polar angles
      -
      2716  wave azi // input data: azimuthal angles
      -
      2717  wave w_polar // hemi grid
      -
      2718  wave w_azim // hemi grid
      -
      2719  wave w_theta // hemi grid
      -
      2720  wave w_index // hemi grid
      -
      2721  wave w_dphi // hemi grid
      -
      2722  wave w_nphis // hemi grid
      -
      2723 
      -
      2724  dfref savedf= GetDataFolderDFR()
      -
      2725  dfref freedf= NewFreeDataFolder()
      -
      2726  SetDataFolder freedf
      -
      2727  make /n=(numpnts(w_polar)) /d w_totals, w_weights
      -
      2728 
      -
      2729  variable pol = w_theta[ith]
      -
      2730  variable pol_st = abs(w_theta[1] - w_theta[0])
      -
      2731  variable pol1 = pol - pol_st / 2
      -
      2732  variable pol2 = pol + pol_st / 2
      -
      2733 
      -
      2734  extract /free /indx polar, sel, (pol1 < polar) && (polar <= pol2) && (numtype(values) == 0) && (weights > 0)
      -
      2735  if (numpnts(sel) > 0)
      -
      2736  duplicate /free /r=[0, numpnts(sel)-1] azi, azi_slice
      -
      2737  duplicate /free /r=[0, numpnts(sel)-1] values, values_slice
      -
      2738  duplicate /free /r=[0, numpnts(sel)-1] weights, weights_slice
      -
      2739  azi_slice = azi[sel]
      -
      2740  values_slice = values[sel]
      -
      2741  weights_slice = weights[sel]
      -
      2742  add_aziscan_core(values_slice, weights_slice, pol, azi_slice, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      -
      2743  endif
      -
      2744 
      -
      2745  SetDataFolder savedf
      -
      2746  return freedf
      -
      2747 end
      -
      2748 
      -
      2761 threadsafe static function add_aziscan_core(values, weights, polar, azi, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      -
      2762  wave values // input data: intensity/counts
      -
      2763  wave weights // input data: weights/dwell time
      -
      2764  variable polar // input data: polar angle
      -
      2765  wave azi // input data: angle positions of the azimuthal scan
      -
      2766  // acceptable range: >= -360 and < +360
      -
      2767  // no specific order required, the function sorts the array in place (!)
      -
      2768  wave w_theta // hemi grid
      -
      2769  wave w_azim // hemi grid
      -
      2770  wave w_index // hemi grid
      -
      2771  wave w_dphi // hemi grid
      -
      2772  wave w_totals // output data: total counts in hemi grid order
      -
      2773  wave w_weights // output data: total weights in hemi grid order
      -
      2774 
      -
      2775  // destination slice coordinates
      -
      2776  variable ipol = BinarySearch(w_theta, polar)
      -
      2777  if (ipol < 0)
      -
      2778  return -1
      -
      2779  endif
      -
      2780 
      -
      2781  variable d1, d2
      -
      2782  if (ipol >= 1)
      -
      2783  d1 = w_index[ipol - 1]
      -
      2784  else
      -
      2785  d1 = 0
      -
      2786  endif
      -
      2787  d2 = w_index[ipol] - 1
      -
      2788  variable nd = d2 - d1 + 1
      -
      2789  variable dphi = w_dphi[ipol]
      -
      2790  make /n=(nd+1) /free bin_index
      -
      2791  setscale /i x w_azim[d1] - dphi/2, w_azim[d2] + dphi/2, "deg", bin_index
      -
      2792 
      -
      2793  // source slice coordinates
      -
      2794  // order the slice from -dphi/2 to 360-dphi/2
      -
      2795  azi = azi < 0 ? azi + 360 : azi
      -
      2796  azi = azi >= 360 - dphi/2 ? azi - 360 : azi
      -
      2797  sort azi, values, weights, azi
      -
      2798  setscale /p x 0, 1, "", values, weights, azi
      -
      2799 
      -
      2800  bin_index = BinarySearch(azi, x) + 1
      -
      2801  bin_index = bin_index == -2 ? 0 : bin_index[p]
      -
      2802  bin_index = bin_index == -1 ? numpnts(azi) : bin_index[p]
      -
      2803  bin_index[nd] = numpnts(azi)
      -
      2804 
      -
      2805  // loop over destination
      -
      2806  variable id
      -
      2807  variable v1, v2, w1, w2
      -
      2808  for (id = 0; id < nd; id += 1)
      -
      2809  if (bin_index[id+1] > bin_index[id])
      -
      2810  v1 = w_totals[d1 + id]
      -
      2811  w1 = w_weights[d1 + id]
      -
      2812  if ((numtype(v1) == 2) || (w1 <= 0))
      -
      2813  v1 = 0
      -
      2814  w1 = 0
      -
      2815  endif
      -
      2816  v2 = sum(values, bin_index[id], bin_index[id+1] - 1)
      -
      2817  w2 = sum(weights, bin_index[id], bin_index[id+1] - 1)
      -
      2818  w_totals[d1 + id] = v1 + v2
      -
      2819  w_weights[d1 + id] = w1 + w2
      -
      2820  endif
      -
      2821  endfor
      -
      2822 end
      -
      2823 
      -
      2844 function hemi_add_aziscan(nickname, values, polar, azi, [weights])
      -
      2845  string nickname
      -
      2846  wave values
      -
      2847  variable polar
      -
      2848  wave azi
      -
      2849  wave weights
      -
      2850 
      -
      2851  dfref savedf = GetDataFolderDFR()
      -
      2852 
      -
      2853  duplicate /free values, values_copy
      -
      2854  duplicate /free azi, azi_copy
      -
      2855  if (ParamIsDefault(weights))
      -
      2856  duplicate /free values, weights_copy
      -
      2857  weights_copy = 1
      -
      2858  else
      -
      2859  duplicate /free weights, weights_copy
      -
      2860  endif
      -
      2861 
      -
      2862  // hemi grid waves
      -
      2863  string s_prefix = ""
      -
      2864  string s_int = "values"
      -
      2865  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      2866 
      -
      2867  string s_totals = s_prefix + "tot"
      -
      2868  string s_weights = s_prefix + "wt"
      -
      2869  string s_polar = s_prefix + "pol"
      -
      2870  string s_azim = s_prefix + "az"
      -
      2871  string s_index = s_prefix + "index"
      -
      2872  string s_theta = s_prefix + "th"
      -
      2873  string s_dphi = s_prefix + "dphi"
      -
      2874  string s_nphis = s_prefix + "nphis"
      -
      2875 
      -
      2876  wave /sdfr=df w_polar = $s_polar
      -
      2877  wave /sdfr=df w_azim = $s_azim
      -
      2878  wave /sdfr=df w_values = $s_int
      -
      2879  wave /sdfr=df w_totals = $s_totals
      -
      2880  wave /sdfr=df w_weights = $s_weights
      -
      2881  wave /sdfr=df w_index = $s_index
      -
      2882  wave /sdfr=df w_theta = $s_theta
      -
      2883  wave /sdfr=df w_dphi = $s_dphi
      -
      2884  wave /sdfr=df w_nphis = $s_nphis
      -
      2885 
      -
      2886  add_aziscan_core(values_copy, weights_copy, polar, azi_copy, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      -
      2887 
      -
      2888  w_values = w_weights > 0 ? w_totals / w_weights : nan
      -
      2889 
      -
      2890  SetDataFolder savedf
      -
      2891 end
      -
      2892 
      -
      2920 function interpolate_hemi_scan(nickname, [projection])
      -
      2921  string nickname
      -
      2922  variable projection
      -
      2923 
      -
      2924  dfref savedf = GetDataFolderDFR()
      -
      2925 
      -
      2926  if (ParamIsDefault(projection))
      -
      2927  projection = 1
      -
      2928  endif
      -
      2929 
      -
      2930  string s_prefix = ""
      -
      2931  string s_int = "values"
      -
      2932  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      2933  prepare_hemi_scan_display(nickname, projection=projection)
      -
      2934 
      -
      2935  string s_polar = s_prefix + "pol"
      -
      2936  string s_azim = s_prefix + "az"
      -
      2937  string s_matrix = s_prefix + "matrix"
      -
      2938  string s_ster_rad = s_prefix + "ster_rad"
      -
      2939  string s_ster_x = s_prefix + "ster_x"
      -
      2940  string s_ster_y = s_prefix + "ster_y"
      -
      2941 
      -
      2942  wave /sdfr=df /z values = $s_int
      -
      2943  wave /sdfr=df /z azim = $s_azim
      -
      2944  wave /sdfr=df /z polar = $s_polar
      -
      2945  wave /sdfr=df /z ster_rad = $s_ster_rad
      -
      2946  wave /sdfr=df /z ster_x = $s_ster_x
      -
      2947  wave /sdfr=df /z ster_y = $s_ster_y
      -
      2948 
      -
      2949  variable min_ster_x = wavemin(ster_x)
      -
      2950  variable max_ster_x = wavemax(ster_x)
      -
      2951  variable x0 = min_ster_x
      -
      2952  variable xn = 181
      -
      2953  variable dx = (max_ster_x - min_ster_x) / (xn - 1)
      -
      2954  make /n=(numpnts(ster_x), 3) /free triplet
      -
      2955  triplet[][0] = ster_x[p]
      -
      2956  triplet[][1] = ster_y[p]
      -
      2957  triplet[][2] = values[p]
      -
      2958 
      -
      2959  variable size = 181
      -
      2960  setdatafolder df
      -
      2961  make /n=(size, size) /d /o $(s_prefix + "matrix") /wave=matrix
      -
      2962  make /n=(size, size) /free mnorm
      -
      2963  ImageFromXYZ /as {ster_x, ster_y, values}, matrix, mnorm
      -
      2964  matrix /= mnorm
      -
      2965  matrixfilter NanZapMedian, matrix
      -
      2966  matrixfilter gauss, matrix
      -
      2967 
      -
      2968  duplicate /free values, ster_finite
      -
      2969  ster_finite = (numtype(values) == 0) * (ster_x^2 + ster_y^2)
      -
      2970  variable ster_max = wavemax(ster_finite)
      -
      2971  matrix = (x^2 + y^2) <= ster_max ? matrix : nan
      -
      2972 
      -
      2973  setdatafolder savedf
      -
      2974 end
      -
      2975 
      -
      2986 function quick_pizza_image(data, nickname, theta_offset, tilt_offset, phi_offset, [npolar, nograph, folding])
      -
      2987  wave data // 2D intensity wave, see requirements above
      -
      2988  string nickname // nick name for output data
      -
      2989  // in default mode, this will be the name of a child folder containing the output
      -
      2990  // in XPDplot mode, this will be a prefix of the generated data in the root folder
      -
      2991  variable theta_offset // manipulator theta angle corresponding to normal emission
      -
      2992  variable tilt_offset // manipulator tilt angle corresponding to normal emission
      -
      2993  variable phi_offset // manipulator phi angle corresponding to phi_result = 0
      -
      2994  variable npolar // number of polar angles, determines polar and azimuthal step size
      -
      2995  // default = 91 (1 degree steps)
      -
      2996  variable nograph // 0 (default) = display a new polar graph
      -
      2997  // 1 = don't display a new graph (if a graph is existing from a previous call, it will update)
      -
      2998  variable folding // rotational averaging, default = 1
      -
      2999 
      -
      3000  if (ParamIsDefault(npolar))
      -
      3001  npolar = 91
      -
      3002  endif
      -
      3003  if (ParamIsDefault(nograph))
      -
      3004  nograph = 0
      -
      3005  endif
      -
      3006  if (ParamIsDefault(folding))
      -
      3007  folding = 1
      -
      3008  endif
      -
      3009  string graphname = "graph_" + nickname
      -
      3010  string s_prefix = ""
      -
      3011 
      -
      3012  // sort out data folder structure
      -
      3013  dfref saveDF = GetDataFolderDFR()
      -
      3014  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      3015  setdatafolder dataDF
      -
      3016  if (DataFolderExists(":attr"))
      -
      3017  setdatafolder :attr
      -
      3018  endif
      -
      3019  dfref attrDF = GetDataFolderDFR()
      -
      3020  setdatafolder dataDF
      -
      3021  newdatafolder /s/o $nickname
      -
      3022  dfref destDF = GetDataFolderDFR()
      -
      3023 
      -
      3024  // performance monitoring
      -
      3025  variable timerRefNum
      -
      3026  variable /g xyz_perf_secs
      -
      3027  timerRefNum = startMSTimer
      -
      3028 
      -
      3029  wave /sdfr=attrDF ManipulatorTheta
      -
      3030  wave /sdfr=attrDF ManipulatorTilt
      -
      3031  wave /sdfr=attrDF ManipulatorPhi
      -
      3032  duplicate /free ManipulatorTheta, m_theta
      -
      3033  duplicate /free ManipulatorTilt, m_tilt
      -
      3034  duplicate /free ManipulatorPhi, m_phi
      -
      3035  m_theta -= theta_offset
      -
      3036  m_tilt -= tilt_offset
      -
      3037  m_tilt *= -1 // checked 140702
      -
      3038  m_phi -= phi_offset
      -
      3039  //m_phi *= -1 // checked 140702
      -
      3040 
      -
      3041  make /n=1/d/free d_polar, d_azi
      -
      3042  convert_angles_ttpd2polar(m_theta, m_tilt, m_phi, data, d_polar, d_azi)
      -
      3043  d_azi += 180 // changed 151030 (v1.6)
      -
      3044  d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      -
      3045 
      -
      3046  duplicate /free data, values
      -
      3047  variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)
      -
      3048  redimension /n=(nn) values, d_polar, d_azi
      -
      3049  duplicate /o d_polar, ster_rad, ster_x, ster_y
      -
      3050 
      -
      3051  variable projection = 1
      -
      3052  switch(projection)
      -
      3053  case 1: // stereographic
      -
      3054  ster_rad = 2 * tan(d_polar / 2 * pi / 180)
      -
      3055  break
      -
      3056  case 2: // azimuthal
      -
      3057  ster_rad = 2 * cos((180 - d_polar) / 2 * pi / 180)
      -
      3058  break
      -
      3059  endswitch
      -
      3060  string s_ster_x = s_prefix + "ster_x"
      -
      3061  string s_ster_y = s_prefix + "ster_y"
      -
      3062 
      -
      3063  nn = 401
      -
      3064  make /n=(nn, nn) /d /o matrix
      -
      3065  make /n=(nn, nn) /free mnorm
      -
      3066  setscale /i x -2, +2, matrix, mnorm
      -
      3067  setscale /i y -2, +2, matrix, mnorm
      -
      3068  matrix = 0
      -
      3069  mnorm = 0
      -
      3070 
      -
      3071  variable ifold
      -
      3072  for (ifold = 0; ifold < folding; ifold += 1)
      -
      3073  ster_x = ster_rad * cos(d_azi * pi / 180)
      -
      3074  ster_y = ster_rad * sin(d_azi * pi / 180)
      -
      3075  ImageFromXYZ {ster_x, ster_y, values}, matrix, mnorm
      -
      3076  d_azi = d_azi >= 180 ? d_azi + 360 / folding - 180 : d_azi + 360 / folding
      -
      3077  endfor
      -
      3078 
      -
      3079  matrix /= mnorm
      -
      3080  matrixfilter /n=5 NanZapMedian matrix
      -
      3081  matrixfilter /n=3 gauss matrix
      -
      3082 
      -
      3083  if (!nograph)
      -
      3084  display /k=1
      -
      3085  appendimage matrix
      -
      3086  modifygraph width={Plan,1,bottom,left}
      -
      3087  endif
      -
      3088 
      -
      3089  if (timerRefNum >= 0)
      -
      3090  xyz_perf_secs = stopMSTimer(timerRefNum) / 1e6
      -
      3091  endif
      -
      3092 
      -
      3093  setdatafolder saveDF
      -
      3094 end
      -
      3095 
      -
      3097 function save_hemi_scan(nickname, pathname, filename)
      -
      3098  string nickname
      -
      3099  string pathname
      -
      3100  string filename
      -
      3101 
      -
      3102  dfref savedf = getdatafolderdfr()
      -
      3103 
      -
      3104  // source data
      -
      3105  string s_prefix = ""
      -
      3106  string s_int = "values"
      -
      3107  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      3108 
      -
      3109  string s_polar = s_prefix + "pol"
      -
      3110  string s_azim = s_prefix + "az"
      -
      3111  string s_theta = s_prefix + "th"
      -
      3112  string s_tot = s_prefix + "tot"
      -
      3113  string s_weight = s_prefix + "wt"
      -
      3114 
      -
      3115  wave /sdfr=df theta1 = $s_theta
      -
      3116  wave /sdfr=df polar1 = $s_polar
      -
      3117  wave /sdfr=df azim1 = $s_azim
      -
      3118  wave /sdfr=df tot1 = $s_tot
      -
      3119  wave /sdfr=df weight1 = $s_weight
      -
      3120  wave /sdfr=df values1 = $s_int
      -
      3121 
      -
      3122  save /m="\r\n" /o /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename
      -
      3123 
      -
      3124  setdatafolder saveDF
      -
      3125 end
      -
      3126 
      -
      3130 function load_hemi_scan(nickname, pathname, filename)
      -
      3131  string nickname
      -
      3132  string pathname
      -
      3133  string filename
      -
      3134 
      -
      3135  dfref savedf = getdatafolderdfr()
      -
      3136 
      -
      3137  //loadwave /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename
      -
      3138  //LoadWave /t/p=pearl_explorer_filepath/q filename
      -
      3139  //svar waves = s_wavenames
      -
      3140  //if (v_flag > 0)
      -
      3141  // string /g pearl_explorer_import = "load_itx_file"
      -
      3142  //endif
      -
      3143 
      -
      3144  setdatafolder saveDF
      -
      3145 end
      -
      3146 
      -
      3179 function import_tpi_scan(nickname, theta, phi, intensity, [folding, npolar, nograph, xpdplot])
      -
      3180  string nickname
      -
      3181  wave theta
      -
      3182  wave phi
      -
      3183  wave intensity
      -
      3184 
      -
      3185  variable folding
      -
      3186  variable npolar
      -
      3187  variable nograph
      -
      3188  variable xpdplot
      -
      3189 
      -
      3190  if (ParamIsDefault(npolar))
      -
      3191  npolar = 91
      -
      3192  endif
      -
      3193  if (ParamIsDefault(nograph))
      -
      3194  nograph = 0
      -
      3195  endif
      -
      3196  if (ParamIsDefault(folding))
      -
      3197  folding = 1
      -
      3198  endif
      -
      3199  if (ParamIsDefault(xpdplot))
      -
      3200  xpdplot = 0
      -
      3201  endif
      -
      3202 
      -
      3203  make_hemi_grid(npolar, nickname, xpdplot=xpdplot)
      -
      3204 
      -
      3205  variable ifold
      -
      3206  duplicate /free phi, fold_phi
      -
      3207  for (ifold = 0; ifold < folding; ifold += 1)
      -
      3208  fold_phi = fold_phi >= 360 ? fold_phi - 360 : fold_phi
      -
      3209  hemi_add_anglescan(nickname, intensity, theta, fold_phi)
      -
      3210  fold_phi += 360 / folding
      -
      3211  endfor
      -
      3212 
      -
      3213  if (nograph==0)
      -
      3214  display_hemi_scan(nickname)
      -
      3215  endif
      -
      3216 end
      -
      3217 
      -
      3229 function trim_hemi_scan(nickname, theta_max)
      -
      3230  string nickname
      -
      3231  variable theta_max
      -
      3232 
      -
      3233  string s_prefix = ""
      -
      3234  string s_int = "values"
      -
      3235  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      3236 
      -
      3237  string s_totals = s_prefix + "tot"
      -
      3238  string s_weights = s_prefix + "wt"
      -
      3239  string s_polar = s_prefix + "pol"
      -
      3240 
      -
      3241  wave /sdfr=df w_polar = $s_polar
      -
      3242  wave /sdfr=df w_values = $s_int
      -
      3243  wave /sdfr=df w_totals = $s_totals
      -
      3244  wave /sdfr=df w_weights = $s_weights
      -
      3245 
      -
      3246  w_values = w_polar <= theta_max ? w_totals / w_weights : nan
      -
      3247 end
      -
      3248 
      -
      3268 function /wave hemi_polar_cut(nickname, azim)
      -
      3269  string nickname
      -
      3270  variable azim
      -
      3271 
      -
      3272  dfref savedf = getdatafolderdfr()
      -
      3273  string s_prefix = ""
      -
      3274  string s_int = "values"
      -
      3275  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      3276 
      -
      3277  string s_totals = s_prefix + "tot"
      -
      3278  string s_weights = s_prefix + "wt"
      -
      3279  string s_polar = s_prefix + "pol"
      -
      3280  string s_azim = s_prefix + "az"
      -
      3281  string s_index = s_prefix + "index"
      -
      3282  string s_theta = s_prefix + "th"
      -
      3283  string s_dphi = s_prefix + "dphi"
      -
      3284  string s_nphis = s_prefix + "nphis"
      -
      3285  string s_cut
      -
      3286  sprintf s_cut, "%s_azi%03u", s_int, round(azim)
      -
      3287 
      -
      3288  wave /sdfr=df w_polar = $s_polar
      -
      3289  wave /sdfr=df w_azim = $s_azim
      -
      3290  wave /sdfr=df w_values = $s_int
      -
      3291  wave /sdfr=df w_totals = $s_totals
      -
      3292  wave /sdfr=df w_weights = $s_weights
      -
      3293  wave /sdfr=df w_index = $s_index
      -
      3294  wave /sdfr=df w_theta = $s_theta
      -
      3295  wave /sdfr=df w_dphi = $s_dphi
      -
      3296  wave /sdfr=df w_nphis = $s_nphis
      -
      3297 
      -
      3298  variable npol = numpnts(w_theta)
      -
      3299  variable ipol
      -
      3300  variable pol_st = abs(w_theta[1] - w_theta[0])
      -
      3301  variable pol
      -
      3302  variable pol1, pol2
      -
      3303  variable nsel
      -
      3304 
      -
      3305  setdatafolder df
      -
      3306  make /n=(npol) /o $s_cut
      -
      3307  wave w_cut = $s_cut
      -
      3308  setscale /i x w_theta[0], w_theta[numpnts(w_theta)-1], "deg", w_cut
      -
      3309  make /n=1 /free azi_slice
      -
      3310  make /n=1 /free values_slice
      -
      3311 
      -
      3312  for (ipol = 0; ipol < npol; ipol += 1)
      -
      3313  pol = w_theta[ipol]
      -
      3314  pol1 = pol - pol_st / 2
      -
      3315  pol2 = pol + pol_st / 2
      -
      3316  extract /free /indx w_polar, sel, (pol1 < w_polar) && (w_polar <= pol2)
      -
      3317  nsel = numpnts(sel)
      -
      3318  if (nsel > 0)
      -
      3319  redimension /n=(nsel+2) azi_slice, values_slice
      -
      3320  azi_slice[1, nsel] = w_azim[sel[p-1]]
      -
      3321  azi_slice[0] = azi_slice[nsel] - 360
      -
      3322  azi_slice[nsel+1] = azi_slice[1] + 360
      -
      3323  values_slice[1, nsel] = w_values[sel[p-1]]
      -
      3324  values_slice[0] = values_slice[nsel]
      -
      3325  values_slice[nsel+1] = values_slice[1]
      -
      3326  w_cut[ipol] = interp(azim, azi_slice, values_slice)
      -
      3327  else
      -
      3328  w_cut[ipol] = nan
      -
      3329  endif
      -
      3330  endfor
      -
      3331 
      -
      3332  setdatafolder savedf
      -
      3333  return w_cut
      -
      3334 end
      -
      3335 
      -
      3354 function /wave hemi_azi_cut(nickname, pol)
      -
      3355  string nickname
      -
      3356  variable pol
      -
      3357 
      -
      3358  dfref savedf = getdatafolderdfr()
      -
      3359  string s_prefix = ""
      -
      3360  string s_int = "values"
      -
      3361  dfref df = find_hemi_data(nickname, s_prefix, s_int)
      -
      3362 
      -
      3363  string s_totals = s_prefix + "tot"
      -
      3364  string s_weights = s_prefix + "wt"
      -
      3365  string s_polar = s_prefix + "pol"
      -
      3366  string s_azim = s_prefix + "az"
      -
      3367  string s_index = s_prefix + "index"
      -
      3368  string s_theta = s_prefix + "th"
      -
      3369  string s_dphi = s_prefix + "dphi"
      -
      3370  string s_nphis = s_prefix + "nphis"
      -
      3371  string s_cut
      -
      3372  sprintf s_cut, "%s_pol%03u", s_int, round(pol)
      -
      3373 
      -
      3374  wave /sdfr=df w_polar = $s_polar
      -
      3375  wave /sdfr=df w_azim = $s_azim
      -
      3376  wave /sdfr=df w_values = $s_int
      -
      3377  wave /sdfr=df w_totals = $s_totals
      -
      3378  wave /sdfr=df w_weights = $s_weights
      -
      3379  wave /sdfr=df w_index = $s_index
      -
      3380  wave /sdfr=df w_theta = $s_theta
      -
      3381  wave /sdfr=df w_dphi = $s_dphi
      -
      3382  wave /sdfr=df w_nphis = $s_nphis
      -
      3383 
      -
      3384  variable pol_st = abs(w_theta[1] - w_theta[0])
      -
      3385  variable pol1, pol2
      -
      3386  variable nsel
      -
      3387 
      -
      3388  pol1 = pol - pol_st / 2
      -
      3389  pol2 = pol + pol_st / 2
      -
      3390  extract /free /indx w_polar, sel, (pol1 < w_polar) && (w_polar <= pol2)
      -
      3391  nsel = numpnts(sel)
      -
      3392  if (nsel > 0)
      -
      3393  setdatafolder df
      -
      3394  make /n=(nsel) /o $s_cut
      -
      3395  wave w_cut = $s_cut
      -
      3396  w_cut = w_values[sel]
      -
      3397  setscale /i x w_azim[sel[0]], w_azim[sel[nsel-1]], "°", w_cut
      -
      3398  setdatafolder savedf
      -
      3399  return w_cut
      -
      3400  else
      -
      3401  setdatafolder savedf
      -
      3402  return $""
      -
      3403  endif
      -
      3404  setdatafolder savedf
      -
      3405 end
      -
      3406 
      -
      3407 static function check_contrast(values, pcmin, pcmax, vmin, vmax, sym)
      -
      3408  wave values
      -
      3409  variable pcmin
      -
      3410  variable pcmax
      -
      3411  variable &vmin
      -
      3412  variable &vmax
      -
      3413  variable sym
      -
      3414 
      -
      3415  dfref save_df = GetDataFolderDFR()
      -
      3416  dfref dfr = NewFreeDataFolder()
      -
      3417  setdatafolder dfr
      -
      3418  StatsQuantiles /inan /iw /q /z values
      -
      3419  wave /z index = w_quantilesindex
      -
      3420  setdatafolder save_df
      -
      3421 
      -
      3422  if (waveexists(index))
      -
      3423  variable imin = round(numpnts(index) * pcmin / 100)
      -
      3424  variable imax = round(numpnts(index) * (100 - pcmax) / 100)
      -
      3425  vmin = values[index[imin]]
      -
      3426  vmax = values[index[imax]]
      -
      3427  if (sym)
      -
      3428  variable d = vmax - vmin
      -
      3429  if ((vmax >= d/4) && (-vmin >= d/4))
      -
      3430  vmax = min(abs(vmin), abs(vmax))
      -
      3431  vmin = -vmax
      -
      3432  endif
      -
      3433  endif
      -
      3434  else
      -
      3435  vmin = wavemin(values)
      -
      3436  vmax = wavemax(values)
      -
      3437  endif
      -
      3438 end
      -
      3439 
      -
      3463 function set_contrast(pcmin, pcmax, [graphname, colortable, reversecolors, symmetric])
      -
      3464  variable pcmin
      -
      3465  variable pcmax
      -
      3466  string graphname
      -
      3467  string colortable
      -
      3468  variable reversecolors
      -
      3469  variable symmetric
      -
      3470 
      -
      3471  if (ParamIsDefault(graphname))
      -
      3472  graphname = ""
      -
      3473  endif
      -
      3474  if (ParamIsDefault(colortable))
      -
      3475  colortable = ""
      -
      3476  endif
      -
      3477  if (ParamIsDefault(reversecolors))
      -
      3478  reversecolors = 0
      -
      3479  endif
      -
      3480  if (ParamIsDefault(symmetric))
      -
      3481  symmetric = 0
      -
      3482  endif
      -
      3483 
      -
      3484  dfref save_df = GetDataFolderDFR()
      -
      3485 
      -
      3486  string objname
      -
      3487  string info
      -
      3488  string wname
      -
      3489  string ctab
      -
      3490  variable rev
      -
      3491  variable n
      -
      3492  variable i
      -
      3493  variable vmin
      -
      3494  variable vmax
      -
      3495 
      -
      3496  string traces = TraceNameList(graphname, ";", 1+4)
      -
      3497  n = ItemsInList(traces, ";")
      -
      3498  for (i = 0; i < n; i += 1)
      -
      3499  objname = StringFromList(i, traces, ";")
      -
      3500  info = TraceInfo(graphname, objname, 0)
      -
      3501  if (strlen(info) > 0)
      -
      3502  info = StringByKey("RECREATION", info, ":", ";")
      -
      3503  info = StringByKey("zColor(x)", info, "=", ";")
      -
      3504  if (strlen(info) > 2)
      -
      3505  info = info[1,strlen(info)-2]
      -
      3506  wname = StringFromList(0, info, ",")
      -
      3507  wave w = $wname
      -
      3508  ctab = StringFromList(3, info, ",")
      -
      3509  rev = str2num("0" + StringFromList(4, info, ","))
      -
      3510  if (strlen(colortable) > 0)
      -
      3511  ctab = colortable
      -
      3512  rev = reversecolors
      -
      3513  endif
      -
      3514  check_contrast(w, pcmin, pcmax, vmin, vmax, symmetric)
      -
      3515  if (vmax > vmin)
      -
      3516  ModifyGraph /w=$graphname zColor($objname)={w, vmin, vmax, $ctab, rev}
      -
      3517  endif
      -
      3518  endif
      -
      3519  endif
      -
      3520  endfor
      -
      3521 
      -
      3522  string images = ImageNameList(graphname, ";")
      -
      3523  n = ItemsInList(images, ";")
      -
      3524  for (i = 0; i < n; i += 1)
      -
      3525  objname = StringFromList(i, images, ";")
      -
      3526  wave w = ImageNameToWaveRef(graphname, objname)
      -
      3527  info = ImageInfo(graphname, objname, 0)
      -
      3528  if (strlen(info) > 0)
      -
      3529  info = StringByKey("RECREATION", info, ":", ";")
      -
      3530  info = StringByKey("ctab", info, "=", ";")
      -
      3531  if (strlen(info) > 2)
      -
      3532  info = info[1,strlen(info)-2]
      -
      3533  ctab = StringFromList(2, info, ",")
      -
      3534  rev = str2num("0" + StringFromList(3, info, ","))
      -
      3535  if (strlen(colortable) > 0)
      -
      3536  ctab = colortable
      -
      3537  rev = reversecolors
      -
      3538  endif
      -
      3539  check_contrast(w, pcmin, pcmax, vmin, vmax, symmetric)
      -
      3540  if (vmax > vmin)
      -
      3541  ModifyImage /w=$graphname $objname ctab={vmin, vmax, $ctab, rev}
      -
      3542  endif
      -
      3543  endif
      -
      3544  endif
      -
      3545  endfor
      -
      3546 
      -
      3547  setdatafolder save_df
      -
      3548 end
      -
      3549 
      -
      3562 Function AngleToK(inwave)
      -
      3563  Wave inwave
      -
      3564  String newname = NameofWave(inwave)+"_k"
      -
      3565  Duplicate/O inwave, $newname
      -
      3566  Wave outwave = $newname
      -
      3567  Variable rows,columns,xdelta,xoffset,ydelta,yoffset,kmin,kmax,Emax
      -
      3568  // inwave parameters
      -
      3569  rows = DimSize(inwave,0)
      -
      3570  columns = DimSize(inwave,1)
      -
      3571  xdelta = DimDelta(inwave,0)
      -
      3572  xoffset = DimOffset(inwave,0)
      -
      3573  ydelta = DimDelta(inwave,1)
      -
      3574  yoffset = DimOffset(inwave,1)
      -
      3575  Emax= xoffset + xdelta*(rows-1)
      -
      3576  kmin = 0.5123*sqrt(Emax)*sin(pi/180*(yoffset)) // calculate the k boundaries
      -
      3577  kmax = 0.5123*sqrt(Emax)*sin(pi/180*(yoffset+(columns-1)*ydelta))
      -
      3578  SetScale/I y kmin,kmax,"Ang^-1", outwave
      -
      3579  // scale the y axis
      -
      3580  outwave = interp2D(inwave, x, 180/pi*asin(y/ (0.5123*sqrt(x)))) // recalculate to k
      -
      3581  outwave = (NumType(outwave)==2) ? 0 : outwave // replace NaNs (optional)
      -
      3582 End
      +Go to the documentation of this file.
      1#pragma TextEncoding = "UTF-8"
      +
      2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
      +
      3#pragma version = 1.9
      +
      4#pragma IgorVersion = 6.2
      +
      5#pragma ModuleName = PearlAnglescanProcess
      +
      6#include "pearl-vector-operations"
      +
      7#include "pearl-polar-coordinates"
      +
      8#include <New Polar Graphs>
      +
      9
      +
      10// copyright (c) 2013-21 Paul Scherrer Institut
      +
      11//
      +
      12// Licensed under the Apache License, Version 2.0 (the "License");
      +
      13// you may not use this file except in compliance with the License.
      +
      14// You may obtain a copy of the License at
      +
      15// http:///www.apache.org/licenses/LICENSE-2.0
      +
      16//
      +
      17// Please acknowledge the use of this code.
      +
      18
      +
      77
      +
      82
      +
      83
      +
      +
      106function /s strip_append(strip1, strip2)
      +
      107 wave strip1
      +
      108 wave strip2
      +
      109
      +
      110 dfref df1 = GetWavesDataFolderDFR(strip1)
      +
      111 dfref df2 = GetWavesDataFolderDFR(strip2)
      +
      112 variable ny1 = dimsize(strip1, 1)
      +
      113 variable ny2 = dimsize(strip2, 1)
      +
      114
      +
      115 concatenate /np=1 {strip2}, strip1
      +
      116 string modified = AddListItem(NameOfWave(strip1), "")
      +
      117
      +
      118 variable idf = 0
      +
      119 do
      +
      120 variable iw = 0
      +
      121 do
      +
      122 wave /z w1 = WaveRefIndexedDFR(df1, iw)
      +
      123 if (!WaveExists(w1))
      +
      124 break
      +
      125 endif
      +
      126
      +
      127 wave /z w2 = df2:$(NameOfWave(w1))
      +
      128 if (WaveExists(w1) && WaveExists(w2))
      +
      129 if ((DimSize(w1, 0) == ny1) && (DimSize(w1, 1) == 0) && (DimSize(w2, 0) == ny2) && (DimSize(w2, 1) == 0))
      +
      130 concatenate /np=0 {w2}, w1
      +
      131 modified = AddListItem(NameOfWave(w1), modified, "", Inf)
      +
      132 endif
      +
      133 endif
      +
      134 iw += 1
      +
      135 while(1)
      +
      136
      +
      137 df1 = df1:attr
      +
      138 df2 = df2:attr
      +
      139 if ((DataFolderRefStatus(df1) != 1) || (DataFolderRefStatus(df2) != 1))
      +
      140 break
      +
      141 endif
      +
      142 idf += 1
      +
      143 while(idf < 2)
      +
      144
      +
      145 return modified
      +
      146end
      +
      +
      147
      +
      +
      170function strip_delete_frames(strip, qlo, qhi, theta, tilt, phi)
      +
      171 wave strip // 2D data, X-axis = analyser angle, Y-axis = arbitrary manipulator scan
      +
      172 variable qlo
      +
      173 variable qhi
      +
      174 wave theta
      +
      175 wave tilt
      +
      176 wave phi
      +
      177
      +
      178 if (qlo > qhi)
      +
      179 return -1
      +
      180 endif
      +
      181
      +
      182 // source indices
      +
      183 variable snx = dimsize(strip, 0)
      +
      184 variable sny = dimsize(strip, 1)
      +
      185 variable sq1lo = 0
      +
      186 variable sq1hi = max(qlo-1, 0)
      +
      187 variable sq2lo = min(qhi+1, sny - 1)
      +
      188 variable sq2hi = dimsize(strip, 1) - 1
      +
      189
      +
      190 // dest indices
      +
      191 variable dnx = snx
      +
      192 variable dny = sny - (sq2lo - sq1hi + 1)
      +
      193 variable dq1lo = 0
      +
      194 variable dq1hi = sq1hi
      +
      195 variable dq2lo = dq1hi + 1
      +
      196 variable dq2hi = dny - 1
      +
      197 variable q1ofs = sq1lo - dq1lo
      +
      198 variable q2ofs = sq2lo - dq2lo
      +
      199
      +
      200 duplicate /free strip, strip_copy
      +
      201 redimension /n=(dnx,dny) strip
      +
      202 strip[][dq1lo,dq1hi] = strip_copy[p][q + q1ofs]
      +
      203 strip[][dq2lo,dq2hi] = strip_copy[p][q + q2ofs]
      +
      204
      +
      205 duplicate /free theta, theta_copy
      +
      206 redimension /n=(dny) theta
      +
      207 theta[dq1lo,dq1hi] = theta_copy[p + q1ofs]
      +
      208 theta[dq2lo,dq2hi] = theta_copy[p + q2ofs]
      +
      209
      +
      210 duplicate /free tilt, tilt_copy
      +
      211 redimension /n=(dny) tilt
      +
      212 tilt[dq1lo,dq1hi] = tilt_copy[p + q1ofs]
      +
      213 tilt[dq2lo,dq2hi] = tilt_copy[p + q2ofs]
      +
      214
      +
      215 duplicate /free phi, phi_copy
      +
      216 redimension /n=(dny) phi
      +
      217 phi[dq1lo,dq1hi] = phi_copy[p + q1ofs]
      +
      218 phi[dq2lo,dq2hi] = phi_copy[p + q2ofs]
      +
      219
      +
      220 return 0
      +
      221end
      +
      +
      222
      +
      +
      252function normalize_strip_x(strip, [smooth_method, smooth_factor, check])
      +
      253 wave strip
      +
      254 variable smooth_method
      +
      255 variable smooth_factor
      +
      256 variable check
      +
      257
      +
      258 if (ParamIsDefault(smooth_method))
      +
      259 smooth_method = 4
      +
      260 endif
      +
      261 if (ParamIsDefault(smooth_factor))
      +
      262 switch(smooth_method)
      +
      263 case 4:
      +
      264 smooth_factor = 0.5
      +
      265 break
      +
      266 default:
      +
      267 smooth_factor = 2
      +
      268 endswitch
      +
      269 endif
      +
      270 if (ParamIsDefault(check))
      +
      271 check = 0
      +
      272 endif
      +
      273
      +
      274 // average over all scan positions
      +
      275 wave raw_dist = ad_profile_x(strip, -inf, inf, "")
      +
      276
      +
      277 // remove nans
      +
      278 extract /free /indx raw_dist, clean_index, numtype(raw_dist) == 0
      +
      279 duplicate /free raw_dist, dist, dist_x
      +
      280 redimension /n=(numpnts(clean_index)) dist, dist_x
      +
      281 dist = raw_dist[clean_index[p]]
      +
      282 dist_x = pnt2x(raw_dist, clean_index[p])
      +
      283 variable div = mean(dist)
      +
      284 dist /= div
      +
      285
      +
      286 if (check)
      +
      287 duplicate /o raw_dist, check_dist
      +
      288 check_dist = numtype(raw_dist) == 0 ? interp(x, dist_x, dist) : nan
      +
      289 endif
      +
      290
      +
      291 // smooth distribution function
      +
      292 switch(smooth_method)
      +
      293 case 1:
      +
      294 Smooth /B /E=3 smooth_factor, dist
      +
      295 break
      +
      296 case 2:
      +
      297 Smooth /E=3 smooth_factor, dist
      +
      298 break
      +
      299 case 3:
      +
      300 make /n=1 /d /free fit_params
      +
      301 fit_scienta_ang_transm(raw_dist, fit_params)
      +
      302 duplicate /free raw_dist, dist, dist_x
      +
      303 dist_x = x
      +
      304 dist = scienta_ang_transm(fit_params, x)
      +
      305 break
      +
      306 case 4:
      +
      307 loess /smth=(smooth_factor) srcWave=dist, factors={dist_x}
      +
      308 break
      +
      309 endswitch
      +
      310
      +
      311 if (check)
      +
      312 duplicate /o raw_dist, check_smoo
      +
      313 check_smoo = interp(x, dist_x, dist)
      +
      314 endif
      +
      315
      +
      316 // divide
      +
      317 if (check != 2)
      +
      318 strip /= interp(x, dist_x, dist)
      +
      319 endif
      +
      320end
      +
      +
      321
      +
      +
      348function normalize_strip_phi(strip, theta, phi, [theta_offset, theta_range, check])
      +
      349 wave strip
      +
      350 wave theta
      +
      351 wave phi
      +
      352 variable theta_offset
      +
      353 variable theta_range
      +
      354 variable check
      +
      355
      +
      356 if (ParamIsDefault(check))
      +
      357 check = 0
      +
      358 endif
      +
      359 if (ParamIsDefault(theta_offset))
      +
      360 theta_offset = 0
      +
      361 endif
      +
      362 if (ParamIsDefault(theta_range))
      +
      363 theta_offset = 10
      +
      364 endif
      +
      365
      +
      366 // average over analyser angles
      +
      367 duplicate /free strip, strip_copy
      +
      368 MatrixFilter NanZapMedian strip_copy
      +
      369 wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      +
      370
      +
      371 // smooth distribution function
      +
      372 duplicate /free dist, dist_smoo
      +
      373 duplicate /free theta, theta_int
      +
      374 theta_int = theta - theta_offset
      +
      375 duplicate /free phi, phi_int
      +
      376 setscale /p x phi_int[0], phi_int[1] - phi_int[0], waveunits(phi, -1), dist, dist_smoo
      +
      377
      +
      378 extract /free /indx dist, red_idx, theta_int < theta_range
      +
      379 duplicate /free red_idx, red_dist, red_phi
      +
      380 red_dist = dist[red_idx]
      +
      381 red_phi = phi_int[red_idx]
      +
      382
      +
      383 variable wavg = mean(red_dist)
      +
      384 make /n=4 /d /free coef
      +
      385 coef[0] = {wavg, wavg/100, pi/180, 0}
      +
      386 CurveFit /q /h="0010" /g /w=2 sin, kwcWave=coef, red_dist /x=red_phi
      +
      387 dist_smoo = coef[0] + coef[1] * sin(coef[2] * phi_int[p] + coef[3])
      +
      388
      +
      389 // divide
      +
      390 if (check != 2)
      +
      391 strip = strip / dist_smoo[q] * coef[0]
      +
      392 endif
      +
      393
      +
      394 // check
      +
      395 if (check)
      +
      396 duplicate /o dist, check_dist
      +
      397 duplicate /o dist_smoo, check_smoo
      +
      398 setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      +
      399 endif
      +
      400end
      +
      +
      401
      +
      +
      433function normalize_strip_theta(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      +
      434 wave strip
      +
      435 wave theta
      +
      436 variable theta_offset
      +
      437 variable smooth_method
      +
      438 variable smooth_factor
      +
      439 variable check
      +
      440
      +
      441 if (ParamIsDefault(check))
      +
      442 check = 0
      +
      443 endif
      +
      444 if (ParamIsDefault(theta_offset))
      +
      445 theta_offset = 0
      +
      446 endif
      +
      447 if (ParamIsDefault(smooth_method))
      +
      448 smooth_method = 4
      +
      449 endif
      +
      450 if (ParamIsDefault(smooth_factor))
      +
      451 smooth_factor = 0.5
      +
      452 endif
      +
      453
      +
      454 // average over analyser angles
      +
      455 duplicate /free strip, strip_copy
      +
      456 MatrixFilter NanZapMedian strip_copy
      +
      457 wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      +
      458
      +
      459 // smooth distribution function
      +
      460 duplicate /free dist, dist_smoo
      +
      461 duplicate /free theta, theta_int
      +
      462 theta_int = theta - theta_offset
      +
      463 setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      +
      464 variable nx = dimsize(strip, 0)
      +
      465 variable ix
      +
      466
      +
      467 switch(smooth_method)
      +
      468 case 1:
      +
      469 Smooth /B /E=3 smooth_factor, dist_smoo
      +
      470 break
      +
      471 case 2:
      +
      472 Smooth /E=3 smooth_factor, dist_smoo
      +
      473 break
      +
      474 case 4:
      +
      475 loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int}
      +
      476 break
      +
      477 case 3:
      +
      478 for (ix = 0; ix < nx; ix += 1)
      +
      479 dist = strip[ix][p]
      +
      480 if (smooth_factor > 1)
      +
      481 CurveFit /nthr=0 /q /w=2 poly smooth_factor+1, dist /x=theta_int /d=dist_smoo
      +
      482 else
      +
      483 CurveFit /nthr=0 /q /w=2 line, dist /x=theta_int /d=dist_smoo
      +
      484 endif
      +
      485 strip[ix,ix][] /= dist_smoo[q]
      +
      486 endfor
      +
      487 dist_smoo = 1
      +
      488 break
      +
      489 endswitch
      +
      490
      +
      491 // divide
      +
      492 if (check != 2)
      +
      493 strip /= dist_smoo[q]
      +
      494 endif
      +
      495
      +
      496 // check
      +
      497 if (check)
      +
      498 duplicate /o dist, check_dist
      +
      499 duplicate /o dist_smoo, check_smoo
      +
      500 setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      +
      501 endif
      +
      502end
      +
      +
      503
      +
      +
      533function normalize_strip_thetaphi(strip, theta, phi, [theta_offset, smooth_method, smooth_factor, check])
      +
      534 wave strip
      +
      535 wave theta
      +
      536 wave phi
      +
      537 variable theta_offset
      +
      538 variable smooth_method
      +
      539 variable smooth_factor
      +
      540 variable check
      +
      541
      +
      542 if (ParamIsDefault(check))
      +
      543 check = 0
      +
      544 endif
      +
      545 if (ParamIsDefault(theta_offset))
      +
      546 theta_offset = 0
      +
      547 endif
      +
      548 if (ParamIsDefault(smooth_method))
      +
      549 smooth_method = 4
      +
      550 endif
      +
      551 if (ParamIsDefault(smooth_factor))
      +
      552 smooth_factor = 0.5
      +
      553 endif
      +
      554
      +
      555 // average over analyser angles
      +
      556 duplicate /free strip, strip_copy
      +
      557 MatrixFilter NanZapMedian strip_copy
      +
      558 wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      +
      559
      +
      560 // smooth distribution function
      +
      561 duplicate /free dist, dist_smoo
      +
      562 duplicate /free theta, theta_int
      +
      563 theta_int = theta - theta_offset
      +
      564 setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      +
      565 variable nx = dimsize(strip, 0)
      +
      566 variable ix
      +
      567
      +
      568 switch(smooth_method)
      +
      569 case 4:
      +
      570 loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int, phi}
      +
      571 break
      +
      572 default:
      +
      573 abort "smooth method not supported"
      +
      574 endswitch
      +
      575
      +
      576 // divide
      +
      577 if (check != 2)
      +
      578 strip /= dist_smoo[q]
      +
      579 endif
      +
      580
      +
      581 // check
      +
      582 if (check)
      +
      583 duplicate /o dist, check_dist
      +
      584 duplicate /o dist_smoo, check_smoo
      +
      585 setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      +
      586 endif
      +
      587end
      +
      +
      588
      +
      +
      594function normalize_strip_theta_scans(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      +
      595 wave strip
      +
      596 wave theta
      +
      597 variable theta_offset
      +
      598 variable smooth_method
      +
      599 variable smooth_factor
      +
      600 variable check
      +
      601
      +
      602 if (ParamIsDefault(check))
      +
      603 check = 0
      +
      604 endif
      +
      605 if (ParamIsDefault(theta_offset))
      +
      606 theta_offset = 0
      +
      607 endif
      +
      608 if (ParamIsDefault(smooth_method))
      +
      609 smooth_method = 4
      +
      610 endif
      +
      611 if (ParamIsDefault(smooth_factor))
      +
      612 smooth_factor = 0.5
      +
      613 endif
      +
      614
      +
      615 // average over analyser angles
      +
      616 duplicate /free strip, strip_copy
      +
      617 MatrixFilter NanZapMedian strip_copy
      +
      618 wave dist = ad_profile_y(strip_copy, -inf, inf, "")
      +
      619
      +
      620 // smooth distribution function
      +
      621 duplicate /free dist, dist_smoo
      +
      622 duplicate /free theta, theta_int
      +
      623 theta_int = theta - theta_offset
      +
      624 setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo
      +
      625
      +
      626 // analyse scanning scheme
      +
      627 duplicate /free theta_int, d1_theta, d2_theta
      +
      628 Differentiate /METH=2 theta_int /D=d1_theta
      +
      629 Differentiate /METH=2 d1_theta /D=d2_theta
      +
      630 d2_theta = abs(d2_theta)
      +
      631 make /free w_levels
      +
      632 FindLevels /edge=1 /p /q /d=w_levels d2_theta, 0.1
      +
      633 if (v_flag != 1)
      +
      634 abort "unrecognized scanning scheme"
      +
      635 endif
      +
      636 w_levels = ceil(w_levels)
      +
      637 InsertPoints 0, 1, w_levels
      +
      638 w_levels[0] = 0
      +
      639 InsertPoints numpnts(w_levels), 1, w_levels
      +
      640 w_levels[numpnts(w_levels)-1] = numpnts(theta_int)
      +
      641
      +
      642 variable n_scans = numpnts(w_levels) - 1
      +
      643 variable i_scan
      +
      644 variable p1, p2
      +
      645 for (i_scan = 0; i_scan < n_scans; i_scan += 1)
      +
      646 p1 = w_levels[i_scan]
      +
      647 p2 = w_levels[i_scan+1] - 1
      +
      648 duplicate /free /r=[p1, p2] dist, dist_piece, smooth_piece
      +
      649 duplicate /free /r=[p1, p2] theta_int, theta_piece
      +
      650 switch(smooth_method)
      +
      651 case 4:
      +
      652 loess /dest=smooth_piece /smth=(smooth_factor) srcWave=dist_piece, factors={theta_piece}
      +
      653 break
      +
      654 default:
      +
      655 abort "smooth method not supported"
      +
      656 endswitch
      +
      657 dist_smoo[p1, p2] = smooth_piece[p - p1]
      +
      658 endfor
      +
      659
      +
      660 // divide
      +
      661 if (check != 2)
      +
      662 strip /= dist_smoo[q]
      +
      663 endif
      +
      664
      +
      665 // check
      +
      666 if (check)
      +
      667 duplicate /o dist, check_dist
      +
      668 duplicate /o dist_smoo, check_smoo
      +
      669 setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo
      +
      670 endif
      +
      671end
      +
      +
      672
      +
      +
      686function normalize_strip_2d(strip, theta, [theta_offset, smooth_method, smooth_factor, check])
      +
      687 wave strip
      +
      688 wave theta
      +
      689 variable theta_offset
      +
      690 variable smooth_method
      +
      691 variable smooth_factor
      +
      692 variable check
      +
      693
      +
      694 if (ParamIsDefault(check))
      +
      695 check = 0
      +
      696 endif
      +
      697 if (ParamIsDefault(theta_offset))
      +
      698 theta_offset = 0
      +
      699 endif
      +
      700 if (ParamIsDefault(smooth_method))
      +
      701 smooth_method = 4
      +
      702 endif
      +
      703 if (ParamIsDefault(smooth_factor))
      +
      704 smooth_factor = 0.5
      +
      705 endif
      +
      706
      +
      707 variable nx = dimsize(strip, 0)
      +
      708 variable ny = dimsize(strip, 1)
      +
      709
      +
      710 duplicate /free strip, dist, alpha_int, theta_int
      +
      711 MatrixFilter NanZapMedian dist
      +
      712 theta_int = theta[q] - theta_offset
      +
      713 alpha_int = dimoffset(strip, 0) + p * dimdelta(strip, 0)
      +
      714 redimension /n=(nx * ny) dist, alpha_int, theta_int
      +
      715
      +
      716 switch(smooth_method)
      +
      717 case 4:
      +
      718 loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={alpha_int, theta_int}
      +
      719 redimension /n=(nx, ny) dist_smoo
      +
      720 break
      +
      721 default:
      +
      722 Abort "undefined smooth method"
      +
      723 break
      +
      724 endswitch
      +
      725
      +
      726 // divide
      +
      727 if (check != 2)
      +
      728 strip /= dist_smoo
      +
      729 endif
      +
      730
      +
      731 // check
      +
      732 if (check)
      +
      733 //duplicate /o dist, check_dist
      +
      734 duplicate /o dist_smoo, check_smoo
      +
      735 endif
      +
      736end
      +
      +
      737
      +
      +
      747function crop_strip(strip, xlo, xhi)
      +
      748 wave strip
      +
      749 variable xlo
      +
      750 variable xhi
      +
      751
      +
      752 variable plo = round((xlo - dimoffset(strip, 0)) / dimdelta(strip, 0))
      +
      753 variable phi = round((xhi - dimoffset(strip, 0)) / dimdelta(strip, 0))
      +
      754 xlo = plo * dimdelta(strip, 0) + dimoffset(strip, 0)
      +
      755 xhi = phi * dimdelta(strip, 0) + dimoffset(strip, 0)
      +
      756 variable nx = phi - plo + 1
      +
      757 variable ny = dimsize(strip, 1)
      +
      758
      +
      759 duplicate /free strip, strip_copy
      +
      760 redimension /n=(nx,ny) strip
      +
      761 strip = strip_copy[p + plo][q]
      +
      762 setscale /i x xlo, xhi, waveunits(strip, 0), strip
      +
      763end
      +
      +
      764
      +
      +
      779function crop_strip_theta(strip, theta_lo, theta_hi, theta, tilt, phi)
      +
      780 wave strip
      +
      781 variable theta_lo
      +
      782 variable theta_hi
      +
      783 wave theta
      +
      784 wave tilt
      +
      785 wave phi
      +
      786
      +
      787 extract /indx /free theta, idx, (theta >= theta_lo) && (theta <= theta_hi)
      +
      788 variable nx = dimsize(strip, 0)
      +
      789 variable ny = numpnts(idx)
      +
      790
      +
      791 theta[0, ny-1] = theta[idx]
      +
      792 tilt[0, ny-1] = tilt[idx]
      +
      793 phi[0, ny-1] = phi[idx]
      +
      794 redimension /n=(ny) theta, tilt, phi
      +
      795
      +
      796 duplicate /free strip, strip_copy
      +
      797 redimension /n=(nx,ny) strip
      +
      798 strip = strip_copy[p][idx[q]]
      +
      799end
      +
      +
      800
      +
      +
      843function pizza_service(data, nickname, theta_offset, tilt_offset, phi_offset, [npolar, nograph, folding, xpdplot])
      +
      844 wave data
      +
      845 string nickname
      +
      846 variable theta_offset
      +
      847 variable tilt_offset
      +
      848 variable phi_offset
      +
      849 variable npolar
      +
      850 variable nograph
      +
      851 variable folding
      +
      852 variable xpdplot
      +
      853
      +
      854 if (ParamIsDefault(npolar))
      +
      855 npolar = 91
      +
      856 endif
      +
      857 if (ParamIsDefault(nograph))
      +
      858 nograph = 0
      +
      859 endif
      +
      860 if (ParamIsDefault(folding))
      +
      861 folding = 1
      +
      862 endif
      +
      863 if (ParamIsDefault(xpdplot))
      +
      864 xpdplot = 0
      +
      865 endif
      +
      866
      +
      867 // sort out data folder structure
      +
      868 dfref saveDF = GetDataFolderDFR()
      +
      869 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      870 setdatafolder dataDF
      +
      871 if (DataFolderExists(":attr"))
      +
      872 setdatafolder :attr
      +
      873 endif
      +
      874 dfref attrDF = GetDataFolderDFR()
      +
      875
      +
      876 wave /sdfr=attrDF ManipulatorTheta
      +
      877 wave /sdfr=attrDF ManipulatorTilt
      +
      878 wave /sdfr=attrDF ManipulatorPhi
      +
      879
      +
      880 if ((dimsize(ManipulatorTheta, 0) != dimsize(data, 1)) || (dimsize(ManipulatorTilt, 0) != dimsize(data, 1)) || (dimsize(ManipulatorPhi, 0) != dimsize(data, 1)))
      +
      881 Abort "Warning: The dimension size of the manipulator waves does not match the Y dimension of the data wave!\rIf you restructured the data wave, please use pizza_service_2 with properly scaled manipulator waves."
      +
      882 endif
      +
      883
      +
      884 duplicate /free ManipulatorTheta, m_theta
      +
      885 duplicate /free ManipulatorTilt, m_tilt
      +
      886 duplicate /free ManipulatorPhi, m_phi
      +
      887
      +
      888 m_theta -= theta_offset
      +
      889 m_tilt -= tilt_offset
      +
      890 m_phi -= phi_offset
      +
      891
      +
      892 pizza_service_2(data, nickname, m_theta, m_tilt, m_phi, npolar=npolar, nograph=nograph, folding=folding, xpdplot=xpdplot)
      +
      893
      +
      894 setdatafolder saveDF
      +
      895end
      +
      +
      896
      +
      +
      936function pizza_service_2(data, nickname, m_theta, m_tilt, m_phi, [npolar, nograph, folding, xpdplot])
      +
      937 wave data
      +
      938 string nickname
      +
      939 wave m_theta
      +
      940 wave m_tilt
      +
      941 wave m_phi
      +
      942 variable npolar
      +
      943 variable nograph
      +
      944 variable folding
      +
      945 variable xpdplot
      +
      946
      +
      947 if (ParamIsDefault(npolar))
      +
      948 npolar = 91
      +
      949 endif
      +
      950 if (ParamIsDefault(nograph))
      +
      951 nograph = 0
      +
      952 endif
      +
      953 if (ParamIsDefault(folding))
      +
      954 folding = 1
      +
      955 endif
      +
      956 if (ParamIsDefault(xpdplot))
      +
      957 xpdplot = 0
      +
      958 endif
      +
      959
      +
      960 if ((dimsize(m_theta, 0) != dimsize(data, 1)) || (dimsize(m_tilt, 0) != dimsize(data, 1)) || (dimsize(m_phi, 0) != dimsize(data, 1)))
      +
      961 Abort "Warning: The dimension size of the manipulator waves does not match the Y dimension of the data wave!"
      +
      962 endif
      +
      963
      +
      964 string graphname = "graph_" + nickname
      +
      965 string outprefix = nickname
      +
      966
      +
      967 // sort out data folder structure
      +
      968 dfref saveDF = GetDataFolderDFR()
      +
      969 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      970 setdatafolder dataDF
      +
      971
      +
      972 if (xpdplot)
      +
      973 setdatafolder root:
      +
      974 outprefix = nickname
      +
      975 else
      +
      976 setdatafolder dataDF
      +
      977 newdatafolder /s/o $nickname
      +
      978 outprefix = ""
      +
      979 endif
      +
      980 dfref destDF = GetDataFolderDFR()
      +
      981
      +
      982 // performance monitoring
      +
      983 variable timerRefNum
      +
      984 variable /g pol_perf_secs
      +
      985 timerRefNum = startMSTimer
      +
      986
      +
      987 duplicate /free m_tilt, corr_tilt
      +
      988 duplicate /free m_phi, corr_phi
      +
      989 corr_tilt = -m_tilt // checked 140702
      +
      990 corr_phi = m_phi // checked 140702
      +
      991
      +
      992 make /n=1/d/free d_polar, d_azi
      +
      993
      +
      994 convert_angles_ttpd2polar(m_theta, corr_tilt, corr_phi, data, d_polar, d_azi)
      +
      995 d_azi += 180 // changed 151030 (v1.6)
      +
      996 make_hemi_grid(npolar, outprefix, xpdplot=xpdplot)
      +
      997 variable ifold
      +
      998 for (ifold = 0; ifold < folding; ifold += 1)
      +
      999 d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      +
      1000 hemi_add_anglescan(outprefix, data, d_polar, d_azi)
      +
      1001 d_azi += 360 / folding
      +
      1002 endfor
      +
      1003
      +
      1004 // normalize folding
      +
      1005 if (strlen(outprefix))
      +
      1006 string s_prefix = outprefix + "_"
      +
      1007 string s_int = s_prefix + "i"
      +
      1008 else
      +
      1009 s_prefix = ""
      +
      1010 s_int = "values"
      +
      1011 endif
      +
      1012 if (folding > 1)
      +
      1013 wave values = $s_int
      +
      1014 values /= folding
      +
      1015 endif
      +
      1016
      +
      1017 if (!nograph)
      +
      1018 display_hemi_scan(outprefix, graphname = graphname)
      +
      1019 endif
      +
      1020
      +
      1021 if (timerRefNum >= 0)
      +
      1022 pol_perf_secs = stopMSTimer(timerRefNum) / 1e6
      +
      1023 endif
      +
      1024
      +
      1025 setdatafolder saveDF
      +
      1026end
      +
      +
      1027
      +
      +
      1053function show_analyser_line(theta, tilt, phi, theta_offset, tilt_offset, phi_offset, [npolar, nograph, xpdplot])
      +
      1054 variable theta
      +
      1055 variable tilt
      +
      1056 variable phi
      +
      1057 variable theta_offset
      +
      1058 variable tilt_offset
      +
      1059 variable phi_offset
      +
      1060 variable npolar
      +
      1061 variable nograph
      +
      1062 variable xpdplot
      +
      1063
      +
      1064 string nickname = "analyser"
      +
      1065
      +
      1066 if (ParamIsDefault(npolar))
      +
      1067 npolar = 91
      +
      1068 endif
      +
      1069 if (ParamIsDefault(nograph))
      +
      1070 nograph = 0
      +
      1071 endif
      +
      1072 if (ParamIsDefault(xpdplot))
      +
      1073 xpdplot = 0
      +
      1074 endif
      +
      1075 string graphname = "graph_" + nickname
      +
      1076 string outprefix = nickname
      +
      1077
      +
      1078 // sort out data folder structure
      +
      1079 dfref saveDF = GetDataFolderDFR()
      +
      1080 dfref dataDF = saveDF
      +
      1081 if (xpdplot)
      +
      1082 setdatafolder root:
      +
      1083 outprefix = nickname
      +
      1084 else
      +
      1085 setdatafolder dataDF
      +
      1086 newdatafolder /s/o $nickname
      +
      1087 outprefix = ""
      +
      1088 endif
      +
      1089 dfref destDF = GetDataFolderDFR()
      +
      1090
      +
      1091 make /n=1 /free m_theta
      +
      1092 make /n=1 /free m_tilt
      +
      1093 make /n=1 /free m_phi
      +
      1094 m_theta = theta - theta_offset
      +
      1095 m_tilt = tilt - tilt_offset
      +
      1096 m_tilt *= -1 // checked 140702
      +
      1097 m_phi = phi - phi_offset
      +
      1098 //m_phi *= -1 // checked 140702
      +
      1099
      +
      1100 make /n=60 /free data
      +
      1101 setscale /i x -30, 30, data
      +
      1102 data = x
      +
      1103 make /n=1/d/free d_polar, d_azi
      +
      1104
      +
      1105 convert_angles_ttpa2polar(m_theta, m_tilt, m_phi, data, d_polar, d_azi)
      +
      1106 d_azi += 180 // changed 151030 (v1.6)
      +
      1107 d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      +
      1108 make_hemi_grid(npolar, outprefix, xpdplot=xpdplot)
      +
      1109 hemi_add_anglescan(outprefix, data, d_polar, d_azi)
      +
      1110
      +
      1111 if (!nograph)
      +
      1112 display_hemi_scan(outprefix, graphname = graphname)
      +
      1113 endif
      +
      1114
      +
      1115 setdatafolder saveDF
      +
      1116end
      +
      +
      1117
      +
      1122
      +
      +
      1123function convert_angles_ttpd2polar(theta, tilt, phi, data, polar, azi)
      +
      1124 wave theta, tilt, phi // see convert_angles_ttpa2polar
      +
      1125 wave data // in, 1D or 2D
      +
      1126 // X-scale must be set to analyser angle scale
      +
      1127 wave polar, azi // see convert_angles_ttpa2polar
      +
      1128
      +
      1129 make /n=(dimsize(data, 0)) /d /free ana
      +
      1130 setscale /p x dimoffset(data, 0), dimdelta(data, 0), waveunits(data, 0), ana
      +
      1131 ana = x
      +
      1132 convert_angles_ttpa2polar(theta, tilt, phi, ana, polar, azi)
      +
      1133end
      +
      +
      1134
      +
      +
      1162function convert_angles_ttpa2polar(theta, tilt, phi, analyser, polar, azi)
      +
      1163 wave theta
      +
      1164 wave tilt
      +
      1165 wave phi
      +
      1166 wave analyser
      +
      1167 wave polar, azi
      +
      1168
      +
      1169 variable nn = numpnts(theta)
      +
      1170 variable na = numpnts(analyser)
      +
      1171 redimension /n=(na, nn) polar, azi
      +
      1172
      +
      1173 variable radius = 1 // don't need to specify - everything is scalable
      +
      1174
      +
      1175 // step 1: calculate cartesian detection vectors at normal emission
      +
      1176 // this is simply a polar-cartesian mapping, independent of the manipulator
      +
      1177 // phi=0 is in the polar rotation plane
      +
      1178 make /n=(3,na) /d /free w_orig_polar, w_orig_cart, w_rot_cart, w_rot_polar
      +
      1179 w_orig_polar[0][] = radius
      +
      1180 w_orig_polar[1][] = analyser[q]
      +
      1181 w_orig_polar[2][] = 0
      +
      1182 polar2cart_wave(w_orig_polar, w_orig_cart)
      +
      1183 // if the angle-dispersive axis was horizontal, we'd need to rotate the detector
      +
      1184 //rotate_z_wave(w_orig_cart, 90)
      +
      1185
      +
      1186 variable ii
      +
      1187 for (ii = 0; ii < nn; ii += 1)
      +
      1188 // step 2: rotate the detection vectors according to the manipulator angles
      +
      1189 // the order of rotations is important because we rotate about fixed axes
      +
      1190 // y-axis = tilt rotation axis
      +
      1191 // x-axis = polar rotation axis
      +
      1192 // z-axis = normal emission = azimuthal rotation axis
      +
      1193 w_rot_cart = w_orig_cart
      +
      1194 rotate_y_wave(w_rot_cart, -tilt[ii])
      +
      1195 rotate_x_wave(w_rot_cart, -theta[ii])
      +
      1196 rotate_z_wave(w_rot_cart, -phi[ii] - 90)
      +
      1197 // map the vectors back to the sample coordinate system
      +
      1198 cart2polar_wave(w_rot_cart, w_rot_polar)
      +
      1199 // copy to output
      +
      1200 polar[][ii] = w_rot_polar[1][p]
      +
      1201 azi[][ii] = w_rot_polar[2][p]
      +
      1202 endfor
      +
      1203end
      +
      +
      1204
      +
      +
      1205static function line_average(source, dest)
      +
      1206 // is this function used?
      +
      1207 wave source
      +
      1208 wave dest
      +
      1209
      +
      1210 variable ii
      +
      1211 variable nn = dimsize(source, 1)
      +
      1212 make /n=(dimsize(source, 0))/d/free line
      +
      1213 for (ii = 0; ii < nn; ii += 1)
      +
      1214 line = source[p][ii]
      +
      1215 wavestats /q line
      +
      1216 dest[][ii] = line[p] / v_max
      +
      1217 endfor
      +
      1218end
      +
      +
      1219
      +
      +
      1223static function calc_nth(Theta_st, Theta_in, th, Phi_ran, Phi_ref, Holomode)
      +
      1224 Variable Theta_st, Theta_in, th, Phi_ran, Phi_ref
      +
      1225 String Holomode
      +
      1226 Variable The_step
      +
      1227 Variable deg2rad=0.01745329
      +
      1228
      +
      1229 if ( cmpstr(Holomode, "Stereographic") == 0)
      +
      1230 The_step =trunc( Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st )
      +
      1231 if(th==90)
      +
      1232 The_step =trunc( Phi_ran*sin(th*pi/180)*Phi_ref/Theta_st )
      +
      1233 endif
      +
      1234 else
      +
      1235 if (cmpstr(Holomode, "Parallel") == 0)
      +
      1236 The_step=trunc( Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st )
      +
      1237 else
      +
      1238 if ( cmpstr(Holomode, "h") == 0)
      +
      1239 The_step=trunc( th/Theta_in*Phi_ran/Theta_st )
      +
      1240 else
      +
      1241 //altro
      +
      1242 endif
      +
      1243 endif
      +
      1244 endif
      +
      1245
      +
      1246 return(The_step)
      +
      1247end
      +
      +
      1248
      +
      +
      1252static function calc_phi_step(Theta_in, th, Theta_st, Phi_ran, Phi_ref, Holomode)
      +
      1253 Variable Theta_in, th, Theta_st, Phi_ran, Phi_ref
      +
      1254 String Holomode
      +
      1255
      +
      1256 Variable Phi_st
      +
      1257 Variable deg2rad=0.01745329
      +
      1258
      +
      1259 if ( cmpstr(Holomode, "Stereographic") == 0 )
      +
      1260 if ((th < 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))
      +
      1261 Phi_st=0.0
      +
      1262 else
      +
      1263 Phi_st=Phi_ran/(trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st))
      +
      1264 endif
      +
      1265 if(th==90)
      +
      1266 Phi_st=2.0
      +
      1267 endif
      +
      1268 endif
      +
      1269
      +
      1270 if ( cmpstr(Holomode, "Parallel") == 0 )
      +
      1271 if((th < 0.5) || (trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st) == 0))
      +
      1272 Phi_st=0.0
      +
      1273 else
      +
      1274 Phi_st=Phi_ran/(trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st))
      +
      1275 endif
      +
      1276 endif
      +
      1277
      +
      1278 if ( cmpstr(Holomode, "h") == 0 )
      +
      1279 if((th < 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))
      +
      1280 Phi_st=0.0
      +
      1281 else
      +
      1282 Phi_st=Phi_ran/trunc(th/Theta_in*Phi_ran/Theta_st)
      +
      1283 endif
      +
      1284 endif
      +
      1285
      +
      1286 if (Phi_st==0)
      +
      1287 Phi_st=360
      +
      1288 endif
      +
      1289
      +
      1290 return(Phi_st)
      +
      1291end
      +
      +
      1292
      +
      +
      1296static function Calc_The_step(th, Theta_st, Holomode)
      +
      1297 String Holomode
      +
      1298 Variable th, Theta_st
      +
      1299
      +
      1300 Variable deg2rad=0.01745329, dt_loc,The_step
      +
      1301
      +
      1302 if ( (cmpstr(Holomode, "Stereographic")) ==0 )
      +
      1303 The_step=Theta_st
      +
      1304 endif
      +
      1305
      +
      1306 if ( (cmpstr(Holomode, "h")) ==0 )
      +
      1307 The_step=Theta_st
      +
      1308 endif
      +
      1309
      +
      1310 if ( cmpstr(Holomode, "Parallel") == 0 )
      +
      1311 if(th < 89.5)
      +
      1312 dt_loc = Theta_st/cos(th*deg2rad)
      +
      1313 if(dt_loc > 10)
      +
      1314 dt_loc=10
      +
      1315 endif
      +
      1316 The_step=dt_loc
      +
      1317 else
      +
      1318 The_step=10
      +
      1319 endif
      +
      1320 endif
      +
      1321 return(The_step)
      +
      1322end
      +
      +
      1323
      +
      +
      1327static function CalcN_Theta(HoloMode,Theta_in,Theta_ran,Theta_st)
      +
      1328 String HoloMode
      +
      1329 Variable Theta_in,Theta_ran,Theta_st
      +
      1330 Variable n_theta, aux, aux1,ii
      +
      1331
      +
      1332 aux = Theta_in
      +
      1333 aux1= Theta_in - Theta_ran
      +
      1334 ii = 0
      +
      1335 do
      +
      1336 aux = aux - Calc_The_step(aux, Theta_st, HoloMode)
      +
      1337 if(aux<=Theta_in-Theta_ran)
      +
      1338 aux=Theta_in-Theta_ran
      +
      1339 endif
      +
      1340 ii = ii+1
      +
      1341 while((aux>aux1)%&(Theta_in-aux<=Theta_ran)) //
      +
      1342 n_theta=ii+1
      +
      1343 Return(n_theta)
      +
      1344end
      +
      +
      1345
      +
      +
      1365function make_hemi_grid(npol, nickname, [xpdplot])
      +
      1366 variable npol
      +
      1367 string nickname
      +
      1368 variable xpdplot
      +
      1369
      +
      1370 if (ParamIsDefault(xpdplot))
      +
      1371 xpdplot = 0
      +
      1372 endif
      +
      1373
      +
      1374 string HoloMode = "h"
      +
      1375 variable Theta_in = 90
      +
      1376 variable Theta_ran = 90
      +
      1377 variable Theta_st = 90 / (npol - 1)
      +
      1378 variable Phi_ran = 360
      +
      1379 variable Phi_ref = 1
      +
      1380 variable Phi_in = 0
      +
      1381
      +
      1382 variable n_theta = CalcN_Theta(HoloMode, Theta_in, Theta_ran, Theta_st)
      +
      1383
      +
      1384 // wave names
      +
      1385 if (strlen(nickname))
      +
      1386 string s_prefix = nickname + "_"
      +
      1387 string s_int = s_prefix + "i" // Intensity wave (counts/sec)
      +
      1388 else
      +
      1389 s_prefix = ""
      +
      1390 s_int = "values" // "i" is not a valid wave name
      +
      1391 endif
      +
      1392 string s_polar = s_prefix + "pol" // thetas for each int-point of the holo
      +
      1393 string s_azim = s_prefix + "az" // phis for each int-point of the holo
      +
      1394
      +
      1395 string s_index = s_prefix + "index" // starting index for each theta
      +
      1396 string s_theta = s_prefix + "th" // theta values
      +
      1397 string s_dphi = s_prefix + "dphi" // delta phis at each theta
      +
      1398 string s_nphis = s_prefix + "nphis" // number of phis at each theta
      +
      1399
      +
      1400 string s_HoloData = s_prefix + "data" // All holo exp.- parameter information
      +
      1401 string s_HoloInfo = s_prefix + "info"
      +
      1402
      +
      1403 // the following two waves are used by the pearl-anglescan procedures but not by XPDplot
      +
      1404 string s_tot = s_prefix + "tot" // accumulated counts at each point
      +
      1405 string s_weight = s_prefix + "wt" // total accumulation time at each point (arb. units)
      +
      1406
      +
      1407 make /O/D/n=(n_theta) $s_index /wave=index
      +
      1408 make /O/D/n=(n_theta) $s_theta /wave=theta
      +
      1409 make /O/D/n=(n_theta) $s_dphi /wave=dphi
      +
      1410 make /O/D/n=(n_theta) $s_nphis /wave=nphis
      +
      1411
      +
      1412 //---------- calculate phi-step-size for this theta:
      +
      1413 variable aux = Calc_The_step(Theta_in, Theta_st, HoloMode)
      +
      1414 dphi[0] = calc_phi_step(Theta_in, Theta_in, aux, Phi_ran, Phi_ref, HoloMode)
      +
      1415 Theta[0] = Theta_in
      +
      1416 nphis[0] = calc_nth(aux, Theta_in, Theta_in, Phi_ran, Phi_ref, HoloMode)
      +
      1417 Index[0] = nphis[0]
      +
      1418
      +
      1419 //---------- calculate number of phis, phi-step, and starting-index for each theta:
      +
      1420 variable ii = 1
      +
      1421 do
      +
      1422 Theta[ii] = Theta[ii-1] - aux
      +
      1423 if(Theta[ii] <= Theta_in-Theta_ran)
      +
      1424 Theta[ii] = Theta_in-Theta_ran
      +
      1425 endif
      +
      1426 aux = Calc_The_step(Theta[ii], Theta_st, HoloMode)
      +
      1427 dphi[ii] = calc_phi_step(Theta_in, Theta[ii], aux, Phi_ran, Phi_ref, HoloMode)
      +
      1428 nphis[ii] = calc_nth(aux, Theta_in, Theta[ii], Phi_ran, Phi_ref, HoloMode)
      +
      1429 Index[ii] = Index[ii-1] + nphis[ii]
      +
      1430 ii=ii+1
      +
      1431 while(ii < n_theta)
      +
      1432
      +
      1433 if (Index[n_theta-1]==Index[n_theta-2])
      +
      1434 Index[n_theta-1]=Index[n_theta-2]+1
      +
      1435 nphis[n_theta-1]=1
      +
      1436 endif
      +
      1437
      +
      1438 variable NumPoints = sum(nphis, 0, numpnts(nphis))
      +
      1439
      +
      1440 //---------- calculate theta and phi for each data point:
      +
      1441 make /O/D/N=(NumPoints) $s_polar /wave=polar, $s_azim /wave=azim
      +
      1442 note azim, "version=1.6"
      +
      1443
      +
      1444 ii = 0
      +
      1445 variable StartIndex = 0
      +
      1446 variable EndIndex
      +
      1447 do
      +
      1448 EndIndex=Index[ii]
      +
      1449 Polar[StartIndex, EndIndex-1]=Theta[ii]
      +
      1450 Azim[StartIndex, EndIndex-1]= mod(Phi_ran+(x-StartIndex)*dphi[ii]+Phi_in,Phi_ran)
      +
      1451 ii = ii + 1
      +
      1452 StartIndex = EndIndex
      +
      1453 while(ii < n_theta)
      +
      1454
      +
      1455 duplicate /o azim, $s_int /wave=values
      +
      1456 duplicate /o azim, $s_tot /wave=totals
      +
      1457 duplicate /o azim, $s_weight /wave=weights
      +
      1458 values = nan
      +
      1459 totals = 0
      +
      1460 weights = 0
      +
      1461
      +
      1462 // XPDplot metadata
      +
      1463 if (xpdplot)
      +
      1464 string s_FileName = ""
      +
      1465 string s_Comment = "created by pearl-anglescan-process.ipf"
      +
      1466 string s_HoloMode = "Stereographic"
      +
      1467 variable /g gb_SpectraFile = 0
      +
      1468
      +
      1469 Make/O/D/n=22 $s_HoloData /wave=HoloData
      +
      1470 HoloData[0] = NaN // v_StartKE
      +
      1471 HoloData[1] = NaN // v_StoppKE
      +
      1472 HoloData[6] = NumPoints
      +
      1473 HoloData[7] = Theta_in
      +
      1474 HoloData[8] = Theta_ran
      +
      1475 HoloData[9] = Theta_st
      +
      1476 HoloData[11] = Phi_in
      +
      1477 HoloData[12] = Phi_ran
      +
      1478 HoloData[13] = Theta_st
      +
      1479 HoloData[15] = Phi_ref
      +
      1480 HoloData[16] = Phi_ran
      +
      1481 HoloData[17] = 0 // v_HoloBit (stereographic)
      +
      1482
      +
      1483 Make/O/T/n=22 $s_HoloInfo /wave=HoloInfo
      +
      1484 HoloInfo[0] = s_FileName
      +
      1485 HoloInfo[1] = s_Comment
      +
      1486 HoloInfo[10] = s_HoloMode
      +
      1487 HoloInfo[11] = "" // s_MeasuringMode
      +
      1488
      +
      1489 // notebook for XPDplot
      +
      1490 if (WinType(NickName) == 5)
      +
      1491 Notebook $NickName selection={startOfFile, endOfFile}
      +
      1492 Notebook $NickName text=""
      +
      1493 else
      +
      1494 NewNotebook /F=0 /K=1 /N=$NickName /W=(5,40,341,260)
      +
      1495 Notebook $NickName defaultTab=140
      +
      1496 Notebook $NickName statusWidth=300
      +
      1497 Notebook $NickName backRGB=(56797,56797,56797)
      +
      1498 Notebook $NickName pageMargins={80,80,80,80}
      +
      1499 Notebook $NickName fSize=10
      +
      1500 Notebook $NickName fStyle=0,textRGB=(65535,0,26214)
      +
      1501 Notebook $NickName textRGB=(65535,0,26214)
      +
      1502 endif
      +
      1503 Notebook $NickName text = "File:\t" + s_FileName + "\r"
      +
      1504 Notebook $NickName text = "*** " + s_Comment + " ***\r\r"
      +
      1505 Notebook $NickName text = "Angle-Mode:\t" + s_HoloMode + "\r"
      +
      1506 Notebook $NickName text = "XPDplot Nickname:\t" + NickName + "\r"
      +
      1507 endif
      +
      1508end
      +
      +
      1509
      +
      +
      1516function /s get_hemi_nickname(w)
      +
      1517 wave w
      +
      1518
      +
      1519 string prefix = get_hemi_prefix(w)
      +
      1520 string wname = nameofwave(w)
      +
      1521 string nickname
      +
      1522
      +
      1523 if (strlen(prefix))
      +
      1524 nickname = prefix
      +
      1525 else
      +
      1526 string s_wave_df = GetWavesDataFolder(w, 1)
      +
      1527 dfref parent_df = $(s_wave_df + "::")
      +
      1528 nickname = GetDataFolder(0, parent_df)
      +
      1529 endif
      +
      1530
      +
      1531 return nickname
      +
      1532end
      +
      +
      1533
      +
      +
      1541function /s get_hemi_prefix(w)
      +
      1542 wave w
      +
      1543
      +
      1544 string wname = nameofwave(w)
      +
      1545 string prefix
      +
      1546 if (ItemsInList(wname, "_") >= 2)
      +
      1547 prefix = StringFromList(0, wname, "_")
      +
      1548 else
      +
      1549 prefix = ""
      +
      1550 endif
      +
      1551
      +
      1552 return prefix
      +
      1553end
      +
      +
      1554
      +
      +
      1572function /df find_hemi_data(nickname, prefix, intwave)
      +
      1573 string nickname
      +
      1574 string &prefix
      +
      1575 string &intwave
      +
      1576
      +
      1577 dfref datadf
      +
      1578 prefix = ""
      +
      1579 intwave = "values"
      +
      1580 if (strlen(nickname))
      +
      1581 if (DataFolderExists(nickname))
      +
      1582 datadf = $nickname
      +
      1583 else
      +
      1584 datadf = getdatafolderdfr()
      +
      1585 prefix = nickname + "_"
      +
      1586 intwave = prefix + "i"
      +
      1587 if (exists(intwave) != 1)
      +
      1588 datadf = root:
      +
      1589 endif
      +
      1590 endif
      +
      1591 else
      +
      1592 datadf = getdatafolderdfr()
      +
      1593 prefix = ""
      +
      1594 intwave = "values"
      +
      1595 endif
      +
      1596 return datadf
      +
      1597end
      +
      +
      1598
      +
      +
      1606function clear_hemi_grid(nickname)
      +
      1607 string nickname
      +
      1608
      +
      1609 dfref datadf
      +
      1610 string s_prefix
      +
      1611 string s_int
      +
      1612 datadf = find_hemi_data(nickname, s_prefix, s_int)
      +
      1613
      +
      1614 string s_totals = s_prefix + "tot"
      +
      1615 string s_weights = s_prefix + "wt"
      +
      1616
      +
      1617 wave /sdfr=datadf /z w_values = $s_int
      +
      1618 wave /sdfr=datadf /z w_totals = $s_totals
      +
      1619 wave /sdfr=datadf /z w_weights = $s_weights
      +
      1620
      +
      1621 if (waveexists(w_totals))
      +
      1622 w_totals = 0
      +
      1623 endif
      +
      1624 if (waveexists(w_weights))
      +
      1625 w_weights = 0
      +
      1626 endif
      +
      1627 if (waveexists(w_values))
      +
      1628 w_values = nan
      +
      1629 endif
      +
      1630end
      +
      +
      1631
      +
      +
      1653function duplicate_hemi_scan(source_nickname, dest_folder, dest_nickname, [xpdplot])
      +
      1654 string source_nickname
      +
      1655 dfref dest_folder
      +
      1656 string dest_nickname
      +
      1657 variable xpdplot
      +
      1658
      +
      1659 if (ParamIsDefault(xpdplot))
      +
      1660 xpdplot = 0
      +
      1661 endif
      +
      1662
      +
      1663 dfref savedf = getdatafolderdfr()
      +
      1664
      +
      1665 // source data
      +
      1666 string s_prefix = ""
      +
      1667 string s_int = "values"
      +
      1668 dfref source_df = find_hemi_data(source_nickname, s_prefix, s_int)
      +
      1669 string s_polar = s_prefix + "pol"
      +
      1670 string s_azim = s_prefix + "az"
      +
      1671 string s_theta = s_prefix + "th"
      +
      1672 string s_tot = s_prefix + "tot"
      +
      1673 string s_weight = s_prefix + "wt"
      +
      1674 string s_matrix = s_prefix + "matrix"
      +
      1675
      +
      1676 wave /sdfr=source_df theta1 = $s_theta
      +
      1677 wave /sdfr=source_df polar1 = $s_polar
      +
      1678 wave /sdfr=source_df azim1 = $s_azim
      +
      1679 wave /sdfr=source_df tot1 = $s_tot
      +
      1680 wave /sdfr=source_df weight1 = $s_weight
      +
      1681 wave /sdfr=source_df values1 = $s_int
      +
      1682 wave /sdfr=source_df /z matrix1 = $s_matrix
      +
      1683
      +
      1684 variable npol = numpnts(theta1)
      +
      1685
      +
      1686 setdatafolder dest_folder
      +
      1687 make_hemi_grid(npol, dest_nickname, xpdplot=xpdplot)
      +
      1688
      +
      1689 // dest data
      +
      1690 dfref dest_df = find_hemi_data(dest_nickname, s_prefix, s_int)
      +
      1691 s_polar = s_prefix + "pol"
      +
      1692 s_azim = s_prefix + "az"
      +
      1693 s_theta = s_prefix + "th"
      +
      1694 s_tot = s_prefix + "tot"
      +
      1695 s_weight = s_prefix + "wt"
      +
      1696 s_matrix = s_prefix + "matrix"
      +
      1697
      +
      1698 wave /sdfr=dest_df theta2 = $s_theta
      +
      1699 wave /sdfr=dest_df polar2 = $s_polar
      +
      1700 wave /sdfr=dest_df azim2 = $s_azim
      +
      1701 wave /sdfr=dest_df tot2 = $s_tot
      +
      1702 wave /sdfr=dest_df weight2 = $s_weight
      +
      1703 wave /sdfr=dest_df values2 = $s_int
      +
      1704
      +
      1705 tot2 = tot1
      +
      1706 weight2 = weight1
      +
      1707 values2 = values1
      +
      1708 if (waveexists(matrix1))
      +
      1709 setdatafolder dest_df
      +
      1710 duplicate /o matrix1, $s_matrix
      +
      1711 endif
      +
      1712
      +
      1713 if (!(NumberByKey("version", note(azim1), "=", "\r") >= 1.6))
      +
      1714 azim2 += 180 // changed 151030 (v1.6)
      +
      1715 azim2 = azim2 >= 360 ? azim2 - 360 : azim2
      +
      1716 endif
      +
      1717
      +
      1718 setdatafolder saveDF
      +
      1719end
      +
      +
      1720
      +
      +
      1728function rotate_hemi_scan(nickname, angle)
      +
      1729 string nickname
      +
      1730 variable angle
      +
      1731
      +
      1732 dfref savedf = getdatafolderdfr()
      +
      1733
      +
      1734 string s_prefix = ""
      +
      1735 string s_int = "values"
      +
      1736 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      1737
      +
      1738 string s_polar = s_prefix + "pol"
      +
      1739 string s_azim = s_prefix + "az"
      +
      1740 string s_tot = s_prefix + "tot"
      +
      1741 string s_weight = s_prefix + "wt"
      +
      1742
      +
      1743 wave /sdfr=df polar = $s_polar
      +
      1744 wave /sdfr=df azim = $s_azim
      +
      1745 wave /sdfr=df tot = $s_tot
      +
      1746 wave /sdfr=df weight = $s_weight
      +
      1747 wave /sdfr=df values = $s_int
      +
      1748
      +
      1749 azim += angle
      +
      1750 azim = azim < 0 ? azim + 360 : azim
      +
      1751 azim = azim >= 360 ? azim - 360 : azim
      +
      1752
      +
      1753 duplicate /free polar, neg_polar
      +
      1754 neg_polar = -polar
      +
      1755 sort {neg_polar, azim}, polar, azim, tot, weight, values
      +
      1756
      +
      1757 setdatafolder saveDF
      +
      1758end
      +
      +
      1759
      +
      +
      1776function /s prepare_hemi_scan_display(nickname, [projection])
      +
      1777 string nickname
      +
      1778 variable projection
      +
      1779
      +
      1780 dfref savedf = getdatafolderdfr()
      +
      1781
      +
      1782 if (ParamIsDefault(projection))
      +
      1783 projection = 1
      +
      1784 endif
      +
      1785
      +
      1786 // hemi grid waves
      +
      1787 string s_prefix = ""
      +
      1788 string s_int = "values"
      +
      1789 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      1790
      +
      1791 string s_polar = s_prefix + "pol"
      +
      1792 string s_azim = s_prefix + "az"
      +
      1793
      +
      1794 wave /sdfr=df /z values = $s_int
      +
      1795 wave /sdfr=df /z azim = $s_azim
      +
      1796 wave /sdfr=df /z polar = $s_polar
      +
      1797
      +
      1798 setdatafolder df
      +
      1799 string s_ster_rad = s_prefix + "ster_rad"
      +
      1800 duplicate /o polar, $s_ster_rad /wave=ster_rad
      +
      1801 ster_rad = calc_graph_radius(polar, projection=projection)
      +
      1802
      +
      1803 string s_ster_x = s_prefix + "ster_x"
      +
      1804 string s_ster_y = s_prefix + "ster_y"
      +
      1805 duplicate /o azim, $s_ster_x /wave=ster_x, $s_ster_y /wave=ster_y
      +
      1806 ster_x = ster_rad * cos(azim * pi / 180)
      +
      1807 ster_y = ster_rad * sin(azim * pi / 180)
      +
      1808
      +
      1809 setdatafolder savedf
      +
      1810end
      +
      +
      1811
      +
      +
      1858function /s display_hemi_scan(nickname, [projection, graphtype, do_ticks, do_grids, graphname])
      +
      1859 string nickname
      +
      1860 variable projection
      +
      1861 variable graphtype
      +
      1862 variable do_ticks
      +
      1863 variable do_grids
      +
      1864 string graphname
      +
      1865
      +
      1866 dfref savedf = getdatafolderdfr()
      +
      1867
      +
      1868 if (ParamIsDefault(projection))
      +
      1869 projection = 1
      +
      1870 endif
      +
      1871 if (ParamIsDefault(graphtype))
      +
      1872 graphtype = 1
      +
      1873 endif
      +
      1874 if (ParamIsDefault(do_ticks))
      +
      1875 do_ticks = 3
      +
      1876 endif
      +
      1877 if (ParamIsDefault(do_grids))
      +
      1878 do_grids = 3
      +
      1879 endif
      +
      1880 if (ParamIsDefault(graphname))
      +
      1881 if (strlen(nickname) > 0)
      +
      1882 graphname = nickname
      +
      1883 else
      +
      1884 graphname = GetDataFolder(0)
      +
      1885 endif
      +
      1886 endif
      +
      1887
      +
      1888 prepare_hemi_scan_display(nickname, projection=projection)
      +
      1889
      +
      1890 // hemi grid waves
      +
      1891 string s_prefix = ""
      +
      1892 string s_int = "values"
      +
      1893 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      1894
      +
      1895 string s_polar = s_prefix + "pol"
      +
      1896 string s_azim = s_prefix + "az"
      +
      1897 string s_matrix = s_prefix + "matrix"
      +
      1898 string s_ster_rad = s_prefix + "ster_rad"
      +
      1899
      +
      1900 wave /sdfr=df /z values = $s_int
      +
      1901 wave /sdfr=df /z azim = $s_azim
      +
      1902 wave /sdfr=df /z polar = $s_polar
      +
      1903 wave /sdfr=df /z ster_rad = $s_ster_rad
      +
      1904 wave /sdfr=df /z matrix = $s_matrix
      +
      1905
      +
      1906 setdatafolder df
      +
      1907 variable azim_offset = 0
      +
      1908 if (!(NumberByKey("version", note(azim), "=", "\r") >= 1.6))
      +
      1909 DoAlert /T="display hemi scan" 0, "your dataset doesn't include the version 1.6 flag. if it was created with an earlier version that might be okay. please check that the orientation is correct!"
      +
      1910 azim_offset = 180 // changed 151030 (v1.6)
      +
      1911 endif
      +
      1912
      +
      1913 string s_trace
      +
      1914 DoWindow $graphname
      +
      1915 if (v_flag)
      +
      1916 if (str2num(GetUserData(graphname, "", "graphtype")) == graphtype)
      +
      1917 // graph exists and will update automatically - do not recreate
      +
      1918 graphtype = 0
      +
      1919 else
      +
      1920 // graph exists - but needs recreating
      +
      1921 killwindow $graphname
      +
      1922 endif
      +
      1923 endif
      +
      1924
      +
      1925 switch(graphtype)
      +
      1926 case 1:
      +
      1927 graphname = display_polar_graph(graphname, angle_offset=azim_offset, do_ticks=do_ticks)
      +
      1928
      +
      1929 s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)
      +
      1930 ModifyGraph /W=$graphname mode($s_trace)=2, lsize($s_trace)=2
      +
      1931 ModifyGraph /W=$graphname zColor($s_trace)={values,*,*,BlueGreenOrange,0}
      +
      1932
      +
      1933 ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 trace=polarY0
      +
      1934 ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0
      +
      1935 ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50
      +
      1936
      +
      1937 SetWindow $graphname, userdata(projection)=num2str(projection)
      +
      1938 SetWindow $graphname, userdata(graphtype)=num2str(graphtype)
      +
      1939 draw_hemi_axes(graphname, do_grids=do_grids)
      +
      1940 break
      +
      1941 case 3:
      +
      1942 graphname = display_polar_graph(graphname, angle_offset=azim_offset, do_ticks=do_ticks)
      +
      1943
      +
      1944 s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)
      +
      1945 ModifyGraph /W=$graphname mode($s_trace)=0, lsize($s_trace)=0
      +
      1946 AppendImage /L=VertCrossing /B=HorizCrossing matrix
      +
      1947
      +
      1948 ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 image=$s_matrix
      +
      1949 ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0
      +
      1950 ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50
      +
      1951
      +
      1952 SetWindow $graphname, userdata(projection)=num2str(projection)
      +
      1953 SetWindow $graphname, userdata(graphtype)=num2str(graphtype)
      +
      1954 draw_hemi_axes(graphname, do_grids=do_grids)
      +
      1955 break
      +
      1956 endswitch
      +
      1957
      +
      1958 setdatafolder savedf
      +
      1959 return graphname
      +
      1960end
      +
      +
      1961
      +
      +
      2003static function /s display_polar_graph(graphname, [angle_offset, do_ticks])
      +
      2004
      +
      2005 string graphname
      +
      2006 variable angle_offset
      +
      2007 variable do_ticks
      +
      2008
      +
      2009 dfref savedf = GetDataFolderDFR()
      +
      2010
      +
      2011 if (ParamIsDefault(angle_offset))
      +
      2012 angle_offset = 0
      +
      2013 endif
      +
      2014 if (ParamIsDefault(do_ticks))
      +
      2015 do_ticks = 3
      +
      2016 endif
      +
      2017
      +
      2018 if ((strlen(graphname) == 0) || (wintype(graphname) == 0))
      +
      2019 Display /k=1 /W=(10,45,360,345)
      +
      2020 DoWindow /C $graphname
      +
      2021 graphname = WMNewPolarGraph("", graphname)
      +
      2022 WMPolarGraphSetVar(graphname, "zeroAngleWhere", angle_offset)
      +
      2023
      +
      2024 WMPolarGraphSetVar(graphname, "angleAxisThick", 0.5)
      +
      2025 WMPolarGraphSetStr(graphname, "doMajorAngleTicks", "manual")
      +
      2026 WMPolarGraphSetVar(graphname, "majorAngleInc", 30) // major ticks in 30 deg steps
      +
      2027 WMPolarGraphSetVar(graphname, "minorAngleTicks", 2) // minor ticks in 10 deg steps
      +
      2028 WMPolarGraphSetStr(graphname, "angleTicksLocation", "Outside")
      +
      2029 WMPolarGraphSetVar(graphname, "doAngleTickLabelSubRange", 1)
      +
      2030 WMPolarGraphSetVar(graphname, "angleTickLabelRangeStart", 0)
      +
      2031 WMPolarGraphSetVar(graphname, "angleTickLabelRangeExtent", 90)
      +
      2032 WMPolarGraphSetStr(graphname, "angleTickLabelNotation", "%g°")
      +
      2033
      +
      2034 WMPolarGraphSetVar(graphname, "doPolarGrids", 0)
      +
      2035 WMPolarGraphSetVar(graphname, "doRadiusTickLabels", 0)
      +
      2036 WMPolarGraphSetStr(graphname, "radiusAxesWhere", " Off") // note the leading spaces, cf. WMPolarAnglesForRadiusAxes
      +
      2037 WMPolarGraphSetStr(graphname, "radiusTicksLocation", "Off")
      +
      2038
      +
      2039 WMPolarGraphSetVar(graphname, "majorTickLength", 2)
      +
      2040 WMPolarGraphSetVar(graphname, "majorTickThick", 0.5)
      +
      2041 WMPolarGraphSetVar(graphname, "minorTickLength", 1)
      +
      2042 WMPolarGraphSetVar(graphname, "minorTickThick", 0.5)
      +
      2043 WMPolarGraphSetVar(graphname, "tickLabelOpaque", 0)
      +
      2044 WMPolarGraphSetVar(graphname, "tickLabelFontSize", 7)
      +
      2045
      +
      2046 // changes
      +
      2047 if (do_ticks & 1)
      +
      2048 WMPolarGraphSetStr(graphname, "angleTicksLocation", "Outside")
      +
      2049 else
      +
      2050 WMPolarGraphSetStr(graphname, "angleTicksLocation", "Off")
      +
      2051 endif
      +
      2052 if (do_ticks & 2)
      +
      2053 WMPolarGraphSetVar(graphname, "doMinorAngleTicks", 1)
      +
      2054 else
      +
      2055 WMPolarGraphSetVar(graphname, "doMinorAngleTicks", 0)
      +
      2056 endif
      +
      2057
      +
      2058 DoWindow /T $graphname, graphname
      +
      2059
      +
      2060 // cursor info in angles
      +
      2061 string graphdf = "root:packages:WMPolarGraphs:" + graphname
      +
      2062 setdatafolder graphdf
      +
      2063 // current theta, phi coordinates are stored in global variables in the package folder of the graph
      +
      2064 variable /g csrA_theta
      +
      2065 variable /g csrA_phi
      +
      2066 variable /g csrB_theta
      +
      2067 variable /g csrB_phi
      +
      2068 // the text box is hidden initially. it shows up and hides with the cursor info box.
      +
      2069 string tb
      +
      2070 tb = "\\{"
      +
      2071 tb = tb + "\"A = (%.1f, %.1f)\","
      +
      2072 tb = tb + graphdf + ":csrA_theta,"
      +
      2073 tb = tb + graphdf + ":csrA_phi"
      +
      2074 tb = tb + "}"
      +
      2075 TextBox /W=$graphname /A=LT /B=1 /E=2 /F=0 /N=tb_angles /X=1 /Y=1 /V=0 tb
      +
      2076 tb = "\\{"
      +
      2077 tb = tb + "\"B = (%.1f, %.1f)\","
      +
      2078 tb = tb + graphdf + ":csrB_theta,"
      +
      2079 tb = tb + graphdf + ":csrB_phi"
      +
      2080 tb = tb + "}"
      +
      2081 AppendText /W=$graphname /N=tb_angles tb
      +
      2082 // updates are triggered by a window hook
      +
      2083 SetWindow $graphname, hook(polar_graph_hook)=PearlAnglescanProcess#polar_graph_hook
      +
      2084 else
      +
      2085 // graph window exists
      +
      2086 DoWindow /F $graphname
      +
      2087 endif
      +
      2088
      +
      2089 setdatafolder savedf
      +
      2090 return graphname
      +
      2091end
      +
      +
      2092
      +
      +
      2118static function /s draw_hemi_axes(graphname, [do_grids])
      +
      2119 string graphname
      +
      2120 variable do_grids
      +
      2121
      +
      2122 if (ParamIsDefault(do_grids))
      +
      2123 do_grids = 3
      +
      2124 endif
      +
      2125
      +
      2126 dfref savedf = GetDataFolderDFR()
      +
      2127
      +
      2128 string sproj = GetUserData(graphname, "", "projection")
      +
      2129 variable projection = str2num("0" + sproj)
      +
      2130
      +
      2131 SetDrawLayer /W=$graphname ProgFront
      +
      2132
      +
      2133 // polar axis
      +
      2134 SetDrawEnv /W=$graphname xcoord=HorizCrossing, ycoord=VertCrossing
      +
      2135 SetDrawEnv /W=$graphname linethick= 0.5
      +
      2136 SetDrawEnv /W=$graphname dash=2
      +
      2137 SetDrawEnv /W=$graphname fillpat=0
      +
      2138 SetDrawEnv /W=$graphname fname="default", fsize=7
      +
      2139 SetDrawEnv /W=$graphname textxjust=1, textyjust=1
      +
      2140 //SetDrawEnv /W=$graphname linefgc=(65535,65535,65535)
      +
      2141 SetDrawEnv /W=$graphname save
      +
      2142
      +
      2143 if (do_grids & 1)
      +
      2144 DrawLine /W=$graphname 0, -2, 0, 2
      +
      2145 DrawLine /W=$graphname -2, 0, 2, 0
      +
      2146 endif
      +
      2147
      +
      2148 variable radi
      +
      2149 if (do_grids & 2)
      +
      2150 radi = calc_graph_radius(0.5, projection=projection)
      +
      2151 DrawOval /W=$graphname -radi, radi, radi, -radi
      +
      2152 radi = calc_graph_radius(30, projection=projection)
      +
      2153 DrawOval /W=$graphname -radi, radi, radi, -radi
      +
      2154 radi = calc_graph_radius(60, projection=projection)
      +
      2155 DrawOval /W=$graphname -radi, radi, radi, -radi
      +
      2156
      +
      2157 SetDrawEnv /W=$graphname textxjust= 1,textyjust= 2
      +
      2158 SetDrawEnv /W=$graphname save
      +
      2159 radi = calc_graph_radius(30, projection=projection)
      +
      2160 DrawText /W=$graphname radi, -0.1, "30°"
      +
      2161 radi = calc_graph_radius(60, projection=projection)
      +
      2162 DrawText /W=$graphname radi, -0.1, "60°"
      +
      2163 endif
      +
      2164
      +
      2165 setdatafolder savedf
      +
      2166end
      +
      +
      2167
      +
      +
      2190function draw_diffraction_cone(graphname, groupname, theta_axis, theta_inner, phi)
      +
      2191 string graphname
      +
      2192 string groupname
      +
      2193
      +
      2194 variable theta_axis
      +
      2195 variable theta_inner
      +
      2196 variable phi
      +
      2197
      +
      2198 variable r_axis = calc_graph_radius(theta_axis)
      +
      2199 variable r_inner = calc_graph_radius(theta_inner)
      +
      2200 variable r_outer = calc_graph_radius(2 * theta_axis - theta_inner)
      +
      2201
      +
      2202 SetDrawEnv push
      +
      2203 SetDrawLayer UserFront
      +
      2204 DrawAction getgroup=$groupname, delete
      +
      2205 SetDrawEnv gstart, gname=$groupname
      +
      2206 variable xc, yc, xr, yr
      +
      2207
      +
      2208 // cone periphery
      +
      2209 variable r_center = (r_outer + r_inner) / 2
      +
      2210 variable r_radius = (r_outer - r_inner) / 2
      +
      2211 xc = r_center * cos(phi * pi / 180)
      +
      2212 yc = r_center * sin(phi * pi / 180)
      +
      2213 xr = r_radius
      +
      2214 yr = r_radius
      +
      2215 SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing
      +
      2216 SetDrawEnv dash=11, fillpat=0
      +
      2217 DrawOval xc - xr, yc - yr, xc + xr, yc + yr
      +
      2218
      +
      2219 // cone axis
      +
      2220 xc = r_axis * cos(phi * pi / 180)
      +
      2221 yc = r_axis * sin(phi * pi / 180)
      +
      2222 r_radius = calc_graph_radius(2)
      +
      2223 xr = r_radius
      +
      2224 yr = r_radius
      +
      2225 SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing
      +
      2226 SetDrawEnv fillfgc=(0,0,0)
      +
      2227 DrawOval xc - xr, yc - yr, xc + xr, yc + yr
      +
      2228
      +
      2229 SetDrawEnv gstop
      +
      2230 SetDrawEnv pop
      +
      2231end
      +
      +
      2232
      +
      +
      2254function /s display_scanlines(nickname, alpha_lo, alpha_hi, m_theta, m_tilt, m_phi, [folding, projection])
      +
      2255 string nickname
      +
      2256 variable alpha_lo
      +
      2257 variable alpha_hi
      +
      2258 wave m_theta
      +
      2259 wave m_tilt
      +
      2260 wave m_phi
      +
      2261 variable folding
      +
      2262 variable projection
      +
      2263
      +
      2264 if (ParamIsDefault(folding))
      +
      2265 folding = 1
      +
      2266 endif
      +
      2267 if (ParamIsDefault(projection))
      +
      2268 projection = 1
      +
      2269 endif
      +
      2270
      +
      2271 // sort out data folder structure
      +
      2272 dfref saveDF = GetDataFolderDFR()
      +
      2273 newdatafolder /s/o $nickname
      +
      2274 string graphname = "graph_" + nickname
      +
      2275
      +
      2276 duplicate /free m_tilt, loc_m_tilt
      +
      2277 loc_m_tilt = -m_tilt
      +
      2278
      +
      2279 make /n=1 /d /free d_polar, d_azi
      +
      2280 variable n_alpha = round(alpha_hi - alpha_lo) + 1
      +
      2281 make /n=(n_alpha) /d /free analyser
      +
      2282 setscale /i x alpha_lo, alpha_hi, "°", analyser
      +
      2283 analyser = x
      +
      2284
      +
      2285 convert_angles_ttpa2polar(m_theta, loc_m_tilt, m_phi, analyser, d_polar, d_azi)
      +
      2286 duplicate /free d_polar, d_radius
      +
      2287 d_radius = calc_graph_radius(d_polar, projection=projection)
      +
      2288 d_azi += 180 // changed 151030 (v1.6)
      +
      2289
      +
      2290 graphname = display_polar_graph(graphname)
      +
      2291 SetWindow $graphname, userdata(projection)=num2str(projection)
      +
      2292
      +
      2293 variable ifold
      +
      2294 variable iang
      +
      2295 variable nang = numpnts(m_theta)
      +
      2296 string s_rad
      +
      2297 string s_azi
      +
      2298 string s_trace
      +
      2299 for (ifold = 0; ifold < folding; ifold += 1)
      +
      2300 d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      +
      2301 for (iang = 0; iang < nang; iang += 1)
      +
      2302 sprintf s_rad, "rad_%d_%d", ifold, iang
      +
      2303 duplicate /o analyser, $s_rad
      +
      2304 wave w_rad = $s_rad
      +
      2305 w_rad = d_radius[p][iang]
      +
      2306
      +
      2307 sprintf s_azi, "azi_%d_%d", ifold, iang
      +
      2308 duplicate /o analyser, $s_azi
      +
      2309 wave w_azi = $s_azi
      +
      2310 w_azi = d_azi[p][iang]
      +
      2311
      +
      2312 if (numtype(sum(w_rad)) == 0)
      +
      2313 s_trace = WMPolarAppendTrace(graphname, w_rad, w_azi, 360)
      +
      2314 ModifyGraph /w=$graphname mode($s_trace)=0, lsize($s_trace)=0.5
      +
      2315 endif
      +
      2316 endfor
      +
      2317 d_azi += 360 / folding
      +
      2318 endfor
      +
      2319
      +
      2320 draw_hemi_axes(graphname)
      +
      2321
      +
      2322 setdatafolder saveDF
      +
      2323 return graphname
      +
      2324end
      +
      +
      2325
      +
      2342constant kProjDist = 0
      +
      2343constant kProjStereo = 1
      +
      2344constant kProjArea = 2
      +
      2345constant kProjGnom = 3
      +
      2346constant kProjOrtho = 4
      +
      2347
      +
      2348static constant kProjScaleDist = 2
      +
      2349static constant kProjScaleStereo = 2
      +
      2350static constant kProjScaleArea = 2
      +
      2351// scaled so that radius(gnom) = radius(stereo) for polar = 88
      +
      2352static constant kProjScaleGnom = 0.06744519021
      +
      2353static constant kProjScaleOrtho = 2
      +
      2354
      +
      +
      2369threadsafe function calc_graph_radius(polar, [projection])
      +
      2370 variable polar
      +
      2371 variable projection
      +
      2372
      +
      2373 if (ParamIsDefault(projection))
      +
      2374 projection = 1
      +
      2375 endif
      +
      2376
      +
      2377 variable radius
      +
      2378 switch(projection)
      +
      2379 case kProjStereo: // stereographic
      +
      2380 radius = kProjScaleStereo * tan(polar / 2 * pi / 180)
      +
      2381 break
      +
      2382 case kProjArea: // equal area
      +
      2383 radius = kProjScaleArea * sin(polar / 2 * pi / 180)
      +
      2384 break
      +
      2385 case kProjGnom: // gnomonic
      +
      2386 radius = polar < 90 ? kProjScaleGnom * tan(polar * pi / 180) : inf
      +
      2387 break
      +
      2388 case kProjOrtho: // orthographic
      +
      2389 radius = kProjScaleOrtho * sin(polar * pi / 180)
      +
      2390 break
      +
      2391 default: // equidistant
      +
      2392 radius = kProjScaleDist * polar / 90
      +
      2393 endswitch
      +
      2394
      +
      2395 return radius
      +
      2396end
      +
      +
      2397
      +
      +
      2414threadsafe function calc_graph_polar(x, y, [projection])
      +
      2415 variable x
      +
      2416 variable y
      +
      2417 variable projection
      +
      2418
      +
      2419 if (ParamIsDefault(projection))
      +
      2420 projection = 1
      +
      2421 endif
      +
      2422
      +
      2423 variable radius
      +
      2424 variable polar
      +
      2425
      +
      2426 radius = sqrt(x^2 + y^2)
      +
      2427 switch(projection)
      +
      2428 case kProjStereo: // stereographic
      +
      2429 polar = 2 * atan(radius / kProjScaleStereo) * 180 / pi
      +
      2430 break
      +
      2431 case kProjArea: // equal area
      +
      2432 polar = 2 * asin(radius / kProjScaleArea) * 180 / pi
      +
      2433 break
      +
      2434 case kProjGnom: // gnomonic
      +
      2435 polar = atan(radius / kProjScaleGnom) * 180 / pi
      +
      2436 break
      +
      2437 case kProjOrtho: // orthographic
      +
      2438 polar = asin(radius / kProjScaleOrtho) * 180 / pi
      +
      2439 break
      +
      2440 default: // equidistant
      +
      2441 polar = 90 * radius / kProjScaleDist
      +
      2442 endswitch
      +
      2443
      +
      2444 return polar
      +
      2445end
      +
      +
      2446
      +
      +
      2467threadsafe function calc_graph_azi(x, y, [projection,zeroAngle])
      +
      2468 variable x
      +
      2469 variable y
      +
      2470 variable projection
      +
      2471 variable zeroAngle
      +
      2472
      +
      2473 if (ParamIsDefault(projection))
      +
      2474 projection = 1
      +
      2475 endif
      +
      2476 if (ParamIsDefault(zeroAngle))
      +
      2477 zeroAngle = 0
      +
      2478 endif
      +
      2479
      +
      2480 variable azi
      +
      2481 if (x > 0)
      +
      2482 azi = atan(y / x) * 180 / pi
      +
      2483 else
      +
      2484 azi = atan(y / x) * 180 / pi + 180
      +
      2485 endif
      +
      2486
      +
      2487 azi += zeroAngle
      +
      2488 if (azi < 0)
      +
      2489 azi += 360
      +
      2490 endif
      +
      2491 if (azi >= 360)
      +
      2492 azi -= 360
      +
      2493 endif
      +
      2494 if (numtype(azi) != 0)
      +
      2495 azi = 0
      +
      2496 endif
      +
      2497
      +
      2498 return azi
      +
      2499end
      +
      +
      2500
      +
      +
      2512static function update_polar_info(graphname)
      +
      2513 string graphname
      +
      2514
      +
      2515 dfref savedf = GetDataFolderDFR()
      +
      2516
      +
      2517 string graphdf = "root:packages:WMPolarGraphs:" + graphname
      +
      2518 setdatafolder graphdf
      +
      2519
      +
      2520 nvar csrA_theta
      +
      2521 nvar csrA_phi
      +
      2522 nvar csrB_theta
      +
      2523 nvar csrB_phi
      +
      2524
      +
      2525 string sproj = GetUserData(graphname, "", "projection")
      +
      2526 variable projection = str2num("0" + sproj)
      +
      2527 nvar zeroAngleWhere
      +
      2528
      +
      2529 variable x = hcsr(A, graphname)
      +
      2530 variable y = vcsr(A, graphname)
      +
      2531 csrA_theta = calc_graph_polar(x, y, projection=projection)
      +
      2532 csrA_phi = calc_graph_azi(x, y, projection=projection, zeroAngle=zeroAngleWhere)
      +
      2533
      +
      2534 x = hcsr(B, graphname)
      +
      2535 y = vcsr(B, graphname)
      +
      2536 csrB_theta = calc_graph_polar(x, y, projection=projection)
      +
      2537 csrB_phi = calc_graph_azi(x, y, projection=projection, zeroAngle=zeroAngleWhere)
      +
      2538
      +
      2539 setdatafolder savedf
      +
      2540end
      +
      +
      2541
      +
      +
      2547static function polar_graph_hook(s)
      +
      2548 STRUCT WMWinHookStruct &s
      +
      2549
      +
      2550 Variable hookResult = 0
      +
      2551
      +
      2552 switch(s.eventCode)
      +
      2553 case 7: // cursor moved
      +
      2554 update_polar_info(s.winname)
      +
      2555 break
      +
      2556 case 20: // show info
      +
      2557 TextBox /W=$s.winname /N=tb_angles /C /V=1
      +
      2558 break
      +
      2559 case 21: // hide info
      +
      2560 TextBox /W=$s.winname /N=tb_angles /C /V=0
      +
      2561 break
      +
      2562 endswitch
      +
      2563
      +
      2564 return hookResult // 0 if nothing done, else 1
      +
      2565end
      +
      +
      2566
      +
      +
      2567function set_polar_graph_cursor(nickname, cursorname, polar_angle, azim_angle, [graphname])
      +
      2568 string nickname
      +
      2569 string cursorname
      +
      2570 variable polar_angle
      +
      2571 variable azim_angle
      +
      2572 string graphname
      +
      2573
      +
      2574 if (ParamIsDefault(graphname))
      +
      2575 if (strlen(nickname) > 0)
      +
      2576 graphname = nickname
      +
      2577 else
      +
      2578 graphname = GetDataFolder(0)
      +
      2579 endif
      +
      2580 endif
      +
      2581
      +
      2582 string s_prefix = ""
      +
      2583 string s_int = "values"
      +
      2584 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      2585
      +
      2586 string s_polar = s_prefix + "pol"
      +
      2587 string s_azim = s_prefix + "az"
      +
      2588 wave /sdfr=df /z azim = $s_azim
      +
      2589 wave /sdfr=df /z polar = $s_polar
      +
      2590
      +
      2591 FindLevel /P /Q polar, polar_angle
      +
      2592 if (v_flag == 0)
      +
      2593 variable polar_level = floor(v_levelx)
      +
      2594 FindLevel /P /Q /R=[polar_level] azim, azim_angle
      +
      2595 if (v_flag == 0)
      +
      2596 variable azim_level = round(v_levelx)
      +
      2597 string tracename = "polarY0"
      +
      2598 Cursor /W=$graphname /P $cursorname $traceName azim_level
      +
      2599 endif
      +
      2600 endif
      +
      2601end
      +
      +
      2602
      +
      2603
      +
      +
      2637function hemi_add_anglescan(nickname, values, polar, azi, [weights])
      +
      2638 string nickname
      +
      2639 wave values
      +
      2640 wave polar
      +
      2641 wave azi
      +
      2642 wave weights
      +
      2643
      +
      2644 dfref savedf = GetDataFolderDFR()
      +
      2645
      +
      2646 if (ParamIsDefault(weights))
      +
      2647 duplicate /free values, weights
      +
      2648 weights = 1
      +
      2649 endif
      +
      2650
      +
      2651 string s_prefix = ""
      +
      2652 string s_int = "values"
      +
      2653 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      2654
      +
      2655 string s_totals = s_prefix + "tot"
      +
      2656 string s_weights = s_prefix + "wt"
      +
      2657 string s_polar = s_prefix + "pol"
      +
      2658 string s_azim = s_prefix + "az"
      +
      2659 string s_index = s_prefix + "index"
      +
      2660 string s_theta = s_prefix + "th"
      +
      2661 string s_dphi = s_prefix + "dphi"
      +
      2662 string s_nphis = s_prefix + "nphis"
      +
      2663
      +
      2664 wave /sdfr=df w_polar = $s_polar
      +
      2665 wave /sdfr=df w_azim = $s_azim
      +
      2666 wave /sdfr=df w_values = $s_int
      +
      2667 wave /sdfr=df w_totals = $s_totals
      +
      2668 wave /sdfr=df w_weights = $s_weights
      +
      2669 wave /sdfr=df w_index = $s_index
      +
      2670 wave /sdfr=df w_theta = $s_theta
      +
      2671 wave /sdfr=df w_dphi = $s_dphi
      +
      2672 wave /sdfr=df w_nphis = $s_nphis
      +
      2673
      +
      2674 // make internal copies of input, one-dimensional, ordered in theta
      +
      2675 duplicate /free values, values_copy
      +
      2676 duplicate /free polar, polar_copy
      +
      2677 duplicate /free azi, azi_copy
      +
      2678 duplicate /free weights, weights_copy
      +
      2679 variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)
      +
      2680 redimension /n=(nn) values_copy, polar_copy, azi_copy, weights_copy
      +
      2681 sort /r polar_copy, polar_copy, azi_copy, values_copy, weights_copy
      +
      2682
      +
      2683 make /n=(numpnts(w_theta)) /free /df dfw
      +
      2684 // for debugging: remove the MultiThread keyword and the ThreadSafe keywords of sub-functions
      +
      2685 MultiThread dfw = add_anglescan_worker(p, values_copy, weights_copy, polar_copy, azi_copy, w_polar, w_azim, w_theta, w_index, w_dphi, w_nphis)
      +
      2686
      +
      2687 variable pp
      +
      2688 for (pp = 0; pp < numpnts(dfw); pp += 1)
      +
      2689 dfref tdf= dfw[pp]
      +
      2690 wave df_totals = tdf:w_totals
      +
      2691 wave df_weights = tdf:w_weights
      +
      2692 w_totals += df_totals
      +
      2693 w_weights += df_weights
      +
      2694 endfor
      +
      2695 w_values = w_weights > 0 ? w_totals / w_weights : nan
      +
      2696
      +
      2697 SetDataFolder savedf
      +
      2698end
      +
      +
      2699
      +
      +
      2711threadsafe static function /df add_anglescan_worker(ith, values, weights, polar, azi, w_polar, w_azim, w_theta, w_index, w_dphi, w_nphis)
      +
      2712 variable ith // index into w_theta
      +
      2713 wave values // input data: intensity/counts
      +
      2714 wave weights // input data: weights/dwell time
      +
      2715 wave polar // input data: polar angles
      +
      2716 wave azi // input data: azimuthal angles
      +
      2717 wave w_polar // hemi grid
      +
      2718 wave w_azim // hemi grid
      +
      2719 wave w_theta // hemi grid
      +
      2720 wave w_index // hemi grid
      +
      2721 wave w_dphi // hemi grid
      +
      2722 wave w_nphis // hemi grid
      +
      2723
      +
      2724 dfref savedf= GetDataFolderDFR()
      +
      2725 dfref freedf= NewFreeDataFolder()
      +
      2726 SetDataFolder freedf
      +
      2727 make /n=(numpnts(w_polar)) /d w_totals, w_weights
      +
      2728
      +
      2729 variable pol = w_theta[ith]
      +
      2730 variable pol_st = abs(w_theta[1] - w_theta[0])
      +
      2731 variable pol1 = pol - pol_st / 2
      +
      2732 variable pol2 = pol + pol_st / 2
      +
      2733
      +
      2734 extract /free /indx polar, sel, (pol1 < polar) && (polar <= pol2) && (numtype(values) == 0) && (weights > 0)
      +
      2735 if (numpnts(sel) > 0)
      +
      2736 duplicate /free /r=[0, numpnts(sel)-1] azi, azi_slice
      +
      2737 duplicate /free /r=[0, numpnts(sel)-1] values, values_slice
      +
      2738 duplicate /free /r=[0, numpnts(sel)-1] weights, weights_slice
      +
      2739 azi_slice = azi[sel]
      +
      2740 values_slice = values[sel]
      +
      2741 weights_slice = weights[sel]
      +
      2742 add_aziscan_core(values_slice, weights_slice, pol, azi_slice, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      +
      2743 endif
      +
      2744
      +
      2745 SetDataFolder savedf
      +
      2746 return freedf
      +
      2747end
      +
      +
      2748
      +
      +
      2761threadsafe static function add_aziscan_core(values, weights, polar, azi, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      +
      2762 wave values // input data: intensity/counts
      +
      2763 wave weights // input data: weights/dwell time
      +
      2764 variable polar // input data: polar angle
      +
      2765 wave azi // input data: angle positions of the azimuthal scan
      +
      2766 // acceptable range: >= -360 and < +360
      +
      2767 // no specific order required, the function sorts the array in place (!)
      +
      2768 wave w_theta // hemi grid
      +
      2769 wave w_azim // hemi grid
      +
      2770 wave w_index // hemi grid
      +
      2771 wave w_dphi // hemi grid
      +
      2772 wave w_totals // output data: total counts in hemi grid order
      +
      2773 wave w_weights // output data: total weights in hemi grid order
      +
      2774
      +
      2775 // destination slice coordinates
      +
      2776 variable ipol = BinarySearch(w_theta, polar)
      +
      2777 if (ipol < 0)
      +
      2778 return -1
      +
      2779 endif
      +
      2780
      +
      2781 variable d1, d2
      +
      2782 if (ipol >= 1)
      +
      2783 d1 = w_index[ipol - 1]
      +
      2784 else
      +
      2785 d1 = 0
      +
      2786 endif
      +
      2787 d2 = w_index[ipol] - 1
      +
      2788 variable nd = d2 - d1 + 1
      +
      2789 variable dphi = w_dphi[ipol]
      +
      2790 make /n=(nd+1) /free bin_index
      +
      2791 setscale /i x w_azim[d1] - dphi/2, w_azim[d2] + dphi/2, "deg", bin_index
      +
      2792
      +
      2793 // source slice coordinates
      +
      2794 // order the slice from -dphi/2 to 360-dphi/2
      +
      2795 azi = azi < 0 ? azi + 360 : azi
      +
      2796 azi = azi >= 360 - dphi/2 ? azi - 360 : azi
      +
      2797 sort azi, values, weights, azi
      +
      2798 setscale /p x 0, 1, "", values, weights, azi
      +
      2799
      +
      2800 bin_index = BinarySearch(azi, x) + 1
      +
      2801 bin_index = bin_index == -2 ? 0 : bin_index[p]
      +
      2802 bin_index = bin_index == -1 ? numpnts(azi) : bin_index[p]
      +
      2803 bin_index[nd] = numpnts(azi)
      +
      2804
      +
      2805 // loop over destination
      +
      2806 variable id
      +
      2807 variable v1, v2, w1, w2
      +
      2808 for (id = 0; id < nd; id += 1)
      +
      2809 if (bin_index[id+1] > bin_index[id])
      +
      2810 v1 = w_totals[d1 + id]
      +
      2811 w1 = w_weights[d1 + id]
      +
      2812 if ((numtype(v1) == 2) || (w1 <= 0))
      +
      2813 v1 = 0
      +
      2814 w1 = 0
      +
      2815 endif
      +
      2816 v2 = sum(values, bin_index[id], bin_index[id+1] - 1)
      +
      2817 w2 = sum(weights, bin_index[id], bin_index[id+1] - 1)
      +
      2818 w_totals[d1 + id] = v1 + v2
      +
      2819 w_weights[d1 + id] = w1 + w2
      +
      2820 endif
      +
      2821 endfor
      +
      2822end
      +
      +
      2823
      +
      +
      2844function hemi_add_aziscan(nickname, values, polar, azi, [weights])
      +
      2845 string nickname
      +
      2846 wave values
      +
      2847 variable polar
      +
      2848 wave azi
      +
      2849 wave weights
      +
      2850
      +
      2851 dfref savedf = GetDataFolderDFR()
      +
      2852
      +
      2853 duplicate /free values, values_copy
      +
      2854 duplicate /free azi, azi_copy
      +
      2855 if (ParamIsDefault(weights))
      +
      2856 duplicate /free values, weights_copy
      +
      2857 weights_copy = 1
      +
      2858 else
      +
      2859 duplicate /free weights, weights_copy
      +
      2860 endif
      +
      2861
      +
      2862 // hemi grid waves
      +
      2863 string s_prefix = ""
      +
      2864 string s_int = "values"
      +
      2865 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      2866
      +
      2867 string s_totals = s_prefix + "tot"
      +
      2868 string s_weights = s_prefix + "wt"
      +
      2869 string s_polar = s_prefix + "pol"
      +
      2870 string s_azim = s_prefix + "az"
      +
      2871 string s_index = s_prefix + "index"
      +
      2872 string s_theta = s_prefix + "th"
      +
      2873 string s_dphi = s_prefix + "dphi"
      +
      2874 string s_nphis = s_prefix + "nphis"
      +
      2875
      +
      2876 wave /sdfr=df w_polar = $s_polar
      +
      2877 wave /sdfr=df w_azim = $s_azim
      +
      2878 wave /sdfr=df w_values = $s_int
      +
      2879 wave /sdfr=df w_totals = $s_totals
      +
      2880 wave /sdfr=df w_weights = $s_weights
      +
      2881 wave /sdfr=df w_index = $s_index
      +
      2882 wave /sdfr=df w_theta = $s_theta
      +
      2883 wave /sdfr=df w_dphi = $s_dphi
      +
      2884 wave /sdfr=df w_nphis = $s_nphis
      +
      2885
      +
      2886 add_aziscan_core(values_copy, weights_copy, polar, azi_copy, w_theta, w_azim, w_index, w_dphi, w_totals, w_weights)
      +
      2887
      +
      2888 w_values = w_weights > 0 ? w_totals / w_weights : nan
      +
      2889
      +
      2890 SetDataFolder savedf
      +
      2891end
      +
      +
      2892
      +
      +
      2920function interpolate_hemi_scan(nickname, [projection])
      +
      2921 string nickname
      +
      2922 variable projection
      +
      2923
      +
      2924 dfref savedf = GetDataFolderDFR()
      +
      2925
      +
      2926 if (ParamIsDefault(projection))
      +
      2927 projection = 1
      +
      2928 endif
      +
      2929
      +
      2930 string s_prefix = ""
      +
      2931 string s_int = "values"
      +
      2932 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      2933 prepare_hemi_scan_display(nickname, projection=projection)
      +
      2934
      +
      2935 string s_polar = s_prefix + "pol"
      +
      2936 string s_azim = s_prefix + "az"
      +
      2937 string s_matrix = s_prefix + "matrix"
      +
      2938 string s_ster_rad = s_prefix + "ster_rad"
      +
      2939 string s_ster_x = s_prefix + "ster_x"
      +
      2940 string s_ster_y = s_prefix + "ster_y"
      +
      2941
      +
      2942 wave /sdfr=df /z values = $s_int
      +
      2943 wave /sdfr=df /z azim = $s_azim
      +
      2944 wave /sdfr=df /z polar = $s_polar
      +
      2945 wave /sdfr=df /z ster_rad = $s_ster_rad
      +
      2946 wave /sdfr=df /z ster_x = $s_ster_x
      +
      2947 wave /sdfr=df /z ster_y = $s_ster_y
      +
      2948
      +
      2949 variable min_ster_x = wavemin(ster_x)
      +
      2950 variable max_ster_x = wavemax(ster_x)
      +
      2951 variable x0 = min_ster_x
      +
      2952 variable xn = 181
      +
      2953 variable dx = (max_ster_x - min_ster_x) / (xn - 1)
      +
      2954 make /n=(numpnts(ster_x), 3) /free triplet
      +
      2955 triplet[][0] = ster_x[p]
      +
      2956 triplet[][1] = ster_y[p]
      +
      2957 triplet[][2] = values[p]
      +
      2958
      +
      2959 variable size = 181
      +
      2960 setdatafolder df
      +
      2961 make /n=(size, size) /d /o $(s_prefix + "matrix") /wave=matrix
      +
      2962 make /n=(size, size) /free mnorm
      +
      2963 ImageFromXYZ /as {ster_x, ster_y, values}, matrix, mnorm
      +
      2964 matrix /= mnorm
      +
      2965 matrixfilter NanZapMedian, matrix
      +
      2966 matrixfilter gauss, matrix
      +
      2967
      +
      2968 duplicate /free values, ster_finite
      +
      2969 ster_finite = (numtype(values) == 0) * (ster_x^2 + ster_y^2)
      +
      2970 variable ster_max = wavemax(ster_finite)
      +
      2971 matrix = (x^2 + y^2) <= ster_max ? matrix : nan
      +
      2972
      +
      2973 setdatafolder savedf
      +
      2974end
      +
      +
      2975
      +
      +
      2986function quick_pizza_image(data, nickname, theta_offset, tilt_offset, phi_offset, [npolar, nograph, folding])
      +
      2987 wave data // 2D intensity wave, see requirements above
      +
      2988 string nickname // nick name for output data
      +
      2989 // in default mode, this will be the name of a child folder containing the output
      +
      2990 // in XPDplot mode, this will be a prefix of the generated data in the root folder
      +
      2991 variable theta_offset // manipulator theta angle corresponding to normal emission
      +
      2992 variable tilt_offset // manipulator tilt angle corresponding to normal emission
      +
      2993 variable phi_offset // manipulator phi angle corresponding to phi_result = 0
      +
      2994 variable npolar // number of polar angles, determines polar and azimuthal step size
      +
      2995 // default = 91 (1 degree steps)
      +
      2996 variable nograph // 0 (default) = display a new polar graph
      +
      2997 // 1 = don't display a new graph (if a graph is existing from a previous call, it will update)
      +
      2998 variable folding // rotational averaging, default = 1
      +
      2999
      +
      3000 if (ParamIsDefault(npolar))
      +
      3001 npolar = 91
      +
      3002 endif
      +
      3003 if (ParamIsDefault(nograph))
      +
      3004 nograph = 0
      +
      3005 endif
      +
      3006 if (ParamIsDefault(folding))
      +
      3007 folding = 1
      +
      3008 endif
      +
      3009 string graphname = "graph_" + nickname
      +
      3010 string s_prefix = ""
      +
      3011
      +
      3012 // sort out data folder structure
      +
      3013 dfref saveDF = GetDataFolderDFR()
      +
      3014 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      3015 setdatafolder dataDF
      +
      3016 if (DataFolderExists(":attr"))
      +
      3017 setdatafolder :attr
      +
      3018 endif
      +
      3019 dfref attrDF = GetDataFolderDFR()
      +
      3020 setdatafolder dataDF
      +
      3021 newdatafolder /s/o $nickname
      +
      3022 dfref destDF = GetDataFolderDFR()
      +
      3023
      +
      3024 // performance monitoring
      +
      3025 variable timerRefNum
      +
      3026 variable /g xyz_perf_secs
      +
      3027 timerRefNum = startMSTimer
      +
      3028
      +
      3029 wave /sdfr=attrDF ManipulatorTheta
      +
      3030 wave /sdfr=attrDF ManipulatorTilt
      +
      3031 wave /sdfr=attrDF ManipulatorPhi
      +
      3032 duplicate /free ManipulatorTheta, m_theta
      +
      3033 duplicate /free ManipulatorTilt, m_tilt
      +
      3034 duplicate /free ManipulatorPhi, m_phi
      +
      3035 m_theta -= theta_offset
      +
      3036 m_tilt -= tilt_offset
      +
      3037 m_tilt *= -1 // checked 140702
      +
      3038 m_phi -= phi_offset
      +
      3039 //m_phi *= -1 // checked 140702
      +
      3040
      +
      3041 make /n=1/d/free d_polar, d_azi
      +
      3042 convert_angles_ttpd2polar(m_theta, m_tilt, m_phi, data, d_polar, d_azi)
      +
      3043 d_azi += 180 // changed 151030 (v1.6)
      +
      3044 d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      +
      3045
      +
      3046 duplicate /free data, values
      +
      3047 variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)
      +
      3048 redimension /n=(nn) values, d_polar, d_azi
      +
      3049 duplicate /o d_polar, ster_rad, ster_x, ster_y
      +
      3050
      +
      3051 variable projection = 1
      +
      3052 switch(projection)
      +
      3053 case 1: // stereographic
      +
      3054 ster_rad = 2 * tan(d_polar / 2 * pi / 180)
      +
      3055 break
      +
      3056 case 2: // azimuthal
      +
      3057 ster_rad = 2 * cos((180 - d_polar) / 2 * pi / 180)
      +
      3058 break
      +
      3059 endswitch
      +
      3060 string s_ster_x = s_prefix + "ster_x"
      +
      3061 string s_ster_y = s_prefix + "ster_y"
      +
      3062
      +
      3063 nn = 401
      +
      3064 make /n=(nn, nn) /d /o matrix
      +
      3065 make /n=(nn, nn) /free mnorm
      +
      3066 setscale /i x -2, +2, matrix, mnorm
      +
      3067 setscale /i y -2, +2, matrix, mnorm
      +
      3068 matrix = 0
      +
      3069 mnorm = 0
      +
      3070
      +
      3071 variable ifold
      +
      3072 for (ifold = 0; ifold < folding; ifold += 1)
      +
      3073 ster_x = ster_rad * cos(d_azi * pi / 180)
      +
      3074 ster_y = ster_rad * sin(d_azi * pi / 180)
      +
      3075 ImageFromXYZ {ster_x, ster_y, values}, matrix, mnorm
      +
      3076 d_azi = d_azi >= 180 ? d_azi + 360 / folding - 180 : d_azi + 360 / folding
      +
      3077 endfor
      +
      3078
      +
      3079 matrix /= mnorm
      +
      3080 matrixfilter /n=5 NanZapMedian matrix
      +
      3081 matrixfilter /n=3 gauss matrix
      +
      3082
      +
      3083 if (!nograph)
      +
      3084 display /k=1
      +
      3085 appendimage matrix
      +
      3086 modifygraph width={Plan,1,bottom,left}
      +
      3087 endif
      +
      3088
      +
      3089 if (timerRefNum >= 0)
      +
      3090 xyz_perf_secs = stopMSTimer(timerRefNum) / 1e6
      +
      3091 endif
      +
      3092
      +
      3093 setdatafolder saveDF
      +
      3094end
      +
      +
      3095
      +
      +
      3097function save_hemi_scan(nickname, pathname, filename)
      +
      3098 string nickname
      +
      3099 string pathname
      +
      3100 string filename
      +
      3101
      +
      3102 dfref savedf = getdatafolderdfr()
      +
      3103
      +
      3104 // source data
      +
      3105 string s_prefix = ""
      +
      3106 string s_int = "values"
      +
      3107 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      3108
      +
      3109 string s_polar = s_prefix + "pol"
      +
      3110 string s_azim = s_prefix + "az"
      +
      3111 string s_theta = s_prefix + "th"
      +
      3112 string s_tot = s_prefix + "tot"
      +
      3113 string s_weight = s_prefix + "wt"
      +
      3114
      +
      3115 wave /sdfr=df theta1 = $s_theta
      +
      3116 wave /sdfr=df polar1 = $s_polar
      +
      3117 wave /sdfr=df azim1 = $s_azim
      +
      3118 wave /sdfr=df tot1 = $s_tot
      +
      3119 wave /sdfr=df weight1 = $s_weight
      +
      3120 wave /sdfr=df values1 = $s_int
      +
      3121
      +
      3122 save /m="\r\n" /o /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename
      +
      3123
      +
      3124 setdatafolder saveDF
      +
      3125end
      +
      +
      3126
      +
      +
      3130function load_hemi_scan(nickname, pathname, filename)
      +
      3131 string nickname
      +
      3132 string pathname
      +
      3133 string filename
      +
      3134
      +
      3135 dfref savedf = getdatafolderdfr()
      +
      3136
      +
      3137 //loadwave /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename
      +
      3138 //LoadWave /t/p=pearl_explorer_filepath/q filename
      +
      3139 //svar waves = s_wavenames
      +
      3140 //if (v_flag > 0)
      +
      3141 // string /g pearl_explorer_import = "load_itx_file"
      +
      3142 //endif
      +
      3143
      +
      3144 setdatafolder saveDF
      +
      3145end
      +
      +
      3146
      +
      +
      3179function import_tpi_scan(nickname, theta, phi, intensity, [folding, npolar, nograph, xpdplot])
      +
      3180 string nickname
      +
      3181 wave theta
      +
      3182 wave phi
      +
      3183 wave intensity
      +
      3184
      +
      3185 variable folding
      +
      3186 variable npolar
      +
      3187 variable nograph
      +
      3188 variable xpdplot
      +
      3189
      +
      3190 if (ParamIsDefault(npolar))
      +
      3191 npolar = 91
      +
      3192 endif
      +
      3193 if (ParamIsDefault(nograph))
      +
      3194 nograph = 0
      +
      3195 endif
      +
      3196 if (ParamIsDefault(folding))
      +
      3197 folding = 1
      +
      3198 endif
      +
      3199 if (ParamIsDefault(xpdplot))
      +
      3200 xpdplot = 0
      +
      3201 endif
      +
      3202
      +
      3203 make_hemi_grid(npolar, nickname, xpdplot=xpdplot)
      +
      3204
      +
      3205 variable ifold
      +
      3206 duplicate /free phi, fold_phi
      +
      3207 for (ifold = 0; ifold < folding; ifold += 1)
      +
      3208 fold_phi = fold_phi >= 360 ? fold_phi - 360 : fold_phi
      +
      3209 hemi_add_anglescan(nickname, intensity, theta, fold_phi)
      +
      3210 fold_phi += 360 / folding
      +
      3211 endfor
      +
      3212
      +
      3213 if (nograph==0)
      +
      3214 display_hemi_scan(nickname)
      +
      3215 endif
      +
      3216end
      +
      +
      3217
      +
      +
      3229function trim_hemi_scan(nickname, theta_max)
      +
      3230 string nickname
      +
      3231 variable theta_max
      +
      3232
      +
      3233 string s_prefix = ""
      +
      3234 string s_int = "values"
      +
      3235 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      3236
      +
      3237 string s_totals = s_prefix + "tot"
      +
      3238 string s_weights = s_prefix + "wt"
      +
      3239 string s_polar = s_prefix + "pol"
      +
      3240
      +
      3241 wave /sdfr=df w_polar = $s_polar
      +
      3242 wave /sdfr=df w_values = $s_int
      +
      3243 wave /sdfr=df w_totals = $s_totals
      +
      3244 wave /sdfr=df w_weights = $s_weights
      +
      3245
      +
      3246 w_values = w_polar <= theta_max ? w_totals / w_weights : nan
      +
      3247end
      +
      +
      3248
      +
      +
      3268function /wave hemi_polar_cut(nickname, azim)
      +
      3269 string nickname
      +
      3270 variable azim
      +
      3271
      +
      3272 dfref savedf = getdatafolderdfr()
      +
      3273 string s_prefix = ""
      +
      3274 string s_int = "values"
      +
      3275 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      3276
      +
      3277 string s_totals = s_prefix + "tot"
      +
      3278 string s_weights = s_prefix + "wt"
      +
      3279 string s_polar = s_prefix + "pol"
      +
      3280 string s_azim = s_prefix + "az"
      +
      3281 string s_index = s_prefix + "index"
      +
      3282 string s_theta = s_prefix + "th"
      +
      3283 string s_dphi = s_prefix + "dphi"
      +
      3284 string s_nphis = s_prefix + "nphis"
      +
      3285 string s_cut
      +
      3286 sprintf s_cut, "%s_azi%03u", s_int, round(azim)
      +
      3287
      +
      3288 wave /sdfr=df w_polar = $s_polar
      +
      3289 wave /sdfr=df w_azim = $s_azim
      +
      3290 wave /sdfr=df w_values = $s_int
      +
      3291 wave /sdfr=df w_totals = $s_totals
      +
      3292 wave /sdfr=df w_weights = $s_weights
      +
      3293 wave /sdfr=df w_index = $s_index
      +
      3294 wave /sdfr=df w_theta = $s_theta
      +
      3295 wave /sdfr=df w_dphi = $s_dphi
      +
      3296 wave /sdfr=df w_nphis = $s_nphis
      +
      3297
      +
      3298 variable npol = numpnts(w_theta)
      +
      3299 variable ipol
      +
      3300 variable pol_st = abs(w_theta[1] - w_theta[0])
      +
      3301 variable pol
      +
      3302 variable pol1, pol2
      +
      3303 variable nsel
      +
      3304
      +
      3305 setdatafolder df
      +
      3306 make /n=(npol) /o $s_cut
      +
      3307 wave w_cut = $s_cut
      +
      3308 setscale /i x w_theta[0], w_theta[numpnts(w_theta)-1], "deg", w_cut
      +
      3309 make /n=1 /free azi_slice
      +
      3310 make /n=1 /free values_slice
      +
      3311
      +
      3312 for (ipol = 0; ipol < npol; ipol += 1)
      +
      3313 pol = w_theta[ipol]
      +
      3314 pol1 = pol - pol_st / 2
      +
      3315 pol2 = pol + pol_st / 2
      +
      3316 extract /free /indx w_polar, sel, (pol1 < w_polar) && (w_polar <= pol2)
      +
      3317 nsel = numpnts(sel)
      +
      3318 if (nsel > 0)
      +
      3319 redimension /n=(nsel+2) azi_slice, values_slice
      +
      3320 azi_slice[1, nsel] = w_azim[sel[p-1]]
      +
      3321 azi_slice[0] = azi_slice[nsel] - 360
      +
      3322 azi_slice[nsel+1] = azi_slice[1] + 360
      +
      3323 values_slice[1, nsel] = w_values[sel[p-1]]
      +
      3324 values_slice[0] = values_slice[nsel]
      +
      3325 values_slice[nsel+1] = values_slice[1]
      +
      3326 w_cut[ipol] = interp(azim, azi_slice, values_slice)
      +
      3327 else
      +
      3328 w_cut[ipol] = nan
      +
      3329 endif
      +
      3330 endfor
      +
      3331
      +
      3332 setdatafolder savedf
      +
      3333 return w_cut
      +
      3334end
      +
      +
      3335
      +
      +
      3354function /wave hemi_azi_cut(nickname, pol)
      +
      3355 string nickname
      +
      3356 variable pol
      +
      3357
      +
      3358 dfref savedf = getdatafolderdfr()
      +
      3359 string s_prefix = ""
      +
      3360 string s_int = "values"
      +
      3361 dfref df = find_hemi_data(nickname, s_prefix, s_int)
      +
      3362
      +
      3363 string s_totals = s_prefix + "tot"
      +
      3364 string s_weights = s_prefix + "wt"
      +
      3365 string s_polar = s_prefix + "pol"
      +
      3366 string s_azim = s_prefix + "az"
      +
      3367 string s_index = s_prefix + "index"
      +
      3368 string s_theta = s_prefix + "th"
      +
      3369 string s_dphi = s_prefix + "dphi"
      +
      3370 string s_nphis = s_prefix + "nphis"
      +
      3371 string s_cut
      +
      3372 sprintf s_cut, "%s_pol%03u", s_int, round(pol)
      +
      3373
      +
      3374 wave /sdfr=df w_polar = $s_polar
      +
      3375 wave /sdfr=df w_azim = $s_azim
      +
      3376 wave /sdfr=df w_values = $s_int
      +
      3377 wave /sdfr=df w_totals = $s_totals
      +
      3378 wave /sdfr=df w_weights = $s_weights
      +
      3379 wave /sdfr=df w_index = $s_index
      +
      3380 wave /sdfr=df w_theta = $s_theta
      +
      3381 wave /sdfr=df w_dphi = $s_dphi
      +
      3382 wave /sdfr=df w_nphis = $s_nphis
      +
      3383
      +
      3384 variable pol_st = abs(w_theta[1] - w_theta[0])
      +
      3385 variable pol1, pol2
      +
      3386 variable nsel
      +
      3387
      +
      3388 pol1 = pol - pol_st / 2
      +
      3389 pol2 = pol + pol_st / 2
      +
      3390 extract /free /indx w_polar, sel, (pol1 < w_polar) && (w_polar <= pol2)
      +
      3391 nsel = numpnts(sel)
      +
      3392 if (nsel > 0)
      +
      3393 setdatafolder df
      +
      3394 make /n=(nsel) /o $s_cut
      +
      3395 wave w_cut = $s_cut
      +
      3396 w_cut = w_values[sel]
      +
      3397 setscale /i x w_azim[sel[0]], w_azim[sel[nsel-1]], "°", w_cut
      +
      3398 setdatafolder savedf
      +
      3399 return w_cut
      +
      3400 else
      +
      3401 setdatafolder savedf
      +
      3402 return $""
      +
      3403 endif
      +
      3404 setdatafolder savedf
      +
      3405end
      +
      +
      3406
      +
      +
      3407static function check_contrast(values, pcmin, pcmax, vmin, vmax, sym)
      +
      3408 wave values
      +
      3409 variable pcmin
      +
      3410 variable pcmax
      +
      3411 variable &vmin
      +
      3412 variable &vmax
      +
      3413 variable sym
      +
      3414
      +
      3415 dfref save_df = GetDataFolderDFR()
      +
      3416 dfref dfr = NewFreeDataFolder()
      +
      3417 setdatafolder dfr
      +
      3418 StatsQuantiles /inan /iw /q /z values
      +
      3419 wave /z index = w_quantilesindex
      +
      3420 setdatafolder save_df
      +
      3421
      +
      3422 if (waveexists(index))
      +
      3423 variable imin = round(numpnts(index) * pcmin / 100)
      +
      3424 variable imax = round(numpnts(index) * (100 - pcmax) / 100)
      +
      3425 vmin = values[index[imin]]
      +
      3426 vmax = values[index[imax]]
      +
      3427 if (sym)
      +
      3428 variable d = vmax - vmin
      +
      3429 if ((vmax >= d/4) && (-vmin >= d/4))
      +
      3430 vmax = min(abs(vmin), abs(vmax))
      +
      3431 vmin = -vmax
      +
      3432 endif
      +
      3433 endif
      +
      3434 else
      +
      3435 vmin = wavemin(values)
      +
      3436 vmax = wavemax(values)
      +
      3437 endif
      +
      3438end
      +
      +
      3439
      +
      +
      3463function set_contrast(pcmin, pcmax, [graphname, colortable, reversecolors, symmetric])
      +
      3464 variable pcmin
      +
      3465 variable pcmax
      +
      3466 string graphname
      +
      3467 string colortable
      +
      3468 variable reversecolors
      +
      3469 variable symmetric
      +
      3470
      +
      3471 if (ParamIsDefault(graphname))
      +
      3472 graphname = ""
      +
      3473 endif
      +
      3474 if (ParamIsDefault(colortable))
      +
      3475 colortable = ""
      +
      3476 endif
      +
      3477 if (ParamIsDefault(reversecolors))
      +
      3478 reversecolors = 0
      +
      3479 endif
      +
      3480 if (ParamIsDefault(symmetric))
      +
      3481 symmetric = 0
      +
      3482 endif
      +
      3483
      +
      3484 dfref save_df = GetDataFolderDFR()
      +
      3485
      +
      3486 string objname
      +
      3487 string info
      +
      3488 string wname
      +
      3489 string ctab
      +
      3490 variable rev
      +
      3491 variable n
      +
      3492 variable i
      +
      3493 variable vmin
      +
      3494 variable vmax
      +
      3495
      +
      3496 string traces = TraceNameList(graphname, ";", 1+4)
      +
      3497 n = ItemsInList(traces, ";")
      +
      3498 for (i = 0; i < n; i += 1)
      +
      3499 objname = StringFromList(i, traces, ";")
      +
      3500 info = TraceInfo(graphname, objname, 0)
      +
      3501 if (strlen(info) > 0)
      +
      3502 info = StringByKey("RECREATION", info, ":", ";")
      +
      3503 info = StringByKey("zColor(x)", info, "=", ";")
      +
      3504 if (strlen(info) > 2)
      +
      3505 info = info[1,strlen(info)-2]
      +
      3506 wname = StringFromList(0, info, ",")
      +
      3507 wave w = $wname
      +
      3508 ctab = StringFromList(3, info, ",")
      +
      3509 rev = str2num("0" + StringFromList(4, info, ","))
      +
      3510 if (strlen(colortable) > 0)
      +
      3511 ctab = colortable
      +
      3512 rev = reversecolors
      +
      3513 endif
      +
      3514 check_contrast(w, pcmin, pcmax, vmin, vmax, symmetric)
      +
      3515 if (vmax > vmin)
      +
      3516 ModifyGraph /w=$graphname zColor($objname)={w, vmin, vmax, $ctab, rev}
      +
      3517 endif
      +
      3518 endif
      +
      3519 endif
      +
      3520 endfor
      +
      3521
      +
      3522 string images = ImageNameList(graphname, ";")
      +
      3523 n = ItemsInList(images, ";")
      +
      3524 for (i = 0; i < n; i += 1)
      +
      3525 objname = StringFromList(i, images, ";")
      +
      3526 wave w = ImageNameToWaveRef(graphname, objname)
      +
      3527 info = ImageInfo(graphname, objname, 0)
      +
      3528 if (strlen(info) > 0)
      +
      3529 info = StringByKey("RECREATION", info, ":", ";")
      +
      3530 info = StringByKey("ctab", info, "=", ";")
      +
      3531 if (strlen(info) > 2)
      +
      3532 info = info[1,strlen(info)-2]
      +
      3533 ctab = StringFromList(2, info, ",")
      +
      3534 rev = str2num("0" + StringFromList(3, info, ","))
      +
      3535 if (strlen(colortable) > 0)
      +
      3536 ctab = colortable
      +
      3537 rev = reversecolors
      +
      3538 endif
      +
      3539 check_contrast(w, pcmin, pcmax, vmin, vmax, symmetric)
      +
      3540 if (vmax > vmin)
      +
      3541 ModifyImage /w=$graphname $objname ctab={vmin, vmax, $ctab, rev}
      +
      3542 endif
      +
      3543 endif
      +
      3544 endif
      +
      3545 endfor
      +
      3546
      +
      3547 setdatafolder save_df
      +
      3548end
      +
      +
      3549
      +
      +
      3562Function AngleToK(inwave)
      +
      3563 Wave inwave
      +
      3564 String newname = NameofWave(inwave)+"_k"
      +
      3565 Duplicate/O inwave, $newname
      +
      3566 Wave outwave = $newname
      +
      3567 Variable rows,columns,xdelta,xoffset,ydelta,yoffset,kmin,kmax,Emax
      +
      3568 // inwave parameters
      +
      3569 rows = DimSize(inwave,0)
      +
      3570 columns = DimSize(inwave,1)
      +
      3571 xdelta = DimDelta(inwave,0)
      +
      3572 xoffset = DimOffset(inwave,0)
      +
      3573 ydelta = DimDelta(inwave,1)
      +
      3574 yoffset = DimOffset(inwave,1)
      +
      3575 Emax= xoffset + xdelta*(rows-1)
      +
      3576 kmin = 0.5123*sqrt(Emax)*sin(pi/180*(yoffset)) // calculate the k boundaries
      +
      3577 kmax = 0.5123*sqrt(Emax)*sin(pi/180*(yoffset+(columns-1)*ydelta))
      +
      3578 SetScale/I y kmin,kmax,"Ang^-1", outwave
      +
      3579 // scale the y axis
      +
      3580 outwave = interp2D(inwave, x, 180/pi*asin(y/ (0.5123*sqrt(x)))) // recalculate to k
      +
      3581 outwave = (NumType(outwave)==2) ? 0 : outwave // replace NaNs (optional)
      +
      3582End
      +
      +
      PearlAnglescanProcess
      processing and holographic mapping of angle scanned XPD data.
      +
      show_analyser_line
      variable show_analyser_line(variable theta, variable tilt, variable phi, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
      calculate and display the line seen by the analyser for a specific emission angle
      Definition pearl-anglescan-process.ipf:1053
      +
      kProjScaleDist
      static const variable kProjScaleDist
      Definition pearl-anglescan-process.ipf:2348
      +
      quick_pizza_image
      variable quick_pizza_image(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue)
      map angle scan data onto a rectangular grid in stereographic projection
      Definition pearl-anglescan-process.ipf:2986
      +
      strip_delete_frames
      variable strip_delete_frames(wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi)
      delete a contiguous range of frames from a strip.
      Definition pearl-anglescan-process.ipf:170
      +
      get_hemi_prefix
      string get_hemi_prefix(wave w)
      finds the prefix given any hemi wave
      Definition pearl-anglescan-process.ipf:1541
      +
      update_polar_info
      static variable update_polar_info(string graphname)
      update the angles info based on cursors A and B of a given polar graph window
      Definition pearl-anglescan-process.ipf:2512
      +
      display_scanlines
      string display_scanlines(string nickname, variable alpha_lo, variable alpha_hi, wave m_theta, wave m_tilt, wave m_phi, variable folding=defaultValue, variable projection=defaultValue)
      display a polar graph with lines indicating the angles covered by an angle scan.
      Definition pearl-anglescan-process.ipf:2254
      +
      Calc_The_step
      static variable Calc_The_step(variable th, variable Theta_st, string Holomode)
      calculate delta-theta for a given theta
      Definition pearl-anglescan-process.ipf:1296
      +
      kProjArea
      const variable kProjArea
      Definition pearl-anglescan-process.ipf:2344
      +
      pizza_service_2
      variable pizza_service_2(wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition pearl-anglescan-process.ipf:936
      +
      convert_angles_ttpd2polar
      variable convert_angles_ttpd2polar(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition pearl-anglescan-process.ipf:1123
      +
      kProjOrtho
      const variable kProjOrtho
      Definition pearl-anglescan-process.ipf:2346
      +
      convert_angles_ttpa2polar
      variable convert_angles_ttpa2polar(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition pearl-anglescan-process.ipf:1162
      +
      clear_hemi_grid
      variable clear_hemi_grid(string nickname)
      clear a hemispherical scan grid
      Definition pearl-anglescan-process.ipf:1606
      +
      hemi_add_aziscan
      variable hemi_add_aziscan(string nickname, wave values, variable polar, wave azi, wave weights=defaultValue)
      add azimuthal data to a hemispherical scan grid.
      Definition pearl-anglescan-process.ipf:2844
      +
      display_polar_graph
      static string display_polar_graph(string graphname, variable angle_offset=defaultValue, variable do_ticks=defaultValue)
      displays an empty polar graph
      Definition pearl-anglescan-process.ipf:2003
      +
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition pearl-anglescan-process.ipf:252
      +
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition pearl-anglescan-process.ipf:3097
      +
      hemi_add_anglescan
      variable hemi_add_anglescan(string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
      add arbitrary angle scan data to a hemispherical scan grid.
      Definition pearl-anglescan-process.ipf:2637
      +
      kProjGnom
      const variable kProjGnom
      Definition pearl-anglescan-process.ipf:2345
      +
      calc_graph_azi
      threadsafe variable calc_graph_azi(variable x, variable y, variable projection=defaultValue, variable zeroAngle=defaultValue)
      calculate azimuthal angle from Cartesian coordinate
      Definition pearl-anglescan-process.ipf:2467
      +
      rotate_hemi_scan
      variable rotate_hemi_scan(string nickname, variable angle)
      azimuthally rotate a hemispherical scan dataset.
      Definition pearl-anglescan-process.ipf:1728
      +
      import_tpi_scan
      variable import_tpi_scan(string nickname, wave theta, wave phi, wave intensity, variable folding=defaultValue, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
      import a hemispherical scan from theta-phi-intensity waves and display it
      Definition pearl-anglescan-process.ipf:3179
      +
      trim_hemi_scan
      variable trim_hemi_scan(string nickname, variable theta_max)
      trim a hemispherical scan at grazing angle
      Definition pearl-anglescan-process.ipf:3229
      +
      check_contrast
      static variable check_contrast(wave values, variable pcmin, variable pcmax, variable *vmin, variable *vmax, variable sym)
      Definition pearl-anglescan-process.ipf:3407
      +
      set_polar_graph_cursor
      variable set_polar_graph_cursor(string nickname, string cursorname, variable polar_angle, variable azim_angle, string graphname=defaultValue)
      Definition pearl-anglescan-process.ipf:2567
      +
      calc_graph_radius
      threadsafe variable calc_graph_radius(variable polar, variable projection=defaultValue)
      calculate the projected polar angle
      Definition pearl-anglescan-process.ipf:2369
      +
      load_hemi_scan
      variable load_hemi_scan(string nickname, string pathname, string filename)
      load a hemispherical scan from an Igor text file
      Definition pearl-anglescan-process.ipf:3130
      +
      add_anglescan_worker
      static threadsafe dfr add_anglescan_worker(variable ith, wave values, wave weights, wave polar, wave azi, wave w_polar, wave w_azim, wave w_theta, wave w_index, wave w_dphi, wave w_nphis)
      thread worker for hemi_add_anglescan
      Definition pearl-anglescan-process.ipf:2711
      +
      add_aziscan_core
      static threadsafe variable add_aziscan_core(wave values, wave weights, variable polar, wave azi, wave w_theta, wave w_azim, wave w_index, wave w_dphi, wave w_totals, wave w_weights)
      thread worker for hemi_add_anglescan and hemi_add_aziscan
      Definition pearl-anglescan-process.ipf:2761
      +
      make_hemi_grid
      variable make_hemi_grid(variable npol, string nickname, variable xpdplot=defaultValue)
      create a hemispherical, constant solid angle grid
      Definition pearl-anglescan-process.ipf:1365
      +
      calc_nth
      static variable calc_nth(variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, string Holomode)
      calculate the number of phis for a given theta
      Definition pearl-anglescan-process.ipf:1223
      +
      get_hemi_nickname
      string get_hemi_nickname(wave w)
      finds the nick name given any hemi wave
      Definition pearl-anglescan-process.ipf:1516
      +
      normalize_strip_theta_scans
      variable normalize_strip_theta_scans(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip piecewise by a smooth polar distribution.
      Definition pearl-anglescan-process.ipf:594
      +
      calc_phi_step
      static variable calc_phi_step(variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, string Holomode)
      calculate delta-phi for a given theta
      Definition pearl-anglescan-process.ipf:1252
      +
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition pearl-anglescan-process.ipf:433
      +
      find_hemi_data
      dfr find_hemi_data(string nickname, string *prefix, string *intwave)
      finds the folder, prefix and name of holo waves given their nick name
      Definition pearl-anglescan-process.ipf:1572
      +
      hemi_polar_cut
      wave hemi_polar_cut(string nickname, variable azim)
      extract a polar cut from a hemispherical scan.
      Definition pearl-anglescan-process.ipf:3268
      +
      kProjScaleOrtho
      static const variable kProjScaleOrtho
      Definition pearl-anglescan-process.ipf:2353
      +
      line_average
      static variable line_average(wave source, wave dest)
      Definition pearl-anglescan-process.ipf:1205
      +
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition pearl-anglescan-process.ipf:1653
      +
      crop_strip_theta
      variable crop_strip_theta(wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
      crop a strip in theta.
      Definition pearl-anglescan-process.ipf:779
      +
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition pearl-anglescan-process.ipf:348
      +
      kProjDist
      const variable kProjDist
      Definition pearl-anglescan-process.ipf:2342
      +
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition pearl-anglescan-process.ipf:747
      +
      kProjScaleGnom
      static const variable kProjScaleGnom
      Definition pearl-anglescan-process.ipf:2352
      +
      hemi_azi_cut
      wave hemi_azi_cut(string nickname, variable pol)
      extract an azimuthal cut from a hemispherical scan
      Definition pearl-anglescan-process.ipf:3354
      +
      strip_append
      string strip_append(wave strip1, wave strip2)
      append an angle scan strip to another one
      Definition pearl-anglescan-process.ipf:106
      +
      CalcN_Theta
      static variable CalcN_Theta(string HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st)
      calculate the number of thetas for a pattern
      Definition pearl-anglescan-process.ipf:1327
      +
      kProjStereo
      const variable kProjStereo
      Definition pearl-anglescan-process.ipf:2343
      +
      prepare_hemi_scan_display
      string prepare_hemi_scan_display(string nickname, variable projection=defaultValue)
      create waves for plotting a hemispherical angle scan.
      Definition pearl-anglescan-process.ipf:1776
      +
      polar_graph_hook
      static variable polar_graph_hook(WMWinHookStruct *s)
      polar graph window hook
      Definition pearl-anglescan-process.ipf:2547
      +
      normalize_strip_2d
      variable normalize_strip_2d(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a two-dimensional normalization function.
      Definition pearl-anglescan-process.ipf:686
      +
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition pearl-anglescan-process.ipf:2920
      +
      AngleToK
      variable AngleToK(wave inwave)
      k-space mapping of 2D angle-energy distribution (scienta image)
      Definition pearl-anglescan-process.ipf:3562
      +
      normalize_strip_thetaphi
      variable normalize_strip_thetaphi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a smooth polar-azimuthal distribution.
      Definition pearl-anglescan-process.ipf:533
      +
      calc_graph_polar
      threadsafe variable calc_graph_polar(variable x, variable y, variable projection=defaultValue)
      calculate polar angle from Cartesian coordinate
      Definition pearl-anglescan-process.ipf:2414
      +
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition pearl-anglescan-process.ipf:1858
      +
      kProjScaleStereo
      static const variable kProjScaleStereo
      Definition pearl-anglescan-process.ipf:2349
      +
      draw_hemi_axes
      static string draw_hemi_axes(string graphname, variable do_grids=defaultValue)
      draw polar and azimuthal grids in an existing polar graph.
      Definition pearl-anglescan-process.ipf:2118
      +
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition pearl-anglescan-process.ipf:3463
      +
      kProjScaleArea
      static const variable kProjScaleArea
      Definition pearl-anglescan-process.ipf:2350
      +
      pizza_service
      variable pizza_service(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition pearl-anglescan-process.ipf:843
      +
      draw_diffraction_cone
      variable draw_diffraction_cone(string graphname, string groupname, variable theta_axis, variable theta_inner, variable phi)
      draw the circle of a diffraction cone in a stereographic polar graph.
      Definition pearl-anglescan-process.ipf:2190
      + +
      ad_profile_x
      threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, new destination wave.
      Definition pearl-area-profiles.ipf:481
      +
      ad_profile_y
      threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along Y dimension, new destination wave.
      Definition pearl-area-profiles.ipf:543
      +
      polar2cart_wave
      variable polar2cart_wave(wave in, wave out)
      Definition pearl-polar-coordinates.ipf:59
      +
      cart2polar_wave
      variable cart2polar_wave(wave in, wave out)
      Definition pearl-polar-coordinates.ipf:37
      +
      rotate_z_wave
      variable rotate_z_wave(wave inout, variable angle)
      rotates a wave of 3-vectors about the z axis
      Definition pearl-vector-operations.ipf:234
      +
      rotate_x_wave
      variable rotate_x_wave(wave inout, variable angle)
      rotate a wave of 3-vectors about the x axis.
      Definition pearl-vector-operations.ipf:176
      +
      rotate_y_wave
      variable rotate_y_wave(wave inout, variable angle)
      rotates a wave of 3-vectors about the y axis
      Definition pearl-vector-operations.ipf:205
      -
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition: pearl-anglescan-process.ipf:747
      -
      kProjGnom
      const variable kProjGnom
      Definition: pearl-anglescan-process.ipf:2345
      -
      trim_hemi_scan
      variable trim_hemi_scan(string nickname, variable theta_max)
      trim a hemispherical scan at grazing angle
      Definition: pearl-anglescan-process.ipf:3229
      -
      hemi_add_anglescan
      variable hemi_add_anglescan(string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
      add arbitrary angle scan data to a hemispherical scan grid.
      Definition: pearl-anglescan-process.ipf:2637
      -
      CalcN_Theta
      static variable CalcN_Theta(string HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st)
      calculate the number of thetas for a pattern
      Definition: pearl-anglescan-process.ipf:1327
      -
      import_tpi_scan
      variable import_tpi_scan(string nickname, wave theta, wave phi, wave intensity, variable folding=defaultValue, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
      import a hemispherical scan from theta-phi-intensity waves and display it
      Definition: pearl-anglescan-process.ipf:3179
      -
      pizza_service_2
      variable pizza_service_2(wave data, string nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition: pearl-anglescan-process.ipf:936
      -
      load_hemi_scan
      variable load_hemi_scan(string nickname, string pathname, string filename)
      load a hemispherical scan from an Igor text file
      Definition: pearl-anglescan-process.ipf:3130
      -
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition: pearl-anglescan-process.ipf:433
      -
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition: pearl-anglescan-process.ipf:252
      -
      check_contrast
      static variable check_contrast(wave values, variable pcmin, variable pcmax, variable *vmin, variable *vmax, variable sym)
      Definition: pearl-anglescan-process.ipf:3407
      -
      convert_angles_ttpd2polar
      variable convert_angles_ttpd2polar(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition: pearl-anglescan-process.ipf:1123
      -
      get_hemi_prefix
      string get_hemi_prefix(wave w)
      finds the prefix given any hemi wave
      Definition: pearl-anglescan-process.ipf:1541
      -
      make_hemi_grid
      variable make_hemi_grid(variable npol, string nickname, variable xpdplot=defaultValue)
      create a hemispherical, constant solid angle grid
      Definition: pearl-anglescan-process.ipf:1365
      -
      clear_hemi_grid
      variable clear_hemi_grid(string nickname)
      clear a hemispherical scan grid
      Definition: pearl-anglescan-process.ipf:1606
      -
      rotate_y_wave
      variable rotate_y_wave(wave inout, variable angle)
      rotates a wave of 3-vectors about the y axis
      Definition: pearl-vector-operations.ipf:205
      -
      calc_graph_polar
      threadsafe variable calc_graph_polar(variable x, variable y, variable projection=defaultValue)
      calculate polar angle from Cartesian coordinate
      Definition: pearl-anglescan-process.ipf:2414
      -
      kProjScaleOrtho
      static const variable kProjScaleOrtho
      Definition: pearl-anglescan-process.ipf:2353
      -
      kProjArea
      const variable kProjArea
      Definition: pearl-anglescan-process.ipf:2344
      -
      get_hemi_nickname
      string get_hemi_nickname(wave w)
      finds the nick name given any hemi wave
      Definition: pearl-anglescan-process.ipf:1516
      -
      hemi_azi_cut
      wave hemi_azi_cut(string nickname, variable pol)
      extract an azimuthal cut from a hemispherical scan
      Definition: pearl-anglescan-process.ipf:3354
      -
      normalize_strip_2d
      variable normalize_strip_2d(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a two-dimensional normalization function.
      Definition: pearl-anglescan-process.ipf:686
      -
      line_average
      static variable line_average(wave source, wave dest)
      Definition: pearl-anglescan-process.ipf:1205
      -
      ad_profile_x
      threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, new destination wave.
      Definition: pearl-area-profiles.ipf:481
      -
      display_scanlines
      string display_scanlines(string nickname, variable alpha_lo, variable alpha_hi, wave m_theta, wave m_tilt, wave m_phi, variable folding=defaultValue, variable projection=defaultValue)
      display a polar graph with lines indicating the angles covered by an angle scan.
      Definition: pearl-anglescan-process.ipf:2254
      -
      ad_profile_y
      threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along Y dimension, new destination wave.
      Definition: pearl-area-profiles.ipf:543
      -
      normalize_strip_theta_scans
      variable normalize_strip_theta_scans(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip piecewise by a smooth polar distribution.
      Definition: pearl-anglescan-process.ipf:594
      -
      Calc_The_step
      static variable Calc_The_step(variable th, variable Theta_st, string Holomode)
      calculate delta-theta for a given theta
      Definition: pearl-anglescan-process.ipf:1296
      -
      crop_strip_theta
      variable crop_strip_theta(wave strip, variable theta_lo, variable theta_hi, wave theta, wave tilt, wave phi)
      crop a strip in theta.
      Definition: pearl-anglescan-process.ipf:779
      -
      calc_graph_radius
      threadsafe variable calc_graph_radius(variable polar, variable projection=defaultValue)
      calculate the projected polar angle
      Definition: pearl-anglescan-process.ipf:2369
      -
      add_anglescan_worker
      static threadsafe dfr add_anglescan_worker(variable ith, wave values, wave weights, wave polar, wave azi, wave w_polar, wave w_azim, wave w_theta, wave w_index, wave w_dphi, wave w_nphis)
      thread worker for hemi_add_anglescan
      Definition: pearl-anglescan-process.ipf:2711
      -
      find_hemi_data
      dfr find_hemi_data(string nickname, string *prefix, string *intwave)
      finds the folder, prefix and name of holo waves given their nick name
      Definition: pearl-anglescan-process.ipf:1572
      -
      pizza_service
      variable pizza_service(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue, variable xpdplot=defaultValue)
      create a pizza plot from a measured (energy-integrated) data strip
      Definition: pearl-anglescan-process.ipf:843
      -
      draw_diffraction_cone
      variable draw_diffraction_cone(string graphname, string groupname, variable theta_axis, variable theta_inner, variable phi)
      draw the circle of a diffraction cone in a stereographic polar graph.
      Definition: pearl-anglescan-process.ipf:2190
      -
      interpolate_hemi_scan
      variable interpolate_hemi_scan(string nickname, variable projection=defaultValue)
      interpolate a hemispherical scan onto a rectangular grid
      Definition: pearl-anglescan-process.ipf:2920
      -
      kProjScaleDist
      static const variable kProjScaleDist
      Definition: pearl-anglescan-process.ipf:2348
      -
      cart2polar_wave
      variable cart2polar_wave(wave in, wave out)
      Definition: pearl-polar-coordinates.ipf:37
      -
      rotate_hemi_scan
      variable rotate_hemi_scan(string nickname, variable angle)
      azimuthally rotate a hemispherical scan dataset.
      Definition: pearl-anglescan-process.ipf:1728
      -
      kProjDist
      const variable kProjDist
      Definition: pearl-anglescan-process.ipf:2342
      -
      display_polar_graph
      static string display_polar_graph(string graphname, variable angle_offset=defaultValue, variable do_ticks=defaultValue)
      displays an empty polar graph
      Definition: pearl-anglescan-process.ipf:2003
      -
      quick_pizza_image
      variable quick_pizza_image(wave data, string nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable folding=defaultValue)
      map angle scan data onto a rectangular grid in stereographic projection
      Definition: pearl-anglescan-process.ipf:2986
      -
      set_contrast
      variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue, variable reversecolors=defaultValue, variable symmetric=defaultValue)
      set the pseudocolor contrast by percentile.
      Definition: pearl-anglescan-process.ipf:3463
      -
      calc_nth
      static variable calc_nth(variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, string Holomode)
      calculate the number of phis for a given theta
      Definition: pearl-anglescan-process.ipf:1223
      -
      hemi_add_aziscan
      variable hemi_add_aziscan(string nickname, wave values, variable polar, wave azi, wave weights=defaultValue)
      add azimuthal data to a hemispherical scan grid.
      Definition: pearl-anglescan-process.ipf:2844
      -
      add_aziscan_core
      static threadsafe variable add_aziscan_core(wave values, wave weights, variable polar, wave azi, wave w_theta, wave w_azim, wave w_index, wave w_dphi, wave w_totals, wave w_weights)
      thread worker for hemi_add_anglescan and hemi_add_aziscan
      Definition: pearl-anglescan-process.ipf:2761
      -
      convert_angles_ttpa2polar
      variable convert_angles_ttpa2polar(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition: pearl-anglescan-process.ipf:1162
      -
      kProjScaleGnom
      static const variable kProjScaleGnom
      Definition: pearl-anglescan-process.ipf:2352
      -
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition: pearl-anglescan-process.ipf:3097
      -
      PearlAnglescanProcess
      processing and holographic mapping of angle scanned XPD data.
      -
      rotate_x_wave
      variable rotate_x_wave(wave inout, variable angle)
      rotate a wave of 3-vectors about the x axis.
      Definition: pearl-vector-operations.ipf:176
      -
      calc_graph_azi
      threadsafe variable calc_graph_azi(variable x, variable y, variable projection=defaultValue, variable zeroAngle=defaultValue)
      calculate azimuthal angle from Cartesian coordinate
      Definition: pearl-anglescan-process.ipf:2467
      -
      kProjStereo
      const variable kProjStereo
      Definition: pearl-anglescan-process.ipf:2343
      -
      normalize_strip_thetaphi
      variable normalize_strip_thetaphi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by a smooth polar-azimuthal distribution.
      Definition: pearl-anglescan-process.ipf:533
      -
      rotate_z_wave
      variable rotate_z_wave(wave inout, variable angle)
      rotates a wave of 3-vectors about the z axis
      Definition: pearl-vector-operations.ipf:234
      -
      kProjScaleStereo
      static const variable kProjScaleStereo
      Definition: pearl-anglescan-process.ipf:2349
      -
      kProjScaleArea
      static const variable kProjScaleArea
      Definition: pearl-anglescan-process.ipf:2350
      -
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition: pearl-anglescan-process.ipf:1653
      -
      set_polar_graph_cursor
      variable set_polar_graph_cursor(string nickname, string cursorname, variable polar_angle, variable azim_angle, string graphname=defaultValue)
      Definition: pearl-anglescan-process.ipf:2567
      -
      kProjOrtho
      const variable kProjOrtho
      Definition: pearl-anglescan-process.ipf:2346
      -
      normalize_strip_phi
      variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)
      divide the strip by a sine function in phi (wobble correction).
      Definition: pearl-anglescan-process.ipf:348
      -
      polar2cart_wave
      variable polar2cart_wave(wave in, wave out)
      Definition: pearl-polar-coordinates.ipf:59
      -
      calc_phi_step
      static variable calc_phi_step(variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, string Holomode)
      calculate delta-phi for a given theta
      Definition: pearl-anglescan-process.ipf:1252
      -
      polar_graph_hook
      static variable polar_graph_hook(WMWinHookStruct *s)
      polar graph window hook
      Definition: pearl-anglescan-process.ipf:2547
      -
      prepare_hemi_scan_display
      string prepare_hemi_scan_display(string nickname, variable projection=defaultValue)
      create waves for plotting a hemispherical angle scan.
      Definition: pearl-anglescan-process.ipf:1776
      -
      hemi_polar_cut
      wave hemi_polar_cut(string nickname, variable azim)
      extract a polar cut from a hemispherical scan.
      Definition: pearl-anglescan-process.ipf:3268
      - -
      show_analyser_line
      variable show_analyser_line(variable theta, variable tilt, variable phi, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)
      calculate and display the line seen by the analyser for a specific emission angle
      Definition: pearl-anglescan-process.ipf:1053
      -
      strip_append
      string strip_append(wave strip1, wave strip2)
      append an angle scan strip to another one
      Definition: pearl-anglescan-process.ipf:106
      -
      strip_delete_frames
      variable strip_delete_frames(wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi)
      delete a contiguous range of frames from a strip.
      Definition: pearl-anglescan-process.ipf:170
      -
      AngleToK
      variable AngleToK(wave inwave)
      k-space mapping of 2D angle-energy distribution (scienta image)
      Definition: pearl-anglescan-process.ipf:3562
      -
      update_polar_info
      static variable update_polar_info(string graphname)
      update the angles info based on cursors A and B of a given polar graph window
      Definition: pearl-anglescan-process.ipf:2512
      -
      draw_hemi_axes
      static string draw_hemi_axes(string graphname, variable do_grids=defaultValue)
      draw polar and azimuthal grids in an existing polar graph.
      Definition: pearl-anglescan-process.ipf:2118
      -
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition: pearl-anglescan-process.ipf:1858
      diff --git a/doc/html/pearl-anglescan-tracker_8ipf.html b/doc/html/pearl-anglescan-tracker_8ipf.html index 1e2a085..dcf9b29 100644 --- a/doc/html/pearl-anglescan-tracker_8ipf.html +++ b/doc/html/pearl-anglescan-tracker_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-tracker.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-anglescan-tracker_8ipf.html','')
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      Functions | Variables
      -
      -
      pearl-anglescan-tracker.ipf File Reference
      +
      pearl-anglescan-tracker.ipf File Reference
      #include "pearl-area-profiles"
      @@ -98,133 +104,133 @@ $(document).ready(function(){initNavTree('pearl-anglescan-tracker_8ipf.html','')

      Go to the source code of this file.

      - - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - - + + - + - - + + - - + + - - + + - - + + - + - + - - + + - + - + - - + + - - + + - - + + - - + + - + - + - + - + - + - - + + - - + + - - + + - - + + - + - + - + - +

      +

      Functions

      static variable AfterCompiledHook ()
       initialize package data once when the procedure is first loaded More...
      static variable AfterCompiledHook ()
       initialize package data once when the procedure is first loaded
       
      static variable init_package ()
      static variable init_package ()
       
      static variable save_prefs ()
       save persistent package data to the preferences file. More...
      static variable save_prefs ()
       save persistent package data to the preferences file.
       
      static variable load_prefs ()
       load persistent package data from the preferences file. More...
      static variable load_prefs ()
       load persistent package data from the preferences file.
       
      static variable IgorQuitHook (string app)
       disconnect EPICS channels before Igor quits. More...
      static variable IgorQuitHook (string app)
       disconnect EPICS channels before Igor quits.
       
      variable ast_setup ()
       set up data structures, display graph, and try to connect to analyser. More...
      variable ast_setup ()
       set up data structures, display graph, and try to connect to analyser.
       
      variable ast_prepare (variable theta_offset=defaultValue, variable tilt_offset=defaultValue, variable phi_offset=defaultValue)
       prepare for new measurement and clear the data buffer. More...
      variable ast_prepare (variable theta_offset=defaultValue, variable tilt_offset=defaultValue, variable phi_offset=defaultValue)
       prepare for new measurement and clear the data buffer.
       
      variable ast_set_processing (string reduction_func, string reduction_params)
       set the data processing parameters More...
      variable ast_set_processing (string reduction_func, string reduction_params)
       set the data processing parameters
       
      variable ast_add_image (wave image, variable theta, variable tilt, variable phi)
       process and add a detector image to the tracker scan. More...
      variable ast_add_image (wave image, variable theta, variable tilt, variable phi)
       process and add a detector image to the tracker scan.
       
      variable ast_export (dfref folder, string nickname, variable xpdplot=defaultValue)
       export tracker data to a separate, independent data set. More...
      variable ast_export (dfref folder, string nickname, variable xpdplot=defaultValue)
       export tracker data to a separate, independent data set.
       
      variable ast_import (string nickname)
       import tracker data from an existing angle scan dataset. More...
      variable ast_import (string nickname)
       import tracker data from an existing angle scan dataset.
       
      variable ast_update_detector (variable theta, variable tilt, variable phi, variable range)
       update the current position indicator. More...
      variable ast_update_detector (variable theta, variable tilt, variable phi, variable range)
       update the current position indicator.
       
      variable ast_close ()
       stop tracker, close graph, release data structures. More...
      variable ast_close ()
       stop tracker, close graph, release data structures.
       
      static variable setup_data ()
      static variable setup_data ()
       
      static variable extend_data (variable num_slices)
       extend the data buffer for the next polar scan More...
      static variable extend_data (variable num_slices)
       extend the data buffer for the next polar scan
       
      static variable setup_detector ()
      static variable setup_detector ()
       
      static variable add_image_data (wave image, variable theta, variable tilt, variable phi)
       reduce a detector image and add the result to the data buffer. More...
      static variable add_image_data (wave image, variable theta, variable tilt, variable phi)
       reduce a detector image and add the result to the data buffer.
       
      static variable process_image_data ()
       process the data buffer to generate the tracker dataset. More...
      static variable process_image_data ()
       process the data buffer to generate the tracker dataset.
       
      static variable update_detector (variable theta, variable tilt, variable phi, variable range)
       update the current position indicator. More...
      static variable update_detector (variable theta, variable tilt, variable phi, variable range)
       update the current position indicator.
       
      static variable setup_graph ()
       create the graph window. More...
      static variable setup_graph ()
       create the graph window.
       
      static variable update_data_graph ()
      static variable update_data_graph ()
       
      static variable update_detector_graph ()
      static variable update_detector_graph ()
       
      static variable epics_connect ()
       connect the angle scan tracker to EPICS More...
      static variable epics_connect ()
       connect the angle scan tracker to EPICS
       
      static variable epics_disconnect_chid (string chid_var_name)
      static variable epics_disconnect_chid (string chid_var_name)
       
      static variable epics_disconnect ()
      static variable epics_disconnect ()
       
      static variable ast_window_hook (WMWinHookStruct *s)
       window hook More...
      static variable ast_window_hook (WMWinHookStruct *s)
       window hook
       
      variable ast_callback_data (variable chan)
       callback function for new analyser data from EPICS. More...
      variable ast_callback_data (variable chan)
       callback function for new analyser data from EPICS.
       
      variable ast_callback_detector (variable chan)
       callback function for new detector state from EPICS. More...
      variable ast_callback_detector (variable chan)
       callback function for new detector state from EPICS.
       
      variable ast_callback_manip (variable chan)
       callback function for new manipulator position from EPICS. More...
      variable ast_callback_manip (variable chan)
       callback function for new manipulator position from EPICS.
       
      static variable bp_capture (WMButtonAction *ba)
      static variable bp_capture (WMButtonAction *ba)
       
      static variable toggle_capture ()
      static variable toggle_capture ()
       
      static variable update_capture ()
      static variable update_capture ()
       
      static variable pmp_data (WMPopupAction *pa)
      static variable pmp_data (WMPopupAction *pa)
       
      static variable pmp_data_mouseup (WMPopupAction *pa)
      static variable pmp_data_mouseup (WMPopupAction *pa)
       
      static variable export_tracker_data ()
       export tracker data (with prompt) More...
      static variable export_tracker_data ()
       export tracker data (with prompt)
       
      static variable import_tracker_data ()
       import tracker data (with prompt) More...
      static variable import_tracker_data ()
       import tracker data (with prompt)
       
      static variable save_tracker_data ()
       save tracker data to file (with prompt) More...
      static variable save_tracker_data ()
       save tracker data to file (with prompt)
       
      static variable load_tracker_data ()
       import tracker data from file (with prompt) More...
      static variable load_tracker_data ()
       import tracker data from file (with prompt)
       
      static variable pmp_parameters (WMPopupAction *pa)
      static variable pmp_parameters (WMPopupAction *pa)
       
      static variable pmp_parameters_mouseup (WMPopupAction *pa)
      static variable pmp_parameters_mouseup (WMPopupAction *pa)
       
      static variable edit_reduction_params ()
      static variable edit_reduction_params ()
       
      static variable edit_offsets ()
      static variable edit_offsets ()
       
      - - + - - + + - - + +

      +

      Variables

       version
       version
       
      static const string package_path = "root:packages:pearl_anglescan_tracker:"
       data folder path More...
      static const string package_path = "root:packages:pearl_anglescan_tracker:"
       data folder path
       
      static const string prefs_objects = "projection;theta_offset;tilt_offset;phi_offset;reduction_func;reduction_params"
       semicolon-separated list of persistent variable, string, and wave names More...
      static const string prefs_objects = "projection;theta_offset;tilt_offset;phi_offset;reduction_func;reduction_params"
       semicolon-separated list of persistent variable, string, and wave names
       

      Function Documentation

      - -

      ◆ add_image_data()

      + +

      ◆ add_image_data()

      @@ -285,8 +291,8 @@ Variables
      - -

      ◆ AfterCompiledHook()

      + +

      ◆ AfterCompiledHook()

      @@ -314,8 +320,8 @@ Variables
      - -

      ◆ ast_add_image()

      + +

      ◆ ast_add_image()

      @@ -368,8 +374,8 @@ Variables
      - -

      ◆ ast_callback_data()

      + +

      ◆ ast_callback_data()

      @@ -390,8 +396,8 @@ Variables
      - -

      ◆ ast_callback_detector()

      + +

      ◆ ast_callback_detector()

      @@ -413,8 +419,8 @@ Variables
      - -

      ◆ ast_callback_manip()

      + +

      ◆ ast_callback_manip()

      @@ -435,8 +441,8 @@ Variables
      - -

      ◆ ast_close()

      + +

      ◆ ast_close()

      @@ -456,8 +462,8 @@ Variables
      - -

      ◆ ast_export()

      + +

      ◆ ast_export()

      @@ -507,8 +513,8 @@ Variables
      - -

      ◆ ast_import()

      + +

      ◆ ast_import()

      @@ -535,8 +541,8 @@ Variables
      - -

      ◆ ast_prepare()

      + +

      ◆ ast_prepare()

      @@ -582,8 +588,8 @@ Variables
      - -

      ◆ ast_set_processing()

      + +

      ◆ ast_set_processing()

      @@ -622,8 +628,8 @@ Variables
      - -

      ◆ ast_setup()

      + +

      ◆ ast_setup()

      @@ -643,8 +649,8 @@ Variables
      - -

      ◆ ast_update_detector()

      + +

      ◆ ast_update_detector()

      @@ -697,8 +703,8 @@ Variables
      - -

      ◆ ast_window_hook()

      + +

      ◆ ast_window_hook()

      @@ -728,8 +734,8 @@ Variables
      - -

      ◆ bp_capture()

      + +

      ◆ bp_capture()

      @@ -756,8 +762,8 @@ Variables
      - -

      ◆ edit_offsets()

      + +

      ◆ edit_offsets()

      @@ -783,8 +789,8 @@ Variables
      - -

      ◆ edit_reduction_params()

      + +

      ◆ edit_reduction_params()

      @@ -810,8 +816,8 @@ Variables
      - -

      ◆ epics_connect()

      + +

      ◆ epics_connect()

      @@ -843,8 +849,8 @@ Variables
      - -

      ◆ epics_disconnect()

      + +

      ◆ epics_disconnect()

      @@ -870,8 +876,8 @@ Variables
      - -

      ◆ epics_disconnect_chid()

      + +

      ◆ epics_disconnect_chid()

      @@ -898,8 +904,8 @@ Variables
      - -

      ◆ export_tracker_data()

      + +

      ◆ export_tracker_data()

      @@ -927,8 +933,8 @@ Variables
      - -

      ◆ extend_data()

      + +

      ◆ extend_data()

      @@ -964,8 +970,8 @@ Variables
      - -

      ◆ IgorQuitHook()

      + +

      ◆ IgorQuitHook()

      @@ -994,8 +1000,8 @@ Variables
      - -

      ◆ import_tracker_data()

      + +

      ◆ import_tracker_data()

      @@ -1023,8 +1029,8 @@ Variables
      - -

      ◆ init_package()

      + +

      ◆ init_package()

      @@ -1050,8 +1056,8 @@ Variables
      - -

      ◆ load_prefs()

      + +

      ◆ load_prefs()

      @@ -1081,8 +1087,8 @@ Variables
      - -

      ◆ load_tracker_data()

      + +

      ◆ load_tracker_data()

      @@ -1110,8 +1116,8 @@ Variables
      - -

      ◆ pmp_data()

      + +

      ◆ pmp_data()

      @@ -1138,8 +1144,8 @@ Variables
      - -

      ◆ pmp_data_mouseup()

      + +

      ◆ pmp_data_mouseup()

      @@ -1166,8 +1172,8 @@ Variables
      - -

      ◆ pmp_parameters()

      + +

      ◆ pmp_parameters()

      @@ -1194,8 +1200,8 @@ Variables
      - -

      ◆ pmp_parameters_mouseup()

      + +

      ◆ pmp_parameters_mouseup()

      @@ -1222,8 +1228,8 @@ Variables
      - -

      ◆ process_image_data()

      + +

      ◆ process_image_data()

      @@ -1251,8 +1257,8 @@ Variables
      - -

      ◆ save_prefs()

      + +

      ◆ save_prefs()

      @@ -1281,8 +1287,8 @@ Variables
      - -

      ◆ save_tracker_data()

      + +

      ◆ save_tracker_data()

      @@ -1310,8 +1316,8 @@ Variables
      - -

      ◆ setup_data()

      + +

      ◆ setup_data()

      @@ -1337,8 +1343,8 @@ Variables
      - -

      ◆ setup_detector()

      + +

      ◆ setup_detector()

      @@ -1364,8 +1370,8 @@ Variables
      - -

      ◆ setup_graph()

      + +

      ◆ setup_graph()

      @@ -1393,8 +1399,8 @@ Variables
      - -

      ◆ toggle_capture()

      + +

      ◆ toggle_capture()

      @@ -1420,8 +1426,8 @@ Variables
      - -

      ◆ update_capture()

      + +

      ◆ update_capture()

      @@ -1447,8 +1453,8 @@ Variables
      - -

      ◆ update_data_graph()

      + +

      ◆ update_data_graph()

      @@ -1474,8 +1480,8 @@ Variables
      - -

      ◆ update_detector()

      + +

      ◆ update_detector()

      @@ -1536,8 +1542,8 @@ Variables
      - -

      ◆ update_detector_graph()

      + +

      ◆ update_detector_graph()

      @@ -1564,8 +1570,8 @@ Variables

      Variable Documentation

      - -

      ◆ package_path

      + +

      ◆ package_path

      @@ -1590,8 +1596,8 @@ Variables
      - -

      ◆ prefs_objects

      + +

      ◆ prefs_objects

      @@ -1616,8 +1622,8 @@ Variables
      - -

      ◆ version

      + +

      ◆ version

      @@ -1645,7 +1651,8 @@ Variables
      -
      static const string package_name = "pearl_anglescan_tracker"
      +
      static const string package_name = "pearl_anglescan_tracker"
      +
      package_name
      static const string package_name
      package name is used as data folder name
      Definition pearl-anglescan-panel.ipf:48

      Definition at line 6 of file pearl-anglescan-tracker.ipf.

      @@ -1653,14 +1660,11 @@ Variables
      -
      package_name
      static const string package_name
      package name is used as data folder name
      Definition: pearl-anglescan-panel.ipf:48
      diff --git a/doc/html/pearl-anglescan-tracker_8ipf_source.html b/doc/html/pearl-anglescan-tracker_8ipf_source.html index d0d7c9a..a359af0 100644 --- a/doc/html/pearl-anglescan-tracker_8ipf_source.html +++ b/doc/html/pearl-anglescan-tracker_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-anglescan-tracker.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,1192 +82,1280 @@ $(document).ready(function(){initNavTree('pearl-anglescan-tracker_8ipf_source.ht
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-anglescan-tracker.ipf
      +
      pearl-anglescan-tracker.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "Windows-1252"
      -
      2 #pragma rtGlobals=3
      -
      3 #pragma version = 1.4
      -
      4 #pragma IgorVersion = 6.2
      -
      5 #pragma ModuleName = PearlAnglescanTracker
      -
      6 #include "pearl-area-profiles", version > 1.04
      -
      7 #include "pearl-area-import", version > 1.05
      -
      8 #include "pearl-scienta-preprocess", version > 1.00
      -
      9 #include "pearl-anglescan-process", version >= 1.6
      -
      10 #include <New Polar Graphs>
      -
      11 
      -
      12 // $Id$
      -
      13 //
      -
      14 // author: matthias.muntwiler@psi.ch
      -
      15 // Copyright (c) 2014-15 Paul Scherrer Institut
      -
      16 //
      -
      17 // Licensed under the Apache License, Version 2.0 (the "License");
      -
      18 // you may not use this file except in compliance with the License.
      -
      19 // You may obtain a copy of the License at
      -
      20 // http://www.apache.org/licenses/LICENSE-2.0
      -
      21 
      -
      59 
      -
      65 
      -
      67 static strconstant package_name = "pearl_anglescan_tracker"
      -
      69 static strconstant package_path = "root:packages:pearl_anglescan_tracker:"
      -
      71 static strconstant prefs_objects = "projection;theta_offset;tilt_offset;phi_offset;reduction_func;reduction_params"
      -
      72 
      -
      74 static function AfterCompiledHook()
      -
      75 
      -
      76  dfref savedf = GetDataFolderDFR()
      -
      77  variable do_init = 1
      -
      78  if (DataFolderExists(package_path))
      -
      79  setdatafolder $(package_path)
      -
      80  nvar /z init_done
      -
      81  if (nvar_exists(init_done))
      -
      82  if (init_done)
      -
      83  do_init = 0
      -
      84  endif
      -
      85  endif
      -
      86  endif
      -
      87 
      -
      88  if (do_init)
      -
      89  init_package()
      -
      90  load_prefs()
      -
      91  setdatafolder $(package_path)
      -
      92  variable /g init_done = 1
      -
      93  endif
      -
      94 
      -
      95  setdatafolder savedf
      -
      96  return 0
      -
      97 end
      -
      98 
      -
      99 static function init_package()
      -
      100  dfref savedf = getdatafolderdfr()
      -
      101  setdatafolder root:
      -
      102  newdatafolder /o/s packages
      -
      103  newdatafolder /o/s $package_name
      -
      104 
      -
      105  // configuration (persistent)
      -
      106  string /g graphname = "graph_anglescan_tracker"
      -
      107  string /g dataname = "tracker"
      -
      108  string /g projection = "stereographic"
      -
      109 
      -
      110  // recently used (persistent)
      -
      111  variable /g theta_offset = 0
      -
      112  variable /g tilt_offset = 0
      -
      113  variable /g phi_offset = 0
      -
      114  string /g reduction_func = "int_linbg_reduction"
      -
      115  string /g reduction_params = "Lcrop=0.1;Hcrop=0.1;Lsize=0.2;Hsize=0.2;Cpos=0.5;Csize=0.4"
      -
      116 
      -
      117  // recently used (volatile)
      -
      118  string /g export_folderpath = "root:"
      -
      119  variable /g export_format = 1
      -
      120 
      -
      121  // run-time variables (volatile)
      -
      122  string /g detector_tracename
      -
      123  variable /g capturing = 0
      -
      124  variable /g buf_size = 0 // number of measurements that fit into the data buffer
      -
      125  variable /g buf_count = 0 // number of measurements contained in the data buffer
      -
      126  variable /g buf_width = 0 // number of slices that fit into the data buffer
      -
      127 
      -
      128  // load icon of sample holder
      -
      129  string path = FunctionPath("")
      -
      130  path = ParseFilePath(1, path, ":", 1, 0) + "tracker-sample-picture.png"
      -
      131  LoadPict /O/Q path, pict_tracker_sample
      -
      132 
      -
      133  setdatafolder savedf
      -
      134 end
      -
      135 
      -
      140 static function save_prefs()
      -
      141  dfref saveDF = GetDataFolderDFR()
      -
      142 
      -
      143  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      -
      144  fullPath += package_name
      -
      145  NewPath/O/C/Q tempPackagePrefsPath, fullPath
      -
      146  fullPath += ":preferences.pxp"
      -
      147 
      -
      148  SetDataFolder root:packages
      -
      149  SetDataFolder $package_name
      -
      150  SaveData /O /Q /J=prefs_objects fullPath
      -
      151 
      -
      152  KillPath/Z tempPackagePrefsPath
      -
      153 
      -
      154  SetDataFolder saveDF
      -
      155 end
      -
      156 
      -
      164 static function load_prefs()
      -
      165  dfref saveDF = GetDataFolderDFR()
      -
      166 
      -
      167  variable result = -1
      -
      168  setdatafolder root:
      -
      169  NewDataFolder /O/S packages
      -
      170  NewDataFolder /O/S $package_name
      -
      171  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      -
      172  fullPath += package_name
      -
      173 
      -
      174  GetFileFolderInfo /Q /Z fullPath
      -
      175  if (V_Flag == 0) // Disk directory exists?
      -
      176  fullPath += ":preferences.pxp"
      -
      177  GetFileFolderInfo /Q /Z fullPath
      -
      178  if (V_Flag == 0) // Preference file exist?
      -
      179  LoadData /O /R /Q fullPath
      -
      180  result = 0
      -
      181  endif
      -
      182  endif
      -
      183 
      -
      184  SetDataFolder saveDF
      -
      185  return result
      -
      186 end
      -
      187 
      -
      189 static function IgorQuitHook(app)
      -
      190  string app
      -
      191  epics_disconnect()
      -
      192 end
      -
      193 
      -
      195 function ast_setup()
      -
      196  setup_data()
      -
      197  setup_detector()
      -
      198  setup_graph()
      -
      199  epics_connect()
      -
      200 end
      -
      201 
      -
      212 function ast_prepare([theta_offset, tilt_offset, phi_offset])
      -
      213  variable theta_offset
      -
      214  variable tilt_offset
      -
      215  variable phi_offset
      -
      216 
      -
      217  dfref savedf = getdatafolderdfr()
      -
      218  setdatafolder $(package_path)
      -
      219 
      -
      220  if (!ParamIsDefault(theta_offset))
      -
      221  nvar v_theta_offset = theta_offset
      -
      222  v_theta_offset = theta_offset
      -
      223  endif
      -
      224  if (!ParamIsDefault(tilt_offset))
      -
      225  nvar v_tilt_offset = tilt_offset
      -
      226  v_tilt_offset = tilt_offset
      -
      227  endif
      -
      228  if (!ParamIsDefault(phi_offset))
      -
      229  nvar v_phi_offset = phi_offset
      -
      230  v_phi_offset = phi_offset
      -
      231  endif
      -
      232 
      -
      233  nvar buf_count
      -
      234  nvar buf_size
      -
      235  nvar buf_width
      -
      236  buf_count = 0
      -
      237  buf_size = 0
      -
      238  buf_width = 0
      -
      239 
      -
      240  svar dataname
      -
      241  clear_hemi_grid(dataname)
      -
      242  // work-around: set one point to a real number to make the rest of the trace in the graph transparent
      -
      243  wave values = $(dataname + "_i")
      -
      244  values[numpnts(values) - 1] = 0
      -
      245 
      -
      246  update_data_graph()
      -
      247 
      -
      248  setdatafolder saveDF
      -
      249 end
      -
      250 
      -
      262 function ast_set_processing(reduction_func, reduction_params)
      -
      263  string reduction_func
      -
      264  string reduction_params
      -
      265 
      -
      266  dfref savedf = getdatafolderdfr()
      -
      267  setdatafolder $(package_path)
      -
      268 
      -
      269  svar red_func = reduction_func
      -
      270  svar red_params = reduction_params
      -
      271 
      -
      272  red_func = reduction_func
      -
      273  red_params = reduction_params
      -
      274 
      -
      275  setdatafolder saveDF
      -
      276 end
      -
      277 
      -
      286 function ast_add_image(image, theta, tilt, phi)
      -
      287  wave image
      -
      288  variable theta
      -
      289  variable tilt
      -
      290  variable phi
      -
      291 
      -
      292  add_image_data(image, theta, tilt, phi)
      -
      293  process_image_data()
      -
      294  update_data_graph()
      -
      295 end
      -
      296 
      -
      308 function ast_export(folder, nickname, [xpdplot])
      -
      309  dfref folder
      -
      310  string nickname
      -
      311  variable xpdplot
      -
      312 
      -
      313  if (ParamIsDefault(xpdplot))
      -
      314  xpdplot = 0
      -
      315  endif
      -
      316 
      -
      317  dfref savedf = getdatafolderdfr()
      -
      318  setdatafolder $(package_path)
      -
      319 
      -
      320  svar dataname
      -
      321  duplicate_hemi_scan(dataname, folder, nickname, xpdplot=xpdplot)
      -
      322 
      -
      323  setdatafolder saveDF
      -
      324 end
      -
      325 
      -
      330 function ast_import(nickname)
      -
      331  string nickname
      -
      332 
      -
      333  dfref savedf = getdatafolderdfr()
      -
      334 
      -
      335  svar /sdfr=$(package_path) dataname
      -
      336  duplicate_hemi_scan(nickname, $(package_path), dataname)
      -
      337 
      -
      338  setdatafolder saveDF
      -
      339 end
      -
      340 
      -
      350 function ast_update_detector(theta, tilt, phi, range)
      -
      351  variable theta
      -
      352  variable tilt
      -
      353  variable phi
      -
      354  variable range
      -
      355 
      -
      356  update_detector(theta, tilt, phi, range)
      -
      357  update_detector_graph()
      -
      358 end
      -
      359 
      -
      361 function ast_close()
      -
      362  dfref savedf = getdatafolderdfr()
      -
      363  setdatafolder $(package_path)
      -
      364 
      -
      365  epics_disconnect()
      -
      366 
      -
      367  svar graphname
      -
      368  KillWindow $graphname
      -
      369 
      -
      370  setdatafolder saveDF
      -
      371 end
      -
      372 
      -
      373 static function setup_data()
      -
      374  dfref savedf = getdatafolderdfr()
      -
      375  setdatafolder $(package_path)
      -
      376 
      -
      377  nvar buf_size
      -
      378  nvar buf_count
      -
      379  nvar buf_width
      -
      380  buf_size = 0
      -
      381  buf_count = 0
      -
      382  buf_width = 0
      -
      383  make /n=(1,1) /o buf_i
      -
      384  make /n=(1) /o buf_th, buf_ph, buf_ti
      -
      385 
      -
      386  svar dataname
      -
      387  variable npolar = 91
      -
      388  make_hemi_grid(npolar, dataname)
      -
      389 
      -
      390  // work-around: set one point to a real number to make the rest of the trace in the graph transparent
      -
      391  wave values = $(dataname + "_i")
      -
      392  values[numpnts(values) - 1] = 0
      -
      393 
      -
      394  setdatafolder saveDF
      -
      395 end
      -
      396 
      -
      403 static function extend_data(num_slices)
      -
      404  variable num_slices
      -
      405 
      -
      406  dfref savedf = getdatafolderdfr()
      -
      407  setdatafolder $(package_path)
      -
      408 
      -
      409  nvar buf_size
      -
      410  nvar buf_count
      -
      411  nvar buf_width
      -
      412 
      -
      413  variable new_size = buf_size + 91
      -
      414  buf_width = num_slices
      -
      415 
      -
      416  wave buf_i
      -
      417  wave buf_th
      -
      418  wave buf_ti
      -
      419  wave buf_ph
      -
      420 
      -
      421  redimension /n=(buf_width,new_size) buf_i
      -
      422  redimension /n=(new_size) buf_th, buf_ph, buf_ti
      -
      423 
      -
      424  buf_i[][buf_size, new_size-1] = nan
      -
      425  buf_th[buf_size, new_size-1] = nan
      -
      426  buf_ph[buf_size, new_size-1] = nan
      -
      427  buf_ti[buf_size, new_size-1] = nan
      -
      428 
      -
      429  buf_size = new_size
      -
      430 
      -
      431  setdatafolder saveDF
      -
      432  return buf_count
      -
      433 end
      -
      434 
      -
      435 static function setup_detector()
      -
      436  dfref savedf = getdatafolderdfr()
      -
      437  setdatafolder $(package_path)
      -
      438 
      -
      439  make /n=31 /o detector_angle, detector_pol, detector_az, detector_rad
      -
      440  setscale /i x -30, 30, "°", detector_angle, detector_pol, detector_az, detector_rad
      -
      441  detector_angle = x
      -
      442 
      -
      443  setdatafolder saveDF
      -
      444 end
      -
      445 
      -
      454 static function add_image_data(image, theta, tilt, phi)
      -
      455  wave image
      -
      456  variable theta
      -
      457  variable tilt
      -
      458  variable phi
      -
      459 
      -
      460  dfref savedf = getdatafolderdfr()
      -
      461  setdatafolder $(package_path)
      -
      462  svar dataname
      -
      463  nvar theta_offset
      -
      464  nvar tilt_offset
      -
      465  nvar phi_offset
      -
      466 
      -
      467  // extract angle distribution from image using reduction function mechanism from area-import
      -
      468  svar red_func_name = reduction_func
      -
      469  svar red_params = reduction_params
      -
      470  funcref adh5_default_reduction red_func = $red_func_name
      -
      471  variable nx = dimsize(image, 0)
      -
      472  string loc_params = red_params
      -
      473  wave /wave red_results = red_func(image, loc_params)
      -
      474  if (numpnts(red_results) < 1)
      -
      475  setdatafolder saveDF
      -
      476  return 0
      -
      477  endif
      -
      478 
      -
      479  wave profile1 = red_results[0]
      -
      480  nx = numpnts(profile1)
      -
      481 
      -
      482  // write the result to the buffer
      -
      483  nvar buf_count
      -
      484  nvar buf_size
      -
      485  nvar buf_width
      -
      486  wave buf_i
      -
      487  wave buf_th
      -
      488  wave buf_ph
      -
      489  wave buf_ti
      -
      490 
      -
      491  if ((buf_count >= buf_size) || (nx > buf_width))
      -
      492  extend_data(nx)
      -
      493  setscale /p x dimoffset(profile1,0), dimdelta(profile1,0), waveunits(profile1,0), buf_i
      -
      494  endif
      -
      495 
      -
      496  buf_i[][buf_count] = profile1[p]
      -
      497  buf_th[buf_count] = theta - theta_offset
      -
      498  buf_ti[buf_count] = -(tilt - tilt_offset)
      -
      499  buf_ph[buf_count] = phi - phi_offset
      -
      500 
      -
      501  buf_count += 1
      -
      502 
      -
      503  setdatafolder saveDF
      -
      504 end
      -
      505 
      -
      508 static function process_image_data()
      -
      509  wave image
      -
      510  variable theta
      -
      511  variable tilt
      -
      512  variable phi
      -
      513 
      -
      514  dfref savedf = getdatafolderdfr()
      -
      515  setdatafolder $(package_path)
      -
      516  svar dataname
      -
      517 
      -
      518  nvar buf_count
      -
      519  nvar buf_size
      -
      520  nvar buf_width
      -
      521 
      -
      522  wave buf_i
      -
      523  wave buf_th
      -
      524  wave buf_ph
      -
      525  wave buf_ti
      -
      526 
      -
      527  duplicate /free /R=[0,buf_width-1][0,buf_count-1] buf_i, buf_n
      -
      528  duplicate /free /R=[0,buf_count-1] buf_th, w_th
      -
      529  duplicate /free /R=[0,buf_count-1] buf_ti, w_ti
      -
      530  duplicate /free /R=[0,buf_count-1] buf_ph, w_ph
      -
      531 
      -
      532  normalize_strip_x(buf_n, smooth_method=4)
      -
      533  if (buf_count >= 10)
      -
      534  normalize_strip_theta(buf_n, w_th, smooth_method=4)
      -
      535  endif
      -
      536  if (dimoffset(buf_i,0) < -20)
      -
      537  crop_strip(buf_n, -25, 25)
      -
      538  else
      -
      539  crop_strip(buf_n, -15, 15)
      -
      540  endif
      -
      541 
      -
      542  make /n=1 /free d_polar, d_azi
      -
      543  convert_angles_ttpd2polar(w_th, w_ti, w_ph, buf_n, d_polar, d_azi)
      -
      544  d_azi += 180 // changed 151030 (v1.4)
      -
      545  d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      -
      546  hemi_add_anglescan(dataname, buf_n, d_polar, d_azi)
      -
      547 
      -
      548  setdatafolder saveDF
      -
      549 end
      -
      550 
      -
      560 static function update_detector(theta, tilt, phi, range)
      -
      561  variable theta
      -
      562  variable tilt
      -
      563  variable phi
      -
      564  variable range
      -
      565 
      -
      566  dfref savedf = getdatafolderdfr()
      -
      567  setdatafolder $(package_path)
      -
      568  nvar theta_offset
      -
      569  nvar tilt_offset
      -
      570  nvar phi_offset
      -
      571 
      -
      572  make /n=1 /free m_theta
      -
      573  make /n=1 /free m_tilt
      -
      574  make /n=1 /free m_phi
      -
      575  m_theta = theta - theta_offset
      -
      576  m_tilt = tilt - tilt_offset
      -
      577  m_tilt *= -1 // checked 140702
      -
      578  m_phi = phi - phi_offset
      -
      579  //m_phi *= -1 // checked 140702
      -
      580 
      -
      581  wave detector_angle, detector_pol, detector_az, detector_rad
      -
      582  setscale /i x -range/2, +range/2, "°", detector_angle
      -
      583  detector_angle = x
      -
      584 
      -
      585  convert_angles_ttpa2polar(m_theta, m_tilt, m_phi, detector_angle, detector_pol, detector_az)
      -
      586  redimension /n=(numpnts(detector_pol)) detector_rad
      -
      587  detector_rad = 2 * tan(detector_pol / 2 * pi / 180)
      -
      588  detector_az += 180 // changed 151030 (v1.4)
      -
      589  detector_az = detector_az >= 360 ? detector_az - 360 : detector_az
      -
      590 
      -
      591  setdatafolder saveDF
      -
      592 end
      -
      593 
      -
      595 static function setup_graph()
      -
      596  dfref savedf = getdatafolderdfr()
      -
      597  setdatafolder $(package_path)
      -
      598 
      -
      599  svar dataname
      -
      600  svar graphname
      -
      601  wave detector_az
      -
      602  wave detector_rad
      -
      603  wave detector_angle
      -
      604  svar tracename = detector_tracename
      -
      605 
      -
      606  graphname = display_hemi_scan(dataname, graphname=graphname)
      -
      607  tracename = WMPolarAppendTrace(graphname, detector_rad, detector_az, 360)
      -
      608  ModifyGraph /w=$graphname lstyle($tracename)=0
      -
      609  ModifyGraph /w=$graphname lsize($tracename)=1.5
      -
      610  ModifyGraph /w=$graphname zColor($tracename)={detector_angle,*,*,RedWhiteBlue,0}
      -
      611  ColorScale /w=$graphname /C /N=text1 trace=$tracename
      -
      612  ColorScale /w=$graphname /C /N=text1 /F=0 /B=1 /A=LB /X=0.00 /Y=0.00
      -
      613  ColorScale /w=$graphname /C /N=text1 width=1.5, heightPct=20, frame=0.00
      -
      614  ColorScale /w=$graphname /C /N=text1 lblMargin=0
      -
      615  ColorScale /w=$graphname /C /N=text1 nticks=2, tickLen=2.00, tickThick=0.50
      -
      616 
      -
      617  TextBox /w=$graphname /C /N=tb_manip /F=0 /B=1 /X=0.00 /Y=0.00 /E=2 "\\{\"manip = (%.1f, %.1f, %.1f)\", "
      -
      618  AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curTheta, "
      -
      619  AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curTilt, "
      -
      620  AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curPhi}"
      -
      621 
      -
      622  // the window hook releases the EPICS variables when the window is killed
      -
      623  DoWindow /T $graphname, "Angle Scan Tracker"
      -
      624  SetWindow $graphname, hook(ast_hook) = ast_window_hook
      -
      625 
      -
      626  ControlBar /w=$graphname 21
      -
      627  Button b_capture win=$graphname, title="start", pos={0,0}, size={40,21}, proc=PearlAnglescanTracker#bp_capture
      -
      628  Button b_capture win=$graphname, fColor=(65535,65535,65535), fSize=10
      -
      629  Button b_capture win=$graphname, help={"Start/stop capturing."}
      -
      630  PopupMenu pm_params win=$graphname, mode=0, value="load preferences;save preferences;reduction parameters;manipulator offsets", title="parameters"
      -
      631  PopupMenu pm_params win=$graphname, pos={70,0}, bodyWidth=80, proc=PearlAnglescanTracker#pmp_parameters
      -
      632  PopupMenu pm_params win=$graphname, help={"Load/save/edit data processing parameters"}
      -
      633  PopupMenu pm_data win=$graphname, mode=0, value="import;export;load file;save file", title="data"
      -
      634  PopupMenu pm_data win=$graphname, pos={120,0}, proc=PearlAnglescanTracker#pmp_data
      -
      635  PopupMenu pm_data win=$graphname, help={"Load/save data from/to independent dataset or file"}
      -
      636 
      -
      637  SetDrawLayer /w=$graphname ProgFront
      -
      638  SetDrawEnv /w=$graphname xcoord=rel, ycoord=rel
      -
      639  DrawPict /w=$graphname 0, 0, 1, 1, pict_tracker_sample
      -
      640 
      -
      641  update_capture()
      -
      642 
      -
      643  setdatafolder saveDF
      -
      644 end
      -
      645 
      -
      646 static function update_data_graph()
      -
      647  dfref savedf = getdatafolderdfr()
      -
      648  setdatafolder $(package_path)
      -
      649 
      -
      650  svar dataname
      -
      651  svar graphname
      -
      652 
      -
      653  // nothing to do - trace is updated automatically
      -
      654 
      -
      655  setdatafolder saveDF
      -
      656 end
      -
      657 
      -
      658 static function update_detector_graph()
      -
      659  dfref savedf = getdatafolderdfr()
      -
      660  setdatafolder $(package_path)
      -
      661 
      -
      662  svar dataname
      -
      663  svar graphname
      -
      664 
      -
      665  // nothing to do - trace is updated automatically
      -
      666 
      -
      667  setdatafolder saveDF
      -
      668 end
      -
      669 
      -
      681 static function epics_connect()
      -
      682  dfref savedf = getdatafolderdfr()
      -
      683  setdatafolder $(package_path)
      -
      684 
      -
      685  // close PVs which may be open from a previous call
      -
      686  epics_disconnect()
      -
      687 
      -
      688  // create variables and waves
      -
      689  make /n=(1)/o arraydata, xscale, yscale
      -
      690  make /n=(1,1)/o image
      -
      691  variable /g ndimensions
      -
      692  variable /g arraysize0, arraysize1
      -
      693  variable /g datatype
      -
      694  variable /g colormode
      -
      695  string /g controls, monitors
      -
      696  string /g xunits, yunits
      -
      697 
      -
      698  // channel ID variables
      -
      699  variable /g chidDetectorState = 0
      -
      700  variable /g chidArrayData = 0
      -
      701  variable /g chidXScale = 0
      -
      702  variable /g chidYScale = 0
      -
      703  variable /g chidNDimensions = 0
      -
      704  variable /g chidArraySize0 = 0
      -
      705  variable /g chidArraySize1 = 0
      -
      706  variable /g chidDataType = 0
      -
      707  variable /g chidColorMode = 0
      -
      708  variable /g chidLensMode = 0
      -
      709  variable /g chidTheta = 0
      -
      710  variable /g chidTilt = 0
      -
      711  variable /g chidPhi = 0
      -
      712  variable /g curDetectorState = 0
      -
      713  variable /g curLensMode = 0
      -
      714  variable /g curTheta = 0
      -
      715  variable /g curTilt = 0
      -
      716  variable /g curPhi = 0
      -
      717  variable /g acqTheta = 0
      -
      718  variable /g acqTilt = 0
      -
      719  variable /g acqPhi = 0
      -
      720  variable /g connected = 0
      -
      721 
      -
      722  string epicsname = "X03DA-SCIENTA:"
      -
      723  string imagename = epicsname + "image1:"
      -
      724  string camname = epicsname + "cam1:"
      -
      725  string manipname = "X03DA-ES2-MA:"
      -
      726  variable timeout = 5 // seconds
      -
      727 
      -
      728  #if exists("pvWait")
      -
      729  // EPICS.XOP version 0.3.0 or later
      -
      730  pvOpen /Q chidDetectorState, camname + "DetectorState_RBV" // 0 = idle
      -
      731  pvOpen /Q chidLensMode, camname + "LENS_MODE_RBV"
      -
      732  pvOpen /Q chidXScale, camname + "CHANNEL_SCALE_RBV"
      -
      733  pvOpen /Q chidYScale, camname + "SLICE_SCALE_RBV"
      -
      734  pvOpen /Q chidArrayData, imagename + "ArrayData"
      -
      735  pvOpen /Q chidNDimensions, imagename + "NDimensions_RBV"
      -
      736  pvOpen /Q chidArraySize0, imagename + "ArraySize0_RBV"
      -
      737  pvOpen /Q chidArraySize1, imagename + "ArraySize1_RBV"
      -
      738  pvOpen /Q chidDataType, imagename + "DataType_RBV"
      -
      739  pvOpen /Q chidColorMode, imagename + "ColorMode_RBV"
      -
      740 
      -
      741  pvOpen /Q chidTheta, manipname + "THT.RBV"
      -
      742  pvOpen /Q chidTilt, manipname + "TLT.RBV"
      -
      743  pvOpen /Q chidPhi, manipname + "PHI.RBV"
      -
      744 
      -
      745  pvWait timeout
      -
      746 
      -
      747  if (!GetRTError(1))
      -
      748  connected = 1
      -
      749  endif
      -
      750  #elif exists("pvOpen")
      -
      751  // EPICS.XOP version < 0.3.0
      -
      752  pvOpen /T=(timeout) chidDetectorState, camname + "DetectorState_RBV" // 0 = idle
      -
      753  pvOpen /T=(timeout) chidLensMode, camname + "LENS_MODE_RBV"
      -
      754  pvOpen /T=(timeout) chidXScale, camname + "CHANNEL_SCALE_RBV"
      -
      755  pvOpen /T=(timeout) chidYScale, camname + "SLICE_SCALE_RBV"
      -
      756  pvOpen /T=(timeout) chidArrayData, imagename + "ArrayData"
      -
      757  pvOpen /T=(timeout) chidNDimensions, imagename + "NDimensions_RBV"
      -
      758  pvOpen /T=(timeout) chidArraySize0, imagename + "ArraySize0_RBV"
      -
      759  pvOpen /T=(timeout) chidArraySize1, imagename + "ArraySize1_RBV"
      -
      760  pvOpen /T=(timeout) chidDataType, imagename + "DataType_RBV"
      -
      761  pvOpen /T=(timeout) chidColorMode, imagename + "ColorMode_RBV"
      -
      762 
      -
      763  pvOpen /T=(timeout) chidTheta, manipname + "THT.RBV"
      -
      764  pvOpen /T=(timeout) chidTilt, manipname + "TLT.RBV"
      -
      765  pvOpen /T=(timeout) chidPhi, manipname + "PHI.RBV"
      -
      766 
      -
      767  if (!GetRTError(1))
      -
      768  connected = 1
      -
      769  endif
      -
      770  #endif
      -
      771 
      -
      772  #if exists("pvMonitor")
      -
      773  if (connected)
      -
      774  pvMonitor /F=ast_callback_detector chidDetectorState, curDetectorState
      -
      775  pvMonitor /F=ast_callback_manip chidTheta, curTheta
      -
      776  pvMonitor /F=ast_callback_manip chidTilt, curTilt
      -
      777  pvMonitor /F=ast_callback_manip chidPhi, curPhi
      -
      778  pvMonitor /F=ast_callback_manip chidLensMode, curLensMode
      -
      779  pvMonitor /F=ast_callback_data chidArrayData
      -
      780  endif
      -
      781  #endif
      -
      782 
      -
      783  if (connected)
      -
      784  print "angle scan tracker: online"
      -
      785  else
      -
      786  print "angle scan tracker: offline"
      -
      787  endif
      -
      788 
      -
      789  setdatafolder saveDF
      -
      790  return !connected
      -
      791 end
      -
      792 
      -
      793 static function epics_disconnect_chid(chid_var_name)
      -
      794  string chid_var_name
      -
      795 
      -
      796  #if exists("pvClose")
      -
      797  nvar /z chid = $chid_var_name
      -
      798  if (nvar_exists(chid))
      -
      799  if (chid != 0)
      -
      800  pvClose chid
      -
      801  endif
      -
      802  chid = 0
      -
      803  endif
      -
      804  #endif
      -
      805 end
      -
      806 
      -
      807 static function epics_disconnect()
      -
      808  dfref savedf = GetDataFolderDFR()
      -
      809 
      -
      810  if (DataFolderExists(package_path))
      -
      811  SetDataFolder $(package_path)
      -
      812  else
      -
      813  return nan
      -
      814  endif
      -
      815 
      -
      816  nvar connected
      -
      817  if (connected)
      -
      818  connected = 0
      -
      819  epics_disconnect_chid("chidDetectorState")
      -
      820  epics_disconnect_chid("chidArrayData")
      -
      821  epics_disconnect_chid("chidXScale")
      -
      822  epics_disconnect_chid("chidYScale")
      -
      823  epics_disconnect_chid("chidNDimensions")
      -
      824  epics_disconnect_chid("chidArraySize0")
      -
      825  epics_disconnect_chid("chidArraySize1")
      -
      826  epics_disconnect_chid("chidDataType")
      -
      827  epics_disconnect_chid("chidColorMode")
      -
      828  epics_disconnect_chid("chidLensMode")
      -
      829  epics_disconnect_chid("chidTheta")
      -
      830  epics_disconnect_chid("chidTilt")
      -
      831  epics_disconnect_chid("chidPhi")
      -
      832  print "angle scan tracker: offline"
      -
      833  endif
      -
      834 
      -
      835  setdatafolder savedf
      -
      836 end
      -
      837 
      -
      842 static function ast_window_hook(s)
      -
      843  STRUCT WMWinHookStruct &s
      -
      844 
      -
      845  Variable hookResult = 0
      -
      846 
      -
      847  switch(s.eventCode)
      -
      848  case 2: // kill
      -
      849  epics_disconnect()
      -
      850  break
      -
      851  endswitch
      -
      852 
      -
      853  return hookResult
      -
      854 End
      -
      855 
      -
      857 function ast_callback_data(chan)
      -
      858  variable chan
      -
      859 
      -
      860  nvar capturing = $(package_path + "capturing")
      -
      861  if (!capturing)
      -
      862  return 0
      -
      863  endif
      -
      864 
      -
      865  dfref savedf = GetDataFolderDFR()
      -
      866  setdatafolder $(package_path)
      -
      867  #if exists("pvGetWave")
      -
      868 
      -
      869  // retrieve data
      -
      870  nvar chidArrayData
      -
      871  nvar chidXScale
      -
      872  nvar chidYScale
      -
      873  nvar chidNDimensions
      -
      874  nvar chidArraySize0
      -
      875  nvar chidArraySize1
      -
      876  nvar chidDataType
      -
      877  nvar chidColorMode
      -
      878  nvar chidTheta
      -
      879  nvar chidTilt
      -
      880  nvar chidPhi
      -
      881  nvar acqTheta
      -
      882  nvar acqTilt
      -
      883  nvar acqPhi
      -
      884 
      -
      885  wave arraydata
      -
      886  wave image
      -
      887  wave xscale
      -
      888  wave yscale
      -
      889  variable ndimensions
      -
      890  variable arraysize0
      -
      891  variable arraysize1
      -
      892  variable datatype
      -
      893  variable colormode
      -
      894 
      -
      895  //printf "array callback: acqtheta = %.1f, acqtilt = %.1f, acqphi = %.1f\r", acqTheta, acqTilt, acqPhi
      -
      896 
      -
      897  pvGet chidNDimensions, ndimensions
      -
      898  pvGet chidArraySize0, arraysize0
      -
      899  pvGet chidArraySize1, arraysize1
      -
      900  pvGet chidDataType, datatype
      -
      901  pvGet chidColorMode, colormode
      -
      902 
      -
      903  // sanity checks
      -
      904  if (ndimensions != 2)
      -
      905  return -2
      -
      906  endif
      -
      907  if (colormode != 0)
      -
      908  return -3
      -
      909  endif
      -
      910 
      -
      911  redimension /n=(arraysize0 * arraysize1) arraydata
      -
      912  redimension /n=(arraysize0, arraysize1) image
      -
      913  redimension /n=(arraysize0) xscale
      -
      914  redimension /n=(arraysize1) yscale
      -
      915 
      -
      916  switch(datatype)
      -
      917  case 0: // int8
      -
      918  redimension /b arraydata, image
      -
      919  break
      -
      920  case 1: // uint8
      -
      921  redimension /b/u arraydata, image
      -
      922  break
      -
      923  case 2: // int16
      -
      924  redimension /w arraydata, image
      -
      925  break
      -
      926  case 3: // uint16
      -
      927  redimension /w/u arraydata, image
      -
      928  break
      -
      929  case 4: // int32
      -
      930  redimension /i arraydata, image
      -
      931  break
      -
      932  case 5: // uint32
      -
      933  redimension /i/u arraydata, image
      -
      934  break
      -
      935  case 6: // float32
      -
      936  redimension /s arraydata, image
      -
      937  break
      -
      938  case 7: // float64
      -
      939  redimension /d arraydata, image
      -
      940  break
      -
      941  endswitch
      -
      942 
      -
      943  pvGetWave chidArrayData, arraydata
      -
      944  pvGetWave chidXScale, xscale
      -
      945  pvGetWave chidYScale, yscale
      -
      946 
      -
      947  image = arraydata[p + q * arraysize0]
      -
      948  setscale /i x xscale[0], xscale[numpnts(xscale)-1], image
      -
      949  setscale /i y yscale[0], yscale[numpnts(yscale)-1], image
      -
      950 
      -
      951  ast_add_image(image, acqTheta, acqTilt, acqPhi)
      -
      952 
      -
      953  #endif
      -
      954  setdatafolder savedf
      -
      955  return 0
      -
      956 end
      -
      957 
      -
      962 function ast_callback_detector(chan)
      -
      963  variable chan
      -
      964 
      -
      965  dfref savedf = GetDataFolderDFR()
      -
      966  setdatafolder $(package_path)
      -
      967 
      -
      968  // retrieve data
      -
      969  nvar curDetectorState
      -
      970  nvar curTheta
      -
      971  nvar curTilt
      -
      972  nvar curPhi
      -
      973 
      -
      974  nvar acqTheta
      -
      975  nvar acqTilt
      -
      976  nvar acqPhi
      -
      977 
      -
      978  if (curDetectorState == 1)
      -
      979  acqTheta = curTheta
      -
      980  acqTilt = curTilt
      -
      981  acqPhi = curPhi
      -
      982  endif
      -
      983 
      -
      984  //printf "detector callback: acqtheta = %.1f, acqtilt = %.1f, acqphi = %.1f, detstate = %d\r", acqTheta, acqTilt, acqPhi, curDetectorState
      -
      985 
      -
      986  setdatafolder savedf
      -
      987  return 0
      -
      988 end
      -
      989 
      -
      991 function ast_callback_manip(chan)
      -
      992  variable chan
      -
      993 
      -
      994  dfref savedf = GetDataFolderDFR()
      -
      995  setdatafolder $(package_path)
      -
      996 
      -
      997  // retrieve data
      -
      998  nvar lensmode = curLensMode
      -
      999  nvar theta = curTheta
      -
      1000  nvar tilt = curTilt
      -
      1001  nvar phi = curPhi
      -
      1002 
      -
      1003  //printf "manipulator callback: curtheta = %.1f, curtilt = %.1f, curphi = %.1f, lensmode = %d\r", theta, tilt, phi, lensmode
      -
      1004 
      -
      1005  variable range
      -
      1006  switch(lensmode)
      -
      1007  case 1:
      -
      1008  range = 45 // angular 45
      -
      1009  break
      -
      1010  case 2:
      -
      1011  range = 60 // angular 60
      -
      1012  break
      -
      1013  default:
      -
      1014  range = 2 // transmission or error
      -
      1015  endswitch
      -
      1016  ast_update_detector(theta, tilt, phi, range)
      -
      1017 
      -
      1018  setdatafolder savedf
      -
      1019  return 0
      -
      1020 end
      -
      1021 
      -
      1022 // GUI functions
      -
      1023 
      -
      1024 static function bp_capture(ba) : ButtonControl
      -
      1025  STRUCT WMButtonAction &ba
      -
      1026 
      -
      1027  switch( ba.eventCode )
      -
      1028  case 2: // mouse up
      -
      1029  toggle_capture()
      -
      1030  break
      -
      1031  case -1: // control being killed
      -
      1032  break
      -
      1033  endswitch
      -
      1034 
      -
      1035  return 0
      -
      1036 end
      -
      1037 
      -
      1038 static function toggle_capture()
      -
      1039  dfref savedf = getdatafolderdfr()
      -
      1040  setdatafolder $(package_path)
      -
      1041 
      -
      1042  nvar capturing
      -
      1043  svar graphname
      -
      1044 
      -
      1045  capturing = !capturing
      -
      1046  if (capturing)
      -
      1047  ast_prepare()
      -
      1048  Button b_capture win=$graphname, title="stop"
      -
      1049  else
      -
      1050  Button b_capture win=$graphname, title="start"
      -
      1051  endif
      -
      1052 
      -
      1053  setdatafolder saveDF
      -
      1054 end
      -
      1055 
      -
      1056 static function update_capture()
      -
      1057  dfref savedf = getdatafolderdfr()
      -
      1058  setdatafolder $(package_path)
      -
      1059 
      -
      1060  nvar capturing
      -
      1061  svar graphname
      -
      1062 
      -
      1063  if (capturing)
      -
      1064  Button b_capture win=$graphname, title="stop"
      -
      1065  else
      -
      1066  Button b_capture win=$graphname, title="start"
      -
      1067  endif
      -
      1068 
      -
      1069  setdatafolder saveDF
      -
      1070 end
      -
      1071 
      -
      1072 static function pmp_data(pa) : PopupMenuControl
      -
      1073  STRUCT WMPopupAction &pa
      -
      1074 
      -
      1075  switch( pa.eventCode )
      -
      1076  case 2: // mouse up
      -
      1077  pmp_data_mouseup(pa)
      -
      1078  break
      -
      1079  case -1: // control being killed
      -
      1080  break
      -
      1081  endswitch
      -
      1082 
      -
      1083  return 0
      -
      1084 end
      -
      1085 
      -
      1086 static function pmp_data_mouseup(pa)
      -
      1087  STRUCT WMPopupAction &pa
      -
      1088 
      -
      1089  switch(pa.popNum)
      -
      1090  case 1:
      -
      1091  import_tracker_data()
      -
      1092  break
      -
      1093  case 2:
      -
      1094  export_tracker_data()
      -
      1095  break
      -
      1096  case 3:
      -
      1097  load_tracker_data()
      -
      1098  break
      -
      1099  case 4:
      -
      1100  save_tracker_data()
      -
      1101  break
      -
      1102  endswitch
      -
      1103 end
      -
      1104 
      -
      1106 static function export_tracker_data()
      -
      1107  dfref savedf = getdatafolderdfr()
      -
      1108  setdatafolder $(package_path)
      -
      1109 
      -
      1110  svar export_folderpath
      -
      1111  nvar export_format
      -
      1112 
      -
      1113  string folderpath = export_folderpath
      -
      1114  string nickname = ""
      -
      1115  variable format = export_format
      -
      1116 
      -
      1117  prompt folderpath, "Folder Path"
      -
      1118  prompt nickname, "Nick Name"
      -
      1119  prompt format, "Format", popup, "PEARL;XPDplot"
      -
      1120 
      -
      1121  doprompt "Export Parameters", folderpath, nickname, format
      -
      1122 
      -
      1123  if (v_flag == 0)
      -
      1124  export_folderpath = folderpath
      -
      1125  export_format = format
      -
      1126  // note: if a full or partial path is used, all data folders except for the last in the path must already exist.
      -
      1127  newdatafolder /o $folderpath
      -
      1128  variable xpdplot = format == 2
      -
      1129  ast_export($folderpath, nickname, xpdplot=xpdplot)
      -
      1130  endif
      -
      1131 
      -
      1132  setdatafolder saveDF
      -
      1133 end
      -
      1134 
      -
      1136 static function import_tracker_data()
      -
      1137  dfref savedf = getdatafolderdfr()
      -
      1138  setdatafolder $(package_path)
      -
      1139 
      -
      1140  svar export_folderpath
      -
      1141  string folderpath = export_folderpath
      -
      1142  string nickname = ""
      -
      1143 
      -
      1144  dfref dfBefore = GetDataFolderDFR()
      -
      1145  Execute /q/z "CreateBrowser prompt=\"Select wave from dataset\", showWaves=1, showVars=0, showStrs=0"
      -
      1146  dfref dfAfter = GetDataFolderDFR()
      -
      1147  SetDataFolder dfBefore
      -
      1148 
      -
      1149  SVAR list = S_BrowserList
      -
      1150  NVAR flag = V_Flag
      -
      1151 
      -
      1152  if ((flag != 0) && (ItemsInList(list) >= 1))
      -
      1153  string wname = StringFromList(0, list)
      -
      1154  wave w = $wname
      -
      1155  string prefix = get_hemi_prefix(w)
      -
      1156  dfref df = GetWavesDataFolderDFR(w)
      -
      1157  setdatafolder df
      -
      1158  ast_import(prefix)
      -
      1159  endif
      -
      1160 
      -
      1161  setdatafolder saveDF
      -
      1162 end
      -
      1163 
      -
      1165 static function save_tracker_data()
      -
      1166  dfref savedf = getdatafolderdfr()
      -
      1167  setdatafolder $(package_path)
      -
      1168 
      -
      1169  svar dataname
      -
      1170  save_hemi_scan(dataname, "", "")
      -
      1171 
      -
      1172  setdatafolder saveDF
      -
      1173 end
      -
      1174 
      -
      1176 static function load_tracker_data()
      -
      1177  dfref savedf = getdatafolderdfr()
      -
      1178  setdatafolder $(package_path)
      -
      1179 
      -
      1180  NewDataFolder /O/S load_data
      -
      1181  LoadWave /t /q
      -
      1182  if (v_flag > 0)
      -
      1183  string wname = StringFromList(0, s_wavenames, ";")
      -
      1184  wave w = $wname
      -
      1185  string prefix = get_hemi_prefix(w)
      -
      1186  ast_import(prefix)
      -
      1187  endif
      -
      1188 
      -
      1189  setdatafolder $(package_path)
      -
      1190  KillDataFolder /Z load_data
      -
      1191 
      -
      1192  setdatafolder saveDF
      -
      1193 end
      -
      1194 
      -
      1195 static function pmp_parameters(pa) : PopupMenuControl
      -
      1196  STRUCT WMPopupAction &pa
      -
      1197 
      -
      1198  switch( pa.eventCode )
      -
      1199  case 2: // mouse up
      -
      1200  pmp_parameters_mouseup(pa)
      -
      1201  break
      -
      1202  case -1: // control being killed
      -
      1203  break
      -
      1204  endswitch
      -
      1205 
      -
      1206  return 0
      -
      1207 end
      -
      1208 
      -
      1209 static function pmp_parameters_mouseup(pa)
      -
      1210  STRUCT WMPopupAction &pa
      -
      1211 
      -
      1212  switch(pa.popNum)
      -
      1213  case 1:
      -
      1214  load_prefs()
      -
      1215  break
      -
      1216  case 2:
      -
      1217  save_prefs()
      -
      1218  break
      -
      1219  case 3:
      -
      1220  edit_reduction_params()
      -
      1221  break
      -
      1222  case 4:
      -
      1223  edit_offsets()
      -
      1224  break
      -
      1225  endswitch
      -
      1226 
      -
      1227 end
      -
      1228 
      -
      1229 static function edit_reduction_params()
      -
      1230  dfref savedf = getdatafolderdfr()
      -
      1231  setdatafolder $(package_path)
      -
      1232 
      -
      1233  svar pref_func = reduction_func
      -
      1234  svar pref_params = reduction_params
      -
      1235 
      -
      1236  string loc_func = pref_func
      -
      1237  string loc_params = pref_params
      -
      1238  if (prompt_func_params(loc_func, loc_params) == 0)
      -
      1239  ast_set_processing(loc_func, loc_params)
      -
      1240  endif
      -
      1241 
      -
      1242  setdatafolder saveDF
      -
      1243 end
      -
      1244 
      -
      1245 static function edit_offsets()
      -
      1246  dfref savedf = getdatafolderdfr()
      -
      1247  setdatafolder $(package_path)
      -
      1248 
      -
      1249  nvar theta_offset
      -
      1250  nvar tilt_offset
      -
      1251  nvar phi_offset
      -
      1252 
      -
      1253  variable loc_theta = theta_offset
      -
      1254  variable loc_tilt = tilt_offset
      -
      1255  variable loc_phi = phi_offset
      -
      1256 
      -
      1257  prompt loc_theta, "theta offset"
      -
      1258  prompt loc_tilt, "tilt offset"
      -
      1259  prompt loc_phi, "phi offset"
      -
      1260 
      -
      1261  doprompt "manipulator offsets", loc_theta, loc_tilt, loc_phi
      -
      1262  if (v_flag == 0)
      -
      1263  theta_offset = loc_theta
      -
      1264  tilt_offset = loc_tilt
      -
      1265  phi_offset = loc_phi
      -
      1266  endif
      -
      1267 
      -
      1268  setdatafolder saveDF
      -
      1269 end
      +Go to the documentation of this file.
      1#pragma TextEncoding = "Windows-1252"
      +
      2#pragma rtGlobals=3
      +
      3#pragma version = 1.4
      +
      4#pragma IgorVersion = 6.2
      +
      5#pragma ModuleName = PearlAnglescanTracker
      +
      6#include "pearl-area-profiles", version > 1.04
      +
      7#include "pearl-area-import", version > 1.05
      +
      8#include "pearl-scienta-preprocess", version > 1.00
      +
      9#include "pearl-anglescan-process", version >= 1.6
      +
      10#include <New Polar Graphs>
      +
      11
      +
      12// $Id$
      +
      13//
      +
      14// author: matthias.muntwiler@psi.ch
      +
      15// Copyright (c) 2014-15 Paul Scherrer Institut
      +
      16//
      +
      17// Licensed under the Apache License, Version 2.0 (the "License");
      +
      18// you may not use this file except in compliance with the License.
      +
      19// You may obtain a copy of the License at
      +
      20// http://www.apache.org/licenses/LICENSE-2.0
      +
      21
      +
      59
      +
      65
      +
      67static strconstant package_name = "pearl_anglescan_tracker"
      +
      69static strconstant package_path = "root:packages:pearl_anglescan_tracker:"
      +
      71static strconstant prefs_objects = "projection;theta_offset;tilt_offset;phi_offset;reduction_func;reduction_params"
      +
      72
      +
      +
      74static function AfterCompiledHook()
      +
      75
      +
      76 dfref savedf = GetDataFolderDFR()
      +
      77 variable do_init = 1
      +
      78 if (DataFolderExists(package_path))
      +
      79 setdatafolder $(package_path)
      +
      80 nvar /z init_done
      +
      81 if (nvar_exists(init_done))
      +
      82 if (init_done)
      +
      83 do_init = 0
      +
      84 endif
      +
      85 endif
      +
      86 endif
      +
      87
      +
      88 if (do_init)
      +
      89 init_package()
      +
      90 load_prefs()
      +
      91 setdatafolder $(package_path)
      +
      92 variable /g init_done = 1
      +
      93 endif
      +
      94
      +
      95 setdatafolder savedf
      +
      96 return 0
      +
      97end
      +
      +
      98
      +
      +
      99static function init_package()
      +
      100 dfref savedf = getdatafolderdfr()
      +
      101 setdatafolder root:
      +
      102 newdatafolder /o/s packages
      +
      103 newdatafolder /o/s $package_name
      +
      104
      +
      105 // configuration (persistent)
      +
      106 string /g graphname = "graph_anglescan_tracker"
      +
      107 string /g dataname = "tracker"
      +
      108 string /g projection = "stereographic"
      +
      109
      +
      110 // recently used (persistent)
      +
      111 variable /g theta_offset = 0
      +
      112 variable /g tilt_offset = 0
      +
      113 variable /g phi_offset = 0
      +
      114 string /g reduction_func = "int_linbg_reduction"
      +
      115 string /g reduction_params = "Lcrop=0.1;Hcrop=0.1;Lsize=0.2;Hsize=0.2;Cpos=0.5;Csize=0.4"
      +
      116
      +
      117 // recently used (volatile)
      +
      118 string /g export_folderpath = "root:"
      +
      119 variable /g export_format = 1
      +
      120
      +
      121 // run-time variables (volatile)
      +
      122 string /g detector_tracename
      +
      123 variable /g capturing = 0
      +
      124 variable /g buf_size = 0 // number of measurements that fit into the data buffer
      +
      125 variable /g buf_count = 0 // number of measurements contained in the data buffer
      +
      126 variable /g buf_width = 0 // number of slices that fit into the data buffer
      +
      127
      +
      128 // load icon of sample holder
      +
      129 string path = FunctionPath("")
      +
      130 path = ParseFilePath(1, path, ":", 1, 0) + "tracker-sample-picture.png"
      +
      131 LoadPict /O/Q path, pict_tracker_sample
      +
      132
      +
      133 setdatafolder savedf
      +
      134end
      +
      +
      135
      +
      +
      140static function save_prefs()
      +
      141 dfref saveDF = GetDataFolderDFR()
      +
      142
      +
      143 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      +
      144 fullPath += package_name
      +
      145 NewPath/O/C/Q tempPackagePrefsPath, fullPath
      +
      146 fullPath += ":preferences.pxp"
      +
      147
      +
      148 SetDataFolder root:packages
      +
      149 SetDataFolder $package_name
      +
      150 SaveData /O /Q /J=prefs_objects fullPath
      +
      151
      +
      152 KillPath/Z tempPackagePrefsPath
      +
      153
      +
      154 SetDataFolder saveDF
      +
      155end
      +
      +
      156
      +
      +
      164static function load_prefs()
      +
      165 dfref saveDF = GetDataFolderDFR()
      +
      166
      +
      167 variable result = -1
      +
      168 setdatafolder root:
      +
      169 NewDataFolder /O/S packages
      +
      170 NewDataFolder /O/S $package_name
      +
      171 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
      +
      172 fullPath += package_name
      +
      173
      +
      174 GetFileFolderInfo /Q /Z fullPath
      +
      175 if (V_Flag == 0) // Disk directory exists?
      +
      176 fullPath += ":preferences.pxp"
      +
      177 GetFileFolderInfo /Q /Z fullPath
      +
      178 if (V_Flag == 0) // Preference file exist?
      +
      179 LoadData /O /R /Q fullPath
      +
      180 result = 0
      +
      181 endif
      +
      182 endif
      +
      183
      +
      184 SetDataFolder saveDF
      +
      185 return result
      +
      186end
      +
      +
      187
      +
      +
      189static function IgorQuitHook(app)
      +
      190 string app
      +
      191 epics_disconnect()
      +
      192end
      +
      +
      193
      +
      +
      195function ast_setup()
      +
      196 setup_data()
      +
      197 setup_detector()
      +
      198 setup_graph()
      +
      199 epics_connect()
      +
      200end
      +
      +
      201
      +
      +
      212function ast_prepare([theta_offset, tilt_offset, phi_offset])
      +
      213 variable theta_offset
      +
      214 variable tilt_offset
      +
      215 variable phi_offset
      +
      216
      +
      217 dfref savedf = getdatafolderdfr()
      +
      218 setdatafolder $(package_path)
      +
      219
      +
      220 if (!ParamIsDefault(theta_offset))
      +
      221 nvar v_theta_offset = theta_offset
      +
      222 v_theta_offset = theta_offset
      +
      223 endif
      +
      224 if (!ParamIsDefault(tilt_offset))
      +
      225 nvar v_tilt_offset = tilt_offset
      +
      226 v_tilt_offset = tilt_offset
      +
      227 endif
      +
      228 if (!ParamIsDefault(phi_offset))
      +
      229 nvar v_phi_offset = phi_offset
      +
      230 v_phi_offset = phi_offset
      +
      231 endif
      +
      232
      +
      233 nvar buf_count
      +
      234 nvar buf_size
      +
      235 nvar buf_width
      +
      236 buf_count = 0
      +
      237 buf_size = 0
      +
      238 buf_width = 0
      +
      239
      +
      240 svar dataname
      +
      241 clear_hemi_grid(dataname)
      +
      242 // work-around: set one point to a real number to make the rest of the trace in the graph transparent
      +
      243 wave values = $(dataname + "_i")
      +
      244 values[numpnts(values) - 1] = 0
      +
      245
      +
      246 update_data_graph()
      +
      247
      +
      248 setdatafolder saveDF
      +
      249end
      +
      +
      250
      +
      +
      262function ast_set_processing(reduction_func, reduction_params)
      +
      263 string reduction_func
      +
      264 string reduction_params
      +
      265
      +
      266 dfref savedf = getdatafolderdfr()
      +
      267 setdatafolder $(package_path)
      +
      268
      +
      269 svar red_func = reduction_func
      +
      270 svar red_params = reduction_params
      +
      271
      +
      272 red_func = reduction_func
      +
      273 red_params = reduction_params
      +
      274
      +
      275 setdatafolder saveDF
      +
      276end
      +
      +
      277
      +
      +
      286function ast_add_image(image, theta, tilt, phi)
      +
      287 wave image
      +
      288 variable theta
      +
      289 variable tilt
      +
      290 variable phi
      +
      291
      +
      292 add_image_data(image, theta, tilt, phi)
      +
      293 process_image_data()
      +
      294 update_data_graph()
      +
      295end
      +
      +
      296
      +
      +
      308function ast_export(folder, nickname, [xpdplot])
      +
      309 dfref folder
      +
      310 string nickname
      +
      311 variable xpdplot
      +
      312
      +
      313 if (ParamIsDefault(xpdplot))
      +
      314 xpdplot = 0
      +
      315 endif
      +
      316
      +
      317 dfref savedf = getdatafolderdfr()
      +
      318 setdatafolder $(package_path)
      +
      319
      +
      320 svar dataname
      +
      321 duplicate_hemi_scan(dataname, folder, nickname, xpdplot=xpdplot)
      +
      322
      +
      323 setdatafolder saveDF
      +
      324end
      +
      +
      325
      +
      +
      330function ast_import(nickname)
      +
      331 string nickname
      +
      332
      +
      333 dfref savedf = getdatafolderdfr()
      +
      334
      +
      335 svar /sdfr=$(package_path) dataname
      +
      336 duplicate_hemi_scan(nickname, $(package_path), dataname)
      +
      337
      +
      338 setdatafolder saveDF
      +
      339end
      +
      +
      340
      +
      +
      350function ast_update_detector(theta, tilt, phi, range)
      +
      351 variable theta
      +
      352 variable tilt
      +
      353 variable phi
      +
      354 variable range
      +
      355
      +
      356 update_detector(theta, tilt, phi, range)
      +
      357 update_detector_graph()
      +
      358end
      +
      +
      359
      +
      +
      361function ast_close()
      +
      362 dfref savedf = getdatafolderdfr()
      +
      363 setdatafolder $(package_path)
      +
      364
      +
      365 epics_disconnect()
      +
      366
      +
      367 svar graphname
      +
      368 KillWindow $graphname
      +
      369
      +
      370 setdatafolder saveDF
      +
      371end
      +
      +
      372
      +
      +
      373static function setup_data()
      +
      374 dfref savedf = getdatafolderdfr()
      +
      375 setdatafolder $(package_path)
      +
      376
      +
      377 nvar buf_size
      +
      378 nvar buf_count
      +
      379 nvar buf_width
      +
      380 buf_size = 0
      +
      381 buf_count = 0
      +
      382 buf_width = 0
      +
      383 make /n=(1,1) /o buf_i
      +
      384 make /n=(1) /o buf_th, buf_ph, buf_ti
      +
      385
      +
      386 svar dataname
      +
      387 variable npolar = 91
      +
      388 make_hemi_grid(npolar, dataname)
      +
      389
      +
      390 // work-around: set one point to a real number to make the rest of the trace in the graph transparent
      +
      391 wave values = $(dataname + "_i")
      +
      392 values[numpnts(values) - 1] = 0
      +
      393
      +
      394 setdatafolder saveDF
      +
      395end
      +
      +
      396
      +
      +
      403static function extend_data(num_slices)
      +
      404 variable num_slices
      +
      405
      +
      406 dfref savedf = getdatafolderdfr()
      +
      407 setdatafolder $(package_path)
      +
      408
      +
      409 nvar buf_size
      +
      410 nvar buf_count
      +
      411 nvar buf_width
      +
      412
      +
      413 variable new_size = buf_size + 91
      +
      414 buf_width = num_slices
      +
      415
      +
      416 wave buf_i
      +
      417 wave buf_th
      +
      418 wave buf_ti
      +
      419 wave buf_ph
      +
      420
      +
      421 redimension /n=(buf_width,new_size) buf_i
      +
      422 redimension /n=(new_size) buf_th, buf_ph, buf_ti
      +
      423
      +
      424 buf_i[][buf_size, new_size-1] = nan
      +
      425 buf_th[buf_size, new_size-1] = nan
      +
      426 buf_ph[buf_size, new_size-1] = nan
      +
      427 buf_ti[buf_size, new_size-1] = nan
      +
      428
      +
      429 buf_size = new_size
      +
      430
      +
      431 setdatafolder saveDF
      +
      432 return buf_count
      +
      433end
      +
      +
      434
      +
      +
      435static function setup_detector()
      +
      436 dfref savedf = getdatafolderdfr()
      +
      437 setdatafolder $(package_path)
      +
      438
      +
      439 make /n=31 /o detector_angle, detector_pol, detector_az, detector_rad
      +
      440 setscale /i x -30, 30, "°", detector_angle, detector_pol, detector_az, detector_rad
      +
      441 detector_angle = x
      +
      442
      +
      443 setdatafolder saveDF
      +
      444end
      +
      +
      445
      +
      +
      454static function add_image_data(image, theta, tilt, phi)
      +
      455 wave image
      +
      456 variable theta
      +
      457 variable tilt
      +
      458 variable phi
      +
      459
      +
      460 dfref savedf = getdatafolderdfr()
      +
      461 setdatafolder $(package_path)
      +
      462 svar dataname
      +
      463 nvar theta_offset
      +
      464 nvar tilt_offset
      +
      465 nvar phi_offset
      +
      466
      +
      467 // extract angle distribution from image using reduction function mechanism from area-import
      +
      468 svar red_func_name = reduction_func
      +
      469 svar red_params = reduction_params
      +
      470 funcref adh5_default_reduction red_func = $red_func_name
      +
      471 variable nx = dimsize(image, 0)
      +
      472 string loc_params = red_params
      +
      473 wave /wave red_results = red_func(image, loc_params)
      +
      474 if (numpnts(red_results) < 1)
      +
      475 setdatafolder saveDF
      +
      476 return 0
      +
      477 endif
      +
      478
      +
      479 wave profile1 = red_results[0]
      +
      480 nx = numpnts(profile1)
      +
      481
      +
      482 // write the result to the buffer
      +
      483 nvar buf_count
      +
      484 nvar buf_size
      +
      485 nvar buf_width
      +
      486 wave buf_i
      +
      487 wave buf_th
      +
      488 wave buf_ph
      +
      489 wave buf_ti
      +
      490
      +
      491 if ((buf_count >= buf_size) || (nx > buf_width))
      +
      492 extend_data(nx)
      +
      493 setscale /p x dimoffset(profile1,0), dimdelta(profile1,0), waveunits(profile1,0), buf_i
      +
      494 endif
      +
      495
      +
      496 buf_i[][buf_count] = profile1[p]
      +
      497 buf_th[buf_count] = theta - theta_offset
      +
      498 buf_ti[buf_count] = -(tilt - tilt_offset)
      +
      499 buf_ph[buf_count] = phi - phi_offset
      +
      500
      +
      501 buf_count += 1
      +
      502
      +
      503 setdatafolder saveDF
      +
      504end
      +
      +
      505
      +
      +
      508static function process_image_data()
      +
      509 wave image
      +
      510 variable theta
      +
      511 variable tilt
      +
      512 variable phi
      +
      513
      +
      514 dfref savedf = getdatafolderdfr()
      +
      515 setdatafolder $(package_path)
      +
      516 svar dataname
      +
      517
      +
      518 nvar buf_count
      +
      519 nvar buf_size
      +
      520 nvar buf_width
      +
      521
      +
      522 wave buf_i
      +
      523 wave buf_th
      +
      524 wave buf_ph
      +
      525 wave buf_ti
      +
      526
      +
      527 duplicate /free /R=[0,buf_width-1][0,buf_count-1] buf_i, buf_n
      +
      528 duplicate /free /R=[0,buf_count-1] buf_th, w_th
      +
      529 duplicate /free /R=[0,buf_count-1] buf_ti, w_ti
      +
      530 duplicate /free /R=[0,buf_count-1] buf_ph, w_ph
      +
      531
      +
      532 normalize_strip_x(buf_n, smooth_method=4)
      +
      533 if (buf_count >= 10)
      +
      534 normalize_strip_theta(buf_n, w_th, smooth_method=4)
      +
      535 endif
      +
      536 if (dimoffset(buf_i,0) < -20)
      +
      537 crop_strip(buf_n, -25, 25)
      +
      538 else
      +
      539 crop_strip(buf_n, -15, 15)
      +
      540 endif
      +
      541
      +
      542 make /n=1 /free d_polar, d_azi
      +
      543 convert_angles_ttpd2polar(w_th, w_ti, w_ph, buf_n, d_polar, d_azi)
      +
      544 d_azi += 180 // changed 151030 (v1.4)
      +
      545 d_azi = d_azi >= 360 ? d_azi - 360 : d_azi
      +
      546 hemi_add_anglescan(dataname, buf_n, d_polar, d_azi)
      +
      547
      +
      548 setdatafolder saveDF
      +
      549end
      +
      +
      550
      +
      +
      560static function update_detector(theta, tilt, phi, range)
      +
      561 variable theta
      +
      562 variable tilt
      +
      563 variable phi
      +
      564 variable range
      +
      565
      +
      566 dfref savedf = getdatafolderdfr()
      +
      567 setdatafolder $(package_path)
      +
      568 nvar theta_offset
      +
      569 nvar tilt_offset
      +
      570 nvar phi_offset
      +
      571
      +
      572 make /n=1 /free m_theta
      +
      573 make /n=1 /free m_tilt
      +
      574 make /n=1 /free m_phi
      +
      575 m_theta = theta - theta_offset
      +
      576 m_tilt = tilt - tilt_offset
      +
      577 m_tilt *= -1 // checked 140702
      +
      578 m_phi = phi - phi_offset
      +
      579 //m_phi *= -1 // checked 140702
      +
      580
      +
      581 wave detector_angle, detector_pol, detector_az, detector_rad
      +
      582 setscale /i x -range/2, +range/2, "°", detector_angle
      +
      583 detector_angle = x
      +
      584
      +
      585 convert_angles_ttpa2polar(m_theta, m_tilt, m_phi, detector_angle, detector_pol, detector_az)
      +
      586 redimension /n=(numpnts(detector_pol)) detector_rad
      +
      587 detector_rad = 2 * tan(detector_pol / 2 * pi / 180)
      +
      588 detector_az += 180 // changed 151030 (v1.4)
      +
      589 detector_az = detector_az >= 360 ? detector_az - 360 : detector_az
      +
      590
      +
      591 setdatafolder saveDF
      +
      592end
      +
      +
      593
      +
      +
      595static function setup_graph()
      +
      596 dfref savedf = getdatafolderdfr()
      +
      597 setdatafolder $(package_path)
      +
      598
      +
      599 svar dataname
      +
      600 svar graphname
      +
      601 wave detector_az
      +
      602 wave detector_rad
      +
      603 wave detector_angle
      +
      604 svar tracename = detector_tracename
      +
      605
      +
      606 graphname = display_hemi_scan(dataname, graphname=graphname)
      +
      607 tracename = WMPolarAppendTrace(graphname, detector_rad, detector_az, 360)
      +
      608 ModifyGraph /w=$graphname lstyle($tracename)=0
      +
      609 ModifyGraph /w=$graphname lsize($tracename)=1.5
      +
      610 ModifyGraph /w=$graphname zColor($tracename)={detector_angle,*,*,RedWhiteBlue,0}
      +
      611 ColorScale /w=$graphname /C /N=text1 trace=$tracename
      +
      612 ColorScale /w=$graphname /C /N=text1 /F=0 /B=1 /A=LB /X=0.00 /Y=0.00
      +
      613 ColorScale /w=$graphname /C /N=text1 width=1.5, heightPct=20, frame=0.00
      +
      614 ColorScale /w=$graphname /C /N=text1 lblMargin=0
      +
      615 ColorScale /w=$graphname /C /N=text1 nticks=2, tickLen=2.00, tickThick=0.50
      +
      616
      +
      617 TextBox /w=$graphname /C /N=tb_manip /F=0 /B=1 /X=0.00 /Y=0.00 /E=2 "\\{\"manip = (%.1f, %.1f, %.1f)\", "
      +
      618 AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curTheta, "
      +
      619 AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curTilt, "
      +
      620 AppendText /w=$graphname /N=tb_manip /NOCR "root:packages:pearl_anglescan_tracker:curPhi}"
      +
      621
      +
      622 // the window hook releases the EPICS variables when the window is killed
      +
      623 DoWindow /T $graphname, "Angle Scan Tracker"
      +
      624 SetWindow $graphname, hook(ast_hook) = ast_window_hook
      +
      625
      +
      626 ControlBar /w=$graphname 21
      +
      627 Button b_capture win=$graphname, title="start", pos={0,0}, size={40,21}, proc=PearlAnglescanTracker#bp_capture
      +
      628 Button b_capture win=$graphname, fColor=(65535,65535,65535), fSize=10
      +
      629 Button b_capture win=$graphname, help={"Start/stop capturing."}
      +
      630 PopupMenu pm_params win=$graphname, mode=0, value="load preferences;save preferences;reduction parameters;manipulator offsets", title="parameters"
      +
      631 PopupMenu pm_params win=$graphname, pos={70,0}, bodyWidth=80, proc=PearlAnglescanTracker#pmp_parameters
      +
      632 PopupMenu pm_params win=$graphname, help={"Load/save/edit data processing parameters"}
      +
      633 PopupMenu pm_data win=$graphname, mode=0, value="import;export;load file;save file", title="data"
      +
      634 PopupMenu pm_data win=$graphname, pos={120,0}, proc=PearlAnglescanTracker#pmp_data
      +
      635 PopupMenu pm_data win=$graphname, help={"Load/save data from/to independent dataset or file"}
      +
      636
      +
      637 SetDrawLayer /w=$graphname ProgFront
      +
      638 SetDrawEnv /w=$graphname xcoord=rel, ycoord=rel
      +
      639 DrawPict /w=$graphname 0, 0, 1, 1, pict_tracker_sample
      +
      640
      +
      641 update_capture()
      +
      642
      +
      643 setdatafolder saveDF
      +
      644end
      +
      +
      645
      +
      +
      646static function update_data_graph()
      +
      647 dfref savedf = getdatafolderdfr()
      +
      648 setdatafolder $(package_path)
      +
      649
      +
      650 svar dataname
      +
      651 svar graphname
      +
      652
      +
      653 // nothing to do - trace is updated automatically
      +
      654
      +
      655 setdatafolder saveDF
      +
      656end
      +
      +
      657
      +
      +
      658static function update_detector_graph()
      +
      659 dfref savedf = getdatafolderdfr()
      +
      660 setdatafolder $(package_path)
      +
      661
      +
      662 svar dataname
      +
      663 svar graphname
      +
      664
      +
      665 // nothing to do - trace is updated automatically
      +
      666
      +
      667 setdatafolder saveDF
      +
      668end
      +
      +
      669
      +
      +
      681static function epics_connect()
      +
      682 dfref savedf = getdatafolderdfr()
      +
      683 setdatafolder $(package_path)
      +
      684
      +
      685 // close PVs which may be open from a previous call
      +
      686 epics_disconnect()
      +
      687
      +
      688 // create variables and waves
      +
      689 make /n=(1)/o arraydata, xscale, yscale
      +
      690 make /n=(1,1)/o image
      +
      691 variable /g ndimensions
      +
      692 variable /g arraysize0, arraysize1
      +
      693 variable /g datatype
      +
      694 variable /g colormode
      +
      695 string /g controls, monitors
      +
      696 string /g xunits, yunits
      +
      697
      +
      698 // channel ID variables
      +
      699 variable /g chidDetectorState = 0
      +
      700 variable /g chidArrayData = 0
      +
      701 variable /g chidXScale = 0
      +
      702 variable /g chidYScale = 0
      +
      703 variable /g chidNDimensions = 0
      +
      704 variable /g chidArraySize0 = 0
      +
      705 variable /g chidArraySize1 = 0
      +
      706 variable /g chidDataType = 0
      +
      707 variable /g chidColorMode = 0
      +
      708 variable /g chidLensMode = 0
      +
      709 variable /g chidTheta = 0
      +
      710 variable /g chidTilt = 0
      +
      711 variable /g chidPhi = 0
      +
      712 variable /g curDetectorState = 0
      +
      713 variable /g curLensMode = 0
      +
      714 variable /g curTheta = 0
      +
      715 variable /g curTilt = 0
      +
      716 variable /g curPhi = 0
      +
      717 variable /g acqTheta = 0
      +
      718 variable /g acqTilt = 0
      +
      719 variable /g acqPhi = 0
      +
      720 variable /g connected = 0
      +
      721
      +
      722 string epicsname = "X03DA-SCIENTA:"
      +
      723 string imagename = epicsname + "image1:"
      +
      724 string camname = epicsname + "cam1:"
      +
      725 string manipname = "X03DA-ES2-MA:"
      +
      726 variable timeout = 5 // seconds
      +
      727
      +
      728 #if exists("pvWait")
      +
      729 // EPICS.XOP version 0.3.0 or later
      +
      730 pvOpen /Q chidDetectorState, camname + "DetectorState_RBV" // 0 = idle
      +
      731 pvOpen /Q chidLensMode, camname + "LENS_MODE_RBV"
      +
      732 pvOpen /Q chidXScale, camname + "CHANNEL_SCALE_RBV"
      +
      733 pvOpen /Q chidYScale, camname + "SLICE_SCALE_RBV"
      +
      734 pvOpen /Q chidArrayData, imagename + "ArrayData"
      +
      735 pvOpen /Q chidNDimensions, imagename + "NDimensions_RBV"
      +
      736 pvOpen /Q chidArraySize0, imagename + "ArraySize0_RBV"
      +
      737 pvOpen /Q chidArraySize1, imagename + "ArraySize1_RBV"
      +
      738 pvOpen /Q chidDataType, imagename + "DataType_RBV"
      +
      739 pvOpen /Q chidColorMode, imagename + "ColorMode_RBV"
      +
      740
      +
      741 pvOpen /Q chidTheta, manipname + "THT.RBV"
      +
      742 pvOpen /Q chidTilt, manipname + "TLT.RBV"
      +
      743 pvOpen /Q chidPhi, manipname + "PHI.RBV"
      +
      744
      +
      745 pvWait timeout
      +
      746
      +
      747 if (!GetRTError(1))
      +
      748 connected = 1
      +
      749 endif
      +
      750 #elif exists("pvOpen")
      +
      751 // EPICS.XOP version < 0.3.0
      +
      752 pvOpen /T=(timeout) chidDetectorState, camname + "DetectorState_RBV" // 0 = idle
      +
      753 pvOpen /T=(timeout) chidLensMode, camname + "LENS_MODE_RBV"
      +
      754 pvOpen /T=(timeout) chidXScale, camname + "CHANNEL_SCALE_RBV"
      +
      755 pvOpen /T=(timeout) chidYScale, camname + "SLICE_SCALE_RBV"
      +
      756 pvOpen /T=(timeout) chidArrayData, imagename + "ArrayData"
      +
      757 pvOpen /T=(timeout) chidNDimensions, imagename + "NDimensions_RBV"
      +
      758 pvOpen /T=(timeout) chidArraySize0, imagename + "ArraySize0_RBV"
      +
      759 pvOpen /T=(timeout) chidArraySize1, imagename + "ArraySize1_RBV"
      +
      760 pvOpen /T=(timeout) chidDataType, imagename + "DataType_RBV"
      +
      761 pvOpen /T=(timeout) chidColorMode, imagename + "ColorMode_RBV"
      +
      762
      +
      763 pvOpen /T=(timeout) chidTheta, manipname + "THT.RBV"
      +
      764 pvOpen /T=(timeout) chidTilt, manipname + "TLT.RBV"
      +
      765 pvOpen /T=(timeout) chidPhi, manipname + "PHI.RBV"
      +
      766
      +
      767 if (!GetRTError(1))
      +
      768 connected = 1
      +
      769 endif
      +
      770 #endif
      +
      771
      +
      772 #if exists("pvMonitor")
      +
      773 if (connected)
      +
      774 pvMonitor /F=ast_callback_detector chidDetectorState, curDetectorState
      +
      775 pvMonitor /F=ast_callback_manip chidTheta, curTheta
      +
      776 pvMonitor /F=ast_callback_manip chidTilt, curTilt
      +
      777 pvMonitor /F=ast_callback_manip chidPhi, curPhi
      +
      778 pvMonitor /F=ast_callback_manip chidLensMode, curLensMode
      +
      779 pvMonitor /F=ast_callback_data chidArrayData
      +
      780 endif
      +
      781 #endif
      +
      782
      +
      783 if (connected)
      +
      784 print "angle scan tracker: online"
      +
      785 else
      +
      786 print "angle scan tracker: offline"
      +
      787 endif
      +
      788
      +
      789 setdatafolder saveDF
      +
      790 return !connected
      +
      791end
      +
      +
      792
      +
      +
      793static function epics_disconnect_chid(chid_var_name)
      +
      794 string chid_var_name
      +
      795
      +
      796 #if exists("pvClose")
      +
      797 nvar /z chid = $chid_var_name
      +
      798 if (nvar_exists(chid))
      +
      799 if (chid != 0)
      +
      800 pvClose chid
      +
      801 endif
      +
      802 chid = 0
      +
      803 endif
      +
      804 #endif
      +
      805end
      +
      +
      806
      +
      +
      807static function epics_disconnect()
      +
      808 dfref savedf = GetDataFolderDFR()
      +
      809
      +
      810 if (DataFolderExists(package_path))
      +
      811 SetDataFolder $(package_path)
      +
      812 else
      +
      813 return nan
      +
      814 endif
      +
      815
      +
      816 nvar connected
      +
      817 if (connected)
      +
      818 connected = 0
      +
      819 epics_disconnect_chid("chidDetectorState")
      +
      820 epics_disconnect_chid("chidArrayData")
      +
      821 epics_disconnect_chid("chidXScale")
      +
      822 epics_disconnect_chid("chidYScale")
      +
      823 epics_disconnect_chid("chidNDimensions")
      +
      824 epics_disconnect_chid("chidArraySize0")
      +
      825 epics_disconnect_chid("chidArraySize1")
      +
      826 epics_disconnect_chid("chidDataType")
      +
      827 epics_disconnect_chid("chidColorMode")
      +
      828 epics_disconnect_chid("chidLensMode")
      +
      829 epics_disconnect_chid("chidTheta")
      +
      830 epics_disconnect_chid("chidTilt")
      +
      831 epics_disconnect_chid("chidPhi")
      +
      832 print "angle scan tracker: offline"
      +
      833 endif
      +
      834
      +
      835 setdatafolder savedf
      +
      836end
      +
      +
      837
      +
      +
      842static function ast_window_hook(s)
      +
      843 STRUCT WMWinHookStruct &s
      +
      844
      +
      845 Variable hookResult = 0
      +
      846
      +
      847 switch(s.eventCode)
      +
      848 case 2: // kill
      +
      849 epics_disconnect()
      +
      850 break
      +
      851 endswitch
      +
      852
      +
      853 return hookResult
      +
      854End
      +
      +
      855
      +
      +
      857function ast_callback_data(chan)
      +
      858 variable chan
      +
      859
      +
      860 nvar capturing = $(package_path + "capturing")
      +
      861 if (!capturing)
      +
      862 return 0
      +
      863 endif
      +
      864
      +
      865 dfref savedf = GetDataFolderDFR()
      +
      866 setdatafolder $(package_path)
      +
      867 #if exists("pvGetWave")
      +
      868
      +
      869 // retrieve data
      +
      870 nvar chidArrayData
      +
      871 nvar chidXScale
      +
      872 nvar chidYScale
      +
      873 nvar chidNDimensions
      +
      874 nvar chidArraySize0
      +
      875 nvar chidArraySize1
      +
      876 nvar chidDataType
      +
      877 nvar chidColorMode
      +
      878 nvar chidTheta
      +
      879 nvar chidTilt
      +
      880 nvar chidPhi
      +
      881 nvar acqTheta
      +
      882 nvar acqTilt
      +
      883 nvar acqPhi
      +
      884
      +
      885 wave arraydata
      +
      886 wave image
      +
      887 wave xscale
      +
      888 wave yscale
      +
      889 variable ndimensions
      +
      890 variable arraysize0
      +
      891 variable arraysize1
      +
      892 variable datatype
      +
      893 variable colormode
      +
      894
      +
      895 //printf "array callback: acqtheta = %.1f, acqtilt = %.1f, acqphi = %.1f\r", acqTheta, acqTilt, acqPhi
      +
      896
      +
      897 pvGet chidNDimensions, ndimensions
      +
      898 pvGet chidArraySize0, arraysize0
      +
      899 pvGet chidArraySize1, arraysize1
      +
      900 pvGet chidDataType, datatype
      +
      901 pvGet chidColorMode, colormode
      +
      902
      +
      903 // sanity checks
      +
      904 if (ndimensions != 2)
      +
      905 return -2
      +
      906 endif
      +
      907 if (colormode != 0)
      +
      908 return -3
      +
      909 endif
      +
      910
      +
      911 redimension /n=(arraysize0 * arraysize1) arraydata
      +
      912 redimension /n=(arraysize0, arraysize1) image
      +
      913 redimension /n=(arraysize0) xscale
      +
      914 redimension /n=(arraysize1) yscale
      +
      915
      +
      916 switch(datatype)
      +
      917 case 0: // int8
      +
      918 redimension /b arraydata, image
      +
      919 break
      +
      920 case 1: // uint8
      +
      921 redimension /b/u arraydata, image
      +
      922 break
      +
      923 case 2: // int16
      +
      924 redimension /w arraydata, image
      +
      925 break
      +
      926 case 3: // uint16
      +
      927 redimension /w/u arraydata, image
      +
      928 break
      +
      929 case 4: // int32
      +
      930 redimension /i arraydata, image
      +
      931 break
      +
      932 case 5: // uint32
      +
      933 redimension /i/u arraydata, image
      +
      934 break
      +
      935 case 6: // float32
      +
      936 redimension /s arraydata, image
      +
      937 break
      +
      938 case 7: // float64
      +
      939 redimension /d arraydata, image
      +
      940 break
      +
      941 endswitch
      +
      942
      +
      943 pvGetWave chidArrayData, arraydata
      +
      944 pvGetWave chidXScale, xscale
      +
      945 pvGetWave chidYScale, yscale
      +
      946
      +
      947 image = arraydata[p + q * arraysize0]
      +
      948 setscale /i x xscale[0], xscale[numpnts(xscale)-1], image
      +
      949 setscale /i y yscale[0], yscale[numpnts(yscale)-1], image
      +
      950
      +
      951 ast_add_image(image, acqTheta, acqTilt, acqPhi)
      +
      952
      +
      953 #endif
      +
      954 setdatafolder savedf
      +
      955 return 0
      +
      956end
      +
      +
      957
      +
      +
      962function ast_callback_detector(chan)
      +
      963 variable chan
      +
      964
      +
      965 dfref savedf = GetDataFolderDFR()
      +
      966 setdatafolder $(package_path)
      +
      967
      +
      968 // retrieve data
      +
      969 nvar curDetectorState
      +
      970 nvar curTheta
      +
      971 nvar curTilt
      +
      972 nvar curPhi
      +
      973
      +
      974 nvar acqTheta
      +
      975 nvar acqTilt
      +
      976 nvar acqPhi
      +
      977
      +
      978 if (curDetectorState == 1)
      +
      979 acqTheta = curTheta
      +
      980 acqTilt = curTilt
      +
      981 acqPhi = curPhi
      +
      982 endif
      +
      983
      +
      984 //printf "detector callback: acqtheta = %.1f, acqtilt = %.1f, acqphi = %.1f, detstate = %d\r", acqTheta, acqTilt, acqPhi, curDetectorState
      +
      985
      +
      986 setdatafolder savedf
      +
      987 return 0
      +
      988end
      +
      +
      989
      +
      +
      991function ast_callback_manip(chan)
      +
      992 variable chan
      +
      993
      +
      994 dfref savedf = GetDataFolderDFR()
      +
      995 setdatafolder $(package_path)
      +
      996
      +
      997 // retrieve data
      +
      998 nvar lensmode = curLensMode
      +
      999 nvar theta = curTheta
      +
      1000 nvar tilt = curTilt
      +
      1001 nvar phi = curPhi
      +
      1002
      +
      1003 //printf "manipulator callback: curtheta = %.1f, curtilt = %.1f, curphi = %.1f, lensmode = %d\r", theta, tilt, phi, lensmode
      +
      1004
      +
      1005 variable range
      +
      1006 switch(lensmode)
      +
      1007 case 1:
      +
      1008 range = 45 // angular 45
      +
      1009 break
      +
      1010 case 2:
      +
      1011 range = 60 // angular 60
      +
      1012 break
      +
      1013 default:
      +
      1014 range = 2 // transmission or error
      +
      1015 endswitch
      +
      1016 ast_update_detector(theta, tilt, phi, range)
      +
      1017
      +
      1018 setdatafolder savedf
      +
      1019 return 0
      +
      1020end
      +
      +
      1021
      +
      1022// GUI functions
      +
      1023
      +
      +
      1024static function bp_capture(ba) : ButtonControl
      +
      1025 STRUCT WMButtonAction &ba
      +
      1026
      +
      1027 switch( ba.eventCode )
      +
      1028 case 2: // mouse up
      +
      1029 toggle_capture()
      +
      1030 break
      +
      1031 case -1: // control being killed
      +
      1032 break
      +
      1033 endswitch
      +
      1034
      +
      1035 return 0
      +
      1036end
      +
      +
      1037
      +
      +
      1038static function toggle_capture()
      +
      1039 dfref savedf = getdatafolderdfr()
      +
      1040 setdatafolder $(package_path)
      +
      1041
      +
      1042 nvar capturing
      +
      1043 svar graphname
      +
      1044
      +
      1045 capturing = !capturing
      +
      1046 if (capturing)
      +
      1047 ast_prepare()
      +
      1048 Button b_capture win=$graphname, title="stop"
      +
      1049 else
      +
      1050 Button b_capture win=$graphname, title="start"
      +
      1051 endif
      +
      1052
      +
      1053 setdatafolder saveDF
      +
      1054end
      +
      +
      1055
      +
      +
      1056static function update_capture()
      +
      1057 dfref savedf = getdatafolderdfr()
      +
      1058 setdatafolder $(package_path)
      +
      1059
      +
      1060 nvar capturing
      +
      1061 svar graphname
      +
      1062
      +
      1063 if (capturing)
      +
      1064 Button b_capture win=$graphname, title="stop"
      +
      1065 else
      +
      1066 Button b_capture win=$graphname, title="start"
      +
      1067 endif
      +
      1068
      +
      1069 setdatafolder saveDF
      +
      1070end
      +
      +
      1071
      +
      +
      1072static function pmp_data(pa) : PopupMenuControl
      +
      1073 STRUCT WMPopupAction &pa
      +
      1074
      +
      1075 switch( pa.eventCode )
      +
      1076 case 2: // mouse up
      +
      1077 pmp_data_mouseup(pa)
      +
      1078 break
      +
      1079 case -1: // control being killed
      +
      1080 break
      +
      1081 endswitch
      +
      1082
      +
      1083 return 0
      +
      1084end
      +
      +
      1085
      +
      +
      1086static function pmp_data_mouseup(pa)
      +
      1087 STRUCT WMPopupAction &pa
      +
      1088
      +
      1089 switch(pa.popNum)
      +
      1090 case 1:
      +
      1091 import_tracker_data()
      +
      1092 break
      +
      1093 case 2:
      +
      1094 export_tracker_data()
      +
      1095 break
      +
      1096 case 3:
      +
      1097 load_tracker_data()
      +
      1098 break
      +
      1099 case 4:
      +
      1100 save_tracker_data()
      +
      1101 break
      +
      1102 endswitch
      +
      1103end
      +
      +
      1104
      +
      +
      1106static function export_tracker_data()
      +
      1107 dfref savedf = getdatafolderdfr()
      +
      1108 setdatafolder $(package_path)
      +
      1109
      +
      1110 svar export_folderpath
      +
      1111 nvar export_format
      +
      1112
      +
      1113 string folderpath = export_folderpath
      +
      1114 string nickname = ""
      +
      1115 variable format = export_format
      +
      1116
      +
      1117 prompt folderpath, "Folder Path"
      +
      1118 prompt nickname, "Nick Name"
      +
      1119 prompt format, "Format", popup, "PEARL;XPDplot"
      +
      1120
      +
      1121 doprompt "Export Parameters", folderpath, nickname, format
      +
      1122
      +
      1123 if (v_flag == 0)
      +
      1124 export_folderpath = folderpath
      +
      1125 export_format = format
      +
      1126 // note: if a full or partial path is used, all data folders except for the last in the path must already exist.
      +
      1127 newdatafolder /o $folderpath
      +
      1128 variable xpdplot = format == 2
      +
      1129 ast_export($folderpath, nickname, xpdplot=xpdplot)
      +
      1130 endif
      +
      1131
      +
      1132 setdatafolder saveDF
      +
      1133end
      +
      +
      1134
      +
      +
      1136static function import_tracker_data()
      +
      1137 dfref savedf = getdatafolderdfr()
      +
      1138 setdatafolder $(package_path)
      +
      1139
      +
      1140 svar export_folderpath
      +
      1141 string folderpath = export_folderpath
      +
      1142 string nickname = ""
      +
      1143
      +
      1144 dfref dfBefore = GetDataFolderDFR()
      +
      1145 Execute /q/z "CreateBrowser prompt=\"Select wave from dataset\", showWaves=1, showVars=0, showStrs=0"
      +
      1146 dfref dfAfter = GetDataFolderDFR()
      +
      1147 SetDataFolder dfBefore
      +
      1148
      +
      1149 SVAR list = S_BrowserList
      +
      1150 NVAR flag = V_Flag
      +
      1151
      +
      1152 if ((flag != 0) && (ItemsInList(list) >= 1))
      +
      1153 string wname = StringFromList(0, list)
      +
      1154 wave w = $wname
      +
      1155 string prefix = get_hemi_prefix(w)
      +
      1156 dfref df = GetWavesDataFolderDFR(w)
      +
      1157 setdatafolder df
      +
      1158 ast_import(prefix)
      +
      1159 endif
      +
      1160
      +
      1161 setdatafolder saveDF
      +
      1162end
      +
      +
      1163
      +
      +
      1165static function save_tracker_data()
      +
      1166 dfref savedf = getdatafolderdfr()
      +
      1167 setdatafolder $(package_path)
      +
      1168
      +
      1169 svar dataname
      +
      1170 save_hemi_scan(dataname, "", "")
      +
      1171
      +
      1172 setdatafolder saveDF
      +
      1173end
      +
      +
      1174
      +
      +
      1176static function load_tracker_data()
      +
      1177 dfref savedf = getdatafolderdfr()
      +
      1178 setdatafolder $(package_path)
      +
      1179
      +
      1180 NewDataFolder /O/S load_data
      +
      1181 LoadWave /t /q
      +
      1182 if (v_flag > 0)
      +
      1183 string wname = StringFromList(0, s_wavenames, ";")
      +
      1184 wave w = $wname
      +
      1185 string prefix = get_hemi_prefix(w)
      +
      1186 ast_import(prefix)
      +
      1187 endif
      +
      1188
      +
      1189 setdatafolder $(package_path)
      +
      1190 KillDataFolder /Z load_data
      +
      1191
      +
      1192 setdatafolder saveDF
      +
      1193end
      +
      +
      1194
      +
      +
      1195static function pmp_parameters(pa) : PopupMenuControl
      +
      1196 STRUCT WMPopupAction &pa
      +
      1197
      +
      1198 switch( pa.eventCode )
      +
      1199 case 2: // mouse up
      +
      1200 pmp_parameters_mouseup(pa)
      +
      1201 break
      +
      1202 case -1: // control being killed
      +
      1203 break
      +
      1204 endswitch
      +
      1205
      +
      1206 return 0
      +
      1207end
      +
      +
      1208
      +
      +
      1209static function pmp_parameters_mouseup(pa)
      +
      1210 STRUCT WMPopupAction &pa
      +
      1211
      +
      1212 switch(pa.popNum)
      +
      1213 case 1:
      +
      1214 load_prefs()
      +
      1215 break
      +
      1216 case 2:
      +
      1217 save_prefs()
      +
      1218 break
      +
      1219 case 3:
      +
      1220 edit_reduction_params()
      +
      1221 break
      +
      1222 case 4:
      +
      1223 edit_offsets()
      +
      1224 break
      +
      1225 endswitch
      +
      1226
      +
      1227end
      +
      +
      1228
      +
      +
      1229static function edit_reduction_params()
      +
      1230 dfref savedf = getdatafolderdfr()
      +
      1231 setdatafolder $(package_path)
      +
      1232
      +
      1233 svar pref_func = reduction_func
      +
      1234 svar pref_params = reduction_params
      +
      1235
      +
      1236 string loc_func = pref_func
      +
      1237 string loc_params = pref_params
      +
      1238 if (prompt_func_params(loc_func, loc_params) == 0)
      +
      1239 ast_set_processing(loc_func, loc_params)
      +
      1240 endif
      +
      1241
      +
      1242 setdatafolder saveDF
      +
      1243end
      +
      +
      1244
      +
      +
      1245static function edit_offsets()
      +
      1246 dfref savedf = getdatafolderdfr()
      +
      1247 setdatafolder $(package_path)
      +
      1248
      +
      1249 nvar theta_offset
      +
      1250 nvar tilt_offset
      +
      1251 nvar phi_offset
      +
      1252
      +
      1253 variable loc_theta = theta_offset
      +
      1254 variable loc_tilt = tilt_offset
      +
      1255 variable loc_phi = phi_offset
      +
      1256
      +
      1257 prompt loc_theta, "theta offset"
      +
      1258 prompt loc_tilt, "tilt offset"
      +
      1259 prompt loc_phi, "phi offset"
      +
      1260
      +
      1261 doprompt "manipulator offsets", loc_theta, loc_tilt, loc_phi
      +
      1262 if (v_flag == 0)
      +
      1263 theta_offset = loc_theta
      +
      1264 tilt_offset = loc_tilt
      +
      1265 phi_offset = loc_phi
      +
      1266 endif
      +
      1267
      +
      1268 setdatafolder saveDF
      +
      1269end
      +
      +
      package_name
      static const string package_name
      package name is used as data folder name
      Definition pearl-anglescan-panel.ipf:48
      +
      get_hemi_prefix
      string get_hemi_prefix(wave w)
      finds the prefix given any hemi wave
      Definition pearl-anglescan-process.ipf:1541
      +
      convert_angles_ttpd2polar
      variable convert_angles_ttpd2polar(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition pearl-anglescan-process.ipf:1123
      +
      convert_angles_ttpa2polar
      variable convert_angles_ttpa2polar(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition pearl-anglescan-process.ipf:1162
      +
      clear_hemi_grid
      variable clear_hemi_grid(string nickname)
      clear a hemispherical scan grid
      Definition pearl-anglescan-process.ipf:1606
      +
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition pearl-anglescan-process.ipf:252
      +
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition pearl-anglescan-process.ipf:3097
      +
      hemi_add_anglescan
      variable hemi_add_anglescan(string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
      add arbitrary angle scan data to a hemispherical scan grid.
      Definition pearl-anglescan-process.ipf:2637
      +
      make_hemi_grid
      variable make_hemi_grid(variable npol, string nickname, variable xpdplot=defaultValue)
      create a hemispherical, constant solid angle grid
      Definition pearl-anglescan-process.ipf:1365
      +
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition pearl-anglescan-process.ipf:433
      +
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition pearl-anglescan-process.ipf:1653
      +
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition pearl-anglescan-process.ipf:747
      +
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition pearl-anglescan-process.ipf:1858
      +
      ast_set_processing
      variable ast_set_processing(string reduction_func, string reduction_params)
      set the data processing parameters
      Definition pearl-anglescan-tracker.ipf:262
      +
      toggle_capture
      static variable toggle_capture()
      Definition pearl-anglescan-tracker.ipf:1038
      +
      pmp_data
      static variable pmp_data(WMPopupAction *pa)
      Definition pearl-anglescan-tracker.ipf:1072
      +
      IgorQuitHook
      static variable IgorQuitHook(string app)
      disconnect EPICS channels before Igor quits.
      Definition pearl-anglescan-tracker.ipf:189
      +
      export_tracker_data
      static variable export_tracker_data()
      export tracker data (with prompt)
      Definition pearl-anglescan-tracker.ipf:1106
      +
      update_data_graph
      static variable update_data_graph()
      Definition pearl-anglescan-tracker.ipf:646
      +
      ast_update_detector
      variable ast_update_detector(variable theta, variable tilt, variable phi, variable range)
      update the current position indicator.
      Definition pearl-anglescan-tracker.ipf:350
      +
      prefs_objects
      static const string prefs_objects
      semicolon-separated list of persistent variable, string, and wave names
      Definition pearl-anglescan-tracker.ipf:71
      +
      epics_connect
      static variable epics_connect()
      connect the angle scan tracker to EPICS
      Definition pearl-anglescan-tracker.ipf:681
      +
      ast_window_hook
      static variable ast_window_hook(WMWinHookStruct *s)
      window hook
      Definition pearl-anglescan-tracker.ipf:842
      +
      add_image_data
      static variable add_image_data(wave image, variable theta, variable tilt, variable phi)
      reduce a detector image and add the result to the data buffer.
      Definition pearl-anglescan-tracker.ipf:454
      +
      edit_offsets
      static variable edit_offsets()
      Definition pearl-anglescan-tracker.ipf:1245
      +
      edit_reduction_params
      static variable edit_reduction_params()
      Definition pearl-anglescan-tracker.ipf:1229
      +
      load_tracker_data
      static variable load_tracker_data()
      import tracker data from file (with prompt)
      Definition pearl-anglescan-tracker.ipf:1176
      +
      ast_add_image
      variable ast_add_image(wave image, variable theta, variable tilt, variable phi)
      process and add a detector image to the tracker scan.
      Definition pearl-anglescan-tracker.ipf:286
      +
      init_package
      static variable init_package()
      Definition pearl-anglescan-tracker.ipf:99
      +
      epics_disconnect
      static variable epics_disconnect()
      Definition pearl-anglescan-tracker.ipf:807
      +
      process_image_data
      static variable process_image_data()
      process the data buffer to generate the tracker dataset.
      Definition pearl-anglescan-tracker.ipf:508
      +
      extend_data
      static variable extend_data(variable num_slices)
      extend the data buffer for the next polar scan
      Definition pearl-anglescan-tracker.ipf:403
      + +
      ast_callback_data
      variable ast_callback_data(variable chan)
      callback function for new analyser data from EPICS.
      Definition pearl-anglescan-tracker.ipf:857
      +
      pmp_data_mouseup
      static variable pmp_data_mouseup(WMPopupAction *pa)
      Definition pearl-anglescan-tracker.ipf:1086
      +
      ast_setup
      variable ast_setup()
      set up data structures, display graph, and try to connect to analyser.
      Definition pearl-anglescan-tracker.ipf:195
      +
      setup_data
      static variable setup_data()
      Definition pearl-anglescan-tracker.ipf:373
      +
      pmp_parameters
      static variable pmp_parameters(WMPopupAction *pa)
      Definition pearl-anglescan-tracker.ipf:1195
      +
      package_path
      static const string package_path
      data folder path
      Definition pearl-anglescan-tracker.ipf:69
      +
      ast_prepare
      variable ast_prepare(variable theta_offset=defaultValue, variable tilt_offset=defaultValue, variable phi_offset=defaultValue)
      prepare for new measurement and clear the data buffer.
      Definition pearl-anglescan-tracker.ipf:212
      +
      ast_close
      variable ast_close()
      stop tracker, close graph, release data structures.
      Definition pearl-anglescan-tracker.ipf:361
      +
      save_tracker_data
      static variable save_tracker_data()
      save tracker data to file (with prompt)
      Definition pearl-anglescan-tracker.ipf:1165
      +
      AfterCompiledHook
      static variable AfterCompiledHook()
      initialize package data once when the procedure is first loaded
      Definition pearl-anglescan-tracker.ipf:74
      +
      load_prefs
      static variable load_prefs()
      load persistent package data from the preferences file.
      Definition pearl-anglescan-tracker.ipf:164
      +
      update_capture
      static variable update_capture()
      Definition pearl-anglescan-tracker.ipf:1056
      +
      ast_callback_manip
      variable ast_callback_manip(variable chan)
      callback function for new manipulator position from EPICS.
      Definition pearl-anglescan-tracker.ipf:991
      +
      setup_detector
      static variable setup_detector()
      Definition pearl-anglescan-tracker.ipf:435
      +
      setup_graph
      static variable setup_graph()
      create the graph window.
      Definition pearl-anglescan-tracker.ipf:595
      +
      update_detector
      static variable update_detector(variable theta, variable tilt, variable phi, variable range)
      update the current position indicator.
      Definition pearl-anglescan-tracker.ipf:560
      +
      save_prefs
      static variable save_prefs()
      save persistent package data to the preferences file.
      Definition pearl-anglescan-tracker.ipf:140
      +
      ast_callback_detector
      variable ast_callback_detector(variable chan)
      callback function for new detector state from EPICS.
      Definition pearl-anglescan-tracker.ipf:962
      +
      ast_export
      variable ast_export(dfref folder, string nickname, variable xpdplot=defaultValue)
      export tracker data to a separate, independent data set.
      Definition pearl-anglescan-tracker.ipf:308
      +
      epics_disconnect_chid
      static variable epics_disconnect_chid(string chid_var_name)
      Definition pearl-anglescan-tracker.ipf:793
      +
      pmp_parameters_mouseup
      static variable pmp_parameters_mouseup(WMPopupAction *pa)
      Definition pearl-anglescan-tracker.ipf:1209
      +
      ast_import
      variable ast_import(string nickname)
      import tracker data from an existing angle scan dataset.
      Definition pearl-anglescan-tracker.ipf:330
      +
      import_tracker_data
      static variable import_tracker_data()
      import tracker data (with prompt)
      Definition pearl-anglescan-tracker.ipf:1136
      +
      update_detector_graph
      static variable update_detector_graph()
      Definition pearl-anglescan-tracker.ipf:658
      +
      bp_capture
      static variable bp_capture(WMButtonAction *ba)
      Definition pearl-anglescan-tracker.ipf:1024
      +
      adh5_default_reduction
      threadsafe wave adh5_default_reduction(wave source, string *param)
      function prototype for adh5_load_reduced_detector
      Definition pearl-area-import.ipf:1115
      +
      prompt_func_params
      variable prompt_func_params(string func_name, string *func_param)
      Definition pearl-data-explorer.ipf:1055
      +
      PearlAnglescanTracker
      variable PearlAnglescanTracker(string epicsname, string wbRGB)
      display the angle scan tracker window
      Definition pearl-menu.ipf:245
      +
      int_linbg_reduction
      threadsafe wave int_linbg_reduction(wave source, string *param)
      linear-background subtracted integration reduction function.
      Definition pearl-scienta-preprocess.ipf:262
      -
      crop_strip
      variable crop_strip(wave strip, variable xlo, variable xhi)
      crop a strip at the sides.
      Definition: pearl-anglescan-process.ipf:747
      -
      hemi_add_anglescan
      variable hemi_add_anglescan(string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)
      add arbitrary angle scan data to a hemispherical scan grid.
      Definition: pearl-anglescan-process.ipf:2637
      -
      ast_callback_manip
      variable ast_callback_manip(variable chan)
      callback function for new manipulator position from EPICS.
      Definition: pearl-anglescan-tracker.ipf:991
      -
      save_prefs
      static variable save_prefs()
      save persistent package data to the preferences file.
      Definition: pearl-anglescan-tracker.ipf:140
      -
      normalize_strip_theta
      variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average polar distribution.
      Definition: pearl-anglescan-process.ipf:433
      -
      setup_detector
      static variable setup_detector()
      Definition: pearl-anglescan-tracker.ipf:435
      -
      update_capture
      static variable update_capture()
      Definition: pearl-anglescan-tracker.ipf:1056
      -
      epics_disconnect
      static variable epics_disconnect()
      Definition: pearl-anglescan-tracker.ipf:807
      -
      ast_update_detector
      variable ast_update_detector(variable theta, variable tilt, variable phi, variable range)
      update the current position indicator.
      Definition: pearl-anglescan-tracker.ipf:350
      -
      int_linbg_reduction
      threadsafe wave int_linbg_reduction(wave source, string *param)
      linear-background subtracted integration reduction function.
      Definition: pearl-scienta-preprocess.ipf:262
      -
      normalize_strip_x
      variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)
      divide the strip by the average X distribution.
      Definition: pearl-anglescan-process.ipf:252
      -
      convert_angles_ttpd2polar
      variable convert_angles_ttpd2polar(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition: pearl-anglescan-process.ipf:1123
      -
      ast_export
      variable ast_export(dfref folder, string nickname, variable xpdplot=defaultValue)
      export tracker data to a separate, independent data set.
      Definition: pearl-anglescan-tracker.ipf:308
      -
      get_hemi_prefix
      string get_hemi_prefix(wave w)
      finds the prefix given any hemi wave
      Definition: pearl-anglescan-process.ipf:1541
      -
      make_hemi_grid
      variable make_hemi_grid(variable npol, string nickname, variable xpdplot=defaultValue)
      create a hemispherical, constant solid angle grid
      Definition: pearl-anglescan-process.ipf:1365
      -
      clear_hemi_grid
      variable clear_hemi_grid(string nickname)
      clear a hemispherical scan grid
      Definition: pearl-anglescan-process.ipf:1606
      -
      bp_capture
      static variable bp_capture(WMButtonAction *ba)
      Definition: pearl-anglescan-tracker.ipf:1024
      -
      ast_set_processing
      variable ast_set_processing(string reduction_func, string reduction_params)
      set the data processing parameters
      Definition: pearl-anglescan-tracker.ipf:262
      -
      pmp_parameters_mouseup
      static variable pmp_parameters_mouseup(WMPopupAction *pa)
      Definition: pearl-anglescan-tracker.ipf:1209
      -
      ast_callback_detector
      variable ast_callback_detector(variable chan)
      callback function for new detector state from EPICS.
      Definition: pearl-anglescan-tracker.ipf:962
      -
      AfterCompiledHook
      static variable AfterCompiledHook()
      initialize package data once when the procedure is first loaded
      Definition: pearl-anglescan-tracker.ipf:74
      -
      setup_graph
      static variable setup_graph()
      create the graph window.
      Definition: pearl-anglescan-tracker.ipf:595
      -
      IgorQuitHook
      static variable IgorQuitHook(string app)
      disconnect EPICS channels before Igor quits.
      Definition: pearl-anglescan-tracker.ipf:189
      -
      pmp_data
      static variable pmp_data(WMPopupAction *pa)
      Definition: pearl-anglescan-tracker.ipf:1072
      -
      init_package
      static variable init_package()
      Definition: pearl-anglescan-tracker.ipf:99
      -
      setup_data
      static variable setup_data()
      Definition: pearl-anglescan-tracker.ipf:373
      -
      export_tracker_data
      static variable export_tracker_data()
      export tracker data (with prompt)
      Definition: pearl-anglescan-tracker.ipf:1106
      -
      pmp_parameters
      static variable pmp_parameters(WMPopupAction *pa)
      Definition: pearl-anglescan-tracker.ipf:1195
      -
      toggle_capture
      static variable toggle_capture()
      Definition: pearl-anglescan-tracker.ipf:1038
      -
      ast_close
      variable ast_close()
      stop tracker, close graph, release data structures.
      Definition: pearl-anglescan-tracker.ipf:361
      -
      ast_add_image
      variable ast_add_image(wave image, variable theta, variable tilt, variable phi)
      process and add a detector image to the tracker scan.
      Definition: pearl-anglescan-tracker.ipf:286
      -
      ast_callback_data
      variable ast_callback_data(variable chan)
      callback function for new analyser data from EPICS.
      Definition: pearl-anglescan-tracker.ipf:857
      -
      update_detector_graph
      static variable update_detector_graph()
      Definition: pearl-anglescan-tracker.ipf:658
      -
      update_detector
      static variable update_detector(variable theta, variable tilt, variable phi, variable range)
      update the current position indicator.
      Definition: pearl-anglescan-tracker.ipf:560
      -
      ast_import
      variable ast_import(string nickname)
      import tracker data from an existing angle scan dataset.
      Definition: pearl-anglescan-tracker.ipf:330
      -
      PearlAnglescanTracker
      variable PearlAnglescanTracker(string epicsname, string wbRGB)
      display the angle scan tracker window
      Definition: pearl-menu.ipf:243
      -
      prefs_objects
      static const string prefs_objects
      semicolon-separated list of persistent variable, string, and wave names
      Definition: pearl-anglescan-tracker.ipf:71
      -
      ast_setup
      variable ast_setup()
      set up data structures, display graph, and try to connect to analyser.
      Definition: pearl-anglescan-tracker.ipf:195
      -
      process_image_data
      static variable process_image_data()
      process the data buffer to generate the tracker dataset.
      Definition: pearl-anglescan-tracker.ipf:508
      -
      import_tracker_data
      static variable import_tracker_data()
      import tracker data (with prompt)
      Definition: pearl-anglescan-tracker.ipf:1136
      -
      save_tracker_data
      static variable save_tracker_data()
      save tracker data to file (with prompt)
      Definition: pearl-anglescan-tracker.ipf:1165
      -
      adh5_default_reduction
      threadsafe wave adh5_default_reduction(wave source, string *param)
      function prototype for adh5_load_reduced_detector
      Definition: pearl-area-import.ipf:1115
      -
      convert_angles_ttpa2polar
      variable convert_angles_ttpa2polar(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)
      convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates.
      Definition: pearl-anglescan-process.ipf:1162
      -
      ast_prepare
      variable ast_prepare(variable theta_offset=defaultValue, variable tilt_offset=defaultValue, variable phi_offset=defaultValue)
      prepare for new measurement and clear the data buffer.
      Definition: pearl-anglescan-tracker.ipf:212
      -
      pmp_data_mouseup
      static variable pmp_data_mouseup(WMPopupAction *pa)
      Definition: pearl-anglescan-tracker.ipf:1086
      -
      save_hemi_scan
      variable save_hemi_scan(string nickname, string pathname, string filename)
      save a hemispherical scan to an Igor text file
      Definition: pearl-anglescan-process.ipf:3097
      -
      load_prefs
      static variable load_prefs()
      load persistent package data from the preferences file.
      Definition: pearl-anglescan-tracker.ipf:164
      -
      prompt_func_params
      variable prompt_func_params(string func_name, string *func_param)
      Definition: pearl-data-explorer.ipf:1136
      -
      duplicate_hemi_scan
      variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)
      duplicate a hemispherical scan dataset.
      Definition: pearl-anglescan-process.ipf:1653
      -
      ast_window_hook
      static variable ast_window_hook(WMWinHookStruct *s)
      window hook
      Definition: pearl-anglescan-tracker.ipf:842
      -
      update_data_graph
      static variable update_data_graph()
      Definition: pearl-anglescan-tracker.ipf:646
      -
      edit_reduction_params
      static variable edit_reduction_params()
      Definition: pearl-anglescan-tracker.ipf:1229
      -
      epics_connect
      static variable epics_connect()
      connect the angle scan tracker to EPICS
      Definition: pearl-anglescan-tracker.ipf:681
      -
      edit_offsets
      static variable edit_offsets()
      Definition: pearl-anglescan-tracker.ipf:1245
      -
      epics_disconnect_chid
      static variable epics_disconnect_chid(string chid_var_name)
      Definition: pearl-anglescan-tracker.ipf:793
      - -
      package_path
      static const string package_path
      data folder path
      Definition: pearl-anglescan-tracker.ipf:69
      -
      package_name
      static const string package_name
      package name is used as data folder name
      Definition: pearl-anglescan-panel.ipf:48
      -
      extend_data
      static variable extend_data(variable num_slices)
      extend the data buffer for the next polar scan
      Definition: pearl-anglescan-tracker.ipf:403
      -
      load_tracker_data
      static variable load_tracker_data()
      import tracker data from file (with prompt)
      Definition: pearl-anglescan-tracker.ipf:1176
      -
      display_hemi_scan
      string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)
      display a plot of a hemispherical angle scan.
      Definition: pearl-anglescan-process.ipf:1858
      -
      add_image_data
      static variable add_image_data(wave image, variable theta, variable tilt, variable phi)
      reduce a detector image and add the result to the data buffer.
      Definition: pearl-anglescan-tracker.ipf:454
      diff --git a/doc/html/pearl-area-display_8ipf.html b/doc/html/pearl-area-display_8ipf.html index 1841a72..1342d8f 100644 --- a/doc/html/pearl-area-display_8ipf.html +++ b/doc/html/pearl-area-display_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-display.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-area-display_8ipf.html',''); ini
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      Namespaces | Functions
      -
      -
      pearl-area-display.ipf File Reference
      ARPES package
      +
      pearl-area-display.ipf File Reference
      ARPES package
      @@ -98,129 +104,129 @@ $(document).ready(function(){initNavTree('pearl-area-display_8ipf.html',''); ini

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlAreaDisplay
      namespace  PearlAreaDisplay
       instant visualization of angle scan and manipulator position.
       
      - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - + - + - - + + - - + + - - + + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + +

      +

      Functions

      static string graphname_from_dfref (dfref df, string prefix)
       compose a valid and unique graph name from a data folder reference More...
      static string graphname_from_dfref (dfref df, string prefix)
       compose a valid and unique graph name from a data folder reference
       
      string ad_display (wave image)
       open a new graph window with a 2D image. More...
      string ad_display (wave image)
       open a new graph window with a 2D image.
       
      string ad_display_histogram (wave image)
       display the histogram of a 2D image. More...
      string ad_display_histogram (wave image)
       display the histogram of a 2D image.
       
      string ad_display_profiles (wave image, string filter=defaultValue)
       open a new profiles graph window. More...
      string ad_display_profiles (wave image, string filter=defaultValue)
       open a new profiles graph window.
       
      wave ad_add_overlay (wave image, string rgba=defaultValue)
       add an overlay on top of the displayed image More...
      wave ad_add_overlay (wave image, string rgba=defaultValue)
       add an overlay on top of the displayed image
       
      variable ad_update_profiles (wave image)
       update a profiles graph with new data. More...
      variable ad_update_profiles (wave image)
       update a profiles graph with new data.
       
      variable ad_profiles_cursor_mode (wave image, variable mode)
       switch cursors on a profiles graph More...
      variable ad_profiles_cursor_mode (wave image, variable mode)
       switch cursors on a profiles graph
       
      variable ad_profiles_set_cursor (wave image, string cursorname, variable xa, variable ya, variable pscale=defaultValue)
       move a cursor to the specified position in a profiles graph. More...
      variable ad_profiles_set_cursor (wave image, string cursorname, variable xa, variable ya, variable pscale=defaultValue)
       move a cursor to the specified position in a profiles graph.
       
      variable ad_profiles_crosshairs (wave image, variable clear=defaultValue)
       draw permanent crosshairs in a profiles graph. More...
      variable ad_profiles_crosshairs (wave image, variable clear=defaultValue)
       draw permanent crosshairs in a profiles graph.
       
      static wave get_source_image (wave view)
       find the source image wave corresponding to the given view. More...
      static wave get_source_image (wave view)
       find the source image wave corresponding to the given view.
       
      static dfr make_view_folder (wave source)
       create a view data folder. More...
      static dfr make_view_folder (wave source)
       create a view data folder.
       
      static dfr get_view_folder (wave source)
       find the view data folder corresponding to the given source. More...
      static dfr get_view_folder (wave source)
       find the view data folder corresponding to the given source.
       
      static wave get_view_image (wave source)
       find the view image wave corresponding to the given source. More...
      static wave get_view_image (wave source)
       find the view image wave corresponding to the given source.
       
      static variable bp_reset_cursors (WMButtonAction *ba)
      static variable bp_reset_cursors (WMButtonAction *ba)
       
      static variable svp_smoothing (WMSetVariableAction *sva)
      static variable svp_smoothing (WMSetVariableAction *sva)
       
      static variable pmp_export (WMPopupAction *pa)
      static variable pmp_export (WMPopupAction *pa)
       
      variable ad_profiles_hook (WMWinHookStruct *s)
       hook function for user events in the profiles window. More...
      variable ad_profiles_hook (WMWinHookStruct *s)
       hook function for user events in the profiles window.
       
      variable ad_calc_cursor_profiles (wave image)
       calculate profiles, statistics, and histogram of a cross-hair delimited region of interest. More...
      variable ad_calc_cursor_profiles (wave image)
       calculate profiles, statistics, and histogram of a cross-hair delimited region of interest.
       
      variable ad_calc_profiles (wave image, variable pa, variable qa, variable pb, variable qb)
       calculate profiles, statistics, and histogram of a rectangular region of interest. More...
      variable ad_calc_profiles (wave image, variable pa, variable qa, variable pb, variable qb)
       calculate profiles, statistics, and histogram of a rectangular region of interest.
       
      variable ad_export_profile (wave view_image, variable dim, variable trace=defaultValue, variable show=defaultValue, variable overwrite=defaultValue)
       export a profile from a profiles graph to the source data folder. More...
      variable ad_export_profile (wave view_image, variable dim, variable trace=defaultValue, variable show=defaultValue, variable overwrite=defaultValue)
       export a profile from a profiles graph to the source data folder.
       
      static variable set_trace_colors (string graphname)
      static variable set_trace_colors (string graphname)
       
      variable ad_calc_histogram (wave image)
       calculate the histogram. More...
      variable ad_calc_histogram (wave image)
       calculate the histogram.
       
      variable ad_default_image_filter (wave image, string options)
       abstract filter function for image display. More...
      variable ad_default_image_filter (wave image, string options)
       abstract filter function for image display.
       
      variable ad_box_filter (wave image, string options)
       boxcar smoothing filter. More...
      variable ad_box_filter (wave image, string options)
       boxcar smoothing filter.
       
      variable ad_transpose_filter (wave image, string options)
       transpose image filter. More...
      variable ad_transpose_filter (wave image, string options)
       transpose image filter.
       
      string ad_display_brick (wave data)
       open a new "gizmo" window with three-dimensional data. More...
      string ad_display_brick (wave data)
       open a new "gizmo" window with three-dimensional data.
       
      variable ad_brick_slicer (wave data)
       open a slicer panel for 3D data. More...
      variable ad_brick_slicer (wave data)
       open a slicer panel for 3D data.
       
      string ad_display_slice (wave data)
       display three-dimensional data by 2D slice. More...
      string ad_display_slice (wave data)
       display three-dimensional data by 2D slice.
       
      static variable update_slice_info ()
       update controls with data scale limits. More...
      static variable update_slice_info ()
       update controls with data scale limits.
       
      variable ad_gizmo_set_plane (wave brick, variable dim, variable value)
       set the position of a slicing plane of a 3D brick in a Gizmo window. More...
      variable ad_gizmo_set_plane (wave brick, variable dim, variable value)
       set the position of a slicing plane of a 3D brick in a Gizmo window.
       
      variable ad_profiles_set_slice (wave brick, variable dim, variable value)
       set the position of the slicing plane of a 3D brick in a profiles window. More...
      variable ad_profiles_set_slice (wave brick, variable dim, variable value)
       set the position of the slicing plane of a 3D brick in a profiles window.
       
      static variable slp_slice_position (WMSliderAction *sa)
       set slice coordinate (slider procedure). More...
      static variable slp_slice_position (WMSliderAction *sa)
       set slice coordinate (slider procedure).
       
      static variable svp_slice_position (WMSetVariableAction *sva)
       set slice coordinate (button procedure). More...
      static variable svp_slice_position (WMSetVariableAction *sva)
       set slice coordinate (button procedure).
       
      static variable bp_move_slice (WMButtonAction *ba)
       move slice (button procedure). More...
      static variable bp_move_slice (WMButtonAction *ba)
       move slice (button procedure).
       
      static variable bp_extract_slice (WMButtonAction *ba)
       export a slice (button procedure). More...
      static variable bp_extract_slice (WMButtonAction *ba)
       export a slice (button procedure).
       
      static variable bp_move_slice_center (wave brick, variable dim, string posvariable)
       move the slice to the center of the dimension (button procedure). More...
      static variable bp_move_slice_center (wave brick, variable dim, string posvariable)
       move the slice to the center of the dimension (button procedure).
       
      static variable ad_slicer_move_bg (WMBackgroundStruct *s)
       move a slice by one step (background task). More...
      static variable ad_slicer_move_bg (WMBackgroundStruct *s)
       move a slice by one step (background task).
       
      variable ad_slicer_init_bg ()
       initialize the slice animation background task. More...
      variable ad_slicer_init_bg ()
       initialize the slice animation background task.
       
      variable ad_slicer_start_bg (wave brick, variable dimension, string posvariable, variable delta)
       start the animation. More...
      variable ad_slicer_start_bg (wave brick, variable dimension, string posvariable, variable delta)
       start the animation.
       
      variable ad_slicer_stop_bg (string posvariable)
       stop the animation. More...
      variable ad_slicer_stop_bg (string posvariable)
       stop the animation.
       

      Detailed Description

      @@ -234,8 +240,8 @@ Functions

      Definition in file pearl-area-display.ipf.

      Function Documentation

      - -

      ◆ ad_add_overlay()

      + +

      ◆ ad_add_overlay()

      @@ -274,8 +280,8 @@ Functions
      - -

      ◆ ad_box_filter()

      + +

      ◆ ad_box_filter()

      @@ -318,8 +324,8 @@ Functions
      - -

      ◆ ad_brick_slicer()

      + +

      ◆ ad_brick_slicer()

      @@ -347,8 +353,8 @@ Functions
      - -

      ◆ ad_calc_cursor_profiles()

      + +

      ◆ ad_calc_cursor_profiles()

      @@ -376,8 +382,8 @@ Functions
      - -

      ◆ ad_calc_histogram()

      + +

      ◆ ad_calc_histogram()

      @@ -404,8 +410,8 @@ Functions
      - -

      ◆ ad_calc_profiles()

      + +

      ◆ ad_calc_profiles()

      @@ -467,8 +473,8 @@ Functions
      - -

      ◆ ad_default_image_filter()

      + +

      ◆ ad_default_image_filter()

      @@ -508,8 +514,8 @@ Functions
      - -

      ◆ ad_display()

      + +

      ◆ ad_display()

      @@ -538,8 +544,8 @@ Functions
      - -

      ◆ ad_display_brick()

      + +

      ◆ ad_display_brick()

      @@ -567,8 +573,8 @@ Functions
      - -

      ◆ ad_display_histogram()

      + +

      ◆ ad_display_histogram()

      @@ -597,8 +603,8 @@ Functions
      - -

      ◆ ad_display_profiles()

      + +

      ◆ ad_display_profiles()

      @@ -638,8 +644,8 @@ Functions
      - -

      ◆ ad_display_slice()

      + +

      ◆ ad_display_slice()

      @@ -668,8 +674,8 @@ Functions
      - -

      ◆ ad_export_profile()

      + +

      ◆ ad_export_profile()

      @@ -743,8 +749,8 @@ Functions
      - -

      ◆ ad_gizmo_set_plane()

      + +

      ◆ ad_gizmo_set_plane()

      @@ -790,8 +796,8 @@ Functions
      - -

      ◆ ad_profiles_crosshairs()

      + +

      ◆ ad_profiles_crosshairs()

      @@ -830,8 +836,8 @@ Functions
      - -

      ◆ ad_profiles_cursor_mode()

      + +

      ◆ ad_profiles_cursor_mode()

      @@ -875,8 +881,8 @@ Functions
      - -

      ◆ ad_profiles_hook()

      + +

      ◆ ad_profiles_hook()

      @@ -897,8 +903,8 @@ Functions
      - -

      ◆ ad_profiles_set_cursor()

      + +

      ◆ ad_profiles_set_cursor()

      @@ -962,8 +968,8 @@ Functions
      - -

      ◆ ad_profiles_set_slice()

      + +

      ◆ ad_profiles_set_slice()

      @@ -1009,8 +1015,8 @@ Functions
      - -

      ◆ ad_slicer_init_bg()

      + +

      ◆ ad_slicer_init_bg()

      @@ -1030,8 +1036,8 @@ Functions
      - -

      ◆ ad_slicer_move_bg()

      + +

      ◆ ad_slicer_move_bg()

      @@ -1060,8 +1066,8 @@ Functions
      - -

      ◆ ad_slicer_start_bg()

      + +

      ◆ ad_slicer_start_bg()

      @@ -1113,8 +1119,8 @@ Functions
      - -

      ◆ ad_slicer_stop_bg()

      + +

      ◆ ad_slicer_stop_bg()

      @@ -1141,8 +1147,8 @@ Functions
      - -

      ◆ ad_transpose_filter()

      + +

      ◆ ad_transpose_filter()

      @@ -1181,8 +1187,8 @@ Functions
      - -

      ◆ ad_update_profiles()

      + +

      ◆ ad_update_profiles()

      @@ -1209,8 +1215,8 @@ Functions
      - -

      ◆ bp_extract_slice()

      + +

      ◆ bp_extract_slice()

      @@ -1240,8 +1246,8 @@ Functions
      - -

      ◆ bp_move_slice()

      + +

      ◆ bp_move_slice()

      @@ -1270,8 +1276,8 @@ Functions
      - -

      ◆ bp_move_slice_center()

      + +

      ◆ bp_move_slice_center()

      @@ -1316,8 +1322,8 @@ Functions
      - -

      ◆ bp_reset_cursors()

      + +

      ◆ bp_reset_cursors()

      @@ -1344,8 +1350,8 @@ Functions
      - -

      ◆ get_source_image()

      + +

      ◆ get_source_image()

      @@ -1375,8 +1381,8 @@ Functions
      - -

      ◆ get_view_folder()

      + +

      ◆ get_view_folder()

      @@ -1412,8 +1418,8 @@ Functions
      - -

      ◆ get_view_image()

      + +

      ◆ get_view_image()

      @@ -1448,8 +1454,8 @@ Functions
      - -

      ◆ graphname_from_dfref()

      + +

      ◆ graphname_from_dfref()

      @@ -1488,8 +1494,8 @@ Functions
      - -

      ◆ make_view_folder()

      + +

      ◆ make_view_folder()

      @@ -1518,8 +1524,8 @@ Functions
      - -

      ◆ pmp_export()

      + +

      ◆ pmp_export()

      @@ -1546,8 +1552,8 @@ Functions
      - -

      ◆ set_trace_colors()

      + +

      ◆ set_trace_colors()

      @@ -1574,8 +1580,8 @@ Functions
      - -

      ◆ slp_slice_position()

      + +

      ◆ slp_slice_position()

      @@ -1604,8 +1610,8 @@ Functions
      - -

      ◆ svp_slice_position()

      + +

      ◆ svp_slice_position()

      @@ -1634,8 +1640,8 @@ Functions
      - -

      ◆ svp_smoothing()

      + +

      ◆ svp_smoothing()

      @@ -1662,8 +1668,8 @@ Functions
      - -

      ◆ update_slice_info()

      + +

      ◆ update_slice_info()

      @@ -1698,9 +1704,7 @@ Functions diff --git a/doc/html/pearl-area-display_8ipf_source.html b/doc/html/pearl-area-display_8ipf_source.html index 92bf0d6..8af80b4 100644 --- a/doc/html/pearl-area-display_8ipf_source.html +++ b/doc/html/pearl-area-display_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-display.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,1595 +82,1677 @@ $(document).ready(function(){initNavTree('pearl-area-display_8ipf_source.html','
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-area-display.ipf
      +
      pearl-area-display.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "UTF-8"
      -
      2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
      -
      3 #pragma IgorVersion = 6.2
      -
      4 #pragma ModuleName = PearlAreaDisplay
      -
      5 #pragma version = 1.04
      -
      6 #include "pearl-compat"
      -
      7 #include "pearl-area-profiles"
      -
      8 
      -
      22 // 3D data is handled by 3 windows. they don't have to be visible all at the same time.
      -
      51 
      -
      57 
      -
      59 static function /s graphname_from_dfref(df, prefix)
      -
      60  dfref df
      -
      61  string prefix
      -
      62 
      -
      63  string name
      -
      64 
      -
      65  name = GetDataFolder(1, df)
      -
      66  name = ReplaceString("root:", name, "")
      -
      67  name = name[0, strlen(name) - 2]
      -
      68  name = ReplaceString(" ", name, "")
      -
      69  name = PearlCleanupName(prefix + name)
      -
      70  if (CheckName(name, 6))
      -
      71  name = UniqueName(name, 6, 0)
      -
      72  endif
      -
      73 
      -
      74  return name
      -
      75 end
      -
      76 
      -
      87 function /s ad_display(image)
      -
      88  wave image // wave which contains the image data from the detector
      -
      89  // returns the name of the graph window
      -
      90 
      -
      91  dfref savedf = GetDataFolderDFR()
      -
      92  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      93  setdatafolder imagedf
      -
      94 
      -
      95  string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      -
      96  string graphtitle = dfname + " View"
      -
      97  string /g view_graphname = graphname_from_dfref(imagedf, "view_")
      -
      98  svar graphname = view_graphname
      -
      99  display /k=1/n=$graphname as graphtitle
      -
      100  graphname = s_name
      -
      101  appendimage /w=$graphname image
      -
      102 
      -
      103  setdatafolder savedf
      -
      104  return graphname
      -
      105 end
      -
      106 
      -
      117 function /s ad_display_histogram(image)
      -
      118  wave image
      -
      119 
      -
      120  dfref savedf = GetDataFolderDFR()
      -
      121  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      122  string s_imagedf = GetDataFolder(1, imagedf)
      -
      123  setdatafolder imagedf
      -
      124 
      -
      125  make /n=(1)/o hist // histogram
      -
      126 
      -
      127  string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      -
      128  string graphtitle = dfname + " Histogram"
      -
      129  string /g hist_graphname = graphname_from_dfref(imagedf, "hist_")
      -
      130  svar graphname = hist_graphname
      -
      131  display /k=1/n=$graphname as graphtitle
      -
      132  graphname = s_name
      -
      133  appendtograph /w=$graphname hist
      -
      134 
      -
      135  ModifyGraph /w=$graphname rgb(hist)=(39168,0,0)
      -
      136  ModifyGraph /w=$graphname mode=6
      -
      137  ModifyGraph /w=$graphname mirror=1
      -
      138  ModifyGraph /w=$graphname minor=1
      -
      139  ModifyGraph /w=$graphname axThick=0.5
      -
      140  ModifyGraph /w=$graphname lblPosMode=1,lblPos=30,lblMargin=0
      -
      141  ModifyGraph /w=$graphname btLen=4
      -
      142  ModifyGraph /w=$graphname margin(left)=45,margin(bottom)=35,margin(top)=10,margin(right)=10
      -
      143  ModifyGraph /w=$graphname gfSize=10
      -
      144  Label /w=$graphname bottom "value"
      -
      145  Label /w=$graphname left "# pixels"
      -
      146 
      -
      147  ad_calc_histogram(image)
      -
      148 
      -
      149  setdatafolder savedf
      -
      150  return graphname
      -
      151 end
      -
      152 
      -
      168 function /s ad_display_profiles(image, [filter])
      -
      169  wave image
      -
      170  string filter
      -
      171  variable show_legend = 0 // currently not supported
      -
      172 
      -
      173  if (WaveDims(image) != 2)
      -
      174  abort "ad_display_profiles: image wave must be two-dimensional."
      -
      175  endif
      -
      176  if (ParamIsDefault(filter))
      -
      177  filter = "ad_box_filter"
      -
      178  endif
      -
      179 
      -
      180  // data folders and references
      -
      181  dfref savedf = GetDataFolderDFR()
      -
      182  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      183  string s_imagedf = GetDataFolder(1, imagedf)
      -
      184  setdatafolder imagedf
      -
      185  string s_viewdf = PearlCleanupName("view_" + NameOfWave(image))
      -
      186  newdatafolder /o/s $s_viewdf
      -
      187  dfref viewdf = GetDataFolderDFR()
      -
      188  s_viewdf = GetDataFolder(1, viewdf)
      -
      189 
      -
      190  // data structures
      -
      191  string /g sourcepath = GetWavesDataFolder(image, 2)
      -
      192  string viewname = "view_image"
      -
      193  duplicate /o image, $viewname /wave=view
      -
      194  make /n=(3,3)/o xprofiles // NX x 3 wave with 3 one-dimensional profiles along Y dimension
      -
      195  make /n=(3,3)/o yprofiles // NY x 3 wave with 3 one-dimensional profiles along X dimension
      -
      196  string /g view_filter
      -
      197  string /g view_filter_options
      -
      198  view_filter = filter
      -
      199  view_filter_options = ""
      -
      200  variable /g view_filter_smoothing_x = 1
      -
      201  variable /g view_filter_smoothing_y = 1
      -
      202  variable /g view_cursor_mode = 0
      -
      203  string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      -
      204  string graphtitle = dfname + NameOfWave(image) + " Profiles"
      -
      205  string /g prof_graphname = graphname_from_dfref(imagedf, "prof_")
      -
      206  svar graphname = prof_graphname
      -
      207  variable /g graph_avg // average value in ROI (ROI is defined by the crosshairs A and B)
      -
      208  variable /g graph_min // minimum value in ROI
      -
      209  variable /g graph_max // maximum value in ROI
      -
      210  variable /g graph_sum // sum of all values in ROI
      -
      211  variable /g graph_sdev // standard deviation of all values in ROI
      -
      212 
      -
      213  // graph setup
      -
      214  display /k=1 /n=$graphname /w=(100,100,500,400) as graphtitle
      -
      215  graphname = s_name
      -
      216  AppendToGraph /w=$graphname /L=xprofiles xprofiles[*][0],xprofiles[*][1],xprofiles[*][2]
      -
      217  AppendToGraph /w=$graphname /VERT/B=yprofiles yprofiles[*][0],yprofiles[*][1],yprofiles[*][2]
      -
      218  AppendImage /w=$graphname view
      -
      219  string imgname = StringFromList(0, ImageNameList(graphname, ";"))
      -
      220  ModifyImage /w=$graphname $imgname ctab= {*,*,BlueGreenOrange,0}
      -
      221  ModifyGraph /w=$graphname rgb(xprofiles)=(39168,0,0),rgb(yprofiles)=(39168,0,0)
      -
      222  ModifyGraph /w=$graphname rgb(xprofiles#1)=(0,26112,0),rgb(yprofiles#1)=(0,26112,0)
      -
      223  ModifyGraph /w=$graphname rgb(xprofiles#2)=(0,9472,39168),rgb(yprofiles#2)=(0,9472,39168)
      -
      224  ModifyGraph /w=$graphname mirror(xprofiles)=2,mirror(bottom)=3,mirror(yprofiles)=2,mirror(left)=3
      -
      225  ModifyGraph /w=$graphname nticks=3
      -
      226  ModifyGraph /w=$graphname minor=1
      -
      227  ModifyGraph /w=$graphname axThick=0.5
      -
      228  ModifyGraph /w=$graphname lblPosMode=1,lblPos=30,lblMargin=0
      -
      229  ModifyGraph /w=$graphname btLen=4
      -
      230  ModifyGraph /w=$graphname freePos(xprofiles)=0
      -
      231  ModifyGraph /w=$graphname freePos(yprofiles)=0
      -
      232  ModifyGraph /w=$graphname axisEnab(xprofiles)={0.64,1}
      -
      233  ModifyGraph /w=$graphname axisEnab(bottom)={0,0.6}
      -
      234  ModifyGraph /w=$graphname axisEnab(yprofiles)={0.64,1}
      -
      235  ModifyGraph /w=$graphname axisEnab(left)={0,0.6}
      -
      236  ModifyGraph /w=$graphname zero(left)=8
      -
      237  ModifyGraph /w=$graphname margin(left)=40,margin(bottom)=30,margin(top)=20,margin(right)=40
      -
      238  ModifyGraph /w=$graphname gfSize=10
      -
      239 
      -
      240  // axis labels
      -
      241  string labels = note(image)
      -
      242  string lab
      -
      243  lab = StringByKey("AxisLabelX", labels, "=", "\r")
      -
      244  if (!strlen(lab))
      -
      245  lab = "X"
      -
      246  endif
      -
      247  Label /w=$graphname bottom lab + " (\\U)"
      -
      248  lab = StringByKey("AxisLabelY", labels, "=", "\r")
      -
      249  if (!strlen(lab))
      -
      250  lab = "Y"
      -
      251  endif
      -
      252  Label /w=$graphname left lab + " (\\U)"
      -
      253  lab = StringByKey("AxisLabelD", labels, "=", "\r")
      -
      254  if (!strlen(lab))
      -
      255  lab = "value"
      -
      256  endif
      -
      257  Label /w=$graphname xprofiles lab + " (\\U)"
      -
      258  Label /w=$graphname yprofiles lab + " (\\U)"
      -
      259 
      -
      260  // legend
      -
      261  if (show_legend)
      -
      262  Legend /w=$graphname/C/N=text0/J/F=2/D=0.5/T={28}/A=RT/X=0.00/Y=0.00 "\\s(xprofiles)\tprofile A"
      -
      263  AppendText /w=$graphname "\\s(xprofiles#1)\tprofile B"
      -
      264  AppendText /w=$graphname "\\s(xprofiles#2)\tROI average"
      -
      265  AppendText /w=$graphname "min\t\\{" + s_viewdf + "graph_min}"
      -
      266  AppendText /w=$graphname "max\t\\{" + s_viewdf + "graph_max}"
      -
      267  AppendText /w=$graphname "sum\t\\{" + s_viewdf + "graph_sum}"
      -
      268  AppendText /w=$graphname "avg\t\\{" + s_viewdf + "graph_avg}"
      -
      269  AppendText /w=$graphname "sdev\t\\{" + s_viewdf + "graph_sdev}"
      -
      270  else
      -
      271  TextBox /w=$graphname /C/N=text0 /F=0 /B=1 /X=1.00 /Y=1.00
      -
      272  lab = StringByKey("Dataset", labels, "=", "\r")
      -
      273  if (strlen(lab))
      -
      274  AppendText /w=$graphname lab
      -
      275  endif
      -
      276  AppendText /w=$graphname "sum\t\\{" + s_viewdf + "graph_sum}"
      -
      277  AppendText /w=$graphname "avg\t\\{" + s_viewdf + "graph_avg}"
      -
      278  AppendText /w=$graphname "sdev\t\\{" + s_viewdf + "graph_sdev}"
      -
      279  endif
      -
      280 
      -
      281  // interactive elements
      -
      282  Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 A $imgname 0,0
      -
      283  Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 B $imgname DimSize(view, 0)-1, DimSize(view, 1)-1
      -
      284  variable pcurs
      -
      285  pcurs = floor(DimSize(xprofiles, 0) / 3)
      -
      286  Cursor /w=$graphname /A=0 /P /S=1 /H=0 C xprofiles#2 pcurs
      -
      287  pcurs = floor(DimSize(xprofiles, 0) * 2 / 3)
      -
      288  Cursor /w=$graphname /A=0 /P /S=1 /H=0 D xprofiles#2 pcurs
      -
      289  pcurs = floor(DimSize(yprofiles, 0) / 3)
      -
      290  Cursor /w=$graphname /A=0 /P /S=1 /H=0 E yprofiles#2 pcurs
      -
      291  pcurs = floor(DimSize(yprofiles, 0) * 2 / 3)
      -
      292  Cursor /w=$graphname /A=0 /P /S=1 /H=0 F yprofiles#2 pcurs
      -
      293  ShowInfo /w=$graphname /CP=0
      -
      294 
      -
      295  SetWindow $graphname, hook(ad_profiles_hook)=ad_profiles_hook
      -
      296  ControlBar /w=$graphname 21
      -
      297  Button b_reset_cursors win=$graphname, title="reset cursors",pos={0,0},size={70,20},proc=PearlAreaDisplay#bp_reset_cursors
      -
      298  Button b_reset_cursors win=$graphname, fColor=(65535,65535,65535),fSize=10
      -
      299 
      -
      300  SetVariable sv_smoothing_x win=$graphname, title="X smoothing",pos={130,2},bodyWidth=40
      -
      301  SetVariable sv_smoothing_x win=$graphname, value=view_filter_smoothing_x,limits={1,100,1}
      -
      302  SetVariable sv_smoothing_x win=$graphname, proc=PearlAreaDisplay#svp_smoothing
      -
      303  SetVariable sv_smooting_y win=$graphname, title="Y smoothing",pos={240,2},bodyWidth=40
      -
      304  SetVariable sv_smooting_y win=$graphname, value=view_filter_smoothing_y,limits={1,100,1}
      -
      305  SetVariable sv_smooting_y win=$graphname, proc=PearlAreaDisplay#svp_smoothing
      -
      306 
      -
      307  PopupMenu pm_export win=$graphname, mode=0,title="Export"
      -
      308  PopupMenu pm_export win=$graphname, value="X profile;Y profile;X profile (collate);Y profile (collate)"
      -
      309  PopupMenu pm_export win=$graphname, pos={308,0},bodyWidth=60,proc=PearlAreaDisplay#pmp_export
      -
      310  PopupMenu pm_export win=$graphname, help={"Export profile of selected area and display in graph. Collate mode = display all profiles in same graph."}
      -
      311 
      -
      312  // data processing
      -
      313  ad_update_profiles(image)
      -
      314 
      -
      315  setdatafolder savedf
      -
      316  return graphname
      -
      317 end
      -
      318 
      -
      331 function /wave ad_add_overlay(image, [rgba])
      -
      332  wave image
      -
      333  string rgba
      -
      334 
      -
      335  if (ParamIsDefault(rgba))
      -
      336  rgba = "65535,65532,16385,32767"
      -
      337  elseif (ItemsInList(rgba, ",") == 3)
      -
      338  rgba += ",32767"
      -
      339  endif
      -
      340 
      -
      341  dfref savedf = GetDataFolderDFR()
      -
      342  wave view_image = get_view_image(image)
      -
      343  dfref viewdf = GetWavesDataFolderDFR(view_image)
      -
      344  svar /sdfr=viewdf graphname = prof_graphname
      -
      345  setdatafolder viewdf
      -
      346 
      -
      347  string overlayname = "view_overlay"
      -
      348  duplicate /o image, $overlayname /wave=overlay
      -
      349  redimension /b/u overlay
      -
      350  overlay = 64
      -
      351 
      -
      352  string imagenames = ImageNameList(graphname, ";")
      -
      353  if (whichlistItem(overlayname, imagenames, ";") < 0)
      -
      354  AppendImage /w=$graphname $overlayname
      -
      355  rgba = replacestring("(", rgba, "")
      -
      356  rgba = replacestring(")", rgba, "")
      -
      357  variable rr = str2num(StringFromList(0, rgba, ","))
      -
      358  variable gg = str2num(StringFromList(1, rgba, ","))
      -
      359  variable bb = str2num(StringFromList(2, rgba, ","))
      -
      360  variable aa = str2num(StringFromList(3, rgba, ","))
      -
      361 #if IgorVersion() >= 8
      -
      362  ModifyImage /w=$graphname $overlayname explicit=1,eval={0,rr,gg,bb,aa},eval={255,-1,-1,-1}
      -
      363 #else
      -
      364  ModifyImage /w=$graphname $overlayname explicit=1,eval={0,rr,gg,bb},eval={255,-1,-1,-1}
      -
      365 #endif
      -
      366  endif
      -
      367 
      -
      368  setdatafolder savedf
      -
      369  return overlay
      -
      370 end
      -
      371 
      -
      377 function ad_update_profiles(image)
      -
      378  wave image
      -
      379 
      -
      380  // data folders and references
      -
      381  dfref viewdf = get_view_folder(image)
      -
      382  if (DataFolderRefStatus(viewdf) == 0)
      -
      383  return -1 // data folder not found
      -
      384  endif
      -
      385  dfref savedf = GetDataFolderDFR()
      -
      386  setdatafolder viewdf
      -
      387 
      -
      388  // data structures
      -
      389  string viewname = "view_image"
      -
      390  duplicate /o image, $viewname /wave=view
      -
      391  string overlayname = "view_overlay"
      -
      392  wave /z overlay = $overlayname
      -
      393  if (waveexists(overlay))
      -
      394  redimension /n=(dimsize(view,0), dimsize(view,1)) overlay
      -
      395  endif
      -
      396 
      -
      397  // data processing
      -
      398  svar view_filter
      -
      399  svar view_filter_options
      -
      400  nvar smoothing_x = view_filter_smoothing_x
      -
      401  nvar smoothing_y = view_filter_smoothing_y
      -
      402  funcref ad_default_image_filter filterfunc = $view_filter
      -
      403  view_filter_options = ReplaceNumberByKey("SmoothingX", view_filter_options, smoothing_x, "=", ";")
      -
      404  view_filter_options = ReplaceNumberByKey("SmoothingY", view_filter_options, smoothing_y, "=", ";")
      -
      405  filterfunc(view, view_filter_options)
      -
      406 
      -
      407  ad_calc_cursor_profiles(view)
      -
      408 
      -
      409  setdatafolder savedf
      -
      410  return 0
      -
      411 end
      -
      412 
      -
      429 function ad_profiles_cursor_mode(image, mode)
      -
      430  wave image
      -
      431  variable mode
      -
      432 
      -
      433  dfref savedf = GetDataFolderDFR()
      -
      434  wave view_image = get_view_image(image)
      -
      435  dfref viewdf = GetWavesDataFolderDFR(view_image)
      -
      436  svar /sdfr=viewdf graphname = prof_graphname
      -
      437  nvar /sdfr=viewdf cursor_mode = view_cursor_mode
      -
      438  wave /sdfr=viewdf xprofiles, yprofiles
      -
      439 
      -
      440  variable dx = DimSize(view_image, 0)
      -
      441  variable dy = DimSize(view_image, 1)
      -
      442  switch(mode)
      -
      443  case 1: // background selection
      -
      444  Cursor /w=$graphname /A=0 /P /I /S=2 /H=1 /L=1 A view_image 0, 0
      -
      445  Cursor /w=$graphname /A=0 /P /I /S=2 /H=1 /L=1 B view_image dx-1, dy-1
      -
      446  Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 C view_image round(0.2 * dx) -1, 0
      -
      447  Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 D view_image round(0.8 * dx) -1, 0
      -
      448  Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 E view_image round(0.4 * dx) -1, 0
      -
      449  Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 F view_image round(0.6 * dx) -1, 0
      -
      450 
      -
      451  ShowInfo /w=$graphname /CP=0
      -
      452  cursor_mode = mode
      -
      453  break
      -
      454  default:
      -
      455  Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 A view_image 0,0
      -
      456  Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 B view_image dx-1, dy-1
      -
      457  variable pcurs
      -
      458  pcurs = floor(DimSize(xprofiles, 0) / 3)
      -
      459  Cursor /w=$graphname /A=0 /P /S=1 /H=0 C xprofiles#2 pcurs
      -
      460  pcurs = floor(DimSize(xprofiles, 0) * 2 / 3)
      -
      461  Cursor /w=$graphname /A=0 /P /S=1 /H=0 D xprofiles#2 pcurs
      -
      462  pcurs = floor(DimSize(yprofiles, 0) / 3)
      -
      463  Cursor /w=$graphname /A=0 /P /S=1 /H=0 E yprofiles#2 pcurs
      -
      464  pcurs = floor(DimSize(yprofiles, 0) * 2 / 3)
      -
      465  Cursor /w=$graphname /A=0 /P /S=1 /H=0 F yprofiles#2 pcurs
      -
      466  ShowInfo /w=$graphname /CP=0
      -
      467  cursor_mode = 0
      -
      468  endswitch
      -
      469 
      -
      470  setdatafolder savedf
      -
      471  return 0
      -
      472 end
      -
      473 
      -
      490 function ad_profiles_set_cursor(image, cursorname, xa, ya, [pscale])
      -
      491  wave image
      -
      492  string cursorname
      -
      493  variable xa, ya
      -
      494  variable pscale
      -
      495 
      -
      496  if (ParamIsDefault(pscale))
      -
      497  pscale = 0
      -
      498  endif
      -
      499 
      -
      500  // data folders and references
      -
      501  dfref savedf = GetDataFolderDFR()
      -
      502  wave view_image = get_view_image(image)
      -
      503  dfref viewdf = GetWavesDataFolderDFR(view_image)
      -
      504  svar /sdfr=viewdf graphname = prof_graphname
      -
      505 
      -
      506  variable pa, qa
      -
      507  if (pscale)
      -
      508  pa = xa
      -
      509  qa = ya
      -
      510  else
      -
      511  pa = round((xa - DimOffset(view_image, 0)) / DimDelta(view_image, 0))
      -
      512  qa = round((ya - DimOffset(view_image, 1)) / DimDelta(view_image, 1))
      -
      513  endif
      -
      514 
      -
      515  pa = min(pa, DimSize(view_image, 0) - 1)
      -
      516  pa = max(pa, 0)
      -
      517  qa = min(qa, DimSize(view_image, 1) - 1)
      -
      518  qa = max(qa, 0)
      -
      519  Cursor /i /p /w=$graphname $cursorname view_image pa, qa
      -
      520 
      -
      521  setdatafolder savedf
      -
      522  return 0
      -
      523 End
      -
      524 
      -
      535 // the lines can be removed manually using the draw toolbox, or by calling this function with @c clean=1.
      -
      542 function ad_profiles_crosshairs(image, [clear])
      -
      543  wave image
      -
      544  variable clear
      -
      545 
      -
      546  if (ParamIsDefault(clear))
      -
      547  clear = 0
      -
      548  endif
      -
      549 
      -
      550  // data folders and references
      -
      551  wave view_image = get_view_image(image)
      -
      552  dfref viewdf = GetWavesDataFolderDFR(view_image)
      -
      553  svar /sdfr=viewdf graphname = prof_graphname
      -
      554 
      -
      555  string cursors = "A;B"
      -
      556  string colors = "39168,0,0;0,26112,0"
      -
      557  string color
      -
      558  variable ncursors
      -
      559  variable icursor
      -
      560  string cursorname
      -
      561  string groupname = "crosshairs"
      -
      562  variable xx, yy
      -
      563  struct RGBColor rgb
      -
      564 
      -
      565  if (clear == 0)
      -
      566  SetDrawEnv /W=$graphname push
      -
      567  DrawAction /w=$graphname getgroup=$groupname, delete, begininsert
      -
      568  SetDrawEnv /w=$graphname gstart, gname=$groupname
      -
      569 
      -
      570  SetDrawEnv /W=$graphname dash=4
      -
      571  SetDrawEnv /W=$graphname linethick=0.5
      -
      572 
      -
      573  ncursors = ItemsInList(cursors, ";")
      -
      574  for (icursor=0; icursor < ncursors; icursor += 1)
      -
      575  cursorname = StringFromList(icursor, cursors, ";")
      -
      576  color = StringFromList(icursor, colors, ";")
      -
      577  rgb.red = str2num(StringFromList(0, color, ","))
      -
      578  rgb.green = str2num(StringFromList(1, color, ","))
      -
      579  rgb.blue = str2num(StringFromList(2, color, ","))
      -
      580  if (strlen(CsrInfo($cursorname, graphname)) > 0)
      -
      581  xx = hcsr($cursorname, graphname)
      -
      582  yy = vcsr($cursorname, graphname)
      -
      583  SetDrawEnv /W=$graphname linefgc=(rgb.red, rgb.green, rgb.blue)
      -
      584  SetDrawEnv /W=$graphname save
      -
      585  SetDrawEnv /W=$graphname xcoord=bottom, ycoord=prel
      -
      586  DrawLine /W=$graphname xx, 0, xx, 1
      -
      587  SetDrawEnv /W=$graphname xcoord=prel, ycoord=left
      -
      588  DrawLine /W=$graphname 0, yy, 1, yy
      -
      589  endif
      -
      590  endfor
      -
      591 
      -
      592  SetDrawEnv /w=$graphname gstop
      -
      593  DrawAction /w=$graphname endinsert
      -
      594  SetDrawEnv /W=$graphname pop
      -
      595  SetDrawEnv /W=$graphname save
      -
      596  else
      -
      597  DrawAction /w=$graphname getgroup=$groupname, delete
      -
      598  endif
      -
      599 
      -
      600  return 0
      -
      601 end
      -
      602 
      -
      608 static function /wave get_source_image(view)
      -
      609  wave view // image wave displayed in a profiles window
      -
      610 
      -
      611  dfref viewdf = GetWavesDataFolderDFR(view)
      -
      612  svar /z /sdfr=viewdf sourcepath
      -
      613  if (svar_exists(sourcepath))
      -
      614  wave /z img = $sourcepath
      -
      615  else
      -
      616  wave /z img = $""
      -
      617  endif
      -
      618  return img
      -
      619 end
      -
      620 
      -
      622 static function /df make_view_folder(source)
      -
      623  wave source // wave which contains the raw data from the detector.
      -
      624 
      -
      625  // data folders and references
      -
      626  dfref savedf = GetDataFolderDFR()
      -
      627  dfref imagedf = GetWavesDataFolderDFR(source)
      -
      628  string s_imagedf = GetDataFolder(1, imagedf)
      -
      629  setdatafolder imagedf
      -
      630  string s_viewdf = PearlCleanupName("view_" + NameOfWave(source))
      -
      631  newdatafolder /o/s $s_viewdf
      -
      632  dfref viewdf = GetDataFolderDFR()
      -
      633 
      -
      634  setdatafolder savedf
      -
      635  return viewdf
      -
      636 end
      -
      637 
      -
      646 static function /df get_view_folder(source)
      -
      647  wave source
      -
      648 
      -
      649  // data folders and references
      -
      650  dfref savedf = GetDataFolderDFR()
      -
      651  dfref imagedf = GetWavesDataFolderDFR(source)
      -
      652  dfref viewdf
      -
      653  setdatafolder imagedf
      -
      654  string s_viewdf = PearlCleanupName("view_" + NameOfWave(source))
      -
      655  if (DataFolderExists(s_viewdf))
      -
      656  setdatafolder $s_viewdf
      -
      657  viewdf = GetDataFolderDFR()
      -
      658  endif
      -
      659 
      -
      660  setdatafolder savedf
      -
      661  return viewdf
      -
      662 end
      -
      663 
      -
      669 static function /wave get_view_image(source)
      -
      670  wave source
      -
      671 
      -
      672  dfref viewdf = get_view_folder(source)
      -
      673  string viewname = "view_image"
      -
      674  wave /sdfr=viewdf view = $viewname
      -
      675 
      -
      676  return view
      -
      677 end
      -
      678 
      -
      679 static function bp_reset_cursors(ba) : ButtonControl
      -
      680  STRUCT WMButtonAction &ba
      -
      681 
      -
      682  switch( ba.eventCode )
      -
      683  case 2: // mouse up
      -
      684  string imgname = StringFromList(0, ImageNameList(ba.win, ";"))
      -
      685  wave /z image = ImageNameToWaveRef(ba.win, imgname)
      -
      686  if (waveexists(image))
      -
      687  Cursor /i/p A $imgname 0,0
      -
      688  Cursor /i/p B $imgname DimSize(image, 0)-1, DimSize(image, 1)-1
      -
      689  endif
      -
      690  break
      -
      691  case -1: // control being killed
      -
      692  break
      -
      693  endswitch
      -
      694 
      -
      695  return 0
      -
      696 End
      -
      697 
      -
      698 static function svp_smoothing(sva) : SetVariableControl
      -
      699  STRUCT WMSetVariableAction &sva
      -
      700 
      -
      701  string imglist
      -
      702 
      -
      703  switch( sva.eventCode )
      -
      704  case 1: // mouse up
      -
      705  case 2: // Enter key
      -
      706  case 3: // Live update
      -
      707  imglist = ImageNameList(sva.win, ";")
      -
      708  wave /z img = ImageNameToWaveRef(sva.win, StringFromList(0, imglist))
      -
      709  if (WaveExists(img))
      -
      710  wave source = get_source_image(img)
      -
      711  if (WaveExists(source))
      -
      712  ad_update_profiles(source)
      -
      713  endif
      -
      714  endif
      -
      715  break
      -
      716  case -1: // control being killed
      -
      717  break
      -
      718  endswitch
      -
      719 
      -
      720  return 0
      -
      721 end
      -
      722 
      -
      723 static function pmp_export(pa) : PopupMenuControl
      -
      724  STRUCT WMPopupAction &pa
      -
      725 
      -
      726  switch( pa.eventCode )
      -
      727  case 2: // mouse up
      -
      728  variable popNum = pa.popNum
      -
      729 
      -
      730  string imgname = StringFromList(0, ImageNameList(pa.win, ";"))
      -
      731  wave /z image = ImageNameToWaveRef(pa.win, imgname)
      -
      732  if (waveexists(image) && (popNum >= 1) && (popNum <= 2))
      -
      733  ad_export_profile(image, popNum - 1, show=1)
      -
      734  elseif (waveexists(image) && (popNum >= 3) && (popNum <= 4))
      -
      735  ad_export_profile(image, popNum - 3, show=2)
      -
      736  endif
      -
      737 
      -
      738  break
      -
      739  case -1: // control being killed
      -
      740  break
      -
      741  endswitch
      -
      742 
      -
      743  return 0
      -
      744 End
      -
      745 
      -
      747 function ad_profiles_hook(s)
      -
      748  struct WMWinHookStruct &s
      -
      749  variable hookresult = 0
      -
      750  string imglist
      -
      751  string cmd
      -
      752  dfref viewdf
      -
      753 
      -
      754  switch(s.eventCode)
      -
      755  case 2: // delete data folder after window is killed
      -
      756  imglist = ImageNameList(s.winName, ";")
      -
      757  wave /z img = ImageNameToWaveRef(s.winName, StringFromList(0, imglist))
      -
      758  if (WaveExists(img))
      -
      759  viewdf = GetWavesDataFolderDFR(img)
      -
      760  cmd = "killdatafolder /z " + GetDataFolder(1, viewdf)
      -
      761  Execute /P/Q/Z cmd
      -
      762  endif
      -
      763  break
      -
      764  case 7: // update profiles when cursor is moved
      -
      765  imglist = ImageNameList(s.winName, ";")
      -
      766  wave /z img = ImageNameToWaveRef(s.winName, StringFromList(0, imglist))
      -
      767  if (WaveExists(img))
      -
      768  ad_calc_cursor_profiles(img)
      -
      769  hookresult = 1
      -
      770  else
      -
      771  hookresult = 0
      -
      772  endif
      -
      773  break
      -
      774  endswitch
      -
      775 
      -
      776  return hookresult
      -
      777 end
      -
      778 
      -
      787 function ad_calc_cursor_profiles(image)
      -
      788  wave image
      -
      789 
      -
      790  dfref savedf = GetDataFolderDFR()
      -
      791  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      792  setdatafolder imagedf
      -
      793 
      -
      794  svar graphname = prof_graphname
      -
      795 
      -
      796  variable pa, qa // point coordinates cursor A
      -
      797  if (strlen(CsrInfo(A, graphname)) > 0)
      -
      798  pa = pcsr(A, graphname)
      -
      799  qa = qcsr(A, graphname)
      -
      800  else
      -
      801  pa = 0
      -
      802  qa = 0
      -
      803  endif
      -
      804 
      -
      805  variable pb, qb // point coordinates cursor B
      -
      806  if (strlen(CsrInfo(B, graphname)) > 0)
      -
      807  pb = pcsr(B, graphname)
      -
      808  qb = qcsr(B, graphname)
      -
      809  else
      -
      810  pb = DimSize(image, 0) - 1
      -
      811  qb = DimSize(image, 1) - 1
      -
      812  endif
      -
      813 
      -
      814  ad_calc_profiles(image, pa, qa, pb, qb)
      -
      815  setdatafolder savedf
      -
      816 end
      -
      817 
      -
      834 function ad_calc_profiles(image, pa, qa, pb, qb)
      -
      835  wave image
      -
      836  variable pa, qa
      -
      837  variable pb, qb
      -
      838 
      -
      839  dfref savedf = GetDataFolderDFR()
      -
      840  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      841  setdatafolder imagedf
      -
      842 
      -
      843  wave xprofiles
      -
      844  wave yprofiles
      -
      845  nvar graph_avg
      -
      846  nvar graph_min
      -
      847  nvar graph_max
      -
      848  nvar graph_sum
      -
      849  nvar graph_sdev
      -
      850 
      -
      851  // horizontal profiles at crosshairs
      -
      852  redimension /n=(dimsize(image,0), 3) xprofiles
      -
      853  setscale /p x dimoffset(image,0), dimdelta(image,0), WaveUnits(image,0), xprofiles
      -
      854  setscale d 0, 0, waveunits(image,-1), xprofiles
      -
      855  xprofiles[][0] = image[p][qa]
      -
      856  xprofiles[][1] = image[p][qb]
      -
      857 
      -
      858  note /k xprofiles
      -
      859  note xprofiles, "SourceWave=" + nameofwave(image)
      -
      860  note xprofiles, "SourceDimension=0"
      -
      861  note xprofiles, "SourceIndex0=" + num2str(qa)
      -
      862  note xprofiles, "SourceIndex1=" + num2str(qb)
      -
      863 
      -
      864  // average horizontal profile between crosshairs
      -
      865  variable qq, q0, q1
      -
      866  q0 = min(qa, qb)
      -
      867  q1 = max(qa, qb)
      -
      868  xprofiles[][2] = 0
      -
      869  for (qq = q0; qq <= q1; qq += 1)
      -
      870  xprofiles[][2] += image[p][qq]
      -
      871  endfor
      -
      872  xprofiles[][2] /= q1 - q0 + 1
      -
      873 
      -
      874  // vertical profiles at crosshairs
      -
      875  redimension /n=(dimsize(image,1), 3) yprofiles
      -
      876  setscale /p x dimoffset(image,1), dimdelta(image,1), WaveUnits(image,1), yprofiles
      -
      877  setscale d 0, 0, waveunits(image,-1), yprofiles
      -
      878  yprofiles[][0] = image[pa][p]
      -
      879  yprofiles[][1] = image[pb][p]
      -
      880 
      -
      881  note /k yprofiles
      -
      882  note yprofiles, "SourceWave=" + nameofwave(image)
      -
      883  note yprofiles, "SourceDimension=1"
      -
      884  note yprofiles, "SourceIndex0=" + num2str(pa)
      -
      885  note yprofiles, "SourceIndex1=" + num2str(pb)
      -
      886 
      -
      887  // average vertical profile between crosshairs
      -
      888  variable pp, p0, p1
      -
      889  p0 = min(pa, pb)
      -
      890  p1 = max(pa, pb)
      -
      891  yprofiles[][2] = 0
      -
      892  for (pp = p0; pp <= p1; pp += 1)
      -
      893  yprofiles[][2] += image[pp][p]
      -
      894  endfor
      -
      895  yprofiles[][2] /= p1 - p0 + 1
      -
      896 
      -
      897  // statistics between crosshairs
      -
      898  Duplicate /r=[p0,p1][q0,q1]/o image, roi_image
      -
      899  WaveStats /Q roi_image
      -
      900  graph_avg = v_avg
      -
      901  graph_min = v_min
      -
      902  graph_max = v_max
      -
      903  graph_sum = v_avg * v_npnts
      -
      904  graph_sdev = v_sdev
      -
      905 
      -
      906  // histogram
      -
      907  wave /z hist
      -
      908  if (waveexists(hist))
      -
      909  Histogram /B=3 roi_image, hist
      -
      910  endif
      -
      911 
      -
      912  setdatafolder savedf
      -
      913 end
      -
      914 
      -
      936 function ad_export_profile(view_image, dim, [trace, show, overwrite])
      -
      937  wave view_image
      -
      938  variable dim
      -
      939  variable trace
      -
      940  variable show
      -
      941  variable overwrite
      -
      942 
      -
      943  dfref savedf = GetDataFolderDFR()
      -
      944 
      -
      945  if (ParamIsDefault(trace))
      -
      946  trace = 2
      -
      947  endif
      -
      948  if (ParamIsDefault(show))
      -
      949  show = 0
      -
      950  endif
      -
      951  if (ParamIsDefault(overwrite))
      -
      952  overwrite = 0
      -
      953  endif
      -
      954 
      -
      955  // view folder
      -
      956  dfref imagedf = GetWavesDataFolderDFR(view_image)
      -
      957  string dim_label
      -
      958  switch(dim)
      -
      959  case 0:
      -
      960  wave /sdfr=imagedf profiles=xprofiles
      -
      961  dim_label = "x"
      -
      962  break
      -
      963  case 1:
      -
      964  wave /sdfr=imagedf profiles=yprofiles
      -
      965  dim_label = "y"
      -
      966  break
      -
      967  default:
      -
      968  return -1 // invalid argument
      -
      969  endswitch
      -
      970  string graphname_string = "export_graph_" + dim_label
      -
      971  svar /z /sdfr=imagedf linked_graphname = $graphname_string
      -
      972 
      -
      973  // source folder
      -
      974  wave /z source_image = get_source_image(view_image)
      -
      975  if (WaveExists(source_image))
      -
      976  dfref sourcedf = GetWavesDataFolderDFR(source_image)
      -
      977  setdatafolder sourcedf
      -
      978  else
      -
      979  return -2 // invalid source data folder
      -
      980  endif
      -
      981 
      -
      982  // format dest wave name
      -
      983  string profile_note = note(profiles)
      -
      984  string name_base
      -
      985  string name_dim
      -
      986  string name_index
      -
      987  string profile_name
      -
      988  variable index_width = ceil(log(DimSize(view_image, 1 - dim)))
      -
      989  variable index0 = NumberByKey("SourceIndex0", profile_note, "=", "\r")
      -
      990  variable index1 = NumberByKey("SourceIndex1", profile_note, "=", "\r")
      -
      991  name_dim = "_" + dim_label
      -
      992  sprintf name_index, "%0*u_%0*u", index_width, index0, index_width, index1
      -
      993  name_base = NameOfWave(source_image)
      -
      994  name_base = name_base[0, min(strlen(name_base), 31 - strlen(name_index) - strlen(name_dim) - 1)]
      -
      995  profile_name = name_base + name_dim + name_index
      -
      996  if ((overwrite == 0) && (CheckName(profile_name, 1)))
      -
      997  profile_name = UniqueName(profile_name + "_", 1, 0)
      -
      998  endif
      -
      999 
      -
      1000  // create dest wave
      -
      1001  duplicate /o /r=[][trace] profiles, $profile_name /wave=dest_profile
      -
      1002  redimension /n=(dimsize(profiles, 0)) dest_profile
      -
      1003  profile_note = ReplaceStringByKey("SourceWave", profile_note, NameOfWave(source_image), "=", "\r")
      -
      1004  note /k dest_profile
      -
      1005  note dest_profile, profile_note
      -
      1006  print "created", GetWavesDataFolder(dest_profile, 2)
      -
      1007 
      -
      1008  if (show)
      -
      1009  string graphname
      -
      1010  string graphtitle
      -
      1011  if (show == 2)
      -
      1012  // common graph for all profiles of a dimension
      -
      1013  graphname = "export_profiles_" + dim_label
      -
      1014  graphtitle = UpperStr(dim_label) + " Profiles"
      -
      1015  else
      -
      1016  // one graph per source image
      -
      1017  if (svar_exists(linked_graphname) && (ItemsInList(WinList(linked_graphname, ";", "WIN:1"), ";") >= 1))
      -
      1018  graphname = linked_graphname
      -
      1019  else
      -
      1020  graphname = GetWavesDataFolder(source_image, 0) + name_dim
      -
      1021  endif
      -
      1022  graphtitle = UpperStr(dim_label) + " Profiles: " + GetWavesDataFolder(source_image, 2)
      -
      1023  endif
      -
      1024 
      -
      1025  if ((ItemsInList(WinList(graphname, ";", "WIN:1"), ";") >= 1))
      -
      1026  appendtograph /w=$graphname dest_profile
      -
      1027  else
      -
      1028  setdatafolder imagedf
      -
      1029  display /k=1 /n=$graphname dest_profile as graphtitle
      -
      1030  graphname = s_name
      -
      1031  ModifyGraph /w=$graphname mirror=1,nticks=3,minor=1
      -
      1032  ModifyGraph /w=$graphname axThick=0.5,btLen=4
      -
      1033  ModifyGraph /w=$graphname gfSize=10
      -
      1034  ModifyGraph /w=$graphname grid=2,gridHair=0,gridRGB=(52224,52224,52224)
      -
      1035  Legend /w=$graphname /C/N=legend0/F=0/B=1/A=LT/X=0.00/Y=0.00
      -
      1036 
      -
      1037  if (show != 2)
      -
      1038  string /g $graphname_string = graphname
      -
      1039  endif
      -
      1040  endif
      -
      1041  endif
      -
      1042 
      -
      1043  setdatafolder savedf
      -
      1044  return 0
      -
      1045 end
      -
      1046 
      -
      1047 static function set_trace_colors(graphname)
      -
      1048  string graphname
      -
      1049 
      -
      1050  ModifyGraph /w=$graphname /z rgb[0]=(0, 0, 0)
      -
      1051  ModifyGraph /w=$graphname /z rgb[1]=(65535, 16385, 16385)
      -
      1052  ModifyGraph /w=$graphname /z rgb[2]=(2, 39321, 1)
      -
      1053  ModifyGraph /w=$graphname /z rgb[3]=(0, 0, 65535)
      -
      1054  ModifyGraph /w=$graphname /z rgb[4]=(39321, 1, 31457)
      -
      1055  ModifyGraph /w=$graphname /z rgb[5]=(48059, 48059, 48059)
      -
      1056  ModifyGraph /w=$graphname /z rgb[6]=(65535, 32768, 32768)
      -
      1057  ModifyGraph /w=$graphname /z rgb[7]=(0, 65535, 0)
      -
      1058  ModifyGraph /w=$graphname /z rgb[8]=(16385,65535,65535)
      -
      1059  ModifyGraph /w=$graphname /z rgb[9]=(65535, 32768, 58981)
      -
      1060 end
      -
      1061 
      -
      1068 function ad_calc_histogram(image)
      -
      1069  wave image
      -
      1070 
      -
      1071  dfref savedf = GetDataFolderDFR()
      -
      1072  dfref imagedf = GetWavesDataFolderDFR(image)
      -
      1073  setdatafolder imagedf
      -
      1074 
      -
      1075  wave hist
      -
      1076  Histogram /B=3 image, hist
      -
      1077 
      -
      1078  setdatafolder savedf
      -
      1079 end
      -
      1080 
      -
      1091 function ad_default_image_filter(image, options)
      -
      1092  wave image
      -
      1093  string options
      -
      1094 end
      -
      1095 
      -
      1105 function ad_box_filter(image, options)
      -
      1106  wave image
      -
      1107  string options
      -
      1108 
      -
      1109  variable xsmoothing = NumberByKey("SmoothingX", options, "=", ";")
      -
      1110  variable ysmoothing = NumberByKey("SmoothingY", options, "=", ";")
      -
      1111 
      -
      1112  if ((NumType(xsmoothing) == 0) && (xsmoothing >= 2))
      -
      1113  Smooth /B /DIM=0 /E=3 xsmoothing, image
      -
      1114  endif
      -
      1115  if ((NumType(ysmoothing) == 0) && (ysmoothing >= 2))
      -
      1116  Smooth /B /DIM=1 /E=3 ysmoothing, image
      -
      1117  endif
      -
      1118 end
      -
      1119 
      -
      1127 function ad_transpose_filter(image, options)
      -
      1128  wave image
      -
      1129  string options
      -
      1130 
      -
      1131  MatrixTranspose image
      -
      1132 end
      -
      1133 
      -
      1134 
      -
      1135 // ################### 3D DATA ##################
      -
      1136 
      -
      1143 function /s ad_display_brick(data)
      -
      1144  wave data
      -
      1145 
      -
      1146  if(exists("NewGizmo") != 4)
      -
      1147  abort "Gizmo XOP must be installed."
      -
      1148  endif
      -
      1149  if (WaveDims(data) != 3)
      -
      1150  abort "ad_display_brick: data must be three-dimensional."
      -
      1151  endif
      -
      1152 
      -
      1153  dfref savedf = GetDataFolderDFR()
      -
      1154  dfref datadf = GetWavesDataFolderDFR(data)
      -
      1155  string s_datadf = GetDataFolder(1, datadf)
      -
      1156  dfref viewdf = make_view_folder(data)
      -
      1157 
      -
      1158  setdatafolder viewdf
      -
      1159  string dfname = ReplaceString("root:", s_datadf, "")
      -
      1160  string graphtitle = dfname + " Gizmo"
      -
      1161  string /g gizmo_graphname = graphname_from_dfref(datadf, "giz_")
      -
      1162  svar graphname = gizmo_graphname
      -
      1163 
      -
      1164  if ((strlen(graphname) > 0) && (wintype(graphname) == 13))
      -
      1165  setdatafolder savedf
      -
      1166  return graphname // gizmo window exists
      -
      1167  endif
      -
      1168 
      -
      1169  variable nx = dimsize(data, 0)
      -
      1170  variable ny = dimsize(data, 1)
      -
      1171  variable nz = dimsize(data, 2)
      -
      1172 
      -
      1173  variable pp
      -
      1174  string obj
      -
      1175  string cmd
      -
      1176 
      -
      1177  // igor does not allow calling gizmo functions directly
      -
      1178  setdatafolder datadf
      -
      1179  sprintf cmd, "NewGizmo /k=1 /n=%s /w=(100,100,500,400) /t=\"%s\"", graphname, graphtitle
      -
      1180  execute /q cmd
      -
      1181  cmd = "AppendToGizmo /D Axes=BoxAxes, name=axes0"
      -
      1182  execute /q cmd
      -
      1183 
      -
      1184  obj = "surface_xmid"
      -
      1185  pp = round(nx / 2 - 1)
      -
      1186  sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      -
      1187  execute /q cmd
      -
      1188  sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 128}", obj
      -
      1189  execute /q cmd
      -
      1190  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      -
      1191  execute /q cmd
      -
      1192  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      -
      1193  execute /q cmd
      -
      1194  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      -
      1195  execute /q cmd
      -
      1196  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      -
      1197  execute /q cmd
      -
      1198 
      -
      1199  obj = "surface_ymid"
      -
      1200  pp = round(ny / 2 - 1)
      -
      1201  sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      -
      1202  execute /q cmd
      -
      1203  sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 64}", obj
      -
      1204  execute /q cmd
      -
      1205  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      -
      1206  execute /q cmd
      -
      1207  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      -
      1208  execute /q cmd
      -
      1209  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      -
      1210  execute /q cmd
      -
      1211  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      -
      1212  execute /q cmd
      -
      1213 
      -
      1214  obj = "surface_zmid"
      -
      1215  pp = round(nz / 2 - 1)
      -
      1216  sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      -
      1217  execute /q cmd
      -
      1218  sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 32}", obj
      -
      1219  execute /q cmd
      -
      1220  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      -
      1221  execute /q cmd
      -
      1222  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      -
      1223  execute /q cmd
      -
      1224  sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      -
      1225  execute /q cmd
      -
      1226  sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      -
      1227  execute /q cmd
      -
      1228 
      -
      1229  obj = "axes0"
      -
      1230  sprintf cmd, "ModifyGizmo ModifyObject=%s,property={-1,axisScalingMode,1}", obj
      -
      1231  execute /q cmd
      -
      1232  sprintf cmd, "ModifyGizmo ModifyObject=%s,property={-1,axisColor,0,0,0,1}", obj
      -
      1233  execute /q cmd
      -
      1234  sprintf cmd, "ModifyGizmo ModifyObject=%s,property={0,ticks,3}", obj
      -
      1235  execute /q cmd
      -
      1236  sprintf cmd, "ModifyGizmo ModifyObject=%s,property={1,ticks,3}", obj
      -
      1237  execute /q cmd
      -
      1238  sprintf cmd, "ModifyGizmo ModifyObject=%s,property={2,ticks,3}", obj
      -
      1239  execute /q cmd
      -
      1240  sprintf cmd, "ModifyGizmo modifyObject=%s property={Clipped,0}", obj
      -
      1241  execute /q cmd
      -
      1242  sprintf cmd, "ModifyGizmo modifyObject=%s property={-1,fontScaleFactor,2}", obj
      -
      1243  execute /q cmd
      -
      1244 
      -
      1245  sprintf cmd, "ModifyGizmo showAxisCue=1"
      -
      1246  execute /q cmd
      -
      1247 
      -
      1248  setdatafolder savedf
      -
      1249  return graphname
      -
      1250 end
      -
      1251 
      -
      1258 function ad_brick_slicer(data)
      -
      1259  wave data
      -
      1260 
      -
      1261  // data folders and references
      -
      1262  dfref savedf = GetDataFolderDFR()
      -
      1263  dfref datadf = GetWavesDataFolderDFR(data)
      -
      1264  string s_datadf = GetDataFolder(1, datadf)
      -
      1265  dfref viewdf = make_view_folder(data)
      -
      1266 
      -
      1267  setdatafolder viewdf
      -
      1268  svar /z ex_panel = slicer_panelname
      -
      1269  if (svar_exists(ex_panel))
      -
      1270  string panels = WinList("SlicerPanel*", ";", "WIN:64")
      -
      1271  if (WhichListItem(ex_panel, panels, ";") >= 0)
      -
      1272  dowindow /f $(StringFromList(0, panels, ";"))
      -
      1273  return 0
      -
      1274  endif
      -
      1275  endif
      -
      1276 
      -
      1277  variable /g x_slice_pos
      -
      1278  variable /g y_slice_pos
      -
      1279  variable /g z_slice_pos
      -
      1280  variable /g slab_thickness
      -
      1281  string /g brick_path = getwavesdatafolder(data, 2)
      -
      1282  variable /g x_autoinc = 0
      -
      1283  variable /g y_autoinc = 0
      -
      1284  variable /g z_autoinc = 0
      -
      1285 
      -
      1286  // axis labels
      -
      1287  string labels = note(data)
      -
      1288  string xlabel = StringByKey("AxisLabelX", labels, "=", "\r")
      -
      1289  if (!strlen(xlabel))
      -
      1290  xlabel = "X"
      -
      1291  endif
      -
      1292  string ylabel = StringByKey("AxisLabelY", labels, "=", "\r")
      -
      1293  if (!strlen(ylabel))
      -
      1294  ylabel = "Y"
      -
      1295  endif
      -
      1296  string zlabel = StringByKey("AxisLabelZ", labels, "=", "\r")
      -
      1297  if (!strlen(zlabel))
      -
      1298  zlabel = "Z"
      -
      1299  endif
      -
      1300  string dlabel = StringByKey("Dataset", labels, "=", "\r")
      -
      1301  if (!strlen(dlabel))
      -
      1302  dlabel = NameOfWave(data)
      -
      1303  endif
      -
      1304 
      -
      1305  // this section copied from slicer panel
      -
      1306  NewPanel /k=1 /W=(500,600,890,940) /N=SlicerPanel as "Brick Slicer"
      -
      1307  string /g slicer_panelname = S_name
      -
      1308  string panel = s_name
      -
      1309 
      -
      1310  GroupBox g_xslice win=$panel,pos={8,8},size={376,96},title=xlabel
      -
      1311  Slider sl_xslice_position win=$panel,pos={16,32},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      -
      1312  Slider sl_xslice_position win=$panel,limits={0,100,1},variable=x_slice_pos,vert= 0
      -
      1313  SetVariable sv_xslice_position win=$panel,pos={20,80},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="X"
      -
      1314  SetVariable sv_xslice_position win=$panel,limits={0,100,1},value=x_slice_pos
      -
      1315  Button b_xslice_center win=$panel,pos={122,80},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      -
      1316  Button b_xslice_center win=$panel,help={"reset to center position"}
      -
      1317  Button b_xslice_extract win=$panel,pos={288,80},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      -
      1318  Button b_xslice_extract win=$panel,help={"extract this slice to a separate wave"}
      -
      1319  //CheckBox cb_xslab_active win=$panel,pos={288,80},size={80,16},title="Display X Slab"
      -
      1320  //CheckBox cb_xslab_active win=$panel,value= 0
      -
      1321  TitleBox tb_xslice_animation win=$panel,pos={288,32},size={356,16},title="animation",frame=0
      -
      1322  TitleBox tb_xslice_animation win=$panel,anchor= MC
      -
      1323  Button b_xslice_back win=$panel,pos={288,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      -
      1324  Button b_xslice_back win=$panel,help={"animate backwards"}
      -
      1325  Button b_xslice_forward win=$panel,pos={312,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      -
      1326  Button b_xslice_forward win=$panel,help={"animate forward"}
      -
      1327  Button b_xslice_stop win=$panel,pos={336,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      -
      1328  Button b_xslice_stop win=$panel,help={"stop animation"}
      -
      1329 
      -
      1330  GroupBox g_yslice win=$panel,pos={8,108},size={376,96},title=ylabel
      -
      1331  Slider sl_yslice_position win=$panel,pos={16,132},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      -
      1332  Slider sl_yslice_position win=$panel,limits={0,100,1},variable=y_slice_pos,vert= 0
      -
      1333  SetVariable sv_yslice_position win=$panel,pos={20,180},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="Y"
      -
      1334  SetVariable sv_yslice_position win=$panel,limits={0,100,1},value=y_slice_pos
      -
      1335  Button b_yslice_center win=$panel,pos={122,180},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      -
      1336  Button b_yslice_center win=$panel,help={"reset to center position"}
      -
      1337  Button b_yslice_extract win=$panel,pos={288,180},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      -
      1338  Button b_yslice_extract win=$panel,help={"extract this slice to a separate wave"}
      -
      1339  //CheckBox cb_yslab_active win=$panel,pos={288,180},size={80,16},title="Display Y Slab"
      -
      1340  //CheckBox cb_yslab_active win=$panel,value= 0
      -
      1341  TitleBox tb_yslice_animation win=$panel,pos={288,132},size={356,16},title="animation",frame=0
      -
      1342  TitleBox tb_yslice_animation win=$panel,anchor= MC
      -
      1343  Button b_yslice_back win=$panel,pos={288,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      -
      1344  Button b_yslice_back win=$panel,help={"animate backwards"}
      -
      1345  Button b_yslice_forward win=$panel,pos={312,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      -
      1346  Button b_yslice_forward win=$panel,help={"animate forward"}
      -
      1347  Button b_yslice_stop win=$panel,pos={336,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      -
      1348  Button b_yslice_stop win=$panel,help={"stop animation"}
      -
      1349 
      -
      1350  GroupBox g_zslice win=$panel,pos={8,208},size={376,96},title=zlabel
      -
      1351  Slider sl_zslice_position win=$panel,pos={16,232},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      -
      1352  Slider sl_zslice_position win=$panel,limits={0,100,1},variable=z_slice_pos,vert= 0
      -
      1353  SetVariable sv_zslice_position win=$panel,pos={20,280},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="Z"
      -
      1354  SetVariable sv_zslice_position win=$panel,limits={0,100,1},value=z_slice_pos
      -
      1355  Button b_zslice_center win=$panel,pos={122,280},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      -
      1356  Button b_zslice_center win=$panel,help={"reset to center position"}
      -
      1357  Button b_zslice_extract win=$panel,pos={288,280},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      -
      1358  Button b_zslice_extract win=$panel,help={"extract this slice to a separate wave"}
      -
      1359  //CheckBox cb_zslab_active win=$panel,pos={288,280},size={80,16},title="Display Z Slab"
      -
      1360  //CheckBox cb_zslab_active win=$panel,value= 0
      -
      1361  TitleBox tb_zslice_animation win=$panel,pos={288,232},size={356,16},title="animation",frame=0
      -
      1362  TitleBox tb_zslice_animation win=$panel,anchor= MC
      -
      1363  Button b_zslice_back win=$panel,pos={288,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      -
      1364  Button b_zslice_back win=$panel,help={"animate backwards"}
      -
      1365  Button b_zslice_forward win=$panel,pos={312,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      -
      1366  Button b_zslice_forward win=$panel,help={"animate forward"}
      -
      1367  Button b_zslice_stop win=$panel,pos={336,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      -
      1368  Button b_zslice_stop win=$panel,help={"stop animation"}
      -
      1369 
      -
      1370  TitleBox t_slicerpath win=$panel,pos={8,316},size={128,20},disable=2,title=dlabel
      -
      1371  //SetVariable setvar0 win=$panel,pos={240,316},size={120,16},title="slab thickness"
      -
      1372  //SetVariable setvar0 win=$panel,limits={1,inf,1},value=slab_thickness
      -
      1373 
      -
      1374  // update control limits and move slicing planes to the center
      -
      1375  setwindow $panel, userdata(control_datafolder) = GetDataFolder(1, viewdf)
      -
      1376  setwindow $panel, userdata(brick_path) = brick_path
      -
      1377  update_slice_info()
      -
      1378  x_slice_pos = dimoffset(data, 0) + dimsize(data, 0) * dimdelta(data, 0) / 2
      -
      1379  y_slice_pos = dimoffset(data, 1) + dimsize(data, 1) * dimdelta(data, 1) / 2
      -
      1380  z_slice_pos = dimoffset(data, 2) + dimsize(data, 2) * dimdelta(data, 2) / 2
      -
      1381 
      -
      1382  svar /z /sdfr=viewdf gizmo_graphname
      -
      1383  if (svar_exists(gizmo_graphname) && (strlen(gizmo_graphname) > 0) && (wintype(gizmo_graphname) == 13))
      -
      1384  ad_gizmo_set_plane(data, 0, x_slice_pos)
      -
      1385  ad_gizmo_set_plane(data, 1, y_slice_pos)
      -
      1386  ad_gizmo_set_plane(data, 2, z_slice_pos)
      -
      1387  endif
      -
      1388  svar /z /sdfr=viewdf slice_graphname
      -
      1389  if (svar_exists(slice_graphname) && (strlen(slice_graphname) > 0) && (wintype(slice_graphname) == 1))
      -
      1390  ad_profiles_set_slice(data, 2, z_slice_pos)
      -
      1391  endif
      -
      1392 
      -
      1393  ad_slicer_init_bg()
      -
      1394  setdatafolder savedf
      -
      1395 end
      -
      1396 
      -
      1406 function /s ad_display_slice(data)
      -
      1407  wave data
      -
      1408 
      -
      1409  if (WaveDims(data) != 3)
      -
      1410  abort "ad_display_slice: data must be three-dimensional."
      -
      1411  endif
      -
      1412 
      -
      1413  dfref savedf = GetDataFolderDFR()
      -
      1414  dfref datadf = GetWavesDataFolderDFR(data)
      -
      1415  string s_datadf = GetDataFolder(1, datadf)
      -
      1416  dfref viewdf = make_view_folder(data)
      -
      1417 
      -
      1418  setdatafolder viewdf
      -
      1419  string dfname = ReplaceString("root:", s_datadf, "")
      -
      1420  dfname = dfname[0, strlen(dfname) - 2]
      -
      1421  string graphtitle = dfname + " Slice"
      -
      1422 
      -
      1423  if (exists("slice_graphname") != 2)
      -
      1424  string /g slice_graphname = ""
      -
      1425  endif
      -
      1426  string /g slice_wavename = PearlCleanupName("slice_" + NameOfWave(data))
      -
      1427  svar graphname = slice_graphname
      -
      1428  svar slicename = slice_wavename
      -
      1429 
      -
      1430  make /n=(1,1)/o $slicename
      -
      1431  wave slice = $slicename
      -
      1432  if ((strlen(graphname) == 0) || (wintype(graphname) != 1))
      -
      1433  graphname = ad_display_profiles(slice)
      -
      1434  endif
      -
      1435  variable z_slice_pos = dimoffset(data, 2) + dimsize(data, 2) * dimdelta(data, 2) / 2
      -
      1436  ad_profiles_set_slice(data, 2, z_slice_pos)
      -
      1437  ad_profiles_set_cursor(slice, "A", -inf, -inf, pscale=1)
      -
      1438  ad_profiles_set_cursor(slice, "B", +inf, +inf, pscale=1)
      -
      1439 
      -
      1440  setdatafolder savedf
      -
      1441  return graphname
      -
      1442 end
      -
      1443 
      -
      1447 static function update_slice_info()
      -
      1448  dfref savedf = GetDataFolderDFR()
      -
      1449 
      -
      1450  svar brick_path
      -
      1451  //svar slicer_panelname
      -
      1452  wave brick = $brick_path
      -
      1453 
      -
      1454  //dowindow /F $slicer_panelname
      -
      1455  variable lo, hi, inc
      -
      1456  lo = dimoffset(brick, 0)
      -
      1457  inc = dimdelta(brick, 0)
      -
      1458  hi = lo + inc * (dimsize(brick, 0) - 1)
      -
      1459  Slider sl_xslice_position,limits={lo,hi,inc}
      -
      1460  SetVariable sv_xslice_position,limits={lo,hi,inc}
      -
      1461  lo = dimoffset(brick, 1)
      -
      1462  inc = dimdelta(brick, 1)
      -
      1463  hi = lo + inc * (dimsize(brick, 1) - 1)
      -
      1464  Slider sl_yslice_position,limits={lo,hi,inc}
      -
      1465  SetVariable sv_yslice_position,limits={lo,hi,inc}
      -
      1466  lo = dimoffset(brick, 2)
      -
      1467  inc = dimdelta(brick, 2)
      -
      1468  hi = lo + inc * (dimsize(brick, 2) - 1)
      -
      1469  Slider sl_zslice_position,limits={lo,hi,inc}
      -
      1470  SetVariable sv_zslice_position,limits={lo,hi,inc}
      -
      1471 
      -
      1472  setdatafolder savedf
      -
      1473 end
      -
      1474 
      -
      1483 function ad_gizmo_set_plane(brick, dim, value)
      -
      1484  wave brick
      -
      1485  variable dim
      -
      1486  variable value
      -
      1487 
      -
      1488  dfref savedf = GetDataFolderDFR()
      -
      1489  dfref datadf = GetWavesDataFolderDFR(brick)
      -
      1490  dfref viewdf = get_view_folder(brick)
      -
      1491  svar /z /sdfr=viewdf graphname=gizmo_graphname
      -
      1492 
      -
      1493  variable pp = round((value - dimoffset(brick, dim)) / dimdelta(brick, dim))
      -
      1494  if ((pp < 0) || (pp >= dimsize(brick, dim)))
      -
      1495  return -1 // requested value out of range
      -
      1496  endif
      -
      1497 
      -
      1498  if (svar_exists(graphname) && (strlen(graphname) > 0) && (wintype(graphname) == 13))
      -
      1499  string axes = "xyz"
      -
      1500  string obj = "surface_" + axes[dim] + "mid"
      -
      1501  string cmd
      -
      1502  sprintf cmd, "ModifyGizmo /N=%s ModifyObject=%s, property={plane, %d}", graphname, obj, pp
      -
      1503  execute /q cmd
      -
      1504  else
      -
      1505  return -2 // gizmo window not found
      -
      1506  endif
      -
      1507 
      -
      1508  return 0
      -
      1509 end
      -
      1510 
      -
      1519 function ad_profiles_set_slice(brick, dim, value)
      -
      1520  wave brick
      -
      1521  variable dim
      -
      1522  variable value
      -
      1523 
      -
      1524  dfref savedf = GetDataFolderDFR()
      -
      1525  dfref datadf = GetWavesDataFolderDFR(brick)
      -
      1526  dfref viewdf = get_view_folder(brick)
      -
      1527  svar /z /sdfr=viewdf graphname = slice_graphname
      -
      1528  svar /z /sdfr=viewdf slicename = slice_wavename
      -
      1529 
      -
      1530  variable pp = round((value - dimoffset(brick, dim)) / dimdelta(brick, dim))
      -
      1531  if ((pp < 0) || (pp >= dimsize(brick, dim)))
      -
      1532  return -1 // requested value out of range
      -
      1533  endif
      -
      1534 
      -
      1535  if (svar_exists(graphname) && (strlen(graphname) > 0) && (wintype(graphname) == 1))
      -
      1536  setdatafolder viewdf
      -
      1537  switch(dim)
      -
      1538  case 0: // X
      -
      1539  wave wdest = ad_extract_slab_x(brick, pp, pp, slicename)
      -
      1540  ad_update_profiles(wdest)
      -
      1541  break
      -
      1542  case 1: // Y
      -
      1543  wave wdest = ad_extract_slab_y(brick, pp, pp, slicename)
      -
      1544  ad_update_profiles(wdest)
      -
      1545  break
      -
      1546  case 2: // Z
      -
      1547  wave wdest = ad_extract_slab_z(brick, pp, pp, slicename)
      -
      1548  ad_update_profiles(wdest)
      -
      1549  break
      -
      1550  endswitch
      -
      1551  else
      -
      1552  return -2 // graph window not found
      -
      1553  endif
      -
      1554 
      -
      1555  setdatafolder savedf
      -
      1556  return 0
      -
      1557 end
      -
      1558 
      -
      1560 static function slp_slice_position(sa) : SliderControl
      -
      1561  STRUCT WMSliderAction &sa
      -
      1562 
      -
      1563  dfref savedf = GetDataFolderDFR()
      -
      1564 
      -
      1565  switch( sa.eventCode )
      -
      1566  case -1: // control being killed
      -
      1567  break
      -
      1568  default:
      -
      1569  if( sa.eventCode & 1 ) // value set
      -
      1570  string control_datafolder = GetUserData(sa.win, "", "control_datafolder")
      -
      1571  setdatafolder control_datafolder
      -
      1572  string brick_path = GetUserData(sa.win, "", "brick_path")
      -
      1573  string axis = StringFromList(1, sa.ctrlName, "_")
      -
      1574  variable dim = char2num(axis[0]) - char2num("x")
      -
      1575 
      -
      1576  wave /z brick = $brick_path
      -
      1577  if (WaveExists(brick))
      -
      1578  ad_gizmo_set_plane(brick, dim, sa.curval)
      -
      1579  ad_profiles_set_slice(brick, dim, sa.curval)
      -
      1580  else
      -
      1581  Abort "can't find original wave " + brick_path
      -
      1582  endif
      -
      1583  endif
      -
      1584  break
      -
      1585  endswitch
      -
      1586 
      -
      1587  setdatafolder savedf
      -
      1588  return 0
      -
      1589 End
      -
      1590 
      -
      1592 static function svp_slice_position(sva) : SetVariableControl
      -
      1593  STRUCT WMSetVariableAction &sva
      -
      1594 
      -
      1595  dfref savedf = GetDataFolderDFR()
      -
      1596 
      -
      1597  switch( sva.eventCode )
      -
      1598  case 1: // mouse up
      -
      1599  case 2: // Enter key
      -
      1600  case 3: // Live update
      -
      1601  string control_datafolder = GetUserData(sva.win, "", "control_datafolder")
      -
      1602  setdatafolder control_datafolder
      -
      1603  string brick_path = GetUserData(sva.win, "", "brick_path")
      -
      1604  string axis = StringFromList(1, sva.ctrlName, "_")
      -
      1605  variable dim = char2num(axis[0]) - char2num("x")
      -
      1606 
      -
      1607  wave /z brick = $brick_path
      -
      1608  if (WaveExists(brick))
      -
      1609  ad_gizmo_set_plane(brick, dim, sva.dval)
      -
      1610  ad_profiles_set_slice(brick, dim, sva.dval)
      -
      1611  else
      -
      1612  Abort "can't find original wave " + brick_path
      -
      1613  endif
      -
      1614  break
      -
      1615  case -1: // control being killed
      -
      1616  break
      -
      1617  endswitch
      -
      1618 
      -
      1619  setdatafolder savedf
      -
      1620  return 0
      -
      1621 End
      -
      1622 
      -
      1624 static function bp_move_slice(ba) : ButtonControl
      -
      1625  STRUCT WMButtonAction &ba
      -
      1626 
      -
      1627  dfref savedf = GetDataFolderDFR()
      -
      1628 
      -
      1629  switch( ba.eventCode )
      -
      1630  case 2: // mouse up
      -
      1631  string control_datafolder = GetUserData(ba.win, "", "control_datafolder")
      -
      1632  setdatafolder control_datafolder
      -
      1633  string brick_path = GetUserData(ba.win, "", "brick_path")
      -
      1634  string axis = StringFromList(1, ba.ctrlName, "_")
      -
      1635  string cmd = StringFromList(2, ba.ctrlName, "_")
      -
      1636  variable dim = char2num(axis[0]) - char2num("x")
      -
      1637  string posvariable = getdatafolder(1) + axis[0] + "_slice_pos"
      -
      1638  nvar pos = $(posvariable)
      -
      1639 
      -
      1640  wave /z brick = $brick_path
      -
      1641  if (WaveExists(brick))
      -
      1642  strswitch (cmd)
      -
      1643  case "forward":
      -
      1644  ad_slicer_start_bg(brick, dim, posvariable, dimdelta(brick, dim))
      -
      1645  break
      -
      1646  case "back":
      -
      1647  ad_slicer_start_bg(brick, dim, posvariable, -dimdelta(brick, dim))
      -
      1648  break
      -
      1649  case "center":
      -
      1650  ad_slicer_stop_bg(posvariable)
      -
      1651  bp_move_slice_center(brick, dim, posvariable)
      -
      1652  break
      -
      1653  case "stop":
      -
      1654  ad_slicer_stop_bg(posvariable)
      -
      1655  break
      -
      1656  endswitch
      -
      1657  else
      -
      1658  ad_slicer_stop_bg(posvariable)
      -
      1659  Abort "can't find original wave " + brick_path
      -
      1660  endif
      -
      1661  break
      -
      1662  case -1: // control being killed
      -
      1663  break
      -
      1664  endswitch
      -
      1665 
      -
      1666  setdatafolder savedf
      -
      1667  return 0
      -
      1668 End
      -
      1669 
      -
      1673 static function bp_extract_slice(ba) : ButtonControl
      -
      1674  STRUCT WMButtonAction &ba
      -
      1675 
      -
      1676  dfref savedf = GetDataFolderDFR()
      -
      1677 
      -
      1678  switch( ba.eventCode )
      -
      1679  case 2: // mouse up
      -
      1680  string control_datafolder = GetUserData(ba.win, "", "control_datafolder")
      -
      1681  setdatafolder control_datafolder
      -
      1682  string brick_path = GetUserData(ba.win, "", "brick_path")
      -
      1683  wave brick = $brick_path
      -
      1684  dfref brickdf = GetWavesDataFolderDFR(brick)
      -
      1685 
      -
      1686  string axis = StringFromList(1, ba.ctrlName, "_")
      -
      1687  string cmd = StringFromList(2, ba.ctrlName, "_")
      -
      1688  variable dim = char2num(axis[0]) - char2num("x")
      -
      1689  string posvariable = getdatafolder(1) + axis[0] + "_slice_pos"
      -
      1690 
      -
      1691  nvar pos = $(posvariable)
      -
      1692  variable pp = round((pos - dimoffset(brick, dim)) / dimdelta(brick, dim))
      -
      1693  if ((pp < 0) || (pp >= dimsize(brick, dim)))
      -
      1694  return -1 // requested value out of range
      -
      1695  endif
      -
      1696 
      -
      1697  variable dig = ceil(log(dimsize(brick, dim)))
      -
      1698  string slicename
      -
      1699  sprintf slicename, "%s_%s%0*u", NameOfWave(brick), axis[0], dig, pp
      -
      1700  setdatafolder brickdf
      -
      1701  switch(dim)
      -
      1702  case 0: // X
      -
      1703  wave wdest = ad_extract_slab_x(brick, pp, pp, slicename)
      -
      1704  break
      -
      1705  case 1: // Y
      -
      1706  wave wdest = ad_extract_slab_y(brick, pp, pp, slicename)
      -
      1707  break
      -
      1708  case 2: // Z
      -
      1709  wave wdest = ad_extract_slab_z(brick, pp, pp, slicename)
      -
      1710  break
      -
      1711  endswitch
      -
      1712 
      -
      1713  string msg
      -
      1714  sprintf msg, "%s=%g", axis[0], pos
      -
      1715  note wdest, msg
      -
      1716 
      -
      1717  break
      -
      1718  case -1: // control being killed
      -
      1719  break
      -
      1720  endswitch
      -
      1721 
      -
      1722  setdatafolder savedf
      -
      1723  return 0
      -
      1724 End
      -
      1725 
      -
      1727 static function bp_move_slice_center(brick, dim, posvariable)
      -
      1728  wave brick
      -
      1729  variable dim
      -
      1730  string posvariable
      -
      1731 
      -
      1732  nvar pos = $posvariable
      -
      1733  pos = dimoffset(brick, dim) + dimdelta(brick, dim) * dimsize(brick, dim) / 2
      -
      1734  ad_gizmo_set_plane(brick, dim, pos)
      -
      1735  ad_profiles_set_slice(brick, dim, pos)
      -
      1736 end
      -
      1737 
      -
      1739 static function ad_slicer_move_bg(s)
      -
      1740  STRUCT WMBackgroundStruct &s
      -
      1741 
      -
      1742  dfref savedf = GetDataFolderDFR()
      -
      1743  setdatafolder root:pearl_area:slicer
      -
      1744  wave /t bg_brickpaths
      -
      1745  wave /t bg_graphnames
      -
      1746  wave /t bg_variablepaths
      -
      1747  wave bg_dimensions
      -
      1748  wave bg_increments
      -
      1749 
      -
      1750  variable ii
      -
      1751  variable nn = numpnts(bg_brickpaths)
      -
      1752  variable dim
      -
      1753  variable pp
      -
      1754 
      -
      1755  for (ii = 0; ii < nn; ii += 1)
      -
      1756  wave /z brick = $bg_brickpaths[ii]
      -
      1757  nvar /z pos = $bg_variablepaths[ii]
      -
      1758  dim = bg_dimensions[0]
      -
      1759  pos += bg_increments[ii]
      -
      1760  // wrap around at limits
      -
      1761  pp = round((pos - dimoffset(brick, dim)) / dimdelta(brick, dim))
      -
      1762  if (pp <= -0.5)
      -
      1763  pos = dimoffset(brick, dim) + dimdelta(brick, dim) * (dimsize(brick, dim) - 1)
      -
      1764  elseif (pp >= dimsize(brick, dim) - 0.5)
      -
      1765  pos = dimoffset(brick, dim)
      -
      1766  endif
      -
      1767  if (waveexists(brick))
      -
      1768  ad_gizmo_set_plane(brick, dim, pos)
      -
      1769  ad_profiles_set_slice(brick, dim, pos)
      -
      1770  endif
      -
      1771  endfor
      -
      1772 
      -
      1773  setdatafolder savedf
      -
      1774  return 0
      -
      1775 End
      -
      1776 
      -
      1778 function ad_slicer_init_bg()
      -
      1779  dfref savedf = GetDataFolderDFR()
      -
      1780  setdatafolder root:
      -
      1781  newdatafolder /o/s pearl_area
      -
      1782  newdatafolder /o/s slicer
      -
      1783 
      -
      1784  make /n=0/o/t bg_brickpaths
      -
      1785  make /n=0/o/t bg_variablepaths
      -
      1786  make /n=0/o/i/u bg_dimensions
      -
      1787  make /n=0/o bg_increments
      -
      1788 
      -
      1789  CtrlNamedBackground ad_slicer, period = 30, proc = PearlAreaDisplay#ad_slicer_move_bg
      -
      1790 
      -
      1791  setdatafolder savedf
      -
      1792  return 0
      -
      1793 end
      -
      1794 
      -
      1802 function ad_slicer_start_bg(brick, dimension, posvariable, delta)
      -
      1803  wave brick // 3D data wave
      -
      1804  variable dimension // dimension to animate, 0, 1, or 2
      -
      1805  string posvariable // full path to the global position variable
      -
      1806  variable delta // step increment, should be +/- dimdelta
      -
      1807 
      -
      1808  dfref savedf = GetDataFolderDFR()
      -
      1809  setdatafolder root:pearl_area:slicer
      -
      1810  wave /t bg_brickpaths
      -
      1811  wave /t bg_variablepaths
      -
      1812  wave bg_dimensions
      -
      1813  wave bg_increments
      -
      1814 
      -
      1815  // create entry in ad_slicer background task table
      -
      1816  variable idx
      -
      1817  FindValue /TEXT=posvariable /TXOP=4 /Z bg_variablepaths
      -
      1818  if (v_value >= 0)
      -
      1819  idx = v_value
      -
      1820  else
      -
      1821  idx = numpnts(bg_variablepaths)
      -
      1822  InsertPoints idx, 1, bg_brickpaths, bg_variablepaths, bg_dimensions, bg_increments
      -
      1823  endif
      -
      1824 
      -
      1825  // set background task
      -
      1826  bg_brickpaths[idx] = GetWavesDataFolder(brick, 2)
      -
      1827  bg_variablepaths[idx] = posvariable
      -
      1828  bg_dimensions[idx] = dimension
      -
      1829  bg_increments[idx] = delta
      -
      1830 
      -
      1831  // start background task
      -
      1832  if (numpnts(bg_variablepaths) > 0)
      -
      1833  CtrlNamedBackground ad_slicer, start
      -
      1834  endif
      -
      1835 
      -
      1836  setdatafolder savedf
      -
      1837  return 0
      -
      1838 end
      -
      1839 
      -
      1844 function ad_slicer_stop_bg(posvariable)
      -
      1845  string posvariable
      -
      1846 
      -
      1847  dfref savedf = GetDataFolderDFR()
      -
      1848  setdatafolder root:pearl_area:slicer
      -
      1849  wave /t bg_brickpaths
      -
      1850  wave /t bg_variablepaths
      -
      1851  wave bg_dimensions
      -
      1852  wave bg_increments
      -
      1853 
      -
      1854  // find entry in ad_slicer background task table
      -
      1855  FindValue /TEXT=posvariable /TXOP=4 /Z bg_variablepaths
      -
      1856  if (v_value >= 0)
      -
      1857  DeletePoints v_value, 1, bg_brickpaths, bg_variablepaths, bg_dimensions, bg_increments
      -
      1858  endif
      -
      1859 
      -
      1860  // stop background task if task table is empty
      -
      1861  if (numpnts(bg_variablepaths) == 0)
      -
      1862  CtrlNamedBackground ad_slicer, stop
      -
      1863  endif
      -
      1864 
      -
      1865  setdatafolder savedf
      -
      1866  return 0
      -
      1867 end
      +Go to the documentation of this file.
      1#pragma TextEncoding = "UTF-8"
      +
      2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
      +
      3#pragma IgorVersion = 7.0
      +
      4#pragma ModuleName = PearlAreaDisplay
      +
      5#pragma version = 1.05
      +
      6#include "pearl-compat"
      +
      7#include "pearl-area-profiles"
      +
      8
      +
      22// 3D data is handled by 3 windows. they don't have to be visible all at the same time.
      +
      51
      +
      57
      +
      +
      59static function /s graphname_from_dfref(df, prefix)
      +
      60 dfref df
      +
      61 string prefix
      +
      62
      +
      63 string name
      +
      64
      +
      65 name = GetDataFolder(1, df)
      +
      66 name = ReplaceString("root:", name, "")
      +
      67 name = name[0, strlen(name) - 2]
      +
      68 name = ReplaceString(" ", name, "")
      +
      69 name = PearlCleanupName(prefix + name)
      +
      70 if (CheckName(name, 6))
      +
      71 name = UniqueName(name, 6, 0)
      +
      72 endif
      +
      73
      +
      74 return name
      +
      75end
      +
      +
      76
      +
      +
      87function /s ad_display(image)
      +
      88 wave image // wave which contains the image data from the detector
      +
      89 // returns the name of the graph window
      +
      90
      +
      91 dfref savedf = GetDataFolderDFR()
      +
      92 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      93 setdatafolder imagedf
      +
      94
      +
      95 string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      +
      96 string graphtitle = dfname + " View"
      +
      97 string /g view_graphname = graphname_from_dfref(imagedf, "view_")
      +
      98 svar graphname = view_graphname
      +
      99 display /k=1/n=$graphname as graphtitle
      +
      100 graphname = s_name
      +
      101 appendimage /w=$graphname image
      +
      102
      +
      103 setdatafolder savedf
      +
      104 return graphname
      +
      105end
      +
      +
      106
      +
      +
      117function /s ad_display_histogram(image)
      +
      118 wave image
      +
      119
      +
      120 dfref savedf = GetDataFolderDFR()
      +
      121 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      122 string s_imagedf = GetDataFolder(1, imagedf)
      +
      123 setdatafolder imagedf
      +
      124
      +
      125 make /n=(1)/o hist // histogram
      +
      126
      +
      127 string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      +
      128 string graphtitle = dfname + " Histogram"
      +
      129 string /g hist_graphname = graphname_from_dfref(imagedf, "hist_")
      +
      130 svar graphname = hist_graphname
      +
      131 display /k=1/n=$graphname as graphtitle
      +
      132 graphname = s_name
      +
      133 appendtograph /w=$graphname hist
      +
      134
      +
      135 ModifyGraph /w=$graphname rgb(hist)=(39168,0,0)
      +
      136 ModifyGraph /w=$graphname mode=6
      +
      137 ModifyGraph /w=$graphname mirror=1
      +
      138 ModifyGraph /w=$graphname minor=1
      +
      139 ModifyGraph /w=$graphname axThick=0.5
      +
      140 ModifyGraph /w=$graphname lblPosMode=1,lblPos=30,lblMargin=0
      +
      141 ModifyGraph /w=$graphname btLen=4
      +
      142 ModifyGraph /w=$graphname margin(left)=45,margin(bottom)=35,margin(top)=10,margin(right)=10
      +
      143 ModifyGraph /w=$graphname gfSize=10
      +
      144 Label /w=$graphname bottom "value"
      +
      145 Label /w=$graphname left "# pixels"
      +
      146
      +
      147 ad_calc_histogram(image)
      +
      148
      +
      149 setdatafolder savedf
      +
      150 return graphname
      +
      151end
      +
      +
      152
      +
      +
      168function /s ad_display_profiles(image, [filter])
      +
      169 wave image
      +
      170 string filter
      +
      171 variable show_legend = 0 // currently not supported
      +
      172
      +
      173 if (WaveDims(image) != 2)
      +
      174 abort "ad_display_profiles: image wave must be two-dimensional."
      +
      175 endif
      +
      176 if (ParamIsDefault(filter))
      +
      177 filter = "ad_box_filter"
      +
      178 endif
      +
      179
      +
      180 // data folders and references
      +
      181 dfref savedf = GetDataFolderDFR()
      +
      182 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      183 string s_imagedf = GetDataFolder(1, imagedf)
      +
      184 setdatafolder imagedf
      +
      185 string s_viewdf = PearlCleanupName("view_" + NameOfWave(image))
      +
      186 newdatafolder /o/s $s_viewdf
      +
      187 dfref viewdf = GetDataFolderDFR()
      +
      188 s_viewdf = GetDataFolder(1, viewdf)
      +
      189
      +
      190 // data structures
      +
      191 string /g sourcepath = GetWavesDataFolder(image, 2)
      +
      192 string viewname = "view_image"
      +
      193 duplicate /o image, $viewname /wave=view
      +
      194 make /n=(3,3)/o xprofiles // NX x 3 wave with 3 one-dimensional profiles along Y dimension
      +
      195 make /n=(3,3)/o yprofiles // NY x 3 wave with 3 one-dimensional profiles along X dimension
      +
      196 string /g view_filter
      +
      197 string /g view_filter_options
      +
      198 view_filter = filter
      +
      199 view_filter_options = ""
      +
      200 variable /g view_filter_smoothing_x = 1
      +
      201 variable /g view_filter_smoothing_y = 1
      +
      202 variable /g view_cursor_mode = 0
      +
      203 string dfname = ReplaceString("root:", GetDataFolder(1, imagedf), "")
      +
      204 string graphtitle = dfname + NameOfWave(image) + " Profiles"
      +
      205 string /g prof_graphname = graphname_from_dfref(imagedf, "prof_")
      +
      206 svar graphname = prof_graphname
      +
      207 variable /g graph_avg // average value in ROI (ROI is defined by the crosshairs A and B)
      +
      208 variable /g graph_min // minimum value in ROI
      +
      209 variable /g graph_max // maximum value in ROI
      +
      210 variable /g graph_sum // sum of all values in ROI
      +
      211 variable /g graph_sdev // standard deviation of all values in ROI
      +
      212
      +
      213 // graph setup
      +
      214 display /k=1 /n=$graphname /w=(100,100,500,400) as graphtitle
      +
      215 graphname = s_name
      +
      216 AppendToGraph /w=$graphname /L=xprofiles xprofiles[*][0],xprofiles[*][1],xprofiles[*][2]
      +
      217 AppendToGraph /w=$graphname /VERT/B=yprofiles yprofiles[*][0],yprofiles[*][1],yprofiles[*][2]
      +
      218 AppendImage /w=$graphname view
      +
      219 string imgname = StringFromList(0, ImageNameList(graphname, ";"))
      +
      220 ModifyImage /w=$graphname $imgname ctab= {*,*,BlueGreenOrange,0}
      +
      221 ModifyGraph /w=$graphname rgb(xprofiles)=(39168,0,0),rgb(yprofiles)=(39168,0,0)
      +
      222 ModifyGraph /w=$graphname rgb(xprofiles#1)=(0,26112,0),rgb(yprofiles#1)=(0,26112,0)
      +
      223 ModifyGraph /w=$graphname rgb(xprofiles#2)=(0,9472,39168),rgb(yprofiles#2)=(0,9472,39168)
      +
      224 ModifyGraph /w=$graphname mirror(xprofiles)=2,mirror(bottom)=3,mirror(yprofiles)=2,mirror(left)=3
      +
      225 ModifyGraph /w=$graphname nticks=3
      +
      226 ModifyGraph /w=$graphname minor=1
      +
      227 ModifyGraph /w=$graphname axThick=0.5
      +
      228 ModifyGraph /w=$graphname lblPosMode=1,lblPos=30,lblMargin=0
      +
      229 ModifyGraph /w=$graphname btLen=4
      +
      230 ModifyGraph /w=$graphname freePos(xprofiles)=0
      +
      231 ModifyGraph /w=$graphname freePos(yprofiles)=0
      +
      232 ModifyGraph /w=$graphname axisEnab(xprofiles)={0.64,1}
      +
      233 ModifyGraph /w=$graphname axisEnab(bottom)={0,0.6}
      +
      234 ModifyGraph /w=$graphname axisEnab(yprofiles)={0.64,1}
      +
      235 ModifyGraph /w=$graphname axisEnab(left)={0,0.6}
      +
      236 ModifyGraph /w=$graphname zero(left)=8
      +
      237 ModifyGraph /w=$graphname margin(left)=40,margin(bottom)=30,margin(top)=20,margin(right)=40
      +
      238 ModifyGraph /w=$graphname gfSize=10
      +
      239
      +
      240 // axis labels
      +
      241 string labels = note(image)
      +
      242 string lab
      +
      243 lab = StringByKey("AxisLabelX", labels, "=", "\r")
      +
      244 if (!strlen(lab))
      +
      245 lab = "X"
      +
      246 endif
      +
      247 Label /w=$graphname bottom lab + " (\\U)"
      +
      248 lab = StringByKey("AxisLabelY", labels, "=", "\r")
      +
      249 if (!strlen(lab))
      +
      250 lab = "Y"
      +
      251 endif
      +
      252 Label /w=$graphname left lab + " (\\U)"
      +
      253 lab = StringByKey("AxisLabelD", labels, "=", "\r")
      +
      254 if (!strlen(lab))
      +
      255 lab = "value"
      +
      256 endif
      +
      257 Label /w=$graphname xprofiles lab + " (\\U)"
      +
      258 Label /w=$graphname yprofiles lab + " (\\U)"
      +
      259
      +
      260 // legend
      +
      261 if (show_legend)
      +
      262 Legend /w=$graphname/C/N=text0/J/F=2/D=0.5/T={28}/A=RT/X=0.00/Y=0.00 "\\s(xprofiles)\tprofile A"
      +
      263 AppendText /w=$graphname "\\s(xprofiles#1)\tprofile B"
      +
      264 AppendText /w=$graphname "\\s(xprofiles#2)\tROI average"
      +
      265 AppendText /w=$graphname "min\t\\{" + s_viewdf + "graph_min}"
      +
      266 AppendText /w=$graphname "max\t\\{" + s_viewdf + "graph_max}"
      +
      267 AppendText /w=$graphname "sum\t\\{" + s_viewdf + "graph_sum}"
      +
      268 AppendText /w=$graphname "avg\t\\{" + s_viewdf + "graph_avg}"
      +
      269 AppendText /w=$graphname "sdev\t\\{" + s_viewdf + "graph_sdev}"
      +
      270 else
      +
      271 TextBox /w=$graphname /C/N=text0 /F=0 /B=1 /X=1.00 /Y=1.00
      +
      272 lab = StringByKey("Dataset", labels, "=", "\r")
      +
      273 if (strlen(lab))
      +
      274 AppendText /w=$graphname lab
      +
      275 endif
      +
      276 AppendText /w=$graphname "sum\t\\{" + s_viewdf + "graph_sum}"
      +
      277 AppendText /w=$graphname "avg\t\\{" + s_viewdf + "graph_avg}"
      +
      278 AppendText /w=$graphname "sdev\t\\{" + s_viewdf + "graph_sdev}"
      +
      279 endif
      +
      280
      +
      281 // interactive elements
      +
      282 Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 A $imgname 0,0
      +
      283 Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 B $imgname DimSize(view, 0)-1, DimSize(view, 1)-1
      +
      284 variable pcurs
      +
      285 pcurs = floor(DimSize(xprofiles, 0) / 3)
      +
      286 Cursor /w=$graphname /A=0 /P /S=1 /H=0 C xprofiles#2 pcurs
      +
      287 pcurs = floor(DimSize(xprofiles, 0) * 2 / 3)
      +
      288 Cursor /w=$graphname /A=0 /P /S=1 /H=0 D xprofiles#2 pcurs
      +
      289 pcurs = floor(DimSize(yprofiles, 0) / 3)
      +
      290 Cursor /w=$graphname /A=0 /P /S=1 /H=0 E yprofiles#2 pcurs
      +
      291 pcurs = floor(DimSize(yprofiles, 0) * 2 / 3)
      +
      292 Cursor /w=$graphname /A=0 /P /S=1 /H=0 F yprofiles#2 pcurs
      +
      293 ShowInfo /w=$graphname /CP=0
      +
      294
      +
      295 SetWindow $graphname, hook(ad_profiles_hook)=ad_profiles_hook
      +
      296 ControlBar /w=$graphname 21
      +
      297 Button b_reset_cursors win=$graphname, title="reset cursors",pos={0,0},size={70,20},proc=PearlAreaDisplay#bp_reset_cursors
      +
      298 Button b_reset_cursors win=$graphname, fColor=(65535,65535,65535),fSize=10
      +
      299
      +
      300 SetVariable sv_smoothing_x win=$graphname, title="X smoothing",pos={130,2},bodyWidth=40
      +
      301 SetVariable sv_smoothing_x win=$graphname, value=view_filter_smoothing_x,limits={1,100,1}
      +
      302 SetVariable sv_smoothing_x win=$graphname, proc=PearlAreaDisplay#svp_smoothing
      +
      303 SetVariable sv_smooting_y win=$graphname, title="Y smoothing",pos={240,2},bodyWidth=40
      +
      304 SetVariable sv_smooting_y win=$graphname, value=view_filter_smoothing_y,limits={1,100,1}
      +
      305 SetVariable sv_smooting_y win=$graphname, proc=PearlAreaDisplay#svp_smoothing
      +
      306
      +
      307 PopupMenu pm_export win=$graphname, mode=0,title="Export"
      +
      308 PopupMenu pm_export win=$graphname, value="X profile;Y profile;X profile (collate);Y profile (collate)"
      +
      309 PopupMenu pm_export win=$graphname, pos={308,0},bodyWidth=60,proc=PearlAreaDisplay#pmp_export
      +
      310 PopupMenu pm_export win=$graphname, help={"Export profile of selected area and display in graph. Collate mode = display all profiles in same graph."}
      +
      311
      +
      312 // data processing
      +
      313 ad_update_profiles(image)
      +
      314
      +
      315 setdatafolder savedf
      +
      316 return graphname
      +
      317end
      +
      +
      318
      +
      +
      331function /wave ad_add_overlay(image, [rgba])
      +
      332 wave image
      +
      333 string rgba
      +
      334
      +
      335 if (ParamIsDefault(rgba))
      +
      336 rgba = "65535,65532,16385,32767"
      +
      337 elseif (ItemsInList(rgba, ",") == 3)
      +
      338 rgba += ",32767"
      +
      339 endif
      +
      340
      +
      341 dfref savedf = GetDataFolderDFR()
      +
      342 wave view_image = get_view_image(image)
      +
      343 dfref viewdf = GetWavesDataFolderDFR(view_image)
      +
      344 svar /sdfr=viewdf graphname = prof_graphname
      +
      345 setdatafolder viewdf
      +
      346
      +
      347 string overlayname = "view_overlay"
      +
      348 duplicate /o image, $overlayname /wave=overlay
      +
      349 redimension /b/u overlay
      +
      350 overlay = 64
      +
      351
      +
      352 string imagenames = ImageNameList(graphname, ";")
      +
      353 if (whichlistItem(overlayname, imagenames, ";") < 0)
      +
      354 AppendImage /w=$graphname $overlayname
      +
      355 rgba = replacestring("(", rgba, "")
      +
      356 rgba = replacestring(")", rgba, "")
      +
      357 variable rr = str2num(StringFromList(0, rgba, ","))
      +
      358 variable gg = str2num(StringFromList(1, rgba, ","))
      +
      359 variable bb = str2num(StringFromList(2, rgba, ","))
      +
      360 variable aa = str2num(StringFromList(3, rgba, ","))
      +
      361#if IgorVersion() >= 8
      +
      362 ModifyImage /w=$graphname $overlayname explicit=1,eval={0,rr,gg,bb,aa},eval={255,-1,-1,-1}
      +
      363#else
      +
      364 ModifyImage /w=$graphname $overlayname explicit=1,eval={0,rr,gg,bb},eval={255,-1,-1,-1}
      +
      365#endif
      +
      366 endif
      +
      367
      +
      368 setdatafolder savedf
      +
      369 return overlay
      +
      370end
      +
      +
      371
      +
      +
      377function ad_update_profiles(image)
      +
      378 wave image
      +
      379
      +
      380 // data folders and references
      +
      381 dfref viewdf = get_view_folder(image)
      +
      382 if (DataFolderRefStatus(viewdf) == 0)
      +
      383 return -1 // data folder not found
      +
      384 endif
      +
      385 dfref savedf = GetDataFolderDFR()
      +
      386 setdatafolder viewdf
      +
      387
      +
      388 // data structures
      +
      389 string viewname = "view_image"
      +
      390 duplicate /o image, $viewname /wave=view
      +
      391 string overlayname = "view_overlay"
      +
      392 wave /z overlay = $overlayname
      +
      393 if (waveexists(overlay))
      +
      394 redimension /n=(dimsize(view,0), dimsize(view,1)) overlay
      +
      395 endif
      +
      396
      +
      397 // data processing
      +
      398 svar view_filter
      +
      399 svar view_filter_options
      +
      400 nvar smoothing_x = view_filter_smoothing_x
      +
      401 nvar smoothing_y = view_filter_smoothing_y
      +
      402 funcref ad_default_image_filter filterfunc = $view_filter
      +
      403 view_filter_options = ReplaceNumberByKey("SmoothingX", view_filter_options, smoothing_x, "=", ";")
      +
      404 view_filter_options = ReplaceNumberByKey("SmoothingY", view_filter_options, smoothing_y, "=", ";")
      +
      405 filterfunc(view, view_filter_options)
      +
      406
      +
      407 ad_calc_cursor_profiles(view)
      +
      408
      +
      409 setdatafolder savedf
      +
      410 return 0
      +
      411end
      +
      +
      412
      +
      +
      429function ad_profiles_cursor_mode(image, mode)
      +
      430 wave image
      +
      431 variable mode
      +
      432
      +
      433 dfref savedf = GetDataFolderDFR()
      +
      434 wave view_image = get_view_image(image)
      +
      435 dfref viewdf = GetWavesDataFolderDFR(view_image)
      +
      436 svar /sdfr=viewdf graphname = prof_graphname
      +
      437 nvar /sdfr=viewdf cursor_mode = view_cursor_mode
      +
      438 wave /sdfr=viewdf xprofiles, yprofiles
      +
      439
      +
      440 variable dx = DimSize(view_image, 0)
      +
      441 variable dy = DimSize(view_image, 1)
      +
      442 switch(mode)
      +
      443 case 1: // background selection
      +
      444 Cursor /w=$graphname /A=0 /P /I /S=2 /H=1 /L=1 A view_image 0, 0
      +
      445 Cursor /w=$graphname /A=0 /P /I /S=2 /H=1 /L=1 B view_image dx-1, dy-1
      +
      446 Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 C view_image round(0.2 * dx) -1, 0
      +
      447 Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 D view_image round(0.8 * dx) -1, 0
      +
      448 Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 E view_image round(0.4 * dx) -1, 0
      +
      449 Cursor /w=$graphname /A=0 /P /I /S=2 /H=2 /L=1 F view_image round(0.6 * dx) -1, 0
      +
      450
      +
      451 ShowInfo /w=$graphname /CP=0
      +
      452 cursor_mode = mode
      +
      453 break
      +
      454 default:
      +
      455 Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 A view_image 0,0
      +
      456 Cursor /w=$graphname /A=1 /P /I /S=2 /H=1 /L=1 B view_image dx-1, dy-1
      +
      457 variable pcurs
      +
      458 pcurs = floor(DimSize(xprofiles, 0) / 3)
      +
      459 Cursor /w=$graphname /A=0 /P /S=1 /H=0 C xprofiles#2 pcurs
      +
      460 pcurs = floor(DimSize(xprofiles, 0) * 2 / 3)
      +
      461 Cursor /w=$graphname /A=0 /P /S=1 /H=0 D xprofiles#2 pcurs
      +
      462 pcurs = floor(DimSize(yprofiles, 0) / 3)
      +
      463 Cursor /w=$graphname /A=0 /P /S=1 /H=0 E yprofiles#2 pcurs
      +
      464 pcurs = floor(DimSize(yprofiles, 0) * 2 / 3)
      +
      465 Cursor /w=$graphname /A=0 /P /S=1 /H=0 F yprofiles#2 pcurs
      +
      466 ShowInfo /w=$graphname /CP=0
      +
      467 cursor_mode = 0
      +
      468 endswitch
      +
      469
      +
      470 setdatafolder savedf
      +
      471 return 0
      +
      472end
      +
      +
      473
      +
      +
      490function ad_profiles_set_cursor(image, cursorname, xa, ya, [pscale])
      +
      491 wave image
      +
      492 string cursorname
      +
      493 variable xa, ya
      +
      494 variable pscale
      +
      495
      +
      496 if (ParamIsDefault(pscale))
      +
      497 pscale = 0
      +
      498 endif
      +
      499
      +
      500 // data folders and references
      +
      501 dfref savedf = GetDataFolderDFR()
      +
      502 wave view_image = get_view_image(image)
      +
      503 dfref viewdf = GetWavesDataFolderDFR(view_image)
      +
      504 svar /sdfr=viewdf graphname = prof_graphname
      +
      505
      +
      506 variable pa, qa
      +
      507 if (pscale)
      +
      508 pa = xa
      +
      509 qa = ya
      +
      510 else
      +
      511 pa = round((xa - DimOffset(view_image, 0)) / DimDelta(view_image, 0))
      +
      512 qa = round((ya - DimOffset(view_image, 1)) / DimDelta(view_image, 1))
      +
      513 endif
      +
      514
      +
      515 pa = min(pa, DimSize(view_image, 0) - 1)
      +
      516 pa = max(pa, 0)
      +
      517 qa = min(qa, DimSize(view_image, 1) - 1)
      +
      518 qa = max(qa, 0)
      +
      519 Cursor /i /p /w=$graphname $cursorname view_image pa, qa
      +
      520
      +
      521 setdatafolder savedf
      +
      522 return 0
      +
      523End
      +
      +
      524
      +
      535// the lines can be removed manually using the draw toolbox, or by calling this function with @c clean=1.
      +
      +
      542function ad_profiles_crosshairs(image, [clear])
      +
      543 wave image
      +
      544 variable clear
      +
      545
      +
      546 if (ParamIsDefault(clear))
      +
      547 clear = 0
      +
      548 endif
      +
      549
      +
      550 // data folders and references
      +
      551 wave view_image = get_view_image(image)
      +
      552 dfref viewdf = GetWavesDataFolderDFR(view_image)
      +
      553 svar /sdfr=viewdf graphname = prof_graphname
      +
      554
      +
      555 string cursors = "A;B"
      +
      556 string colors = "39168,0,0;0,26112,0"
      +
      557 string color
      +
      558 variable ncursors
      +
      559 variable icursor
      +
      560 string cursorname
      +
      561 string groupname = "crosshairs"
      +
      562 variable xx, yy
      +
      563 struct RGBColor rgb
      +
      564
      +
      565 if (clear == 0)
      +
      566 SetDrawEnv /W=$graphname push
      +
      567 DrawAction /w=$graphname getgroup=$groupname, delete, begininsert
      +
      568 SetDrawEnv /w=$graphname gstart, gname=$groupname
      +
      569
      +
      570 SetDrawEnv /W=$graphname dash=4
      +
      571 SetDrawEnv /W=$graphname linethick=0.5
      +
      572
      +
      573 ncursors = ItemsInList(cursors, ";")
      +
      574 for (icursor=0; icursor < ncursors; icursor += 1)
      +
      575 cursorname = StringFromList(icursor, cursors, ";")
      +
      576 color = StringFromList(icursor, colors, ";")
      +
      577 rgb.red = str2num(StringFromList(0, color, ","))
      +
      578 rgb.green = str2num(StringFromList(1, color, ","))
      +
      579 rgb.blue = str2num(StringFromList(2, color, ","))
      +
      580 if (strlen(CsrInfo($cursorname, graphname)) > 0)
      +
      581 xx = hcsr($cursorname, graphname)
      +
      582 yy = vcsr($cursorname, graphname)
      +
      583 SetDrawEnv /W=$graphname linefgc=(rgb.red, rgb.green, rgb.blue)
      +
      584 SetDrawEnv /W=$graphname save
      +
      585 SetDrawEnv /W=$graphname xcoord=bottom, ycoord=prel
      +
      586 DrawLine /W=$graphname xx, 0, xx, 1
      +
      587 SetDrawEnv /W=$graphname xcoord=prel, ycoord=left
      +
      588 DrawLine /W=$graphname 0, yy, 1, yy
      +
      589 endif
      +
      590 endfor
      +
      591
      +
      592 SetDrawEnv /w=$graphname gstop
      +
      593 DrawAction /w=$graphname endinsert
      +
      594 SetDrawEnv /W=$graphname pop
      +
      595 SetDrawEnv /W=$graphname save
      +
      596 else
      +
      597 DrawAction /w=$graphname getgroup=$groupname, delete
      +
      598 endif
      +
      599
      +
      600 return 0
      +
      601end
      +
      +
      602
      +
      +
      608static function /wave get_source_image(view)
      +
      609 wave view // image wave displayed in a profiles window
      +
      610
      +
      611 dfref viewdf = GetWavesDataFolderDFR(view)
      +
      612 svar /z /sdfr=viewdf sourcepath
      +
      613 if (svar_exists(sourcepath))
      +
      614 wave /z img = $sourcepath
      +
      615 else
      +
      616 wave /z img = $""
      +
      617 endif
      +
      618 return img
      +
      619end
      +
      +
      620
      +
      +
      622static function /df make_view_folder(source)
      +
      623 wave source // wave which contains the raw data from the detector.
      +
      624
      +
      625 // data folders and references
      +
      626 dfref savedf = GetDataFolderDFR()
      +
      627 dfref imagedf = GetWavesDataFolderDFR(source)
      +
      628 string s_imagedf = GetDataFolder(1, imagedf)
      +
      629 setdatafolder imagedf
      +
      630 string s_viewdf = PearlCleanupName("view_" + NameOfWave(source))
      +
      631 newdatafolder /o/s $s_viewdf
      +
      632 dfref viewdf = GetDataFolderDFR()
      +
      633
      +
      634 setdatafolder savedf
      +
      635 return viewdf
      +
      636end
      +
      +
      637
      +
      +
      646static function /df get_view_folder(source)
      +
      647 wave source
      +
      648
      +
      649 // data folders and references
      +
      650 dfref savedf = GetDataFolderDFR()
      +
      651 dfref imagedf = GetWavesDataFolderDFR(source)
      +
      652 dfref viewdf
      +
      653 setdatafolder imagedf
      +
      654 string s_viewdf = PearlCleanupName("view_" + NameOfWave(source))
      +
      655 if (DataFolderExists(s_viewdf))
      +
      656 setdatafolder $s_viewdf
      +
      657 viewdf = GetDataFolderDFR()
      +
      658 endif
      +
      659
      +
      660 setdatafolder savedf
      +
      661 return viewdf
      +
      662end
      +
      +
      663
      +
      +
      669static function /wave get_view_image(source)
      +
      670 wave source
      +
      671
      +
      672 dfref viewdf = get_view_folder(source)
      +
      673 string viewname = "view_image"
      +
      674 wave /sdfr=viewdf view = $viewname
      +
      675
      +
      676 return view
      +
      677end
      +
      +
      678
      +
      +
      679static function bp_reset_cursors(ba) : ButtonControl
      +
      680 STRUCT WMButtonAction &ba
      +
      681
      +
      682 switch( ba.eventCode )
      +
      683 case 2: // mouse up
      +
      684 string imgname = StringFromList(0, ImageNameList(ba.win, ";"))
      +
      685 wave /z image = ImageNameToWaveRef(ba.win, imgname)
      +
      686 if (waveexists(image))
      +
      687 Cursor /i/p A $imgname 0,0
      +
      688 Cursor /i/p B $imgname DimSize(image, 0)-1, DimSize(image, 1)-1
      +
      689 endif
      +
      690 break
      +
      691 case -1: // control being killed
      +
      692 break
      +
      693 endswitch
      +
      694
      +
      695 return 0
      +
      696End
      +
      +
      697
      +
      +
      698static function svp_smoothing(sva) : SetVariableControl
      +
      699 STRUCT WMSetVariableAction &sva
      +
      700
      +
      701 string imglist
      +
      702
      +
      703 switch( sva.eventCode )
      +
      704 case 1: // mouse up
      +
      705 case 2: // Enter key
      +
      706 case 3: // Live update
      +
      707 imglist = ImageNameList(sva.win, ";")
      +
      708 wave /z img = ImageNameToWaveRef(sva.win, StringFromList(0, imglist))
      +
      709 if (WaveExists(img))
      +
      710 wave source = get_source_image(img)
      +
      711 if (WaveExists(source))
      +
      712 ad_update_profiles(source)
      +
      713 endif
      +
      714 endif
      +
      715 break
      +
      716 case -1: // control being killed
      +
      717 break
      +
      718 endswitch
      +
      719
      +
      720 return 0
      +
      721end
      +
      +
      722
      +
      +
      723static function pmp_export(pa) : PopupMenuControl
      +
      724 STRUCT WMPopupAction &pa
      +
      725
      +
      726 switch( pa.eventCode )
      +
      727 case 2: // mouse up
      +
      728 variable popNum = pa.popNum
      +
      729
      +
      730 string imgname = StringFromList(0, ImageNameList(pa.win, ";"))
      +
      731 wave /z image = ImageNameToWaveRef(pa.win, imgname)
      +
      732 if (waveexists(image) && (popNum >= 1) && (popNum <= 2))
      +
      733 ad_export_profile(image, popNum - 1, show=1)
      +
      734 elseif (waveexists(image) && (popNum >= 3) && (popNum <= 4))
      +
      735 ad_export_profile(image, popNum - 3, show=2)
      +
      736 endif
      +
      737
      +
      738 break
      +
      739 case -1: // control being killed
      +
      740 break
      +
      741 endswitch
      +
      742
      +
      743 return 0
      +
      744End
      +
      +
      745
      +
      +
      747function ad_profiles_hook(s)
      +
      748 struct WMWinHookStruct &s
      +
      749 variable hookresult = 0
      +
      750 string imglist
      +
      751 string cmd
      +
      752 dfref viewdf
      +
      753
      +
      754 switch(s.eventCode)
      +
      755 case 2: // delete data folder after window is killed
      +
      756 imglist = ImageNameList(s.winName, ";")
      +
      757 wave /z img = ImageNameToWaveRef(s.winName, StringFromList(0, imglist))
      +
      758 if (WaveExists(img))
      +
      759 viewdf = GetWavesDataFolderDFR(img)
      +
      760 cmd = "killdatafolder /z " + GetDataFolder(1, viewdf)
      +
      761 Execute /P/Q/Z cmd
      +
      762 endif
      +
      763 break
      +
      764 case 7: // update profiles when cursor is moved
      +
      765 imglist = ImageNameList(s.winName, ";")
      +
      766 wave /z img = ImageNameToWaveRef(s.winName, StringFromList(0, imglist))
      +
      767 if (WaveExists(img))
      +
      768 ad_calc_cursor_profiles(img)
      +
      769 hookresult = 1
      +
      770 else
      +
      771 hookresult = 0
      +
      772 endif
      +
      773 break
      +
      774 endswitch
      +
      775
      +
      776 return hookresult
      +
      777end
      +
      +
      778
      +
      +
      787function ad_calc_cursor_profiles(image)
      +
      788 wave image
      +
      789
      +
      790 dfref savedf = GetDataFolderDFR()
      +
      791 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      792 setdatafolder imagedf
      +
      793
      +
      794 svar graphname = prof_graphname
      +
      795
      +
      796 variable pa, qa // point coordinates cursor A
      +
      797 if (strlen(CsrInfo(A, graphname)) > 0)
      +
      798 pa = pcsr(A, graphname)
      +
      799 qa = qcsr(A, graphname)
      +
      800 else
      +
      801 pa = 0
      +
      802 qa = 0
      +
      803 endif
      +
      804
      +
      805 variable pb, qb // point coordinates cursor B
      +
      806 if (strlen(CsrInfo(B, graphname)) > 0)
      +
      807 pb = pcsr(B, graphname)
      +
      808 qb = qcsr(B, graphname)
      +
      809 else
      +
      810 pb = DimSize(image, 0) - 1
      +
      811 qb = DimSize(image, 1) - 1
      +
      812 endif
      +
      813
      +
      814 ad_calc_profiles(image, pa, qa, pb, qb)
      +
      815 setdatafolder savedf
      +
      816end
      +
      +
      817
      +
      +
      834function ad_calc_profiles(image, pa, qa, pb, qb)
      +
      835 wave image
      +
      836 variable pa, qa
      +
      837 variable pb, qb
      +
      838
      +
      839 dfref savedf = GetDataFolderDFR()
      +
      840 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      841 setdatafolder imagedf
      +
      842
      +
      843 wave xprofiles
      +
      844 wave yprofiles
      +
      845 nvar graph_avg
      +
      846 nvar graph_min
      +
      847 nvar graph_max
      +
      848 nvar graph_sum
      +
      849 nvar graph_sdev
      +
      850
      +
      851 // horizontal profiles at crosshairs
      +
      852 redimension /n=(dimsize(image,0), 3) xprofiles
      +
      853 setscale /p x dimoffset(image,0), dimdelta(image,0), WaveUnits(image,0), xprofiles
      +
      854 setscale d 0, 0, waveunits(image,-1), xprofiles
      +
      855 xprofiles[][0] = image[p][qa]
      +
      856 xprofiles[][1] = image[p][qb]
      +
      857
      +
      858 note /k xprofiles
      +
      859 note xprofiles, "SourceWave=" + nameofwave(image)
      +
      860 note xprofiles, "SourceDimension=0"
      +
      861 note xprofiles, "SourceIndex0=" + num2str(qa)
      +
      862 note xprofiles, "SourceIndex1=" + num2str(qb)
      +
      863
      +
      864 // average horizontal profile between crosshairs
      +
      865 variable qq, q0, q1
      +
      866 q0 = min(qa, qb)
      +
      867 q1 = max(qa, qb)
      +
      868 xprofiles[][2] = 0
      +
      869 for (qq = q0; qq <= q1; qq += 1)
      +
      870 xprofiles[][2] += image[p][qq]
      +
      871 endfor
      +
      872 xprofiles[][2] /= q1 - q0 + 1
      +
      873
      +
      874 // vertical profiles at crosshairs
      +
      875 redimension /n=(dimsize(image,1), 3) yprofiles
      +
      876 setscale /p x dimoffset(image,1), dimdelta(image,1), WaveUnits(image,1), yprofiles
      +
      877 setscale d 0, 0, waveunits(image,-1), yprofiles
      +
      878 yprofiles[][0] = image[pa][p]
      +
      879 yprofiles[][1] = image[pb][p]
      +
      880
      +
      881 note /k yprofiles
      +
      882 note yprofiles, "SourceWave=" + nameofwave(image)
      +
      883 note yprofiles, "SourceDimension=1"
      +
      884 note yprofiles, "SourceIndex0=" + num2str(pa)
      +
      885 note yprofiles, "SourceIndex1=" + num2str(pb)
      +
      886
      +
      887 // average vertical profile between crosshairs
      +
      888 variable pp, p0, p1
      +
      889 p0 = min(pa, pb)
      +
      890 p1 = max(pa, pb)
      +
      891 yprofiles[][2] = 0
      +
      892 for (pp = p0; pp <= p1; pp += 1)
      +
      893 yprofiles[][2] += image[pp][p]
      +
      894 endfor
      +
      895 yprofiles[][2] /= p1 - p0 + 1
      +
      896
      +
      897 // statistics between crosshairs
      +
      898 Duplicate /r=[p0,p1][q0,q1]/o image, roi_image
      +
      899 WaveStats /Q roi_image
      +
      900 graph_avg = v_avg
      +
      901 graph_min = v_min
      +
      902 graph_max = v_max
      +
      903 graph_sum = v_avg * v_npnts
      +
      904 graph_sdev = v_sdev
      +
      905
      +
      906 // histogram
      +
      907 wave /z hist
      +
      908 if (waveexists(hist))
      +
      909 Histogram /B=3 roi_image, hist
      +
      910 endif
      +
      911
      +
      912 setdatafolder savedf
      +
      913end
      +
      +
      914
      +
      +
      936function ad_export_profile(view_image, dim, [trace, show, overwrite])
      +
      937 wave view_image
      +
      938 variable dim
      +
      939 variable trace
      +
      940 variable show
      +
      941 variable overwrite
      +
      942
      +
      943 dfref savedf = GetDataFolderDFR()
      +
      944
      +
      945 if (ParamIsDefault(trace))
      +
      946 trace = 2
      +
      947 endif
      +
      948 if (ParamIsDefault(show))
      +
      949 show = 0
      +
      950 endif
      +
      951 if (ParamIsDefault(overwrite))
      +
      952 overwrite = 0
      +
      953 endif
      +
      954
      +
      955 // view folder
      +
      956 dfref imagedf = GetWavesDataFolderDFR(view_image)
      +
      957 string dim_label
      +
      958 switch(dim)
      +
      959 case 0:
      +
      960 wave /sdfr=imagedf profiles=xprofiles
      +
      961 dim_label = "x"
      +
      962 break
      +
      963 case 1:
      +
      964 wave /sdfr=imagedf profiles=yprofiles
      +
      965 dim_label = "y"
      +
      966 break
      +
      967 default:
      +
      968 return -1 // invalid argument
      +
      969 endswitch
      +
      970 string graphname_string = "export_graph_" + dim_label
      +
      971 svar /z /sdfr=imagedf linked_graphname = $graphname_string
      +
      972
      +
      973 // source folder
      +
      974 wave /z source_image = get_source_image(view_image)
      +
      975 if (WaveExists(source_image))
      +
      976 dfref sourcedf = GetWavesDataFolderDFR(source_image)
      +
      977 setdatafolder sourcedf
      +
      978 else
      +
      979 return -2 // invalid source data folder
      +
      980 endif
      +
      981
      +
      982 // format dest wave name
      +
      983 string profile_note = note(profiles)
      +
      984 string name_base
      +
      985 string name_dim
      +
      986 string name_index
      +
      987 string profile_name
      +
      988 variable index_width = ceil(log(DimSize(view_image, 1 - dim)))
      +
      989 variable index0 = NumberByKey("SourceIndex0", profile_note, "=", "\r")
      +
      990 variable index1 = NumberByKey("SourceIndex1", profile_note, "=", "\r")
      +
      991 name_dim = "_" + dim_label
      +
      992 sprintf name_index, "%0*u_%0*u", index_width, index0, index_width, index1
      +
      993 name_base = NameOfWave(source_image)
      +
      994 name_base = name_base[0, min(strlen(name_base), 31 - strlen(name_index) - strlen(name_dim) - 1)]
      +
      995 profile_name = name_base + name_dim + name_index
      +
      996 if ((overwrite == 0) && (CheckName(profile_name, 1)))
      +
      997 profile_name = UniqueName(profile_name + "_", 1, 0)
      +
      998 endif
      +
      999
      +
      1000 // create dest wave
      +
      1001 duplicate /o /r=[][trace] profiles, $profile_name /wave=dest_profile
      +
      1002 redimension /n=(dimsize(profiles, 0)) dest_profile
      +
      1003 profile_note = ReplaceStringByKey("SourceWave", profile_note, NameOfWave(source_image), "=", "\r")
      +
      1004 note /k dest_profile
      +
      1005 note dest_profile, profile_note
      +
      1006 print "created", GetWavesDataFolder(dest_profile, 2)
      +
      1007
      +
      1008 if (show)
      +
      1009 string graphname
      +
      1010 string graphtitle
      +
      1011 if (show == 2)
      +
      1012 // common graph for all profiles of a dimension
      +
      1013 graphname = "export_profiles_" + dim_label
      +
      1014 graphtitle = UpperStr(dim_label) + " Profiles"
      +
      1015 else
      +
      1016 // one graph per source image
      +
      1017 if (svar_exists(linked_graphname) && (ItemsInList(WinList(linked_graphname, ";", "WIN:1"), ";") >= 1))
      +
      1018 graphname = linked_graphname
      +
      1019 else
      +
      1020 graphname = GetWavesDataFolder(source_image, 0) + name_dim
      +
      1021 endif
      +
      1022 graphtitle = UpperStr(dim_label) + " Profiles: " + GetWavesDataFolder(source_image, 2)
      +
      1023 endif
      +
      1024
      +
      1025 if ((ItemsInList(WinList(graphname, ";", "WIN:1"), ";") >= 1))
      +
      1026 appendtograph /w=$graphname dest_profile
      +
      1027 else
      +
      1028 setdatafolder imagedf
      +
      1029 display /k=1 /n=$graphname dest_profile as graphtitle
      +
      1030 graphname = s_name
      +
      1031 ModifyGraph /w=$graphname mirror=1,nticks=3,minor=1
      +
      1032 ModifyGraph /w=$graphname axThick=0.5,btLen=4
      +
      1033 ModifyGraph /w=$graphname gfSize=10
      +
      1034 ModifyGraph /w=$graphname grid=2,gridHair=0,gridRGB=(52224,52224,52224)
      +
      1035 Legend /w=$graphname /C/N=legend0/F=0/B=1/A=LT/X=0.00/Y=0.00
      +
      1036
      +
      1037 if (show != 2)
      +
      1038 string /g $graphname_string = graphname
      +
      1039 endif
      +
      1040 endif
      +
      1041 endif
      +
      1042
      +
      1043 setdatafolder savedf
      +
      1044 return 0
      +
      1045end
      +
      +
      1046
      +
      +
      1047static function set_trace_colors(graphname)
      +
      1048 string graphname
      +
      1049
      +
      1050 ModifyGraph /w=$graphname /z rgb[0]=(0, 0, 0)
      +
      1051 ModifyGraph /w=$graphname /z rgb[1]=(65535, 16385, 16385)
      +
      1052 ModifyGraph /w=$graphname /z rgb[2]=(2, 39321, 1)
      +
      1053 ModifyGraph /w=$graphname /z rgb[3]=(0, 0, 65535)
      +
      1054 ModifyGraph /w=$graphname /z rgb[4]=(39321, 1, 31457)
      +
      1055 ModifyGraph /w=$graphname /z rgb[5]=(48059, 48059, 48059)
      +
      1056 ModifyGraph /w=$graphname /z rgb[6]=(65535, 32768, 32768)
      +
      1057 ModifyGraph /w=$graphname /z rgb[7]=(0, 65535, 0)
      +
      1058 ModifyGraph /w=$graphname /z rgb[8]=(16385,65535,65535)
      +
      1059 ModifyGraph /w=$graphname /z rgb[9]=(65535, 32768, 58981)
      +
      1060end
      +
      +
      1061
      +
      +
      1068function ad_calc_histogram(image)
      +
      1069 wave image
      +
      1070
      +
      1071 dfref savedf = GetDataFolderDFR()
      +
      1072 dfref imagedf = GetWavesDataFolderDFR(image)
      +
      1073 setdatafolder imagedf
      +
      1074
      +
      1075 wave hist
      +
      1076 Histogram /B=3 image, hist
      +
      1077
      +
      1078 setdatafolder savedf
      +
      1079end
      +
      +
      1080
      +
      +
      1091function ad_default_image_filter(image, options)
      +
      1092 wave image
      +
      1093 string options
      +
      1094end
      +
      +
      1095
      +
      +
      1105function ad_box_filter(image, options)
      +
      1106 wave image
      +
      1107 string options
      +
      1108
      +
      1109 variable xsmoothing = NumberByKey("SmoothingX", options, "=", ";")
      +
      1110 variable ysmoothing = NumberByKey("SmoothingY", options, "=", ";")
      +
      1111
      +
      1112 if ((NumType(xsmoothing) == 0) && (xsmoothing >= 2))
      +
      1113 Smooth /B /DIM=0 /E=3 xsmoothing, image
      +
      1114 endif
      +
      1115 if ((NumType(ysmoothing) == 0) && (ysmoothing >= 2))
      +
      1116 Smooth /B /DIM=1 /E=3 ysmoothing, image
      +
      1117 endif
      +
      1118end
      +
      +
      1119
      +
      +
      1127function ad_transpose_filter(image, options)
      +
      1128 wave image
      +
      1129 string options
      +
      1130
      +
      1131 MatrixTranspose image
      +
      1132end
      +
      +
      1133
      +
      1134
      +
      1135// ################### 3D DATA ##################
      +
      1136
      +
      +
      1143function /s ad_display_brick(data)
      +
      1144 wave data
      +
      1145
      +
      1146 if(exists("NewGizmo") != 4)
      +
      1147 abort "Gizmo XOP must be installed."
      +
      1148 endif
      +
      1149 if (WaveDims(data) != 3)
      +
      1150 abort "ad_display_brick: data must be three-dimensional."
      +
      1151 endif
      +
      1152
      +
      1153 dfref savedf = GetDataFolderDFR()
      +
      1154 dfref datadf = GetWavesDataFolderDFR(data)
      +
      1155 string s_datadf = GetDataFolder(1, datadf)
      +
      1156 dfref viewdf = make_view_folder(data)
      +
      1157
      +
      1158 setdatafolder viewdf
      +
      1159 string dfname = ReplaceString("root:", s_datadf, "")
      +
      1160 string graphtitle = dfname + " Gizmo"
      +
      1161 string /g gizmo_graphname = graphname_from_dfref(datadf, "giz_")
      +
      1162 svar graphname = gizmo_graphname
      +
      1163
      +
      1164 if ((strlen(graphname) > 0) && (wintype(graphname) == 17))
      +
      1165 setdatafolder savedf
      +
      1166 return graphname // gizmo window exists
      +
      1167 endif
      +
      1168
      +
      1169 variable nx = dimsize(data, 0)
      +
      1170 variable ny = dimsize(data, 1)
      +
      1171 variable nz = dimsize(data, 2)
      +
      1172
      +
      1173 variable pp
      +
      1174 string obj
      +
      1175 string cmd
      +
      1176
      +
      1177 // igor does not allow calling gizmo functions directly
      +
      1178 setdatafolder datadf
      +
      1179 sprintf cmd, "NewGizmo /k=1 /n=%s /w=(100,100,500,400) /t=\"%s\"", graphname, graphtitle
      +
      1180 execute /q cmd
      +
      1181 cmd = "AppendToGizmo /D Axes=BoxAxes, name=axes0"
      +
      1182 execute /q cmd
      +
      1183
      +
      1184 obj = "surface_xmid"
      +
      1185 pp = round(nx / 2 - 1)
      +
      1186 sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      +
      1187 execute /q cmd
      +
      1188 sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 128}", obj
      +
      1189 execute /q cmd
      +
      1190 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      +
      1191 execute /q cmd
      +
      1192 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      +
      1193 execute /q cmd
      +
      1194 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      +
      1195 execute /q cmd
      +
      1196 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      +
      1197 execute /q cmd
      +
      1198
      +
      1199 obj = "surface_ymid"
      +
      1200 pp = round(ny / 2 - 1)
      +
      1201 sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      +
      1202 execute /q cmd
      +
      1203 sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 64}", obj
      +
      1204 execute /q cmd
      +
      1205 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      +
      1206 execute /q cmd
      +
      1207 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      +
      1208 execute /q cmd
      +
      1209 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      +
      1210 execute /q cmd
      +
      1211 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      +
      1212 execute /q cmd
      +
      1213
      +
      1214 obj = "surface_zmid"
      +
      1215 pp = round(nz / 2 - 1)
      +
      1216 sprintf cmd, "AppendToGizmo /D surface=%s, name=%s", nameofwave(data), obj
      +
      1217 execute /q cmd
      +
      1218 sprintf cmd, "ModifyGizmo modifyObject=%s, property={srcMode, 32}", obj
      +
      1219 execute /q cmd
      +
      1220 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={plane, %d}", obj, pp
      +
      1221 execute /q cmd
      +
      1222 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCtab, BlueGreenOrange}", obj
      +
      1223 execute /q cmd
      +
      1224 sprintf cmd, "ModifyGizmo ModifyObject=%s, property={SurfaceCTABScaling,128}", obj
      +
      1225 execute /q cmd
      +
      1226 sprintf cmd, "ModifyGizmo modifyObject=%s, property={surfaceCTABAlpha, 1.0}", obj
      +
      1227 execute /q cmd
      +
      1228
      +
      1229 obj = "axes0"
      +
      1230 sprintf cmd, "ModifyGizmo ModifyObject=%s,property={-1,axisScalingMode,1}", obj
      +
      1231 execute /q cmd
      +
      1232 sprintf cmd, "ModifyGizmo ModifyObject=%s,property={-1,axisColor,0,0,0,1}", obj
      +
      1233 execute /q cmd
      +
      1234 sprintf cmd, "ModifyGizmo ModifyObject=%s,property={0,ticks,3}", obj
      +
      1235 execute /q cmd
      +
      1236 sprintf cmd, "ModifyGizmo ModifyObject=%s,property={1,ticks,3}", obj
      +
      1237 execute /q cmd
      +
      1238 sprintf cmd, "ModifyGizmo ModifyObject=%s,property={2,ticks,3}", obj
      +
      1239 execute /q cmd
      +
      1240 sprintf cmd, "ModifyGizmo modifyObject=%s property={Clipped,0}", obj
      +
      1241 execute /q cmd
      +
      1242 sprintf cmd, "ModifyGizmo modifyObject=%s property={-1,fontScaleFactor,2}", obj
      +
      1243 execute /q cmd
      +
      1244
      +
      1245 sprintf cmd, "ModifyGizmo showAxisCue=1"
      +
      1246 execute /q cmd
      +
      1247
      +
      1248 setdatafolder savedf
      +
      1249 return graphname
      +
      1250end
      +
      +
      1251
      +
      +
      1258function ad_brick_slicer(data)
      +
      1259 wave data
      +
      1260
      +
      1261 // data folders and references
      +
      1262 dfref savedf = GetDataFolderDFR()
      +
      1263 dfref datadf = GetWavesDataFolderDFR(data)
      +
      1264 string s_datadf = GetDataFolder(1, datadf)
      +
      1265 dfref viewdf = make_view_folder(data)
      +
      1266
      +
      1267 setdatafolder viewdf
      +
      1268 svar /z ex_panel = slicer_panelname
      +
      1269 if (svar_exists(ex_panel))
      +
      1270 string panels = WinList("SlicerPanel*", ";", "WIN:64")
      +
      1271 if (WhichListItem(ex_panel, panels, ";") >= 0)
      +
      1272 dowindow /f $(StringFromList(0, panels, ";"))
      +
      1273 return 0
      +
      1274 endif
      +
      1275 endif
      +
      1276
      +
      1277 variable /g x_slice_pos
      +
      1278 variable /g y_slice_pos
      +
      1279 variable /g z_slice_pos
      +
      1280 variable /g slab_thickness
      +
      1281 string /g brick_path = getwavesdatafolder(data, 2)
      +
      1282 variable /g x_autoinc = 0
      +
      1283 variable /g y_autoinc = 0
      +
      1284 variable /g z_autoinc = 0
      +
      1285
      +
      1286 // axis labels
      +
      1287 string labels = note(data)
      +
      1288 string xlabel = StringByKey("AxisLabelX", labels, "=", "\r")
      +
      1289 if (!strlen(xlabel))
      +
      1290 xlabel = "X"
      +
      1291 endif
      +
      1292 string ylabel = StringByKey("AxisLabelY", labels, "=", "\r")
      +
      1293 if (!strlen(ylabel))
      +
      1294 ylabel = "Y"
      +
      1295 endif
      +
      1296 string zlabel = StringByKey("AxisLabelZ", labels, "=", "\r")
      +
      1297 if (!strlen(zlabel))
      +
      1298 zlabel = "Z"
      +
      1299 endif
      +
      1300 string dlabel = StringByKey("Dataset", labels, "=", "\r")
      +
      1301 if (!strlen(dlabel))
      +
      1302 dlabel = NameOfWave(data)
      +
      1303 endif
      +
      1304
      +
      1305 // this section copied from slicer panel
      +
      1306 NewPanel /k=1 /W=(500,600,890,940) /N=SlicerPanel as "Brick Slicer"
      +
      1307 string /g slicer_panelname = S_name
      +
      1308 string panel = s_name
      +
      1309
      +
      1310 GroupBox g_xslice win=$panel,pos={8,8},size={376,96},title=xlabel
      +
      1311 Slider sl_xslice_position win=$panel,pos={16,32},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      +
      1312 Slider sl_xslice_position win=$panel,limits={0,100,1},variable=x_slice_pos,vert= 0
      +
      1313 SetVariable sv_xslice_position win=$panel,pos={20,80},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="X"
      +
      1314 SetVariable sv_xslice_position win=$panel,limits={0,100,1},value=x_slice_pos
      +
      1315 Button b_xslice_center win=$panel,pos={122,80},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      +
      1316 Button b_xslice_center win=$panel,help={"reset to center position"}
      +
      1317 Button b_xslice_extract win=$panel,pos={288,80},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      +
      1318 Button b_xslice_extract win=$panel,help={"extract this slice to a separate wave"}
      +
      1319 //CheckBox cb_xslab_active win=$panel,pos={288,80},size={80,16},title="Display X Slab"
      +
      1320 //CheckBox cb_xslab_active win=$panel,value= 0
      +
      1321 TitleBox tb_xslice_animation win=$panel,pos={288,32},size={356,16},title="animation",frame=0
      +
      1322 TitleBox tb_xslice_animation win=$panel,anchor= MC
      +
      1323 Button b_xslice_back win=$panel,pos={288,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      +
      1324 Button b_xslice_back win=$panel,help={"animate backwards"}
      +
      1325 Button b_xslice_forward win=$panel,pos={312,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      +
      1326 Button b_xslice_forward win=$panel,help={"animate forward"}
      +
      1327 Button b_xslice_stop win=$panel,pos={336,48},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      +
      1328 Button b_xslice_stop win=$panel,help={"stop animation"}
      +
      1329
      +
      1330 GroupBox g_yslice win=$panel,pos={8,108},size={376,96},title=ylabel
      +
      1331 Slider sl_yslice_position win=$panel,pos={16,132},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      +
      1332 Slider sl_yslice_position win=$panel,limits={0,100,1},variable=y_slice_pos,vert= 0
      +
      1333 SetVariable sv_yslice_position win=$panel,pos={20,180},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="Y"
      +
      1334 SetVariable sv_yslice_position win=$panel,limits={0,100,1},value=y_slice_pos
      +
      1335 Button b_yslice_center win=$panel,pos={122,180},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      +
      1336 Button b_yslice_center win=$panel,help={"reset to center position"}
      +
      1337 Button b_yslice_extract win=$panel,pos={288,180},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      +
      1338 Button b_yslice_extract win=$panel,help={"extract this slice to a separate wave"}
      +
      1339 //CheckBox cb_yslab_active win=$panel,pos={288,180},size={80,16},title="Display Y Slab"
      +
      1340 //CheckBox cb_yslab_active win=$panel,value= 0
      +
      1341 TitleBox tb_yslice_animation win=$panel,pos={288,132},size={356,16},title="animation",frame=0
      +
      1342 TitleBox tb_yslice_animation win=$panel,anchor= MC
      +
      1343 Button b_yslice_back win=$panel,pos={288,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      +
      1344 Button b_yslice_back win=$panel,help={"animate backwards"}
      +
      1345 Button b_yslice_forward win=$panel,pos={312,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      +
      1346 Button b_yslice_forward win=$panel,help={"animate forward"}
      +
      1347 Button b_yslice_stop win=$panel,pos={336,148},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      +
      1348 Button b_yslice_stop win=$panel,help={"stop animation"}
      +
      1349
      +
      1350 GroupBox g_zslice win=$panel,pos={8,208},size={376,96},title=zlabel
      +
      1351 Slider sl_zslice_position win=$panel,pos={16,232},size={240,56},proc=PearlAreaDisplay#slp_slice_position
      +
      1352 Slider sl_zslice_position win=$panel,limits={0,100,1},variable=z_slice_pos,vert= 0
      +
      1353 SetVariable sv_zslice_position win=$panel,pos={20,280},size={92,16},proc=PearlAreaDisplay#svp_slice_position,title="Z"
      +
      1354 SetVariable sv_zslice_position win=$panel,limits={0,100,1},value=z_slice_pos
      +
      1355 Button b_zslice_center win=$panel,pos={122,280},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W618"
      +
      1356 Button b_zslice_center win=$panel,help={"reset to center position"}
      +
      1357 Button b_zslice_extract win=$panel,pos={288,280},size={68,20},proc=PearlAreaDisplay#bp_extract_slice,title="extract slice"
      +
      1358 Button b_zslice_extract win=$panel,help={"extract this slice to a separate wave"}
      +
      1359 //CheckBox cb_zslab_active win=$panel,pos={288,280},size={80,16},title="Display Z Slab"
      +
      1360 //CheckBox cb_zslab_active win=$panel,value= 0
      +
      1361 TitleBox tb_zslice_animation win=$panel,pos={288,232},size={356,16},title="animation",frame=0
      +
      1362 TitleBox tb_zslice_animation win=$panel,anchor= MC
      +
      1363 Button b_zslice_back win=$panel,pos={288,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W646"
      +
      1364 Button b_zslice_back win=$panel,help={"animate backwards"}
      +
      1365 Button b_zslice_forward win=$panel,pos={312,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W649"
      +
      1366 Button b_zslice_forward win=$panel,help={"animate forward"}
      +
      1367 Button b_zslice_stop win=$panel,pos={336,248},size={20,20},proc=PearlAreaDisplay#bp_move_slice,title="\\W616"
      +
      1368 Button b_zslice_stop win=$panel,help={"stop animation"}
      +
      1369
      +
      1370 TitleBox t_slicerpath win=$panel,pos={8,316},size={128,20},disable=2,title=dlabel
      +
      1371 //SetVariable setvar0 win=$panel,pos={240,316},size={120,16},title="slab thickness"
      +
      1372 //SetVariable setvar0 win=$panel,limits={1,inf,1},value=slab_thickness
      +
      1373
      +
      1374 // update control limits and move slicing planes to the center
      +
      1375 setwindow $panel, userdata(control_datafolder) = GetDataFolder(1, viewdf)
      +
      1376 setwindow $panel, userdata(brick_path) = brick_path
      +
      1377 update_slice_info()
      +
      1378 x_slice_pos = dimoffset(data, 0) + dimsize(data, 0) * dimdelta(data, 0) / 2
      +
      1379 y_slice_pos = dimoffset(data, 1) + dimsize(data, 1) * dimdelta(data, 1) / 2
      +
      1380 z_slice_pos = dimoffset(data, 2) + dimsize(data, 2) * dimdelta(data, 2) / 2
      +
      1381
      +
      1382 svar /z /sdfr=viewdf gizmo_graphname
      +
      1383 if (svar_exists(gizmo_graphname) && (strlen(gizmo_graphname) > 0) && (wintype(gizmo_graphname) == 17))
      +
      1384 ad_gizmo_set_plane(data, 0, x_slice_pos)
      +
      1385 ad_gizmo_set_plane(data, 1, y_slice_pos)
      +
      1386 ad_gizmo_set_plane(data, 2, z_slice_pos)
      +
      1387 endif
      +
      1388 svar /z /sdfr=viewdf slice_graphname
      +
      1389 if (svar_exists(slice_graphname) && (strlen(slice_graphname) > 0) && (wintype(slice_graphname) == 1))
      +
      1390 ad_profiles_set_slice(data, 2, z_slice_pos)
      +
      1391 endif
      +
      1392
      +
      1393 ad_slicer_init_bg()
      +
      1394 setdatafolder savedf
      +
      1395end
      +
      +
      1396
      +
      +
      1406function /s ad_display_slice(data)
      +
      1407 wave data
      +
      1408
      +
      1409 if (WaveDims(data) != 3)
      +
      1410 abort "ad_display_slice: data must be three-dimensional."
      +
      1411 endif
      +
      1412
      +
      1413 dfref savedf = GetDataFolderDFR()
      +
      1414 dfref datadf = GetWavesDataFolderDFR(data)
      +
      1415 string s_datadf = GetDataFolder(1, datadf)
      +
      1416 dfref viewdf = make_view_folder(data)
      +
      1417
      +
      1418 setdatafolder viewdf
      +
      1419 string dfname = ReplaceString("root:", s_datadf, "")
      +
      1420 dfname = dfname[0, strlen(dfname) - 2]
      +
      1421 string graphtitle = dfname + " Slice"
      +
      1422
      +
      1423 if (exists("slice_graphname") != 2)
      +
      1424 string /g slice_graphname = ""
      +
      1425 endif
      +
      1426 string /g slice_wavename = PearlCleanupName("slice_" + NameOfWave(data))
      +
      1427 svar graphname = slice_graphname
      +
      1428 svar slicename = slice_wavename
      +
      1429
      +
      1430 make /n=(1,1)/o $slicename
      +
      1431 wave slice = $slicename
      +
      1432 if ((strlen(graphname) == 0) || (wintype(graphname) != 1))
      +
      1433 graphname = ad_display_profiles(slice)
      +
      1434 endif
      +
      1435 variable z_slice_pos = dimoffset(data, 2) + dimsize(data, 2) * dimdelta(data, 2) / 2
      +
      1436 ad_profiles_set_slice(data, 2, z_slice_pos)
      +
      1437 ad_profiles_set_cursor(slice, "A", -inf, -inf, pscale=1)
      +
      1438 ad_profiles_set_cursor(slice, "B", +inf, +inf, pscale=1)
      +
      1439
      +
      1440 setdatafolder savedf
      +
      1441 return graphname
      +
      1442end
      +
      +
      1443
      +
      +
      1447static function update_slice_info()
      +
      1448 dfref savedf = GetDataFolderDFR()
      +
      1449
      +
      1450 svar brick_path
      +
      1451 //svar slicer_panelname
      +
      1452 wave brick = $brick_path
      +
      1453
      +
      1454 //dowindow /F $slicer_panelname
      +
      1455 variable lo, hi, inc
      +
      1456 lo = dimoffset(brick, 0)
      +
      1457 inc = dimdelta(brick, 0)
      +
      1458 hi = lo + inc * (dimsize(brick, 0) - 1)
      +
      1459 Slider sl_xslice_position,limits={lo,hi,inc}
      +
      1460 SetVariable sv_xslice_position,limits={lo,hi,inc}
      +
      1461 lo = dimoffset(brick, 1)
      +
      1462 inc = dimdelta(brick, 1)
      +
      1463 hi = lo + inc * (dimsize(brick, 1) - 1)
      +
      1464 Slider sl_yslice_position,limits={lo,hi,inc}
      +
      1465 SetVariable sv_yslice_position,limits={lo,hi,inc}
      +
      1466 lo = dimoffset(brick, 2)
      +
      1467 inc = dimdelta(brick, 2)
      +
      1468 hi = lo + inc * (dimsize(brick, 2) - 1)
      +
      1469 Slider sl_zslice_position,limits={lo,hi,inc}
      +
      1470 SetVariable sv_zslice_position,limits={lo,hi,inc}
      +
      1471
      +
      1472 setdatafolder savedf
      +
      1473end
      +
      +
      1474
      +
      +
      1483function ad_gizmo_set_plane(brick, dim, value)
      +
      1484 wave brick
      +
      1485 variable dim
      +
      1486 variable value
      +
      1487
      +
      1488 dfref savedf = GetDataFolderDFR()
      +
      1489 dfref datadf = GetWavesDataFolderDFR(brick)
      +
      1490 dfref viewdf = get_view_folder(brick)
      +
      1491 svar /z /sdfr=viewdf graphname=gizmo_graphname
      +
      1492
      +
      1493 variable pp = round((value - dimoffset(brick, dim)) / dimdelta(brick, dim))
      +
      1494 if ((pp < 0) || (pp >= dimsize(brick, dim)))
      +
      1495 return -1 // requested value out of range
      +
      1496 endif
      +
      1497
      +
      1498 if (svar_exists(graphname) && (strlen(graphname) > 0) && (wintype(graphname) == 17))
      +
      1499 string axes = "xyz"
      +
      1500 string obj = "surface_" + axes[dim] + "mid"
      +
      1501 string cmd
      +
      1502 sprintf cmd, "ModifyGizmo /N=%s ModifyObject=%s, property={plane, %d}", graphname, obj, pp
      +
      1503 execute /q cmd
      +
      1504 else
      +
      1505 return -2 // gizmo window not found
      +
      1506 endif
      +
      1507
      +
      1508 return 0
      +
      1509end
      +
      +
      1510
      +
      +
      1519function ad_profiles_set_slice(brick, dim, value)
      +
      1520 wave brick
      +
      1521 variable dim
      +
      1522 variable value
      +
      1523
      +
      1524 dfref savedf = GetDataFolderDFR()
      +
      1525 dfref datadf = GetWavesDataFolderDFR(brick)
      +
      1526 dfref viewdf = get_view_folder(brick)
      +
      1527 svar /z /sdfr=viewdf graphname = slice_graphname
      +
      1528 svar /z /sdfr=viewdf slicename = slice_wavename
      +
      1529
      +
      1530 variable pp = round((value - dimoffset(brick, dim)) / dimdelta(brick, dim))
      +
      1531 if ((pp < 0) || (pp >= dimsize(brick, dim)))
      +
      1532 return -1 // requested value out of range
      +
      1533 endif
      +
      1534
      +
      1535 if (svar_exists(graphname) && (strlen(graphname) > 0) && (wintype(graphname) == 1))
      +
      1536 setdatafolder viewdf
      +
      1537 switch(dim)
      +
      1538 case 0: // X
      +
      1539 wave wdest = ad_extract_slab_x(brick, pp, pp, slicename)
      +
      1540 ad_update_profiles(wdest)
      +
      1541 break
      +
      1542 case 1: // Y
      +
      1543 wave wdest = ad_extract_slab_y(brick, pp, pp, slicename)
      +
      1544 ad_update_profiles(wdest)
      +
      1545 break
      +
      1546 case 2: // Z
      +
      1547 wave wdest = ad_extract_slab_z(brick, pp, pp, slicename)
      +
      1548 ad_update_profiles(wdest)
      +
      1549 break
      +
      1550 endswitch
      +
      1551 else
      +
      1552 return -2 // graph window not found
      +
      1553 endif
      +
      1554
      +
      1555 setdatafolder savedf
      +
      1556 return 0
      +
      1557end
      +
      +
      1558
      +
      +
      1560static function slp_slice_position(sa) : SliderControl
      +
      1561 STRUCT WMSliderAction &sa
      +
      1562
      +
      1563 dfref savedf = GetDataFolderDFR()
      +
      1564
      +
      1565 switch( sa.eventCode )
      +
      1566 case -1: // control being killed
      +
      1567 break
      +
      1568 default:
      +
      1569 if( sa.eventCode & 1 ) // value set
      +
      1570 string control_datafolder = GetUserData(sa.win, "", "control_datafolder")
      +
      1571 setdatafolder control_datafolder
      +
      1572 string brick_path = GetUserData(sa.win, "", "brick_path")
      +
      1573 string axis = StringFromList(1, sa.ctrlName, "_")
      +
      1574 variable dim = char2num(axis[0]) - char2num("x")
      +
      1575
      +
      1576 wave /z brick = $brick_path
      +
      1577 if (WaveExists(brick))
      +
      1578 ad_gizmo_set_plane(brick, dim, sa.curval)
      +
      1579 ad_profiles_set_slice(brick, dim, sa.curval)
      +
      1580 else
      +
      1581 Abort "can't find original wave " + brick_path
      +
      1582 endif
      +
      1583 endif
      +
      1584 break
      +
      1585 endswitch
      +
      1586
      +
      1587 setdatafolder savedf
      +
      1588 return 0
      +
      1589End
      +
      +
      1590
      +
      +
      1592static function svp_slice_position(sva) : SetVariableControl
      +
      1593 STRUCT WMSetVariableAction &sva
      +
      1594
      +
      1595 dfref savedf = GetDataFolderDFR()
      +
      1596
      +
      1597 switch( sva.eventCode )
      +
      1598 case 1: // mouse up
      +
      1599 case 2: // Enter key
      +
      1600 case 3: // Live update
      +
      1601 string control_datafolder = GetUserData(sva.win, "", "control_datafolder")
      +
      1602 setdatafolder control_datafolder
      +
      1603 string brick_path = GetUserData(sva.win, "", "brick_path")
      +
      1604 string axis = StringFromList(1, sva.ctrlName, "_")
      +
      1605 variable dim = char2num(axis[0]) - char2num("x")
      +
      1606
      +
      1607 wave /z brick = $brick_path
      +
      1608 if (WaveExists(brick))
      +
      1609 ad_gizmo_set_plane(brick, dim, sva.dval)
      +
      1610 ad_profiles_set_slice(brick, dim, sva.dval)
      +
      1611 else
      +
      1612 Abort "can't find original wave " + brick_path
      +
      1613 endif
      +
      1614 break
      +
      1615 case -1: // control being killed
      +
      1616 break
      +
      1617 endswitch
      +
      1618
      +
      1619 setdatafolder savedf
      +
      1620 return 0
      +
      1621End
      +
      +
      1622
      +
      +
      1624static function bp_move_slice(ba) : ButtonControl
      +
      1625 STRUCT WMButtonAction &ba
      +
      1626
      +
      1627 dfref savedf = GetDataFolderDFR()
      +
      1628
      +
      1629 switch( ba.eventCode )
      +
      1630 case 2: // mouse up
      +
      1631 string control_datafolder = GetUserData(ba.win, "", "control_datafolder")
      +
      1632 setdatafolder control_datafolder
      +
      1633 string brick_path = GetUserData(ba.win, "", "brick_path")
      +
      1634 string axis = StringFromList(1, ba.ctrlName, "_")
      +
      1635 string cmd = StringFromList(2, ba.ctrlName, "_")
      +
      1636 variable dim = char2num(axis[0]) - char2num("x")
      +
      1637 string posvariable = getdatafolder(1) + axis[0] + "_slice_pos"
      +
      1638 nvar pos = $(posvariable)
      +
      1639
      +
      1640 wave /z brick = $brick_path
      +
      1641 if (WaveExists(brick))
      +
      1642 strswitch (cmd)
      +
      1643 case "forward":
      +
      1644 ad_slicer_start_bg(brick, dim, posvariable, dimdelta(brick, dim))
      +
      1645 break
      +
      1646 case "back":
      +
      1647 ad_slicer_start_bg(brick, dim, posvariable, -dimdelta(brick, dim))
      +
      1648 break
      +
      1649 case "center":
      +
      1650 ad_slicer_stop_bg(posvariable)
      +
      1651 bp_move_slice_center(brick, dim, posvariable)
      +
      1652 break
      +
      1653 case "stop":
      +
      1654 ad_slicer_stop_bg(posvariable)
      +
      1655 break
      +
      1656 endswitch
      +
      1657 else
      +
      1658 ad_slicer_stop_bg(posvariable)
      +
      1659 Abort "can't find original wave " + brick_path
      +
      1660 endif
      +
      1661 break
      +
      1662 case -1: // control being killed
      +
      1663 break
      +
      1664 endswitch
      +
      1665
      +
      1666 setdatafolder savedf
      +
      1667 return 0
      +
      1668End
      +
      +
      1669
      +
      +
      1673static function bp_extract_slice(ba) : ButtonControl
      +
      1674 STRUCT WMButtonAction &ba
      +
      1675
      +
      1676 dfref savedf = GetDataFolderDFR()
      +
      1677
      +
      1678 switch( ba.eventCode )
      +
      1679 case 2: // mouse up
      +
      1680 string control_datafolder = GetUserData(ba.win, "", "control_datafolder")
      +
      1681 setdatafolder control_datafolder
      +
      1682 string brick_path = GetUserData(ba.win, "", "brick_path")
      +
      1683 wave brick = $brick_path
      +
      1684 dfref brickdf = GetWavesDataFolderDFR(brick)
      +
      1685
      +
      1686 string axis = StringFromList(1, ba.ctrlName, "_")
      +
      1687 string cmd = StringFromList(2, ba.ctrlName, "_")
      +
      1688 variable dim = char2num(axis[0]) - char2num("x")
      +
      1689 string posvariable = getdatafolder(1) + axis[0] + "_slice_pos"
      +
      1690
      +
      1691 nvar pos = $(posvariable)
      +
      1692 variable pp = round((pos - dimoffset(brick, dim)) / dimdelta(brick, dim))
      +
      1693 if ((pp < 0) || (pp >= dimsize(brick, dim)))
      +
      1694 return -1 // requested value out of range
      +
      1695 endif
      +
      1696
      +
      1697 variable dig = ceil(log(dimsize(brick, dim)))
      +
      1698 string slicename
      +
      1699 sprintf slicename, "%s_%s%0*u", NameOfWave(brick), axis[0], dig, pp
      +
      1700 setdatafolder brickdf
      +
      1701 switch(dim)
      +
      1702 case 0: // X
      +
      1703 wave wdest = ad_extract_slab_x(brick, pp, pp, slicename)
      +
      1704 break
      +
      1705 case 1: // Y
      +
      1706 wave wdest = ad_extract_slab_y(brick, pp, pp, slicename)
      +
      1707 break
      +
      1708 case 2: // Z
      +
      1709 wave wdest = ad_extract_slab_z(brick, pp, pp, slicename)
      +
      1710 break
      +
      1711 endswitch
      +
      1712
      +
      1713 string msg
      +
      1714 sprintf msg, "%s=%g", axis[0], pos
      +
      1715 note wdest, msg
      +
      1716
      +
      1717 break
      +
      1718 case -1: // control being killed
      +
      1719 break
      +
      1720 endswitch
      +
      1721
      +
      1722 setdatafolder savedf
      +
      1723 return 0
      +
      1724End
      +
      +
      1725
      +
      +
      1727static function bp_move_slice_center(brick, dim, posvariable)
      +
      1728 wave brick
      +
      1729 variable dim
      +
      1730 string posvariable
      +
      1731
      +
      1732 nvar pos = $posvariable
      +
      1733 pos = dimoffset(brick, dim) + dimdelta(brick, dim) * dimsize(brick, dim) / 2
      +
      1734 ad_gizmo_set_plane(brick, dim, pos)
      +
      1735 ad_profiles_set_slice(brick, dim, pos)
      +
      1736end
      +
      +
      1737
      +
      +
      1739static function ad_slicer_move_bg(s)
      +
      1740 STRUCT WMBackgroundStruct &s
      +
      1741
      +
      1742 dfref savedf = GetDataFolderDFR()
      +
      1743 setdatafolder root:pearl_area:slicer
      +
      1744 wave /t bg_brickpaths
      +
      1745 wave /t bg_graphnames
      +
      1746 wave /t bg_variablepaths
      +
      1747 wave bg_dimensions
      +
      1748 wave bg_increments
      +
      1749
      +
      1750 variable ii
      +
      1751 variable nn = numpnts(bg_brickpaths)
      +
      1752 variable dim
      +
      1753 variable pp
      +
      1754
      +
      1755 for (ii = 0; ii < nn; ii += 1)
      +
      1756 wave /z brick = $bg_brickpaths[ii]
      +
      1757 nvar /z pos = $bg_variablepaths[ii]
      +
      1758 dim = bg_dimensions[0]
      +
      1759 pos += bg_increments[ii]
      +
      1760 // wrap around at limits
      +
      1761 pp = round((pos - dimoffset(brick, dim)) / dimdelta(brick, dim))
      +
      1762 if (pp <= -0.5)
      +
      1763 pos = dimoffset(brick, dim) + dimdelta(brick, dim) * (dimsize(brick, dim) - 1)
      +
      1764 elseif (pp >= dimsize(brick, dim) - 0.5)
      +
      1765 pos = dimoffset(brick, dim)
      +
      1766 endif
      +
      1767 if (waveexists(brick))
      +
      1768 ad_gizmo_set_plane(brick, dim, pos)
      +
      1769 ad_profiles_set_slice(brick, dim, pos)
      +
      1770 endif
      +
      1771 endfor
      +
      1772
      +
      1773 setdatafolder savedf
      +
      1774 return 0
      +
      1775End
      +
      +
      1776
      +
      +
      1778function ad_slicer_init_bg()
      +
      1779 dfref savedf = GetDataFolderDFR()
      +
      1780 setdatafolder root:
      +
      1781 newdatafolder /o/s pearl_area
      +
      1782 newdatafolder /o/s slicer
      +
      1783
      +
      1784 make /n=0/o/t bg_brickpaths
      +
      1785 make /n=0/o/t bg_variablepaths
      +
      1786 make /n=0/o/i/u bg_dimensions
      +
      1787 make /n=0/o bg_increments
      +
      1788
      +
      1789 CtrlNamedBackground ad_slicer, period = 30, proc = PearlAreaDisplay#ad_slicer_move_bg
      +
      1790
      +
      1791 setdatafolder savedf
      +
      1792 return 0
      +
      1793end
      +
      +
      1794
      +
      +
      1802function ad_slicer_start_bg(brick, dimension, posvariable, delta)
      +
      1803 wave brick // 3D data wave
      +
      1804 variable dimension // dimension to animate, 0, 1, or 2
      +
      1805 string posvariable // full path to the global position variable
      +
      1806 variable delta // step increment, should be +/- dimdelta
      +
      1807
      +
      1808 dfref savedf = GetDataFolderDFR()
      +
      1809 setdatafolder root:pearl_area:slicer
      +
      1810 wave /t bg_brickpaths
      +
      1811 wave /t bg_variablepaths
      +
      1812 wave bg_dimensions
      +
      1813 wave bg_increments
      +
      1814
      +
      1815 // create entry in ad_slicer background task table
      +
      1816 variable idx
      +
      1817 FindValue /TEXT=posvariable /TXOP=4 /Z bg_variablepaths
      +
      1818 if (v_value >= 0)
      +
      1819 idx = v_value
      +
      1820 else
      +
      1821 idx = numpnts(bg_variablepaths)
      +
      1822 InsertPoints idx, 1, bg_brickpaths, bg_variablepaths, bg_dimensions, bg_increments
      +
      1823 endif
      +
      1824
      +
      1825 // set background task
      +
      1826 bg_brickpaths[idx] = GetWavesDataFolder(brick, 2)
      +
      1827 bg_variablepaths[idx] = posvariable
      +
      1828 bg_dimensions[idx] = dimension
      +
      1829 bg_increments[idx] = delta
      +
      1830
      +
      1831 // start background task
      +
      1832 if (numpnts(bg_variablepaths) > 0)
      +
      1833 CtrlNamedBackground ad_slicer, start
      +
      1834 endif
      +
      1835
      +
      1836 setdatafolder savedf
      +
      1837 return 0
      +
      1838end
      +
      +
      1839
      +
      +
      1844function ad_slicer_stop_bg(posvariable)
      +
      1845 string posvariable
      +
      1846
      +
      1847 dfref savedf = GetDataFolderDFR()
      +
      1848 setdatafolder root:pearl_area:slicer
      +
      1849 wave /t bg_brickpaths
      +
      1850 wave /t bg_variablepaths
      +
      1851 wave bg_dimensions
      +
      1852 wave bg_increments
      +
      1853
      +
      1854 // find entry in ad_slicer background task table
      +
      1855 FindValue /TEXT=posvariable /TXOP=4 /Z bg_variablepaths
      +
      1856 if (v_value >= 0)
      +
      1857 DeletePoints v_value, 1, bg_brickpaths, bg_variablepaths, bg_dimensions, bg_increments
      +
      1858 endif
      +
      1859
      +
      1860 // stop background task if task table is empty
      +
      1861 if (numpnts(bg_variablepaths) == 0)
      +
      1862 CtrlNamedBackground ad_slicer, stop
      +
      1863 endif
      +
      1864
      +
      1865 setdatafolder savedf
      +
      1866 return 0
      +
      1867end
      +
      +
      graphname_from_dfref
      static string graphname_from_dfref(dfref df, string prefix)
      compose a valid and unique graph name from a data folder reference
      Definition pearl-area-display.ipf:59
      +
      ad_display_histogram
      string ad_display_histogram(wave image)
      display the histogram of a 2D image.
      Definition pearl-area-display.ipf:117
      +
      ad_display
      string ad_display(wave image)
      open a new graph window with a 2D image.
      Definition pearl-area-display.ipf:87
      +
      ad_display_slice
      string ad_display_slice(wave data)
      display three-dimensional data by 2D slice.
      Definition pearl-area-display.ipf:1406
      +
      PearlCleanupName
      string PearlCleanupName(string name)
      Definition pearl-compat.ipf:48
      -
      ad_display_slice
      string ad_display_slice(wave data)
      display three-dimensional data by 2D slice.
      Definition: pearl-area-display.ipf:1406
      -
      graphname_from_dfref
      static string graphname_from_dfref(dfref df, string prefix)
      compose a valid and unique graph name from a data folder reference
      Definition: pearl-area-display.ipf:59
      -
      ad_calc_histogram
      variable ad_calc_histogram(wave image)
      calculate the histogram.
      Definition: pearl-area-display.ipf:1068
      -
      ad_display_histogram
      string ad_display_histogram(wave image)
      display the histogram of a 2D image.
      Definition: pearl-area-display.ipf:117
      -
      ad_display
      string ad_display(wave image)
      open a new graph window with a 2D image.
      Definition: pearl-area-display.ipf:87
      -
      PearlCleanupName
      string PearlCleanupName(string name)
      Definition: pearl-compat.ipf:48
      -
      ad_display_profiles
      string ad_display_profiles(wave image, string filter=defaultValue)
      open a new profiles graph window.
      Definition: pearl-area-display.ipf:168
      diff --git a/doc/html/pearl-area-import_8ipf.html b/doc/html/pearl-area-import_8ipf.html index 7d6053c..053f3ab 100644 --- a/doc/html/pearl-area-import_8ipf.html +++ b/doc/html/pearl-area-import_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-import.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-area-import_8ipf.html',''); init
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      Namespaces | Functions
      -
      -
      pearl-area-import.ipf File Reference
      ARPES package
      +
      pearl-area-import.ipf File Reference
      ARPES package
      @@ -99,99 +105,99 @@ $(document).ready(function(){initNavTree('pearl-area-import_8ipf.html',''); init

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlAreaImport
      namespace  PearlAreaImport
       HDF5 file import from EPICS area detectors.
       
      - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + - + - - + + - - + + - - + + - - + +

      +

      Functions

      static variable BeforeFileOpenHook (variable refNum, string fileName, string path, string type, string creator, variable kind)
       callback function for drag&drop of HDF5 files into Igor. More...
      static variable BeforeFileOpenHook (variable refNum, string fileName, string path, string type, string creator, variable kind)
       callback function for drag&drop of HDF5 files into Igor.
       
      string ad_suggest_foldername (string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
       generate the name of a data folder based on a file name. More...
      string ad_suggest_foldername (string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
       generate the name of a data folder based on a file name.
       
      variable ad_load_dialog (string APathName)
       load area detector data files selected in a file dialog window More...
      variable ad_load_dialog (string APathName)
       load area detector data files selected in a file dialog window
       
      string adh5_load_complete (string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
       import everything from a HDF5 file created by the Area Detector software. More...
      string adh5_load_complete (string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
       import everything from a HDF5 file created by the Area Detector software.
       
      string adh5_load_reduced (string ANickName, string APathName, string AFileName, funcref reduction_func, string reduction_param, variable load_data=defaultValue, variable load_attr=defaultValue, variable progress=defaultValue)
       load and reduce a dataset from a HDF5 file created by the Area Detector software. More...
      string adh5_load_reduced (string ANickName, string APathName, string AFileName, funcref reduction_func, string reduction_param, variable load_data=defaultValue, variable load_attr=defaultValue, variable progress=defaultValue)
       load and reduce a dataset from a HDF5 file created by the Area Detector software.
       
      string adh5_load_preview (string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
       load a single image from a HDF5 file created by the Area Detector software. More...
      string adh5_load_preview (string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
       load a single image from a HDF5 file created by the Area Detector software.
       
      string adh5_load_info (string APathName, string AFileName)
       load descriptive info from a HDF5 file created by the Area Detector software. More...
      string adh5_load_info (string APathName, string AFileName)
       load descriptive info from a HDF5 file created by the Area Detector software.
       
      variable adh5_load_detector (variable fileID, string detectorpath)
       load the detector dataset from the open HDF5 file. More...
      variable adh5_load_detector (variable fileID, string detectorpath)
       load the detector dataset from the open HDF5 file.
       
      variable adh5_redim (wave data)
       redimension a multi-dimensional area detector array loaded from HDF5. More...
      variable adh5_redim (wave data)
       redimension a multi-dimensional area detector array loaded from HDF5.
       
      static dfr GetAttrDataFolderDFR (wave data)
       find the attributes data folder of an area detector dataset. More...
      static dfr GetAttrDataFolderDFR (wave data)
       find the attributes data folder of an area detector dataset.
       
      variable adh5_scale (wave data, string source=defaultValue)
       set the dimension scales of an area detector dataset. More...
      variable adh5_scale (wave data, string source=defaultValue)
       set the dimension scales of an area detector dataset.
       
      variable adh5_load_detector_slabs (variable fileID, string detectorpath, variable progress=defaultValue)
       load the detector dataset from the open HDF5 file. More...
      variable adh5_load_detector_slabs (variable fileID, string detectorpath, variable progress=defaultValue)
       load the detector dataset from the open HDF5 file.
       
      variable adh5_load_detector_image (variable fileID, string detectorpath, variable dim2start, variable dim2count, variable dim3start, variable dim3count)
       load a single image from the detector dataset of the open HDF5 file More...
      variable adh5_load_detector_image (variable fileID, string detectorpath, variable dim2start, variable dim2count, variable dim3start, variable dim3count)
       load a single image from the detector dataset of the open HDF5 file
       
      string adh5_list_reduction_funcs ()
       get a list of functions which can be used as reduction functions. More...
      string adh5_list_reduction_funcs ()
       get a list of functions which can be used as reduction functions.
       
      threadsafe wave adh5_default_reduction (wave source, string *param)
       function prototype for adh5_load_reduced_detector More...
      threadsafe wave adh5_default_reduction (wave source, string *param)
       function prototype for adh5_load_reduced_detector
       
      threadsafe variable adh5_setup_profile (wave image, wave profile, variable dim)
       set up a one-dimensional wave for a line profile based on a 2D original wave. More...
      threadsafe variable adh5_setup_profile (wave image, wave profile, variable dim)
       set up a one-dimensional wave for a line profile based on a 2D original wave.
       
      string adh5_test_reduction_func (wave source, funcref reduction_func, string reduction_param, string result_prefix)
       wrapper function for testing reduction functions from the command line. More...
      string adh5_test_reduction_func (wave source, funcref reduction_func, string reduction_param, string result_prefix)
       wrapper function for testing reduction functions from the command line.
       
      variable adh5_reduce_brick (wave source, funcref reduction_func, string reduction_param, string result_prefix, variable progress=defaultValue, variable nthreads=defaultValue)
       reduce a three-dimensional intensity distribution More...
      variable adh5_reduce_brick (wave source, funcref reduction_func, string reduction_param, string result_prefix, variable progress=defaultValue, variable nthreads=defaultValue)
       reduce a three-dimensional intensity distribution
       
      static threadsafe variable reduce_brick_worker (funcref reduction_func)
       thread worker for adh5_reduce_brick More...
      static threadsafe variable reduce_brick_worker (funcref reduction_func)
       thread worker for adh5_reduce_brick
       
      threadsafe variable adh5_get_result_waves (wave results, string result_prefix, variable start_index)
       copy waves from wave reference wave into current data folder More...
      threadsafe variable adh5_get_result_waves (wave results, string result_prefix, variable start_index)
       copy waves from wave reference wave into current data folder
       
      variable adh5_load_reduced_detector (variable fileID, string detectorpath, funcref reduction_func, string reduction_param, variable progress=defaultValue, variable nthreads=defaultValue)
       load a reduced detector dataset from the open HDF5 file. More...
      variable adh5_load_reduced_detector (variable fileID, string detectorpath, funcref reduction_func, string reduction_param, variable progress=defaultValue, variable nthreads=defaultValue)
       load a reduced detector dataset from the open HDF5 file.
       
      static threadsafe variable reduce_slab_worker (funcref reduction_func)
      static threadsafe variable reduce_slab_worker (funcref reduction_func)
       
      static threadsafe wave reduce_slab_image (wave slabdata, wave image, funcref reduction_func, string reduction_param)
      static threadsafe wave reduce_slab_image (wave slabdata, wave image, funcref reduction_func, string reduction_param)
       
      variable adh5_loadattr_all (variable fileID, string attributespath)
       load an NDAttributes group from an open HDF5 file into the current data folder. More...
      variable adh5_loadattr_all (variable fileID, string attributespath)
       load an NDAttributes group from an open HDF5 file into the current data folder.
       
      static variable read_attribute_info (string datawavename, string source, variable *idest)
       sub-function of adh5_loadattr_all. More...
      static variable read_attribute_info (string datawavename, string source, variable *idest)
       sub-function of adh5_loadattr_all.
       
      variable adh5_scale_scienta (wave data)
       set the energy and angle scales of an area detector dataset from the Scienta analyser. More...
      variable adh5_scale_scienta (wave data)
       set the energy and angle scales of an area detector dataset from the Scienta analyser.
       
      variable adh5_scale_scan (wave data)
       scales the extra dimensions of an area detector dataset according to the EPICS scan More...
      variable adh5_scale_scan (wave data)
       scales the extra dimensions of an area detector dataset according to the EPICS scan
       

      Detailed Description

      HDF5 file import from EPICS area detectors.

      HDF5 file import from EPICS area detectors such as CCD cameras, 2D electron analysers

      as of Igor 6.3, Igor can open datasets of up to rank 4. i.e. the extra dimension Y of the file plugin cannot be used. the extra dimensions N and X are supported.

      -
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      +
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      Copyright
      2013-20 Paul Scherrer Institut
      Licensed under the Apache License, Version 2.0 (the "License");
      you may not use this file except in compliance with the License.
      @@ -199,8 +205,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

      Definition in file pearl-area-import.ipf.

      Function Documentation

      - -

      ◆ ad_load_dialog()

      + +

      ◆ ad_load_dialog()

      @@ -227,8 +233,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_suggest_foldername()

      + +

      ◆ ad_suggest_foldername()

      @@ -282,8 +288,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_default_reduction()

      + +

      ◆ adh5_default_reduction()

      @@ -326,8 +332,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_get_result_waves()

      + +

      ◆ adh5_get_result_waves()

      @@ -373,8 +379,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_list_reduction_funcs()

      + +

      ◆ adh5_list_reduction_funcs()

      @@ -395,8 +401,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_complete()

      + +

      ◆ adh5_load_complete()

      @@ -456,8 +462,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_detector()

      + +

      ◆ adh5_load_detector()

      @@ -496,8 +502,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_detector_image()

      + +

      ◆ adh5_load_detector_image()

      @@ -564,8 +570,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_detector_slabs()

      + +

      ◆ adh5_load_detector_slabs()

      @@ -612,8 +618,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_info()

      + +

      ◆ adh5_load_info()

      @@ -653,8 +659,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_preview()

      + +

      ◆ adh5_load_preview()

      @@ -715,8 +721,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_reduced()

      + +

      ◆ adh5_load_reduced()

      @@ -799,8 +805,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_load_reduced_detector()

      + +

      ◆ adh5_load_reduced_detector()

      @@ -868,8 +874,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_loadattr_all()

      + +

      ◆ adh5_loadattr_all()

      @@ -908,8 +914,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_redim()

      + +

      ◆ adh5_redim()

      @@ -938,8 +944,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_reduce_brick()

      + +

      ◆ adh5_reduce_brick()

      @@ -1005,8 +1011,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_scale()

      + +

      ◆ adh5_scale()

      @@ -1038,8 +1044,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_scale_scan()

      + +

      ◆ adh5_scale_scan()

      @@ -1062,8 +1068,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_scale_scienta()

      + +

      ◆ adh5_scale_scienta()

      @@ -1085,8 +1091,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_setup_profile()

      + +

      ◆ adh5_setup_profile()

      @@ -1124,8 +1130,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ adh5_test_reduction_func()

      + +

      ◆ adh5_test_reduction_func()

      @@ -1179,8 +1185,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ BeforeFileOpenHook()

      + +

      ◆ BeforeFileOpenHook()

      @@ -1243,8 +1249,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ GetAttrDataFolderDFR()

      + +

      ◆ GetAttrDataFolderDFR()

      @@ -1281,8 +1287,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ read_attribute_info()

      + +

      ◆ read_attribute_info()

      @@ -1336,8 +1342,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ reduce_brick_worker()

      + +

      ◆ reduce_brick_worker()

      @@ -1367,8 +1373,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ reduce_slab_image()

      + +

      ◆ reduce_slab_image()

      @@ -1417,8 +1423,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ reduce_slab_worker()

      + +

      ◆ reduce_slab_worker()

      @@ -1451,9 +1457,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
      diff --git a/doc/html/pearl-area-import_8ipf_source.html b/doc/html/pearl-area-import_8ipf_source.html index eca1006..92150e3 100644 --- a/doc/html/pearl-area-import_8ipf_source.html +++ b/doc/html/pearl-area-import_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-import.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,1801 +82,1859 @@ $(document).ready(function(){initNavTree('pearl-area-import_8ipf_source.html',''
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-area-import.ipf
      +
      pearl-area-import.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "UTF-8"
      -
      2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
      -
      3 #pragma IgorVersion = 6.36
      -
      4 #pragma ModuleName = PearlAreaImport
      -
      5 #pragma version = 1.13
      -
      6 #if IgorVersion() < 9.00
      -
      7 #include <HDF5 Browser>
      -
      8 #endif
      -
      9 #include "pearl-compat"
      -
      10 #include "pearl-gui-tools"
      -
      11 
      -
      12 // copyright (c) 2013-21 Paul Scherrer Institut
      -
      13 //
      -
      14 // Licensed under the Apache License, Version 2.0 (the "License");
      -
      15 // you may not use this file except in compliance with the License.
      -
      16 // You may obtain a copy of the License at
      -
      17 // http:///www.apache.org/licenses/LICENSE-2.0
      -
      18 
      -
      38 
      -
      43 
      -
      46 static function BeforeFileOpenHook(refNum,fileName,path,type,creator,kind)
      -
      47  variable refNum, kind
      -
      48  string fileName, path, type, creator
      -
      49 
      -
      50  variable handledOpen = 0
      -
      51 
      -
      52  //PathInfo $path
      -
      53  //string FilePath = s_path + filename
      -
      54  string NickName = PearlCleanupName(ParseFilePath(3, FileName, ":", 0, 0))
      -
      55  string FileExt = LowerStr(ParseFilePath(4, FileName, ":", 0, 0))
      -
      56  string result = ""
      -
      57 
      -
      58  // override nickname with custom setting
      -
      59  svar /z cnn = gsCustomNickName
      -
      60  if (svar_exists(cnn))
      -
      61  if (exists("gvNickNameIndex") != 2)
      -
      62  variable/g gvNickNameIndex = 1
      -
      63  endif
      -
      64  nvar nni = gvNickNameIndex
      -
      65  NickName = cnn + num2str(nni)
      -
      66  nni += 1
      -
      67  endif
      -
      68 
      -
      69  if (stringmatch(FileExt, "h5") == 1)
      -
      70  result = adh5_load_complete(NickName, path, FileName)
      -
      71  endif
      -
      72 
      -
      73  string/g s_latest_datafile = result
      -
      74  string/g s_latest_nickname = nickname
      -
      75 
      -
      76  handledOpen = strlen(result) > 0
      -
      77  if (handledOpen)
      -
      78  close refnum
      -
      79  endif
      -
      80 
      -
      81  return handledOpen // 1 tells Igor not to open the file
      -
      82 End
      -
      83 
      -
      110 function /s ad_suggest_foldername(filename, [ignoredate,sourcename,unique])
      -
      111  string filename
      -
      112  variable ignoredate
      -
      113  string sourcename
      -
      114  variable unique
      -
      115 
      -
      116  if (ParamIsDefault(ignoredate))
      -
      117  ignoredate = 0
      -
      118  endif
      -
      119  if (ParamIsDefault(unique))
      -
      120  unique = 0
      -
      121  endif
      -
      122 
      -
      123  string basename = ParseFilePath(3, filename, ":", 0, 0)
      -
      124  string extension = ParseFilePath(4, filename, ":", 0, 0)
      -
      125  string nickname
      -
      126 
      -
      127  string autosource
      -
      128  if (strsearch(basename, "scienta", 0, 2) >= 0)
      -
      129  autosource = "sci"
      -
      130  elseif (strsearch(basename, "pshell", 0, 2) >= 0)
      -
      131  autosource = "psh"
      -
      132  elseif (strsearch(basename, "OP-SL", 0, 2) >= 0)
      -
      133  autosource = "sl"
      -
      134  elseif (strsearch(basename, "ES-PS", 0, 2) >= 0)
      -
      135  autosource = "es"
      -
      136  else
      -
      137  autosource = "xy"
      -
      138  endif
      -
      139  if (ParamIsDefault(sourcename))
      -
      140  sourcename = autosource
      -
      141  endif
      -
      142 
      -
      143  variable nparts = ItemsInList(basename, "-")
      -
      144  if (nparts >= 3)
      -
      145  string datepart = StringFromList(1, basename, "-")
      -
      146  variable l_datepart = strlen(datepart)
      -
      147  if (l_datepart == 8)
      -
      148  datepart = datepart[l_datepart-6, l_datepart-1]
      -
      149  endif
      -
      150  string indexpart = StringFromList(2, basename, "-")
      -
      151  if (ignoredate)
      -
      152  sprintf nickname, "%s_%s", sourcename, indexpart
      -
      153  else
      -
      154  sprintf nickname, "%s_%s_%s", sourcename, datepart, indexpart
      -
      155  endif
      -
      156  else
      -
      157  nickname = PearlCleanupName(basename)
      -
      158  endif
      -
      159 
      -
      160  if (unique && CheckName(nickname, 11))
      -
      161  nickname = UniqueName(nickname + "_", 11, 0)
      -
      162  endif
      -
      163 
      -
      164  return nickname
      -
      165 end
      -
      166 
      -
      171 function ad_load_dialog(APathName)
      -
      172  string APathName
      -
      173 
      -
      174  variable refNum
      -
      175  string message = "Select data files"
      -
      176  string filepaths
      -
      177  string filefilters = "Area Detector HDF5 Files (*.h5):.h5;"
      -
      178  filefilters += "All Files:.*;"
      -
      179 
      -
      180  PathInfo /S $APathName
      -
      181  Open /D /R /F=filefilters /M=message /MULT=1 refNum
      -
      182  filepaths = S_fileName
      -
      183 
      -
      184  dfref saveDF = GetDataFolderDFR()
      -
      185  setdatafolder root:
      -
      186 
      -
      187  if (strlen(filepaths) > 0)
      -
      188  variable nfiles = ItemsInList(filepaths, "\r")
      -
      189  variable ifile
      -
      190  for(ifile = 0; ifile < nfiles; ifile += 1)
      -
      191  String path = StringFromList(ifile, filepaths, "\r")
      -
      192  string nickname = ad_suggest_foldername(path)
      -
      193  adh5_load_complete(nickname, "", path)
      -
      194  endfor
      -
      195  endif
      -
      196 
      -
      197  setdatafolder saveDF
      -
      198 end
      -
      199 
      -
      211 function /s adh5_load_complete(ANickName, APathName, AFileName, [load_data, load_attr])
      -
      212  string ANickName
      -
      213  string APathName
      -
      214  string AFileName
      -
      215  variable load_data
      -
      216  variable load_attr
      -
      217 
      -
      218  if (ParamIsDefault(load_data))
      -
      219  load_data = 1
      -
      220  endif
      -
      221  if (ParamIsDefault(load_attr))
      -
      222  load_attr = 1
      -
      223  endif
      -
      224 
      -
      225  dfref saveDF = GetDataFolderDFR()
      -
      226  setdatafolder root:
      -
      227  newdatafolder /s/o $("root:" + ANickName)
      -
      228 
      -
      229  // open file
      -
      230  variable fileID
      -
      231  string instrumentpath = "/entry/instrument/"
      -
      232  string detectorpath = instrumentpath + "detector/"
      -
      233  string attributespath = instrumentpath + "NDAttributes/"
      -
      234  string datasetname
      -
      235  string datawavename
      -
      236 
      -
      237  // performance monitoring
      -
      238  variable timerRefNum
      -
      239  variable /g adh5_perf_secs
      -
      240  timerRefNum = startMSTimer
      -
      241 
      -
      242  // avoid compilation error if HDF5 XOP has not been loaded
      -
      243  #if Exists("HDF5OpenFile")
      -
      244  HDF5OpenFile /P=$APathName/R fileID as AFileName
      -
      245  if (v_flag == 0)
      -
      246  AFileName = s_path + s_filename
      -
      247  print "loading " + s_filename + "\r"
      -
      248 
      -
      249  if (load_data)
      -
      250  adh5_load_detector_slabs(fileID, detectorpath)
      -
      251  endif
      -
      252  if (load_attr)
      -
      253  newdatafolder /o/s attr
      -
      254  adh5_loadattr_all(fileID, attributespath)
      -
      255  setdatafolder ::
      -
      256  endif
      -
      257 
      -
      258  wave /z data
      -
      259  if (waveexists(data))
      -
      260  //adh5_redim(data) // not to be used with adh5_load_detector_slabs
      -
      261  adh5_scale(data)
      -
      262  endif
      -
      263 
      -
      264  HDF5CloseFile fileID
      -
      265  else
      -
      266  AFileName = ""
      -
      267  endif
      -
      268  #else
      -
      269  Abort "HDF5 XOP not loaded."
      -
      270  #endif
      -
      271 
      -
      272  if (timerRefNum >= 0)
      -
      273  adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      -
      274  endif
      -
      275 
      -
      276  setdatafolder saveDF
      -
      277  return AFileName
      -
      278 end
      -
      279 
      -
      306 function /s adh5_load_reduced(ANickName, APathName, AFileName, reduction_func, reduction_param, [load_data, load_attr, progress])
      -
      307  string ANickName
      -
      308  string APathName
      -
      309  string AFileName
      -
      310 
      -
      311  funcref adh5_default_reduction reduction_func
      -
      312  string reduction_param
      -
      313 
      -
      314  variable load_data
      -
      315  variable load_attr
      -
      316  variable progress
      -
      317 
      -
      318  if (ParamIsDefault(load_data))
      -
      319  load_data = 1
      -
      320  endif
      -
      321  if (ParamIsDefault(load_attr))
      -
      322  load_attr = 1
      -
      323  endif
      -
      324  if (ParamIsDefault(progress))
      -
      325  progress = 1
      -
      326  endif
      -
      327 
      -
      328  dfref saveDF = GetDataFolderDFR()
      -
      329  setdatafolder root:
      -
      330  newdatafolder /s/o $("root:" + ANickName)
      -
      331 
      -
      332  // open file
      -
      333  variable fileID
      -
      334  string instrumentpath = "/entry/instrument/"
      -
      335  string detectorpath = instrumentpath + "detector/"
      -
      336  string attributespath = instrumentpath + "NDAttributes/"
      -
      337  string datasetname
      -
      338  string datawavename
      -
      339 
      -
      340  // performance monitoring
      -
      341  variable timerRefNum
      -
      342  variable /g adh5_perf_secs
      -
      343  timerRefNum = startMSTimer
      -
      344 
      -
      345  // avoid compilation error if HDF5 XOP has not been loaded
      -
      346  #if Exists("HDF5OpenFile")
      -
      347  HDF5OpenFile /P=$APathName/R fileID as AFileName
      -
      348  if (v_flag == 0)
      -
      349  AFileName = s_path + s_filename
      -
      350  print "loading " + s_filename + "\r"
      -
      351 
      -
      352  if (load_attr)
      -
      353  newdatafolder /o/s attr
      -
      354  adh5_loadattr_all(fileID, attributespath)
      -
      355  setdatafolder ::
      -
      356  endif
      -
      357  if (load_data)
      -
      358  adh5_load_reduced_detector(fileID, detectorpath, reduction_func, reduction_param, progress=progress)
      -
      359  endif
      -
      360 
      -
      361  HDF5CloseFile fileID
      -
      362  else
      -
      363  AFileName = ""
      -
      364  endif
      -
      365  #else
      -
      366  Abort "HDF5 XOP not loaded."
      -
      367  #endif
      -
      368 
      -
      369  if (timerRefNum >= 0)
      -
      370  adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      -
      371  endif
      -
      372 
      -
      373  setdatafolder saveDF
      -
      374  return AFileName
      -
      375 end
      -
      376 
      -
      391 function /s adh5_load_preview(ANickName, APathName, AFileName, [load_data, load_attr])
      -
      392  string ANickName
      -
      393  string APathName
      -
      394  string AFileName
      -
      395  variable load_data
      -
      396  variable load_attr
      -
      397 
      -
      398  if (ParamIsDefault(load_data))
      -
      399  load_data = 1
      -
      400  endif
      -
      401  if (ParamIsDefault(load_attr))
      -
      402  load_attr = 1
      -
      403  endif
      -
      404 
      -
      405  dfref saveDF = GetDataFolderDFR()
      -
      406  setdatafolder root:
      -
      407  newdatafolder /o/s pearl_area
      -
      408  newdatafolder /o/s preview
      -
      409 
      -
      410  // open file
      -
      411  variable fileID
      -
      412  string instrumentpath = "/entry/instrument/"
      -
      413  string detectorpath = instrumentpath + "detector/"
      -
      414  string attributespath = instrumentpath + "NDAttributes/"
      -
      415  string datasetname
      -
      416  string datawavename
      -
      417 
      -
      418  // performance monitoring
      -
      419  variable timerRefNum
      -
      420  variable /g adh5_perf_secs
      -
      421  timerRefNum = startMSTimer
      -
      422 
      -
      423  // avoid compilation error if HDF5 XOP has not been loaded
      -
      424  #if Exists("HDF5OpenFile")
      -
      425  HDF5OpenFile /P=$APathName/R/Z fileID as AFileName
      -
      426  if (v_flag == 0)
      -
      427  AFileName = s_path + s_filename
      -
      428 
      -
      429  // detector data
      -
      430  datasetname = detectorpath + "data"
      -
      431  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      432  InitHDF5DataInfo(di)
      -
      433  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      434  if (err != 0)
      -
      435  print "error accessing detector/data"
      -
      436  return ""
      -
      437  endif
      -
      438  if (di.ndims < 2)
      -
      439  print "error: rank of dataset < 2"
      -
      440  return ""
      -
      441  endif
      -
      442 
      -
      443  variable dim2start = 0, dim2count = 1, dim3start = 0, dim3count = 1
      -
      444  if (di.ndims >= 3)
      -
      445  dim2start = floor(di.dims[di.ndims - 3] / 2)
      -
      446  dim2count = 1
      -
      447  endif
      -
      448  if (di.ndims >= 4)
      -
      449  dim3start = floor(di.dims[di.ndims - 4] / 2)
      -
      450  dim3count = 1
      -
      451  endif
      -
      452 
      -
      453  if (load_data)
      -
      454  adh5_load_detector_image(fileID, detectorpath, dim2start, dim2count, dim3start, dim3count)
      -
      455  wave /z data
      -
      456  string destpath = GetDataFolder(1, saveDF) + ANickName
      -
      457  if (waveexists(data))
      -
      458  duplicate /o data, $destpath
      -
      459  wave /z data = $destpath
      -
      460  endif
      -
      461  endif
      -
      462 
      -
      463  if (load_attr)
      -
      464  setdatafolder saveDF
      -
      465  newdatafolder /o/s attr
      -
      466  killwaves /a/z
      -
      467  adh5_loadattr_all(fileID, attributespath)
      -
      468  setdatafolder ::
      -
      469  if (waveexists(data))
      -
      470  adh5_scale(data)
      -
      471  endif
      -
      472  endif
      -
      473 
      -
      474  HDF5CloseFile fileID
      -
      475  else
      -
      476  print "error opening file " + AFileName
      -
      477  AFileName = ""
      -
      478  endif
      -
      479  #else
      -
      480  Abort "HDF5 XOP not loaded."
      -
      481  #endif
      -
      482 
      -
      483  if (timerRefNum >= 0)
      -
      484  adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      -
      485  endif
      -
      486 
      -
      487  setdatafolder saveDF
      -
      488  return AFileName
      -
      489 end
      -
      490 
      -
      501 function /s adh5_load_info(APathName, AFileName)
      -
      502  string APathName
      -
      503  string AFileName
      -
      504 
      -
      505  dfref saveDF = GetDataFolderDFR()
      -
      506 
      -
      507  // open file
      -
      508  variable fileID
      -
      509  string instrumentpath = "/entry/instrument/"
      -
      510  string detectorpath = instrumentpath + "detector/"
      -
      511  string attributespath = instrumentpath + "NDAttributes/"
      -
      512  string datasetname
      -
      513  string datawavename
      -
      514 
      -
      515  string s_info = ""
      -
      516  string s
      -
      517 
      -
      518  variable idim
      -
      519 
      -
      520  // avoid compilation error if HDF5 XOP has not been loaded
      -
      521  #if Exists("HDF5OpenFile")
      -
      522  HDF5OpenFile /P=$APathName/R/Z fileID as AFileName
      -
      523  if (v_flag == 0)
      -
      524  AFileName = s_path + s_filename
      -
      525 
      -
      526  // detector data
      -
      527  datasetname = detectorpath + "data"
      -
      528  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      529  InitHDF5DataInfo(di)
      -
      530  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      531  if (err != 0)
      -
      532  print "error accessing detector/data"
      -
      533  return ""
      -
      534  endif
      -
      535 
      -
      536  for (idim = 0; idim < di.ndims; idim += 1)
      -
      537  sprintf s, "dim %u: %u points", idim, di.dims[idim]
      -
      538  if (strlen(s_info) > 0)
      -
      539  s_info = s_info + "\r" + s
      -
      540  else
      -
      541  s_info = s
      -
      542  endif
      -
      543  endfor
      -
      544 
      -
      545  dfref df = NewFreeDataFolder()
      -
      546  setdatafolder df
      -
      547  adh5_loadattr_all(fileID, attributespath)
      -
      548 
      -
      549  for (idim = 1; idim < 5; idim += 1)
      -
      550  sprintf s, "Scan%uActive", idim
      -
      551  wave /z w = $s
      -
      552  if (waveexists(w) && (numpnts(w) > 0) && (w[0] > 0))
      -
      553  sprintf s, "Scan%uPositioner1", idim
      -
      554  wave /t wt = $s
      -
      555  sprintf s, "scan %u: %s", idim, wt[0]
      -
      556  if (strlen(s_info) > 0)
      -
      557  s_info = s_info + "\r" + s
      -
      558  else
      -
      559  s_info = s
      -
      560  endif
      -
      561  endif
      -
      562  endfor
      -
      563 
      -
      564  HDF5CloseFile fileID
      -
      565  else
      -
      566  print "error opening file " + AFileName
      -
      567  AFileName = ""
      -
      568  endif
      -
      569  #else
      -
      570  Abort "HDF5 XOP not loaded."
      -
      571  #endif
      -
      572 
      -
      573  setdatafolder saveDF
      -
      574  return s_info
      -
      575 end
      -
      576 
      -
      585 function adh5_load_detector(fileID, detectorpath)
      -
      586  variable fileID
      -
      587  string detectorpath
      -
      588 
      -
      589  // avoid compilation error if HDF5 XOP has not been loaded
      -
      590  #if Exists("HDF5LoadData")
      -
      591  string datasetname
      -
      592  string datawavename
      -
      593 
      -
      594  // detector data
      -
      595  datasetname = detectorpath + "data"
      -
      596  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      597  InitHDF5DataInfo(di)
      -
      598  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      599  if (err != 0)
      -
      600  print "error accessing detector/data"
      -
      601  return -1
      -
      602  endif
      -
      603  if (di.ndims < 2)
      -
      604  print "error: rank of dataset < 2"
      -
      605  return -2
      -
      606  endif
      -
      607 
      -
      608  HDF5LoadData /O /Q /Z fileID, datasetname
      -
      609  wave data
      -
      610 
      -
      611  #else
      -
      612  Abort "HDF5 XOP not loaded."
      -
      613  #endif
      -
      614 end
      -
      615 
      -
      630 function adh5_redim(data)
      -
      631  wave data
      -
      632 
      -
      633  duplicate /free data, tempdata
      -
      634  variable nd = wavedims(tempdata)
      -
      635  variable nx = dimsize(tempdata, nd - 1)
      -
      636  variable ny = dimsize(tempdata, nd - 2)
      -
      637  variable nz = dimsize(tempdata, nd - 3)
      -
      638  variable nt = dimsize(tempdata, nd - 4)
      -
      639 
      -
      640  switch (nd)
      -
      641  case 2:
      -
      642  if (nx <= 1)
      -
      643  redimension /n=(ny) data
      -
      644  setdimlabel 0, -1, AD_Dim1, data
      -
      645  data = tempdata[p][0]
      -
      646  elseif (ny <= 1)
      -
      647  redimension /n=(nx) data
      -
      648  setdimlabel 0, -1, AD_Dim0, data
      -
      649  data = tempdata[0][p]
      -
      650  else
      -
      651  redimension /n=(nx,ny) data
      -
      652  setdimlabel 0, -1, AD_Dim0, data
      -
      653  setdimlabel 1, -1, AD_Dim1, data
      -
      654  data = tempdata[q][p]
      -
      655  endif
      -
      656  break
      -
      657  case 3:
      -
      658  if (nx <= 1)
      -
      659  redimension /n=(ny,nz) data
      -
      660  setdimlabel 0, -1, AD_Dim1, data
      -
      661  setdimlabel 1, -1, AD_DimN, data
      -
      662  multithread data = tempdata[q][p][0]
      -
      663  elseif (ny <= 1)
      -
      664  redimension /n=(nx,nz) data
      -
      665  setdimlabel 0, -1, AD_Dim0, data
      -
      666  setdimlabel 1, -1, AD_DimN, data
      -
      667  multithread data = tempdata[q][0][p]
      -
      668  elseif (nz <= 1)
      -
      669  redimension /n=(nx,ny) data
      -
      670  setdimlabel 0, -1, AD_Dim0, data
      -
      671  setdimlabel 1, -1, AD_Dim1, data
      -
      672  multithread data = tempdata[0][q][p]
      -
      673  else
      -
      674  redimension /n=(nx,ny,nz) data
      -
      675  setdimlabel 0, -1, AD_Dim0, data
      -
      676  setdimlabel 1, -1, AD_Dim1, data
      -
      677  setdimlabel 2, -1, AD_DimN, data
      -
      678  multithread data = tempdata[r][q][p]
      -
      679  endif
      -
      680  break
      -
      681  case 4:
      -
      682  if (nz <= 1)
      -
      683  // singleton "frame number" dimension
      -
      684  redimension /n=(nx,ny,nt) data
      -
      685  setdimlabel 0, -1, AD_Dim0, data
      -
      686  setdimlabel 1, -1, AD_Dim1, data
      -
      687  setdimlabel 2, -1, AD_DimX, data
      -
      688  multithread data = tempdata[r][0][q][p]
      -
      689  else
      -
      690  redimension /n=(nx,ny,nz,nt) data
      -
      691  setdimlabel 0, -1, AD_Dim0, data
      -
      692  setdimlabel 1, -1, AD_Dim1, data
      -
      693  setdimlabel 2, -1, AD_DimN, data
      -
      694  setdimlabel 3, -1, AD_DimX, data
      -
      695  multithread data = tempdata[s][r][q][p]
      -
      696  endif
      -
      697  break
      -
      698  endswitch
      -
      699 end
      -
      700 
      -
      711 static function /DF GetAttrDataFolderDFR(data)
      -
      712  wave data
      -
      713 
      -
      714  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      715  dfref attrDF = dataDF:attr
      -
      716  if (DataFolderRefStatus(attrDF) == 0)
      -
      717  attrDF = dataDF
      -
      718  endif
      -
      719 
      -
      720  return attrDF
      -
      721 end
      -
      722 
      -
      730 function adh5_scale(data,[source])
      -
      731  wave data
      -
      732  string source
      -
      733 
      -
      734  dfref saveDF = GetDataFolderDFR()
      -
      735  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      736  dfref attrDF = GetAttrDataFolderDFR(data)
      -
      737 
      -
      738  if (ParamIsDefault(source))
      -
      739  // is the source a Scienta analyser?
      -
      740  wave /SDFR=attrDF /Z AcquisitionMode
      -
      741  wave /SDFR=attrDF /T /Z Manufacturer
      -
      742  source = "unknown"
      -
      743  if (waveexists(Manufacturer) && (numpnts(Manufacturer) >= 1))
      -
      744  strswitch(Manufacturer[0])
      -
      745  case "VG Scienta":
      -
      746  source = "scienta"
      -
      747  break
      -
      748  case "Prosilica":
      -
      749  source = "prosilica"
      -
      750  break
      -
      751  endswitch
      -
      752  elseif (waveexists(AcquisitionMode) && (numpnts(AcquisitionMode) >= 1))
      -
      753  if (stringmatch(note(AcquisitionMode), "*SCIENTA*"))
      -
      754  source = "scienta"
      -
      755  endif
      -
      756  endif
      -
      757  endif
      -
      758 
      -
      759  strswitch(source)
      -
      760  case "prosilica":
      -
      761  // pixel scale - nothing to do
      -
      762  break
      -
      763  case "scienta":
      -
      764  adh5_scale_scienta(data)
      -
      765  break
      -
      766  endswitch
      -
      767 
      -
      768  setdatafolder saveDF
      -
      769 end
      -
      770 
      -
      784 function adh5_load_detector_slabs(fileID, detectorpath, [progress])
      -
      785  variable fileID
      -
      786  string detectorpath
      -
      787  variable progress
      -
      788 
      -
      789  if (ParamIsDefault(progress))
      -
      790  progress = 1
      -
      791  endif
      -
      792  variable result = 0
      -
      793 
      -
      794  // avoid compilation error if HDF5 XOP has not been loaded
      -
      795  #if Exists("HDF5LoadData")
      -
      796  string datasetname
      -
      797  string datawavename
      -
      798 
      -
      799  // detector data
      -
      800  datasetname = detectorpath + "data"
      -
      801  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      802  InitHDF5DataInfo(di)
      -
      803  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      804  if (err != 0)
      -
      805  print "error accessing detector/data"
      -
      806  return -1
      -
      807  endif
      -
      808  if (di.ndims < 2)
      -
      809  print "error: rank of dataset < 2"
      -
      810  return -2
      -
      811  endif
      -
      812 
      -
      813  // nx and nz are the image dimensions
      -
      814  variable idx, idy, idz, idt, izt
      -
      815  idx = di.ndims - 1
      -
      816  idy = di.ndims - 2
      -
      817  idz = -1
      -
      818  idt = -1
      -
      819 
      -
      820  variable nx, ny, nz, nt, nzt
      -
      821  nx = di.dims[idx]
      -
      822  ny = di.dims[idy]
      -
      823  nz = 1
      -
      824  nt = 1
      -
      825 
      -
      826  make /n=(nx,ny,nz,nt) /o data
      -
      827  string dim_labels = "AD_Dim0;AD_Dim1;AD_DimN;AD_DimX;AD_DimY"
      -
      828  string dim_label
      -
      829  dim_label = StringFromList(0, dim_labels, ";")
      -
      830  setdimlabel 0, -1, $dim_label, data
      -
      831  dim_labels = RemoveFromList(dim_label, dim_labels, ";")
      -
      832  dim_label = StringFromList(0, dim_labels, ";")
      -
      833  setdimlabel 1, -1, $dim_label, data
      -
      834  dim_labels = RemoveFromList(dim_label, dim_labels, ";")
      -
      835 
      -
      836  // find additional dimensions, ignore singletons
      -
      837  variable id
      -
      838  for (id = idy - 1; (id >= 0) && (nz == 1); id -= 1)
      -
      839  if (di.dims[id] > 1)
      -
      840  idz = id
      -
      841  nz = di.dims[id]
      -
      842  dim_label = StringFromList(0, dim_labels, ";")
      -
      843  setdimlabel 2, -1, $dim_label, data
      -
      844  endif
      -
      845  dim_labels = RemoveListItem(0, dim_labels, ";")
      -
      846  endfor
      -
      847  for (id = idz - 1; (id >= 0) && (nt == 1); id -= 1)
      -
      848  if (di.dims[id] > 1)
      -
      849  idt = id
      -
      850  nt = di.dims[id]
      -
      851  dim_label = StringFromList(0, dim_labels, ";")
      -
      852  setdimlabel 3, -1, $dim_label, data
      -
      853  endif
      -
      854  dim_labels = RemoveListItem(0, dim_labels, ";")
      -
      855  endfor
      -
      856  redimension /n=(nx,ny,nz,nt) data
      -
      857 
      -
      858  // default values if dimensions are not present in dataset
      -
      859  if (idz < 0)
      -
      860  idz = idx + 1
      -
      861  idt = idz + 1
      -
      862  elseif (idt < 0)
      -
      863  idt = idx + 1
      -
      864  endif
      -
      865 
      -
      866  nzt = nz * nt
      -
      867  izt = 0
      -
      868  if (progress)
      -
      869  display_progress_panel("HDF5 Import", "Loading data...", nzt)
      -
      870  endif
      -
      871 
      -
      872  // load data image by image
      -
      873  HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      -
      874  wave slab
      -
      875  slab[][%Start] = 0
      -
      876  slab[][%Stride] = 1
      -
      877  slab[][%Count] = 1
      -
      878  slab[][%Block] = 1
      -
      879  slab[idx][%Block] = nx
      -
      880  slab[idy][%Block] = ny
      -
      881 
      -
      882  variable iz, it
      -
      883  for (iz = 0; iz < nz; iz += 1)
      -
      884  for (it = 0; it < nt; it += 1)
      -
      885  slab[idz][%Start] = iz
      -
      886  slab[idt][%Start] = it
      -
      887  HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      -
      888  wave slabdata // 2D, 3D, or 4D with singletons
      -
      889  switch (WaveDims(slabdata))
      -
      890  case 2:
      -
      891  data[][][iz][it] = slabdata[q][p]
      -
      892  break
      -
      893  case 3:
      -
      894  data[][][iz][it] = slabdata[0][q][p]
      -
      895  break
      -
      896  case 4:
      -
      897  data[][][iz][it] = slabdata[0][0][q][p]
      -
      898  break
      -
      899  endswitch
      -
      900  // progress window
      -
      901  izt += 1
      -
      902  if (progress)
      -
      903  if (update_progress_panel(izt))
      -
      904  result = -4 // user abort
      -
      905  break
      -
      906  endif
      -
      907  endif
      -
      908  endfor
      -
      909  if (result < 0)
      -
      910  break
      -
      911  endif
      -
      912  endfor
      -
      913 
      -
      914  if (nz == 1)
      -
      915  redimension /n=(nx,ny) data
      -
      916  elseif (nt == 1)
      -
      917  redimension /n=(nx,ny,nz) data
      -
      918  endif
      -
      919 
      -
      920  if (progress)
      -
      921  kill_progress_panel()
      -
      922  endif
      -
      923  #else
      -
      924  Abort "HDF5 XOP not loaded."
      -
      925  #endif
      -
      926 
      -
      927  return result
      -
      928 end
      -
      929 
      -
      949 function adh5_load_detector_image(fileID, detectorpath, dim2start, dim2count, dim3start, dim3count)
      -
      950  variable fileID
      -
      951  string detectorpath
      -
      952  variable dim2start
      -
      953  variable dim2count
      -
      954  variable dim3start
      -
      955  variable dim3count
      -
      956 
      -
      957  // avoid compilation error if HDF5 XOP has not been loaded
      -
      958  #if Exists("HDF5LoadData")
      -
      959  string datasetname
      -
      960  string datawavename
      -
      961 
      -
      962  // detector data
      -
      963  datasetname = detectorpath + "data"
      -
      964  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      965  InitHDF5DataInfo(di)
      -
      966  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      967  if (err != 0)
      -
      968  print "error accessing detector/data"
      -
      969  return -1
      -
      970  endif
      -
      971  if (di.ndims < 1)
      -
      972  print "error: rank of dataset < 1"
      -
      973  return -2
      -
      974  endif
      -
      975 
      -
      976  // nx and nz are the image dimensions
      -
      977  variable idx, idy, idz, idt
      -
      978  idx = di.ndims - 1
      -
      979  idy = di.ndims >= 2 ? di.ndims - 2 : 1
      -
      980  idz = di.ndims >= 3 ? di.ndims - 3 : 2
      -
      981  idt = di.ndims >= 4 ? di.ndims - 4 : 3
      -
      982 
      -
      983  variable nx, ny
      -
      984  nx = di.dims[idx]
      -
      985  ny = di.ndims >= 2 ? di.dims[idy] : 1
      -
      986 
      -
      987  variable dim2end = dim2start + dim2count - 1
      -
      988  variable dim3end = dim3start + dim3count - 1
      -
      989 
      -
      990  // the slab wave is at least 4-dimensional
      -
      991  // it will also load lower-dimensional datasets
      -
      992  HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      -
      993  wave slab
      -
      994  slab[][%Start] = 0
      -
      995  slab[][%Stride] = 1
      -
      996  slab[][%Count] = 1
      -
      997  slab[][%Block] = 1
      -
      998  slab[idx][%Block] = nx
      -
      999  slab[idy][%Block] = ny
      -
      1000 
      -
      1001  make /n=(nx,ny)/o/d data
      -
      1002  data = 0
      -
      1003  variable iz, it
      -
      1004  variable navg = 0
      -
      1005  for (iz = dim2start; iz <= dim2end; iz += 1)
      -
      1006  for (it = dim3start; it <= dim3end; it += 1)
      -
      1007  slab[idz][%Start] = iz
      -
      1008  slab[idt][%Start] = it
      -
      1009  HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      -
      1010  wave slabdata // 2D, 3D, or 4D with singletons
      -
      1011  switch (WaveDims(slabdata))
      -
      1012  case 1:
      -
      1013  data += slabdata[p]
      -
      1014  navg += 1
      -
      1015  break
      -
      1016  case 2:
      -
      1017  data += slabdata[q][p]
      -
      1018  navg += 1
      -
      1019  break
      -
      1020  case 3:
      -
      1021  data += slabdata[0][q][p]
      -
      1022  navg += 1
      -
      1023  break
      -
      1024  case 4:
      -
      1025  data += slabdata[0][0][q][p]
      -
      1026  navg += 1
      -
      1027  break
      -
      1028  endswitch
      -
      1029  endfor
      -
      1030  endfor
      -
      1031  data /= navg
      -
      1032  setdimlabel 0, -1, AD_Dim0, data
      -
      1033  setdimlabel 1, -1, AD_Dim1, data
      -
      1034 
      -
      1035  #else
      -
      1036  Abort "HDF5 XOP not loaded."
      -
      1037  #endif
      -
      1038 end
      -
      1039 
      -
      1045 function /s adh5_list_reduction_funcs()
      -
      1046  string all_funcs = FunctionList("*", ";", "KIND:6,NPARAMS:2,VALTYPE:8")
      -
      1047  string result = ""
      -
      1048 
      -
      1049  variable ii
      -
      1050  variable nn = ItemsInList(all_funcs, ";")
      -
      1051 
      -
      1052  string funcname
      -
      1053  string info
      -
      1054  variable nparams
      -
      1055  variable accept
      -
      1056 
      -
      1057  for (ii = 0; ii < nn; ii += 1)
      -
      1058  funcname = StringFromList(ii, all_funcs, ";")
      -
      1059  info = FunctionInfo(funcname)
      -
      1060  accept = (NumberByKey("RETURNTYPE", info, ":", ";") == 0x4000)
      -
      1061  accept = accept && (cmpstr(StringByKey("THREADSAFE", info, ":", ";"), "yes") == 0)
      -
      1062  accept = accept && (NumberByKey("N_PARAMS", info, ":", ";") == 2)
      -
      1063  accept = accept && (NumberByKey("N_OPT_PARAMS", info, ":", ";") == 0)
      -
      1064  if (accept)
      -
      1065  // one numeric wave and one pass-by-reference string
      -
      1066  accept = accept && (NumberByKey("PARAM_0_TYPE", info, ":", ";") == 0x4002)
      -
      1067  accept = accept && (NumberByKey("PARAM_1_TYPE", info, ":", ";") == 0x3000)
      -
      1068  endif
      -
      1069  if (accept)
      -
      1070  result = AddListItem(funcname, result, ";")
      -
      1071  endif
      -
      1072  endfor
      -
      1073 
      -
      1074  result = SortList(result, ";", 4)
      -
      1075  return result
      -
      1076 end
      -
      1077 
      -
      1115 threadsafe function /wave adh5_default_reduction(source, param)
      -
      1116  wave source
      -
      1117  string &param
      -
      1118 
      -
      1119  // demo code
      -
      1120  // integrate along the dimensions
      -
      1121  make /n=0 /free dest1, dest2
      -
      1122  adh5_setup_profile(source, dest1, 0)
      -
      1123  ad_profile_x_w(source, 0, -1, dest1)
      -
      1124  adh5_setup_profile(source, dest2, 1)
      -
      1125  ad_profile_y_w(source, 0, -1, dest2)
      -
      1126 
      -
      1127  make /n=2 /free /wave results
      -
      1128  results[0] = dest1
      -
      1129  results[1] = dest2
      -
      1130  return results
      -
      1131 end
      -
      1132 
      -
      1138 threadsafe function adh5_setup_profile(image, profile, dim)
      -
      1139  wave image // prototype
      -
      1140  wave profile // destination wave
      -
      1141  variable dim // which dimension to keep: 0 = X, 1 = Y
      -
      1142 
      -
      1143  redimension /n=(dimsize(image, dim)) profile
      -
      1144  setscale /p x dimoffset(image, dim), dimdelta(image, dim), waveunits(image, dim), profile
      -
      1145  setscale d 0, 0, waveunits(image, -1), profile
      -
      1146  setdimlabel 0, -1, $getdimlabel(image, dim, -1), profile
      -
      1147 end
      -
      1148 
      -
      1171 function /s adh5_test_reduction_func(source, reduction_func, reduction_param, result_prefix)
      -
      1172  wave source
      -
      1173  funcref adh5_default_reduction reduction_func
      -
      1174  string reduction_param
      -
      1175  string result_prefix
      -
      1176 
      -
      1177  wave /wave results = reduction_func(source, reduction_param)
      -
      1178  adh5_get_result_waves(results, result_prefix, 1)
      -
      1179 
      -
      1180  return reduction_param
      -
      1181 end
      -
      1182 
      -
      1203 function adh5_reduce_brick(source, reduction_func, reduction_param, result_prefix, [progress, nthreads])
      -
      1204  wave source
      -
      1205  funcref adh5_default_reduction reduction_func
      -
      1206  string reduction_param
      -
      1207  string result_prefix
      -
      1208 
      -
      1209  variable progress
      -
      1210  variable nthreads
      -
      1211 
      -
      1212  if (ParamIsDefault(progress))
      -
      1213  progress = 1
      -
      1214  endif
      -
      1215  if (ParamIsDefault(nthreads))
      -
      1216  nthreads = -1
      -
      1217  endif
      -
      1218 
      -
      1219  dfref base_df = GetDataFolderDFR()
      -
      1220  variable result = 0
      -
      1221  string wavenames = ""
      -
      1222 
      -
      1223  // nx and nz are the image dimensions
      -
      1224  variable nx, ny, nz, nt
      -
      1225  nx = dimsize(source, 0)
      -
      1226  ny = dimsize(source, 1)
      -
      1227  nz = dimsize(source, 2)
      -
      1228  // force 4th dimension to singleton (ad_extract_slab handles 3 dimensions only)
      -
      1229  nt = 1
      -
      1230 
      -
      1231  variable nzt = max(nz, 1) * max(nt, 1)
      -
      1232 
      -
      1233  // set up multi threading
      -
      1234  if (nthreads < 0)
      -
      1235  nthreads = ThreadProcessorCount
      -
      1236  endif
      -
      1237  if (nthreads > 0)
      -
      1238  variable threadGroupID = ThreadGroupCreate(nthreads)
      -
      1239  variable ithread
      -
      1240  for (ithread = 0; ithread < nthreads; ithread += 1)
      -
      1241  ThreadStart threadGroupID, ithread, reduce_slab_worker(reduction_func)
      -
      1242  endfor
      -
      1243  else
      -
      1244  make /n=(nzt) /df /free processing_folders
      -
      1245  endif
      -
      1246 
      -
      1247  if (progress)
      -
      1248  display_progress_panel("Reduction", "Processing data...", nzt)
      -
      1249  endif
      -
      1250 
      -
      1251  variable iz, it
      -
      1252  variable n_sent = 0
      -
      1253  variable n_recvd = 0
      -
      1254  variable tmo = 0
      -
      1255  string dfname
      -
      1256  dfref dfr
      -
      1257  variable iw, nw
      -
      1258  string sw
      -
      1259  make /n=0 /free /wave result_waves
      -
      1260 
      -
      1261  iz = 0
      -
      1262  it = 0
      -
      1263 
      -
      1264  do
      -
      1265  // fill the processing queue up to a maximum number of folders
      -
      1266  if (n_sent < max(1, nthreads) * 10 + n_recvd)
      -
      1267  if (iz < nz)
      -
      1268  if (it < nt)
      -
      1269  // load a slab into a temporary folder
      -
      1270  dfname = "processing_" + num2str(n_sent)
      -
      1271  NewDataFolder /s $dfname
      -
      1272  ad_extract_slab(source, nan, nan, nan, nan, iz, iz, "image", pscale=1)
      -
      1273  wave image
      -
      1274  variable /g r_index = iz
      -
      1275  variable /g s_index = it
      -
      1276  string /g func_param = reduction_param
      -
      1277 
      -
      1278  if (nthreads > 0)
      -
      1279  // send to thread group
      -
      1280  WaveClear image
      -
      1281  ThreadGroupPutDF threadGroupID, :
      -
      1282  else
      -
      1283  // process immediately in single-thread mode
      -
      1284  processing_folders[n_sent] = GetDataFolderDFR()
      -
      1285  string param = func_param
      -
      1286  wave /wave reduced_waves = reduction_func(image, param)
      -
      1287  variable /g func_result = numpnts(reduced_waves)
      -
      1288  adh5_get_result_waves(reduced_waves, "redw_", 0)
      -
      1289  WaveClear image, reduced_waves
      -
      1290  setdatafolder ::
      -
      1291  endif
      -
      1292 
      -
      1293  iz += 1
      -
      1294  n_sent += 1
      -
      1295  tmo = 0
      -
      1296  else
      -
      1297  iz += 1
      -
      1298  it = 0
      -
      1299  endif
      -
      1300  endif
      -
      1301  else
      -
      1302  // throttle the loop if processing is slow
      -
      1303  tmo = min(100, tmo + 10)
      -
      1304  endif
      -
      1305 
      -
      1306  // receive a slab from the processing queue
      -
      1307  if (n_recvd < nzt)
      -
      1308  if (nthreads > 0)
      -
      1309  dfr = ThreadGroupGetDFR(threadGroupID, tmo)
      -
      1310  else
      -
      1311  dfr = processing_folders[n_recvd]
      -
      1312  processing_folders[n_recvd] = $""
      -
      1313  endif
      -
      1314 
      -
      1315  if (DatafolderRefStatus(dfr) != 0)
      -
      1316  // access results folder
      -
      1317  nvar rr = dfr:r_index
      -
      1318  nvar ss = dfr:s_index
      -
      1319  nvar func_result = dfr:func_result
      -
      1320 
      -
      1321  if (func_result < 1)
      -
      1322  print "error during data reduction."
      -
      1323  result = -3
      -
      1324  break
      -
      1325  endif
      -
      1326 
      -
      1327  // initialize result waves just once
      -
      1328  if (numpnts(result_waves) == 0)
      -
      1329  redimension /n=(func_result) result_waves
      -
      1330  for (iw = 0; iw < func_result; iw += 1)
      -
      1331  sw = "redw_" + num2str(iw)
      -
      1332  wave profile = dfr:$sw
      -
      1333  sw = "ReducedData" + num2str(iw+1)
      -
      1334  make /n=(dimsize(profile, 0), nz, nt) /d /o $sw
      -
      1335  wave data = $sw
      -
      1336  setdimlabel 0, -1, $getdimlabel(profile, 0, -1), data
      -
      1337  setscale /p x dimoffset(profile, 0), dimdelta(profile, 0), waveunits(profile, 0), data
      -
      1338  setscale /p y dimoffset(source, 2), dimdelta(source, 2), waveunits(source, 2), data
      -
      1339  setscale /p z dimoffset(source, 3), dimdelta(source, 3), waveunits(source, 3), data
      -
      1340  setscale d 0, 0, waveunits(profile, -1), data
      -
      1341  note data, note(profile)
      -
      1342  result_waves[iw] = data
      -
      1343  endfor
      -
      1344  endif
      -
      1345 
      -
      1346  // copy results
      -
      1347  for (iw = 0; iw < func_result; iw += 1)
      -
      1348  sw = "redw_" + num2str(iw)
      -
      1349  wave profile = dfr:$sw
      -
      1350  wave data = result_waves[iw]
      -
      1351  data[][rr][ss] = profile[p]
      -
      1352  endfor
      -
      1353 
      -
      1354  n_recvd += 1
      -
      1355  KillDataFolder /Z dfr
      -
      1356  endif
      -
      1357  else
      -
      1358  // processing complete
      -
      1359  break
      -
      1360  endif
      -
      1361 
      -
      1362  // update progress window
      -
      1363  if (progress)
      -
      1364  if (update_progress_panel(n_recvd))
      -
      1365  print "user abort"
      -
      1366  result = -4
      -
      1367  break
      -
      1368  endif
      -
      1369  endif
      -
      1370  while ((n_recvd < nzt) && (result == 0))
      -
      1371 
      -
      1372  // clean up
      -
      1373  if (nthreads > 0)
      -
      1374  variable tstatus = ThreadGroupRelease(threadGroupID)
      -
      1375  if (tstatus == -2)
      -
      1376  print "error: thread did not terminate properly."
      -
      1377  result = -5
      -
      1378  endif
      -
      1379  endif
      -
      1380 
      -
      1381  // finalize results
      -
      1382  nw = numpnts(result_waves)
      -
      1383  wavenames = ""
      -
      1384  for (iw = 0; iw < nw; iw += 1)
      -
      1385  wave /z data = result_waves[iw]
      -
      1386  if (WaveExists(data))
      -
      1387  if (nz == 1)
      -
      1388  redimension /n=(-1, 0, 0) data
      -
      1389  elseif (nt == 1)
      -
      1390  redimension /n=(-1, nz, 0) data
      -
      1391  endif
      -
      1392  wavenames += nameofwave(data) + ";"
      -
      1393  endif
      -
      1394  endfor
      -
      1395 
      -
      1396  if (progress)
      -
      1397  kill_progress_panel()
      -
      1398  endif
      -
      1399 
      -
      1400  setdatafolder base_df
      -
      1401  return result
      -
      1402 end
      -
      1403 
      -
      1410 threadsafe static function reduce_brick_worker(reduction_func)
      -
      1411  funcref adh5_default_reduction reduction_func
      -
      1412  do
      -
      1413  // wait for job from main thread
      -
      1414  do
      -
      1415  dfref dfr = ThreadGroupGetDFR(0, 1000)
      -
      1416  if (DataFolderRefStatus(dfr) == 0)
      -
      1417  if (GetRTError(2))
      -
      1418  return 0 // no more jobs
      -
      1419  endif
      -
      1420  else
      -
      1421  break
      -
      1422  endif
      -
      1423  while (1)
      -
      1424 
      -
      1425  // get input data
      -
      1426  wave image = dfr:image
      -
      1427  svar func_param = dfr:func_param
      -
      1428  nvar rr = dfr:r_index
      -
      1429  nvar ss = dfr:s_index
      -
      1430 
      -
      1431  // do the work
      -
      1432  newdatafolder /s outDF
      -
      1433  variable /g r_index = rr
      -
      1434  variable /g s_index = ss
      -
      1435  string param = func_param
      -
      1436  wave /wave reduced_waves = reduction_func(image, param)
      -
      1437  variable /g func_result = numpnts(reduced_waves)
      -
      1438 
      -
      1439  // send output to queue and clean up
      -
      1440  adh5_get_result_waves(reduced_waves, "redw_", 0)
      -
      1441  WaveClear image, reduced_waves
      -
      1442  ThreadGroupPutDF 0, :
      -
      1443  KillDataFolder dfr
      -
      1444  while (1)
      -
      1445 
      -
      1446  return 0
      -
      1447 end
      -
      1448 
      -
      1463 threadsafe function adh5_get_result_waves(results, result_prefix, start_index)
      -
      1464  wave /wave results
      -
      1465  string result_prefix
      -
      1466  variable start_index
      -
      1467 
      -
      1468  variable nw = numpnts(results)
      -
      1469  variable iw
      -
      1470  string sw
      -
      1471  for (iw = 0; iw < nw; iw += 1)
      -
      1472  sw = result_prefix + num2str(iw + start_index)
      -
      1473  duplicate /o results[iw], $sw
      -
      1474  endfor
      -
      1475 end
      -
      1476 
      -
      1499 function adh5_load_reduced_detector(fileID, detectorpath, reduction_func, reduction_param, [progress, nthreads])
      -
      1500  variable fileID
      -
      1501  string detectorpath
      -
      1502  funcref adh5_default_reduction reduction_func
      -
      1503  string reduction_param
      -
      1504  variable progress
      -
      1505  variable nthreads
      -
      1506 
      -
      1507  if (ParamIsDefault(progress))
      -
      1508  progress = 1
      -
      1509  endif
      -
      1510  if (ParamIsDefault(nthreads))
      -
      1511  nthreads = -1
      -
      1512  endif
      -
      1513  variable result = 0
      -
      1514 
      -
      1515  // avoid compilation error if HDF5 XOP has not been loaded
      -
      1516  #if Exists("HDF5LoadData")
      -
      1517  string datasetname
      -
      1518  string datawavename
      -
      1519 
      -
      1520  // detector data
      -
      1521  datasetname = detectorpath + "data"
      -
      1522  STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      -
      1523  InitHDF5DataInfo(di)
      -
      1524  variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      -
      1525  if (err != 0)
      -
      1526  print "error accessing detector/data"
      -
      1527  return -1
      -
      1528  endif
      -
      1529  if (di.ndims < 2)
      -
      1530  print "error: rank of dataset < 2"
      -
      1531  return -2
      -
      1532  endif
      -
      1533 
      -
      1534  // nx and nz are the image dimensions
      -
      1535  variable idx, idy, idz, idt
      -
      1536  idx = di.ndims - 1
      -
      1537  idy = di.ndims - 2
      -
      1538  idz = -1
      -
      1539  idt = -1
      -
      1540 
      -
      1541  variable nx, ny, nz, nt
      -
      1542  nx = di.dims[idx]
      -
      1543  ny = di.dims[idy]
      -
      1544  nz = 1
      -
      1545  nt = 1
      -
      1546 
      -
      1547  // find additional dimensions, ignore singletons
      -
      1548  variable id
      -
      1549  for (id = idy - 1; (id >= 0) && (nz == 1); id -= 1)
      -
      1550  if (di.dims[id] > 1)
      -
      1551  idz = id
      -
      1552  nz = di.dims[id]
      -
      1553  endif
      -
      1554  endfor
      -
      1555  for (id = idz - 1; (id >= 0) && (nt == 1); id -= 1)
      -
      1556  if (di.dims[id] > 1)
      -
      1557  idt = id
      -
      1558  nt = di.dims[id]
      -
      1559  endif
      -
      1560  endfor
      -
      1561  // default values if dimensions are not present in dataset
      -
      1562  if (idz < 0)
      -
      1563  idz = idx + 1
      -
      1564  idt = idz + 1
      -
      1565  elseif (idt < 0)
      -
      1566  idt = idx + 1
      -
      1567  endif
      -
      1568  variable nzt = nz * nt
      -
      1569  variable izt
      -
      1570 
      -
      1571  // load data image by image
      -
      1572  HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      -
      1573  wave slab
      -
      1574  slab[][%Start] = 0
      -
      1575  slab[][%Stride] = 1
      -
      1576  slab[][%Count] = 1
      -
      1577  slab[][%Block] = 1
      -
      1578  slab[idx][%Block] = nx
      -
      1579  slab[idy][%Block] = ny
      -
      1580 
      -
      1581  // set up multi threading
      -
      1582  if (nthreads < 0)
      -
      1583  nthreads = ThreadProcessorCount
      -
      1584  endif
      -
      1585  if (nthreads > 0)
      -
      1586  variable threadGroupID = ThreadGroupCreate(nthreads)
      -
      1587  variable ithread
      -
      1588  for (ithread = 0; ithread < nthreads; ithread += 1)
      -
      1589  ThreadStart threadGroupID, ithread, reduce_slab_worker(reduction_func)
      -
      1590  endfor
      -
      1591  else
      -
      1592  make /n=(nzt) /df /free processing_folders
      -
      1593  endif
      -
      1594 
      -
      1595  if (progress)
      -
      1596  display_progress_panel("HDF5 Import", "Loading data (step 1 of 2)...", nzt)
      -
      1597  endif
      -
      1598 
      -
      1599  make /n=(nx,ny)/d image_template
      -
      1600  setdimlabel 0, -1, AD_Dim0, image_template
      -
      1601  setdimlabel 1, -1, AD_Dim1, image_template
      -
      1602  adh5_scale(image_template)
      -
      1603 
      -
      1604  variable iz, it
      -
      1605  string dfname
      -
      1606  variable iw, nw
      -
      1607  string sw
      -
      1608  make /n=0 /free /wave result_waves
      -
      1609 
      -
      1610  izt = 0
      -
      1611  for (iz = 0; iz < nz; iz += 1)
      -
      1612  for (it = 0; it < nt; it += 1)
      -
      1613  // load hyperslab
      -
      1614  slab[idz][%Start] = iz
      -
      1615  slab[idt][%Start] = it
      -
      1616  dfname = "processing_" + num2str(izt)
      -
      1617  newdatafolder /s $dfname
      -
      1618  HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      -
      1619 
      -
      1620  // send to processing queue
      -
      1621  duplicate image_template, image
      -
      1622  variable /g r_index = iz
      -
      1623  variable /g s_index = it
      -
      1624  string /g func_param = reduction_param
      -
      1625 
      -
      1626  if (nthreads > 0)
      -
      1627  WaveClear image
      -
      1628  ThreadGroupPutDF threadGroupID, :
      -
      1629  else
      -
      1630  processing_folders[izt] = GetDataFolderDFR()
      -
      1631  wave slabdata
      -
      1632  wave /wave reduced_waves = reduce_slab_image(slabdata, image, reduction_func, func_param)
      -
      1633  variable /g func_result = numpnts(reduced_waves)
      -
      1634  adh5_get_result_waves(reduced_waves, "redw_", 0)
      -
      1635  WaveClear slabdata, image, reduced_waves
      -
      1636  setdatafolder ::
      -
      1637  endif
      -
      1638 
      -
      1639  izt += 1
      -
      1640  // progress window
      -
      1641  if (progress)
      -
      1642  if (update_progress_panel(izt))
      -
      1643  result = -4 // user abort
      -
      1644  break
      -
      1645  endif
      -
      1646  endif
      -
      1647  endfor
      -
      1648  endfor
      -
      1649 
      -
      1650  killwaves /z slab, image_template
      -
      1651  if (progress)
      -
      1652  update_progress_panel(0, message="Processing data (step 2 of 2)...")
      -
      1653  endif
      -
      1654 
      -
      1655  dfref dfr
      -
      1656  for (izt = 0; (izt < nzt) && (result == 0); izt += 1)
      -
      1657  if (nthreads > 0)
      -
      1658  do
      -
      1659  dfr = ThreadGroupGetDFR(threadGroupID, 1000)
      -
      1660  if (DatafolderRefStatus(dfr) != 0)
      -
      1661  break
      -
      1662  endif
      -
      1663  if (progress)
      -
      1664  if (update_progress_panel(izt))
      -
      1665  result = -4 // user abort
      -
      1666  break
      -
      1667  endif
      -
      1668  endif
      -
      1669  while (1)
      -
      1670  else
      -
      1671  dfr = processing_folders[izt]
      -
      1672  if (progress)
      -
      1673  if (update_progress_panel(izt))
      -
      1674  result = -4 // user abort
      -
      1675  break
      -
      1676  endif
      -
      1677  endif
      -
      1678  endif
      -
      1679 
      -
      1680  if (result != 0)
      -
      1681  break
      -
      1682  endif
      -
      1683 
      -
      1684  nvar rr = dfr:r_index
      -
      1685  nvar ss = dfr:s_index
      -
      1686  nvar func_result = dfr:func_result
      -
      1687 
      -
      1688  if (func_result < 1)
      -
      1689  result = -3 // dimension reduction error
      -
      1690  break
      -
      1691  endif
      -
      1692 
      -
      1693  if (numpnts(result_waves) == 0)
      -
      1694  redimension /n=(func_result) result_waves
      -
      1695  for (iw = 0; iw < func_result; iw += 1)
      -
      1696  sw = "redw_" + num2str(iw)
      -
      1697  wave profile = dfr:$sw
      -
      1698  sw = "ReducedData" + num2str(iw+1)
      -
      1699  make /n=(dimsize(profile, 0), nz, nt) /d /o $sw
      -
      1700  wave data = $sw
      -
      1701  setdimlabel 0, -1, $getdimlabel(profile, 0, -1), data
      -
      1702  setscale /p x dimoffset(profile, 0), dimdelta(profile, 0), waveunits(profile, 0), data
      -
      1703  setscale d 0, 0, waveunits(profile, -1), data
      -
      1704  result_waves[iw] = data
      -
      1705  endfor
      -
      1706  endif
      -
      1707  for (iw = 0; iw < func_result; iw += 1)
      -
      1708  sw = "redw_" + num2str(iw)
      -
      1709  wave profile = dfr:$sw
      -
      1710  wave data = result_waves[iw]
      -
      1711  data[][rr][ss] = profile[p]
      -
      1712  endfor
      -
      1713  endfor
      -
      1714 
      -
      1715  if (nthreads > 0)
      -
      1716  variable tstatus = ThreadGroupRelease(threadGroupID)
      -
      1717  if (tstatus == -2)
      -
      1718  result = -5 // thread did not terminate properly
      -
      1719  endif
      -
      1720  else
      -
      1721  for (izt = 0; izt < nzt; izt += 1)
      -
      1722  KillDataFolder /Z processing_folders[izt]
      -
      1723  endfor
      -
      1724  endif
      -
      1725 
      -
      1726  if (result == 0)
      -
      1727  nw = numpnts(result_waves)
      -
      1728  for (iw = 0; iw < nw; iw += 1)
      -
      1729  wave data = result_waves[iw]
      -
      1730  if (nz == 1)
      -
      1731  redimension /n=(dimsize(data, 0)) data
      -
      1732  elseif (nt == 1)
      -
      1733  redimension /n=(dimsize(data, 0),nz) data
      -
      1734  setdimlabel 1, -1, AD_DimN, data
      -
      1735  else
      -
      1736  setdimlabel 1, -1, AD_DimN, data
      -
      1737  setdimlabel 2, -1, AD_DimX, data
      -
      1738  endif
      -
      1739  endfor
      -
      1740  endif
      -
      1741  if (progress)
      -
      1742  kill_progress_panel()
      -
      1743  endif
      -
      1744 
      -
      1745  #else
      -
      1746  Abort "HDF5 XOP not loaded."
      -
      1747  #endif
      -
      1748  return result
      -
      1749 end
      -
      1750 
      -
      1751 threadsafe static function reduce_slab_worker(reduction_func)
      -
      1752  funcref adh5_default_reduction reduction_func
      -
      1753  do
      -
      1754  // wait for job from main thread
      -
      1755  do
      -
      1756  dfref dfr = ThreadGroupGetDFR(0, 1000)
      -
      1757  if (DataFolderRefStatus(dfr) == 0)
      -
      1758  if (GetRTError(2))
      -
      1759  return 0 // no more jobs
      -
      1760  endif
      -
      1761  else
      -
      1762  break
      -
      1763  endif
      -
      1764  while (1)
      -
      1765 
      -
      1766  // get input data
      -
      1767  wave slabdata = dfr:slabdata
      -
      1768  wave image = dfr:image
      -
      1769  svar func_param = dfr:func_param
      -
      1770  nvar rr = dfr:r_index
      -
      1771  nvar ss = dfr:s_index
      -
      1772 
      -
      1773  // do the work
      -
      1774  newdatafolder /s outDF
      -
      1775  variable /g r_index = rr
      -
      1776  variable /g s_index = ss
      -
      1777  wave /wave reduced_waves = reduce_slab_image(slabdata, image, reduction_func, func_param)
      -
      1778  variable /g func_result = numpnts(reduced_waves)
      -
      1779 
      -
      1780  // send output to queue and clean up
      -
      1781  adh5_get_result_waves(reduced_waves, "redw_", 0)
      -
      1782  WaveClear slabdata, image, reduced_waves
      -
      1783  ThreadGroupPutDF 0, :
      -
      1784  KillDataFolder dfr
      -
      1785  while (1)
      -
      1786 
      -
      1787  return 0
      -
      1788 end
      -
      1789 
      -
      1790 threadsafe static function /wave reduce_slab_image(slabdata, image, reduction_func, reduction_param)
      -
      1791  wave slabdata
      -
      1792  wave image
      -
      1793  funcref adh5_default_reduction reduction_func
      -
      1794  string reduction_param
      -
      1795 
      -
      1796  switch (WaveDims(slabdata))
      -
      1797  case 2:
      -
      1798  image = slabdata[q][p]
      -
      1799  break
      -
      1800  case 3:
      -
      1801  image = slabdata[0][q][p]
      -
      1802  break
      -
      1803  case 4:
      -
      1804  image = slabdata[0][0][q][p]
      -
      1805  break
      -
      1806  endswitch
      -
      1807 
      -
      1808  return reduction_func(image, reduction_param)
      -
      1809 end
      -
      1810 
      -
      1823 function adh5_loadattr_all(fileID, attributespath)
      -
      1824  variable fileID
      -
      1825  string attributespath
      -
      1826 
      -
      1827  string datasetname
      -
      1828  string datawavename
      -
      1829 
      -
      1830  // avoid compilation error if HDF5 XOP has not been loaded
      -
      1831  #if Exists("HDF5LoadData")
      -
      1832 
      -
      1833  // datasets in NDAttributes group
      -
      1834  HDF5ListGroup /F /TYPE=2 fileID, attributespath
      -
      1835  string h5datasets = S_HDF5ListGroup
      -
      1836  HDF5ListAttributes /TYPE=1 /Z fileID, attributespath
      -
      1837  string h5attributes = S_HDF5ListAttributes
      -
      1838 
      -
      1839  variable nds = ItemsInList(h5datasets, ";")
      -
      1840  variable na = ItemsInList(h5attributes, ";")
      -
      1841  variable ids
      -
      1842  variable idest = 0
      -
      1843  variable n_attr
      -
      1844  string s_attr
      -
      1845  string s_source
      -
      1846 
      -
      1847  make /n=(nds+na) /t /o IN, ID, IV, IU
      -
      1848 
      -
      1849  for (ids = 0; ids < nds; ids += 1)
      -
      1850  datasetname = StringFromList(ids, h5datasets, ";")
      -
      1851  HDF5LoadData /O/Q fileID, datasetname
      -
      1852  if (v_flag == 0)
      -
      1853  datawavename = StringFromList(0, s_wavenames)
      -
      1854  else
      -
      1855  datawavename = ""
      -
      1856  endif
      -
      1857  HDF5LoadData /A="source"/O/Q/TYPE=2 fileID, datasetname
      -
      1858  if (v_flag == 0)
      -
      1859  wave /t source
      -
      1860  s_source = source[0]
      -
      1861  else
      -
      1862  s_source = ""
      -
      1863  endif
      -
      1864  read_attribute_info(datawavename, s_source, idest)
      -
      1865  endfor
      -
      1866 
      -
      1867  // attributes of NDAttributes group
      -
      1868  if (v_flag == 0)
      -
      1869  nds = ItemsInList(h5attributes, ";")
      -
      1870  else
      -
      1871  nds = 0
      -
      1872  endif
      -
      1873  for (ids = 0; ids < nds; ids += 1)
      -
      1874  datasetname = StringFromList(ids, h5attributes, ";")
      -
      1875  HDF5LoadData /A=datasetname/O/Q/TYPE=1 fileID, attributespath
      -
      1876  if (v_flag == 0)
      -
      1877  datawavename = StringFromList(0, s_wavenames)
      -
      1878  read_attribute_info(datawavename, "", idest) // we don't get the source of these attributes
      -
      1879  endif
      -
      1880  endfor
      -
      1881 
      -
      1882  redimension /n=(idest) IN, ID, IV, IU
      -
      1883  sort {IN, ID}, IN, ID, IV, IU
      -
      1884 
      -
      1885  killwaves /z source
      -
      1886  #else
      -
      1887  Abort "HDF5 XOP not loaded."
      -
      1888  #endif
      -
      1889 
      -
      1890 end
      -
      1891 
      -
      1905 static function read_attribute_info(datawavename, source, idest)
      -
      1906  string datawavename // name of the attribute wave in the current folder.
      -
      1907  // can be text or numeric.
      -
      1908  string source
      -
      1909  // source identifier (EPICS name) of the attribute.
      -
      1910  variable &idest
      -
      1911  // destination index in IN, ID, IV, IU where the results are written.
      -
      1912  // the variable is incremented if data was written, otherwise it is left unchanged.
      -
      1913  // make sure IN, ID, IV, IU have at least idest + 1 elements.
      -
      1914 
      -
      1915  wave /t IN
      -
      1916  wave /t ID
      -
      1917  wave /t IV
      -
      1918  wave /t IU
      -
      1919 
      -
      1920  variable n_attr
      -
      1921  string s_attr
      -
      1922 
      -
      1923  if (exists(datawavename) == 1)
      -
      1924  if (strlen(source) > 0)
      -
      1925  Note $datawavename, "PV=" + source
      -
      1926  endif
      -
      1927  switch(WaveType($datawavename, 1))
      -
      1928  case 1: // numeric
      -
      1929  wave w_attr = $datawavename
      -
      1930  n_attr = numpnts(w_attr)
      -
      1931  sprintf s_attr, "%.12g", w_attr[0]
      -
      1932  break
      -
      1933  case 2: // text
      -
      1934  wave /t wt_attr = $datawavename
      -
      1935  n_attr = numpnts(wt_attr)
      -
      1936  s_attr = wt_attr[0]
      -
      1937  break
      -
      1938  default: // unknown
      -
      1939  n_attr = 0
      -
      1940  endswitch
      -
      1941  if (n_attr == 1)
      -
      1942  IN[idest] = source
      -
      1943  ID[idest] = datawavename
      -
      1944  IV[idest] = s_attr
      -
      1945  IU[idest] = "" // we don't get the units
      -
      1946  idest += 1
      -
      1947  endif
      -
      1948  endif
      -
      1949 end
      -
      1950 
      -
      1958 function adh5_scale_scienta(data)
      -
      1959  wave data
      -
      1960 
      -
      1961  dfref saveDF = GetDataFolderDFR()
      -
      1962 
      -
      1963  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      1964  dfref attrDF = GetAttrDataFolderDFR(data)
      -
      1965 
      -
      1966  wave /SDFR=attrDF LensMode
      -
      1967  wave /SDFR=attrDF /Z ChannelBegin, ChannelEnd
      -
      1968  wave /SDFR=attrDF /Z SliceBegin, SliceEnd
      -
      1969 
      -
      1970  variable EDim, ADim
      -
      1971  variable ELow, EHigh, ALow, AHigh
      -
      1972  string EUnit, AUnit
      -
      1973 
      -
      1974  // which dimension is angle and which one is energy?
      -
      1975  strswitch(GetDimLabel(data, 0, -1))
      -
      1976  case "AD_Dim0":
      -
      1977  EDim = 0
      -
      1978  break
      -
      1979  case "AD_Dim1":
      -
      1980  EDim = 1
      -
      1981  break
      -
      1982  default:
      -
      1983  EDim = -1
      -
      1984  endswitch
      -
      1985  strswitch(GetDimLabel(data, 1, -1))
      -
      1986  case "AD_Dim0":
      -
      1987  ADim = 0
      -
      1988  break
      -
      1989  case "AD_Dim1":
      -
      1990  ADim = 1
      -
      1991  break
      -
      1992  default:
      -
      1993  ADim = -1
      -
      1994  endswitch
      -
      1995 
      -
      1996  // defaults (point scaling)
      -
      1997  if (EDim >= 0)
      -
      1998  ELow = dimoffset(data, EDim)
      -
      1999  EHigh = dimoffset(data, EDim) + dimdelta(data, EDim) * (dimsize(data, EDim) - 1)
      -
      2000  EUnit = "eV"
      -
      2001  endif
      -
      2002  if (ADim >= 0)
      -
      2003  ALow = dimoffset(data, ADim)
      -
      2004  AHigh = dimoffset(data, ADim) + dimdelta(data, ADim) * (dimsize(data, ADim) - 1)
      -
      2005  AUnit = "arb."
      -
      2006  endif
      -
      2007 
      -
      2008  // lens mode can give more detail
      -
      2009  if (waveexists(LensMode) && (numpnts(LensMode) >= 1))
      -
      2010  switch(LensMode[0])
      -
      2011  case 1: // Angular45
      -
      2012  ALow = -45/2
      -
      2013  AHigh = +45/2
      -
      2014  AUnit = "°"
      -
      2015  break
      -
      2016  case 2: // Angular60
      -
      2017  ALow = -60/2
      -
      2018  AHigh = +60/2
      -
      2019  AUnit = "°"
      -
      2020  break
      -
      2021  endswitch
      -
      2022  endif
      -
      2023 
      -
      2024  // best option if scales are explicit in separate waves
      -
      2025  if (waveexists(ChannelBegin) && waveexists(ChannelEnd) && (numpnts(ChannelBegin) >= 1) && (numpnts(ChannelEnd) >= 1))
      -
      2026  ELow = ChannelBegin[0]
      -
      2027  EHigh = ChannelEnd[0]
      -
      2028  endif
      -
      2029  if (waveexists(SliceBegin) && waveexists(SliceEnd) && (numpnts(SliceBegin) >= 1) && (numpnts(SliceEnd) >= 1))
      -
      2030  ALow = SliceBegin[0]
      -
      2031  AHigh = SliceEnd[0]
      -
      2032  endif
      -
      2033 
      -
      2034  // apply new scales
      -
      2035  switch(EDim)
      -
      2036  case 0:
      -
      2037  setscale /i x ELow, EHigh, EUnit, data
      -
      2038  break
      -
      2039  case 1:
      -
      2040  setscale /i y ELow, EHigh, EUnit, data
      -
      2041  break
      -
      2042  endswitch
      -
      2043  switch(ADim)
      -
      2044  case 0:
      -
      2045  setscale /i x ALow, AHigh, AUnit, data
      -
      2046  break
      -
      2047  case 1:
      -
      2048  setscale /i y ALow, AHigh, AUnit, data
      -
      2049  break
      -
      2050  endswitch
      -
      2051 
      -
      2052  setscale d 0, 0, "arb.", data
      -
      2053 
      -
      2054  setdatafolder saveDF
      -
      2055 end
      -
      2056 
      -
      2063 function adh5_scale_scan(data)
      -
      2064  wave data
      -
      2065 
      -
      2066  dfref saveDF = GetDataFolderDFR()
      -
      2067 
      -
      2068  dfref dataDF = GetWavesDataFolderDFR(data)
      -
      2069  wave /SDFR=dataDF AcquisitionMode, DetectorMode, EnergyMode
      -
      2070 
      -
      2071  wave /SDFR=dataDF /z Scan1Active, Scan2Active
      -
      2072  wave /SDFR=dataDF /t /z Scan1Positioner1, Scan1Readback1
      -
      2073  wave /SDFR=dataDF /t /z Scan1Positioner2, Scan1Readback2
      -
      2074  wave /SDFR=dataDF /t /z Scan2Positioner1, Scan2Readback1
      -
      2075  wave /SDFR=dataDF /t /z Scan2Positioner2, Scan2Readback2
      -
      2076 
      -
      2077  // TODO : search the data folder for positioner waves,
      -
      2078  // i.e. waves with the PV name corresponding to Scan1Positioner1 in their wave note.
      -
      2079  wave /z zscale
      -
      2080 
      -
      2081  strswitch(GetDimLabel(data, 0, -1))
      -
      2082  case "AD_DimN":
      -
      2083  setscale /i x zscale[0], zscale[numpnts(zscale)-1], "", data
      -
      2084  break
      -
      2085  endswitch
      -
      2086  strswitch(GetDimLabel(data, 1, -1))
      -
      2087  case "AD_DimN":
      -
      2088  setscale /i y zscale[0], zscale[numpnts(zscale)-1], "", data
      -
      2089  break
      -
      2090  endswitch
      -
      2091  strswitch(GetDimLabel(data, 2, -1))
      -
      2092  case "AD_DimN":
      -
      2093  setscale /i z zscale[0], zscale[numpnts(zscale)-1], "", data
      -
      2094  break
      -
      2095  endswitch
      -
      2096 
      -
      2097  setdatafolder saveDF
      -
      2098 end
      +Go to the documentation of this file.
      1#pragma TextEncoding = "UTF-8"
      +
      2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
      +
      3#pragma IgorVersion = 6.36
      +
      4#pragma ModuleName = PearlAreaImport
      +
      5#pragma version = 1.13
      +
      6#if IgorVersion() < 9.00
      +
      7#include <HDF5 Browser>
      +
      8#endif
      +
      9#include "pearl-compat"
      +
      10#include "pearl-gui-tools"
      +
      11
      +
      12// copyright (c) 2013-21 Paul Scherrer Institut
      +
      13//
      +
      14// Licensed under the Apache License, Version 2.0 (the "License");
      +
      15// you may not use this file except in compliance with the License.
      +
      16// You may obtain a copy of the License at
      +
      17// http:///www.apache.org/licenses/LICENSE-2.0
      +
      18
      +
      38
      +
      43
      +
      +
      46static function BeforeFileOpenHook(refNum,fileName,path,type,creator,kind)
      +
      47 variable refNum, kind
      +
      48 string fileName, path, type, creator
      +
      49
      +
      50 variable handledOpen = 0
      +
      51
      +
      52 //PathInfo $path
      +
      53 //string FilePath = s_path + filename
      +
      54 string NickName = PearlCleanupName(ParseFilePath(3, FileName, ":", 0, 0))
      +
      55 string FileExt = LowerStr(ParseFilePath(4, FileName, ":", 0, 0))
      +
      56 string result = ""
      +
      57
      +
      58 // override nickname with custom setting
      +
      59 svar /z cnn = gsCustomNickName
      +
      60 if (svar_exists(cnn))
      +
      61 if (exists("gvNickNameIndex") != 2)
      +
      62 variable/g gvNickNameIndex = 1
      +
      63 endif
      +
      64 nvar nni = gvNickNameIndex
      +
      65 NickName = cnn + num2str(nni)
      +
      66 nni += 1
      +
      67 endif
      +
      68
      +
      69 if (stringmatch(FileExt, "h5") == 1)
      +
      70 result = adh5_load_complete(NickName, path, FileName)
      +
      71 endif
      +
      72
      +
      73 string/g s_latest_datafile = result
      +
      74 string/g s_latest_nickname = nickname
      +
      75
      +
      76 handledOpen = strlen(result) > 0
      +
      77 if (handledOpen)
      +
      78 close refnum
      +
      79 endif
      +
      80
      +
      81 return handledOpen // 1 tells Igor not to open the file
      +
      82End
      +
      +
      83
      +
      +
      110function /s ad_suggest_foldername(filename, [ignoredate,sourcename,unique])
      +
      111 string filename
      +
      112 variable ignoredate
      +
      113 string sourcename
      +
      114 variable unique
      +
      115
      +
      116 if (ParamIsDefault(ignoredate))
      +
      117 ignoredate = 0
      +
      118 endif
      +
      119 if (ParamIsDefault(unique))
      +
      120 unique = 0
      +
      121 endif
      +
      122
      +
      123 string basename = ParseFilePath(3, filename, ":", 0, 0)
      +
      124 string extension = ParseFilePath(4, filename, ":", 0, 0)
      +
      125 string nickname
      +
      126
      +
      127 string autosource
      +
      128 if (strsearch(basename, "scienta", 0, 2) >= 0)
      +
      129 autosource = "sci"
      +
      130 elseif (strsearch(basename, "pshell", 0, 2) >= 0)
      +
      131 autosource = "psh"
      +
      132 elseif (strsearch(basename, "OP-SL", 0, 2) >= 0)
      +
      133 autosource = "sl"
      +
      134 elseif (strsearch(basename, "ES-PS", 0, 2) >= 0)
      +
      135 autosource = "es"
      +
      136 else
      +
      137 autosource = "xy"
      +
      138 endif
      +
      139 if (ParamIsDefault(sourcename))
      +
      140 sourcename = autosource
      +
      141 endif
      +
      142
      +
      143 variable nparts = ItemsInList(basename, "-")
      +
      144 if (nparts >= 3)
      +
      145 string datepart = StringFromList(1, basename, "-")
      +
      146 variable l_datepart = strlen(datepart)
      +
      147 if (l_datepart == 8)
      +
      148 datepart = datepart[l_datepart-6, l_datepart-1]
      +
      149 endif
      +
      150 string indexpart = StringFromList(2, basename, "-")
      +
      151 if (ignoredate)
      +
      152 sprintf nickname, "%s_%s", sourcename, indexpart
      +
      153 else
      +
      154 sprintf nickname, "%s_%s_%s", sourcename, datepart, indexpart
      +
      155 endif
      +
      156 else
      +
      157 nickname = PearlCleanupName(basename)
      +
      158 endif
      +
      159
      +
      160 if (unique && CheckName(nickname, 11))
      +
      161 nickname = UniqueName(nickname + "_", 11, 0)
      +
      162 endif
      +
      163
      +
      164 return nickname
      +
      165end
      +
      +
      166
      +
      +
      171function ad_load_dialog(APathName)
      +
      172 string APathName
      +
      173
      +
      174 variable refNum
      +
      175 string message = "Select data files"
      +
      176 string filepaths
      +
      177 string filefilters = "Area Detector HDF5 Files (*.h5):.h5;"
      +
      178 filefilters += "All Files:.*;"
      +
      179
      +
      180 PathInfo /S $APathName
      +
      181 Open /D /R /F=filefilters /M=message /MULT=1 refNum
      +
      182 filepaths = S_fileName
      +
      183
      +
      184 dfref saveDF = GetDataFolderDFR()
      +
      185 setdatafolder root:
      +
      186
      +
      187 if (strlen(filepaths) > 0)
      +
      188 variable nfiles = ItemsInList(filepaths, "\r")
      +
      189 variable ifile
      +
      190 for(ifile = 0; ifile < nfiles; ifile += 1)
      +
      191 String path = StringFromList(ifile, filepaths, "\r")
      +
      192 string nickname = ad_suggest_foldername(path)
      +
      193 adh5_load_complete(nickname, "", path)
      +
      194 endfor
      +
      195 endif
      +
      196
      +
      197 setdatafolder saveDF
      +
      198end
      +
      +
      199
      +
      +
      211function /s adh5_load_complete(ANickName, APathName, AFileName, [load_data, load_attr])
      +
      212 string ANickName
      +
      213 string APathName
      +
      214 string AFileName
      +
      215 variable load_data
      +
      216 variable load_attr
      +
      217
      +
      218 if (ParamIsDefault(load_data))
      +
      219 load_data = 1
      +
      220 endif
      +
      221 if (ParamIsDefault(load_attr))
      +
      222 load_attr = 1
      +
      223 endif
      +
      224
      +
      225 dfref saveDF = GetDataFolderDFR()
      +
      226 setdatafolder root:
      +
      227 newdatafolder /s/o $("root:" + ANickName)
      +
      228
      +
      229 // open file
      +
      230 variable fileID
      +
      231 string instrumentpath = "/entry/instrument/"
      +
      232 string detectorpath = instrumentpath + "detector/"
      +
      233 string attributespath = instrumentpath + "NDAttributes/"
      +
      234 string datasetname
      +
      235 string datawavename
      +
      236
      +
      237 // performance monitoring
      +
      238 variable timerRefNum
      +
      239 variable /g adh5_perf_secs
      +
      240 timerRefNum = startMSTimer
      +
      241
      +
      242 // avoid compilation error if HDF5 XOP has not been loaded
      +
      243 #if Exists("HDF5OpenFile")
      +
      244 HDF5OpenFile /P=$APathName/R fileID as AFileName
      +
      245 if (v_flag == 0)
      +
      246 AFileName = s_path + s_filename
      +
      247 print "loading " + s_filename + "\r"
      +
      248
      +
      249 if (load_data)
      +
      250 adh5_load_detector_slabs(fileID, detectorpath)
      +
      251 endif
      +
      252 if (load_attr)
      +
      253 newdatafolder /o/s attr
      +
      254 adh5_loadattr_all(fileID, attributespath)
      +
      255 setdatafolder ::
      +
      256 endif
      +
      257
      +
      258 wave /z data
      +
      259 if (waveexists(data))
      +
      260 //adh5_redim(data) // not to be used with adh5_load_detector_slabs
      +
      261 adh5_scale(data)
      +
      262 endif
      +
      263
      +
      264 HDF5CloseFile fileID
      +
      265 else
      +
      266 AFileName = ""
      +
      267 endif
      +
      268 #else
      +
      269 Abort "HDF5 XOP not loaded."
      +
      270 #endif
      +
      271
      +
      272 if (timerRefNum >= 0)
      +
      273 adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      +
      274 endif
      +
      275
      +
      276 setdatafolder saveDF
      +
      277 return AFileName
      +
      278end
      +
      +
      279
      +
      +
      306function /s adh5_load_reduced(ANickName, APathName, AFileName, reduction_func, reduction_param, [load_data, load_attr, progress])
      +
      307 string ANickName
      +
      308 string APathName
      +
      309 string AFileName
      +
      310
      +
      311 funcref adh5_default_reduction reduction_func
      +
      312 string reduction_param
      +
      313
      +
      314 variable load_data
      +
      315 variable load_attr
      +
      316 variable progress
      +
      317
      +
      318 if (ParamIsDefault(load_data))
      +
      319 load_data = 1
      +
      320 endif
      +
      321 if (ParamIsDefault(load_attr))
      +
      322 load_attr = 1
      +
      323 endif
      +
      324 if (ParamIsDefault(progress))
      +
      325 progress = 1
      +
      326 endif
      +
      327
      +
      328 dfref saveDF = GetDataFolderDFR()
      +
      329 setdatafolder root:
      +
      330 newdatafolder /s/o $("root:" + ANickName)
      +
      331
      +
      332 // open file
      +
      333 variable fileID
      +
      334 string instrumentpath = "/entry/instrument/"
      +
      335 string detectorpath = instrumentpath + "detector/"
      +
      336 string attributespath = instrumentpath + "NDAttributes/"
      +
      337 string datasetname
      +
      338 string datawavename
      +
      339
      +
      340 // performance monitoring
      +
      341 variable timerRefNum
      +
      342 variable /g adh5_perf_secs
      +
      343 timerRefNum = startMSTimer
      +
      344
      +
      345 // avoid compilation error if HDF5 XOP has not been loaded
      +
      346 #if Exists("HDF5OpenFile")
      +
      347 HDF5OpenFile /P=$APathName/R fileID as AFileName
      +
      348 if (v_flag == 0)
      +
      349 AFileName = s_path + s_filename
      +
      350 print "loading " + s_filename + "\r"
      +
      351
      +
      352 if (load_attr)
      +
      353 newdatafolder /o/s attr
      +
      354 adh5_loadattr_all(fileID, attributespath)
      +
      355 setdatafolder ::
      +
      356 endif
      +
      357 if (load_data)
      +
      358 adh5_load_reduced_detector(fileID, detectorpath, reduction_func, reduction_param, progress=progress)
      +
      359 endif
      +
      360
      +
      361 HDF5CloseFile fileID
      +
      362 else
      +
      363 AFileName = ""
      +
      364 endif
      +
      365 #else
      +
      366 Abort "HDF5 XOP not loaded."
      +
      367 #endif
      +
      368
      +
      369 if (timerRefNum >= 0)
      +
      370 adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      +
      371 endif
      +
      372
      +
      373 setdatafolder saveDF
      +
      374 return AFileName
      +
      375end
      +
      +
      376
      +
      +
      391function /s adh5_load_preview(ANickName, APathName, AFileName, [load_data, load_attr])
      +
      392 string ANickName
      +
      393 string APathName
      +
      394 string AFileName
      +
      395 variable load_data
      +
      396 variable load_attr
      +
      397
      +
      398 if (ParamIsDefault(load_data))
      +
      399 load_data = 1
      +
      400 endif
      +
      401 if (ParamIsDefault(load_attr))
      +
      402 load_attr = 1
      +
      403 endif
      +
      404
      +
      405 dfref saveDF = GetDataFolderDFR()
      +
      406 setdatafolder root:
      +
      407 newdatafolder /o/s pearl_area
      +
      408 newdatafolder /o/s preview
      +
      409
      +
      410 // open file
      +
      411 variable fileID
      +
      412 string instrumentpath = "/entry/instrument/"
      +
      413 string detectorpath = instrumentpath + "detector/"
      +
      414 string attributespath = instrumentpath + "NDAttributes/"
      +
      415 string datasetname
      +
      416 string datawavename
      +
      417
      +
      418 // performance monitoring
      +
      419 variable timerRefNum
      +
      420 variable /g adh5_perf_secs
      +
      421 timerRefNum = startMSTimer
      +
      422
      +
      423 // avoid compilation error if HDF5 XOP has not been loaded
      +
      424 #if Exists("HDF5OpenFile")
      +
      425 HDF5OpenFile /P=$APathName/R/Z fileID as AFileName
      +
      426 if (v_flag == 0)
      +
      427 AFileName = s_path + s_filename
      +
      428
      +
      429 // detector data
      +
      430 datasetname = detectorpath + "data"
      +
      431 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      432 InitHDF5DataInfo(di)
      +
      433 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      434 if (err != 0)
      +
      435 print "error accessing detector/data"
      +
      436 return ""
      +
      437 endif
      +
      438 if (di.ndims < 2)
      +
      439 print "error: rank of dataset < 2"
      +
      440 return ""
      +
      441 endif
      +
      442
      +
      443 variable dim2start = 0, dim2count = 1, dim3start = 0, dim3count = 1
      +
      444 if (di.ndims >= 3)
      +
      445 dim2start = floor(di.dims[di.ndims - 3] / 2)
      +
      446 dim2count = 1
      +
      447 endif
      +
      448 if (di.ndims >= 4)
      +
      449 dim3start = floor(di.dims[di.ndims - 4] / 2)
      +
      450 dim3count = 1
      +
      451 endif
      +
      452
      +
      453 if (load_data)
      +
      454 adh5_load_detector_image(fileID, detectorpath, dim2start, dim2count, dim3start, dim3count)
      +
      455 wave /z data
      +
      456 string destpath = GetDataFolder(1, saveDF) + ANickName
      +
      457 if (waveexists(data))
      +
      458 duplicate /o data, $destpath
      +
      459 wave /z data = $destpath
      +
      460 endif
      +
      461 endif
      +
      462
      +
      463 if (load_attr)
      +
      464 setdatafolder saveDF
      +
      465 newdatafolder /o/s attr
      +
      466 killwaves /a/z
      +
      467 adh5_loadattr_all(fileID, attributespath)
      +
      468 setdatafolder ::
      +
      469 if (waveexists(data))
      +
      470 adh5_scale(data)
      +
      471 endif
      +
      472 endif
      +
      473
      +
      474 HDF5CloseFile fileID
      +
      475 else
      +
      476 print "error opening file " + AFileName
      +
      477 AFileName = ""
      +
      478 endif
      +
      479 #else
      +
      480 Abort "HDF5 XOP not loaded."
      +
      481 #endif
      +
      482
      +
      483 if (timerRefNum >= 0)
      +
      484 adh5_perf_secs = stopMSTimer(timerRefNum) / 1e6
      +
      485 endif
      +
      486
      +
      487 setdatafolder saveDF
      +
      488 return AFileName
      +
      489end
      +
      +
      490
      +
      +
      501function /s adh5_load_info(APathName, AFileName)
      +
      502 string APathName
      +
      503 string AFileName
      +
      504
      +
      505 dfref saveDF = GetDataFolderDFR()
      +
      506
      +
      507 // open file
      +
      508 variable fileID
      +
      509 string instrumentpath = "/entry/instrument/"
      +
      510 string detectorpath = instrumentpath + "detector/"
      +
      511 string attributespath = instrumentpath + "NDAttributes/"
      +
      512 string datasetname
      +
      513 string datawavename
      +
      514
      +
      515 string s_info = ""
      +
      516 string s
      +
      517
      +
      518 variable idim
      +
      519
      +
      520 // avoid compilation error if HDF5 XOP has not been loaded
      +
      521 #if Exists("HDF5OpenFile")
      +
      522 HDF5OpenFile /P=$APathName/R/Z fileID as AFileName
      +
      523 if (v_flag == 0)
      +
      524 AFileName = s_path + s_filename
      +
      525
      +
      526 // detector data
      +
      527 datasetname = detectorpath + "data"
      +
      528 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      529 InitHDF5DataInfo(di)
      +
      530 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      531 if (err != 0)
      +
      532 print "error accessing detector/data"
      +
      533 return ""
      +
      534 endif
      +
      535
      +
      536 for (idim = 0; idim < di.ndims; idim += 1)
      +
      537 sprintf s, "dim %u: %u points", idim, di.dims[idim]
      +
      538 if (strlen(s_info) > 0)
      +
      539 s_info = s_info + "\r" + s
      +
      540 else
      +
      541 s_info = s
      +
      542 endif
      +
      543 endfor
      +
      544
      +
      545 dfref df = NewFreeDataFolder()
      +
      546 setdatafolder df
      +
      547 adh5_loadattr_all(fileID, attributespath)
      +
      548
      +
      549 for (idim = 1; idim < 5; idim += 1)
      +
      550 sprintf s, "Scan%uActive", idim
      +
      551 wave /z w = $s
      +
      552 if (waveexists(w) && (numpnts(w) > 0) && (w[0] > 0))
      +
      553 sprintf s, "Scan%uPositioner1", idim
      +
      554 wave /t wt = $s
      +
      555 sprintf s, "scan %u: %s", idim, wt[0]
      +
      556 if (strlen(s_info) > 0)
      +
      557 s_info = s_info + "\r" + s
      +
      558 else
      +
      559 s_info = s
      +
      560 endif
      +
      561 endif
      +
      562 endfor
      +
      563
      +
      564 HDF5CloseFile fileID
      +
      565 else
      +
      566 print "error opening file " + AFileName
      +
      567 AFileName = ""
      +
      568 endif
      +
      569 #else
      +
      570 Abort "HDF5 XOP not loaded."
      +
      571 #endif
      +
      572
      +
      573 setdatafolder saveDF
      +
      574 return s_info
      +
      575end
      +
      +
      576
      +
      +
      585function adh5_load_detector(fileID, detectorpath)
      +
      586 variable fileID
      +
      587 string detectorpath
      +
      588
      +
      589 // avoid compilation error if HDF5 XOP has not been loaded
      +
      590 #if Exists("HDF5LoadData")
      +
      591 string datasetname
      +
      592 string datawavename
      +
      593
      +
      594 // detector data
      +
      595 datasetname = detectorpath + "data"
      +
      596 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      597 InitHDF5DataInfo(di)
      +
      598 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      599 if (err != 0)
      +
      600 print "error accessing detector/data"
      +
      601 return -1
      +
      602 endif
      +
      603 if (di.ndims < 2)
      +
      604 print "error: rank of dataset < 2"
      +
      605 return -2
      +
      606 endif
      +
      607
      +
      608 HDF5LoadData /O /Q /Z fileID, datasetname
      +
      609 wave data
      +
      610
      +
      611 #else
      +
      612 Abort "HDF5 XOP not loaded."
      +
      613 #endif
      +
      614end
      +
      +
      615
      +
      +
      630function adh5_redim(data)
      +
      631 wave data
      +
      632
      +
      633 duplicate /free data, tempdata
      +
      634 variable nd = wavedims(tempdata)
      +
      635 variable nx = dimsize(tempdata, nd - 1)
      +
      636 variable ny = dimsize(tempdata, nd - 2)
      +
      637 variable nz = dimsize(tempdata, nd - 3)
      +
      638 variable nt = dimsize(tempdata, nd - 4)
      +
      639
      +
      640 switch (nd)
      +
      641 case 2:
      +
      642 if (nx <= 1)
      +
      643 redimension /n=(ny) data
      +
      644 setdimlabel 0, -1, AD_Dim1, data
      +
      645 data = tempdata[p][0]
      +
      646 elseif (ny <= 1)
      +
      647 redimension /n=(nx) data
      +
      648 setdimlabel 0, -1, AD_Dim0, data
      +
      649 data = tempdata[0][p]
      +
      650 else
      +
      651 redimension /n=(nx,ny) data
      +
      652 setdimlabel 0, -1, AD_Dim0, data
      +
      653 setdimlabel 1, -1, AD_Dim1, data
      +
      654 data = tempdata[q][p]
      +
      655 endif
      +
      656 break
      +
      657 case 3:
      +
      658 if (nx <= 1)
      +
      659 redimension /n=(ny,nz) data
      +
      660 setdimlabel 0, -1, AD_Dim1, data
      +
      661 setdimlabel 1, -1, AD_DimN, data
      +
      662 multithread data = tempdata[q][p][0]
      +
      663 elseif (ny <= 1)
      +
      664 redimension /n=(nx,nz) data
      +
      665 setdimlabel 0, -1, AD_Dim0, data
      +
      666 setdimlabel 1, -1, AD_DimN, data
      +
      667 multithread data = tempdata[q][0][p]
      +
      668 elseif (nz <= 1)
      +
      669 redimension /n=(nx,ny) data
      +
      670 setdimlabel 0, -1, AD_Dim0, data
      +
      671 setdimlabel 1, -1, AD_Dim1, data
      +
      672 multithread data = tempdata[0][q][p]
      +
      673 else
      +
      674 redimension /n=(nx,ny,nz) data
      +
      675 setdimlabel 0, -1, AD_Dim0, data
      +
      676 setdimlabel 1, -1, AD_Dim1, data
      +
      677 setdimlabel 2, -1, AD_DimN, data
      +
      678 multithread data = tempdata[r][q][p]
      +
      679 endif
      +
      680 break
      +
      681 case 4:
      +
      682 if (nz <= 1)
      +
      683 // singleton "frame number" dimension
      +
      684 redimension /n=(nx,ny,nt) data
      +
      685 setdimlabel 0, -1, AD_Dim0, data
      +
      686 setdimlabel 1, -1, AD_Dim1, data
      +
      687 setdimlabel 2, -1, AD_DimX, data
      +
      688 multithread data = tempdata[r][0][q][p]
      +
      689 else
      +
      690 redimension /n=(nx,ny,nz,nt) data
      +
      691 setdimlabel 0, -1, AD_Dim0, data
      +
      692 setdimlabel 1, -1, AD_Dim1, data
      +
      693 setdimlabel 2, -1, AD_DimN, data
      +
      694 setdimlabel 3, -1, AD_DimX, data
      +
      695 multithread data = tempdata[s][r][q][p]
      +
      696 endif
      +
      697 break
      +
      698 endswitch
      +
      699end
      +
      +
      700
      +
      +
      711static function /DF GetAttrDataFolderDFR(data)
      +
      712 wave data
      +
      713
      +
      714 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      715 dfref attrDF = dataDF:attr
      +
      716 if (DataFolderRefStatus(attrDF) == 0)
      +
      717 attrDF = dataDF
      +
      718 endif
      +
      719
      +
      720 return attrDF
      +
      721end
      +
      +
      722
      +
      +
      730function adh5_scale(data,[source])
      +
      731 wave data
      +
      732 string source
      +
      733
      +
      734 dfref saveDF = GetDataFolderDFR()
      +
      735 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      736 dfref attrDF = GetAttrDataFolderDFR(data)
      +
      737
      +
      738 if (ParamIsDefault(source))
      +
      739 // is the source a Scienta analyser?
      +
      740 wave /SDFR=attrDF /Z AcquisitionMode
      +
      741 wave /SDFR=attrDF /T /Z Manufacturer
      +
      742 source = "unknown"
      +
      743 if (waveexists(Manufacturer) && (numpnts(Manufacturer) >= 1))
      +
      744 strswitch(Manufacturer[0])
      +
      745 case "VG Scienta":
      +
      746 source = "scienta"
      +
      747 break
      +
      748 case "Prosilica":
      +
      749 source = "prosilica"
      +
      750 break
      +
      751 endswitch
      +
      752 elseif (waveexists(AcquisitionMode) && (numpnts(AcquisitionMode) >= 1))
      +
      753 if (stringmatch(note(AcquisitionMode), "*SCIENTA*"))
      +
      754 source = "scienta"
      +
      755 endif
      +
      756 endif
      +
      757 endif
      +
      758
      +
      759 strswitch(source)
      +
      760 case "prosilica":
      +
      761 // pixel scale - nothing to do
      +
      762 break
      +
      763 case "scienta":
      +
      764 adh5_scale_scienta(data)
      +
      765 break
      +
      766 endswitch
      +
      767
      +
      768 setdatafolder saveDF
      +
      769end
      +
      +
      770
      +
      +
      784function adh5_load_detector_slabs(fileID, detectorpath, [progress])
      +
      785 variable fileID
      +
      786 string detectorpath
      +
      787 variable progress
      +
      788
      +
      789 if (ParamIsDefault(progress))
      +
      790 progress = 1
      +
      791 endif
      +
      792 variable result = 0
      +
      793
      +
      794 // avoid compilation error if HDF5 XOP has not been loaded
      +
      795 #if Exists("HDF5LoadData")
      +
      796 string datasetname
      +
      797 string datawavename
      +
      798
      +
      799 // detector data
      +
      800 datasetname = detectorpath + "data"
      +
      801 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      802 InitHDF5DataInfo(di)
      +
      803 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      804 if (err != 0)
      +
      805 print "error accessing detector/data"
      +
      806 return -1
      +
      807 endif
      +
      808 if (di.ndims < 2)
      +
      809 print "error: rank of dataset < 2"
      +
      810 return -2
      +
      811 endif
      +
      812
      +
      813 // nx and nz are the image dimensions
      +
      814 variable idx, idy, idz, idt, izt
      +
      815 idx = di.ndims - 1
      +
      816 idy = di.ndims - 2
      +
      817 idz = -1
      +
      818 idt = -1
      +
      819
      +
      820 variable nx, ny, nz, nt, nzt
      +
      821 nx = di.dims[idx]
      +
      822 ny = di.dims[idy]
      +
      823 nz = 1
      +
      824 nt = 1
      +
      825
      +
      826 make /n=(nx,ny,nz,nt) /o data
      +
      827 string dim_labels = "AD_Dim0;AD_Dim1;AD_DimN;AD_DimX;AD_DimY"
      +
      828 string dim_label
      +
      829 dim_label = StringFromList(0, dim_labels, ";")
      +
      830 setdimlabel 0, -1, $dim_label, data
      +
      831 dim_labels = RemoveFromList(dim_label, dim_labels, ";")
      +
      832 dim_label = StringFromList(0, dim_labels, ";")
      +
      833 setdimlabel 1, -1, $dim_label, data
      +
      834 dim_labels = RemoveFromList(dim_label, dim_labels, ";")
      +
      835
      +
      836 // find additional dimensions, ignore singletons
      +
      837 variable id
      +
      838 for (id = idy - 1; (id >= 0) && (nz == 1); id -= 1)
      +
      839 if (di.dims[id] > 1)
      +
      840 idz = id
      +
      841 nz = di.dims[id]
      +
      842 dim_label = StringFromList(0, dim_labels, ";")
      +
      843 setdimlabel 2, -1, $dim_label, data
      +
      844 endif
      +
      845 dim_labels = RemoveListItem(0, dim_labels, ";")
      +
      846 endfor
      +
      847 for (id = idz - 1; (id >= 0) && (nt == 1); id -= 1)
      +
      848 if (di.dims[id] > 1)
      +
      849 idt = id
      +
      850 nt = di.dims[id]
      +
      851 dim_label = StringFromList(0, dim_labels, ";")
      +
      852 setdimlabel 3, -1, $dim_label, data
      +
      853 endif
      +
      854 dim_labels = RemoveListItem(0, dim_labels, ";")
      +
      855 endfor
      +
      856 redimension /n=(nx,ny,nz,nt) data
      +
      857
      +
      858 // default values if dimensions are not present in dataset
      +
      859 if (idz < 0)
      +
      860 idz = idx + 1
      +
      861 idt = idz + 1
      +
      862 elseif (idt < 0)
      +
      863 idt = idx + 1
      +
      864 endif
      +
      865
      +
      866 nzt = nz * nt
      +
      867 izt = 0
      +
      868 if (progress)
      +
      869 display_progress_panel("HDF5 Import", "Loading data...", nzt)
      +
      870 endif
      +
      871
      +
      872 // load data image by image
      +
      873 HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      +
      874 wave slab
      +
      875 slab[][%Start] = 0
      +
      876 slab[][%Stride] = 1
      +
      877 slab[][%Count] = 1
      +
      878 slab[][%Block] = 1
      +
      879 slab[idx][%Block] = nx
      +
      880 slab[idy][%Block] = ny
      +
      881
      +
      882 variable iz, it
      +
      883 for (iz = 0; iz < nz; iz += 1)
      +
      884 for (it = 0; it < nt; it += 1)
      +
      885 slab[idz][%Start] = iz
      +
      886 slab[idt][%Start] = it
      +
      887 HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      +
      888 wave slabdata // 2D, 3D, or 4D with singletons
      +
      889 switch (WaveDims(slabdata))
      +
      890 case 2:
      +
      891 data[][][iz][it] = slabdata[q][p]
      +
      892 break
      +
      893 case 3:
      +
      894 data[][][iz][it] = slabdata[0][q][p]
      +
      895 break
      +
      896 case 4:
      +
      897 data[][][iz][it] = slabdata[0][0][q][p]
      +
      898 break
      +
      899 endswitch
      +
      900 // progress window
      +
      901 izt += 1
      +
      902 if (progress)
      +
      903 if (update_progress_panel(izt))
      +
      904 result = -4 // user abort
      +
      905 break
      +
      906 endif
      +
      907 endif
      +
      908 endfor
      +
      909 if (result < 0)
      +
      910 break
      +
      911 endif
      +
      912 endfor
      +
      913
      +
      914 if (nz == 1)
      +
      915 redimension /n=(nx,ny) data
      +
      916 elseif (nt == 1)
      +
      917 redimension /n=(nx,ny,nz) data
      +
      918 endif
      +
      919
      +
      920 if (progress)
      +
      921 kill_progress_panel()
      +
      922 endif
      +
      923 #else
      +
      924 Abort "HDF5 XOP not loaded."
      +
      925 #endif
      +
      926
      +
      927 return result
      +
      928end
      +
      +
      929
      +
      +
      949function adh5_load_detector_image(fileID, detectorpath, dim2start, dim2count, dim3start, dim3count)
      +
      950 variable fileID
      +
      951 string detectorpath
      +
      952 variable dim2start
      +
      953 variable dim2count
      +
      954 variable dim3start
      +
      955 variable dim3count
      +
      956
      +
      957 // avoid compilation error if HDF5 XOP has not been loaded
      +
      958 #if Exists("HDF5LoadData")
      +
      959 string datasetname
      +
      960 string datawavename
      +
      961
      +
      962 // detector data
      +
      963 datasetname = detectorpath + "data"
      +
      964 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      965 InitHDF5DataInfo(di)
      +
      966 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      967 if (err != 0)
      +
      968 print "error accessing detector/data"
      +
      969 return -1
      +
      970 endif
      +
      971 if (di.ndims < 1)
      +
      972 print "error: rank of dataset < 1"
      +
      973 return -2
      +
      974 endif
      +
      975
      +
      976 // nx and nz are the image dimensions
      +
      977 variable idx, idy, idz, idt
      +
      978 idx = di.ndims - 1
      +
      979 idy = di.ndims >= 2 ? di.ndims - 2 : 1
      +
      980 idz = di.ndims >= 3 ? di.ndims - 3 : 2
      +
      981 idt = di.ndims >= 4 ? di.ndims - 4 : 3
      +
      982
      +
      983 variable nx, ny
      +
      984 nx = di.dims[idx]
      +
      985 ny = di.ndims >= 2 ? di.dims[idy] : 1
      +
      986
      +
      987 variable dim2end = dim2start + dim2count - 1
      +
      988 variable dim3end = dim3start + dim3count - 1
      +
      989
      +
      990 // the slab wave is at least 4-dimensional
      +
      991 // it will also load lower-dimensional datasets
      +
      992 HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      +
      993 wave slab
      +
      994 slab[][%Start] = 0
      +
      995 slab[][%Stride] = 1
      +
      996 slab[][%Count] = 1
      +
      997 slab[][%Block] = 1
      +
      998 slab[idx][%Block] = nx
      +
      999 slab[idy][%Block] = ny
      +
      1000
      +
      1001 make /n=(nx,ny)/o/d data
      +
      1002 data = 0
      +
      1003 variable iz, it
      +
      1004 variable navg = 0
      +
      1005 for (iz = dim2start; iz <= dim2end; iz += 1)
      +
      1006 for (it = dim3start; it <= dim3end; it += 1)
      +
      1007 slab[idz][%Start] = iz
      +
      1008 slab[idt][%Start] = it
      +
      1009 HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      +
      1010 wave slabdata // 2D, 3D, or 4D with singletons
      +
      1011 switch (WaveDims(slabdata))
      +
      1012 case 1:
      +
      1013 data += slabdata[p]
      +
      1014 navg += 1
      +
      1015 break
      +
      1016 case 2:
      +
      1017 data += slabdata[q][p]
      +
      1018 navg += 1
      +
      1019 break
      +
      1020 case 3:
      +
      1021 data += slabdata[0][q][p]
      +
      1022 navg += 1
      +
      1023 break
      +
      1024 case 4:
      +
      1025 data += slabdata[0][0][q][p]
      +
      1026 navg += 1
      +
      1027 break
      +
      1028 endswitch
      +
      1029 endfor
      +
      1030 endfor
      +
      1031 data /= navg
      +
      1032 setdimlabel 0, -1, AD_Dim0, data
      +
      1033 setdimlabel 1, -1, AD_Dim1, data
      +
      1034
      +
      1035 #else
      +
      1036 Abort "HDF5 XOP not loaded."
      +
      1037 #endif
      +
      1038end
      +
      +
      1039
      +
      +
      1045function /s adh5_list_reduction_funcs()
      +
      1046 string all_funcs = FunctionList("*", ";", "KIND:6,NPARAMS:2,VALTYPE:8")
      +
      1047 string result = ""
      +
      1048
      +
      1049 variable ii
      +
      1050 variable nn = ItemsInList(all_funcs, ";")
      +
      1051
      +
      1052 string funcname
      +
      1053 string info
      +
      1054 variable nparams
      +
      1055 variable accept
      +
      1056
      +
      1057 for (ii = 0; ii < nn; ii += 1)
      +
      1058 funcname = StringFromList(ii, all_funcs, ";")
      +
      1059 info = FunctionInfo(funcname)
      +
      1060 accept = (NumberByKey("RETURNTYPE", info, ":", ";") == 0x4000)
      +
      1061 accept = accept && (cmpstr(StringByKey("THREADSAFE", info, ":", ";"), "yes") == 0)
      +
      1062 accept = accept && (NumberByKey("N_PARAMS", info, ":", ";") == 2)
      +
      1063 accept = accept && (NumberByKey("N_OPT_PARAMS", info, ":", ";") == 0)
      +
      1064 if (accept)
      +
      1065 // one numeric wave and one pass-by-reference string
      +
      1066 accept = accept && (NumberByKey("PARAM_0_TYPE", info, ":", ";") == 0x4002)
      +
      1067 accept = accept && (NumberByKey("PARAM_1_TYPE", info, ":", ";") == 0x3000)
      +
      1068 endif
      +
      1069 if (accept)
      +
      1070 result = AddListItem(funcname, result, ";")
      +
      1071 endif
      +
      1072 endfor
      +
      1073
      +
      1074 result = SortList(result, ";", 4)
      +
      1075 return result
      +
      1076end
      +
      +
      1077
      +
      +
      1115threadsafe function /wave adh5_default_reduction(source, param)
      +
      1116 wave source
      +
      1117 string &param
      +
      1118
      +
      1119 // demo code
      +
      1120 // integrate along the dimensions
      +
      1121 make /n=0 /free dest1, dest2
      +
      1122 adh5_setup_profile(source, dest1, 0)
      +
      1123 ad_profile_x_w(source, 0, -1, dest1)
      +
      1124 adh5_setup_profile(source, dest2, 1)
      +
      1125 ad_profile_y_w(source, 0, -1, dest2)
      +
      1126
      +
      1127 make /n=2 /free /wave results
      +
      1128 results[0] = dest1
      +
      1129 results[1] = dest2
      +
      1130 return results
      +
      1131end
      +
      +
      1132
      +
      +
      1138threadsafe function adh5_setup_profile(image, profile, dim)
      +
      1139 wave image // prototype
      +
      1140 wave profile // destination wave
      +
      1141 variable dim // which dimension to keep: 0 = X, 1 = Y
      +
      1142
      +
      1143 redimension /n=(dimsize(image, dim)) profile
      +
      1144 setscale /p x dimoffset(image, dim), dimdelta(image, dim), waveunits(image, dim), profile
      +
      1145 setscale d 0, 0, waveunits(image, -1), profile
      +
      1146 setdimlabel 0, -1, $getdimlabel(image, dim, -1), profile
      +
      1147end
      +
      +
      1148
      +
      +
      1171function /s adh5_test_reduction_func(source, reduction_func, reduction_param, result_prefix)
      +
      1172 wave source
      +
      1173 funcref adh5_default_reduction reduction_func
      +
      1174 string reduction_param
      +
      1175 string result_prefix
      +
      1176
      +
      1177 wave /wave results = reduction_func(source, reduction_param)
      +
      1178 adh5_get_result_waves(results, result_prefix, 1)
      +
      1179
      +
      1180 return reduction_param
      +
      1181end
      +
      +
      1182
      +
      +
      1203function adh5_reduce_brick(source, reduction_func, reduction_param, result_prefix, [progress, nthreads])
      +
      1204 wave source
      +
      1205 funcref adh5_default_reduction reduction_func
      +
      1206 string reduction_param
      +
      1207 string result_prefix
      +
      1208
      +
      1209 variable progress
      +
      1210 variable nthreads
      +
      1211
      +
      1212 if (ParamIsDefault(progress))
      +
      1213 progress = 1
      +
      1214 endif
      +
      1215 if (ParamIsDefault(nthreads))
      +
      1216 nthreads = -1
      +
      1217 endif
      +
      1218
      +
      1219 dfref base_df = GetDataFolderDFR()
      +
      1220 variable result = 0
      +
      1221 string wavenames = ""
      +
      1222
      +
      1223 // nx and nz are the image dimensions
      +
      1224 variable nx, ny, nz, nt
      +
      1225 nx = dimsize(source, 0)
      +
      1226 ny = dimsize(source, 1)
      +
      1227 nz = dimsize(source, 2)
      +
      1228 // force 4th dimension to singleton (ad_extract_slab handles 3 dimensions only)
      +
      1229 nt = 1
      +
      1230
      +
      1231 variable nzt = max(nz, 1) * max(nt, 1)
      +
      1232
      +
      1233 // set up multi threading
      +
      1234 if (nthreads < 0)
      +
      1235 nthreads = ThreadProcessorCount
      +
      1236 endif
      +
      1237 if (nthreads > 0)
      +
      1238 variable threadGroupID = ThreadGroupCreate(nthreads)
      +
      1239 variable ithread
      +
      1240 for (ithread = 0; ithread < nthreads; ithread += 1)
      +
      1241 ThreadStart threadGroupID, ithread, reduce_slab_worker(reduction_func)
      +
      1242 endfor
      +
      1243 else
      +
      1244 make /n=(nzt) /df /free processing_folders
      +
      1245 endif
      +
      1246
      +
      1247 if (progress)
      +
      1248 display_progress_panel("Reduction", "Processing data...", nzt)
      +
      1249 endif
      +
      1250
      +
      1251 variable iz, it
      +
      1252 variable n_sent = 0
      +
      1253 variable n_recvd = 0
      +
      1254 variable tmo = 0
      +
      1255 string dfname
      +
      1256 dfref dfr
      +
      1257 variable iw, nw
      +
      1258 string sw
      +
      1259 make /n=0 /free /wave result_waves
      +
      1260
      +
      1261 iz = 0
      +
      1262 it = 0
      +
      1263
      +
      1264 do
      +
      1265 // fill the processing queue up to a maximum number of folders
      +
      1266 if (n_sent < max(1, nthreads) * 10 + n_recvd)
      +
      1267 if (iz < nz)
      +
      1268 if (it < nt)
      +
      1269 // load a slab into a temporary folder
      +
      1270 dfname = "processing_" + num2str(n_sent)
      +
      1271 NewDataFolder /s $dfname
      +
      1272 ad_extract_slab(source, nan, nan, nan, nan, iz, iz, "image", pscale=1)
      +
      1273 wave image
      +
      1274 variable /g r_index = iz
      +
      1275 variable /g s_index = it
      +
      1276 string /g func_param = reduction_param
      +
      1277
      +
      1278 if (nthreads > 0)
      +
      1279 // send to thread group
      +
      1280 WaveClear image
      +
      1281 ThreadGroupPutDF threadGroupID, :
      +
      1282 else
      +
      1283 // process immediately in single-thread mode
      +
      1284 processing_folders[n_sent] = GetDataFolderDFR()
      +
      1285 string param = func_param
      +
      1286 wave /wave reduced_waves = reduction_func(image, param)
      +
      1287 variable /g func_result = numpnts(reduced_waves)
      +
      1288 adh5_get_result_waves(reduced_waves, "redw_", 0)
      +
      1289 WaveClear image, reduced_waves
      +
      1290 setdatafolder ::
      +
      1291 endif
      +
      1292
      +
      1293 iz += 1
      +
      1294 n_sent += 1
      +
      1295 tmo = 0
      +
      1296 else
      +
      1297 iz += 1
      +
      1298 it = 0
      +
      1299 endif
      +
      1300 endif
      +
      1301 else
      +
      1302 // throttle the loop if processing is slow
      +
      1303 tmo = min(100, tmo + 10)
      +
      1304 endif
      +
      1305
      +
      1306 // receive a slab from the processing queue
      +
      1307 if (n_recvd < nzt)
      +
      1308 if (nthreads > 0)
      +
      1309 dfr = ThreadGroupGetDFR(threadGroupID, tmo)
      +
      1310 else
      +
      1311 dfr = processing_folders[n_recvd]
      +
      1312 processing_folders[n_recvd] = $""
      +
      1313 endif
      +
      1314
      +
      1315 if (DatafolderRefStatus(dfr) != 0)
      +
      1316 // access results folder
      +
      1317 nvar rr = dfr:r_index
      +
      1318 nvar ss = dfr:s_index
      +
      1319 nvar func_result = dfr:func_result
      +
      1320
      +
      1321 if (func_result < 1)
      +
      1322 print "error during data reduction."
      +
      1323 result = -3
      +
      1324 break
      +
      1325 endif
      +
      1326
      +
      1327 // initialize result waves just once
      +
      1328 if (numpnts(result_waves) == 0)
      +
      1329 redimension /n=(func_result) result_waves
      +
      1330 for (iw = 0; iw < func_result; iw += 1)
      +
      1331 sw = "redw_" + num2str(iw)
      +
      1332 wave profile = dfr:$sw
      +
      1333 sw = "ReducedData" + num2str(iw+1)
      +
      1334 make /n=(dimsize(profile, 0), nz, nt) /d /o $sw
      +
      1335 wave data = $sw
      +
      1336 setdimlabel 0, -1, $getdimlabel(profile, 0, -1), data
      +
      1337 setscale /p x dimoffset(profile, 0), dimdelta(profile, 0), waveunits(profile, 0), data
      +
      1338 setscale /p y dimoffset(source, 2), dimdelta(source, 2), waveunits(source, 2), data
      +
      1339 setscale /p z dimoffset(source, 3), dimdelta(source, 3), waveunits(source, 3), data
      +
      1340 setscale d 0, 0, waveunits(profile, -1), data
      +
      1341 note data, note(profile)
      +
      1342 result_waves[iw] = data
      +
      1343 endfor
      +
      1344 endif
      +
      1345
      +
      1346 // copy results
      +
      1347 for (iw = 0; iw < func_result; iw += 1)
      +
      1348 sw = "redw_" + num2str(iw)
      +
      1349 wave profile = dfr:$sw
      +
      1350 wave data = result_waves[iw]
      +
      1351 data[][rr][ss] = profile[p]
      +
      1352 endfor
      +
      1353
      +
      1354 n_recvd += 1
      +
      1355 KillDataFolder /Z dfr
      +
      1356 endif
      +
      1357 else
      +
      1358 // processing complete
      +
      1359 break
      +
      1360 endif
      +
      1361
      +
      1362 // update progress window
      +
      1363 if (progress)
      +
      1364 if (update_progress_panel(n_recvd))
      +
      1365 print "user abort"
      +
      1366 result = -4
      +
      1367 break
      +
      1368 endif
      +
      1369 endif
      +
      1370 while ((n_recvd < nzt) && (result == 0))
      +
      1371
      +
      1372 // clean up
      +
      1373 if (nthreads > 0)
      +
      1374 variable tstatus = ThreadGroupRelease(threadGroupID)
      +
      1375 if (tstatus == -2)
      +
      1376 print "error: thread did not terminate properly."
      +
      1377 result = -5
      +
      1378 endif
      +
      1379 endif
      +
      1380
      +
      1381 // finalize results
      +
      1382 nw = numpnts(result_waves)
      +
      1383 wavenames = ""
      +
      1384 for (iw = 0; iw < nw; iw += 1)
      +
      1385 wave /z data = result_waves[iw]
      +
      1386 if (WaveExists(data))
      +
      1387 if (nz == 1)
      +
      1388 redimension /n=(-1, 0, 0) data
      +
      1389 elseif (nt == 1)
      +
      1390 redimension /n=(-1, nz, 0) data
      +
      1391 endif
      +
      1392 wavenames += nameofwave(data) + ";"
      +
      1393 endif
      +
      1394 endfor
      +
      1395
      +
      1396 if (progress)
      +
      1397 kill_progress_panel()
      +
      1398 endif
      +
      1399
      +
      1400 setdatafolder base_df
      +
      1401 return result
      +
      1402end
      +
      +
      1403
      +
      +
      1410threadsafe static function reduce_brick_worker(reduction_func)
      +
      1411 funcref adh5_default_reduction reduction_func
      +
      1412 do
      +
      1413 // wait for job from main thread
      +
      1414 do
      +
      1415 dfref dfr = ThreadGroupGetDFR(0, 1000)
      +
      1416 if (DataFolderRefStatus(dfr) == 0)
      +
      1417 if (GetRTError(2))
      +
      1418 return 0 // no more jobs
      +
      1419 endif
      +
      1420 else
      +
      1421 break
      +
      1422 endif
      +
      1423 while (1)
      +
      1424
      +
      1425 // get input data
      +
      1426 wave image = dfr:image
      +
      1427 svar func_param = dfr:func_param
      +
      1428 nvar rr = dfr:r_index
      +
      1429 nvar ss = dfr:s_index
      +
      1430
      +
      1431 // do the work
      +
      1432 newdatafolder /s outDF
      +
      1433 variable /g r_index = rr
      +
      1434 variable /g s_index = ss
      +
      1435 string param = func_param
      +
      1436 wave /wave reduced_waves = reduction_func(image, param)
      +
      1437 variable /g func_result = numpnts(reduced_waves)
      +
      1438
      +
      1439 // send output to queue and clean up
      +
      1440 adh5_get_result_waves(reduced_waves, "redw_", 0)
      +
      1441 WaveClear image, reduced_waves
      +
      1442 ThreadGroupPutDF 0, :
      +
      1443 KillDataFolder dfr
      +
      1444 while (1)
      +
      1445
      +
      1446 return 0
      +
      1447end
      +
      +
      1448
      +
      +
      1463threadsafe function adh5_get_result_waves(results, result_prefix, start_index)
      +
      1464 wave /wave results
      +
      1465 string result_prefix
      +
      1466 variable start_index
      +
      1467
      +
      1468 variable nw = numpnts(results)
      +
      1469 variable iw
      +
      1470 string sw
      +
      1471 for (iw = 0; iw < nw; iw += 1)
      +
      1472 sw = result_prefix + num2str(iw + start_index)
      +
      1473 duplicate /o results[iw], $sw
      +
      1474 endfor
      +
      1475end
      +
      +
      1476
      +
      +
      1499function adh5_load_reduced_detector(fileID, detectorpath, reduction_func, reduction_param, [progress, nthreads])
      +
      1500 variable fileID
      +
      1501 string detectorpath
      +
      1502 funcref adh5_default_reduction reduction_func
      +
      1503 string reduction_param
      +
      1504 variable progress
      +
      1505 variable nthreads
      +
      1506
      +
      1507 if (ParamIsDefault(progress))
      +
      1508 progress = 1
      +
      1509 endif
      +
      1510 if (ParamIsDefault(nthreads))
      +
      1511 nthreads = -1
      +
      1512 endif
      +
      1513 variable result = 0
      +
      1514
      +
      1515 // avoid compilation error if HDF5 XOP has not been loaded
      +
      1516 #if Exists("HDF5LoadData")
      +
      1517 string datasetname
      +
      1518 string datawavename
      +
      1519
      +
      1520 // detector data
      +
      1521 datasetname = detectorpath + "data"
      +
      1522 STRUCT HDF5DataInfo di // Defined in HDF5 Browser.ipf.
      +
      1523 InitHDF5DataInfo(di)
      +
      1524 variable err = HDF5DatasetInfo(fileID, datasetname, 0, di)
      +
      1525 if (err != 0)
      +
      1526 print "error accessing detector/data"
      +
      1527 return -1
      +
      1528 endif
      +
      1529 if (di.ndims < 2)
      +
      1530 print "error: rank of dataset < 2"
      +
      1531 return -2
      +
      1532 endif
      +
      1533
      +
      1534 // nx and nz are the image dimensions
      +
      1535 variable idx, idy, idz, idt
      +
      1536 idx = di.ndims - 1
      +
      1537 idy = di.ndims - 2
      +
      1538 idz = -1
      +
      1539 idt = -1
      +
      1540
      +
      1541 variable nx, ny, nz, nt
      +
      1542 nx = di.dims[idx]
      +
      1543 ny = di.dims[idy]
      +
      1544 nz = 1
      +
      1545 nt = 1
      +
      1546
      +
      1547 // find additional dimensions, ignore singletons
      +
      1548 variable id
      +
      1549 for (id = idy - 1; (id >= 0) && (nz == 1); id -= 1)
      +
      1550 if (di.dims[id] > 1)
      +
      1551 idz = id
      +
      1552 nz = di.dims[id]
      +
      1553 endif
      +
      1554 endfor
      +
      1555 for (id = idz - 1; (id >= 0) && (nt == 1); id -= 1)
      +
      1556 if (di.dims[id] > 1)
      +
      1557 idt = id
      +
      1558 nt = di.dims[id]
      +
      1559 endif
      +
      1560 endfor
      +
      1561 // default values if dimensions are not present in dataset
      +
      1562 if (idz < 0)
      +
      1563 idz = idx + 1
      +
      1564 idt = idz + 1
      +
      1565 elseif (idt < 0)
      +
      1566 idt = idx + 1
      +
      1567 endif
      +
      1568 variable nzt = nz * nt
      +
      1569 variable izt
      +
      1570
      +
      1571 // load data image by image
      +
      1572 HDF5MakeHyperslabWave(GetDataFolder(1) + "slab", max(di.ndims, 4))
      +
      1573 wave slab
      +
      1574 slab[][%Start] = 0
      +
      1575 slab[][%Stride] = 1
      +
      1576 slab[][%Count] = 1
      +
      1577 slab[][%Block] = 1
      +
      1578 slab[idx][%Block] = nx
      +
      1579 slab[idy][%Block] = ny
      +
      1580
      +
      1581 // set up multi threading
      +
      1582 if (nthreads < 0)
      +
      1583 nthreads = ThreadProcessorCount
      +
      1584 endif
      +
      1585 if (nthreads > 0)
      +
      1586 variable threadGroupID = ThreadGroupCreate(nthreads)
      +
      1587 variable ithread
      +
      1588 for (ithread = 0; ithread < nthreads; ithread += 1)
      +
      1589 ThreadStart threadGroupID, ithread, reduce_slab_worker(reduction_func)
      +
      1590 endfor
      +
      1591 else
      +
      1592 make /n=(nzt) /df /free processing_folders
      +
      1593 endif
      +
      1594
      +
      1595 if (progress)
      +
      1596 display_progress_panel("HDF5 Import", "Loading data (step 1 of 2)...", nzt)
      +
      1597 endif
      +
      1598
      +
      1599 make /n=(nx,ny)/d image_template
      +
      1600 setdimlabel 0, -1, AD_Dim0, image_template
      +
      1601 setdimlabel 1, -1, AD_Dim1, image_template
      +
      1602 adh5_scale(image_template)
      +
      1603
      +
      1604 variable iz, it
      +
      1605 string dfname
      +
      1606 variable iw, nw
      +
      1607 string sw
      +
      1608 make /n=0 /free /wave result_waves
      +
      1609
      +
      1610 izt = 0
      +
      1611 for (iz = 0; iz < nz; iz += 1)
      +
      1612 for (it = 0; it < nt; it += 1)
      +
      1613 // load hyperslab
      +
      1614 slab[idz][%Start] = iz
      +
      1615 slab[idt][%Start] = it
      +
      1616 dfname = "processing_" + num2str(izt)
      +
      1617 newdatafolder /s $dfname
      +
      1618 HDF5LoadData /O /Q /Z /SLAB=slab /N=slabdata fileID, datasetname
      +
      1619
      +
      1620 // send to processing queue
      +
      1621 duplicate image_template, image
      +
      1622 variable /g r_index = iz
      +
      1623 variable /g s_index = it
      +
      1624 string /g func_param = reduction_param
      +
      1625
      +
      1626 if (nthreads > 0)
      +
      1627 WaveClear image
      +
      1628 ThreadGroupPutDF threadGroupID, :
      +
      1629 else
      +
      1630 processing_folders[izt] = GetDataFolderDFR()
      +
      1631 wave slabdata
      +
      1632 wave /wave reduced_waves = reduce_slab_image(slabdata, image, reduction_func, func_param)
      +
      1633 variable /g func_result = numpnts(reduced_waves)
      +
      1634 adh5_get_result_waves(reduced_waves, "redw_", 0)
      +
      1635 WaveClear slabdata, image, reduced_waves
      +
      1636 setdatafolder ::
      +
      1637 endif
      +
      1638
      +
      1639 izt += 1
      +
      1640 // progress window
      +
      1641 if (progress)
      +
      1642 if (update_progress_panel(izt))
      +
      1643 result = -4 // user abort
      +
      1644 break
      +
      1645 endif
      +
      1646 endif
      +
      1647 endfor
      +
      1648 endfor
      +
      1649
      +
      1650 killwaves /z slab, image_template
      +
      1651 if (progress)
      +
      1652 update_progress_panel(0, message="Processing data (step 2 of 2)...")
      +
      1653 endif
      +
      1654
      +
      1655 dfref dfr
      +
      1656 for (izt = 0; (izt < nzt) && (result == 0); izt += 1)
      +
      1657 if (nthreads > 0)
      +
      1658 do
      +
      1659 dfr = ThreadGroupGetDFR(threadGroupID, 1000)
      +
      1660 if (DatafolderRefStatus(dfr) != 0)
      +
      1661 break
      +
      1662 endif
      +
      1663 if (progress)
      +
      1664 if (update_progress_panel(izt))
      +
      1665 result = -4 // user abort
      +
      1666 break
      +
      1667 endif
      +
      1668 endif
      +
      1669 while (1)
      +
      1670 else
      +
      1671 dfr = processing_folders[izt]
      +
      1672 if (progress)
      +
      1673 if (update_progress_panel(izt))
      +
      1674 result = -4 // user abort
      +
      1675 break
      +
      1676 endif
      +
      1677 endif
      +
      1678 endif
      +
      1679
      +
      1680 if (result != 0)
      +
      1681 break
      +
      1682 endif
      +
      1683
      +
      1684 nvar rr = dfr:r_index
      +
      1685 nvar ss = dfr:s_index
      +
      1686 nvar func_result = dfr:func_result
      +
      1687
      +
      1688 if (func_result < 1)
      +
      1689 result = -3 // dimension reduction error
      +
      1690 break
      +
      1691 endif
      +
      1692
      +
      1693 if (numpnts(result_waves) == 0)
      +
      1694 redimension /n=(func_result) result_waves
      +
      1695 for (iw = 0; iw < func_result; iw += 1)
      +
      1696 sw = "redw_" + num2str(iw)
      +
      1697 wave profile = dfr:$sw
      +
      1698 sw = "ReducedData" + num2str(iw+1)
      +
      1699 make /n=(dimsize(profile, 0), nz, nt) /d /o $sw
      +
      1700 wave data = $sw
      +
      1701 setdimlabel 0, -1, $getdimlabel(profile, 0, -1), data
      +
      1702 setscale /p x dimoffset(profile, 0), dimdelta(profile, 0), waveunits(profile, 0), data
      +
      1703 setscale d 0, 0, waveunits(profile, -1), data
      +
      1704 result_waves[iw] = data
      +
      1705 endfor
      +
      1706 endif
      +
      1707 for (iw = 0; iw < func_result; iw += 1)
      +
      1708 sw = "redw_" + num2str(iw)
      +
      1709 wave profile = dfr:$sw
      +
      1710 wave data = result_waves[iw]
      +
      1711 data[][rr][ss] = profile[p]
      +
      1712 endfor
      +
      1713 endfor
      +
      1714
      +
      1715 if (nthreads > 0)
      +
      1716 variable tstatus = ThreadGroupRelease(threadGroupID)
      +
      1717 if (tstatus == -2)
      +
      1718 result = -5 // thread did not terminate properly
      +
      1719 endif
      +
      1720 else
      +
      1721 for (izt = 0; izt < nzt; izt += 1)
      +
      1722 KillDataFolder /Z processing_folders[izt]
      +
      1723 endfor
      +
      1724 endif
      +
      1725
      +
      1726 if (result == 0)
      +
      1727 nw = numpnts(result_waves)
      +
      1728 for (iw = 0; iw < nw; iw += 1)
      +
      1729 wave data = result_waves[iw]
      +
      1730 if (nz == 1)
      +
      1731 redimension /n=(dimsize(data, 0)) data
      +
      1732 elseif (nt == 1)
      +
      1733 redimension /n=(dimsize(data, 0),nz) data
      +
      1734 setdimlabel 1, -1, AD_DimN, data
      +
      1735 else
      +
      1736 setdimlabel 1, -1, AD_DimN, data
      +
      1737 setdimlabel 2, -1, AD_DimX, data
      +
      1738 endif
      +
      1739 endfor
      +
      1740 endif
      +
      1741 if (progress)
      +
      1742 kill_progress_panel()
      +
      1743 endif
      +
      1744
      +
      1745 #else
      +
      1746 Abort "HDF5 XOP not loaded."
      +
      1747 #endif
      +
      1748 return result
      +
      1749end
      +
      +
      1750
      +
      +
      1751threadsafe static function reduce_slab_worker(reduction_func)
      +
      1752 funcref adh5_default_reduction reduction_func
      +
      1753 do
      +
      1754 // wait for job from main thread
      +
      1755 do
      +
      1756 dfref dfr = ThreadGroupGetDFR(0, 1000)
      +
      1757 if (DataFolderRefStatus(dfr) == 0)
      +
      1758 if (GetRTError(2))
      +
      1759 return 0 // no more jobs
      +
      1760 endif
      +
      1761 else
      +
      1762 break
      +
      1763 endif
      +
      1764 while (1)
      +
      1765
      +
      1766 // get input data
      +
      1767 wave slabdata = dfr:slabdata
      +
      1768 wave image = dfr:image
      +
      1769 svar func_param = dfr:func_param
      +
      1770 nvar rr = dfr:r_index
      +
      1771 nvar ss = dfr:s_index
      +
      1772
      +
      1773 // do the work
      +
      1774 newdatafolder /s outDF
      +
      1775 variable /g r_index = rr
      +
      1776 variable /g s_index = ss
      +
      1777 wave /wave reduced_waves = reduce_slab_image(slabdata, image, reduction_func, func_param)
      +
      1778 variable /g func_result = numpnts(reduced_waves)
      +
      1779
      +
      1780 // send output to queue and clean up
      +
      1781 adh5_get_result_waves(reduced_waves, "redw_", 0)
      +
      1782 WaveClear slabdata, image, reduced_waves
      +
      1783 ThreadGroupPutDF 0, :
      +
      1784 KillDataFolder dfr
      +
      1785 while (1)
      +
      1786
      +
      1787 return 0
      +
      1788end
      +
      +
      1789
      +
      +
      1790threadsafe static function /wave reduce_slab_image(slabdata, image, reduction_func, reduction_param)
      +
      1791 wave slabdata
      +
      1792 wave image
      +
      1793 funcref adh5_default_reduction reduction_func
      +
      1794 string reduction_param
      +
      1795
      +
      1796 switch (WaveDims(slabdata))
      +
      1797 case 2:
      +
      1798 image = slabdata[q][p]
      +
      1799 break
      +
      1800 case 3:
      +
      1801 image = slabdata[0][q][p]
      +
      1802 break
      +
      1803 case 4:
      +
      1804 image = slabdata[0][0][q][p]
      +
      1805 break
      +
      1806 endswitch
      +
      1807
      +
      1808 return reduction_func(image, reduction_param)
      +
      1809end
      +
      +
      1810
      +
      +
      1823function adh5_loadattr_all(fileID, attributespath)
      +
      1824 variable fileID
      +
      1825 string attributespath
      +
      1826
      +
      1827 string datasetname
      +
      1828 string datawavename
      +
      1829
      +
      1830 // avoid compilation error if HDF5 XOP has not been loaded
      +
      1831 #if Exists("HDF5LoadData")
      +
      1832
      +
      1833 // datasets in NDAttributes group
      +
      1834 HDF5ListGroup /F /TYPE=2 fileID, attributespath
      +
      1835 string h5datasets = S_HDF5ListGroup
      +
      1836 HDF5ListAttributes /TYPE=1 /Z fileID, attributespath
      +
      1837 string h5attributes = S_HDF5ListAttributes
      +
      1838
      +
      1839 variable nds = ItemsInList(h5datasets, ";")
      +
      1840 variable na = ItemsInList(h5attributes, ";")
      +
      1841 variable ids
      +
      1842 variable idest = 0
      +
      1843 variable n_attr
      +
      1844 string s_attr
      +
      1845 string s_source
      +
      1846
      +
      1847 make /n=(nds+na) /t /o IN, ID, IV, IU
      +
      1848
      +
      1849 for (ids = 0; ids < nds; ids += 1)
      +
      1850 datasetname = StringFromList(ids, h5datasets, ";")
      +
      1851 HDF5LoadData /O/Q fileID, datasetname
      +
      1852 if (v_flag == 0)
      +
      1853 datawavename = StringFromList(0, s_wavenames)
      +
      1854 else
      +
      1855 datawavename = ""
      +
      1856 endif
      +
      1857 HDF5LoadData /A="source"/O/Q/TYPE=2 fileID, datasetname
      +
      1858 if (v_flag == 0)
      +
      1859 wave /t source
      +
      1860 s_source = source[0]
      +
      1861 else
      +
      1862 s_source = ""
      +
      1863 endif
      +
      1864 read_attribute_info(datawavename, s_source, idest)
      +
      1865 endfor
      +
      1866
      +
      1867 // attributes of NDAttributes group
      +
      1868 if (v_flag == 0)
      +
      1869 nds = ItemsInList(h5attributes, ";")
      +
      1870 else
      +
      1871 nds = 0
      +
      1872 endif
      +
      1873 for (ids = 0; ids < nds; ids += 1)
      +
      1874 datasetname = StringFromList(ids, h5attributes, ";")
      +
      1875 HDF5LoadData /A=datasetname/O/Q/TYPE=1 fileID, attributespath
      +
      1876 if (v_flag == 0)
      +
      1877 datawavename = StringFromList(0, s_wavenames)
      +
      1878 read_attribute_info(datawavename, "", idest) // we don't get the source of these attributes
      +
      1879 endif
      +
      1880 endfor
      +
      1881
      +
      1882 redimension /n=(idest) IN, ID, IV, IU
      +
      1883 sort {IN, ID}, IN, ID, IV, IU
      +
      1884
      +
      1885 killwaves /z source
      +
      1886 #else
      +
      1887 Abort "HDF5 XOP not loaded."
      +
      1888 #endif
      +
      1889
      +
      1890end
      +
      +
      1891
      +
      +
      1905static function read_attribute_info(datawavename, source, idest)
      +
      1906 string datawavename // name of the attribute wave in the current folder.
      +
      1907 // can be text or numeric.
      +
      1908 string source
      +
      1909 // source identifier (EPICS name) of the attribute.
      +
      1910 variable &idest
      +
      1911 // destination index in IN, ID, IV, IU where the results are written.
      +
      1912 // the variable is incremented if data was written, otherwise it is left unchanged.
      +
      1913 // make sure IN, ID, IV, IU have at least idest + 1 elements.
      +
      1914
      +
      1915 wave /t IN
      +
      1916 wave /t ID
      +
      1917 wave /t IV
      +
      1918 wave /t IU
      +
      1919
      +
      1920 variable n_attr
      +
      1921 string s_attr
      +
      1922
      +
      1923 if (exists(datawavename) == 1)
      +
      1924 if (strlen(source) > 0)
      +
      1925 Note $datawavename, "PV=" + source
      +
      1926 endif
      +
      1927 switch(WaveType($datawavename, 1))
      +
      1928 case 1: // numeric
      +
      1929 wave w_attr = $datawavename
      +
      1930 n_attr = numpnts(w_attr)
      +
      1931 sprintf s_attr, "%.12g", w_attr[0]
      +
      1932 break
      +
      1933 case 2: // text
      +
      1934 wave /t wt_attr = $datawavename
      +
      1935 n_attr = numpnts(wt_attr)
      +
      1936 s_attr = wt_attr[0]
      +
      1937 break
      +
      1938 default: // unknown
      +
      1939 n_attr = 0
      +
      1940 endswitch
      +
      1941 if (n_attr == 1)
      +
      1942 IN[idest] = source
      +
      1943 ID[idest] = datawavename
      +
      1944 IV[idest] = s_attr
      +
      1945 IU[idest] = "" // we don't get the units
      +
      1946 idest += 1
      +
      1947 endif
      +
      1948 endif
      +
      1949end
      +
      +
      1950
      +
      +
      1958function adh5_scale_scienta(data)
      +
      1959 wave data
      +
      1960
      +
      1961 dfref saveDF = GetDataFolderDFR()
      +
      1962
      +
      1963 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      1964 dfref attrDF = GetAttrDataFolderDFR(data)
      +
      1965
      +
      1966 wave /SDFR=attrDF LensMode
      +
      1967 wave /SDFR=attrDF /Z ChannelBegin, ChannelEnd
      +
      1968 wave /SDFR=attrDF /Z SliceBegin, SliceEnd
      +
      1969
      +
      1970 variable EDim, ADim
      +
      1971 variable ELow, EHigh, ALow, AHigh
      +
      1972 string EUnit, AUnit
      +
      1973
      +
      1974 // which dimension is angle and which one is energy?
      +
      1975 strswitch(GetDimLabel(data, 0, -1))
      +
      1976 case "AD_Dim0":
      +
      1977 EDim = 0
      +
      1978 break
      +
      1979 case "AD_Dim1":
      +
      1980 EDim = 1
      +
      1981 break
      +
      1982 default:
      +
      1983 EDim = -1
      +
      1984 endswitch
      +
      1985 strswitch(GetDimLabel(data, 1, -1))
      +
      1986 case "AD_Dim0":
      +
      1987 ADim = 0
      +
      1988 break
      +
      1989 case "AD_Dim1":
      +
      1990 ADim = 1
      +
      1991 break
      +
      1992 default:
      +
      1993 ADim = -1
      +
      1994 endswitch
      +
      1995
      +
      1996 // defaults (point scaling)
      +
      1997 if (EDim >= 0)
      +
      1998 ELow = dimoffset(data, EDim)
      +
      1999 EHigh = dimoffset(data, EDim) + dimdelta(data, EDim) * (dimsize(data, EDim) - 1)
      +
      2000 EUnit = "eV"
      +
      2001 endif
      +
      2002 if (ADim >= 0)
      +
      2003 ALow = dimoffset(data, ADim)
      +
      2004 AHigh = dimoffset(data, ADim) + dimdelta(data, ADim) * (dimsize(data, ADim) - 1)
      +
      2005 AUnit = "arb."
      +
      2006 endif
      +
      2007
      +
      2008 // lens mode can give more detail
      +
      2009 if (waveexists(LensMode) && (numpnts(LensMode) >= 1))
      +
      2010 switch(LensMode[0])
      +
      2011 case 1: // Angular45
      +
      2012 ALow = -45/2
      +
      2013 AHigh = +45/2
      +
      2014 AUnit = "°"
      +
      2015 break
      +
      2016 case 2: // Angular60
      +
      2017 ALow = -60/2
      +
      2018 AHigh = +60/2
      +
      2019 AUnit = "°"
      +
      2020 break
      +
      2021 endswitch
      +
      2022 endif
      +
      2023
      +
      2024 // best option if scales are explicit in separate waves
      +
      2025 if (waveexists(ChannelBegin) && waveexists(ChannelEnd) && (numpnts(ChannelBegin) >= 1) && (numpnts(ChannelEnd) >= 1))
      +
      2026 ELow = ChannelBegin[0]
      +
      2027 EHigh = ChannelEnd[0]
      +
      2028 endif
      +
      2029 if (waveexists(SliceBegin) && waveexists(SliceEnd) && (numpnts(SliceBegin) >= 1) && (numpnts(SliceEnd) >= 1))
      +
      2030 ALow = SliceBegin[0]
      +
      2031 AHigh = SliceEnd[0]
      +
      2032 endif
      +
      2033
      +
      2034 // apply new scales
      +
      2035 switch(EDim)
      +
      2036 case 0:
      +
      2037 setscale /i x ELow, EHigh, EUnit, data
      +
      2038 break
      +
      2039 case 1:
      +
      2040 setscale /i y ELow, EHigh, EUnit, data
      +
      2041 break
      +
      2042 endswitch
      +
      2043 switch(ADim)
      +
      2044 case 0:
      +
      2045 setscale /i x ALow, AHigh, AUnit, data
      +
      2046 break
      +
      2047 case 1:
      +
      2048 setscale /i y ALow, AHigh, AUnit, data
      +
      2049 break
      +
      2050 endswitch
      +
      2051
      +
      2052 setscale d 0, 0, "arb.", data
      +
      2053
      +
      2054 setdatafolder saveDF
      +
      2055end
      +
      +
      2056
      +
      +
      2063function adh5_scale_scan(data)
      +
      2064 wave data
      +
      2065
      +
      2066 dfref saveDF = GetDataFolderDFR()
      +
      2067
      +
      2068 dfref dataDF = GetWavesDataFolderDFR(data)
      +
      2069 wave /SDFR=dataDF AcquisitionMode, DetectorMode, EnergyMode
      +
      2070
      +
      2071 wave /SDFR=dataDF /z Scan1Active, Scan2Active
      +
      2072 wave /SDFR=dataDF /t /z Scan1Positioner1, Scan1Readback1
      +
      2073 wave /SDFR=dataDF /t /z Scan1Positioner2, Scan1Readback2
      +
      2074 wave /SDFR=dataDF /t /z Scan2Positioner1, Scan2Readback1
      +
      2075 wave /SDFR=dataDF /t /z Scan2Positioner2, Scan2Readback2
      +
      2076
      +
      2077 // TODO : search the data folder for positioner waves,
      +
      2078 // i.e. waves with the PV name corresponding to Scan1Positioner1 in their wave note.
      +
      2079 wave /z zscale
      +
      2080
      +
      2081 strswitch(GetDimLabel(data, 0, -1))
      +
      2082 case "AD_DimN":
      +
      2083 setscale /i x zscale[0], zscale[numpnts(zscale)-1], "", data
      +
      2084 break
      +
      2085 endswitch
      +
      2086 strswitch(GetDimLabel(data, 1, -1))
      +
      2087 case "AD_DimN":
      +
      2088 setscale /i y zscale[0], zscale[numpnts(zscale)-1], "", data
      +
      2089 break
      +
      2090 endswitch
      +
      2091 strswitch(GetDimLabel(data, 2, -1))
      +
      2092 case "AD_DimN":
      +
      2093 setscale /i z zscale[0], zscale[numpnts(zscale)-1], "", data
      +
      2094 break
      +
      2095 endswitch
      +
      2096
      +
      2097 setdatafolder saveDF
      +
      2098end
      +
      +
      adh5_scale_scan
      variable adh5_scale_scan(wave data)
      scales the extra dimensions of an area detector dataset according to the EPICS scan
      Definition pearl-area-import.ipf:2063
      +
      adh5_scale_scienta
      variable adh5_scale_scienta(wave data)
      set the energy and angle scales of an area detector dataset from the Scienta analyser.
      Definition pearl-area-import.ipf:1958
      +
      adh5_get_result_waves
      threadsafe variable adh5_get_result_waves(wave results, string result_prefix, variable start_index)
      copy waves from wave reference wave into current data folder
      Definition pearl-area-import.ipf:1463
      +
      reduce_slab_worker
      static threadsafe variable reduce_slab_worker(funcref reduction_func)
      Definition pearl-area-import.ipf:1751
      +
      adh5_load_reduced_detector
      variable adh5_load_reduced_detector(variable fileID, string detectorpath, funcref reduction_func, string reduction_param, variable progress=defaultValue, variable nthreads=defaultValue)
      load a reduced detector dataset from the open HDF5 file.
      Definition pearl-area-import.ipf:1499
      +
      reduce_slab_image
      static threadsafe wave reduce_slab_image(wave slabdata, wave image, funcref reduction_func, string reduction_param)
      Definition pearl-area-import.ipf:1790
      +
      adh5_load_detector_slabs
      variable adh5_load_detector_slabs(variable fileID, string detectorpath, variable progress=defaultValue)
      load the detector dataset from the open HDF5 file.
      Definition pearl-area-import.ipf:784
      +
      reduce_brick_worker
      static threadsafe variable reduce_brick_worker(funcref reduction_func)
      thread worker for adh5_reduce_brick
      Definition pearl-area-import.ipf:1410
      +
      adh5_scale
      variable adh5_scale(wave data, string source=defaultValue)
      set the dimension scales of an area detector dataset.
      Definition pearl-area-import.ipf:730
      +
      adh5_load_detector
      variable adh5_load_detector(variable fileID, string detectorpath)
      load the detector dataset from the open HDF5 file.
      Definition pearl-area-import.ipf:585
      +
      adh5_load_detector_image
      variable adh5_load_detector_image(variable fileID, string detectorpath, variable dim2start, variable dim2count, variable dim3start, variable dim3count)
      load a single image from the detector dataset of the open HDF5 file
      Definition pearl-area-import.ipf:949
      +
      adh5_setup_profile
      threadsafe variable adh5_setup_profile(wave image, wave profile, variable dim)
      set up a one-dimensional wave for a line profile based on a 2D original wave.
      Definition pearl-area-import.ipf:1138
      +
      adh5_test_reduction_func
      string adh5_test_reduction_func(wave source, funcref reduction_func, string reduction_param, string result_prefix)
      wrapper function for testing reduction functions from the command line.
      Definition pearl-area-import.ipf:1171
      +
      adh5_load_preview
      string adh5_load_preview(string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
      load a single image from a HDF5 file created by the Area Detector software.
      Definition pearl-area-import.ipf:391
      +
      adh5_load_reduced
      string adh5_load_reduced(string ANickName, string APathName, string AFileName, funcref reduction_func, string reduction_param, variable load_data=defaultValue, variable load_attr=defaultValue, variable progress=defaultValue)
      load and reduce a dataset from a HDF5 file created by the Area Detector software.
      Definition pearl-area-import.ipf:306
      +
      GetAttrDataFolderDFR
      static dfr GetAttrDataFolderDFR(wave data)
      find the attributes data folder of an area detector dataset.
      Definition pearl-area-import.ipf:711
      +
      adh5_list_reduction_funcs
      string adh5_list_reduction_funcs()
      get a list of functions which can be used as reduction functions.
      Definition pearl-area-import.ipf:1045
      +
      adh5_load_complete
      string adh5_load_complete(string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
      import everything from a HDF5 file created by the Area Detector software.
      Definition pearl-area-import.ipf:211
      +
      adh5_load_info
      string adh5_load_info(string APathName, string AFileName)
      load descriptive info from a HDF5 file created by the Area Detector software.
      Definition pearl-area-import.ipf:501
      +
      read_attribute_info
      static variable read_attribute_info(string datawavename, string source, variable *idest)
      sub-function of adh5_loadattr_all.
      Definition pearl-area-import.ipf:1905
      +
      adh5_loadattr_all
      variable adh5_loadattr_all(variable fileID, string attributespath)
      load an NDAttributes group from an open HDF5 file into the current data folder.
      Definition pearl-area-import.ipf:1823
      +
      adh5_redim
      variable adh5_redim(wave data)
      redimension a multi-dimensional area detector array loaded from HDF5.
      Definition pearl-area-import.ipf:630
      +
      ad_suggest_foldername
      string ad_suggest_foldername(string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
      generate the name of a data folder based on a file name.
      Definition pearl-area-import.ipf:110
      +
      adh5_default_reduction
      threadsafe wave adh5_default_reduction(wave source, string *param)
      function prototype for adh5_load_reduced_detector
      Definition pearl-area-import.ipf:1115
      +
      BeforeFileOpenHook
      static variable BeforeFileOpenHook(variable refNum, string fileName, string path, string type, string creator, variable kind)
      callback function for drag&drop of HDF5 files into Igor.
      Definition pearl-area-import.ipf:46
      +
      adh5_reduce_brick
      variable adh5_reduce_brick(wave source, funcref reduction_func, string reduction_param, string result_prefix, variable progress=defaultValue, variable nthreads=defaultValue)
      reduce a three-dimensional intensity distribution
      Definition pearl-area-import.ipf:1203
      +
      ad_load_dialog
      variable ad_load_dialog(string APathName)
      load area detector data files selected in a file dialog window
      Definition pearl-area-import.ipf:171
      +
      ad_extract_slab
      threadsafe wave ad_extract_slab(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
      2D cut through 3D dataset, integrate in normal dimension
      Definition pearl-area-profiles.ipf:314
      +
      ad_profile_y_w
      threadsafe wave ad_profile_y_w(wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition pearl-area-profiles.ipf:568
      +
      ad_profile_x_w
      threadsafe wave ad_profile_x_w(wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition pearl-area-profiles.ipf:505
      +
      PearlCleanupName
      string PearlCleanupName(string name)
      Definition pearl-compat.ipf:48
      +
      update_progress_panel
      variable update_progress_panel(variable progress, string message=defaultValue, variable progress_max=defaultValue)
      Definition pearl-gui-tools.ipf:33
      +
      display_progress_panel
      variable display_progress_panel(string title, string message, variable progress_max)
      Definition pearl-gui-tools.ipf:19
      +
      kill_progress_panel
      variable kill_progress_panel()
      Definition pearl-gui-tools.ipf:51
      -
      adh5_list_reduction_funcs
      string adh5_list_reduction_funcs()
      get a list of functions which can be used as reduction functions.
      Definition: pearl-area-import.ipf:1045
      -
      reduce_slab_worker
      static threadsafe variable reduce_slab_worker(funcref reduction_func)
      Definition: pearl-area-import.ipf:1751
      -
      adh5_load_preview
      string adh5_load_preview(string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
      load a single image from a HDF5 file created by the Area Detector software.
      Definition: pearl-area-import.ipf:391
      -
      kill_progress_panel
      variable kill_progress_panel()
      Definition: pearl-gui-tools.ipf:51
      -
      adh5_load_info
      string adh5_load_info(string APathName, string AFileName)
      load descriptive info from a HDF5 file created by the Area Detector software.
      Definition: pearl-area-import.ipf:501
      -
      display_progress_panel
      variable display_progress_panel(string title, string message, variable progress_max)
      Definition: pearl-gui-tools.ipf:19
      -
      update_progress_panel
      variable update_progress_panel(variable progress, string message=defaultValue, variable progress_max=defaultValue)
      Definition: pearl-gui-tools.ipf:33
      -
      ad_load_dialog
      variable ad_load_dialog(string APathName)
      load area detector data files selected in a file dialog window
      Definition: pearl-area-import.ipf:171
      -
      adh5_get_result_waves
      threadsafe variable adh5_get_result_waves(wave results, string result_prefix, variable start_index)
      copy waves from wave reference wave into current data folder
      Definition: pearl-area-import.ipf:1463
      -
      read_attribute_info
      static variable read_attribute_info(string datawavename, string source, variable *idest)
      sub-function of adh5_loadattr_all.
      Definition: pearl-area-import.ipf:1905
      -
      ad_profile_x_w
      threadsafe wave ad_profile_x_w(wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition: pearl-area-profiles.ipf:505
      -
      adh5_scale_scienta
      variable adh5_scale_scienta(wave data)
      set the energy and angle scales of an area detector dataset from the Scienta analyser.
      Definition: pearl-area-import.ipf:1958
      -
      adh5_test_reduction_func
      string adh5_test_reduction_func(wave source, funcref reduction_func, string reduction_param, string result_prefix)
      wrapper function for testing reduction functions from the command line.
      Definition: pearl-area-import.ipf:1171
      -
      GetAttrDataFolderDFR
      static dfr GetAttrDataFolderDFR(wave data)
      find the attributes data folder of an area detector dataset.
      Definition: pearl-area-import.ipf:711
      -
      adh5_setup_profile
      threadsafe variable adh5_setup_profile(wave image, wave profile, variable dim)
      set up a one-dimensional wave for a line profile based on a 2D original wave.
      Definition: pearl-area-import.ipf:1138
      -
      adh5_loadattr_all
      variable adh5_loadattr_all(variable fileID, string attributespath)
      load an NDAttributes group from an open HDF5 file into the current data folder.
      Definition: pearl-area-import.ipf:1823
      -
      adh5_scale_scan
      variable adh5_scale_scan(wave data)
      scales the extra dimensions of an area detector dataset according to the EPICS scan
      Definition: pearl-area-import.ipf:2063
      -
      adh5_reduce_brick
      variable adh5_reduce_brick(wave source, funcref reduction_func, string reduction_param, string result_prefix, variable progress=defaultValue, variable nthreads=defaultValue)
      reduce a three-dimensional intensity distribution
      Definition: pearl-area-import.ipf:1203
      -
      reduce_brick_worker
      static threadsafe variable reduce_brick_worker(funcref reduction_func)
      thread worker for adh5_reduce_brick
      Definition: pearl-area-import.ipf:1410
      -
      ad_suggest_foldername
      string ad_suggest_foldername(string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
      generate the name of a data folder based on a file name.
      Definition: pearl-area-import.ipf:110
      -
      adh5_load_complete
      string adh5_load_complete(string ANickName, string APathName, string AFileName, variable load_data=defaultValue, variable load_attr=defaultValue)
      import everything from a HDF5 file created by the Area Detector software.
      Definition: pearl-area-import.ipf:211
      -
      ad_profile_y_w
      threadsafe wave ad_profile_y_w(wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition: pearl-area-profiles.ipf:568
      -
      adh5_default_reduction
      threadsafe wave adh5_default_reduction(wave source, string *param)
      function prototype for adh5_load_reduced_detector
      Definition: pearl-area-import.ipf:1115
      -
      ad_extract_slab
      threadsafe wave ad_extract_slab(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
      2D cut through 3D dataset, integrate in normal dimension
      Definition: pearl-area-profiles.ipf:314
      -
      adh5_redim
      variable adh5_redim(wave data)
      redimension a multi-dimensional area detector array loaded from HDF5.
      Definition: pearl-area-import.ipf:630
      -
      adh5_load_detector_slabs
      variable adh5_load_detector_slabs(variable fileID, string detectorpath, variable progress=defaultValue)
      load the detector dataset from the open HDF5 file.
      Definition: pearl-area-import.ipf:784
      -
      adh5_load_reduced
      string adh5_load_reduced(string ANickName, string APathName, string AFileName, funcref reduction_func, string reduction_param, variable load_data=defaultValue, variable load_attr=defaultValue, variable progress=defaultValue)
      load and reduce a dataset from a HDF5 file created by the Area Detector software.
      Definition: pearl-area-import.ipf:306
      -
      adh5_load_reduced_detector
      variable adh5_load_reduced_detector(variable fileID, string detectorpath, funcref reduction_func, string reduction_param, variable progress=defaultValue, variable nthreads=defaultValue)
      load a reduced detector dataset from the open HDF5 file.
      Definition: pearl-area-import.ipf:1499
      -
      PearlCleanupName
      string PearlCleanupName(string name)
      Definition: pearl-compat.ipf:48
      -
      adh5_load_detector
      variable adh5_load_detector(variable fileID, string detectorpath)
      load the detector dataset from the open HDF5 file.
      Definition: pearl-area-import.ipf:585
      -
      adh5_scale
      variable adh5_scale(wave data, string source=defaultValue)
      set the dimension scales of an area detector dataset.
      Definition: pearl-area-import.ipf:730
      -
      BeforeFileOpenHook
      static variable BeforeFileOpenHook(variable refNum, string fileName, string path, string type, string creator, variable kind)
      callback function for drag&drop of HDF5 files into Igor.
      Definition: pearl-area-import.ipf:46
      -
      reduce_slab_image
      static threadsafe wave reduce_slab_image(wave slabdata, wave image, funcref reduction_func, string reduction_param)
      Definition: pearl-area-import.ipf:1790
      -
      adh5_load_detector_image
      variable adh5_load_detector_image(variable fileID, string detectorpath, variable dim2start, variable dim2count, variable dim3start, variable dim3count)
      load a single image from the detector dataset of the open HDF5 file
      Definition: pearl-area-import.ipf:949
      diff --git a/doc/html/pearl-area-profiles_8ipf.html b/doc/html/pearl-area-profiles_8ipf.html index b739e90..047c33b 100644 --- a/doc/html/pearl-area-profiles_8ipf.html +++ b/doc/html/pearl-area-profiles_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-profiles.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-area-profiles_8ipf.html',''); in
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      Namespaces | Functions
      -
      -
      pearl-area-profiles.ipf File Reference
      ARPES package
      +
      pearl-area-profiles.ipf File Reference
      ARPES package
      @@ -96,56 +102,56 @@ $(document).ready(function(){initNavTree('pearl-area-profiles_8ipf.html',''); in

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlAreaProfiles
      namespace  PearlAreaProfiles
       profile extraction for multi-dimensional datasets acquired from area detectors.
       
      - - - + + - - + + - - + + - - + + - - + + - + - + - + - - + + - - + + - - + + - - + + - + - - + +

      +

      Functions

      threadsafe wave ad_extract_rod (wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable sdev=defaultValue, variable pscale=defaultValue)
       1D cut through 3D dataset, integrate in normal dimensions More...
      threadsafe wave ad_extract_rod (wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable sdev=defaultValue, variable pscale=defaultValue)
       1D cut through 3D dataset, integrate in normal dimensions
       
      threadsafe wave ad_extract_rod_x (wave dataset, variable q1, variable q2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along X dimension. More...
      threadsafe wave ad_extract_rod_x (wave dataset, variable q1, variable q2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along X dimension.
       
      threadsafe wave ad_extract_rod_y (wave dataset, variable p1, variable p2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along Y dimension. More...
      threadsafe wave ad_extract_rod_y (wave dataset, variable p1, variable p2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along Y dimension.
       
      threadsafe wave ad_extract_rod_z (wave dataset, variable p1, variable p2, variable q1, variable q2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along Z dimension. More...
      threadsafe wave ad_extract_rod_z (wave dataset, variable p1, variable p2, variable q1, variable q2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
       1D cut through 3D dataset along Z dimension.
       
      threadsafe wave ad_extract_slab (wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
       2D cut through 3D dataset, integrate in normal dimension More...
      threadsafe wave ad_extract_slab (wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
       2D cut through 3D dataset, integrate in normal dimension
       
      threadsafe wave ad_extract_slab_x (wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      threadsafe wave ad_extract_slab_x (wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
       
      threadsafe wave ad_extract_slab_y (wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      threadsafe wave ad_extract_slab_y (wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
       
      threadsafe wave ad_extract_slab_z (wave dataset, variable r1, variable r2, string destname, variable noavg=defaultValue)
      threadsafe wave ad_extract_slab_z (wave dataset, variable r1, variable r2, string destname, variable noavg=defaultValue)
       
      threadsafe wave ad_profile_x (wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, new destination wave. More...
      threadsafe wave ad_profile_x (wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, new destination wave.
       
      threadsafe wave ad_profile_x_w (wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, existing destination wave. More...
      threadsafe wave ad_profile_x_w (wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, existing destination wave.
       
      threadsafe wave ad_profile_y (wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
       1D cut through 2D dataset along Y dimension, new destination wave. More...
      threadsafe wave ad_profile_y (wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
       1D cut through 2D dataset along Y dimension, new destination wave.
       
      threadsafe wave ad_profile_y_w (wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, existing destination wave. More...
      threadsafe wave ad_profile_y_w (wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
       1D cut through 2D dataset along X dimension, existing destination wave.
       
      threadsafe variable calc_y_profile_mins (wave image)
      threadsafe variable calc_y_profile_mins (wave image)
       
      variable ad_collect_multiscan_y (wave dataset, wave positions, wave destwave, variable noavg=defaultValue)
       collect profiles from a multi-scan. More...
      variable ad_collect_multiscan_y (wave dataset, wave positions, wave destwave, variable noavg=defaultValue)
       collect profiles from a multi-scan.
       

      Detailed Description

      profile extraction for multi-dimensional datasets acquired from area detectors.

      -
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      +
      Author
      matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
      Copyright
      2013-15 Paul Scherrer Institut
      Licensed under the Apache License, Version 2.0 (the "License");
      you may not use this file except in compliance with the License.
      @@ -153,8 +159,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

      Definition in file pearl-area-profiles.ipf.

      Function Documentation

      - -

      ◆ ad_collect_multiscan_y()

      + +

      ◆ ad_collect_multiscan_y()

      @@ -198,8 +204,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_rod()

      + +

      ◆ ad_extract_rod()

      @@ -300,8 +306,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_rod_x()

      + +

      ◆ ad_extract_rod_x()

      @@ -369,8 +375,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_rod_y()

      + +

      ◆ ad_extract_rod_y()

      @@ -438,8 +444,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_rod_z()

      + +

      ◆ ad_extract_rod_z()

      @@ -507,8 +513,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_slab()

      + +

      ◆ ad_extract_slab()

      @@ -602,8 +608,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_slab_x()

      + +

      ◆ ad_extract_slab_x()

      @@ -650,8 +656,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_slab_y()

      + +

      ◆ ad_extract_slab_y()

      @@ -698,8 +704,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_extract_slab_z()

      + +

      ◆ ad_extract_slab_z()

      @@ -746,8 +752,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_profile_x()

      + +

      ◆ ad_profile_x()

      @@ -796,8 +802,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_profile_x_w()

      + +

      ◆ ad_profile_x_w()

      @@ -846,8 +852,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_profile_y()

      + +

      ◆ ad_profile_y()

      @@ -896,8 +902,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ ad_profile_y_w()

      + +

      ◆ ad_profile_y_w()

      @@ -946,8 +952,8 @@ Licensed under the Apache License, Version 2.0 (the "License");
      - -

      ◆ calc_y_profile_mins()

      + +

      ◆ calc_y_profile_mins()

      @@ -972,9 +978,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
      diff --git a/doc/html/pearl-area-profiles_8ipf_source.html b/doc/html/pearl-area-profiles_8ipf_source.html index 22c9387..07a0a0c 100644 --- a/doc/html/pearl-area-profiles_8ipf_source.html +++ b/doc/html/pearl-area-profiles_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-area-profiles.ipf Source File @@ -23,10 +23,9 @@
      - - + @@ -35,22 +34,28 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ + +
      @@ -77,599 +82,631 @@ $(document).ready(function(){initNavTree('pearl-area-profiles_8ipf_source.html',
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      -
      -
      pearl-area-profiles.ipf
      +
      pearl-area-profiles.ipf
      -Go to the documentation of this file.
      1 #pragma TextEncoding = "UTF-8"
      -
      2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
      -
      3 #pragma IgorVersion = 6.1
      -
      4 #pragma ModuleName = PearlAreaProfiles
      -
      5 #pragma version = 1.05
      -
      6 
      -
      20 
      -
      26 
      -
      55 threadsafe function /wave ad_extract_rod(dataset, x1, x2, y1, y2, z1, z2, destname, [noavg, sdev, pscale])
      -
      56  wave dataset
      -
      57  variable x1, x2, y1, y2, z1, z2
      -
      58  string destname
      -
      59  variable noavg
      -
      60  variable sdev
      -
      61  variable pscale
      -
      62 
      -
      63  if (wavedims(dataset) != 3)
      -
      64  return $""
      -
      65  endif
      -
      66  if (ParamIsDefault(noavg))
      -
      67  noavg = 0
      -
      68  endif
      -
      69  if (ParamIsDefault(sdev))
      -
      70  sdev = 0
      -
      71  endif
      -
      72  if (ParamIsDefault(pscale))
      -
      73  pscale = 0
      -
      74  endif
      -
      75 
      -
      76  variable p1, p2, q1, q2, r1, r2
      -
      77  if (pscale)
      -
      78  p1 = x1
      -
      79  p2 = x2
      -
      80  q1 = y1
      -
      81  q2 = y2
      -
      82  r1 = z1
      -
      83  r2 = z2
      -
      84  else
      -
      85  p1 = round((x1 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      -
      86  p2 = round((x2 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      -
      87  q1 = round((y1 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      -
      88  q2 = round((y2 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      -
      89  r1 = round((z1 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      -
      90  r2 = round((z2 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      -
      91  endif
      -
      92 
      -
      93  if ((numtype(p1) == 2) || (numtype(p2) == 2))
      -
      94  return ad_extract_rod_x(dataset, min(q1, q2), max(q1, q2), min(r1, r2), max(r1, r2), destname, noavg=noavg, sdev=sdev)
      -
      95  elseif ((numtype(q1) == 2) || (numtype(q2) == 2))
      -
      96  return ad_extract_rod_y(dataset, min(p1, p2), max(p1, p2), min(r1, r2), max(r1, r2), destname, noavg=noavg, sdev=sdev)
      -
      97  elseif ((numtype(r1) == 2) || (numtype(r2) == 2))
      -
      98  return ad_extract_rod_z(dataset, min(p1, p2), max(p1, p2), min(q1, q2), max(q1, q2), destname, noavg=noavg, sdev=sdev)
      -
      99  else
      -
      100  return $""
      -
      101  endif
      -
      102 end
      -
      103 
      -
      107 threadsafe function /wave ad_extract_rod_x(dataset, q1, q2, r1, r2, destname, [noavg, sdev])
      -
      108  wave dataset
      -
      109  variable q1, q2, r1, r2
      -
      110  // -inf < q1 < q2 < +inf, -inf < r1 < r2 < +inf
      -
      111  string destname
      -
      112  variable noavg
      -
      113  variable sdev
      -
      114 
      -
      115  if (ParamIsDefault(noavg))
      -
      116  noavg = 0
      -
      117  endif
      -
      118  if (ParamIsDefault(sdev))
      -
      119  sdev = 0
      -
      120  endif
      -
      121  variable avg = !noavg && !sdev
      -
      122 
      -
      123  q1 = max(q1, 0)
      -
      124  q2 = min(q2, dimsize(dataset, 1) - 1)
      -
      125  r1 = max(r1, 0)
      -
      126  r2 = min(r2, dimsize(dataset, 2) - 1)
      -
      127 
      -
      128  if (strlen(destname) > 0)
      -
      129  duplicate /r=[][q1,q1][r1,r1]/o dataset, $destname
      -
      130  wave w_dest = $destname
      -
      131  else
      -
      132  duplicate /r=[][q1,q1][r1,r1] /free dataset, w_dest
      -
      133  endif
      -
      134  redimension /n=(dimsize(w_dest, 0)) w_dest
      -
      135  setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      -
      136 
      -
      137  w_dest = 0
      -
      138  variable qq, rr
      -
      139  variable nn = 0
      -
      140  for (qq = q1; qq <= q2; qq += 1)
      -
      141  for (rr = r1; rr <= r2; rr += 1)
      -
      142  w_dest += dataset[p][qq][rr]
      -
      143  nn += 1
      -
      144  endfor
      -
      145  endfor
      -
      146 
      -
      147  if (sdev)
      -
      148  duplicate /free w_dest, w_squares
      -
      149  w_squares = 0
      -
      150  for (qq = q1; qq <= q2; qq += 1)
      -
      151  for (rr = r1; rr <= r2; rr += 1)
      -
      152  w_squares += dataset[p][qq][rr]^2
      -
      153  endfor
      -
      154  endfor
      -
      155  endif
      -
      156 
      -
      157  if (avg)
      -
      158  w_dest /= nn
      -
      159  elseif (sdev)
      -
      160  w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      -
      161  endif
      -
      162 
      -
      163  return w_dest
      -
      164 end
      -
      165 
      -
      169 threadsafe function /wave ad_extract_rod_y(dataset, p1, p2, r1, r2, destname, [noavg, sdev])
      -
      170  wave dataset
      -
      171  variable p1, p2, r1, r2
      -
      172  // 0 <= p1 < p2 < dimsize(0), 0 <= r1 < r2 < dimsize(2)
      -
      173  string destname
      -
      174  variable noavg
      -
      175  variable sdev
      -
      176 
      -
      177  if (ParamIsDefault(noavg))
      -
      178  noavg = 0
      -
      179  endif
      -
      180  if (ParamIsDefault(sdev))
      -
      181  sdev = 0
      -
      182  endif
      -
      183  variable avg = !noavg && !sdev
      -
      184 
      -
      185  p1 = max(p1, 0)
      -
      186  p2 = min(p2, dimsize(dataset, 0) - 1)
      -
      187  r1 = max(r1, 0)
      -
      188  r2 = min(r2, dimsize(dataset, 2) - 1)
      -
      189 
      -
      190  if (strlen(destname) > 0)
      -
      191  duplicate /r=[p1,p1][][r1,r1]/o dataset, $destname
      -
      192  wave w_dest = $destname
      -
      193  else
      -
      194  duplicate /r=[p1,p1][][r1,r1] /free dataset, w_dest
      -
      195  endif
      -
      196  redimension /n=(dimsize(w_dest, 1)) w_dest
      -
      197  setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      -
      198 
      -
      199  w_dest = 0
      -
      200  variable pp, rr
      -
      201  variable nn = 0
      -
      202  for (pp = p1; pp <= p2; pp += 1)
      -
      203  for (rr = r1; rr <= r2; rr += 1)
      -
      204  w_dest += dataset[pp][p][rr]
      -
      205  nn += 1
      -
      206  endfor
      -
      207  endfor
      -
      208 
      -
      209  if (sdev)
      -
      210  duplicate /free w_dest, w_squares
      -
      211  w_squares = 0
      -
      212  for (pp = p1; pp <= p2; pp += 1)
      -
      213  for (rr = r1; rr <= r2; rr += 1)
      -
      214  w_squares += dataset[pp][p][rr]^2
      -
      215  nn += 1
      -
      216  endfor
      -
      217  endfor
      -
      218  endif
      -
      219 
      -
      220  if (avg)
      -
      221  w_dest /= nn
      -
      222  elseif (sdev)
      -
      223  w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      -
      224  endif
      -
      225 
      -
      226  return w_dest
      -
      227 end
      -
      228 
      -
      232 threadsafe function /wave ad_extract_rod_z(dataset, p1, p2, q1, q2, destname, [noavg, sdev])
      -
      233  wave dataset
      -
      234  variable p1, p2, q1, q2
      -
      235  // 0 <= p1 < p2 < dimsize(0), 0 <= q1 < q2 < dimsize(1)
      -
      236  string destname
      -
      237  variable noavg
      -
      238  variable sdev
      -
      239 
      -
      240  if (ParamIsDefault(noavg))
      -
      241  noavg = 0
      -
      242  endif
      -
      243  if (ParamIsDefault(sdev))
      -
      244  sdev = 0
      -
      245  endif
      -
      246  variable avg = !noavg && !sdev
      -
      247 
      -
      248  p1 = max(p1, 0)
      -
      249  p2 = min(p2, dimsize(dataset, 0) - 1)
      -
      250  q1 = max(q1, 0)
      -
      251  q2 = min(q2, dimsize(dataset, 1) - 1)
      -
      252 
      -
      253  if (strlen(destname) > 0)
      -
      254  duplicate /r=[p1,p1][q1,q1][]/o dataset, $destname
      -
      255  wave w_dest = $destname
      -
      256  else
      -
      257  duplicate /r=[p1,p1][q1,q1][] /free dataset, w_dest
      -
      258  endif
      -
      259  redimension /n=(dimsize(w_dest, 2)) w_dest
      -
      260  setscale /p x dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      -
      261 
      -
      262  w_dest = 0
      -
      263  variable pp, qq
      -
      264  variable nn = 0
      -
      265  for (pp = p1; pp <= p2; pp += 1)
      -
      266  for (qq = q1; qq <= q2; qq += 1)
      -
      267  w_dest += dataset[pp][qq][p]
      -
      268  nn += 1
      -
      269  endfor
      -
      270  endfor
      -
      271 
      -
      272  if (sdev)
      -
      273  duplicate /free w_dest, w_squares
      -
      274  w_squares = 0
      -
      275  for (pp = p1; pp <= p2; pp += 1)
      -
      276  for (qq = q1; qq <= q2; qq += 1)
      -
      277  w_squares += dataset[pp][qq][p]^2
      -
      278  nn += 1
      -
      279  endfor
      -
      280  endfor
      -
      281  endif
      -
      282 
      -
      283  if (avg)
      -
      284  w_dest /= nn
      -
      285  elseif (sdev)
      -
      286  w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      -
      287  endif
      -
      288 
      -
      289  return w_dest
      -
      290 end
      -
      291 
      -
      314 threadsafe function /wave ad_extract_slab(dataset, x1, x2, y1, y2, z1, z2, destname, [noavg, pscale])
      -
      315  wave dataset
      -
      316  variable x1, x2, y1, y2, z1, z2
      -
      317  string destname
      -
      318  variable noavg
      -
      319  variable pscale
      -
      320 
      -
      321  if (wavedims(dataset) != 3)
      -
      322  return $""
      -
      323  endif
      -
      324  if (ParamIsDefault(noavg))
      -
      325  noavg = 0
      -
      326  endif
      -
      327  if (ParamIsDefault(pscale))
      -
      328  pscale = 0
      -
      329  endif
      -
      330 
      -
      331  variable p1, p2, q1, q2, r1, r2
      -
      332  if (pscale)
      -
      333  p1 = x1
      -
      334  p2 = x2
      -
      335  q1 = y1
      -
      336  q2 = y2
      -
      337  r1 = z1
      -
      338  r2 = z2
      -
      339  else
      -
      340  p1 = round((x1 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      -
      341  p2 = round((x2 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      -
      342  q1 = round((y1 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      -
      343  q2 = round((y2 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      -
      344  r1 = round((z1 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      -
      345  r2 = round((z2 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      -
      346  endif
      -
      347 
      -
      348  if ((numtype(p1) < 2) && (numtype(p2) < 2))
      -
      349  return ad_extract_slab_x(dataset, min(p1, p2), max(p1, p2), destname, noavg=noavg)
      -
      350  elseif ((numtype(q1) < 2) && (numtype(q2) < 2))
      -
      351  return ad_extract_slab_y(dataset, min(q1, q2), max(q1, q2), destname, noavg=noavg)
      -
      352  elseif ((numtype(r1) < 2) && (numtype(r2) < 2))
      -
      353  return ad_extract_slab_z(dataset, min(r1, r2), max(r1, r2), destname, noavg=noavg)
      -
      354  else
      -
      355  return $""
      -
      356  endif
      -
      357 end
      -
      358 
      -
      359 threadsafe function /wave ad_extract_slab_x(dataset, p1, p2, destname, [noavg])
      -
      360  wave dataset
      -
      361  variable p1, p2
      -
      362  // x coordinate range (point scaling) to be integrated
      -
      363  // -inf <= p1 < p2 <= +inf
      -
      364  string destname // name of destination wave. to be created in current data folder. overrides existing.
      -
      365  // if empty, the function returns a free wave
      -
      366  variable noavg // zero or default = average, non-zero = sum
      -
      367 
      -
      368  if (ParamIsDefault(noavg))
      -
      369  noavg = 0
      -
      370  endif
      -
      371  p1 = max(p1, 0)
      -
      372  p2 = min(p2, dimsize(dataset, 0) - 1)
      -
      373 
      -
      374  if (strlen(destname) > 0)
      -
      375  duplicate /r=[p1,p1][][]/o dataset, $destname
      -
      376  wave w_dest = $destname
      -
      377  else
      -
      378  duplicate /r=[p1,p1][][] /free dataset, w_dest
      -
      379  endif
      -
      380  redimension /n=(dimsize(w_dest, 1), dimsize(w_dest, 2)) w_dest
      -
      381  setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      -
      382  setscale /p y dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      -
      383 
      -
      384  w_dest = 0
      -
      385  variable pp
      -
      386  variable nn = 0
      -
      387  for (pp = p1; pp <= p2; pp += 1)
      -
      388  w_dest += dataset[pp][p][q]
      -
      389  nn += 1
      -
      390  endfor
      -
      391 
      -
      392  if (noavg == 0)
      -
      393  w_dest /= nn
      -
      394  endif
      -
      395 
      -
      396  return w_dest
      -
      397 end
      -
      398 
      -
      399 threadsafe function /wave ad_extract_slab_y(dataset, q1, q2, destname, [noavg])
      -
      400  wave dataset
      -
      401  variable q1, q2
      -
      402  // y coordinate range (point scaling) to be integrated
      -
      403  // -inf <= q1 < q2 <= +inf
      -
      404  string destname // name of destination wave. to be created in current data folder. overrides existing.
      -
      405  // if empty, the function returns a free wave
      -
      406  variable noavg // zero or default = average, non-zero = sum
      -
      407 
      -
      408  if (ParamIsDefault(noavg))
      -
      409  noavg = 0
      -
      410  endif
      -
      411  q1 = max(q1, 0)
      -
      412  q2 = min(q2, dimsize(dataset, 1) - 1)
      -
      413 
      -
      414  if (strlen(destname) > 0)
      -
      415  duplicate /r=[][q1,q1][]/o dataset, $destname
      -
      416  wave w_dest = $destname
      -
      417  else
      -
      418  duplicate /r=[][q1,q1][] /free dataset, w_dest
      -
      419  endif
      -
      420  redimension /n=(dimsize(w_dest, 0), dimsize(w_dest, 2)) w_dest
      -
      421  setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      -
      422  setscale /p y dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      -
      423 
      -
      424  w_dest = 0
      -
      425  variable qq
      -
      426  variable nn = 0
      -
      427  for (qq = q1; qq <= q2; qq += 1)
      -
      428  w_dest += dataset[p][qq][q]
      -
      429  nn += 1
      -
      430  endfor
      -
      431 
      -
      432  if (noavg == 0)
      -
      433  w_dest /= nn
      -
      434  endif
      -
      435 
      -
      436  return w_dest
      -
      437 end
      -
      438 
      -
      439 threadsafe function /wave ad_extract_slab_z(dataset, r1, r2, destname, [noavg])
      -
      440  wave dataset
      -
      441  variable r1, r2
      -
      442  // z coordinate range (point scaling) to be integrated
      -
      443  // -inf <= r1 < r2 <= +inf
      -
      444  string destname // name of destination wave. to be created in current data folder. overrides existing.
      -
      445  // if empty, the function returns a free wave
      -
      446  variable noavg // zero or default = average, non-zero = sum
      -
      447 
      -
      448  if (ParamIsDefault(noavg))
      -
      449  noavg = 0
      -
      450  endif
      -
      451  r1 = max(r1, 0)
      -
      452  r2 = min(r2, dimsize(dataset, 2) - 1)
      -
      453 
      -
      454  if (strlen(destname) > 0)
      -
      455  duplicate /r=[][][r1,r1]/o dataset, $destname
      -
      456  wave w_dest = $destname
      -
      457  else
      -
      458  duplicate /r=[][][r1,r1] /free dataset, w_dest
      -
      459  endif
      -
      460  redimension /n=(dimsize(w_dest, 0), dimsize(w_dest, 1)) w_dest
      -
      461  setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      -
      462  setscale /p y dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      -
      463 
      -
      464  w_dest = 0
      -
      465  variable rr
      -
      466  variable nn = 0
      -
      467  for (rr = r1; rr <= r2; rr += 1)
      -
      468  w_dest += dataset[p][q][rr]
      -
      469  nn += 1
      -
      470  endfor
      -
      471 
      -
      472  if (noavg == 0)
      -
      473  w_dest /= nn
      -
      474  endif
      -
      475 
      -
      476  return w_dest
      -
      477 end
      -
      478 
      -
      481 threadsafe function /wave ad_profile_x(dataset, q1, q2, destname, [noavg])
      -
      482  wave dataset
      -
      483  variable q1, q2 // -inf <= q1 < q2 <= +inf
      -
      484  // deprecated: q2 = -1 stands for dimsize(0) - 1
      -
      485  string destname // name of destination wave. to be created in current data folder. overrides existing.
      -
      486  // if empty, the function returns a free wave
      -
      487  variable noavg // zero or default = average, non-zero = sum
      -
      488 
      -
      489  if (ParamIsDefault(noavg))
      -
      490  noavg = 0
      -
      491  endif
      -
      492 
      -
      493  if (strlen(destname) > 0)
      -
      494  duplicate /r=[0,0][] /o dataset, $destname
      -
      495  wave w_dest = $destname
      -
      496  else
      -
      497  duplicate /r=[0,0][] /free dataset, w_dest
      -
      498  endif
      -
      499 
      -
      500  return ad_profile_x_w(dataset, q1, q2, w_dest, noavg=noavg)
      -
      501 end
      -
      502 
      -
      505 threadsafe function /wave ad_profile_x_w(dataset, q1, q2, destwave, [noavg])
      -
      506  wave dataset
      -
      507  variable q1, q2 // -inf <= q1 < q2 <= +inf
      -
      508  // deprecated: q2 = -1 stands for dimsize(0) - 1
      -
      509  wave destwave // existing destination wave
      -
      510  variable noavg // zero or default = average, non-zero = sum
      -
      511 
      -
      512  if (ParamIsDefault(noavg))
      -
      513  noavg = 0
      -
      514  endif
      -
      515 
      -
      516  redimension /n=(dimsize(dataset, 0)) destwave
      -
      517  setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), destwave
      -
      518  setscale d 0, 0, waveunits(dataset, -1), destwave
      -
      519 
      -
      520  q1 = max(q1, 0)
      -
      521  if (q2 < 0)
      -
      522  q2 = inf
      -
      523  endif
      -
      524  q2 = min(q2, dimsize(dataset, 1) - 1)
      -
      525 
      -
      526  destwave = 0
      -
      527  variable qq
      -
      528  variable nn = 0
      -
      529  for (qq = q1; qq <= q2; qq += 1)
      -
      530  destwave += dataset[p][qq]
      -
      531  nn += 1
      -
      532  endfor
      -
      533 
      -
      534  if (noavg == 0)
      -
      535  destwave /= nn
      -
      536  endif
      -
      537 
      -
      538  return destwave
      -
      539 end
      -
      540 
      -
      543 threadsafe function /wave ad_profile_y(dataset, p1, p2, destname, [noavg])
      -
      544  wave dataset
      -
      545  variable p1, p2 // -inf <= p1 < p2 < inf
      -
      546  // deprecated: p2 = -1 stands for dimsize(0) - 1
      -
      547  string destname // name of destination wave. to be created in current data folder. overrides existing.
      -
      548  // if empty, the function returns a free wave
      -
      549  variable noavg // zero or default = average, non-zero = sum
      -
      550 
      -
      551  if (ParamIsDefault(noavg))
      -
      552  noavg = 0
      -
      553  endif
      -
      554 
      -
      555  if (strlen(destname) > 0)
      -
      556  duplicate /r=[][0,0] /o dataset, $destname
      -
      557  wave w_dest = $destname
      -
      558  else
      -
      559  duplicate /r=[][0,0] /free dataset, w_dest
      -
      560  endif
      -
      561  MatrixTranspose w_dest
      -
      562 
      -
      563  return ad_profile_y_w(dataset, p1, p2, w_dest, noavg=noavg)
      -
      564 end
      -
      565 
      -
      568 threadsafe function /wave ad_profile_y_w(dataset, p1, p2, destwave, [noavg])
      -
      569  wave dataset
      -
      570  variable p1, p2 // -inf <= p1 < p2 < inf
      -
      571  // deprecated: p2 = -1 stands for dimsize(0) - 1
      -
      572  wave destwave // existing destination wave
      -
      573  variable noavg // zero or default = average, non-zero = sum
      -
      574 
      -
      575  if (ParamIsDefault(noavg))
      -
      576  noavg = 0
      -
      577  endif
      -
      578 
      -
      579  redimension /n=(dimsize(dataset, 1)) destwave
      -
      580  setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), destwave
      -
      581  setscale d 0, 0, waveunits(dataset, -1), destwave
      -
      582 
      -
      583  p1 = max(p1, 0)
      -
      584  if (p2 < 0)
      -
      585  p2 = inf
      -
      586  endif
      -
      587  p2 = min(p2, dimsize(dataset, 0) - 1)
      -
      588 
      -
      589  destwave = 0
      -
      590  variable pp
      -
      591  variable nn = 0
      -
      592  for (pp = p1; pp <= p2; pp += 1)
      -
      593  destwave += dataset[pp][p]
      -
      594  nn += 1
      -
      595  endfor
      -
      596 
      -
      597  if (noavg == 0)
      -
      598  destwave /= nn
      -
      599  endif
      -
      600 
      -
      601  return destwave
      -
      602 end
      -
      603 
      -
      604 threadsafe function calc_y_profile_mins(image)
      -
      605  // experimental
      -
      606  wave image
      -
      607 
      -
      608  wave yminlocs = ad_profile_x(image, 0, 0, "ymins", noavg=1)
      -
      609  variable nx = dimsize(image, 0)
      -
      610  variable ix
      -
      611  for (ix = 0; ix < nx; ix += 1)
      -
      612  wave profile = ad_profile_y(image, ix, ix, "", noavg=1)
      -
      613  wavestats /q/m=1 profile
      -
      614  yminlocs[ix] = v_minloc
      -
      615  endfor
      -
      616 end
      -
      617 
      -
      622 function ad_collect_multiscan_y(dataset, positions, destwave, [noavg])
      -
      623  wave dataset
      -
      624  wave positions
      -
      625  wave destwave
      -
      626  variable noavg
      -
      627 
      -
      628  variable tol = (wavemax(positions) - wavemin(positions)) / numpnts(positions) / 100
      -
      629 
      -
      630  duplicate /free positions, positions_sorted
      -
      631  sort positions_sorted, positions_sorted
      -
      632  duplicate /free positions_sorted, positions_diff
      -
      633  differentiate /p /meth=2 positions_sorted /d=positions_diff
      -
      634  positions_diff[0] = 1
      -
      635  extract /free positions_sorted, positions_unique, positions_diff > tol
      -
      636  variable n_unique = numpnts(positions_unique)
      -
      637  redimension /n=(dimsize(dataset, 0), n_unique) destwave
      -
      638 
      -
      639  variable i
      -
      640  variable nx, ny
      -
      641  for (i = 0; i < n_unique; i += 1)
      -
      642  extract /free dataset, data_extract, abs(positions[q] - positions_unique[i]) < tol
      -
      643  nx = dimsize(dataset, 0)
      -
      644  ny = dimsize(data_extract, 0) / nx
      -
      645  redimension /n=(nx, ny) data_extract
      -
      646  wave profile = ad_profile_x(data_extract, -inf, inf, "", noavg=noavg)
      -
      647  destwave[][i] = profile[p]
      -
      648  endfor
      -
      649 end
      +Go to the documentation of this file.
      1#pragma TextEncoding = "UTF-8"
      +
      2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
      +
      3#pragma IgorVersion = 6.1
      +
      4#pragma ModuleName = PearlAreaProfiles
      +
      5#pragma version = 1.05
      +
      6
      +
      20
      +
      26
      +
      +
      55threadsafe function /wave ad_extract_rod(dataset, x1, x2, y1, y2, z1, z2, destname, [noavg, sdev, pscale])
      +
      56 wave dataset
      +
      57 variable x1, x2, y1, y2, z1, z2
      +
      58 string destname
      +
      59 variable noavg
      +
      60 variable sdev
      +
      61 variable pscale
      +
      62
      +
      63 if (wavedims(dataset) != 3)
      +
      64 return $""
      +
      65 endif
      +
      66 if (ParamIsDefault(noavg))
      +
      67 noavg = 0
      +
      68 endif
      +
      69 if (ParamIsDefault(sdev))
      +
      70 sdev = 0
      +
      71 endif
      +
      72 if (ParamIsDefault(pscale))
      +
      73 pscale = 0
      +
      74 endif
      +
      75
      +
      76 variable p1, p2, q1, q2, r1, r2
      +
      77 if (pscale)
      +
      78 p1 = x1
      +
      79 p2 = x2
      +
      80 q1 = y1
      +
      81 q2 = y2
      +
      82 r1 = z1
      +
      83 r2 = z2
      +
      84 else
      +
      85 p1 = round((x1 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      +
      86 p2 = round((x2 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      +
      87 q1 = round((y1 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      +
      88 q2 = round((y2 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      +
      89 r1 = round((z1 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      +
      90 r2 = round((z2 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      +
      91 endif
      +
      92
      +
      93 if ((numtype(p1) == 2) || (numtype(p2) == 2))
      +
      94 return ad_extract_rod_x(dataset, min(q1, q2), max(q1, q2), min(r1, r2), max(r1, r2), destname, noavg=noavg, sdev=sdev)
      +
      95 elseif ((numtype(q1) == 2) || (numtype(q2) == 2))
      +
      96 return ad_extract_rod_y(dataset, min(p1, p2), max(p1, p2), min(r1, r2), max(r1, r2), destname, noavg=noavg, sdev=sdev)
      +
      97 elseif ((numtype(r1) == 2) || (numtype(r2) == 2))
      +
      98 return ad_extract_rod_z(dataset, min(p1, p2), max(p1, p2), min(q1, q2), max(q1, q2), destname, noavg=noavg, sdev=sdev)
      +
      99 else
      +
      100 return $""
      +
      101 endif
      +
      102end
      +
      +
      103
      +
      +
      107threadsafe function /wave ad_extract_rod_x(dataset, q1, q2, r1, r2, destname, [noavg, sdev])
      +
      108 wave dataset
      +
      109 variable q1, q2, r1, r2
      +
      110 // -inf < q1 < q2 < +inf, -inf < r1 < r2 < +inf
      +
      111 string destname
      +
      112 variable noavg
      +
      113 variable sdev
      +
      114
      +
      115 if (ParamIsDefault(noavg))
      +
      116 noavg = 0
      +
      117 endif
      +
      118 if (ParamIsDefault(sdev))
      +
      119 sdev = 0
      +
      120 endif
      +
      121 variable avg = !noavg && !sdev
      +
      122
      +
      123 q1 = max(q1, 0)
      +
      124 q2 = min(q2, dimsize(dataset, 1) - 1)
      +
      125 r1 = max(r1, 0)
      +
      126 r2 = min(r2, dimsize(dataset, 2) - 1)
      +
      127
      +
      128 if (strlen(destname) > 0)
      +
      129 duplicate /r=[][q1,q1][r1,r1]/o dataset, $destname
      +
      130 wave w_dest = $destname
      +
      131 else
      +
      132 duplicate /r=[][q1,q1][r1,r1] /free dataset, w_dest
      +
      133 endif
      +
      134 redimension /n=(dimsize(w_dest, 0)) w_dest
      +
      135 setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      +
      136
      +
      137 w_dest = 0
      +
      138 variable qq, rr
      +
      139 variable nn = 0
      +
      140 for (qq = q1; qq <= q2; qq += 1)
      +
      141 for (rr = r1; rr <= r2; rr += 1)
      +
      142 w_dest += dataset[p][qq][rr]
      +
      143 nn += 1
      +
      144 endfor
      +
      145 endfor
      +
      146
      +
      147 if (sdev)
      +
      148 duplicate /free w_dest, w_squares
      +
      149 w_squares = 0
      +
      150 for (qq = q1; qq <= q2; qq += 1)
      +
      151 for (rr = r1; rr <= r2; rr += 1)
      +
      152 w_squares += dataset[p][qq][rr]^2
      +
      153 endfor
      +
      154 endfor
      +
      155 endif
      +
      156
      +
      157 if (avg)
      +
      158 w_dest /= nn
      +
      159 elseif (sdev)
      +
      160 w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      +
      161 endif
      +
      162
      +
      163 return w_dest
      +
      164end
      +
      +
      165
      +
      +
      169threadsafe function /wave ad_extract_rod_y(dataset, p1, p2, r1, r2, destname, [noavg, sdev])
      +
      170 wave dataset
      +
      171 variable p1, p2, r1, r2
      +
      172 // 0 <= p1 < p2 < dimsize(0), 0 <= r1 < r2 < dimsize(2)
      +
      173 string destname
      +
      174 variable noavg
      +
      175 variable sdev
      +
      176
      +
      177 if (ParamIsDefault(noavg))
      +
      178 noavg = 0
      +
      179 endif
      +
      180 if (ParamIsDefault(sdev))
      +
      181 sdev = 0
      +
      182 endif
      +
      183 variable avg = !noavg && !sdev
      +
      184
      +
      185 p1 = max(p1, 0)
      +
      186 p2 = min(p2, dimsize(dataset, 0) - 1)
      +
      187 r1 = max(r1, 0)
      +
      188 r2 = min(r2, dimsize(dataset, 2) - 1)
      +
      189
      +
      190 if (strlen(destname) > 0)
      +
      191 duplicate /r=[p1,p1][][r1,r1]/o dataset, $destname
      +
      192 wave w_dest = $destname
      +
      193 else
      +
      194 duplicate /r=[p1,p1][][r1,r1] /free dataset, w_dest
      +
      195 endif
      +
      196 redimension /n=(dimsize(w_dest, 1)) w_dest
      +
      197 setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      +
      198
      +
      199 w_dest = 0
      +
      200 variable pp, rr
      +
      201 variable nn = 0
      +
      202 for (pp = p1; pp <= p2; pp += 1)
      +
      203 for (rr = r1; rr <= r2; rr += 1)
      +
      204 w_dest += dataset[pp][p][rr]
      +
      205 nn += 1
      +
      206 endfor
      +
      207 endfor
      +
      208
      +
      209 if (sdev)
      +
      210 duplicate /free w_dest, w_squares
      +
      211 w_squares = 0
      +
      212 for (pp = p1; pp <= p2; pp += 1)
      +
      213 for (rr = r1; rr <= r2; rr += 1)
      +
      214 w_squares += dataset[pp][p][rr]^2
      +
      215 nn += 1
      +
      216 endfor
      +
      217 endfor
      +
      218 endif
      +
      219
      +
      220 if (avg)
      +
      221 w_dest /= nn
      +
      222 elseif (sdev)
      +
      223 w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      +
      224 endif
      +
      225
      +
      226 return w_dest
      +
      227end
      +
      +
      228
      +
      +
      232threadsafe function /wave ad_extract_rod_z(dataset, p1, p2, q1, q2, destname, [noavg, sdev])
      +
      233 wave dataset
      +
      234 variable p1, p2, q1, q2
      +
      235 // 0 <= p1 < p2 < dimsize(0), 0 <= q1 < q2 < dimsize(1)
      +
      236 string destname
      +
      237 variable noavg
      +
      238 variable sdev
      +
      239
      +
      240 if (ParamIsDefault(noavg))
      +
      241 noavg = 0
      +
      242 endif
      +
      243 if (ParamIsDefault(sdev))
      +
      244 sdev = 0
      +
      245 endif
      +
      246 variable avg = !noavg && !sdev
      +
      247
      +
      248 p1 = max(p1, 0)
      +
      249 p2 = min(p2, dimsize(dataset, 0) - 1)
      +
      250 q1 = max(q1, 0)
      +
      251 q2 = min(q2, dimsize(dataset, 1) - 1)
      +
      252
      +
      253 if (strlen(destname) > 0)
      +
      254 duplicate /r=[p1,p1][q1,q1][]/o dataset, $destname
      +
      255 wave w_dest = $destname
      +
      256 else
      +
      257 duplicate /r=[p1,p1][q1,q1][] /free dataset, w_dest
      +
      258 endif
      +
      259 redimension /n=(dimsize(w_dest, 2)) w_dest
      +
      260 setscale /p x dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      +
      261
      +
      262 w_dest = 0
      +
      263 variable pp, qq
      +
      264 variable nn = 0
      +
      265 for (pp = p1; pp <= p2; pp += 1)
      +
      266 for (qq = q1; qq <= q2; qq += 1)
      +
      267 w_dest += dataset[pp][qq][p]
      +
      268 nn += 1
      +
      269 endfor
      +
      270 endfor
      +
      271
      +
      272 if (sdev)
      +
      273 duplicate /free w_dest, w_squares
      +
      274 w_squares = 0
      +
      275 for (pp = p1; pp <= p2; pp += 1)
      +
      276 for (qq = q1; qq <= q2; qq += 1)
      +
      277 w_squares += dataset[pp][qq][p]^2
      +
      278 nn += 1
      +
      279 endfor
      +
      280 endfor
      +
      281 endif
      +
      282
      +
      283 if (avg)
      +
      284 w_dest /= nn
      +
      285 elseif (sdev)
      +
      286 w_dest = sqrt( (w_squares - w_dest^2 / nn) / (nn - 1) )
      +
      287 endif
      +
      288
      +
      289 return w_dest
      +
      290end
      +
      +
      291
      +
      +
      314threadsafe function /wave ad_extract_slab(dataset, x1, x2, y1, y2, z1, z2, destname, [noavg, pscale])
      +
      315 wave dataset
      +
      316 variable x1, x2, y1, y2, z1, z2
      +
      317 string destname
      +
      318 variable noavg
      +
      319 variable pscale
      +
      320
      +
      321 if (wavedims(dataset) != 3)
      +
      322 return $""
      +
      323 endif
      +
      324 if (ParamIsDefault(noavg))
      +
      325 noavg = 0
      +
      326 endif
      +
      327 if (ParamIsDefault(pscale))
      +
      328 pscale = 0
      +
      329 endif
      +
      330
      +
      331 variable p1, p2, q1, q2, r1, r2
      +
      332 if (pscale)
      +
      333 p1 = x1
      +
      334 p2 = x2
      +
      335 q1 = y1
      +
      336 q2 = y2
      +
      337 r1 = z1
      +
      338 r2 = z2
      +
      339 else
      +
      340 p1 = round((x1 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      +
      341 p2 = round((x2 - DimOffset(dataset, 0)) / DimDelta(dataset, 0))
      +
      342 q1 = round((y1 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      +
      343 q2 = round((y2 - DimOffset(dataset, 1)) / DimDelta(dataset, 1))
      +
      344 r1 = round((z1 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      +
      345 r2 = round((z2 - DimOffset(dataset, 2)) / DimDelta(dataset, 2))
      +
      346 endif
      +
      347
      +
      348 if ((numtype(p1) < 2) && (numtype(p2) < 2))
      +
      349 return ad_extract_slab_x(dataset, min(p1, p2), max(p1, p2), destname, noavg=noavg)
      +
      350 elseif ((numtype(q1) < 2) && (numtype(q2) < 2))
      +
      351 return ad_extract_slab_y(dataset, min(q1, q2), max(q1, q2), destname, noavg=noavg)
      +
      352 elseif ((numtype(r1) < 2) && (numtype(r2) < 2))
      +
      353 return ad_extract_slab_z(dataset, min(r1, r2), max(r1, r2), destname, noavg=noavg)
      +
      354 else
      +
      355 return $""
      +
      356 endif
      +
      357end
      +
      +
      358
      +
      +
      359threadsafe function /wave ad_extract_slab_x(dataset, p1, p2, destname, [noavg])
      +
      360 wave dataset
      +
      361 variable p1, p2
      +
      362 // x coordinate range (point scaling) to be integrated
      +
      363 // -inf <= p1 < p2 <= +inf
      +
      364 string destname // name of destination wave. to be created in current data folder. overrides existing.
      +
      365 // if empty, the function returns a free wave
      +
      366 variable noavg // zero or default = average, non-zero = sum
      +
      367
      +
      368 if (ParamIsDefault(noavg))
      +
      369 noavg = 0
      +
      370 endif
      +
      371 p1 = max(p1, 0)
      +
      372 p2 = min(p2, dimsize(dataset, 0) - 1)
      +
      373
      +
      374 if (strlen(destname) > 0)
      +
      375 duplicate /r=[p1,p1][][]/o dataset, $destname
      +
      376 wave w_dest = $destname
      +
      377 else
      +
      378 duplicate /r=[p1,p1][][] /free dataset, w_dest
      +
      379 endif
      +
      380 redimension /n=(dimsize(w_dest, 1), dimsize(w_dest, 2)) w_dest
      +
      381 setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      +
      382 setscale /p y dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      +
      383
      +
      384 w_dest = 0
      +
      385 variable pp
      +
      386 variable nn = 0
      +
      387 for (pp = p1; pp <= p2; pp += 1)
      +
      388 w_dest += dataset[pp][p][q]
      +
      389 nn += 1
      +
      390 endfor
      +
      391
      +
      392 if (noavg == 0)
      +
      393 w_dest /= nn
      +
      394 endif
      +
      395
      +
      396 return w_dest
      +
      397end
      +
      +
      398
      +
      +
      399threadsafe function /wave ad_extract_slab_y(dataset, q1, q2, destname, [noavg])
      +
      400 wave dataset
      +
      401 variable q1, q2
      +
      402 // y coordinate range (point scaling) to be integrated
      +
      403 // -inf <= q1 < q2 <= +inf
      +
      404 string destname // name of destination wave. to be created in current data folder. overrides existing.
      +
      405 // if empty, the function returns a free wave
      +
      406 variable noavg // zero or default = average, non-zero = sum
      +
      407
      +
      408 if (ParamIsDefault(noavg))
      +
      409 noavg = 0
      +
      410 endif
      +
      411 q1 = max(q1, 0)
      +
      412 q2 = min(q2, dimsize(dataset, 1) - 1)
      +
      413
      +
      414 if (strlen(destname) > 0)
      +
      415 duplicate /r=[][q1,q1][]/o dataset, $destname
      +
      416 wave w_dest = $destname
      +
      417 else
      +
      418 duplicate /r=[][q1,q1][] /free dataset, w_dest
      +
      419 endif
      +
      420 redimension /n=(dimsize(w_dest, 0), dimsize(w_dest, 2)) w_dest
      +
      421 setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      +
      422 setscale /p y dimoffset(dataset, 2), dimdelta(dataset, 2), waveunits(dataset, 2), w_dest
      +
      423
      +
      424 w_dest = 0
      +
      425 variable qq
      +
      426 variable nn = 0
      +
      427 for (qq = q1; qq <= q2; qq += 1)
      +
      428 w_dest += dataset[p][qq][q]
      +
      429 nn += 1
      +
      430 endfor
      +
      431
      +
      432 if (noavg == 0)
      +
      433 w_dest /= nn
      +
      434 endif
      +
      435
      +
      436 return w_dest
      +
      437end
      +
      +
      438
      +
      +
      439threadsafe function /wave ad_extract_slab_z(dataset, r1, r2, destname, [noavg])
      +
      440 wave dataset
      +
      441 variable r1, r2
      +
      442 // z coordinate range (point scaling) to be integrated
      +
      443 // -inf <= r1 < r2 <= +inf
      +
      444 string destname // name of destination wave. to be created in current data folder. overrides existing.
      +
      445 // if empty, the function returns a free wave
      +
      446 variable noavg // zero or default = average, non-zero = sum
      +
      447
      +
      448 if (ParamIsDefault(noavg))
      +
      449 noavg = 0
      +
      450 endif
      +
      451 r1 = max(r1, 0)
      +
      452 r2 = min(r2, dimsize(dataset, 2) - 1)
      +
      453
      +
      454 if (strlen(destname) > 0)
      +
      455 duplicate /r=[][][r1,r1]/o dataset, $destname
      +
      456 wave w_dest = $destname
      +
      457 else
      +
      458 duplicate /r=[][][r1,r1] /free dataset, w_dest
      +
      459 endif
      +
      460 redimension /n=(dimsize(w_dest, 0), dimsize(w_dest, 1)) w_dest
      +
      461 setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), w_dest
      +
      462 setscale /p y dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), w_dest
      +
      463
      +
      464 w_dest = 0
      +
      465 variable rr
      +
      466 variable nn = 0
      +
      467 for (rr = r1; rr <= r2; rr += 1)
      +
      468 w_dest += dataset[p][q][rr]
      +
      469 nn += 1
      +
      470 endfor
      +
      471
      +
      472 if (noavg == 0)
      +
      473 w_dest /= nn
      +
      474 endif
      +
      475
      +
      476 return w_dest
      +
      477end
      +
      +
      478
      +
      +
      481threadsafe function /wave ad_profile_x(dataset, q1, q2, destname, [noavg])
      +
      482 wave dataset
      +
      483 variable q1, q2 // -inf <= q1 < q2 <= +inf
      +
      484 // deprecated: q2 = -1 stands for dimsize(0) - 1
      +
      485 string destname // name of destination wave. to be created in current data folder. overrides existing.
      +
      486 // if empty, the function returns a free wave
      +
      487 variable noavg // zero or default = average, non-zero = sum
      +
      488
      +
      489 if (ParamIsDefault(noavg))
      +
      490 noavg = 0
      +
      491 endif
      +
      492
      +
      493 if (strlen(destname) > 0)
      +
      494 duplicate /r=[0,0][] /o dataset, $destname
      +
      495 wave w_dest = $destname
      +
      496 else
      +
      497 duplicate /r=[0,0][] /free dataset, w_dest
      +
      498 endif
      +
      499
      +
      500 return ad_profile_x_w(dataset, q1, q2, w_dest, noavg=noavg)
      +
      501end
      +
      +
      502
      +
      +
      505threadsafe function /wave ad_profile_x_w(dataset, q1, q2, destwave, [noavg])
      +
      506 wave dataset
      +
      507 variable q1, q2 // -inf <= q1 < q2 <= +inf
      +
      508 // deprecated: q2 = -1 stands for dimsize(0) - 1
      +
      509 wave destwave // existing destination wave
      +
      510 variable noavg // zero or default = average, non-zero = sum
      +
      511
      +
      512 if (ParamIsDefault(noavg))
      +
      513 noavg = 0
      +
      514 endif
      +
      515
      +
      516 redimension /n=(dimsize(dataset, 0)) destwave
      +
      517 setscale /p x dimoffset(dataset, 0), dimdelta(dataset, 0), waveunits(dataset, 0), destwave
      +
      518 setscale d 0, 0, waveunits(dataset, -1), destwave
      +
      519
      +
      520 q1 = max(q1, 0)
      +
      521 if (q2 < 0)
      +
      522 q2 = inf
      +
      523 endif
      +
      524 q2 = min(q2, dimsize(dataset, 1) - 1)
      +
      525
      +
      526 destwave = 0
      +
      527 variable qq
      +
      528 variable nn = 0
      +
      529 for (qq = q1; qq <= q2; qq += 1)
      +
      530 destwave += dataset[p][qq]
      +
      531 nn += 1
      +
      532 endfor
      +
      533
      +
      534 if (noavg == 0)
      +
      535 destwave /= nn
      +
      536 endif
      +
      537
      +
      538 return destwave
      +
      539end
      +
      +
      540
      +
      +
      543threadsafe function /wave ad_profile_y(dataset, p1, p2, destname, [noavg])
      +
      544 wave dataset
      +
      545 variable p1, p2 // -inf <= p1 < p2 < inf
      +
      546 // deprecated: p2 = -1 stands for dimsize(0) - 1
      +
      547 string destname // name of destination wave. to be created in current data folder. overrides existing.
      +
      548 // if empty, the function returns a free wave
      +
      549 variable noavg // zero or default = average, non-zero = sum
      +
      550
      +
      551 if (ParamIsDefault(noavg))
      +
      552 noavg = 0
      +
      553 endif
      +
      554
      +
      555 if (strlen(destname) > 0)
      +
      556 duplicate /r=[][0,0] /o dataset, $destname
      +
      557 wave w_dest = $destname
      +
      558 else
      +
      559 duplicate /r=[][0,0] /free dataset, w_dest
      +
      560 endif
      +
      561 MatrixTranspose w_dest
      +
      562
      +
      563 return ad_profile_y_w(dataset, p1, p2, w_dest, noavg=noavg)
      +
      564end
      +
      +
      565
      +
      +
      568threadsafe function /wave ad_profile_y_w(dataset, p1, p2, destwave, [noavg])
      +
      569 wave dataset
      +
      570 variable p1, p2 // -inf <= p1 < p2 < inf
      +
      571 // deprecated: p2 = -1 stands for dimsize(0) - 1
      +
      572 wave destwave // existing destination wave
      +
      573 variable noavg // zero or default = average, non-zero = sum
      +
      574
      +
      575 if (ParamIsDefault(noavg))
      +
      576 noavg = 0
      +
      577 endif
      +
      578
      +
      579 redimension /n=(dimsize(dataset, 1)) destwave
      +
      580 setscale /p x dimoffset(dataset, 1), dimdelta(dataset, 1), waveunits(dataset, 1), destwave
      +
      581 setscale d 0, 0, waveunits(dataset, -1), destwave
      +
      582
      +
      583 p1 = max(p1, 0)
      +
      584 if (p2 < 0)
      +
      585 p2 = inf
      +
      586 endif
      +
      587 p2 = min(p2, dimsize(dataset, 0) - 1)
      +
      588
      +
      589 destwave = 0
      +
      590 variable pp
      +
      591 variable nn = 0
      +
      592 for (pp = p1; pp <= p2; pp += 1)
      +
      593 destwave += dataset[pp][p]
      +
      594 nn += 1
      +
      595 endfor
      +
      596
      +
      597 if (noavg == 0)
      +
      598 destwave /= nn
      +
      599 endif
      +
      600
      +
      601 return destwave
      +
      602end
      +
      +
      603
      +
      +
      604threadsafe function calc_y_profile_mins(image)
      +
      605 // experimental
      +
      606 wave image
      +
      607
      +
      608 wave yminlocs = ad_profile_x(image, 0, 0, "ymins", noavg=1)
      +
      609 variable nx = dimsize(image, 0)
      +
      610 variable ix
      +
      611 for (ix = 0; ix < nx; ix += 1)
      +
      612 wave profile = ad_profile_y(image, ix, ix, "", noavg=1)
      +
      613 wavestats /q/m=1 profile
      +
      614 yminlocs[ix] = v_minloc
      +
      615 endfor
      +
      616end
      +
      +
      617
      +
      +
      622function ad_collect_multiscan_y(dataset, positions, destwave, [noavg])
      +
      623 wave dataset
      +
      624 wave positions
      +
      625 wave destwave
      +
      626 variable noavg
      +
      627
      +
      628 variable tol = (wavemax(positions) - wavemin(positions)) / numpnts(positions) / 100
      +
      629
      +
      630 duplicate /free positions, positions_sorted
      +
      631 sort positions_sorted, positions_sorted
      +
      632 duplicate /free positions_sorted, positions_diff
      +
      633 differentiate /p /meth=2 positions_sorted /d=positions_diff
      +
      634 positions_diff[0] = 1
      +
      635 extract /free positions_sorted, positions_unique, positions_diff > tol
      +
      636 variable n_unique = numpnts(positions_unique)
      +
      637 redimension /n=(dimsize(dataset, 0), n_unique) destwave
      +
      638
      +
      639 variable i
      +
      640 variable nx, ny
      +
      641 for (i = 0; i < n_unique; i += 1)
      +
      642 extract /free dataset, data_extract, abs(positions[q] - positions_unique[i]) < tol
      +
      643 nx = dimsize(dataset, 0)
      +
      644 ny = dimsize(data_extract, 0) / nx
      +
      645 redimension /n=(nx, ny) data_extract
      +
      646 wave profile = ad_profile_x(data_extract, -inf, inf, "", noavg=noavg)
      +
      647 destwave[][i] = profile[p]
      +
      648 endfor
      +
      649end
      +
      +
      ad_extract_slab_y
      threadsafe wave ad_extract_slab_y(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      Definition pearl-area-profiles.ipf:399
      +
      ad_extract_rod_z
      threadsafe wave ad_extract_rod_z(wave dataset, variable p1, variable p2, variable q1, variable q2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along Z dimension.
      Definition pearl-area-profiles.ipf:232
      +
      ad_extract_rod_y
      threadsafe wave ad_extract_rod_y(wave dataset, variable p1, variable p2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along Y dimension.
      Definition pearl-area-profiles.ipf:169
      +
      ad_collect_multiscan_y
      variable ad_collect_multiscan_y(wave dataset, wave positions, wave destwave, variable noavg=defaultValue)
      collect profiles from a multi-scan.
      Definition pearl-area-profiles.ipf:622
      +
      ad_extract_slab
      threadsafe wave ad_extract_slab(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
      2D cut through 3D dataset, integrate in normal dimension
      Definition pearl-area-profiles.ipf:314
      +
      ad_extract_slab_z
      threadsafe wave ad_extract_slab_z(wave dataset, variable r1, variable r2, string destname, variable noavg=defaultValue)
      Definition pearl-area-profiles.ipf:439
      +
      ad_extract_rod_x
      threadsafe wave ad_extract_rod_x(wave dataset, variable q1, variable q2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along X dimension.
      Definition pearl-area-profiles.ipf:107
      +
      ad_profile_y_w
      threadsafe wave ad_profile_y_w(wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition pearl-area-profiles.ipf:568
      +
      ad_extract_rod
      threadsafe wave ad_extract_rod(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable sdev=defaultValue, variable pscale=defaultValue)
      1D cut through 3D dataset, integrate in normal dimensions
      Definition pearl-area-profiles.ipf:55
      +
      ad_profile_x_w
      threadsafe wave ad_profile_x_w(wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition pearl-area-profiles.ipf:505
      +
      ad_profile_x
      threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, new destination wave.
      Definition pearl-area-profiles.ipf:481
      +
      calc_y_profile_mins
      threadsafe variable calc_y_profile_mins(wave image)
      Definition pearl-area-profiles.ipf:604
      +
      ad_profile_y
      threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along Y dimension, new destination wave.
      Definition pearl-area-profiles.ipf:543
      +
      ad_extract_slab_x
      threadsafe wave ad_extract_slab_x(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      Definition pearl-area-profiles.ipf:359
      -
      calc_y_profile_mins
      threadsafe variable calc_y_profile_mins(wave image)
      Definition: pearl-area-profiles.ipf:604
      -
      ad_profile_x
      threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, new destination wave.
      Definition: pearl-area-profiles.ipf:481
      -
      ad_profile_x_w
      threadsafe wave ad_profile_x_w(wave dataset, variable q1, variable q2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition: pearl-area-profiles.ipf:505
      -
      ad_profile_y
      threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      1D cut through 2D dataset along Y dimension, new destination wave.
      Definition: pearl-area-profiles.ipf:543
      -
      ad_extract_rod_x
      threadsafe wave ad_extract_rod_x(wave dataset, variable q1, variable q2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along X dimension.
      Definition: pearl-area-profiles.ipf:107
      -
      ad_extract_rod_z
      threadsafe wave ad_extract_rod_z(wave dataset, variable p1, variable p2, variable q1, variable q2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along Z dimension.
      Definition: pearl-area-profiles.ipf:232
      -
      ad_collect_multiscan_y
      variable ad_collect_multiscan_y(wave dataset, wave positions, wave destwave, variable noavg=defaultValue)
      collect profiles from a multi-scan.
      Definition: pearl-area-profiles.ipf:622
      -
      ad_extract_slab_z
      threadsafe wave ad_extract_slab_z(wave dataset, variable r1, variable r2, string destname, variable noavg=defaultValue)
      Definition: pearl-area-profiles.ipf:439
      -
      ad_extract_rod
      threadsafe wave ad_extract_rod(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable sdev=defaultValue, variable pscale=defaultValue)
      1D cut through 3D dataset, integrate in normal dimensions
      Definition: pearl-area-profiles.ipf:55
      -
      ad_profile_y_w
      threadsafe wave ad_profile_y_w(wave dataset, variable p1, variable p2, wave destwave, variable noavg=defaultValue)
      1D cut through 2D dataset along X dimension, existing destination wave.
      Definition: pearl-area-profiles.ipf:568
      -
      ad_extract_slab
      threadsafe wave ad_extract_slab(wave dataset, variable x1, variable x2, variable y1, variable y2, variable z1, variable z2, string destname, variable noavg=defaultValue, variable pscale=defaultValue)
      2D cut through 3D dataset, integrate in normal dimension
      Definition: pearl-area-profiles.ipf:314
      -
      ad_extract_slab_y
      threadsafe wave ad_extract_slab_y(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)
      Definition: pearl-area-profiles.ipf:399
      -
      ad_extract_slab_x
      threadsafe wave ad_extract_slab_x(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)
      Definition: pearl-area-profiles.ipf:359
      -
      ad_extract_rod_y
      threadsafe wave ad_extract_rod_y(wave dataset, variable p1, variable p2, variable r1, variable r2, string destname, variable noavg=defaultValue, variable sdev=defaultValue)
      1D cut through 3D dataset along Y dimension.
      Definition: pearl-area-profiles.ipf:169
      diff --git a/doc/html/pearl-arpes_8ipf.html b/doc/html/pearl-arpes_8ipf.html index ac9935e..e3603da 100644 --- a/doc/html/pearl-arpes_8ipf.html +++ b/doc/html/pearl-arpes_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-arpes.ipf File Reference @@ -23,10 +23,9 @@
      - - + @@ -35,21 +34,22 @@
      -
      PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
      +
      PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
      Igor procedures for the analysis of PEARL data
      - + +/* @license-end */ +
      @@ -63,7 +63,7 @@ $(function() {
      @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-arpes_8ipf.html',''); initResiza
      - +
      +
      +
      +
      +
      Loading...
      +
      Searching...
      +
      No Matches
      +
      +
      +
      Namespaces | Functions
      -
      -
      pearl-arpes.ipf File Reference
      +
      pearl-arpes.ipf File Reference
      @@ -104,21 +110,22 @@ $(document).ready(function(){initNavTree('pearl-arpes_8ipf.html',''); initResiza #include "pearl-anglescan-tracker"
      #include "pearl-scienta-preprocess"
      #include "pearl-elog"
      +#include "pearl-scilog"

      Go to the source code of this file.

      - - +

      +

      Namespaces

       PearlArpes
      namespace  PearlArpes
       data acquisition and analysis package for ARPES at PEARL.
       
      - - - + + - +

      +

      Functions

      static variable AfterCompiledHook ()
       initializes package data once when the procedure is first loaded More...
      static variable AfterCompiledHook ()
       initializes package data once when the procedure is first loaded
       
      variable UnloadPearlArpesPackage ()
      variable UnloadPearlArpesPackage ()
       

      Detailed Description

      @@ -129,7 +136,7 @@ Functions
    • on-line data acquisition functionality requires the EPICS XOP to be loaded
    -
    Author
    matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
    +
    Author
    matthias muntwiler, matth.nosp@m.ias..nosp@m.muntw.nosp@m.iler.nosp@m.@psi..nosp@m.ch
    Copyright
    2012-18 Paul Scherrer Institut
    Licensed under the Apache License, Version 2.0 (the "License");
    you may not use this file except in compliance with the License.
    @@ -137,8 +144,8 @@ Licensed under the Apache License, Version 2.0 (the "License");

    Definition in file pearl-arpes.ipf.

    Function Documentation

    - -

    ◆ AfterCompiledHook()

    + +

    ◆ AfterCompiledHook()

    @@ -162,12 +169,12 @@ Licensed under the Apache License, Version 2.0 (the "License");

    initializes package data once when the procedure is first loaded

    -

    Definition at line 78 of file pearl-arpes.ipf.

    +

    Definition at line 79 of file pearl-arpes.ipf.

    - -

    ◆ UnloadPearlArpesPackage()

    + +

    ◆ UnloadPearlArpesPackage()

    @@ -181,7 +188,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
    -

    Definition at line 85 of file pearl-arpes.ipf.

    +

    Definition at line 86 of file pearl-arpes.ipf.

    @@ -191,9 +198,7 @@ Licensed under the Apache License, Version 2.0 (the "License");
    diff --git a/doc/html/pearl-arpes_8ipf_source.html b/doc/html/pearl-arpes_8ipf_source.html index de166a8..ff4747b 100644 --- a/doc/html/pearl-arpes_8ipf_source.html +++ b/doc/html/pearl-arpes_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-arpes.ipf Source File @@ -23,10 +23,9 @@
    - - + @@ -35,22 +34,28 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ + +
    @@ -77,65 +82,74 @@ $(document).ready(function(){initNavTree('pearl-arpes_8ipf_source.html',''); ini
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    pearl-arpes.ipf
    +
    pearl-arpes.ipf
    -Go to the documentation of this file.
    1 #pragma TextEncoding = "UTF-8"
    -
    2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
    -
    3 #pragma IgorVersion = 6.1
    -
    4 #pragma ModuleName = PearlArpes
    -
    5 #pragma version = 1.05
    -
    6 #include "pearl-area-display" // 2D and 3D data visualization
    -
    7 #include "pearl-area-profiles" // data processing for multi-dimensional datasets
    -
    8 #include "pearl-area-import" // import data files generated by area detector software
    -
    9 #include "pearl-pshell-import"
    -
    10 #include "pearl-compat" // compatibility with igor 6
    -
    11 #include "pearl-data-explorer" // preview and import panel for PEARL data
    -
    12 #include "pearl-anglescan-process" // angle scan (XPD) processing functions
    -
    13 #include "pearl-anglescan-panel" // panel interface to angle scan processing
    -
    14 #include "pearl-anglescan-tracker" // live preview of hemispherical angle scan
    -
    15 #include "pearl-scienta-preprocess" // pre-processing functions for Scienta detector images
    -
    16 #include "pearl-elog"
    -
    17 #if exists("pvOpen")
    -
    18 #include "pearl-area-live" // live view of area detector
    -
    19 #include "pearl-epics" // EPICS access under Igor
    -
    20 #include "pearl-arpes-scans" // run ARPES scans under Igor
    -
    21 #include "pearl-sample-tracker" // live tracking and adjustment of sample position
    -
    22 #include "pearl-scienta-live"
    -
    23 #endif
    -
    24 
    -
    43 
    -
    49 
    -
    76 
    -
    78 static function AfterCompiledHook()
    -
    79 
    -
    80  dfref savefolder = GetDataFolderDFR()
    -
    81 
    -
    82  return 0
    -
    83 end
    -
    84 
    -
    85 function UnloadPearlArpesPackage()
    -
    86  execute /p/q/z "DELETEINCLUDE \"pearl-arpes\""
    -
    87  execute /p/q/z "COMPILEPROCEDURES "
    -
    88 end
    +Go to the documentation of this file.
    1#pragma TextEncoding = "UTF-8"
    +
    2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
    +
    3#pragma IgorVersion = 6.1
    +
    4#pragma ModuleName = PearlArpes
    +
    5#pragma version = 1.06
    +
    6#include "pearl-area-display" // 2D and 3D data visualization
    +
    7#include "pearl-area-profiles" // data processing for multi-dimensional datasets
    +
    8#include "pearl-area-import" // import data files generated by area detector software
    +
    9#include "pearl-pshell-import"
    +
    10#include "pearl-compat" // compatibility with igor 6
    +
    11#include "pearl-data-explorer" // preview and import panel for PEARL data
    +
    12#include "pearl-anglescan-process" // angle scan (XPD) processing functions
    +
    13#include "pearl-anglescan-panel" // panel interface to angle scan processing
    +
    14#include "pearl-anglescan-tracker" // live preview of hemispherical angle scan
    +
    15#include "pearl-scienta-preprocess" // pre-processing functions for Scienta detector images
    +
    16#include "pearl-elog"
    +
    17#include "pearl-scilog"
    +
    18#if exists("pvOpen")
    +
    19#include "pearl-area-live" // live view of area detector
    +
    20#include "pearl-epics" // EPICS access under Igor
    +
    21#include "pearl-arpes-scans" // run ARPES scans under Igor
    +
    22#include "pearl-sample-tracker" // live tracking and adjustment of sample position
    +
    23#include "pearl-scienta-live"
    +
    24#endif
    +
    25
    +
    44
    +
    50
    +
    77
    +
    +
    79static function AfterCompiledHook()
    +
    80
    +
    81 dfref savefolder = GetDataFolderDFR()
    +
    82
    +
    83 return 0
    +
    84end
    +
    +
    85
    +
    +
    86function UnloadPearlArpesPackage()
    +
    87 execute /p/q/z "DELETEINCLUDE \"pearl-arpes\""
    +
    88 execute /p/q/z "COMPILEPROCEDURES "
    +
    89end
    +
    +
    AfterCompiledHook
    static variable AfterCompiledHook()
    initializes package data once when the procedure is first loaded
    Definition pearl-arpes.ipf:79
    +
    UnloadPearlArpesPackage
    variable UnloadPearlArpesPackage()
    Definition pearl-arpes.ipf:86
    -
    AfterCompiledHook
    static variable AfterCompiledHook()
    initializes package data once when the procedure is first loaded
    Definition: pearl-arpes.ipf:78
    -
    UnloadPearlArpesPackage
    variable UnloadPearlArpesPackage()
    Definition: pearl-arpes.ipf:85
    diff --git a/doc/html/pearl-compat_8ipf.html b/doc/html/pearl-compat_8ipf.html index 0688377..f01ee6a 100644 --- a/doc/html/pearl-compat_8ipf.html +++ b/doc/html/pearl-compat_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-compat.ipf File Reference @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-compat_8ipf.html',''); initResiz
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Namespaces | Functions
    -
    -
    pearl-compat.ipf File Reference
    ARPES package
    +
    pearl-compat.ipf File Reference
    ARPES package
    @@ -96,15 +102,15 @@ $(document).ready(function(){initNavTree('pearl-compat_8ipf.html',''); initResiz

    Go to the source code of this file.

    - - +

    +

    Namespaces

     PearlCompat
    namespace  PearlCompat
     compatibility procedures for igor 8
     
    - - +

    +

    Functions

    string PearlCleanupName (string name)
    string PearlCleanupName (string name)
     

    Detailed Description

    @@ -117,8 +123,8 @@ Functions

    Definition in file pearl-compat.ipf.

    Function Documentation

    - -

    ◆ PearlCleanupName()

    + +

    ◆ PearlCleanupName()

    @@ -143,9 +149,7 @@ Functions diff --git a/doc/html/pearl-compat_8ipf_source.html b/doc/html/pearl-compat_8ipf_source.html index 37e5096..aa1b453 100644 --- a/doc/html/pearl-compat_8ipf_source.html +++ b/doc/html/pearl-compat_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-compat.ipf Source File @@ -23,10 +23,9 @@
    - - + @@ -35,22 +34,28 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ + +
    @@ -77,68 +82,74 @@ $(document).ready(function(){initNavTree('pearl-compat_8ipf_source.html',''); in
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    pearl-compat.ipf
    +
    pearl-compat.ipf
    -Go to the documentation of this file.
    1 #pragma TextEncoding = "UTF-8"
    -
    2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
    -
    3 #pragma IgorVersion = 6.1
    -
    4 #pragma ModuleName = PearlCompat
    -
    5 #pragma version = 1.01
    -
    6 
    -
    7 // copyright (c) 2019 Paul Scherrer Institut
    -
    8 //
    -
    9 // Licensed under the Apache License, Version 2.0 (the "License");
    -
    10 // you may not use this file except in compliance with the License.
    -
    11 // You may obtain a copy of the License at
    -
    12 // http:///www.apache.org/licenses/LICENSE-2.0
    -
    13 
    -
    26 
    -
    31 
    -
    32 
    -
    33 // Compatible CleanupName function
    -
    34 //
    -
    35 // Igor 8's CleanupName may return long object names (> 31 characters).
    -
    36 // This breaks compatibility with earlier Igor versions.
    -
    37 // Experiments that include waves, folders, windows etc. with long names
    -
    38 // cannot be loaded with an earlier version.
    -
    39 //
    -
    40 // This is a drop-in replacement function for CleanupName.
    -
    41 // In addition to the behaviour of CleanupName,
    -
    42 // this replacement ensures that names are limited to 31 characters.
    -
    43 //
    -
    44 // @param name object name to clean up
    -
    45 //
    -
    46 // @return (str) clean object name
    -
    47 //
    -
    48 function /s PearlCleanupName(name)
    -
    49  string name
    -
    50 
    -
    51 #if IgorVersion() >= 8.00
    -
    52  // note: this function is not threadsafe
    -
    53  return CleanupName(name, 0, 31)
    -
    54 #else
    -
    55  return CleanupName(name, 0)
    -
    56 #endif
    -
    57 
    -
    58 end
    +Go to the documentation of this file.
    1#pragma TextEncoding = "UTF-8"
    +
    2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
    +
    3#pragma IgorVersion = 6.1
    +
    4#pragma ModuleName = PearlCompat
    +
    5#pragma version = 1.01
    +
    6
    +
    7// copyright (c) 2019 Paul Scherrer Institut
    +
    8//
    +
    9// Licensed under the Apache License, Version 2.0 (the "License");
    +
    10// you may not use this file except in compliance with the License.
    +
    11// You may obtain a copy of the License at
    +
    12// http:///www.apache.org/licenses/LICENSE-2.0
    +
    13
    +
    26
    +
    31
    +
    32
    +
    33// Compatible CleanupName function
    +
    34//
    +
    35// Igor 8's CleanupName may return long object names (> 31 characters).
    +
    36// This breaks compatibility with earlier Igor versions.
    +
    37// Experiments that include waves, folders, windows etc. with long names
    +
    38// cannot be loaded with an earlier version.
    +
    39//
    +
    40// This is a drop-in replacement function for CleanupName.
    +
    41// In addition to the behaviour of CleanupName,
    +
    42// this replacement ensures that names are limited to 31 characters.
    +
    43//
    +
    44// @param name object name to clean up
    +
    45//
    +
    46// @return (str) clean object name
    +
    47//
    +
    +
    48function /s PearlCleanupName(name)
    +
    49 string name
    +
    50
    +
    51#if IgorVersion() >= 8.00
    +
    52 // note: this function is not threadsafe
    +
    53 return CleanupName(name, 0, 31)
    +
    54#else
    +
    55 return CleanupName(name, 0)
    +
    56#endif
    +
    57
    +
    58end
    +
    +
    PearlCleanupName
    string PearlCleanupName(string name)
    Definition pearl-compat.ipf:48
    -
    PearlCleanupName
    string PearlCleanupName(string name)
    Definition: pearl-compat.ipf:48
    diff --git a/doc/html/pearl-data-explorer_8ipf.html b/doc/html/pearl-data-explorer_8ipf.html index 3bab478..9d43f3c 100644 --- a/doc/html/pearl-data-explorer_8ipf.html +++ b/doc/html/pearl-data-explorer_8ipf.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-data-explorer.ipf File Reference @@ -23,10 +23,9 @@
    - - + @@ -35,21 +34,22 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ +
    @@ -63,7 +63,7 @@ $(function() {
    @@ -77,17 +77,23 @@ $(document).ready(function(){initNavTree('pearl-data-explorer_8ipf.html',''); in
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    Functions | Variables
    -
    -
    pearl-data-explorer.ipf File Reference
    +
    pearl-data-explorer.ipf File Reference
    #include <HierarchicalListWidget>
    @@ -99,181 +105,185 @@ $(document).ready(function(){initNavTree('pearl-data-explorer_8ipf.html',''); in

    Go to the source code of this file.

    - - - + + - + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + + - + - + - + - - - - + - - + + - - + + - - + + - - + + - - + + - + - - + + - + - + - - + + - - + + - + - - + + - + - - + + - + - + - - + + - + + - - - - + - + - - + + - + - + - - + + - + - + - + - - - - + + + + - + - + - + - + - + - - + + - + - - + + - + - + - + - + - - + + - - + + - - + + - - + + + + - - + + + + + + + + +

    +

    Functions

    variable pearl_data_explorer ()
     show the pearl data explorer window More...
    variable pearl_data_explorer ()
     show the pearl data explorer window
     
    static variable init_package ()
    static variable init_package ()
     
    static variable save_prefs ()
     save persistent package data to the preferences file. More...
    static variable save_prefs ()
     save persistent package data to the preferences file.
     
    static variable load_prefs ()
    static variable load_prefs ()
     
    static variable pearl_file_type (string filename)
     check whether a file can be imported by this module. More...
    static variable pearl_file_type (string filename)
     check whether a file can be imported by this module.
     
    static variable update_filepath ()
     update the file path after path change More...
    static variable update_filepath ()
     update the file path after path change
     
    static variable update_filelist ()
     read a list of PEARL files from the file system More...
    static variable update_filelist ()
     read a list of PEARL files from the file system
     
    static variable get_file_info (string filename)
     load the internal structure of a file More...
    static variable get_file_info (string filename)
     load the internal structure of a file
     
    static variable attributes_notebook (string filename)
     load attributes More...
    static variable attributes_notebook (string filename)
     load attributes
     
    static variable extract_attributes (dfref attr_df, dfref dest_df=defaultValue, wave attr_filter=defaultValue, variable include_datawaves=defaultValue, variable include_infowaves=defaultValue)
     extract summary from attribute waves More...
    static variable extract_attributes (dfref attr_df, dfref dest_df=defaultValue, wave attr_filter=defaultValue, variable include_datawaves=defaultValue, variable include_infowaves=defaultValue)
     extract summary from attribute waves
     
    variable test_attributes_notebook ()
    variable test_attributes_notebook ()
     
    static variable create_attributes_notebook (wave attr_names, wave attr_values, string title)
    static variable create_attributes_notebook (wave attr_names, wave attr_values, string title)
     
    static variable notebook_add_attributes (string notebook_name, wave attr_filter, wave attr_names, wave attr_values)
    static variable notebook_add_attributes (string notebook_name, wave attr_filter, wave attr_names, wave attr_values)
     
    static variable set_elog_attributes (dfref file_df, string filename=defaultValue, string graphname=defaultValue)
     send general metadata to ELOG panel - if available More...
     
    static variable preview_file (string filename)
    static variable preview_file (string filename)
     
    static wave preview_pshell_file (string filename)
     load the preview of a PShell HDF5 file. More...
    static wave preview_pshell_file (string filename)
     load the preview of a PShell HDF5 file.
     
    static wave preview_hdf_file (string filename)
     load the preview of a PEARL HDF5 file. More...
    static wave preview_hdf_file (string filename)
     load the preview of a PEARL HDF5 file.
     
    static wave preview_itx_file (string filename)
     load the preview of a general ITX file. More...
    static wave preview_itx_file (string filename)
     load the preview of a general ITX file.
     
    static variable extract_preview_image (wave data, wave preview)
     extract a preview image from a wave of arbitrary dimension More...
    static variable extract_preview_image (wave data, wave preview)
     extract a preview image from a wave of arbitrary dimension
     
    static variable preview_datafolder ()
     preview data in the current data folder More...
    static variable preview_datafolder ()
     preview data in the current data folder
     
    static variable preview_setscale_x (wave data, wave preview)
    static variable preview_setscale_x (wave data, wave preview)
     
    static variable display_dataset (dfref file_df, string dataset)
     displays the graph of a loaded dataset in its own window More...
    static variable display_dataset (dfref file_df, string dataset)
     displays the graph of a loaded dataset in its own window
     
    static string show_preview_graph (wave data, wave xdata=defaultValue)
    static string show_preview_graph (wave data, wave xdata=defaultValue)
     
    static string display_preview_trace (wave xtrace, wave ytrace)
    static string display_preview_trace (wave xtrace, wave ytrace)
     
    static variable load_selected_files (string options=defaultValue)
     load the selected files More...
    static variable load_selected_files (string options=defaultValue)
     load the selected files
     
    static variable load_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     load one file More...
    static variable load_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     load one file
     
    static variable prompt_hdf_options (string *options)
    static variable prompt_hdf_options (string *options)
     
    variable prompt_default_process (string *param)
     prototype for prompting for processing function parameters. More...
    variable prompt_default_process (string *param)
     prototype for prompting for processing function parameters.
     
    variable prompt_func_params (string func_name, string *func_param)
    variable prompt_func_params (string func_name, string *func_param)
     
    static dfr load_pshell_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     load a pshell file More...
    static dfr load_pshell_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     load a pshell file
     
    static dfr load_hdf_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
    static dfr load_hdf_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     
    static dfr load_itx_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
    static dfr load_itx_file (string filename, string options=defaultValue, dfref dest_df=defaultValue, variable quiet=defaultValue)
     
    string itx_suggest_foldername (string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
     suggest the name of a data folder based on an igor-text file name More...
    string itx_suggest_foldername (string filename, variable ignoredate=defaultValue, string sourcename=defaultValue, variable unique=defaultValue)
     suggest the name of a data folder based on an igor-text file name
     
    void PearlDataExplorer ()
    void PearlDataExplorer ()
     macro to create the data explorer panel
     
    static variable update_controls ()
     update controls state More...
     
    static variable bp_load_prefs (WMButtonAction *ba)
    static variable bp_load_prefs (WMButtonAction *ba)
     
    static variable bp_save_prefs (WMButtonAction *ba)
    static variable bp_save_prefs (WMButtonAction *ba)
     
    static string shorten_filepath (string long_path, variable max_len)
     shorten a file path for display More...
    static string shorten_filepath (string long_path, variable max_len)
     shorten a file path for display
     
    static variable bp_browse_filepath (WMButtonAction *ba)
    static variable bp_browse_filepath (WMButtonAction *ba)
     
    static variable bp_update_filelist (WMButtonAction *ba)
    static variable bp_update_filelist (WMButtonAction *ba)
     
    static string pm_reduction_values ()
     items for data reduction popup More...
    static string pm_reduction_values ()
     items for data reduction popup
     
    static variable pmp_reduction_func (WMPopupAction *pa)
    static variable pmp_reduction_func (WMPopupAction *pa)
     
    static variable bp_reduction_params (WMButtonAction *ba)
    static variable bp_reduction_params (WMButtonAction *ba)
     
    static variable bp_load_options (WMButtonAction *ba)
    static variable bp_load_options (WMButtonAction *ba)
     
    static variable selected_file (string file, variable do_preview)
     actions after a file has been selected More...
     
    static variable bp_file_next (WMButtonAction *ba)
    static variable selected_file (string file, variable do_preview, variable do_elog)
     actions after a file has been selected
     
    static variable bp_file_next (WMButtonAction *ba)
     
    static variable bp_file_prev (WMButtonAction *ba)
    static variable bp_file_prev (WMButtonAction *ba)
     
    static variable lbp_filelist (WMListboxAction *lba)
    static variable lbp_filelist (WMListboxAction *lba)
     
    static variable bp_attr_notebook (WMButtonAction *ba)
    static variable bp_attr_notebook (WMButtonAction *ba)
     
    static variable hlp_setup ()
    static variable hlp_setup ()
     
    static variable hl_contents_clear ()
    static variable hl_contents_clear ()
     
    static variable hl_contents_update (dfref file_df)
     populate the contents list box with the internal directory of a HDF5 file More...
    static variable hl_contents_update (dfref file_df)
     populate the contents list box with the internal directory of a HDF5 file
     
    static dfr get_pshell_info (string path_name, string file_name, dfref dest_df=defaultValue)
    static dfr get_pshell_info (string path_name, string file_name, dfref dest_df=defaultValue)
     
    static variable hl_add_objects (string parent_path, string objects)
     populate the contents list box with the given hierarchical paths More...
    static variable hl_add_objects (string parent_path, string objects)
     populate the contents list box with the given hierarchical paths
     
    static variable hl_expand_scans ()
    static variable hl_expand_scans ()
     
    static variable hl_default_selection ()
    static variable hl_default_selection ()
     
    static variable hlp_contents_open (string HostWindow, string ListControlName, string ContainerPath)
    static variable hlp_contents_open (string HostWindow, string ListControlName, string ContainerPath)
     
    static variable hlp_contents_selection (string HostWindow, string ListControlName, string SelectedItem, variable EventCode)
    static variable hlp_contents_selection (string HostWindow, string ListControlName, string SelectedItem, variable EventCode)
     
    static variable goto_dataset_folder (string filename, string datapath)
     open data folder corresponding to a file and data path More...
    static variable goto_dataset_folder (string filename, string datapath)
     open data folder corresponding to a file and data path
     
    static variable bp_goto_dataset (WMButtonAction *ba)
     "goto DF" button More...
    static variable bp_goto_dataset (WMButtonAction *ba)
     "goto DF" button
     
    static variable bp_display_dataset (WMButtonAction *ba)
     "display dataset" button More...
    static variable bp_display_dataset (WMButtonAction *ba)
     "display dataset" button
     
    static variable send_to_elog ()
     send file metadata to the ELOG panel More...
    static string get_default_elog_module ()
     
    static variable send_to_elog ()
     send file metadata to the ELOG panel
     
    static variable bp_elog (WMButtonAction *ba)
     
    string PearlDataExplorer_proto_get_panel_name ()
     
    string PearlDataExplorer_proto_set_panel_attributes (string windowname, string attributes, variable clear=defaultValue)
     
    string PearlDataExplorer_proto_set_panel_graphs (string windowname, string graphs)
     
    static variable set_elog_attributes (string elog_module, string panel_name, dfref file_df, string filename=defaultValue, string graphname=defaultValue)
     send general metadata to ELOG panel - if available
     
    - - + - + - + - + - +

    +

    Variables

     version
     version
     
    static const string package_path = "root:packages:pearl_explorer:"
    static const string package_path = "root:packages:pearl_explorer:"
     
    static const string ks_filematch_adh5 = "*.h5"
    static const string ks_filematch_adh5 = "*.h5"
     
    static const string ks_filematch_pshell = "psh*.h5"
    static const string ks_filematch_pshell = "psh*.h5"
     
    static const string ks_filematch_itx = "*.itx"
    static const string ks_filematch_itx = "*.itx"
     

    Function Documentation

    - -

    ◆ attributes_notebook()

    + +

    ◆ attributes_notebook()

    @@ -302,8 +312,8 @@ Variables
    - -

    ◆ bp_attr_notebook()

    + +

    ◆ bp_attr_notebook()

    @@ -326,12 +336,12 @@ Variables
    -

    Definition at line 1914 of file pearl-data-explorer.ipf.

    +

    Definition at line 1860 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_browse_filepath()

    + +

    ◆ bp_browse_filepath()

    @@ -354,12 +364,12 @@ Variables
    -

    Definition at line 1673 of file pearl-data-explorer.ipf.

    +

    Definition at line 1600 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_display_dataset()

    + +

    ◆ bp_display_dataset()

    @@ -384,40 +394,12 @@ Variables

    "display dataset" button

    -

    Definition at line 2263 of file pearl-data-explorer.ipf.

    +

    Definition at line 2209 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_elog()

    - -
    -
    - - - - - -
    - - - - - - - - -
    static variable bp_elog (WMButtonAction * ba)
    -     		-static
    -
    - -

    Definition at line 2351 of file pearl-data-explorer.ipf.

    - -
    -
    - -

    ◆ bp_file_next()

    + +

    ◆ bp_file_next()

    @@ -440,12 +422,12 @@ Variables
    -

    Definition at line 1809 of file pearl-data-explorer.ipf.

    +

    Definition at line 1746 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_file_prev()

    + +

    ◆ bp_file_prev()

    @@ -468,12 +450,12 @@ Variables
    -

    Definition at line 1840 of file pearl-data-explorer.ipf.

    +

    Definition at line 1780 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_goto_dataset()

    + +

    ◆ bp_goto_dataset()

    @@ -499,12 +481,12 @@ Variables

    "goto DF" button

    the button selects the data folder of the selected file and dataset. an error message is shown if the data folder doesn't exist.

    -

    Definition at line 2231 of file pearl-data-explorer.ipf.

    +

    Definition at line 2177 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_load_options()

    + +

    ◆ bp_load_options()

    @@ -527,12 +509,12 @@ Variables
    -

    Definition at line 1757 of file pearl-data-explorer.ipf.

    +

    Definition at line 1684 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_load_prefs()

    + +

    ◆ bp_load_prefs()

    @@ -555,12 +537,12 @@ Variables
    -

    Definition at line 1618 of file pearl-data-explorer.ipf.

    +

    Definition at line 1545 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_reduction_params()

    + +

    ◆ bp_reduction_params()

    @@ -583,12 +565,12 @@ Variables
    -

    Definition at line 1735 of file pearl-data-explorer.ipf.

    +

    Definition at line 1662 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_save_prefs()

    + +

    ◆ bp_save_prefs()

    @@ -611,12 +593,12 @@ Variables
    -

    Definition at line 1633 of file pearl-data-explorer.ipf.

    +

    Definition at line 1560 of file pearl-data-explorer.ipf.

    - -

    ◆ bp_update_filelist()

    + +

    ◆ bp_update_filelist()

    @@ -639,12 +621,12 @@ Variables
    -

    Definition at line 1696 of file pearl-data-explorer.ipf.

    +

    Definition at line 1623 of file pearl-data-explorer.ipf.

    - -

    ◆ create_attributes_notebook()

    + +

    ◆ create_attributes_notebook()

    @@ -687,8 +669,8 @@ Variables
    - -

    ◆ display_dataset()

    + +

    ◆ display_dataset()

    @@ -723,12 +705,12 @@ Variables

    displays the graph of a loaded dataset in its own window

    -

    Definition at line 897 of file pearl-data-explorer.ipf.

    +

    Definition at line 816 of file pearl-data-explorer.ipf.

    - -

    ◆ display_preview_trace()

    + +

    ◆ display_preview_trace()

    @@ -761,12 +743,12 @@ Variables
    -

    Definition at line 978 of file pearl-data-explorer.ipf.

    +

    Definition at line 897 of file pearl-data-explorer.ipf.

    - -

    ◆ extract_attributes()

    + +

    ◆ extract_attributes()

    @@ -842,8 +824,8 @@ Variables
    - -

    ◆ extract_preview_image()

    + +

    ◆ extract_preview_image()

    @@ -878,12 +860,40 @@ Variables

    extract a preview image from a wave of arbitrary dimension

    -

    Definition at line 784 of file pearl-data-explorer.ipf.

    +

    Definition at line 703 of file pearl-data-explorer.ipf.

    - -

    ◆ get_file_info()

    + +

    ◆ get_default_elog_module()

    + +
    +
    + + + + + +
    + + + + + + + +
    static string get_default_elog_module ()
    +     		+static
    +
    +
    + +

    Definition at line 2236 of file pearl-data-explorer.ipf.

    + +
    +
    + +

    ◆ get_file_info()

    @@ -918,8 +928,8 @@ Variables
    - -

    ◆ get_pshell_info()

    + +

    ◆ get_pshell_info()

    @@ -958,12 +968,12 @@ Variables
    -

    Definition at line 2001 of file pearl-data-explorer.ipf.

    +

    Definition at line 1947 of file pearl-data-explorer.ipf.

    - -

    ◆ goto_dataset_folder()

    + +

    ◆ goto_dataset_folder()

    @@ -1007,12 +1017,12 @@ Variables
    Returns
    0 if successful, -1 if the file type is unknown -2 if the data path can't be found in the tree.
    -

    Definition at line 2175 of file pearl-data-explorer.ipf.

    +

    Definition at line 2121 of file pearl-data-explorer.ipf.

    - -

    ◆ hl_add_objects()

    + +

    ◆ hl_add_objects()

    @@ -1048,12 +1058,12 @@ Variables

    populate the contents list box with the given hierarchical paths

    Returns
    the number of top-level objects
    -

    Definition at line 2029 of file pearl-data-explorer.ipf.

    +

    Definition at line 1975 of file pearl-data-explorer.ipf.

    - -

    ◆ hl_contents_clear()

    + +

    ◆ hl_contents_clear()

    @@ -1075,12 +1085,12 @@ Variables
    -

    Definition at line 1952 of file pearl-data-explorer.ipf.

    +

    Definition at line 1898 of file pearl-data-explorer.ipf.

    - -

    ◆ hl_contents_update()

    + +

    ◆ hl_contents_update()

    @@ -1106,12 +1116,12 @@ Variables

    populate the contents list box with the internal directory of a HDF5 file

    Returns
    the number of top-level objects
    -

    Definition at line 1966 of file pearl-data-explorer.ipf.

    +

    Definition at line 1912 of file pearl-data-explorer.ipf.

    - -

    ◆ hl_default_selection()

    + +

    ◆ hl_default_selection()

    @@ -1133,12 +1143,12 @@ Variables
    -

    Definition at line 2118 of file pearl-data-explorer.ipf.

    +

    Definition at line 2064 of file pearl-data-explorer.ipf.

    - -

    ◆ hl_expand_scans()

    + +

    ◆ hl_expand_scans()

    @@ -1160,12 +1170,12 @@ Variables
    -

    Definition at line 2089 of file pearl-data-explorer.ipf.

    +

    Definition at line 2035 of file pearl-data-explorer.ipf.

    - -

    ◆ hlp_contents_open()

    + +

    ◆ hlp_contents_open()

    @@ -1204,12 +1214,12 @@ Variables
    -

    Definition at line 2129 of file pearl-data-explorer.ipf.

    +

    Definition at line 2075 of file pearl-data-explorer.ipf.

    - -

    ◆ hlp_contents_selection()

    + +

    ◆ hlp_contents_selection()

    @@ -1254,12 +1264,12 @@ Variables
    -

    Definition at line 2139 of file pearl-data-explorer.ipf.

    +

    Definition at line 2085 of file pearl-data-explorer.ipf.

    - -

    ◆ hlp_setup()

    + +

    ◆ hlp_setup()

    @@ -1281,12 +1291,12 @@ Variables
    -

    Definition at line 1942 of file pearl-data-explorer.ipf.

    +

    Definition at line 1888 of file pearl-data-explorer.ipf.

    - -

    ◆ init_package()

    + +

    ◆ init_package()

    @@ -1312,8 +1322,8 @@ Variables
    - -

    ◆ itx_suggest_foldername()

    + +

    ◆ itx_suggest_foldername()

    @@ -1363,12 +1373,12 @@ Variables
    -

    Definition at line 1427 of file pearl-data-explorer.ipf.

    +

    Definition at line 1346 of file pearl-data-explorer.ipf.

    - -

    ◆ lbp_filelist()

    + +

    ◆ lbp_filelist()

    @@ -1391,12 +1401,12 @@ Variables
    -

    Definition at line 1871 of file pearl-data-explorer.ipf.

    +

    Definition at line 1814 of file pearl-data-explorer.ipf.

    - -

    ◆ load_file()

    + +

    ◆ load_file()

    @@ -1457,12 +1467,12 @@ Variables -

    Definition at line 1064 of file pearl-data-explorer.ipf.

    +

    Definition at line 983 of file pearl-data-explorer.ipf.

    - -

    ◆ load_hdf_file()

    + +

    ◆ load_hdf_file()

    @@ -1507,12 +1517,12 @@ Variables
    -

    Definition at line 1298 of file pearl-data-explorer.ipf.

    +

    Definition at line 1217 of file pearl-data-explorer.ipf.

    - -

    ◆ load_itx_file()

    + +

    ◆ load_itx_file()

    @@ -1557,12 +1567,12 @@ Variables
    -

    Definition at line 1358 of file pearl-data-explorer.ipf.

    +

    Definition at line 1277 of file pearl-data-explorer.ipf.

    - -

    ◆ load_prefs()

    + +

    ◆ load_prefs()

    @@ -1588,8 +1598,8 @@ Variables
    - -

    ◆ load_pshell_file()

    + +

    ◆ load_pshell_file()

    @@ -1664,12 +1674,12 @@ Variables
    Returns
    data folder reference of the loaded data. this is the folder which contains the scan sub-folders.
    -

    Definition at line 1188 of file pearl-data-explorer.ipf.

    +

    Definition at line 1107 of file pearl-data-explorer.ipf.

    - -

    ◆ load_selected_files()

    + +

    ◆ load_selected_files()

    @@ -1696,12 +1706,12 @@ Variables

    load the files that are selected in the data explorer panel. the files are loaded using the load_file() function.

    Note
    this function may change the current data folder!
    -

    Definition at line 1025 of file pearl-data-explorer.ipf.

    +

    Definition at line 944 of file pearl-data-explorer.ipf.

    - -

    ◆ notebook_add_attributes()

    + +

    ◆ notebook_add_attributes()

    @@ -1750,8 +1760,8 @@ Variables
    - -

    ◆ pearl_data_explorer()

    + +

    ◆ pearl_data_explorer()

    @@ -1772,8 +1782,8 @@ Variables
    - -

    ◆ pearl_file_type()

    + +

    ◆ pearl_file_type()

    @@ -1810,8 +1820,8 @@ Variables
    - -

    ◆ PearlDataExplorer()

    + +

    ◆ PearlDataExplorer()

    @@ -1825,12 +1835,101 @@ Variables
    -

    Definition at line 1478 of file pearl-data-explorer.ipf.

    +

    macro to create the data explorer panel

    +

    note: after editing the panel using the graphical editor, remove all automatically generated assignments from the lb_contents listbox. only the pos, size and keySelectCol properties should remain.

    +

    update controls state

    + +

    Definition at line 1403 of file pearl-data-explorer.ipf.

    - -

    ◆ pm_reduction_values()

    + +

    ◆ PearlDataExplorer_proto_get_panel_name()

    + +
    +
    + + + + + + + +
    string PearlDataExplorer_proto_get_panel_name ()
    +
    + +

    Definition at line 2319 of file pearl-data-explorer.ipf.

    + +
    +
    + +

    ◆ PearlDataExplorer_proto_set_panel_attributes()

    + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + +
    string PearlDataExplorer_proto_set_panel_attributes (string windowname,
    string attributes,
    variable clear = defaultValue 
    )
    +
    + +

    Definition at line 2323 of file pearl-data-explorer.ipf.

    + +
    +
    + +

    ◆ PearlDataExplorer_proto_set_panel_graphs()

    + +
    +
    + + + + + + + + + + + + + + + + + + +
    string PearlDataExplorer_proto_set_panel_graphs (string windowname,
    string graphs 
    )
    +
    + +

    Definition at line 2330 of file pearl-data-explorer.ipf.

    + +
    +
    + +

    ◆ pm_reduction_values()

    @@ -1854,12 +1953,12 @@ Variables

    items for data reduction popup

    -

    Definition at line 1712 of file pearl-data-explorer.ipf.

    +

    Definition at line 1639 of file pearl-data-explorer.ipf.

    - -

    ◆ pmp_reduction_func()

    + +

    ◆ pmp_reduction_func()

    @@ -1882,12 +1981,12 @@ Variables
    -

    Definition at line 1719 of file pearl-data-explorer.ipf.

    +

    Definition at line 1646 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_datafolder()

    + +

    ◆ preview_datafolder()

    @@ -1912,12 +2011,12 @@ Variables

    preview data in the current data folder

    used by preview_itx_file

    -

    Definition at line 826 of file pearl-data-explorer.ipf.

    +

    Definition at line 745 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_file()

    + +

    ◆ preview_file()

    @@ -1940,12 +2039,12 @@ Variables
    -

    Definition at line 629 of file pearl-data-explorer.ipf.

    +

    Definition at line 548 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_hdf_file()

    + +

    ◆ preview_hdf_file()

    @@ -1979,12 +2078,12 @@ Variables
    Returns
    wave reference of the preview image
    -

    Definition at line 717 of file pearl-data-explorer.ipf.

    +

    Definition at line 636 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_itx_file()

    + +

    ◆ preview_itx_file()

    @@ -2008,7 +2107,7 @@ Variables

    load the preview of a general ITX file.

    -

    the function is designed for PEARL OTF and EPICS scan data converted from MDA files. the function picks the first wave whose PV note matches one from the global string s_preview_pvs (see preview_datafolder and init_package).

    +

    the function is designed for PEARL OTF and EPICS scan data converted from MDA files. the function picks the first wave whose PV note matches one from the global string s_preview_pvs (see preview_datafolder and init_package).

    the preview is loaded to the preview_image wave in the pearl_explorer data folder. the s_file_info string is updated with information about the scan dimensions.

    Note
    : the ITX files should load their waves into the current data folder (a "free" data folder). some early versions of PEARL ITX data files created a data folder of their own. both ways are allowed, while the first one is preferred. on return, the current data folder must point to either the original free folder or the newly created one.
    Parameters
    @@ -2019,12 +2118,12 @@ Variables
    Returns
    wave reference of the preview trace. empty wave reference if the function failed.
    -

    Definition at line 762 of file pearl-data-explorer.ipf.

    +

    Definition at line 681 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_pshell_file()

    + +

    ◆ preview_pshell_file()

    @@ -2058,12 +2157,12 @@ Variables
    Returns
    wave reference of the preview image
    -

    Definition at line 671 of file pearl-data-explorer.ipf.

    +

    Definition at line 590 of file pearl-data-explorer.ipf.

    - -

    ◆ preview_setscale_x()

    + +

    ◆ preview_setscale_x()

    @@ -2096,12 +2195,12 @@ Variables
    -

    Definition at line 866 of file pearl-data-explorer.ipf.

    +

    Definition at line 785 of file pearl-data-explorer.ipf.

    - -

    ◆ prompt_default_process()

    + +

    ◆ prompt_default_process()

    @@ -2121,12 +2220,12 @@ Variables

    prompt functions must have the same name as the corresponding reduction function with the prefix "prompt_". be aware of the limited length of function names in Igor.

    this function is a prototype. it does nothing but returns OK.

    -

    Definition at line 1130 of file pearl-data-explorer.ipf.

    +

    Definition at line 1049 of file pearl-data-explorer.ipf.

    - -

    ◆ prompt_func_params()

    + +

    ◆ prompt_func_params()

    @@ -2151,12 +2250,12 @@ Variables
    -

    Definition at line 1136 of file pearl-data-explorer.ipf.

    +

    Definition at line 1055 of file pearl-data-explorer.ipf.

    - -

    ◆ prompt_hdf_options()

    + +

    ◆ prompt_hdf_options()

    @@ -2179,12 +2278,12 @@ Variables
    -

    Definition at line 1090 of file pearl-data-explorer.ipf.

    +

    Definition at line 1009 of file pearl-data-explorer.ipf.

    - -

    ◆ save_prefs()

    + +

    ◆ save_prefs()

    @@ -2213,8 +2312,8 @@ Variables
    - -

    ◆ selected_file()

    + +

    ◆ selected_file()

    @@ -2232,7 +2331,13 @@ Variables variable  - do_preview  + do_preview, + + + + + variable  + do_elog  @@ -2251,21 +2356,23 @@ Variables
    Parameters
    - - + + +
    filename of selected file
    do_previewenable/disable loading of preview data non-zero: load preview, zero: don't load preview
    filename of selected file
    do_previewenable/disable loading of preview data non-zero: load preview, zero: don't load preview
    do_elogenable/disable sending metadata to elog panel non-zero: send, zero: don't send
    -

    Definition at line 1791 of file pearl-data-explorer.ipf.

    +

    Definition at line 1724 of file pearl-data-explorer.ipf.

    - -

    ◆ send_to_elog()

    + +

    ◆ send_to_elog()

    @@ -2291,15 +2398,16 @@ Variables

    metadate is looked up in the following locations:

    1. data folder if it exists
    2. file info folder inside package folder
      3. -
    3. package folder if it contains preview data from the selected file (???)
      4. +
    4. package folder if it contains preview data from the selected file (???)
    +

    the data is sent to the first ElogPanel in the window list. call open_pearl_elog() to ensure a new default panel.

    -

    Definition at line 2295 of file pearl-data-explorer.ipf.

    +

    Definition at line 2262 of file pearl-data-explorer.ipf.

    - -

    ◆ set_elog_attributes()

    + +

    ◆ set_elog_attributes()

    @@ -2310,6 +2418,18 @@ Variables static variable set_elog_attributes ( + string  + elog_module, + + + + + string  + panel_name, + + + + dfref  file_df, @@ -2339,25 +2459,28 @@ Variables

    send general metadata to ELOG panel - if available

    +

    the function works with any electronic logbook that has the same interfaces as pearl-elog.ipf. the set_panel_attributes and set_panel_graphs functions are required.

    the following metatdata are sent. they must be present as strings in the specified data folder:

    - + - + - + - + - + - + - +
    ELOG parameter global string function argument
    ELOG parameter global string function argument
    file s_filepath filename
    file s_filepath filename
    graph attachment graphname
    graph attachment graphname
    author authors
    author authors
    p-group pgroup
    p-group pgroup
    project proposal
    project proposal
    sample sample
    sample sample
    Parameters
    + + @@ -2365,12 +2488,12 @@ Variables -

    Definition at line 568 of file pearl-data-explorer.ipf.

    +

    Definition at line 2365 of file pearl-data-explorer.ipf.

    - -

    ◆ shorten_filepath()

    + +

    ◆ shorten_filepath()

    @@ -2406,12 +2529,12 @@ Variables

    shorten a file path for display

    Note
    the result is not a valid path any more!
    -

    Definition at line 1651 of file pearl-data-explorer.ipf.

    +

    Definition at line 1578 of file pearl-data-explorer.ipf.

    - -

    ◆ show_preview_graph()

    + +

    ◆ show_preview_graph()

    @@ -2444,12 +2567,12 @@ Variables
    elog_moduleIgor module name of the electronic logbook, PearlElog or PearlSciLog.
    panel_nameWindow name of the logbook panel
    file_dfdata folder that contains the metadata.
    filenameoverride file path read from s_filepath global string variable. if neither is declared, the file name is reset to empty field.
    graphnameselect this graph window for attaching. default: do not change the selection.
    -

    Definition at line 925 of file pearl-data-explorer.ipf.

    +

    Definition at line 844 of file pearl-data-explorer.ipf.

    - -

    ◆ test_attributes_notebook()

    + +

    ◆ test_attributes_notebook()

    @@ -2467,37 +2590,8 @@ Variables
    - -

    ◆ update_controls()

    - -
    -
    - - - - - -
    - - - - - - - -
    static variable update_controls ()
    -     		-static
    -
    - -

    update controls state

    - -

    Definition at line 1557 of file pearl-data-explorer.ipf.

    - -
    -
    - -

    ◆ update_filelist()

    + +

    ◆ update_filelist()

    @@ -2526,8 +2620,8 @@ Variables
    - -

    ◆ update_filepath()

    + +

    ◆ update_filepath()

    @@ -2557,8 +2651,8 @@ Variables

    Variable Documentation

    - -

    ◆ ks_filematch_adh5

    + +

    ◆ ks_filematch_adh5

    @@ -2581,8 +2675,8 @@ Variables
    - -

    ◆ ks_filematch_itx

    + +

    ◆ ks_filematch_itx

    @@ -2605,8 +2699,8 @@ Variables
    - -

    ◆ ks_filematch_pshell

    + +

    ◆ ks_filematch_pshell

    @@ -2629,8 +2723,8 @@ Variables
    - -

    ◆ package_path

    + +

    ◆ package_path

    @@ -2653,8 +2747,8 @@ Variables
    - -

    ◆ version

    + +

    ◆ version

    @@ -2682,7 +2776,8 @@ Variables
    -
    static const string package_name = "pearl_explorer"
    +
    static const string package_name = "pearl_explorer"
    +
    package_name
    static const string package_name
    package name is used as data folder name
    Definition pearl-anglescan-panel.ipf:48

    Definition at line 6 of file pearl-data-explorer.ipf.

    @@ -2690,14 +2785,11 @@ Variables
    -
    package_name
    static const string package_name
    package name is used as data folder name
    Definition: pearl-anglescan-panel.ipf:48
    diff --git a/doc/html/pearl-data-explorer_8ipf.js b/doc/html/pearl-data-explorer_8ipf.js index 3a5e35c..b301522 100644 --- a/doc/html/pearl-data-explorer_8ipf.js +++ b/doc/html/pearl-data-explorer_8ipf.js @@ -4,7 +4,6 @@ var pearl_data_explorer_8ipf = [ "bp_attr_notebook", "pearl-data-explorer_8ipf.html#a4ef196f752bb5780ed4f4a588f9ebc81", null ], [ "bp_browse_filepath", "pearl-data-explorer_8ipf.html#a02a64144b7ed2c1bc230e265c55e81a1", null ], [ "bp_display_dataset", "pearl-data-explorer_8ipf.html#a0f7473343cf773af9efedee1a18ac5db", null ], - [ "bp_elog", "pearl-data-explorer_8ipf.html#a64bd3e5e68b30c94db00c58fa3be3f0d", null ], [ "bp_file_next", "pearl-data-explorer_8ipf.html#a9cefcdc49b2169e99c743b0a683ed3a6", null ], [ "bp_file_prev", "pearl-data-explorer_8ipf.html#a6aa44ff12b8530adbaaaf7405b1a68ba", null ], [ "bp_goto_dataset", "pearl-data-explorer_8ipf.html#a01e48e67a22dc56851447bd77abecbe1", null ], @@ -18,6 +17,7 @@ var pearl_data_explorer_8ipf = [ "display_preview_trace", "pearl-data-explorer_8ipf.html#a001074020ad32b290d390a450a389c69", null ], [ "extract_attributes", "pearl-data-explorer_8ipf.html#af4474f34647ec24f27f900226c6bb3bd", null ], [ "extract_preview_image", "pearl-data-explorer_8ipf.html#a0adc1b370fd3bf230b61b094b3c0accb", null ], + [ "get_default_elog_module", "pearl-data-explorer_8ipf.html#a9865cbba072e1b6e2d05e1e7d68a0a35", null ], [ "get_file_info", "pearl-data-explorer_8ipf.html#a66043ccbe2e8dda258e639cb7a231537", null ], [ "get_pshell_info", "pearl-data-explorer_8ipf.html#a28921b185d4e6fbe9a7a689757269f19", null ], [ "goto_dataset_folder", "pearl-data-explorer_8ipf.html#a896081071fffecdeff09ae4c9d6e84cb", null ], @@ -42,6 +42,9 @@ var pearl_data_explorer_8ipf = [ "pearl_data_explorer", "pearl-data-explorer_8ipf.html#ab7e3b3a0a901f7559ee9f5affb9a6fca", null ], [ "pearl_file_type", "pearl-data-explorer_8ipf.html#a8a923d7095071e7e6f99018379807732", null ], [ "PearlDataExplorer", "pearl-data-explorer_8ipf.html#a5b824531904179a94e0eaa3ffa09172e", null ], + [ "PearlDataExplorer_proto_get_panel_name", "pearl-data-explorer_8ipf.html#a00068ee0657abb41a9b96a4575e41bf3", null ], + [ "PearlDataExplorer_proto_set_panel_attributes", "pearl-data-explorer_8ipf.html#a01469ffeb3101084c04861acd93d704d", null ], + [ "PearlDataExplorer_proto_set_panel_graphs", "pearl-data-explorer_8ipf.html#a2fef024292bab2b7c8dea2adc19ce3b4", null ], [ "pm_reduction_values", "pearl-data-explorer_8ipf.html#a638a13044aede37cabe0c2c7a7c0cb06", null ], [ "pmp_reduction_func", "pearl-data-explorer_8ipf.html#a166273677188a66c25a84616c6f4baa9", null ], [ "preview_datafolder", "pearl-data-explorer_8ipf.html#a6e8eaf8c092f5da60bd425f9bd8bf178", null ], @@ -54,13 +57,12 @@ var pearl_data_explorer_8ipf = [ "prompt_func_params", "pearl-data-explorer_8ipf.html#a1d7f4ad59b81ecd84bb63cfabd9f24dc", null ], [ "prompt_hdf_options", "pearl-data-explorer_8ipf.html#a200e7ba052fbce4614fb4254701646ab", null ], [ "save_prefs", "pearl-data-explorer_8ipf.html#ac729557a307bddd2f2ad298199976c01", null ], - [ "selected_file", "pearl-data-explorer_8ipf.html#ac477142f1949dc32d86663f1de4384e5", null ], + [ "selected_file", "pearl-data-explorer_8ipf.html#ac9bd62937d6046e08be6d0a737a49a3e", null ], [ "send_to_elog", "pearl-data-explorer_8ipf.html#aac8d96d9ccaeddab1cb0f463b01616cb", null ], - [ "set_elog_attributes", "pearl-data-explorer_8ipf.html#a93c61109535e1644f5e53aabb895b48a", null ], + [ "set_elog_attributes", "pearl-data-explorer_8ipf.html#a1bcfbc48250274bcf3b8ca7a3a4b7c50", null ], [ "shorten_filepath", "pearl-data-explorer_8ipf.html#a00307dffd6f272f13acfe4dea99a81d4", null ], [ "show_preview_graph", "pearl-data-explorer_8ipf.html#a4db79d04c74beb1af71b72916f8f0362", null ], [ "test_attributes_notebook", "pearl-data-explorer_8ipf.html#a71f9c277d310c3f4e7739be69dad0ab5", null ], - [ "update_controls", "pearl-data-explorer_8ipf.html#a57e21bffee4cd64f2ea1efd9cc958bf1", null ], [ "update_filelist", "pearl-data-explorer_8ipf.html#a04cc0b9d5e3a649ba3514fcbf126eefe", null ], [ "update_filepath", "pearl-data-explorer_8ipf.html#ae02b954d90dc8f43c007cc3fb1a1ee16", null ], [ "ks_filematch_adh5", "pearl-data-explorer_8ipf.html#a181ccce237172811baf3de5a7a06370d", null ], diff --git a/doc/html/pearl-data-explorer_8ipf_source.html b/doc/html/pearl-data-explorer_8ipf_source.html index edb1b74..6606c9c 100644 --- a/doc/html/pearl-data-explorer_8ipf_source.html +++ b/doc/html/pearl-data-explorer_8ipf_source.html @@ -1,9 +1,9 @@ - + - - + + PEARL Procedures: pearl-data-explorer.ipf Source File @@ -23,10 +23,9 @@
    - - + @@ -35,22 +34,28 @@
    -
    PEARL Procedures -  rev-distro-3.0.0-0-gfa24916-dirty +
    +
    PEARL Procedures rev-distro-3.1.0-0-gea838b3-dirty
    Igor procedures for the analysis of PEARL data
    - + +/* @license-end */ + +
    @@ -77,2201 +82,2283 @@ $(document).ready(function(){initNavTree('pearl-data-explorer_8ipf_source.html',
    - +
    +
    +
    +
    +
    Loading...
    +
    Searching...
    +
    No Matches
    +
    +
    +
    -
    -
    pearl-data-explorer.ipf
    +
    pearl-data-explorer.ipf
    -Go to the documentation of this file.
    1 #pragma TextEncoding = "UTF-8"
    -
    2 #pragma rtGlobals=3 // Use modern global access method and strict wave access.
    -
    3 #pragma IgorVersion = 6.36
    -
    4 #pragma ModuleName = PearlDataExplorer
    -
    5 #pragma version = 2.1
    -
    6 #include <HierarchicalListWidget>, version >= 1.14
    -
    7 #include "pearl-area-import"
    -
    8 #include "pearl-area-profiles"
    -
    9 #include "pearl-area-display"
    -
    10 #include "pearl-compat"
    -
    11 #include "pearl-pshell-import"
    -
    12 
    -
    13 // copyright (c) 2013-22 Paul Scherrer Institut
    -
    14 //
    -
    15 // Licensed under the Apache License, Version 2.0 (the "License");
    -
    16 // you may not use this file except in compliance with the License.
    -
    17 // You may obtain a copy of the License at
    -
    18 // http:///www.apache.org/licenses/LICENSE-2.0
    -
    19 
    -
    29 
    -
    34 
    -
    35 static strconstant package_name = "pearl_explorer"
    -
    36 static strconstant package_path = "root:packages:pearl_explorer:"
    -
    37 
    -
    38 static strconstant ks_filematch_adh5 = "*.h5"
    -
    39 static strconstant ks_filematch_pshell = "psh*.h5"
    -
    40 static strconstant ks_filematch_itx = "*.itx"
    -
    41 
    -
    47 function pearl_data_explorer()
    -
    48  DoWindow /HIDE=0 /F PearlDataExplorer
    -
    49  if (v_flag == 0)
    -
    50  init_package()
    -
    51  load_prefs()
    -
    52  execute /q/z "PearlDataExplorer()"
    -
    53  MakeListIntoHierarchicalList("PearlDataExplorer", "lb_contents", "PearlDataExplorer#hlp_contents_open", selectionMode=WMHL_SelectionNonContinguous, pathSeparator="/")
    -
    54  WMHL_AddColumns("PearlDataExplorer", "lb_contents", 1)
    -
    55  WMHL_SetNotificationProc("PearlDataExplorer", "lb_contents", "PearlDataExplorer#hlp_contents_selection", WMHL_SetSelectNotificationProc)
    -
    56  ListBox lb_contents win=PearlDataExplorer, widths={6,60,20}
    -
    57  update_controls()
    -
    58  endif
    -
    59 end
    -
    60 
    -
    61 static function init_package()
    -
    62  dfref save_df = GetDataFolderDFR()
    -
    63  SetDataFolder root:
    -
    64  newdatafolder /o/s packages
    -
    65  newdatafolder /o/s $package_name
    -
    66  if (exists("v_InitPanelDone") == 2)
    -
    67  SetDataFolder save_df
    -
    68  return 0
    -
    69  endif
    -
    70 
    -
    71  make /o/n=0/t wtFiles
    -
    72  make /o/n=0/i wSelectedFiles,wSelectedDatasets
    -
    73  make /o/n=0/t wtDatasets
    -
    74  make /o/n=0/t wtPositioners,wtDetectors
    -
    75  make /o/n=0/i wSelectedPositioners,wSelectedDetectors
    -
    76 
    -
    77  make /o/n=(1,1) preview_image // preview 2D data
    -
    78  make /o/n=0 preview_trace // preview 1D data
    -
    79  make /o/n=0/t attr_names, attr_values, attr_filter, attr_filter_summary
    -
    80 
    -
    81  // persistent strings and variables. persistent = saved in preferences
    -
    82  string /g s_filepath = "" // directory path to be listed
    -
    83  string /g s_hdf_options = "" // recently used HDF5 load options
    -
    84  string /g s_reduction_params = "" // recently used reduction parameters
    -
    85  string /g s_preview_pvs = "" // semicolon-separated list of EPICS PVs to display in preview.
    -
    86  // the list items can contain wildcards for StringMatch
    -
    87  s_preview_pvs = "*OP:CURRENT*;*Stats*Total*;*KEITHLEY*READOUT;*CADC*"
    -
    88 
    -
    89  redimension /n=26 attr_filter_summary
    -
    90  attr_filter_summary[0] = "MonoEnergy"
    -
    91  attr_filter_summary[1] = "MonoGrating"
    -
    92  attr_filter_summary[2] = "ExitSlit"
    -
    93  attr_filter_summary[3] = "FrontendHSize"
    -
    94  attr_filter_summary[4] = "FrontendVSize"
    -
    95  attr_filter_summary[5] = "ManipulatorPhi"
    -
    96  attr_filter_summary[6] = "ManipulatorTheta"
    -
    97  attr_filter_summary[7] = "ManipulatorTilt"
    -
    98  attr_filter_summary[8] = "ManipulatorX"
    -
    99  attr_filter_summary[9] = "ManipulatorY"
    -
    100  attr_filter_summary[10] = "ManipulatorZ"
    -
    101  attr_filter_summary[11] = "PassEnergy"
    -
    102  attr_filter_summary[12] = "LensMode"
    -
    103  attr_filter_summary[13] = "ScientaDwellTime"
    -
    104  attr_filter_summary[14] = "ScientaCenterEnergy"
    -
    105  attr_filter_summary[15] = "ScientaChannelBegin"
    -
    106  attr_filter_summary[16] = "ScientaChannelEnd"
    -
    107  attr_filter_summary[17] = "ScientaSliceBegin"
    -
    108  attr_filter_summary[18] = "ScientaSliceEnd"
    -
    109  attr_filter_summary[19] = "ScientaNumChannels"
    -
    110  attr_filter_summary[20] = "StepSize"
    -
    111  attr_filter_summary[21] = "ScientaNumSlices"
    -
    112  attr_filter_summary[22] = "ManipulatorTempA"
    -
    113  attr_filter_summary[23] = "ManipulatorTempB"
    -
    114  attr_filter_summary[24] = "RefCurrent"
    -
    115  attr_filter_summary[25] = "SampleCurrent"
    -
    116 
    -
    117  // non-persistent strings and variables
    -
    118  string /g s_short_filepath = "" // abbreviated directory path
    -
    119  string /g s_selected_file = ""
    -
    120  string /g s_selected_dataset = ""
    -
    121  string /g s_preview_file = "" // file or folder name of the current preview
    -
    122  string /g s_preview_source = "" // data source, e.g. EPICS channel name, of the current preview
    -
    123  string /g s_profiles_graph = "" // window name of the current preview if the data is two-dimensional
    -
    124  string /g s_preview_trace_graph = "" // window name of the current preview if the data is one-dimensional
    -
    125  string /g s_preview_graph = "" // window name of the most recent preview graph
    -
    126  string /g s_file_info = "" // description of selected file
    -
    127  string /g s_result = "" // result of last operation
    -
    128 
    -
    129  variable/g v_InitPanelDone = 1
    -
    130 
    -
    131  SetDataFolder save_df
    -
    132 end
    -
    133 
    -
    139 static function save_prefs()
    -
    140  dfref save_df = GetDataFolderDFR()
    -
    141  dfref df = $package_path
    -
    142  if (DataFolderRefStatus(df) == 1)
    -
    143  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
    -
    144  fullPath += package_name
    -
    145  NewPath/O/C/Q tempPackagePrefsPath, fullPath
    -
    146  fullPath += ":preferences.pxp"
    -
    147  SetDataFolder df
    -
    148  string objects = "attr_filter;attr_filter_summary;s_filepath;s_hdf_options;s_reduction_params;s_preview_pvs"
    -
    149  SaveData /O /Q /J=objects fullPath
    -
    150  KillPath/Z tempPackagePrefsPath
    -
    151  endif
    -
    152  SetDataFolder save_df
    -
    153 end
    -
    154 
    -
    155 static function load_prefs()
    -
    156  // loads persistent package data from the preferences file
    -
    157  // the preferences file is an Igor packed experiment file in a special preferences folder
    -
    158  dfref save_df = GetDataFolderDFR()
    -
    159 
    -
    160  variable result = -1
    -
    161  setdatafolder root:
    -
    162  NewDataFolder /O/S packages
    -
    163  NewDataFolder /O/S $package_name
    -
    164  dfref package_df = GetDataFolderDFR()
    -
    165  string fullPath = SpecialDirPath("Packages", 0, 0, 0)
    -
    166  fullPath += package_name
    -
    167 
    -
    168  GetFileFolderInfo /Q /Z fullPath
    -
    169  if (V_Flag == 0) // Disk directory exists?
    -
    170  fullPath += ":preferences.pxp"
    -
    171  GetFileFolderInfo /Q /Z fullPath
    -
    172  if (V_Flag == 0) // Preference file exist?
    -
    173  LoadData /O /R /Q fullPath
    -
    174  result = 0
    -
    175  endif
    -
    176  endif
    -
    177 
    -
    178  if (result == 0)
    -
    179  svar /sdfr=package_df filepath = s_filepath
    -
    180  NewPath /O/Z pearl_explorer_filepath, filepath
    -
    181  update_filepath()
    -
    182  update_filelist()
    -
    183  endif
    -
    184 
    -
    185  SetDataFolder save_df
    -
    186  return result
    -
    187 end
    -
    188 
    -
    199 static function pearl_file_type(filename)
    -
    200  string filename
    -
    201 
    -
    202  if (StringMatch(filename, ks_filematch_pshell))
    -
    203  return 1
    -
    204  elseif (StringMatch(filename, ks_filematch_adh5))
    -
    205  return 2
    -
    206  elseif (StringMatch(filename, ks_filematch_itx))
    -
    207  return 3
    -
    208  else
    -
    209  return 0
    -
    210  endif
    -
    211 end
    -
    212 
    -
    218 static function update_filepath()
    -
    219  PathInfo /S pearl_explorer_filepath
    -
    220  svar filepath = $(package_path + "s_filepath")
    -
    221  svar shortpath = $(package_path + "s_short_filepath")
    -
    222  filepath = s_path
    -
    223  shortpath = shorten_filepath(filepath, 40)
    -
    224 end
    -
    225 
    -
    231 static function update_filelist()
    -
    232  dfref save_df = GetDataFolderDFR()
    -
    233 
    -
    234  string all_files
    -
    235  wave /t wtFiles = $(package_path + "wtFiles")
    -
    236  wave wSelectedFiles = $(package_path + "wSelectedFiles")
    -
    237  variable nn
    -
    238 
    -
    239  PathInfo pearl_explorer_filepath
    -
    240  if (v_flag == 1)
    -
    241  all_files = IndexedFile(pearl_explorer_filepath, -1, "????")
    -
    242  nn = ItemsInList(all_files)
    -
    243  else
    -
    244  all_files = ""
    -
    245  nn = 0
    -
    246  endif
    -
    247 
    -
    248  make /n=(nn) /t /free wtAllFiles
    -
    249  wtAllFiles = StringFromList(p, all_files)
    -
    250  Extract /o /t wtAllFiles, wtFiles, pearl_file_type(wtAllFiles[p])
    -
    251  Sort /A /R wtFiles, wtFiles
    -
    252 
    -
    253  redimension /n=(numpnts(wtFiles)) wSelectedFiles
    -
    254  wSelectedFiles = 0
    -
    255 
    -
    256  setdatafolder save_df
    -
    257 end
    -
    258 
    -
    259 // ====== metadata ======
    -
    260 
    -
    273 static function get_file_info(filename)
    -
    274  string filename
    -
    275 
    -
    276  dfref save_df = GetDataFolderDFR()
    -
    277  dfref package_df = $package_path
    -
    278 
    -
    279  variable ft = pearl_file_type(filename)
    -
    280  variable result = 0
    -
    281 
    -
    282  switch(ft)
    -
    283  case 1:
    -
    284  case 2:
    -
    285  dfref file_df = get_pshell_info("pearl_explorer_filepath", filename)
    -
    286  result = hl_contents_update(file_df)
    -
    287  result = result >= 3 ? 0 : -2
    -
    288  break
    -
    289  default:
    -
    290  hl_contents_clear()
    -
    291  dfref file_df = package_df:file_info
    -
    292  KillDataFolder /z file_df
    -
    293  result = -1
    -
    294  endswitch
    -
    295 
    -
    296  setdatafolder save_df
    -
    297  return result
    -
    298 end
    -
    299 
    -
    301 static function attributes_notebook(filename)
    -
    302  string filename
    -
    303 
    -
    304  dfref save_df = GetDataFolderDFR()
    -
    305  dfref temp_df = NewFreeDataFolder()
    -
    306 
    -
    307  load_file(filename, options="mode:load_diags", dest_df=temp_df, quiet=1)
    -
    308  svar /sdfr=temp_df /z s_loaded_datasets
    -
    309  string scan
    -
    310  dfref scan_df
    -
    311  if (SVAR_Exists(s_loaded_datasets) && (strlen(s_loaded_datasets) >= 4))
    -
    312  scan = StringFromList(0, psh5_extract_scan_paths(s_loaded_datasets), ";")
    -
    313  scan_df = psh5_dataset_to_folder(temp_df, scan)
    -
    314  else
    -
    315  scan_df = temp_df
    -
    316  endif
    -
    317 
    -
    318  dfref attr_df = ps_find_attr_folder(scan_df)
    -
    319  if (DataFolderRefStatus(attr_df))
    -
    320  extract_attributes(attr_df, dest_df=temp_df)
    -
    321  wave /t /sdfr=temp_df /z attr_names
    -
    322  wave /t /sdfr=temp_df /z attr_values
    -
    323  if (WaveExists(attr_names) && WaveExists(attr_values))
    -
    324  create_attributes_notebook(attr_names, attr_values, filename)
    -
    325  endif
    -
    326  endif
    -
    327 
    -
    328  setdatafolder save_df
    -
    329 end
    -
    330 
    -
    347 static function extract_attributes(attr_df, [dest_df, attr_filter, include_datawaves, include_infowaves])
    -
    348  dfref attr_df
    -
    349  dfref dest_df
    -
    350  wave /t attr_filter
    -
    351  variable include_datawaves
    -
    352  variable include_infowaves
    -
    353 
    -
    354  dfref save_df = GetDataFolderDFR()
    -
    355  dfref package_df = $package_path
    -
    356 
    -
    357  if (ParamIsDefault(dest_df))
    -
    358  dest_df = GetDataFolderDFR()
    -
    359  endif
    -
    360  if (ParamIsDefault(attr_filter) || !WaveExists(attr_filter))
    -
    361  wave /t /sdfr=package_df /z attr_filter
    -
    362  endif
    -
    363  if (ParamIsDefault(include_datawaves))
    -
    364  include_datawaves = 1
    -
    365  endif
    -
    366  if (ParamIsDefault(include_infowaves))
    -
    367  include_infowaves = 1
    -
    368  endif
    -
    369 
    -
    370  setdatafolder dest_df
    -
    371  wave /t /z attr_names, attr_values
    -
    372  if (!WaveExists(attr_names) || !WaveExists(attr_values))
    -
    373  make /n=(1) /o /t attr_names, attr_values
    -
    374  endif
    -
    375  attr_names = ""
    -
    376  attr_values = ""
    -
    377 
    -
    378  setdatafolder attr_df
    -
    379  wave /t /z IN
    -
    380  wave /t /z ID
    -
    381  wave /t /z IV
    -
    382  wave /t /z IU
    -
    383 
    -
    384  // compile list of attributes
    -
    385  variable nattr // destination attributes
    -
    386  variable iattr
    -
    387  variable ninfo // info wave elements
    -
    388  variable iinfo
    -
    389  variable nw // attribute waves
    -
    390  variable iw
    -
    391  string sw
    -
    392  string ss
    -
    393 
    -
    394  if (WaveExists(IN) && include_infowaves)
    -
    395  ninfo = numpnts(IN)
    -
    396  else
    -
    397  ninfo = 0
    -
    398  endif
    -
    399  if (include_datawaves)
    -
    400  string waves = WaveList("*", ";", "")
    -
    401  string exceptions = "ID;IN;IU;IV"
    -
    402  waves = RemoveFromList(exceptions, waves)
    -
    403  nw = ItemsInList(waves, ";")
    -
    404  else
    -
    405  nw = 0
    -
    406  endif
    -
    407 
    -
    408  if (WaveExists(attr_filter) && (numpnts(attr_filter) >= 1))
    -
    409  nattr = numpnts(attr_filter)
    -
    410  redimension /n=(nattr) attr_names
    -
    411  attr_names = attr_filter
    -
    412  else
    -
    413  if(ninfo > 0)
    -
    414  redimension /n=(ninfo) attr_names
    -
    415  attr_names = SelectString(strlen(ID[p]) >= 0, IN[p], ID[p]) // use ID unless empty
    -
    416  endif
    -
    417 
    -
    418  nattr = ninfo + nw
    -
    419  iattr = ninfo
    -
    420  redimension /n=(nattr) attr_names
    -
    421  for (iw = 0; iw < nw; iw +=1 )
    -
    422  sw = StringFromList(iw, waves, ";")
    -
    423  ss = StringByKey("PV", note($sw), "=", "\r")
    -
    424  FindValue /text=sw attr_names
    -
    425  if ((v_value < 0) && (strlen(ss) >= 0))
    -
    426  attr_names[iattr] = sw
    -
    427  iattr += 1
    -
    428  endif
    -
    429  endfor
    -
    430  nattr = iattr
    -
    431  endif
    -
    432  redimension /n=(nattr) attr_names, attr_values
    -
    433  sort attr_names, attr_names
    -
    434 
    -
    435  // look up attribute values
    -
    436  for (iattr = 0; iattr < nattr; iattr += 1)
    -
    437  sw = attr_names[iattr]
    -
    438  // try info waves
    -
    439  if (ninfo > 0)
    -
    440  FindValue /text=sw ID
    -
    441  if (v_value >= 0)
    -
    442  attr_values[iattr] = IV[v_value]
    -
    443  endif
    -
    444  FindValue /text=sw IN
    -
    445  if (v_value >= 0)
    -
    446  attr_values[iattr] = IV[v_value]
    -
    447  endif
    -
    448  endif
    -
    449 
    -
    450  // override from attribute wave if existent
    -
    451  if (nw > 0)
    -
    452  switch (WaveType($sw, 1))
    -
    453  case 1: // numeric
    -
    454  wave /z w = $sw
    -
    455  if (WaveExists(w) && (numpnts(w) >= 1))
    -
    456  sprintf ss, "%g", w[0]
    -
    457  attr_values[iattr] = ss
    -
    458  endif
    -
    459  break
    -
    460  case 2: // text
    -
    461  wave /t/z wt = $sw
    -
    462  if (WaveExists(wt) && (numpnts(wt) >= 1))
    -
    463  attr_values[iattr] = wt[0]
    -
    464  endif
    -
    465  break
    -
    466  endswitch
    -
    467  endif
    -
    468  endfor
    -
    469 
    -
    470  setdatafolder save_df
    -
    471 end
    -
    472 
    -
    473 function test_attributes_notebook()
    -
    474  dfref df = GetDataFolderDFR()
    -
    475  wave /t /sdfr=df attr_names
    -
    476  wave /t /sdfr=df attr_values
    -
    477  create_attributes_notebook(attr_names, attr_values, GetDataFolder(0))
    -
    478 end
    -
    479 
    -
    480 static function create_attributes_notebook(attr_names, attr_values, title)
    -
    481  wave /t attr_names
    -
    482  wave /t attr_values
    -
    483  string title
    -
    484 
    -
    485  dfref save_df = GetDataFolderDFR()
    -
    486  setdatafolder $package_path
    -
    487  wave /t/z attr_filter, attr_filter_summary
    -
    488 
    -
    489  string name = PearlCleanupName("nb_" + title[0,27])
    -
    490  if (WinType(name) == 5)
    -
    491  Notebook $name selection={startOfFile, endOfFile}
    -
    492  Notebook $name text=""
    -
    493  else
    -
    494  NewNotebook /F=1 /K=1 /N=$name as title
    -
    495  GetWindow $name wsize
    -
    496  v_right = v_left + 260
    -
    497  v_bottom = v_top + 360
    -
    498  MoveWindow /W=$name v_left, v_top, v_right, v_bottom
    -
    499  Notebook $name tabs={2*72}
    -
    500  endif
    -
    501 
    -
    502  // summary
    -
    503  if (WaveExists(attr_filter_summary) && (numpnts(attr_filter_summary) >= 1))
    -
    504  notebook $name fStyle=1, text="Summary\r\r"
    -
    505  notebook $name fStyle=0
    -
    506  notebook_add_attributes(name, attr_filter_summary, attr_names, attr_values)
    -
    507  notebook $name text="\r"
    -
    508  endif
    -
    509 
    -
    510  // all attributes
    -
    511  notebook $name fStyle=1, text="All Attributes\r\r"
    -
    512  notebook $name fStyle=0
    -
    513  notebook_add_attributes(name, $"", attr_names, attr_values)
    -
    514  notebook $name selection={startOfFile,startOfFile}, findText={"",1}
    -
    515 
    -
    516  setdatafolder save_df
    -
    517 end
    -
    518 
    -
    519 static function notebook_add_attributes(notebook_name, attr_filter, attr_names, attr_values)
    -
    520  string notebook_name
    -
    521  wave /t /z attr_filter
    -
    522  wave /t attr_names
    -
    523  wave /t attr_values
    -
    524 
    -
    525  variable nw = numpnts(attr_names)
    -
    526  variable iw
    -
    527  string sw
    -
    528  string ss
    -
    529 
    -
    530  variable do_filter = WaveExists(attr_filter)
    -
    531 
    -
    532  for (iw = 0; iw < nw; iw += 1)
    -
    533  if (do_filter)
    -
    534  sw = attr_names[iw]
    -
    535  FindValue /text=sw attr_filter
    -
    536  else
    -
    537  v_value = 0
    -
    538  endif
    -
    539  if (v_value >= 0)
    -
    540  sprintf ss, "%s\t%s\r", attr_names[iw], attr_values[iw]
    -
    541  notebook $notebook_name text=ss
    -
    542  endif
    -
    543  endfor
    -
    544 end
    -
    545 
    -
    568 static function set_elog_attributes(file_df, [filename, graphname])
    -
    569  dfref file_df
    -
    570  string filename
    -
    571  string graphname
    -
    572 
    -
    573  if (ParamIsDefault(filename))
    -
    574  svar /sdfr=file_df /z loaded_file=s_filepath
    -
    575  if (svar_Exists(loaded_file))
    -
    576  filename = loaded_file
    -
    577  else
    -
    578  filename = ""
    -
    579  endif
    -
    580  endif
    -
    581 
    -
    582  if (ParamIsDefault(graphname))
    -
    583  graphname = ""
    -
    584  endif
    -
    585 
    -
    586  string cmd
    -
    587 
    -
    588  if (exists("PearlElog#set_panel_attributes") == 6)
    -
    589  sprintf cmd, "PearlElog#set_panel_attributes(\"\", \"File=%s\")", ParseFilePath(0, filename, ":", 1, 0)
    -
    590  execute /Q/Z cmd
    -
    591  if ((strlen(graphname) > 0) && (WinType(graphname) == 1))
    -
    592  sprintf cmd, "PearlElog#set_panel_graphs(\"\", \"%s\")", graphname
    -
    593  execute /Q/Z cmd
    -
    594  endif
    -
    595  svar /sdfr=file_df /z authors
    -
    596  if (svar_Exists(authors))
    -
    597  if (strlen(authors)>=1)
    -
    598  sprintf cmd, "PearlElog#set_panel_attributes(\"\", \"author=%s\")", authors
    -
    599  execute /Q/Z cmd
    -
    600  endif
    -
    601  endif
    -
    602  svar /sdfr=file_df /z pgroup
    -
    603  if (svar_Exists(pgroup))
    -
    604  if (strlen(pgroup)>=1)
    -
    605  sprintf cmd, "PearlElog#set_panel_attributes(\"\", \"p-group=%s\")", pgroup
    -
    606  execute /Q/Z cmd
    -
    607  endif
    -
    608  endif
    -
    609  svar /sdfr=file_df /z proposal
    -
    610  if (svar_Exists(proposal))
    -
    611  if (strlen(proposal)>=1)
    -
    612  sprintf cmd, "PearlElog#set_panel_attributes(\"\", \"project=%s\")", proposal
    -
    613  execute /Q/Z cmd
    -
    614  endif
    -
    615  endif
    -
    616  svar /sdfr=file_df /z proposer
    -
    617  svar /sdfr=file_df /z sample
    -
    618  if (svar_Exists(sample))
    -
    619  if (strlen(sample)>=1)
    -
    620  sprintf cmd, "PearlElog#set_panel_attributes(\"\", \"sample=%s\")", sample
    -
    621  execute /Q/Z cmd
    -
    622  endif
    -
    623  endif
    -
    624  endif
    -
    625 end
    -
    626 
    -
    627 // ====== preview ======
    -
    628 
    -
    629 static function preview_file(filename)
    -
    630  string filename
    -
    631 
    -
    632  dfref save_df = GetDataFolderDFR()
    -
    633  dfref preview_df = $package_path
    -
    634 
    -
    635  killStrings /z authors, pgroup, proposal, proposer, sample
    -
    636 
    -
    637  variable ft = pearl_file_type(filename)
    -
    638  switch(ft)
    -
    639  case 1:
    -
    640  wave /z image = preview_pshell_file(filename)
    -
    641  break
    -
    642  case 2:
    -
    643  wave /z image = preview_hdf_file(filename)
    -
    644  break
    -
    645  case 3:
    -
    646  wave /z image = preview_itx_file(filename)
    -
    647  break
    -
    648  default:
    -
    649  wave /z image = $""
    -
    650  endswitch
    -
    651 
    -
    652  if (WaveExists(image))
    -
    653  show_preview_graph(image)
    -
    654  endif
    -
    655 
    -
    656  setdatafolder save_df
    -
    657  return 0
    -
    658 end
    -
    659 
    -
    671 static function /wave preview_pshell_file(filename)
    -
    672  string filename
    -
    673 
    -
    674  dfref save_df = GetDataFolderDFR()
    -
    675 
    -
    676  setdatafolder $package_path
    -
    677  dfref preview_df = GetDataFolderDFR()
    -
    678  svar s_preview_file
    -
    679  svar s_preview_source
    -
    680  svar /z s_file_info
    -
    681  if (! svar_exists(s_file_info))
    -
    682  string /g s_file_info
    -
    683  endif
    -
    684 
    -
    685  dfref temp_df = NewFreeDataFolder()
    -
    686  dfref file_df = psh5_preview("pearl_explorer_filepath", filename, dest_df=temp_df)
    -
    687  svar /z /sdfr=temp_df dataname=s_preview_wave
    -
    688 
    -
    689  s_preview_file = filename
    -
    690  s_preview_source = ""
    -
    691 
    -
    692  wave /z /sdfr=temp_df data = $dataname
    -
    693  if (waveexists(data))
    -
    694  duplicate /o data, preview_df:preview_image
    -
    695  else
    -
    696  print "no data found in file " + filename
    -
    697  endif
    -
    698 
    -
    699  s_file_info = ""
    -
    700 
    -
    701  setdatafolder save_df
    -
    702  wave /z /sdfr=preview_df preview_image
    -
    703  return preview_image
    -
    704 end
    -
    705 
    -
    717 static function /wave preview_hdf_file(filename)
    -
    718  string filename
    -
    719 
    -
    720  dfref save_df = GetDataFolderDFR()
    -
    721  setdatafolder $package_path
    -
    722  svar s_preview_file
    -
    723  svar s_preview_source
    -
    724  adh5_load_preview("preview_image", "pearl_explorer_filepath", filename)
    -
    725  s_preview_file = filename
    -
    726  s_preview_source = ""
    -
    727  wave /z preview_image
    -
    728 
    -
    729  svar /z s_file_info
    -
    730  if (! svar_exists(s_file_info))
    -
    731  string /g s_file_info
    -
    732  endif
    -
    733  if (strlen(s_preview_file) > 0)
    -
    734  s_file_info = adh5_load_info("pearl_explorer_filepath", filename)
    -
    735  else
    -
    736  s_file_info = ""
    -
    737  endif
    -
    738 
    -
    739  setdatafolder save_df
    -
    740  return preview_image
    -
    741 end
    -
    742 
    -
    762 static function /wave preview_itx_file(filename)
    -
    763  string filename
    -
    764 
    -
    765  dfref save_df = GetDataFolderDFR()
    -
    766  setdatafolder $package_path
    -
    767  svar s_preview_file
    -
    768  svar s_preview_source
    -
    769  wave preview_image
    -
    770 
    -
    771  dfref data_df = newfreedatafolder()
    -
    772  setdatafolder data_df
    -
    773  LoadWave /t/p=pearl_explorer_filepath/q filename
    -
    774  s_preview_file = s_filename
    -
    775  s_preview_source = ""
    -
    776 
    -
    777  preview_datafolder()
    -
    778 
    -
    779  setdatafolder save_df
    -
    780  return preview_image
    -
    781 end
    -
    782 
    -
    784 static function extract_preview_image(data, preview)
    -
    785  wave data
    -
    786  wave preview
    -
    787 
    -
    788  variable z1, z2
    -
    789 
    -
    790  // extract image
    -
    791  switch (WaveDims(data))
    -
    792  case 1:
    -
    793  redimension /n=(numpnts(data)) preview
    -
    794  preview = data[p]
    -
    795  break
    -
    796  case 2:
    -
    797  redimension /n=(dimsize(data, 0), dimsize(data, 1)) preview
    -
    798  preview = data
    -
    799  break
    -
    800  case 3:
    -
    801  redimension /n=(dimsize(data, 0), dimsize(data, 1)) preview
    -
    802  z1 = floor(DimSize(data, 2) / 2)
    -
    803  z2 = z1
    -
    804  wave slab = ad_extract_slab(data, nan, nan, nan, nan, z1, z2, "", pscale=1)
    -
    805  preview = slab
    -
    806  break
    -
    807  case 4:
    -
    808  // not implemented
    -
    809  endswitch
    -
    810 
    -
    811  switch (WaveDims(data))
    -
    812  case 4:
    -
    813  case 3:
    -
    814  case 2:
    -
    815  setscale /p y dimoffset(data, 1), dimdelta(data, 1), waveunits(data, 1), preview
    -
    816  case 1:
    -
    817  setscale /p x dimoffset(data, 0), dimdelta(data, 0), waveunits(data, 0), preview
    -
    818  setscale d 0, 0, waveunits(data, -1), preview
    -
    819  endswitch
    -
    820 end
    -
    821 
    -
    826 static function preview_datafolder()
    -
    827  dfref save_df = GetDataFolderDFR()
    -
    828 
    -
    829  setdatafolder $package_path
    -
    830  svar s_preview_file
    -
    831  svar s_preview_source
    -
    832  svar s_preview_pvs
    -
    833  wave preview_image
    -
    834 
    -
    835  setdatafolder save_df
    -
    836 
    -
    837  // select a wave to display
    -
    838  // consider only double-precision waves, i.e. ignore text and other special waves
    -
    839  // filter by matching PV name to s_preview_pvs
    -
    840  string d_names = WaveList("*", ";", "DP:1")
    -
    841  variable nw = ItemsInList(d_names, ";")
    -
    842  variable npv = ItemsInList(s_preview_pvs, ";")
    -
    843  variable iw, ipv
    -
    844  string wname, wnote, pv_name, pv_match
    -
    845  for (iw = 0; iw < nw; iw += 1)
    -
    846  wname = StringFromList(iw, d_names, ";")
    -
    847  wnote = note($wname)
    -
    848  pv_name = StringByKey("PV", wnote, "=", "\r")
    -
    849  // find matching data wave by PV name
    -
    850  for (ipv = 0; ipv < npv; ipv += 1)
    -
    851  pv_match = StringFromList(ipv, s_preview_pvs)
    -
    852  if (StringMatch(pv_name, pv_match))
    -
    853  wave data = $wname
    -
    854  s_preview_source = pv_name
    -
    855  extract_preview_image(data, preview_image)
    -
    856  preview_setscale_x(data, preview_image)
    -
    857  npv = 0
    -
    858  nw = 0
    -
    859  endif
    -
    860  endfor
    -
    861  endfor
    -
    862 
    -
    863  setdatafolder save_df
    -
    864 end
    -
    865 
    -
    866 static function preview_setscale_x(data, preview)
    -
    867  // sets the approximate x scale of OTF data.
    -
    868  // requires an Axis1 tag with name of x wave in the wave note.
    -
    869  // if any of these conditions is true, the function does not change the scaling:
    -
    870  // 1) Axis1 tag or referenced wave is missing.
    -
    871  // 2) preview wave is not set to point scaling.
    -
    872  // 3) x wave is not monotonic (90% of the steps in the same direction).
    -
    873  wave data
    -
    874  wave preview
    -
    875 
    -
    876  if ((DimOffset(preview, 0) == 0) && (DimDelta(preview, 0) == 1))
    -
    877  string xname = StringByKey("Axis1", note(data), "=", "\r")
    -
    878  wave /z xwave = $xname
    -
    879  if (WaveExists(xwave))
    -
    880  // check for monotonicity
    -
    881  variable monotonic = 0
    -
    882  duplicate /free xwave, xdiff
    -
    883  differentiate /p xwave /D=xdiff
    -
    884  duplicate /free xdiff, xflag
    -
    885  xflag = xdiff > 0
    -
    886  monotonic = sum(xflag) > numpnts(xwave) * 0.9
    -
    887  xflag = xdiff < 0
    -
    888  monotonic = monotonic || (sum(xflag) > numpnts(xwave) * 0.9)
    -
    889  if (monotonic)
    -
    890  setscale /i x xwave[0], xwave[numpnts(xwave)-1], waveunits(xwave, -1), preview
    -
    891  endif
    -
    892  endif
    -
    893  endif
    -
    894 end
    -
    895 
    -
    897 static function display_dataset(file_df, dataset)
    -
    898  dfref file_df // top data folder of file
    -
    899  string dataset // dataset path inside data folder
    -
    900 
    -
    901  dfref save_df = GetDataFolderDFR()
    -
    902 
    -
    903  dfref data_df = psh5_dataset_to_folder(file_df, dataset)
    -
    904  SetDataFolder data_df
    -
    905  string data_name = StringFromList(ItemsInList(dataset, "/") - 1, dataset, "/")
    -
    906  wave /z data=$data_name
    -
    907 
    -
    908  if (WaveExists(data))
    -
    909  switch(WaveDims(data))
    -
    910  case 1:
    -
    911  case 2:
    -
    912  show_preview_graph(data)
    -
    913  break
    -
    914  case 3:
    -
    915  ad_display_slice(data)
    -
    916  ad_brick_slicer(data)
    -
    917  break
    -
    918  endswitch
    -
    919  endif
    -
    920 
    -
    921  setdatafolder save_df
    -
    922  return 0
    -
    923 end
    -
    924 
    -
    925 static function /s show_preview_graph(data, [xdata])
    -
    926  // displays a preview of one- or two-dimensional data
    -
    927  wave data // data to be displayed. must either one-dimensional or two-dimensional
    -
    928  wave xdata // positions on x axis
    -
    929 
    -
    930  dfref save_df = GetDataFolderDFR()
    -
    931  setdatafolder $package_path
    -
    932 
    -
    933  svar s_profiles_graph
    -
    934  svar s_preview_file
    -
    935  svar s_preview_source
    -
    936  svar s_preview_trace_graph
    -
    937  svar s_preview_graph
    -
    938 
    -
    939  if ((strlen(s_profiles_graph) > 0) && (WinType(s_profiles_graph) == 1))
    -
    940  KillWindow $s_profiles_graph
    -
    941  endif
    -
    942  if ((strlen(s_preview_trace_graph) > 0) && (WinType(s_preview_trace_graph) == 1))
    -
    943  KillWindow $s_preview_trace_graph
    -
    944  endif
    -
    945 
    -
    946  string graphname
    -
    947  if (wavedims(data) == 2)
    -
    948  s_profiles_graph = ad_display_profiles(data)
    -
    949  ModifyGraph /w=$s_profiles_graph /z wbRGB=(48640,56832,60160)
    -
    950  graphname = s_profiles_graph
    -
    951  elseif (wavedims(data) == 1)
    -
    952  duplicate /o data, preview_trace
    -
    953  if (!ParamIsDefault(xdata))
    -
    954  duplicate /o xdata, preview_trace_x
    -
    955  else
    -
    956  duplicate /o data, preview_trace_x
    -
    957  preview_trace_x = x
    -
    958  setscale d 0, 0, WaveUnits(data, 0), preview_trace_x
    -
    959  endif
    -
    960  s_preview_trace_graph = display_preview_trace(preview_trace_x, preview_trace)
    -
    961  ModifyGraph /w=$s_preview_trace_graph wbRGB=(48640,56832,60160)
    -
    962  graphname = s_preview_trace_graph
    -
    963  else
    -
    964  return ""
    -
    965  endif
    -
    966 
    -
    967  string title = "Preview " + s_preview_file
    -
    968  if (strlen(s_preview_source) > 0)
    -
    969  title = title + " (" + s_preview_source[0,31] + ")"
    -
    970  endif
    -
    971  dowindow /f/t $graphname, title
    -
    972  s_preview_graph = graphname
    -
    973 
    -
    974  setdatafolder save_df
    -
    975  return graphname
    -
    976 end
    -
    977 
    -
    978 static function /s display_preview_trace(xtrace, ytrace)
    -
    979  wave /z xtrace
    -
    980  wave ytrace
    -
    981 
    -
    982  if (WaveExists(xtrace))
    -
    983  display /n=pearl_explorer_1d /k=1 ytrace vs xtrace as "Preview"
    -
    984  else
    -
    985  display /n=pearl_explorer_1d /k=1 ytrace as "Preview"
    -
    986  endif
    -
    987 
    -
    988  string graphname = s_name
    -
    989  ModifyGraph /w=$graphname rgb[0]=(0,0,0)
    -
    990  ModifyGraph /w=$graphname grid=2
    -
    991  ModifyGraph /w=$graphname mirror=1
    -
    992  ModifyGraph /w=$graphname minor=1
    -
    993  ModifyGraph /w=$graphname axThick=0.5
    -
    994  ModifyGraph /w=$graphname gridRGB=(52224,52224,52224)
    -
    995  ModifyGraph /w=$graphname gridHair=0
    -
    996  ModifyGraph /w=$graphname tick=0
    -
    997  ModifyGraph /w=$graphname btLen=4
    -
    998 
    -
    999  // axis labels
    -
    1000  string labels = note(ytrace)
    -
    1001  string lab
    -
    1002  lab = StringByKey("AxisLabelX", labels, "=", "\r")
    -
    1003  if (!strlen(lab))
    -
    1004  lab = "X"
    -
    1005  endif
    -
    1006  Label /w=$graphname bottom lab + " (\\U)"
    -
    1007  lab = StringByKey("Dataset", labels, "=", "\r")
    -
    1008  if (!strlen(lab))
    -
    1009  lab = "value"
    -
    1010  endif
    -
    1011  Label /w=$graphname left lab + " (\\U)"
    -
    1012 
    -
    1013  return s_name
    -
    1014 end
    -
    1015 
    -
    1016 // ====== file loading ======
    -
    1017 
    -
    1025 static function load_selected_files([options])
    -
    1026  string options
    -
    1027 
    -
    1028  dfref save_df = GetDataFolderDFR()
    -
    1029  setdatafolder $package_path
    -
    1030 
    -
    1031  wave wSelectedFiles
    -
    1032  wave/t wtFiles
    -
    1033  variable nn = numpnts(wSelectedFiles)
    -
    1034  variable ii
    -
    1035  for (ii = 0; ii < nn; ii += 1)
    -
    1036  if (wSelectedFiles[ii])
    -
    1037  setdatafolder save_df
    -
    1038  if (ParamIsDefault(options))
    -
    1039  load_file(wtFiles[ii])
    -
    1040  else
    -
    1041  load_file(wtFiles[ii], options=options)
    -
    1042  endif
    -
    1043  endif
    -
    1044  endfor
    -
    1045 end
    -
    1046 
    -
    1064 static function load_file(filename, [options, dest_df, quiet])
    -
    1065  string filename
    -
    1066  string options
    -
    1067  dfref dest_df
    -
    1068  variable quiet
    -
    1069 
    -
    1070  if (ParamIsDefault(options))
    -
    1071  options = ""
    -
    1072  endif
    -
    1073 
    -
    1074  variable ft = pearl_file_type(filename)
    -
    1075  switch(ft)
    -
    1076  case 1:
    -
    1077  load_pshell_file(filename, options=options, dest_df=dest_df, quiet=quiet)
    -
    1078  break
    -
    1079  case 2:
    -
    1080  load_hdf_file(filename, options=options, dest_df=dest_df, quiet=quiet)
    -
    1081  break
    -
    1082  case 3:
    -
    1083  load_itx_file(filename, dest_df=dest_df, quiet=quiet)
    -
    1084  break
    -
    1085  default:
    -
    1086  break
    -
    1087  endswitch
    -
    1088 end
    -
    1089 
    -
    1090 static function prompt_hdf_options(options)
    -
    1091  string &options
    -
    1092 
    -
    1093  string mode = StringByKey("mode", options, ":", ";")
    -
    1094  string reduction_func = StringByKey("reduction_func", options, ":", ";")
    -
    1095 
    -
    1096  string modes = "load_scan;load_region;load_dataset;load_diags;load_complete;"
    -
    1097  string reduction_funcs = adh5_list_reduction_funcs()
    -
    1098  reduction_funcs = RemoveFromList("adh5_default_reduction", reduction_funcs, ";")
    -
    1099 
    -
    1100  if (strlen(mode) == 0)
    -
    1101  mode = StringFromList(0, modes, ";")
    -
    1102  endif
    -
    1103  if (strlen(reduction_func) == 0)
    -
    1104  reduction_func = StringFromList(0, reduction_funcs, ";")
    -
    1105  endif
    -
    1106 
    -
    1107  prompt mode, "Mode", popup, modes
    -
    1108  prompt reduction_func, "Reduction Function", popup, reduction_funcs
    -
    1109  doprompt "HDF5 Loading Options", mode, reduction_func
    -
    1110 
    -
    1111  if (v_flag == 0)
    -
    1112  options = ReplaceStringByKey("mode", options, mode, ":", ";")
    -
    1113  options = ReplaceStringByKey("reduction_func", options, reduction_func, ":", ";")
    -
    1114  endif
    -
    1115  return v_flag // 0 = OK, 1 = cancel
    -
    1116 end
    -
    1117 
    -
    1130 function prompt_default_process(param)
    -
    1131  string &param
    -
    1132 
    -
    1133  return 0
    -
    1134 end
    -
    1135 
    -
    1136 function prompt_func_params(func_name, func_param)
    -
    1137  string func_name
    -
    1138  string &func_param
    -
    1139 
    -
    1140  string prompt_name = "prompt_" + func_name
    -
    1141  if (exists(prompt_name) == 6)
    -
    1142  funcref prompt_default_process prompt_func = $prompt_name
    -
    1143  return prompt_func(func_param)
    -
    1144  else
    -
    1145  // ignore missing prompt function
    -
    1146  return 0
    -
    1147  endif
    -
    1148 end
    -
    1149 
    -
    1188 static function /df load_pshell_file(filename, [options, dest_df, quiet])
    -
    1189  string filename
    -
    1190  string options
    -
    1191  dfref dest_df
    -
    1192  variable quiet
    -
    1193 
    -
    1194  dfref save_df = GetDataFolderDFR()
    -
    1195 
    -
    1196  svar pref_options = $(package_path + "s_hdf_options")
    -
    1197  svar pref_params = $(package_path + "s_reduction_params")
    -
    1198  string path = "pearl_explorer_filepath"
    -
    1199 
    -
    1200  if (ParamIsDefault(options))
    -
    1201  options = pref_options
    -
    1202  endif
    -
    1203 
    -
    1204  if (strlen(options) == 0)
    -
    1205  if (prompt_hdf_options(options) == 0)
    -
    1206  pref_options = options
    -
    1207  else
    -
    1208  return $""
    -
    1209  endif
    -
    1210  endif
    -
    1211 
    -
    1212  string reduction_func = StringByKey("reduction_func", options, ":", ";")
    -
    1213  string reduction_params = pref_params
    -
    1214  variable max_rank = 2
    -
    1215 
    -
    1216  if (exists(reduction_func) == 6)
    -
    1217  max_rank = 3
    -
    1218  if (prompt_func_params(reduction_func, reduction_params) == 0)
    -
    1219  pref_params = reduction_params
    -
    1220  else
    -
    1221  return $""
    -
    1222  endif
    -
    1223  endif
    -
    1224 
    -
    1225  string mode = StringByKey("mode", options, ":", ";")
    -
    1226  string selected_datasets = WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents")
    -
    1227  string selected_scans = psh5_extract_scan_paths(selected_datasets)
    -
    1228  string selected_regions = psh5_extract_region_paths(selected_datasets)
    -
    1229  variable dsc
    -
    1230 
    -
    1231  if (!quiet)
    -
    1232  print mode, filename
    -
    1233  if (strlen(reduction_func))
    -
    1234  print reduction_func, reduction_params
    -
    1235  endif
    -
    1236  endif
    -
    1237 
    -
    1238  strswitch(mode)
    -
    1239  case "load_complete":
    -
    1240  dsc = kDSCAll
    -
    1241  dfref file_df = psh5_load(path, filename, "", "", "*", classes=dsc, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)
    -
    1242  break
    -
    1243  case "load_diags":
    -
    1244  if (ItemsInList(selected_scans, ";") == 0)
    -
    1245  if (!quiet)
    -
    1246  print "no scan selected - defaulting to scan 1."
    -
    1247  endif
    -
    1248  selected_scans = "/scan1;"
    -
    1249  endif
    -
    1250  dsc = kDSCAttrs | kDSCDiags | kDSCSnaps | kDSCMeta | kDSCMonitors
    -
    1251  dfref file_df = psh5_load(path, filename, selected_scans, "", "", classes=dsc, dest_df=dest_df)
    -
    1252  break
    -
    1253  case "load_scan":
    -
    1254  if (ItemsInList(selected_scans, ";") == 0)
    -
    1255  if (!quiet)
    -
    1256  print "no scan selected - defaulting to scan 1."
    -
    1257  endif
    -
    1258  selected_scans = "/scan1;"
    -
    1259  endif
    -
    1260  dsc = kDSCPositioners | kDSCDetectors | kDSCScientaScaling | kDSCEssentialDiags
    -
    1261  dfref file_df = psh5_load(path, filename, selected_scans, "", "", classes=dsc, max_rank=max_rank, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)
    -
    1262  break
    -
    1263  case "load_region":
    -
    1264  if (ItemsInList(selected_regions, ";") == 0)
    -
    1265  if (!quiet)
    -
    1266  print "no region selected - defaulting to scan 1/region 1."
    -
    1267  endif
    -
    1268  selected_regions = "/scan1/region1;"
    -
    1269  endif
    -
    1270  dsc = kDSCPositioners | kDSCDetectors | kDSCScientaScaling | kDSCEssentialDiags
    -
    1271  dfref file_df = psh5_load(path, filename, "", selected_regions, "", classes=dsc, max_rank=max_rank, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)
    -
    1272  break
    -
    1273  case "load_dataset":
    -
    1274  if (ItemsInList(selected_datasets, ";") > 0)
    -
    1275  dsc = kDSCAll
    -
    1276  dfref file_df = psh5_load(path, filename, "", "", selected_datasets, classes=dsc, reduction_func=reduction_func, reduction_params=reduction_params, dest_df=dest_df)
    -
    1277  else
    -
    1278  if (!quiet)
    -
    1279  DoAlert /T="PShell Import" 0, "Please select the datasets to load."
    -
    1280  endif
    -
    1281  endif
    -
    1282  break
    -
    1283  endswitch
    -
    1284 
    -
    1285  if (DataFolderRefStatus(file_df))
    -
    1286  setdatafolder file_df
    -
    1287  string /g pearl_explorer_import = "load_pshell_file"
    -
    1288  if (!quiet)
    -
    1289  print "data loaded to", GetDataFolder(1)
    -
    1290  endif
    -
    1291  else
    -
    1292  setdatafolder save_df
    -
    1293  endif
    -
    1294 
    -
    1295  return file_df
    -
    1296 end
    -
    1297 
    -
    1298 static function /df load_hdf_file(filename, [options, dest_df, quiet])
    -
    1299  string filename
    -
    1300  string options
    -
    1301  dfref dest_df
    -
    1302  variable quiet
    -
    1303 
    -
    1304  dfref save_df = GetDataFolderDFR()
    -
    1305  string nickname = ad_suggest_foldername(filename)
    -
    1306  string loaded_filename = ""
    -
    1307 
    -
    1308  if (ParamIsDefault(dest_df) || !DataFolderRefStatus(dest_df))
    -
    1309  //
    -
    1310  else
    -
    1311  DoAlert /T="load_hdf_file" 0, "optional argument dest_df not supported."
    -
    1312  return $""
    -
    1313  endif
    -
    1314 
    -
    1315  if (ParamIsDefault(options))
    -
    1316  loaded_filename = adh5_load_complete(nickname, "pearl_explorer_filepath", filename)
    -
    1317  else
    -
    1318  if (strlen(options) == 0)
    -
    1319  svar pref_options = $(package_path + "s_hdf_options")
    -
    1320  options = pref_options
    -
    1321  if (prompt_hdf_options(options) == 0)
    -
    1322  // OK
    -
    1323  pref_options = options
    -
    1324  else
    -
    1325  // cancel
    -
    1326  options = ""
    -
    1327  endif
    -
    1328  endif
    -
    1329 
    -
    1330  string mode = StringByKey("mode", options, ":", ";")
    -
    1331 
    -
    1332  strswitch(mode)
    -
    1333  case "load_reduced":
    -
    1334  string reduction_func = StringByKey("reduction_func", options, ":", ";")
    -
    1335  svar pref_params = $(package_path + "s_reduction_params")
    -
    1336  string reduction_params = pref_params
    -
    1337  if (prompt_func_params(reduction_func, reduction_params) == 0)
    -
    1338  pref_params = reduction_params
    -
    1339  print reduction_func, reduction_params
    -
    1340  loaded_filename = adh5_load_reduced(nickname, "pearl_explorer_filepath", filename, $reduction_func, reduction_params)
    -
    1341  endif
    -
    1342  break
    -
    1343  endswitch
    -
    1344  endif
    -
    1345 
    -
    1346  dfref data_df
    -
    1347  if (strlen(loaded_filename) > 0)
    -
    1348  setdatafolder $("root:" + nickname)
    -
    1349  data_df = GetDataFolderDFR()
    -
    1350  string /g pearl_explorer_import = "load_hdf_file"
    -
    1351  else
    -
    1352  setdatafolder save_df
    -
    1353  endif
    -
    1354 
    -
    1355  return data_df
    -
    1356 end
    -
    1357 
    -
    1358 static function /df load_itx_file(filename, [options, dest_df, quiet])
    -
    1359  string filename
    -
    1360  string options
    -
    1361  dfref dest_df
    -
    1362  variable quiet
    -
    1363 
    -
    1364  dfref save_df = GetDataFolderDFR()
    -
    1365  string nickname = itx_suggest_foldername(filename)
    -
    1366 
    -
    1367  if (ParamIsDefault(options))
    -
    1368  options = ""
    -
    1369  endif
    -
    1370 
    -
    1371  variable own_data_df = 0
    -
    1372  if (ParamIsDefault(dest_df) || !DataFolderRefStatus(dest_df))
    -
    1373  setdatafolder root:
    -
    1374  newdatafolder /s/o $("root:" + nickname)
    -
    1375  own_data_df = 1
    -
    1376  else
    -
    1377  setdatafolder dest_df
    -
    1378  endif
    -
    1379  dfref data_df = GetDataFolderDFR()
    -
    1380 
    -
    1381  // note: some versions of PEARL data files save data to a new data folder,
    -
    1382  // and leave the newly created folder as the current folder.
    -
    1383  // the free data folder is used by those files which don't create their own data folder.
    -
    1384  // this is the new recommended behaviour
    -
    1385 
    -
    1386  LoadWave /t/p=pearl_explorer_filepath/q filename
    -
    1387  svar waves = s_wavenames
    -
    1388  dfref act_df = GetDataFolderDFR()
    -
    1389  if (v_flag > 0)
    -
    1390  string /g pearl_explorer_import = "load_itx_file"
    -
    1391  endif
    -
    1392 
    -
    1393  if (!DataFolderRefsEqual(act_df, data_df) && own_data_df)
    -
    1394  // the file created its own data folder.
    -
    1395  // let's kill the pre-allocated folder
    -
    1396  setdatafolder data_df
    -
    1397  if (ItemsInList(WaveList("*", ";", ""), ";") == 0)
    -
    1398  killdatafolder /z data_df
    -
    1399  endif
    -
    1400  endif
    -
    1401 
    -
    1402  setdatafolder save_df
    -
    1403  return act_df
    -
    1404 end
    -
    1405 
    -
    1427 function /s itx_suggest_foldername(filename, [ignoredate,sourcename,unique])
    -
    1428  string filename
    -
    1429  variable ignoredate
    -
    1430  string sourcename
    -
    1431  variable unique
    -
    1432 
    -
    1433  if (ParamIsDefault(ignoredate))
    -
    1434  ignoredate = 0
    -
    1435  endif
    -
    1436  if (ParamIsDefault(unique))
    -
    1437  unique = 0
    -
    1438  endif
    -
    1439 
    -
    1440  string basename = ParseFilePath(3, filename, ":", 0, 0)
    -
    1441  string extension = ParseFilePath(4, filename, ":", 0, 0)
    -
    1442  string nickname
    -
    1443 
    -
    1444  string autosource
    -
    1445  if (strsearch(basename, "X03DA_PC", 0, 2) >= 0)
    -
    1446  autosource = "sscan"
    -
    1447  basename = ReplaceString("_", basename, "-")
    -
    1448  ignoredate = 1
    -
    1449  elseif (strsearch(basename, "otf", 0, 2) >= 0)
    -
    1450  autosource = "otf"
    -
    1451  endif
    -
    1452  if (ParamIsDefault(sourcename))
    -
    1453  sourcename = autosource
    -
    1454  endif
    -
    1455 
    -
    1456  variable nparts = ItemsInList(basename, "-")
    -
    1457  if (nparts >= 3)
    -
    1458  string datepart = StringFromList(nparts - 2, basename, "-")
    -
    1459  string indexpart = StringFromList(nparts - 1, basename, "-")
    -
    1460  if (ignoredate)
    -
    1461  sprintf nickname, "%s_%s", sourcename, indexpart
    -
    1462  else
    -
    1463  sprintf nickname, "%s_%s_%s", sourcename, datepart, indexpart
    -
    1464  endif
    -
    1465  else
    -
    1466  nickname = PearlCleanupName(basename)
    -
    1467  endif
    -
    1468 
    -
    1469  if (unique && CheckName(nickname, 11))
    -
    1470  nickname = UniqueName(nickname + "_", 11, 0)
    -
    1471  endif
    -
    1472 
    -
    1473  return nickname
    -
    1474 end
    -
    1475 
    -
    1476 // ====== panel ======
    -
    1477 
    -
    1478 Window PearlDataExplorer() : Panel
    -
    1479  PauseUpdate; Silent 1 // building window...
    -
    1480  NewPanel /K=1 /W=(510,45,1190,539) as "PEARL Data Explorer"
    -
    1481  ModifyPanel cbRGB=(48640,56832,60160)
    -
    1482  GroupBox g_data_reduction,pos={355.00,370.00},size={306.00,49.00},title="data reduction"
    -
    1483  GroupBox g_data_reduction,help={"data reduction of 3D ScientaImage"}
    -
    1484  GroupBox gb_filepath,pos={8.00,4.00},size={328.00,48.00},title="file system folder"
    -
    1485  TitleBox tb_filepath,pos={20.00,28.00},size={279.00,21.00},frame=0
    -
    1486  TitleBox tb_filepath,variable= root:packages:pearl_explorer:s_short_filepath,fixedSize=1
    -
    1487  Button b_browse_filepath,pos={303.00,24.00},size={20.00,20.00},proc=PearlDataExplorer#bp_browse_filepath,title="..."
    -
    1488  Button b_browse_filepath,fColor=(65280,48896,32768)
    -
    1489  GroupBox gb_prefs,pos={8.00,351.00},size={65.00,131.00},title="prefs"
    -
    1490  GroupBox gb_prefs,help={"explorer package preferences"}
    -
    1491  Button b_save_prefs,pos={21.00,394.00},size={38.00,17.00},proc=PearlDataExplorer#bp_save_prefs,title="save"
    -
    1492  Button b_save_prefs,help={"save preferences of the data explorer package (data file path, attributes filter)"}
    -
    1493  Button b_save_prefs,fColor=(65280,48896,32768)
    -
    1494  Button b_load_prefs,pos={21.00,374.00},size={38.00,17.00},proc=PearlDataExplorer#bp_load_prefs,title="load"
    -
    1495  Button b_load_prefs,help={"load preferences of the data explorer package"}
    -
    1496  Button b_load_prefs,fColor=(65280,48896,32768)
    -
    1497  GroupBox gb_filelist,pos={8.00,55.00},size={328.00,293.00},title="data files"
    -
    1498  ListBox lb_files,pos={20.00,83.00},size={303.00,222.00},proc=PearlDataExplorer#lbp_filelist
    -
    1499  ListBox lb_files,listWave=root:packages:pearl_explorer:wtFiles
    -
    1500  ListBox lb_files,selWave=root:packages:pearl_explorer:wSelectedFiles,mode= 4
    -
    1501  Button b_update_filelist,pos={246.00,315.00},size={76.00,22.00},proc=PearlDataExplorer#bp_update_filelist,title="update list"
    -
    1502  Button b_update_filelist,fColor=(65280,48896,32768)
    -
    1503  CheckBox cb_file_preview,pos={78.00,318.00},size={59.00,14.00},title="preview"
    -
    1504  CheckBox cb_file_preview,help={"enable/disable automatic preview window when selecting a data file"}
    -
    1505  CheckBox cb_file_preview,value= 0
    -
    1506  Button b_file_prev,pos={20.00,314.00},size={22.00,22.00},proc=PearlDataExplorer#bp_file_prev,title="\\W646"
    -
    1507  Button b_file_prev,help={"previous file"},fColor=(65280,48896,32768)
    -
    1508  Button b_file_next,pos={44.00,314.00},size={22.00,22.00},proc=PearlDataExplorer#bp_file_next,title="\\W649"
    -
    1509  Button b_file_next,help={"next file"},fColor=(65280,48896,32768)
    -
    1510  Button b_goto_dataset,pos={355.00,315.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_goto_dataset,title="goto DF"
    -
    1511  Button b_goto_dataset,help={"change the current data folder ot where the selected dataset could be located"}
    -
    1512  Button b_goto_dataset,fColor=(65280,48896,32768)
    -
    1513  Button b_display_dataset,pos={423.00,315.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_display_dataset,title="display"
    -
    1514  Button b_display_dataset,help={"display the selected dataset in its own window"}
    -
    1515  Button b_display_dataset,fColor=(65280,48896,32768)
    -
    1516  Button b_load_complete,pos={355.00,451.00},size={92.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="all data"
    -
    1517  Button b_load_complete,help={"load all datasets of the selected file."}
    -
    1518  Button b_load_complete,userdata= "mode:load_complete;"
    -
    1519  Button b_load_complete,fColor=(65280,48896,32768)
    -
    1520  TitleBox tb_selected_file,pos={360.00,28.00},size={309.00,22.00},frame=0
    -
    1521  TitleBox tb_selected_file,variable= root:packages:pearl_explorer:s_selected_file,fixedSize=1
    -
    1522  GroupBox gb_contents,pos={346.00,55.00},size={327.00,294.00},title="datasets"
    -
    1523  Button b_attr_notebook,pos={97.00,375.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_attr_notebook,title="notebook"
    -
    1524  Button b_attr_notebook,help={"show a summary of attributes in a notebook window"}
    -
    1525  Button b_attr_notebook,fColor=(65280,48896,32768)
    -
    1526  ListBox lb_contents,pos={355.00,84.00},size={305.00,222.00}
    -
    1527  ListBox lb_contents,keySelectCol= 1
    -
    1528  GroupBox gb_selected_file,pos={346.00,4.00},size={328.00,48.00},title="selected file"
    -
    1529  Button b_load_region,pos={355.00,426.00},size={92.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="region"
    -
    1530  Button b_load_region,help={"load the selected region"}
    -
    1531  Button b_load_region,userdata= "mode:load_region;",fColor=(65280,48896,32768)
    -
    1532  PopupMenu popup_reduction,pos={366.00,391.00},size={200.00,17.00},bodyWidth=200,proc=PearlDataExplorer#pmp_reduction_func
    -
    1533  PopupMenu popup_reduction,help={"data reduction of 3d ScientaImage. note: the list may contain unsuitable functions. check the code or documentation!"}
    -
    1534  PopupMenu popup_reduction,mode=1,popvalue="None",value= #"PearlDataExplorer#pm_reduction_values()"
    -
    1535  GroupBox group_import,pos={346.00,351.00},size={326.00,131.00},title="import"
    -
    1536  Button b_load_scan,pos={450.00,426.00},size={94.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="scan"
    -
    1537  Button b_load_scan,help={"load the selected scan"},userdata= "mode:load_scan;"
    -
    1538  Button b_load_scan,fColor=(65280,48896,32768)
    -
    1539  Button b_load_diags,pos={450.00,451.00},size={94.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="diagnostics"
    -
    1540  Button b_load_diags,help={"load diagnostics of selected scans"},userdata= "mode:load_diags;"
    -
    1541  Button b_load_diags,fColor=(65280,48896,32768)
    -
    1542  Button b_load_dataset,pos={547.00,426.00},size={101.00,22.00},disable=2,proc=PearlDataExplorer#bp_load_options,title="dataset"
    -
    1543  Button b_load_dataset,help={"load the selected datasets"}
    -
    1544  Button b_load_dataset,userdata= "mode:load_dataset;",fColor=(65280,48896,32768)
    -
    1545  Button b_reduction_params,pos={571.00,390.00},size={71.00,19.00},disable=2,proc=PearlDataExplorer#bp_reduction_params,title="set params"
    -
    1546  Button b_reduction_params,help={"set data reduction parameters"}
    -
    1547  Button b_reduction_params,fColor=(65280,48896,32768)
    -
    1548  GroupBox g_fileinfo,pos={85.00,351.00},size={251.00,131.00},title="file info"
    -
    1549  Button b_elog,pos={97.00,401.00},size={64.00,22.00},disable=2,proc=PearlDataExplorer#bp_elog,title="ELOG"
    -
    1550  Button b_elog,help={"send file metadata to ELOG panel (does not submit to ELOG)"}
    -
    1551  Button b_elog,fColor=(65280,48896,32768)
    -
    1552  ToolsGrid grid=(0,28.35,5)
    -
    1553 EndMacro
    -
    1554 
    -
    1557 static function update_controls()
    -
    1558  dfref package_df = $package_path
    -
    1559  svar /z /sdfr=package_df hl_contents_datasets
    -
    1560  wave /z /sdfr=package_df wSelectedFiles
    -
    1561 
    -
    1562  variable file_selected = 0
    -
    1563  if (WaveExists(wSelectedFiles))
    -
    1564  file_selected = sum(wSelectedFiles)
    -
    1565  endif
    -
    1566 
    -
    1567  string selected_datasets = WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents")
    -
    1568  variable scan_selected = strsearch(selected_datasets, "scan", 0, 2) == 0
    -
    1569  variable region_selected = strsearch(selected_datasets, "region", 0, 2) >= 0
    -
    1570 
    -
    1571  variable dataset_selected = 0
    -
    1572  variable nds = ItemsInList(selected_datasets, ";")
    -
    1573  variable ids
    -
    1574  string ds
    -
    1575  if (svar_exists(hl_contents_datasets))
    -
    1576  for (ids = 0; ids < nds; ids += 1)
    -
    1577  ds = "/" + StringFromList(ids, selected_datasets, ";")
    -
    1578  if (NumType(NumberByKey(ds, hl_contents_datasets, ":", ";")) == 0)
    -
    1579  dataset_selected = 1
    -
    1580  break
    -
    1581  endif
    -
    1582  endfor
    -
    1583  else
    -
    1584  nds = 0
    -
    1585  endif
    -
    1586 
    -
    1587  variable dis
    -
    1588  dis = file_selected ? 0 : 2
    -
    1589  Button b_load_complete win=PearlDataExplorer,disable=dis
    -
    1590  Button b_load_diags win=PearlDataExplorer,disable=dis
    -
    1591  dis = file_selected && scan_selected ? 0 : 2
    -
    1592  Button b_attr_notebook win=PearlDataExplorer,disable=dis
    -
    1593 
    -
    1594  dis = file_selected && (strlen(WinList("*ElogPanel*", ";", "WIN:64")) > 1) ? 0 : 2
    -
    1595  Button b_elog win=PearlDataExplorer,disable=dis
    -
    1596  dis = scan_selected ? 0 : 2
    -
    1597  Button b_load_scan win=PearlDataExplorer,disable=dis
    -
    1598  dis = region_selected ? 0 : 2
    -
    1599  Button b_load_region win=PearlDataExplorer,disable=dis
    -
    1600  dis = dataset_selected ? 0 : 2
    -
    1601  Button b_load_dataset win=PearlDataExplorer,disable=dis
    -
    1602  Button b_display_dataset win=PearlDataExplorer,disable=dis
    -
    1603  dis = file_selected && (nds > 0) ? 0 : 2
    -
    1604  Button b_goto_dataset win=PearlDataExplorer,disable=dis
    -
    1605 
    -
    1606  ControlInfo /W=PearlDataExplorer popup_reduction
    -
    1607  if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))
    -
    1608  GroupBox g_data_reduction win=PearlDataExplorer,labelBack=(65535,49151,49151)
    -
    1609  Button b_reduction_params win=PearlDataExplorer,disable=0
    -
    1610  else
    -
    1611  GroupBox g_data_reduction win=PearlDataExplorer,labelBack=0
    -
    1612  Button b_reduction_params win=PearlDataExplorer,disable=2
    -
    1613  endif
    -
    1614 
    -
    1615  return 0
    -
    1616 end
    -
    1617 
    -
    1618 static function bp_load_prefs(ba) : ButtonControl
    -
    1619  STRUCT WMButtonAction &ba
    -
    1620 
    -
    1621  switch( ba.eventCode )
    -
    1622  case 2: // mouse up
    -
    1623  load_prefs()
    -
    1624  update_controls()
    -
    1625  break
    -
    1626  case -1: // control being killed
    -
    1627  break
    -
    1628  endswitch
    -
    1629 
    -
    1630  return 0
    -
    1631 End
    -
    1632 
    -
    1633 static function bp_save_prefs(ba) : ButtonControl
    -
    1634  STRUCT WMButtonAction &ba
    -
    1635 
    -
    1636  switch( ba.eventCode )
    -
    1637  case 2: // mouse up
    -
    1638  save_prefs()
    -
    1639  break
    -
    1640  case -1: // control being killed
    -
    1641  break
    -
    1642  endswitch
    -
    1643 
    -
    1644  return 0
    -
    1645 End
    -
    1646 
    -
    1651 static function /s shorten_filepath(long_path, max_len)
    -
    1652  string long_path
    -
    1653  variable max_len
    -
    1654 
    -
    1655  string path = long_path
    -
    1656  variable ellipsis = 0
    -
    1657  do
    -
    1658  if (strlen(path) > max_len)
    -
    1659  path = RemoveListItem(1, path, ":")
    -
    1660  ellipsis += 1
    -
    1661  else
    -
    1662  break
    -
    1663  endif
    -
    1664  while (1)
    -
    1665 
    -
    1666  if (ellipsis >= 1)
    -
    1667  path = AddListItem("
", path, ":", 1)
    -
    1668  endif
    -
    1669 
    -
    1670  return path
    -
    1671 end
    -
    1672 
    -
    1673 static function bp_browse_filepath(ba) : ButtonControl
    -
    1674  STRUCT WMButtonAction &ba
    -
    1675 
    -
    1676  dfref save_df = GetDataFolderDFR()
    -
    1677 
    -
    1678  switch( ba.eventCode )
    -
    1679  case 2: // mouse up
    -
    1680  PathInfo /S pearl_explorer_filepath
    -
    1681  NewPath /M="select data file folder" /O/Z pearl_explorer_filepath
    -
    1682  if (v_flag == 0)
    -
    1683  update_filepath()
    -
    1684  update_filelist()
    -
    1685  update_controls()
    -
    1686  endif
    -
    1687  break
    -
    1688  case -1: // control being killed
    -
    1689  break
    -
    1690  endswitch
    -
    1691 
    -
    1692  setdatafolder save_df
    -
    1693  return 0
    -
    1694 End
    -
    1695 
    -
    1696 static function bp_update_filelist(ba) : ButtonControl
    -
    1697  STRUCT WMButtonAction &ba
    -
    1698 
    -
    1699  switch( ba.eventCode )
    -
    1700  case 2: // mouse up
    -
    1701  update_filelist()
    -
    1702  update_controls()
    -
    1703  break
    -
    1704  case -1: // control being killed
    -
    1705  break
    -
    1706  endswitch
    -
    1707 
    -
    1708  return 0
    -
    1709 End
    -
    1710 
    -
    1712 static function /s pm_reduction_values()
    -
    1713  string reduction_funcs = adh5_list_reduction_funcs()
    -
    1714  reduction_funcs = RemoveFromList("adh5_default_reduction", reduction_funcs, ";")
    -
    1715  reduction_funcs = AddListItem("None", reduction_funcs, ";", 0)
    -
    1716  return reduction_funcs
    -
    1717 end
    -
    1718 
    -
    1719 static function pmp_reduction_func(pa) : PopupMenuControl
    -
    1720  STRUCT WMPopupAction &pa
    -
    1721 
    -
    1722  switch( pa.eventCode )
    -
    1723  case 2: // mouse up
    -
    1724  Variable popNum = pa.popNum
    -
    1725  String popStr = pa.popStr
    -
    1726  update_controls()
    -
    1727  break
    -
    1728  case -1: // control being killed
    -
    1729  break
    -
    1730  endswitch
    -
    1731 
    -
    1732  return 0
    -
    1733 End
    -
    1734 
    -
    1735 static function bp_reduction_params(ba) : ButtonControl
    -
    1736  STRUCT WMButtonAction &ba
    -
    1737 
    -
    1738  switch( ba.eventCode )
    -
    1739  case 2: // mouse up
    -
    1740  ControlInfo /W=PearlDataExplorer popup_reduction
    -
    1741  if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))
    -
    1742  svar pref_params = $(package_path + "s_reduction_params")
    -
    1743  string reduction_func = S_Value
    -
    1744  string reduction_params = pref_params
    -
    1745  if (prompt_func_params(reduction_func, reduction_params) == 0)
    -
    1746  pref_params = reduction_params
    -
    1747  endif
    -
    1748  endif
    -
    1749  break
    -
    1750  case -1: // control being killed
    -
    1751  break
    -
    1752  endswitch
    -
    1753 
    -
    1754  return 0
    -
    1755 End
    -
    1756 
    -
    1757 static function bp_load_options(ba) : ButtonControl
    -
    1758  STRUCT WMButtonAction &ba
    -
    1759 
    -
    1760  switch( ba.eventCode )
    -
    1761  case 2: // mouse up
    -
    1762  // options must be in the button's unnamed user data in the form: "mode:load_complete".
    -
    1763  // see load_pshell_file for recognized values.
    -
    1764  string options=ba.userData
    -
    1765 
    -
    1766  // data reduction popup
    -
    1767  ControlInfo /W=PearlDataExplorer popup_reduction
    -
    1768  if ((cmpstr(S_Value, "None") != 0) && (exists(S_Value) == 6))
    -
    1769  options = ReplaceStringByKey("reduction_func", options, S_Value, ":", ";")
    -
    1770  endif
    -
    1771 
    -
    1772  load_selected_files(options=options)
    -
    1773  break
    -
    1774  case -1: // control being killed
    -
    1775  break
    -
    1776  endswitch
    -
    1777 
    -
    1778  return 0
    -
    1779 End
    -
    1780 
    -
    1791 static function selected_file(file, do_preview)
    -
    1792  string file
    -
    1793  variable do_preview
    -
    1794 
    -
    1795  dfref save_df = GetDataFolderDFR()
    -
    1796  setdatafolder $package_path
    -
    1797  svar s_selected_file
    -
    1798  s_selected_file = file
    -
    1799  get_file_info(file)
    -
    1800  if (do_preview)
    -
    1801  preview_file(file)
    -
    1802  endif
    -
    1803  update_controls()
    -
    1804 
    -
    1805  setdatafolder save_df
    -
    1806  return 0
    -
    1807 end
    -
    1808 
    -
    1809 static function bp_file_next(ba) : ButtonControl
    -
    1810  STRUCT WMButtonAction &ba
    -
    1811 
    -
    1812  dfref save_df = GetDataFolderDFR()
    -
    1813 
    -
    1814  switch( ba.eventCode )
    -
    1815  case 2: // mouse up
    -
    1816  setdatafolder $package_path
    -
    1817  wave /t wtFiles
    -
    1818  wave wSelectedFiles
    -
    1819  FindValue /i=1 wSelectedFiles
    -
    1820  v_value += 1
    -
    1821  if (v_value >= numpnts(wtFiles))
    -
    1822  v_value = min(numpnts(wtFiles) - 1, 0)
    -
    1823  endif
    -
    1824  wSelectedFiles = p == v_value
    -
    1825  if (v_value >= 0)
    -
    1826  variable ifile = v_value
    -
    1827  ControlInfo /W=PearlDataExplorer cb_file_preview
    -
    1828  selected_file(wtFiles[ifile], v_value)
    -
    1829  endif
    -
    1830  update_controls()
    -
    1831  break
    -
    1832  case -1: // control being killed
    -
    1833  break
    -
    1834  endswitch
    -
    1835 
    -
    1836  setdatafolder save_df
    -
    1837  return 0
    -
    1838 End
    -
    1839 
    -
    1840 static function bp_file_prev(ba) : ButtonControl
    -
    1841  STRUCT WMButtonAction &ba
    -
    1842 
    -
    1843  dfref save_df = GetDataFolderDFR()
    -
    1844 
    -
    1845  switch( ba.eventCode )
    -
    1846  case 2: // mouse up
    -
    1847  setdatafolder $package_path
    -
    1848  wave /t wtFiles
    -
    1849  wave wSelectedFiles
    -
    1850  FindValue /i=1 wSelectedFiles
    -
    1851  v_value -= 1
    -
    1852  if (v_value < 0)
    -
    1853  v_value = numpnts(wtFiles) - 1
    -
    1854  endif
    -
    1855  wSelectedFiles = p == v_value
    -
    1856  if (v_value >= 0)
    -
    1857  variable ifile = v_value
    -
    1858  ControlInfo /W=PearlDataExplorer cb_file_preview
    -
    1859  selected_file(wtFiles[ifile], v_value)
    -
    1860  endif
    -
    1861  update_controls()
    -
    1862  break
    -
    1863  case -1: // control being killed
    -
    1864  break
    -
    1865  endswitch
    -
    1866 
    -
    1867  setdatafolder save_df
    -
    1868  return 0
    -
    1869 End
    -
    1870 
    -
    1871 static function lbp_filelist(lba) : ListBoxControl
    -
    1872  STRUCT WMListboxAction &lba
    -
    1873 
    -
    1874  dfref save_df = GetDataFolderDFR()
    -
    1875 
    -
    1876  Variable row = lba.row
    -
    1877  Variable col = lba.col
    -
    1878  WAVE/T/Z listWave = lba.listWave
    -
    1879  WAVE/Z selWave = lba.selWave
    -
    1880 
    -
    1881  switch( lba.eventCode )
    -
    1882  case -1: // control being killed
    -
    1883  break
    -
    1884  case 1: // mouse down
    -
    1885  setdatafolder $package_path
    -
    1886  wave wSelectedFiles
    -
    1887  if (selWave[row])
    -
    1888  if (sum(wSelectedFiles) == 1)
    -
    1889  ControlInfo /W=PearlDataExplorer cb_file_preview
    -
    1890  selected_file(listWave[row], v_value)
    -
    1891  else
    -
    1892  selected_file(listWave[row], 0)
    -
    1893  endif
    -
    1894  endif
    -
    1895  update_controls()
    -
    1896  break
    -
    1897  case 3: // double click
    -
    1898  break
    -
    1899  case 4: // cell selection
    -
    1900  case 5: // cell selection plus shift key
    -
    1901  break
    -
    1902  case 6: // begin edit
    -
    1903  break
    -
    1904  case 7: // finish edit
    -
    1905  break
    -
    1906  case 13: // checkbox clicked (Igor 6.2 or later)
    -
    1907  break
    -
    1908  endswitch
    -
    1909 
    -
    1910  setdatafolder save_df
    -
    1911  return 0
    -
    1912 End
    -
    1913 
    -
    1914 static function bp_attr_notebook(ba) : ButtonControl
    -
    1915  STRUCT WMButtonAction &ba
    -
    1916 
    -
    1917  dfref save_df = GetDataFolderDFR()
    -
    1918 
    -
    1919  switch( ba.eventCode )
    -
    1920  case 2: // mouse up
    -
    1921  setdatafolder $package_path
    -
    1922  wave wSelectedFiles
    -
    1923  wave/t wtFiles
    -
    1924  variable nn = numpnts(wSelectedFiles)
    -
    1925  variable ii
    -
    1926  for (ii = 0; ii < nn; ii += 1)
    -
    1927  if (wSelectedFiles[ii])
    -
    1928  attributes_notebook(wtFiles[ii])
    -
    1929  break
    -
    1930  endif
    -
    1931  endfor
    -
    1932  break
    -
    1933  case -1: // control being killed
    -
    1934  break
    -
    1935  endswitch
    -
    1936 
    -
    1937  setdatafolder save_df
    -
    1938  return 0
    -
    1939 End
    -
    1940 
    -
    1941 
    -
    1942 static function hlp_setup()
    -
    1943  dfref save_df = GetDataFolderDFR()
    -
    1944  setdatafolder $package_path
    -
    1945 
    -
    1946  MakeListIntoHierarchicalList("PearlDataExplorer", "lb_contents", "hlp_contents_open", selectionMode=WMHL_SelectionSingle, pathSeparator="/")
    -
    1947 
    -
    1948  setdatafolder save_df
    -
    1949  return 0
    -
    1950 end
    -
    1951 
    -
    1952 static function hl_contents_clear()
    -
    1953  do
    -
    1954  if (cmpstr(WMHL_GetItemForRowNumber("PearlDataExplorer", "lb_contents", 0), "<uninitialized>") != 0)
    -
    1955  WMHL_DeleteRowAndChildren("PearlDataExplorer", "lb_contents", 0)
    -
    1956  else
    -
    1957  break
    -
    1958  endif
    -
    1959  while (1)
    -
    1960 end
    -
    1961 
    -
    1966 static function hl_contents_update(file_df)
    -
    1967  dfref file_df
    -
    1968 
    -
    1969  dfref save_df = GetDataFolderDFR()
    -
    1970  setdatafolder $package_path
    -
    1971  hl_contents_clear()
    -
    1972 
    -
    1973  variable nds
    -
    1974  variable ids
    -
    1975  string ds
    -
    1976  string extra
    -
    1977  string /g hl_contents_datasets = ""
    -
    1978 
    -
    1979  if (DataFolderRefStatus(file_df))
    -
    1980  svar /sdfr=file_df datasets = s_datasets
    -
    1981  svar /sdfr=file_df datatypes = s_datasets_datatypes
    -
    1982  svar /sdfr=file_df ranks = s_datasets_ranks
    -
    1983  svar /sdfr=file_df dimensions = s_datasets_dimensions
    -
    1984 
    -
    1985  nds = ItemsInList(datasets, ";")
    -
    1986  for (ids = 0; ids < nds; ids += 1)
    -
    1987  ds = StringFromList(ids, datasets, ";")
    -
    1988  extra = StringFromList(ids, dimensions, ";")
    -
    1989  hl_contents_datasets = ReplaceStringByKey(ds, hl_contents_datasets, extra, ":", ";")
    -
    1990  endfor
    -
    1991  endif
    -
    1992 
    -
    1993  variable nobj = hl_add_objects("", hl_contents_datasets)
    -
    1994  hl_expand_scans()
    -
    1995  hl_default_selection()
    -
    1996  setdatafolder save_df
    -
    1997 
    -
    1998  return nobj
    -
    1999 end
    -
    2000 
    -
    2001 static function /df get_pshell_info(path_name, file_name, [dest_df])
    -
    2002  string path_name
    -
    2003  string file_name
    -
    2004  dfref dest_df
    -
    2005 
    -
    2006  dfref save_df = GetDataFolderDFR()
    -
    2007 
    -
    2008  if (!ParamIsDefault(dest_df))
    -
    2009  setdatafolder dest_df
    -
    2010  else
    -
    2011  setdatafolder $package_path
    -
    2012  NewDataFolder /o /s file_info
    -
    2013  endif
    -
    2014 
    -
    2015  dfref file_df = psh5_open_file(path_name, file_name, dest_df=GetDataFolderDFR())
    -
    2016  if (DataFolderRefStatus(file_df))
    -
    2017  psh5_load_general_group(file_df)
    -
    2018  psh5_close_file(file_df)
    -
    2019  endif
    -
    2020 
    -
    2021  setdatafolder save_df
    -
    2022  return file_df
    -
    2023 end
    -
    2024 
    -
    2029 static function hl_add_objects(parent_path, objects)
    -
    2030  string parent_path // e.g. "/a/b"
    -
    2031  string objects // all objects that might appear in the list. e.g. "/a/b/c:col0|col1;/a/b/d:col0|col1;/d/e/f:col0|col1;"
    -
    2032 
    -
    2033  if (cmpstr(parent_path[0], "/") != 0)
    -
    2034  parent_path = "/" + parent_path
    -
    2035  endif
    -
    2036 
    -
    2037  variable nobj = ItemsInList(objects, ";")
    -
    2038  variable iobj
    -
    2039  string obj
    -
    2040  string extra
    -
    2041  variable nel
    -
    2042 
    -
    2043  string child_path = ""
    -
    2044  string child_name = ""
    -
    2045  string child_names = "" // e.g., "child1:1;child3:2;"
    -
    2046  string extra_data = "" // e.g., "child1:col0|col1;child2:col0|col1;"
    -
    2047 
    -
    2048  // filter children of parent
    -
    2049  for (iobj = 0; iobj < nobj; iobj += 1)
    -
    2050  obj = StringFromList(iobj, objects, ";")
    -
    2051 
    -
    2052  if (cmpstr(obj[0, strlen(parent_path)-1], parent_path) == 0)
    -
    2053  child_path = StringFromList(0, obj, ":")
    -
    2054  child_path = child_path[strlen(parent_path), strlen(child_path)-1]
    -
    2055  if (cmpstr(child_path[0], "/") == 0)
    -
    2056  child_path = child_path[1, strlen(child_path)-1]
    -
    2057  endif
    -
    2058  child_name = StringFromList(0, child_path, "/")
    -
    2059  nel = ItemsInList(child_path, "/")
    -
    2060  child_names = ReplaceNumberByKey(child_name, child_names, nel)
    -
    2061  if (nel == 1)
    -
    2062  extra = RemoveListItem(0, obj, ":")
    -
    2063  extra_data = ReplaceStringByKey(child_name, extra_data, extra)
    -
    2064  endif
    -
    2065  endif
    -
    2066  endfor
    -
    2067 
    -
    2068  // add rows
    -
    2069  variable row
    -
    2070  variable children
    -
    2071  nobj = ItemsInList(child_names)
    -
    2072  for (iobj = 0; iobj < nobj; iobj += 1)
    -
    2073  obj = StringFromList(iobj, child_names)
    -
    2074  child_name = StringFromList(0, obj, ":")
    -
    2075  nel = NumberByKey(child_name, child_names)
    -
    2076  WMHL_AddObject("PearlDataExplorer", "lb_contents", parent_path[1, strlen(parent_path)], child_name, nel > 1)
    -
    2077  if (nel == 1)
    -
    2078  extra = StringByKey(child_name, extra_data)
    -
    2079  row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", parent_path[1, strlen(parent_path)] + "/" + child_name)
    -
    2080  if (row >= 0)
    -
    2081  WMHL_ExtraColumnData("PearlDataExplorer", "lb_contents", 0, row, StringFromList(0, extra, "|"), 0)
    -
    2082  endif
    -
    2083  endif
    -
    2084  endfor
    -
    2085 
    -
    2086  return nobj
    -
    2087 end
    -
    2088 
    -
    2089 static function hl_expand_scans()
    -
    2090  dfref save_df = GetDataFolderDFR()
    -
    2091  setdatafolder $package_path
    -
    2092 
    -
    2093  svar hl_contents_datasets
    -
    2094  variable nds = ItemsInList(hl_contents_datasets, ";")
    -
    2095  variable ids
    -
    2096  string sds
    -
    2097  string scan
    -
    2098  string scans = ""
    -
    2099  for (ids = 0; ids < nds; ids += 1)
    -
    2100  sds = StringFromList(ids, hl_contents_datasets, ";")
    -
    2101  if (cmpstr(sds[0,4], "/scan", 0) == 0)
    -
    2102  scan = StringFromList(1, sds, "/")
    -
    2103  scans = ReplaceNumberByKey(scan, scans, 1)
    -
    2104  endif
    -
    2105  endfor
    -
    2106 
    -
    2107  variable nscans = ItemsInList(scans)
    -
    2108  variable iscan
    -
    2109  for (iscan = 0; iscan < nscans; iscan += 1)
    -
    2110  scan = StringFromList(iscan, scans)
    -
    2111  scan = StringFromList(0, scan, ":")
    -
    2112  WMHL_OpenAContainer("PearlDataExplorer", "lb_contents", scan)
    -
    2113  endfor
    -
    2114 
    -
    2115  setdatafolder save_df
    -
    2116 end
    -
    2117 
    -
    2118 static function hl_default_selection()
    -
    2119  variable row
    -
    2120  row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", "scan 1")
    -
    2121  if (row < 0)
    -
    2122  row = WMHL_GetRowNumberForItem("PearlDataExplorer", "lb_contents", "scan1")
    -
    2123  endif
    -
    2124  if (row >= 0)
    -
    2125  WMHL_SelectARow("PearlDataExplorer", "lb_contents", row, 1)
    -
    2126  endif
    -
    2127 end
    -
    2128 
    -
    2129 static function hlp_contents_open(HostWindow, ListControlName, ContainerPath)
    -
    2130  String HostWindow, ListControlName, ContainerPath
    -
    2131 
    -
    2132  dfref save_df = GetDataFolderDFR()
    -
    2133  setdatafolder $package_path
    -
    2134  svar hl_contents_datasets
    -
    2135  hl_add_objects(ContainerPath, hl_contents_datasets)
    -
    2136  setdatafolder save_df
    -
    2137 end
    -
    2138 
    -
    2139 static function hlp_contents_selection(HostWindow, ListControlName, SelectedItem, EventCode)
    -
    2140  String HostWindow, ListControlName
    -
    2141  String SelectedItem
    -
    2142  Variable EventCode
    -
    2143 
    -
    2144  dfref save_df = GetDataFolderDFR()
    -
    2145  setdatafolder $package_path
    -
    2146 
    -
    2147  switch (eventCode)
    -
    2148  case 3: // double click
    -
    2149  // todo: load dataset?
    -
    2150  break
    -
    2151  case 4: // cell selection
    -
    2152  case 5: // cell selection plus shift key
    -
    2153  update_controls()
    -
    2154  break
    -
    2155  endswitch
    -
    2156 
    -
    2157  setdatafolder save_df
    -
    2158  return 0
    -
    2159 end
    -
    2160 
    -
    2175 static function goto_dataset_folder(filename, datapath)
    -
    2176  string filename
    -
    2177  string datapath
    -
    2178 
    -
    2179  dfref save_df = GetDataFolderDFR()
    -
    2180  setdatafolder $package_path
    -
    2181 
    -
    2182  variable ft = pearl_file_type(filename)
    -
    2183  string parent_folder
    -
    2184  string folder
    -
    2185  string path
    -
    2186 
    -
    2187  switch(ft)
    -
    2188  case 1:
    -
    2189  case 2:
    -
    2190  parent_folder = ad_suggest_foldername(filename)
    -
    2191  path = "root:" + parent_folder
    -
    2192  if (DataFolderExists(path))
    -
    2193  setdatafolder $path
    -
    2194  else
    -
    2195  return -2
    -
    2196  endif
    -
    2197 
    -
    2198  variable nparts = ItemsInList(datapath, "/")
    -
    2199  variable ipart
    -
    2200  for (ipart = 0; ipart < nparts; ipart += 1)
    -
    2201  folder = StringFromList(ipart, datapath, "/")
    -
    2202  path = ":" + ps_fix_folder_name(folder)
    -
    2203  if (DataFolderExists(path))
    -
    2204  setdatafolder $path
    -
    2205  endif
    -
    2206  endfor
    -
    2207  break
    -
    2208 
    -
    2209  case 3:
    -
    2210  parent_folder = "root:" + itx_suggest_foldername(filename)
    -
    2211  if (DataFolderExists(parent_folder))
    -
    2212  setdatafolder $parent_folder
    -
    2213  else
    -
    2214  return -2
    -
    2215  endif
    -
    2216  break
    -
    2217 
    -
    2218  default:
    -
    2219  // unsupported file type
    -
    2220  return -1
    -
    2221  endswitch
    -
    2222 
    -
    2223  return 0
    -
    2224 end
    -
    2225 
    -
    2231 static function bp_goto_dataset(ba) : ButtonControl
    -
    2232  STRUCT WMButtonAction &ba
    -
    2233 
    -
    2234  switch( ba.eventCode )
    -
    2235  case 2: // mouse up
    -
    2236  dfref save_df = GetDataFolderDFR()
    -
    2237  setdatafolder $package_path
    -
    2238  svar s_selected_file
    -
    2239  svar hl_contents_datasets
    -
    2240  string datapath = StringFromList(0, WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents"))
    -
    2241  if (strsearch(hl_contents_datasets, datapath, 0) != 0)
    -
    2242  datapath = datapath + "/"
    -
    2243  endif
    -
    2244  variable result = goto_dataset_folder(s_selected_file, datapath)
    -
    2245  if (result != 0)
    -
    2246  setdatafolder save_df
    -
    2247  string msg
    -
    2248  msg = "Can't find data folder. Has the file been loaded?"
    -
    2249  DoAlert /T="Goto DF" 0, msg
    -
    2250  endif
    -
    2251 
    -
    2252  break
    -
    2253  case -1: // control being killed
    -
    2254  break
    -
    2255  endswitch
    -
    2256 
    -
    2257  return 0
    -
    2258 End
    -
    2259 
    -
    2263 static function bp_display_dataset(ba) : ButtonControl
    -
    2264  STRUCT WMButtonAction &ba
    -
    2265 
    -
    2266  switch( ba.eventCode )
    -
    2267  case 2: // mouse up
    -
    2268  dfref save_df = GetDataFolderDFR()
    -
    2269  setdatafolder $package_path
    -
    2270  svar s_selected_file
    -
    2271  svar hl_contents_datasets
    -
    2272  string datapath = StringFromList(0, WMHL_SelectedObjectsList("PearlDataExplorer", "lb_contents"))
    -
    2273  if (strsearch(hl_contents_datasets, datapath, 0) < 0)
    -
    2274  // path leads to folder
    -
    2275  return 0
    -
    2276  endif
    -
    2277  goto_dataset_folder(s_selected_file, "")
    -
    2278  display_dataset(GetDataFolderDFR(), datapath)
    -
    2279  setdatafolder save_df
    -
    2280  break
    -
    2281  case -1: // control being killed
    -
    2282  break
    -
    2283  endswitch
    -
    2284 
    -
    2285  return 0
    -
    2286 End
    -
    2287 
    -
    2295 static function send_to_elog()
    -
    2296  dfref save_df = GetDataFolderDFR()
    -
    2297 
    -
    2298  dfref preview_df = $package_path
    -
    2299  svar /z /sdfr=preview_df s_selected_file
    -
    2300  svar /z /sdfr=preview_df s_preview_file
    -
    2301  svar /z /sdfr=preview_df s_preview_graph
    -
    2302 
    -
    2303  if (!SVAR_Exists(s_selected_file) || (strlen(s_selected_file) < 1))
    -
    2304  return 0
    -
    2305  endif
    -
    2306 
    -
    2307  // check data folder
    -
    2308  variable result = -1
    -
    2309  result = goto_dataset_folder(s_selected_file, "")
    -
    2310  if (result == 0)
    -
    2311  dfref data_df = GetDataFolderDFR()
    -
    2312  svar /sdfr=data_df /z authors
    -
    2313  if (!svar_Exists(authors))
    -
    2314  result = -1
    -
    2315  endif
    -
    2316  endif
    -
    2317 
    -
    2318  // file info folder
    -
    2319  dfref infoDF = preview_df:file_info
    -
    2320  if ((result != 0) && (DataFolderRefStatus(infoDF)))
    -
    2321  svar /z /sdfr=infoDF s_filepath
    -
    2322  if (SVAR_Exists(s_filepath) && (strsearch(s_filepath, s_selected_file, inf, 1) >= 0))
    -
    2323  dfref data_df = infoDF
    -
    2324  result = 0
    -
    2325  endif
    -
    2326  endif
    -
    2327 
    -
    2328  // check preview (package) folder
    -
    2329  if ((result != 0) && (SVAR_Exists(s_preview_file) && (cmpstr(s_preview_file, s_selected_file) == 0)))
    -
    2330  dfref data_df = preview_df
    -
    2331  result = 0
    -
    2332  endif
    -
    2333 
    -
    2334  string graphname
    -
    2335  if (SVAR_Exists(s_preview_graph) && (WinType(s_preview_graph) == 1))
    -
    2336  graphname = s_preview_graph
    -
    2337  else
    -
    2338  graphname = ""
    -
    2339  endif
    -
    2340 
    -
    2341  if (result == 0)
    -
    2342  set_elog_attributes(data_df, filename=s_selected_file, graphname=graphname)
    -
    2343  string windowname
    -
    2344  windowname = StringFromList(0, WinList("*ElogPanel*", ";", "WIN:64"), ";")
    -
    2345  DoWindow /F $windowname
    -
    2346  endif
    -
    2347 
    -
    2348  setdatafolder save_df
    -
    2349 end
    -
    2350 
    -
    2351 static function bp_elog(ba) : ButtonControl
    -
    2352  STRUCT WMButtonAction &ba
    -
    2353 
    -
    2354  switch( ba.eventCode )
    -
    2355  case 2: // mouse up
    -
    2356  send_to_elog()
    -
    2357  break
    -
    2358  case -1: // control being killed
    -
    2359  break
    -
    2360  endswitch
    -
    2361 
    -
    2362  return 0
    -
    2363 End
    -
    2364 
    +Go to the documentation of this file.
    1#pragma TextEncoding = "UTF-8"
    +
    2#pragma rtGlobals=3 // Use modern global access method and strict wave access.
    +
    3#pragma IgorVersion = 6.36
    +
    4#pragma ModuleName = PearlDataExplorer
    +
    5#pragma version = 2.2
    +
    6#include <HierarchicalListWidget>, version >= 1.14
    +
    7#include "pearl-area-import"
    +
    8#include "pearl-area-profiles"
    +
    9#include "pearl-area-display"
    +
    10#include "pearl-compat"
    +
    11#include "pearl-pshell-import"
    +
    12
    +
    13// copyright (c) 2013-25 Paul Scherrer Institut
    +
    14//
    +
    15// Licensed under the Apache License, Version 2.0 (the "License");
    +
    16// you may not use this file except in compliance with the License.
    +
    17// You may obtain a copy of the License at
    +
    18// http:///www.apache.org/licenses/LICENSE-2.0
    +
    19
    +
    29
    +
    34
    +
    35static strconstant package_name = "pearl_explorer"
    +
    36static strconstant package_path = "root:packages:pearl_explorer:"
    +
    37
    +
    38static strconstant ks_filematch_adh5 = "*.h5"
    +
    39static strconstant ks_filematch_pshell = "psh*.h5"
    +
    40static strconstant ks_filematch_itx = "*.itx"
    +
    41
    +
    +
    47function pearl_data_explorer()
    +
    48 DoWindow /HIDE=0 /F PearlDataExplorer
    +
    49 if (v_flag == 0)
    +
    50 init_package()
    +
    51 load_prefs()
    +
    52 execute /q/z "PearlDataExplorer()"
    +
    53 MakeListIntoHierarchicalList("PearlDataExplorer", "lb_contents", "PearlDataExplorer#hlp_contents_open", selectionMode=WMHL_SelectionNonContinguous, pathSeparator="/")
    +
    54 WMHL_AddColumns("PearlDataExplorer", "lb_contents", 1)
    +
    55 WMHL_SetNotificationProc("PearlDataExplorer", "lb_contents", "PearlDataExplorer#hlp_contents_selection", WMHL_SetSelectNotificationProc)
    +
    56 ListBox lb_contents win=PearlDataExplorer, widths={6,60,20}
    +
    57 update_controls()
    +
    58 endif
    +
    59end
    +
    +
    60
    +
    +
    61static function init_package()
    +
    62 dfref save_df = GetDataFolderDFR()
    +
    63 SetDataFolder root:
    +
    64 newdatafolder /o/s packages
    +
    65 newdatafolder /o/s $package_name
    +
    66 if (exists("v_InitPanelDone") == 2)
    +
    67 SetDataFolder save_df
    +
    68 return 0
    +
    69 endif
    +
    70
    +
    71 make /o/n=0/t wtFiles
    +
    72 make /o/n=0/i wSelectedFiles,wSelectedDatasets
    +
    73 make /o/n=0/t wtDatasets
    +
    74 make /o/n=0/t wtPositioners,wtDetectors
    +
    75 make /o/n=0/i wSelectedPositioners,wSelectedDetectors
    +
    76
    +
    77 make /o/n=(1,1) preview_image // preview 2D data
    +
    78 make /o/n=0 preview_trace // preview 1D data
    +
    79 make /o/n=0/t attr_names, attr_values, attr_filter, attr_filter_summary
    +
    80
    +
    81 // persistent strings and variables. persistent = saved in preferences
    +
    82 string /g s_filepath = "" // directory path to be listed
    +
    83 string /g s_hdf_options = "" // recently used HDF5 load options
    +
    84 string /g s_reduction_params = "" // recently used reduction parameters
    +
    85 string /g s_preview_pvs = "" // semicolon-separated list of EPICS PVs to display in preview.
    +
    86 // the list items can contain wildcards for StringMatch
    +
    87 s_preview_pvs = "*OP:CURRENT*;*Stats*Total*;*KEITHLEY*READOUT;*CADC*"
    +
    88
    +
    89 redimension /n=26 attr_filter_summary
    +
    90 attr_filter_summary[0] = "MonoEnergy"
    +
    91 attr_filter_summary[1] = "MonoGrating"
    +
    92 attr_filter_summary[2] = "ExitSlit"
    +
    93 attr_filter_summary[3] = "FrontendHSize"
    +
    94 attr_filter_summary[4] = "FrontendVSize"
    +
    95 attr_filter_summary[5] = "ManipulatorPhi"
    +
    96 attr_filter_summary[6] = "ManipulatorTheta"
    +
    97 attr_filter_summary[7] = "ManipulatorTilt"
    +
    98 attr_filter_summary[8] = "ManipulatorX"
    +
    99 attr_filter_summary[9] = "ManipulatorY"
    +
    100 attr_filter_summary[10] = "ManipulatorZ"
    +
    101 attr_filter_summary[11] = "PassEnergy"
    +
    102 attr_filter_summary[12] = "LensMode"
    +
    103 attr_filter_summary[13] = "ScientaDwellTime"
    +
    104 attr_filter_summary[14] = "ScientaCenterEnergy"
    +
    105 attr_filter_summary[15] = "ScientaChannelBegin"
    +
    106 attr_filter_summary[16] = "ScientaChannelEnd"
    +
    107 attr_filter_summary[17] = "ScientaSliceBegin"
    +
    108 attr_filter_summary[18] = "ScientaSliceEnd"
    +
    109 attr_filter_summary[19] = "ScientaNumChannels"
    +
    110 attr_filter_summary[20] = "StepSize"
    +
    111 attr_filter_summary[21] = "ScientaNumSlices"
    +
    112 attr_filter_summary[22] = "ManipulatorTempA"
    +
    113 attr_filter_summary[23] = "ManipulatorTempB"
    +
    114 attr_filter_summary[24] = "RefCurrent"
    +
    115 attr_filter_summary[25] = "SampleCurrent"
    +
    116
    +
    117 // non-persistent strings and variables
    +
    118 string /g s_short_filepath = "" // abbreviated directory path
    +
    119 string /g s_selected_file = ""
    +
    120 string /g s_selected_dataset = ""
    +
    121 string /g s_preview_file = "" // file or folder name of the current preview
    +
    122 string /g s_preview_source = "" // data source, e.g. EPICS channel name, of the current preview
    +
    123 string /g s_profiles_graph = "" // window name of the current preview if the data is two-dimensional
    +
    124 string /g s_preview_trace_graph = "" // window name of the current preview if the data is one-dimensional
    +
    125 string /g s_preview_graph = "" // window name of the most recent preview graph
    +
    126 string /g s_file_info = "" // description of selected file
    +
    127 string /g s_result = "" // result of last operation
    +
    128
    +
    129 variable/g v_InitPanelDone = 1
    +
    130
    +
    131 SetDataFolder save_df
    +
    132end
    +
    +
    133
    +
    +
    139static function save_prefs()
    +
    140 dfref save_df = GetDataFolderDFR()
    +
    141 dfref df = $package_path
    +
    142 if (DataFolderRefStatus(df) == 1)
    +
    143 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
    +
    144 fullPath += package_name
    +
    145 NewPath/O/C/Q tempPackagePrefsPath, fullPath
    +
    146 fullPath += ":preferences.pxp"
    +
    147 SetDataFolder df
    +
    148 string objects = "attr_filter;attr_filter_summary;s_filepath;s_hdf_options;s_reduction_params;s_preview_pvs"
    +
    149 SaveData /O /Q /J=objects fullPath
    +
    150 KillPath/Z tempPackagePrefsPath
    +
    151 endif
    +
    152 SetDataFolder save_df
    +
    153end
    +
    +
    154
    +
    +
    155static function load_prefs()
    +
    156 // loads persistent package data from the preferences file
    +
    157 // the preferences file is an Igor packed experiment file in a special preferences folder
    +
    158 dfref save_df = GetDataFolderDFR()
    +
    159
    +
    160 variable result = -1
    +
    161 setdatafolder root:
    +
    162 NewDataFolder /O/S packages
    +
    163 NewDataFolder /O/S $package_name
    +
    164 dfref package_df = GetDataFolderDFR()
    +
    165 string fullPath = SpecialDirPath("Packages", 0, 0, 0)
    +
    166 fullPath += package_name
    +
    167
    +
    168 GetFileFolderInfo /Q /Z fullPath
    +
    169 if (V_Flag == 0) // Disk directory exists?
    +
    170 fullPath += ":preferences.pxp"
    +
    171 GetFileFolderInfo /Q /Z fullPath
    +
    172 if (V_Flag == 0) // Preference file exist?
    +
    173 LoadData /O /R /Q fullPath
    +
    174 result = 0
    +
    175 endif
    +
    176 endif
    +
    177
    +
    178 if (result == 0)
    +
    179 svar /sdfr=package_df filepath = s_filepath
    +
    180 NewPath /O/Z pearl_explorer_filepath, filepath
    +
    181 update_filepath()
    +
    182 update_filelist()
    +
    183 endif
    +
    184
    +
    185 SetDataFolder save_df
    +
    186 return result
    +
    187end
    +
    +
    188
    +
    +
    199static function pearl_file_type(filename)
    +
    200 string filename
    +
    201
    +
    202 if (StringMatch(filename, ks_filematch_pshell))
    +
    203 return 1
    +
    204 elseif (StringMatch(filename, ks_filematch_adh5))
    +
    205 return 2
    +
    206 elseif (StringMatch(filename, ks_filematch_itx))
    +
    207 return 3
    +
    208 else
    +
    209 return 0
    +
    210 endif
    +
    211end
    +
    +
    212
    +
    +
    218static function update_filepath()
    +
    219 PathInfo /S pearl_explorer_filepath
    +
    220 svar filepath = $(package_path + "s_filepath")
    +
    221 svar shortpath = $(package_path + "s_short_filepath")
    +
    222 filepath = s_path
    +
    223 shortpath = shorten_filepath(filepath, 40)
    +
    224end
    +
    +
    225
    +
    +
    231static function update_filelist()
    +
    232 dfref save_df = GetDataFolderDFR()
    +
    233
    +
    234 string all_files
    +
    235 wave /t wtFiles = $(package_path + "wtFiles")
    +
    236 wave wSelectedFiles = $(package_path + "wSelectedFiles")
    +
    237 variable nn
    +
    238
    +
    239 PathInfo pearl_explorer_filepath
    +
    240 if (v_flag == 1)
    +
    241 all_files = IndexedFile(pearl_explorer_filepath, -1, "????")
    +
    242 nn = ItemsInList(all_files)
    +
    243 else
    +
    244 all_files = ""
    +
    245 nn = 0
    +
    246 endif
    +
    247
    +
    248 make /n=(nn) /t /free wtAllFiles
    +
    249 wtAllFiles = StringFromList(p, all_files)
    +
    250 Extract /o /t wtAllFiles, wtFiles, pearl_file_type(wtAllFiles[p])
    +
    251 Sort /A /R wtFiles, wtFiles
    +
    252
    +
    253 redimension /n=(numpnts(wtFiles)) wSelectedFiles
    +
    254 wSelectedFiles = 0
    +
    255
    +
    256 setdatafolder save_df
    +
    257end
    +
    +
    258
    +
    259// ====== metadata ======
    +
    260
    +
    +
    273static function get_file_info(filename)
    +
    274 string filename
    +
    275
    +
    276 dfref save_df = GetDataFolderDFR()
    +
    277 dfref package_df = $package_path
    +
    278
    +
    279 variable ft = pearl_file_type(filename)
    +
    280 variable result = 0
    +
    281
    +
    282 switch(ft)
    +
    283 case 1:
    +
    284 case 2:
    +
    285 dfref file_df = get_pshell_info("pearl_explorer_filepath", filename)
    +
    286 result = hl_contents_update(file_df)
    +
    287 result = result >= 3 ? 0 : -2
    +
    288 break
    +
    289 default:
    +
    290 hl_contents_clear()
    +
    291 dfref file_df = package_df:file_info
    +
    292 KillDataFolder /z file_df
    +
    293 result = -1
    +
    294 endswitch
    +
    295
    +
    296 setdatafolder save_df
    +
    297 return result
    +
    298end
    +
    +
    299
    +
    +
    301static function attributes_notebook(filename)
    +
    302 string filename
    +
    303
    +
    304 dfref save_df = GetDataFolderDFR()
    +
    305 dfref temp_df = NewFreeDataFolder()
    +
    306
    +
    307 load_file(filename, options="mode:load_diags", dest_df=temp_df, quiet=1)
    +
    308 svar /sdfr=temp_df /z s_loaded_datasets
    +
    309 string scan
    +
    310 dfref scan_df
    +
    311 if (SVAR_Exists(s_loaded_datasets) && (strlen(s_loaded_datasets) >= 4))
    +
    312 scan = StringFromList(0, psh5_extract_scan_paths(s_loaded_datasets), ";")
    +
    313 scan_df = psh5_dataset_to_folder(temp_df, scan)
    +
    314 else
    +
    315 scan_df = temp_df
    +
    316 endif
    +
    317
    +
    318 dfref attr_df = ps_find_attr_folder(scan_df)
    +
    319 if (DataFolderRefStatus(attr_df))
    +
    320 extract_attributes(attr_df, dest_df=temp_df)
    +
    321 wave /t /sdfr=temp_df /z attr_names
    +
    322 wave /t /sdfr=temp_df /z attr_values
    +
    323 if (WaveExists(attr_names) && WaveExists(attr_values))
    +
    324 create_attributes_notebook(attr_names, attr_values, filename)
    +
    325 endif
    +
    326 endif
    +
    327
    +
    328 setdatafolder save_df
    +
    329end
    +
    +
    330
    +
    +
    347static function extract_attributes(attr_df, [dest_df, attr_filter, include_datawaves, include_infowaves])
    +
    348 dfref attr_df
    +
    349 dfref dest_df
    +
    350 wave /t attr_filter
    +
    351 variable include_datawaves
    +
    352 variable include_infowaves
    +
    353
    +
    354 dfref save_df = GetDataFolderDFR()
    +
    355 dfref package_df = $package_path
    +
    356
    +
    357 if (ParamIsDefault(dest_df))
    +
    358 dest_df = GetDataFolderDFR()
    +
    359 endif
    +
    360 if (ParamIsDefault(attr_filter) || !WaveExists(attr_filter))
    +
    361 wave /t /sdfr=package_df /z attr_filter
    +
    362 endif
    +
    363 if (ParamIsDefault(include_datawaves))
    +
    364 include_datawaves = 1
    +
    365 endif
    +
    366 if (ParamIsDefault(include_infowaves))
    +
    367 include_infowaves = 1
    +
    368 endif
    +
    369
    +
    370 setdatafolder dest_df
    +
    371 wave /t /z attr_names, attr_values
    +
    372 if (!WaveExists(attr_names) || !WaveExists(attr_values))
    +
    373 make /n=(1) /o /t attr_names, attr_values
    +
    374 endif
    +
    375 attr_names = ""
    +
    376 attr_values = ""
    +
    377
    +
    378 setdatafolder attr_df
    +
    379 wave /t /z IN
    +
    380 wave /t /z ID
    +
    381 wave /t /z IV
    +
    382 wave /t /z IU
    +
    383
    +
    384 // compile list of attributes
    +
    385 variable nattr // destination attributes
    +
    386 variable iattr
    +
    387 variable ninfo // info wave elements
    +
    388 variable iinfo
    +
    389 variable nw // attribute waves
    +
    390 variable iw
    +
    391 string sw
    +
    392 string ss
    +
    393
    +
    394 if (WaveExists(IN) && include_infowaves)
    +
    395 ninfo = numpnts(IN)
    +
    396 else
    +
    397 ninfo = 0
    +
    398 endif
    +
    399 if (include_datawaves)
    +
    400 string waves = WaveList("*", ";", "")
    +
    401 string exceptions = "ID;IN;IU;IV"
    +
    402 waves = RemoveFromList(exceptions, waves)
    +
    403 nw = ItemsInList(waves, ";")
    +
    404 else
    +
    405 nw = 0
    +
    406 endif
    +
    407
    +
    408 if (WaveExists(attr_filter) && (numpnts(attr_filter) >= 1))
    +
    409 nattr = numpnts(attr_filter)
    +
    410 redimension /n=(nattr) attr_names
    +
    411 attr_names = attr_filter
    +
    412 else
    +
    413 if(ninfo > 0)
    +
    414 redimension /n=(ninfo) attr_names
    +
    415 attr_names = SelectString(strlen(ID[p]) >= 0, IN[p], ID[p]) // use ID unless empty
    +
    416 endif
    +
    417
    +
    418 nattr = ninfo + nw
    +
    419 iattr = ninfo
    +
    420 redimension /n=(nattr) attr_names
    +
    421 for (iw = 0; iw < nw; iw +=1 )
    +
    422 sw = StringFromList(iw, waves, ";")
    +
    423 ss = StringByKey("PV", note($sw), "=", "\r")
    +
    424 FindValue /text=sw attr_names
    +
    425 if ((v_value < 0) && (strlen(ss) >= 0))
    +
    426 attr_names[iattr] = sw
    +
    427 iattr += 1
    +
    428 endif
    +
    429 endfor
    +
    430 nattr = iattr
    +
    431 endif
    +
    432 redimension /n=(nattr) attr_names, attr_values
    +
    433 sort attr_names, attr_names
    +
    434
    +
    435 // look up attribute values
    +
    436 for (iattr = 0; iattr < nattr; iattr += 1)
    +
    437 sw = attr_names[iattr]
    +
    438 // try info waves
    +
    439 if (ninfo > 0)
    +
    440 FindValue /text=sw ID
    +
    441 if (v_value >= 0)
    +
    442 attr_values[iattr] = IV[v_value]
    +
    443 endif
    +
    444 FindValue /text=sw IN
    +
    445 if (v_value >= 0)
    +
    446 attr_values[iattr] = IV[v_value]
    +
    447 endif
    +
    448 endif
    +
    449
    +
    450 // override from attribute wave if existent
    +
    451 if (nw > 0)
    +
    452 switch (WaveType($sw, 1))
    +
    453 case 1: // numeric
    +
    454 wave /z w = $sw
    +
    455 if (WaveExists(w) && (numpnts(w) >= 1))
    +
    456 sprintf ss, "%g", w[0]
    +
    457 attr_values[iattr] = ss
    +
    458 endif
    +
    459 break
    +
    460 case 2: // text
    +
    461 wave /t/z wt = $sw
    +
    462 if (WaveExists(wt) && (numpnts(wt) >= 1))
    +
    463 attr_values[iattr] = wt[0]
    +
    464 endif
    +
    465 break
    +
    466 endswitch
    +
    467 endif
    +
    468 endfor
    +
    469
    +
    470 setdatafolder save_df
    +
    471end
    +
    +
    472
    +
    +
    473function test_attributes_notebook()
    +
    474 dfref df = GetDataFolderDFR()
    +
    475 wave /t /sdfr=df attr_names
    +
    476 wave /t /sdfr=df attr_values
    +
    477 create_attributes_notebook(attr_names, attr_values, GetDataFolder(0))
    +
    478end
    +
    +
    479
    +
    +
    480static function create_attributes_notebook(attr_names, attr_values, title)
    +
    481 wave /t attr_names
    +
    482 wave /t attr_values
    +
    483 string title
    +
    484
    +
    485 dfref save_df = GetDataFolderDFR()
    +
    486 setdatafolder $package_path
    +
    487 wave /t/z attr_filter, attr_filter_summary
    +
    488
    +
    489 string name = PearlCleanupName("nb_" + title[0,27])
    +
    490 if (WinType(name) == 5)
    +
    491 Notebook $name selection={startOfFile, endOfFile}
    +
    492 Notebook $name text=""
    +
    493 else
    +
    494 NewNotebook /F=1 /K=1 /N=$name as title
    +
    495 GetWindow $name wsize
    +
    496 v_right = v_left + 260
    +
    497 v_bottom = v_top + 360
    +
    498 MoveWindow /W=$name v_left, v_top, v_right, v_bottom
    +
    499 Notebook $name tabs={2*72}
    +
    500 endif
    +
    501
    +
    502 // summary
    +
    503 if (WaveExists(attr_filter_summary) && (numpnts(attr_filter_summary) >= 1))
    +
    504 notebook $name fStyle=1, text="Summary\r\r"
    +
    505 notebook $name fStyle=0
    +
    506 notebook_add_attributes(name, attr_filter_summary, attr_names, attr_values)
    +
    507 notebook $name text="\r"
    +
    508 endif
    +
    509
    +
    510 // all attributes
    +
    511 notebook $name fStyle=1, text="All Attributes\r\r"
    +
    512 notebook $name fStyle=0
    +
    513 notebook_add_attributes(name, $"", attr_names, attr_values)
    +
    514 notebook $name selection={startOfFile,startOfFile}, findText={"",1}
    +
    515
    +
    516 setdatafolder save_df
    +
    517end
    +
    +
    518
    +
    +
    519static function notebook_add_attributes(notebook_name, attr_filter, attr_names, attr_values)
    +
    520 string notebook_name
    +
    521 wave /t /z attr_filter
    +
    522 wave /t attr_names
    +
    523 wave /t attr_values
    +
    524
    +
    525 variable nw = numpnts(attr_names)
    +
    526 variable iw
    +
    527 string sw
    +
    528 string ss
    +
    529
    +
    530 variable do_filter = WaveExists(attr_filter)
    +
    531
    +
    532 for (iw = 0; iw < nw; iw += 1)
    +
    533 if (do_filter)
    +
    534 sw = attr_names[iw]
    +
    535 FindValue /text=sw attr_filter
    +
    536 else
    +
    537 v_value = 0
    +
    538 endif
    +
    539 if (v_value >= 0)
    +
    540 sprintf ss, "%s\t%s\r", attr_names[iw], attr_values[iw]
    +
    541 notebook $notebook_name text=ss
    +
    542 endif
    +
    543 endfor
    +
    544end
    +
    +
    545
    +
    546// ====== preview ======
    +
    547
    +
    +
    548static function preview_file(filename)
    +
    549 string filename
    +
    550
    +
    551 dfref save_df = GetDataFolderDFR()
    +
    552 dfref preview_df = $package_path
    +
    553
    +
    554 killStrings /z authors, pgroup, proposal, proposer, sample
    +
    555
    +
    556 variable ft = pearl_file_type(filename)
    +
    557 switch(ft)
    +
    558 case 1:
    +
    559 wave /z image = preview_pshell_file(filename)
    +
    560 break
    +
    561 case 2:
    +
    562 wave /z image = preview_hdf_file(filename)
    +
    563 break
    +
    564 case 3:
    +
    565 wave /z image = preview_itx_file(filename)
    +
    566 break
    +
    567 default:
    +
    568 wave /z image = $""
    +
    569 endswitch
    +
    570
    +
    571 if (WaveExists(image))
    +
    572 show_preview_graph(image)
    +
    573 endif
    +
    574
    +
    575 setdatafolder save_df
    +
    576 return 0
    +
    577end
    +
    +
    578
    +
    +