pearl-public/igor-public
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
igor-public/doc/html/pearl-anglescan-process_8ipf_source.html
matthias muntwiler 17036e1daa minor bug fixes in angle-scan import and documentation 
- find attributes of region scans in angle-scan panel
- more detailed description of reduced import with regions
2018-03-13 12:43:29 +01:00

191 lines
347 KiB
HTML
Raw Blame History

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.11"/>
<title>PEARL Procedures: pearl-anglescan-process.ipf Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtreedata.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
$(document).ready(initResizable);
$(window).load(resizeHeight);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
$(document).ready(function() { init_search(); });
</script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td id="projectalign" style="padding-left: 0.5em;">
<div id="projectname">PEARL Procedures
&#160;<span id="projectnumber">rev-distro-2.0.0-0-gfda49c3-dirty</span>
</div>
<div id="projectbrief">Igor procedures for the analysis of PEARL data</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.11 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="index.html"><span>Main&#160;Page</span></a></li>
<li><a href="pages.html"><span>Related&#160;Pages</span></a></li>
<li><a href="modules.html"><span>Packages</span></a></li>
<li><a href="namespaces.html"><span>Namespaces</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
<li>
<div id="MSearchBox" class="MSearchBoxInactive">
<span class="left">
<img id="MSearchSelect" src="search/mag_sel.png"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
alt=""/>
<input type="text" id="MSearchField" value="Search" accesskey="S"
onfocus="searchBox.OnSearchFieldFocus(true)"
onblur="searchBox.OnSearchFieldFocus(false)"
onkeyup="searchBox.OnSearchFieldChange(event)"/>
</span><span class="right">
<a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
</span>
</div>
</li>
</ul>
</div>
<div id="navrow2" class="tabs2">
<ul class="tablist">
<li><a href="files.html"><span>File&#160;List</span></a></li>
<li><a href="globals.html"><span>Globals</span></a></li>
</ul>
</div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
<div id="nav-tree">
<div id="nav-tree-contents">
<div id="nav-sync" class="sync"></div>
</div>
</div>
<div id="splitbar" style="-moz-user-select:none;"
class="ui-resizable-handle">
</div>
</div>
<script type="text/javascript">
$(document).ready(function(){initNavTree('pearl-anglescan-process_8ipf_source.html','');});
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0"
name="MSearchResults" id="MSearchResults">
</iframe>
</div>
<div class="header">
<div class="headertitle">
<div class="title">pearl-anglescan-process.ipf</div> </div>
</div><!--header-->
<div class="contents">
<a href="pearl-anglescan-process_8ipf.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span>&#160;<span class="preprocessor">#pragma rtGlobals=3// Use modern global access method and strict wave access.</span></div><div class="line"><a name="l00002"></a><span class="lineno"> 2</span>&#160;<span class="preprocessor">#pragma version = 1.8</span></div><div class="line"><a name="l00003"></a><span class="lineno"> 3</span>&#160;<span class="preprocessor">#pragma IgorVersion = 6.2</span></div><div class="line"><a name="l00004"></a><span class="lineno"> 4</span>&#160;<span class="preprocessor">#pragma ModuleName = PearlAnglescanProcess</span></div><div class="line"><a name="l00005"></a><span class="lineno"> 5</span>&#160;<span class="preprocessor">#include &quot;pearl-vector-operations&quot;</span></div><div class="line"><a name="l00006"></a><span class="lineno"> 6</span>&#160;<span class="preprocessor">#include &quot;pearl-polar-coordinates&quot;</span></div><div class="line"><a name="l00007"></a><span class="lineno"> 7</span>&#160;<span class="preprocessor">#include &lt;New Polar Graphs&gt;</span></div><div class="line"><a name="l00008"></a><span class="lineno"> 8</span>&#160;</div><div class="line"><a name="l00009"></a><span class="lineno"> 9</span>&#160;<span class="comment">// copyright (c) 2013-17 Paul Scherrer Institut</span></div><div class="line"><a name="l00010"></a><span class="lineno"> 10</span>&#160;<span class="comment">//</span></div><div class="line"><a name="l00011"></a><span class="lineno"> 11</span>&#160;<span class="comment">// Licensed under the Apache License, Version 2.0 (the &quot;License&quot;);</span></div><div class="line"><a name="l00012"></a><span class="lineno"> 12</span>&#160;<span class="comment">// you may not use this file except in compliance with the License.</span></div><div class="line"><a name="l00013"></a><span class="lineno"> 13</span>&#160;<span class="comment">// You may obtain a copy of the License at</span></div><div class="line"><a name="l00014"></a><span class="lineno"> 14</span>&#160;<span class="comment">// http:///www.apache.org/licenses/LICENSE-2.0</span></div><div class="line"><a name="l00015"></a><span class="lineno"> 15</span>&#160;<span class="comment">//</span></div><div class="line"><a name="l00016"></a><span class="lineno"> 16</span>&#160;<span class="comment">// Please acknowledge the use of this code.</span></div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span>&#160;</div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span>&#160;</div><div class="line"><a name="l00081"></a><span class="lineno"> 81</span>&#160;</div><div class="line"><a name="l00082"></a><span class="lineno"> 82</span>&#160;</div><div class="line"><a name="l00105"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a13e0d37ae23f68cdc5da3d84cb4beed8"> 105</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a13e0d37ae23f68cdc5da3d84cb4beed8">strip_delete_frames</a>(wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi){</div><div class="line"><a name="l00106"></a><span class="lineno"> 106</span>&#160; wave strip<span class="comment">// 2D data, X-axis = analyser angle, Y-axis = arbitrary manipulator scan</span></div><div class="line"><a name="l00107"></a><span class="lineno"> 107</span>&#160; variable qlo</div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span>&#160; variable qhi</div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span>&#160; wave theta</div><div class="line"><a name="l00110"></a><span class="lineno"> 110</span>&#160; wave tilt</div><div class="line"><a name="l00111"></a><span class="lineno"> 111</span>&#160; wave phi</div><div class="line"><a name="l00112"></a><span class="lineno"> 112</span>&#160; </div><div class="line"><a name="l00113"></a><span class="lineno"> 113</span>&#160; <span class="keywordflow">if</span> (qlo &gt; qhi)</div><div class="line"><a name="l00114"></a><span class="lineno"> 114</span>&#160; <span class="keywordflow">return</span> -1</div><div class="line"><a name="l00115"></a><span class="lineno"> 115</span>&#160; endif</div><div class="line"><a name="l00116"></a><span class="lineno"> 116</span>&#160; </div><div class="line"><a name="l00117"></a><span class="lineno"> 117</span>&#160; <span class="comment">// source indices</span></div><div class="line"><a name="l00118"></a><span class="lineno"> 118</span>&#160; variable snx = dimsize(strip, 0)</div><div class="line"><a name="l00119"></a><span class="lineno"> 119</span>&#160; variable sny = dimsize(strip, 1)</div><div class="line"><a name="l00120"></a><span class="lineno"> 120</span>&#160; variable sq1lo = 0</div><div class="line"><a name="l00121"></a><span class="lineno"> 121</span>&#160; variable sq1hi = max(qlo-1, 0)</div><div class="line"><a name="l00122"></a><span class="lineno"> 122</span>&#160; variable sq2lo = min(qhi+1, sny - 1)</div><div class="line"><a name="l00123"></a><span class="lineno"> 123</span>&#160; variable sq2hi = dimsize(strip, 1) - 1</div><div class="line"><a name="l00124"></a><span class="lineno"> 124</span>&#160; </div><div class="line"><a name="l00125"></a><span class="lineno"> 125</span>&#160; <span class="comment">// dest indices</span></div><div class="line"><a name="l00126"></a><span class="lineno"> 126</span>&#160; variable dnx = snx</div><div class="line"><a name="l00127"></a><span class="lineno"> 127</span>&#160; variable dny = sny - (sq2lo - sq1hi + 1)</div><div class="line"><a name="l00128"></a><span class="lineno"> 128</span>&#160; variable dq1lo = 0</div><div class="line"><a name="l00129"></a><span class="lineno"> 129</span>&#160; variable dq1hi = sq1hi</div><div class="line"><a name="l00130"></a><span class="lineno"> 130</span>&#160; variable dq2lo = dq1hi + 1</div><div class="line"><a name="l00131"></a><span class="lineno"> 131</span>&#160; variable dq2hi = dny - 1</div><div class="line"><a name="l00132"></a><span class="lineno"> 132</span>&#160; variable q1ofs = sq1lo - dq1lo</div><div class="line"><a name="l00133"></a><span class="lineno"> 133</span>&#160; variable q2ofs = sq2lo - dq2lo</div><div class="line"><a name="l00134"></a><span class="lineno"> 134</span>&#160; </div><div class="line"><a name="l00135"></a><span class="lineno"> 135</span>&#160; duplicate /free strip, strip_copy</div><div class="line"><a name="l00136"></a><span class="lineno"> 136</span>&#160; redimension /n=(dnx,dny) strip</div><div class="line"><a name="l00137"></a><span class="lineno"> 137</span>&#160; strip[][dq1lo,dq1hi] = strip_copy[p][q + q1ofs]</div><div class="line"><a name="l00138"></a><span class="lineno"> 138</span>&#160; strip[][dq2lo,dq2hi] = strip_copy[p][q + q2ofs]</div><div class="line"><a name="l00139"></a><span class="lineno"> 139</span>&#160; </div><div class="line"><a name="l00140"></a><span class="lineno"> 140</span>&#160; duplicate /free theta, theta_copy</div><div class="line"><a name="l00141"></a><span class="lineno"> 141</span>&#160; redimension /n=(dny) theta</div><div class="line"><a name="l00142"></a><span class="lineno"> 142</span>&#160; theta[dq1lo,dq1hi] = theta_copy[p + q1ofs]</div><div class="line"><a name="l00143"></a><span class="lineno"> 143</span>&#160; theta[dq2lo,dq2hi] = theta_copy[p + q2ofs]</div><div class="line"><a name="l00144"></a><span class="lineno"> 144</span>&#160; </div><div class="line"><a name="l00145"></a><span class="lineno"> 145</span>&#160; duplicate /free tilt, tilt_copy</div><div class="line"><a name="l00146"></a><span class="lineno"> 146</span>&#160; redimension /n=(dny) tilt</div><div class="line"><a name="l00147"></a><span class="lineno"> 147</span>&#160; tilt[dq1lo,dq1hi] = tilt_copy[p + q1ofs]</div><div class="line"><a name="l00148"></a><span class="lineno"> 148</span>&#160; tilt[dq2lo,dq2hi] = tilt_copy[p + q2ofs]</div><div class="line"><a name="l00149"></a><span class="lineno"> 149</span>&#160; </div><div class="line"><a name="l00150"></a><span class="lineno"> 150</span>&#160; duplicate /free phi, phi_copy</div><div class="line"><a name="l00151"></a><span class="lineno"> 151</span>&#160; redimension /n=(dny) phi</div><div class="line"><a name="l00152"></a><span class="lineno"> 152</span>&#160; phi[dq1lo,dq1hi] = phi_copy[p + q1ofs]</div><div class="line"><a name="l00153"></a><span class="lineno"> 153</span>&#160; phi[dq2lo,dq2hi] = phi_copy[p + q2ofs]</div><div class="line"><a name="l00154"></a><span class="lineno"> 154</span>&#160; </div><div class="line"><a name="l00155"></a><span class="lineno"> 155</span>&#160; <span class="keywordflow">return</span> 0</div><div class="line"><a name="l00156"></a><span class="lineno"> 156</span>&#160;};</div><div class="line"><a name="l00157"></a><span class="lineno"> 157</span>&#160;</div><div class="line"><a name="l00185"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a48b7d774ed8d3f4329e9923e18e580e8"> 185</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a48b7d774ed8d3f4329e9923e18e580e8">normalize_strip_x</a>(wave strip, variable smooth_method = defaultValue, variable smooth_factor = defaultValue, variable check = defaultValue){</div><div class="line"><a name="l00186"></a><span class="lineno"> 186</span>&#160; wave strip</div><div class="line"><a name="l00187"></a><span class="lineno"> 187</span>&#160; variable smooth_method</div><div class="line"><a name="l00188"></a><span class="lineno"> 188</span>&#160; variable smooth_factor</div><div class="line"><a name="l00189"></a><span class="lineno"> 189</span>&#160; variable check</div><div class="line"><a name="l00190"></a><span class="lineno"> 190</span>&#160; </div><div class="line"><a name="l00191"></a><span class="lineno"> 191</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_method))</div><div class="line"><a name="l00192"></a><span class="lineno"> 192</span>&#160; smooth_method = 4</div><div class="line"><a name="l00193"></a><span class="lineno"> 193</span>&#160; endif</div><div class="line"><a name="l00194"></a><span class="lineno"> 194</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_factor))</div><div class="line"><a name="l00195"></a><span class="lineno"> 195</span>&#160; <span class="keywordflow">switch</span>(smooth_method)</div><div class="line"><a name="l00196"></a><span class="lineno"> 196</span>&#160; <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l00197"></a><span class="lineno"> 197</span>&#160; smooth_factor = 0.5</div><div class="line"><a name="l00198"></a><span class="lineno"> 198</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00199"></a><span class="lineno"> 199</span>&#160; <span class="keywordflow">default</span>:</div><div class="line"><a name="l00200"></a><span class="lineno"> 200</span>&#160; smooth_factor = 2</div><div class="line"><a name="l00201"></a><span class="lineno"> 201</span>&#160; endswitch</div><div class="line"><a name="l00202"></a><span class="lineno"> 202</span>&#160; endif</div><div class="line"><a name="l00203"></a><span class="lineno"> 203</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(check))</div><div class="line"><a name="l00204"></a><span class="lineno"> 204</span>&#160; check = 0</div><div class="line"><a name="l00205"></a><span class="lineno"> 205</span>&#160; endif</div><div class="line"><a name="l00206"></a><span class="lineno"> 206</span>&#160; </div><div class="line"><a name="l00207"></a><span class="lineno"> 207</span>&#160; <span class="comment">// average over all scan positions</span></div><div class="line"><a name="l00208"></a><span class="lineno"> 208</span>&#160; wave dist = <a class="code" href="pearl-area-profiles_8ipf.html#ab1a65cf82f6933db3dd7b564582e8ed1">ad_profile_x</a>(strip, -inf, inf, <span class="stringliteral">&quot;&quot;</span>)</div><div class="line"><a name="l00209"></a><span class="lineno"> 209</span>&#160; variable div = mean(dist)</div><div class="line"><a name="l00210"></a><span class="lineno"> 210</span>&#160; dist /= div</div><div class="line"><a name="l00211"></a><span class="lineno"> 211</span>&#160;</div><div class="line"><a name="l00212"></a><span class="lineno"> 212</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00213"></a><span class="lineno"> 213</span>&#160; duplicate /o dist, check_dist</div><div class="line"><a name="l00214"></a><span class="lineno"> 214</span>&#160; endif</div><div class="line"><a name="l00215"></a><span class="lineno"> 215</span>&#160; </div><div class="line"><a name="l00216"></a><span class="lineno"> 216</span>&#160; <span class="comment">// smooth distribution function</span></div><div class="line"><a name="l00217"></a><span class="lineno"> 217</span>&#160; <span class="keywordflow">switch</span>(smooth_method)</div><div class="line"><a name="l00218"></a><span class="lineno"> 218</span>&#160; <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l00219"></a><span class="lineno"> 219</span>&#160; Smooth /B /E=3 smooth_factor, dist</div><div class="line"><a name="l00220"></a><span class="lineno"> 220</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00221"></a><span class="lineno"> 221</span>&#160; <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l00222"></a><span class="lineno"> 222</span>&#160; Smooth /E=3 smooth_factor, dist</div><div class="line"><a name="l00223"></a><span class="lineno"> 223</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00224"></a><span class="lineno"> 224</span>&#160; <span class="keywordflow">case</span> 3:</div><div class="line"><a name="l00225"></a><span class="lineno"> 225</span>&#160; make /n=1 /d /free fit_params</div><div class="line"><a name="l00226"></a><span class="lineno"> 226</span>&#160; fit_scienta_ang_transm(dist, fit_params)</div><div class="line"><a name="l00227"></a><span class="lineno"> 227</span>&#160; dist = scienta_ang_transm(fit_params, x)</div><div class="line"><a name="l00228"></a><span class="lineno"> 228</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00229"></a><span class="lineno"> 229</span>&#160; <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l00230"></a><span class="lineno"> 230</span>&#160; loess /smth=(smooth_factor) srcWave=dist</div><div class="line"><a name="l00231"></a><span class="lineno"> 231</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00232"></a><span class="lineno"> 232</span>&#160; endswitch</div><div class="line"><a name="l00233"></a><span class="lineno"> 233</span>&#160; </div><div class="line"><a name="l00234"></a><span class="lineno"> 234</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00235"></a><span class="lineno"> 235</span>&#160; duplicate /o dist, check_smoo</div><div class="line"><a name="l00236"></a><span class="lineno"> 236</span>&#160; endif</div><div class="line"><a name="l00237"></a><span class="lineno"> 237</span>&#160;</div><div class="line"><a name="l00238"></a><span class="lineno"> 238</span>&#160; <span class="comment">// divide</span></div><div class="line"><a name="l00239"></a><span class="lineno"> 239</span>&#160; <span class="keywordflow">if</span> (check != 2)</div><div class="line"><a name="l00240"></a><span class="lineno"> 240</span>&#160; strip /= dist[p]</div><div class="line"><a name="l00241"></a><span class="lineno"> 241</span>&#160; endif</div><div class="line"><a name="l00242"></a><span class="lineno"> 242</span>&#160;};</div><div class="line"><a name="l00243"></a><span class="lineno"> 243</span>&#160;</div><div class="line"><a name="l00270"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aaa734fddecdd75c7cabe20ba777b41b9"> 270</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#aaa734fddecdd75c7cabe20ba777b41b9">normalize_strip_phi</a>(wave strip, wave theta, wave phi, variable theta_offset = defaultValue, variable theta_range = defaultValue, variable check = defaultValue){</div><div class="line"><a name="l00271"></a><span class="lineno"> 271</span>&#160; wave strip</div><div class="line"><a name="l00272"></a><span class="lineno"> 272</span>&#160; wave theta</div><div class="line"><a name="l00273"></a><span class="lineno"> 273</span>&#160; wave phi</div><div class="line"><a name="l00274"></a><span class="lineno"> 274</span>&#160; variable theta_offset</div><div class="line"><a name="l00275"></a><span class="lineno"> 275</span>&#160; variable theta_range</div><div class="line"><a name="l00276"></a><span class="lineno"> 276</span>&#160; variable check</div><div class="line"><a name="l00277"></a><span class="lineno"> 277</span>&#160; </div><div class="line"><a name="l00278"></a><span class="lineno"> 278</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(check))</div><div class="line"><a name="l00279"></a><span class="lineno"> 279</span>&#160; check = 0</div><div class="line"><a name="l00280"></a><span class="lineno"> 280</span>&#160; endif</div><div class="line"><a name="l00281"></a><span class="lineno"> 281</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(theta_offset))</div><div class="line"><a name="l00282"></a><span class="lineno"> 282</span>&#160; theta_offset = 0</div><div class="line"><a name="l00283"></a><span class="lineno"> 283</span>&#160; endif</div><div class="line"><a name="l00284"></a><span class="lineno"> 284</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(theta_range))</div><div class="line"><a name="l00285"></a><span class="lineno"> 285</span>&#160; theta_offset = 10</div><div class="line"><a name="l00286"></a><span class="lineno"> 286</span>&#160; endif</div><div class="line"><a name="l00287"></a><span class="lineno"> 287</span>&#160;</div><div class="line"><a name="l00288"></a><span class="lineno"> 288</span>&#160; <span class="comment">// average over analyser angles</span></div><div class="line"><a name="l00289"></a><span class="lineno"> 289</span>&#160; wave dist = <a class="code" href="pearl-area-profiles_8ipf.html#abb1eed32a982037ebab00f5c3ea95e62">ad_profile_y</a>(strip, -inf, inf, <span class="stringliteral">&quot;&quot;</span>)</div><div class="line"><a name="l00290"></a><span class="lineno"> 290</span>&#160; </div><div class="line"><a name="l00291"></a><span class="lineno"> 291</span>&#160; <span class="comment">// smooth distribution function</span></div><div class="line"><a name="l00292"></a><span class="lineno"> 292</span>&#160; duplicate /free dist, dist_smoo</div><div class="line"><a name="l00293"></a><span class="lineno"> 293</span>&#160; duplicate /free theta, theta_int</div><div class="line"><a name="l00294"></a><span class="lineno"> 294</span>&#160; theta_int = theta - theta_offset</div><div class="line"><a name="l00295"></a><span class="lineno"> 295</span>&#160; duplicate /free phi, phi_int</div><div class="line"><a name="l00296"></a><span class="lineno"> 296</span>&#160; setscale /p x phi_int[0], phi_int[1] - phi_int[0], waveunits(phi, -1), dist, dist_smoo</div><div class="line"><a name="l00297"></a><span class="lineno"> 297</span>&#160;</div><div class="line"><a name="l00298"></a><span class="lineno"> 298</span>&#160; extract /free /indx dist, red_idx, theta_int &lt; theta_range</div><div class="line"><a name="l00299"></a><span class="lineno"> 299</span>&#160; duplicate /free red_idx, red_dist, red_phi</div><div class="line"><a name="l00300"></a><span class="lineno"> 300</span>&#160; red_dist = dist[red_idx]</div><div class="line"><a name="l00301"></a><span class="lineno"> 301</span>&#160; red_phi = phi_int[red_idx]</div><div class="line"><a name="l00302"></a><span class="lineno"> 302</span>&#160; </div><div class="line"><a name="l00303"></a><span class="lineno"> 303</span>&#160; variable wavg = mean(red_dist)</div><div class="line"><a name="l00304"></a><span class="lineno"> 304</span>&#160; make /n=4 /d /free coef</div><div class="line"><a name="l00305"></a><span class="lineno"> 305</span>&#160; coef[0] = {wavg, wavg/100, pi/180, 0}</div><div class="line"><a name="l00306"></a><span class="lineno"> 306</span>&#160; CurveFit /q /h=<span class="stringliteral">&quot;0010&quot;</span> /g /w=2 sin, kwcWave=coef, red_dist /x=red_phi</div><div class="line"><a name="l00307"></a><span class="lineno"> 307</span>&#160; dist_smoo = coef[0] + coef[1] * sin(coef[2] * phi_int[p] + coef[3])</div><div class="line"><a name="l00308"></a><span class="lineno"> 308</span>&#160; </div><div class="line"><a name="l00309"></a><span class="lineno"> 309</span>&#160; <span class="comment">// divide</span></div><div class="line"><a name="l00310"></a><span class="lineno"> 310</span>&#160; <span class="keywordflow">if</span> (check != 2)</div><div class="line"><a name="l00311"></a><span class="lineno"> 311</span>&#160; strip = strip / dist_smoo[q] * coef[0]</div><div class="line"><a name="l00312"></a><span class="lineno"> 312</span>&#160; endif</div><div class="line"><a name="l00313"></a><span class="lineno"> 313</span>&#160; </div><div class="line"><a name="l00314"></a><span class="lineno"> 314</span>&#160; <span class="comment">// check</span></div><div class="line"><a name="l00315"></a><span class="lineno"> 315</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00316"></a><span class="lineno"> 316</span>&#160; duplicate /o dist, check_dist</div><div class="line"><a name="l00317"></a><span class="lineno"> 317</span>&#160; duplicate /o dist_smoo, check_smoo</div><div class="line"><a name="l00318"></a><span class="lineno"> 318</span>&#160; setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo</div><div class="line"><a name="l00319"></a><span class="lineno"> 319</span>&#160; endif</div><div class="line"><a name="l00320"></a><span class="lineno"> 320</span>&#160;};</div><div class="line"><a name="l00321"></a><span class="lineno"> 321</span>&#160;</div><div class="line"><a name="l00353"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a9b56897bd92d926d65f4c67bef1d41bb"> 353</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a9b56897bd92d926d65f4c67bef1d41bb">normalize_strip_theta</a>(wave strip, wave theta, variable theta_offset = defaultValue, variable smooth_method = defaultValue, variable smooth_factor = defaultValue, variable check = defaultValue){</div><div class="line"><a name="l00354"></a><span class="lineno"> 354</span>&#160; wave strip</div><div class="line"><a name="l00355"></a><span class="lineno"> 355</span>&#160; wave theta</div><div class="line"><a name="l00356"></a><span class="lineno"> 356</span>&#160; variable theta_offset</div><div class="line"><a name="l00357"></a><span class="lineno"> 357</span>&#160; variable smooth_method</div><div class="line"><a name="l00358"></a><span class="lineno"> 358</span>&#160; variable smooth_factor</div><div class="line"><a name="l00359"></a><span class="lineno"> 359</span>&#160; variable check</div><div class="line"><a name="l00360"></a><span class="lineno"> 360</span>&#160; </div><div class="line"><a name="l00361"></a><span class="lineno"> 361</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(check))</div><div class="line"><a name="l00362"></a><span class="lineno"> 362</span>&#160; check = 0</div><div class="line"><a name="l00363"></a><span class="lineno"> 363</span>&#160; endif</div><div class="line"><a name="l00364"></a><span class="lineno"> 364</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(theta_offset))</div><div class="line"><a name="l00365"></a><span class="lineno"> 365</span>&#160; theta_offset = 0</div><div class="line"><a name="l00366"></a><span class="lineno"> 366</span>&#160; endif</div><div class="line"><a name="l00367"></a><span class="lineno"> 367</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_method))</div><div class="line"><a name="l00368"></a><span class="lineno"> 368</span>&#160; smooth_method = 4</div><div class="line"><a name="l00369"></a><span class="lineno"> 369</span>&#160; endif</div><div class="line"><a name="l00370"></a><span class="lineno"> 370</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_factor))</div><div class="line"><a name="l00371"></a><span class="lineno"> 371</span>&#160; smooth_factor = 0.5</div><div class="line"><a name="l00372"></a><span class="lineno"> 372</span>&#160; endif</div><div class="line"><a name="l00373"></a><span class="lineno"> 373</span>&#160;</div><div class="line"><a name="l00374"></a><span class="lineno"> 374</span>&#160; <span class="comment">// average over analyser angles</span></div><div class="line"><a name="l00375"></a><span class="lineno"> 375</span>&#160; wave dist = <a class="code" href="pearl-area-profiles_8ipf.html#abb1eed32a982037ebab00f5c3ea95e62">ad_profile_y</a>(strip, -inf, inf, <span class="stringliteral">&quot;&quot;</span>)</div><div class="line"><a name="l00376"></a><span class="lineno"> 376</span>&#160; </div><div class="line"><a name="l00377"></a><span class="lineno"> 377</span>&#160; <span class="comment">// smooth distribution function</span></div><div class="line"><a name="l00378"></a><span class="lineno"> 378</span>&#160; duplicate /free dist, dist_smoo</div><div class="line"><a name="l00379"></a><span class="lineno"> 379</span>&#160; duplicate /free theta, theta_int</div><div class="line"><a name="l00380"></a><span class="lineno"> 380</span>&#160; theta_int = theta - theta_offset</div><div class="line"><a name="l00381"></a><span class="lineno"> 381</span>&#160; setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo</div><div class="line"><a name="l00382"></a><span class="lineno"> 382</span>&#160; variable nx = dimsize(strip, 0)</div><div class="line"><a name="l00383"></a><span class="lineno"> 383</span>&#160; variable ix</div><div class="line"><a name="l00384"></a><span class="lineno"> 384</span>&#160; </div><div class="line"><a name="l00385"></a><span class="lineno"> 385</span>&#160; <span class="keywordflow">switch</span>(smooth_method)</div><div class="line"><a name="l00386"></a><span class="lineno"> 386</span>&#160; <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l00387"></a><span class="lineno"> 387</span>&#160; Smooth /B /E=3 smooth_factor, dist_smoo</div><div class="line"><a name="l00388"></a><span class="lineno"> 388</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00389"></a><span class="lineno"> 389</span>&#160; <span class="keywordflow">case</span> 2:</div><div class="line"><a name="l00390"></a><span class="lineno"> 390</span>&#160; Smooth /E=3 smooth_factor, dist_smoo</div><div class="line"><a name="l00391"></a><span class="lineno"> 391</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00392"></a><span class="lineno"> 392</span>&#160; <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l00393"></a><span class="lineno"> 393</span>&#160; loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int}</div><div class="line"><a name="l00394"></a><span class="lineno"> 394</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00395"></a><span class="lineno"> 395</span>&#160; <span class="keywordflow">case</span> 3:</div><div class="line"><a name="l00396"></a><span class="lineno"> 396</span>&#160; <span class="keywordflow">for</span> (ix = 0; ix &lt; nx; ix += 1)</div><div class="line"><a name="l00397"></a><span class="lineno"> 397</span>&#160; dist = strip[ix][p]</div><div class="line"><a name="l00398"></a><span class="lineno"> 398</span>&#160; <span class="keywordflow">if</span> (smooth_factor &gt; 1)</div><div class="line"><a name="l00399"></a><span class="lineno"> 399</span>&#160; CurveFit /nthr=0 /q /w=2 poly smooth_factor+1, dist /x=theta_int /d=dist_smoo</div><div class="line"><a name="l00400"></a><span class="lineno"> 400</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l00401"></a><span class="lineno"> 401</span>&#160; CurveFit /nthr=0 /q /w=2 line, dist /x=theta_int /d=dist_smoo</div><div class="line"><a name="l00402"></a><span class="lineno"> 402</span>&#160; endif</div><div class="line"><a name="l00403"></a><span class="lineno"> 403</span>&#160; strip[ix,ix][] /= dist_smoo[q]</div><div class="line"><a name="l00404"></a><span class="lineno"> 404</span>&#160; endfor</div><div class="line"><a name="l00405"></a><span class="lineno"> 405</span>&#160; dist_smoo = 1</div><div class="line"><a name="l00406"></a><span class="lineno"> 406</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00407"></a><span class="lineno"> 407</span>&#160; endswitch</div><div class="line"><a name="l00408"></a><span class="lineno"> 408</span>&#160; </div><div class="line"><a name="l00409"></a><span class="lineno"> 409</span>&#160; <span class="comment">// divide</span></div><div class="line"><a name="l00410"></a><span class="lineno"> 410</span>&#160; <span class="keywordflow">if</span> (check != 2)</div><div class="line"><a name="l00411"></a><span class="lineno"> 411</span>&#160; strip /= dist_smoo[q]</div><div class="line"><a name="l00412"></a><span class="lineno"> 412</span>&#160; endif</div><div class="line"><a name="l00413"></a><span class="lineno"> 413</span>&#160; </div><div class="line"><a name="l00414"></a><span class="lineno"> 414</span>&#160; <span class="comment">// check</span></div><div class="line"><a name="l00415"></a><span class="lineno"> 415</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00416"></a><span class="lineno"> 416</span>&#160; duplicate /o dist, check_dist</div><div class="line"><a name="l00417"></a><span class="lineno"> 417</span>&#160; duplicate /o dist_smoo, check_smoo</div><div class="line"><a name="l00418"></a><span class="lineno"> 418</span>&#160; setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo</div><div class="line"><a name="l00419"></a><span class="lineno"> 419</span>&#160; endif</div><div class="line"><a name="l00420"></a><span class="lineno"> 420</span>&#160;};</div><div class="line"><a name="l00421"></a><span class="lineno"> 421</span>&#160;</div><div class="line"><a name="l00451"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ad0a93367d2e9b66bb7b81697e87adfaf"> 451</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#ad0a93367d2e9b66bb7b81697e87adfaf">normalize_strip_thetaphi</a>(wave strip, wave theta, wave phi, variable theta_offset = defaultValue, variable smooth_method = defaultValue, variable smooth_factor = defaultValue, variable check = defaultValue){</div><div class="line"><a name="l00452"></a><span class="lineno"> 452</span>&#160; wave strip</div><div class="line"><a name="l00453"></a><span class="lineno"> 453</span>&#160; wave theta</div><div class="line"><a name="l00454"></a><span class="lineno"> 454</span>&#160; wave phi</div><div class="line"><a name="l00455"></a><span class="lineno"> 455</span>&#160; variable theta_offset</div><div class="line"><a name="l00456"></a><span class="lineno"> 456</span>&#160; variable smooth_method</div><div class="line"><a name="l00457"></a><span class="lineno"> 457</span>&#160; variable smooth_factor</div><div class="line"><a name="l00458"></a><span class="lineno"> 458</span>&#160; variable check</div><div class="line"><a name="l00459"></a><span class="lineno"> 459</span>&#160; </div><div class="line"><a name="l00460"></a><span class="lineno"> 460</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(check))</div><div class="line"><a name="l00461"></a><span class="lineno"> 461</span>&#160; check = 0</div><div class="line"><a name="l00462"></a><span class="lineno"> 462</span>&#160; endif</div><div class="line"><a name="l00463"></a><span class="lineno"> 463</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(theta_offset))</div><div class="line"><a name="l00464"></a><span class="lineno"> 464</span>&#160; theta_offset = 0</div><div class="line"><a name="l00465"></a><span class="lineno"> 465</span>&#160; endif</div><div class="line"><a name="l00466"></a><span class="lineno"> 466</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_method))</div><div class="line"><a name="l00467"></a><span class="lineno"> 467</span>&#160; smooth_method = 4</div><div class="line"><a name="l00468"></a><span class="lineno"> 468</span>&#160; endif</div><div class="line"><a name="l00469"></a><span class="lineno"> 469</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_factor))</div><div class="line"><a name="l00470"></a><span class="lineno"> 470</span>&#160; smooth_factor = 0.5</div><div class="line"><a name="l00471"></a><span class="lineno"> 471</span>&#160; endif</div><div class="line"><a name="l00472"></a><span class="lineno"> 472</span>&#160;</div><div class="line"><a name="l00473"></a><span class="lineno"> 473</span>&#160; <span class="comment">// average over analyser angles</span></div><div class="line"><a name="l00474"></a><span class="lineno"> 474</span>&#160; wave dist = <a class="code" href="pearl-area-profiles_8ipf.html#abb1eed32a982037ebab00f5c3ea95e62">ad_profile_y</a>(strip, -inf, inf, <span class="stringliteral">&quot;&quot;</span>)</div><div class="line"><a name="l00475"></a><span class="lineno"> 475</span>&#160; </div><div class="line"><a name="l00476"></a><span class="lineno"> 476</span>&#160; <span class="comment">// smooth distribution function</span></div><div class="line"><a name="l00477"></a><span class="lineno"> 477</span>&#160; duplicate /free dist, dist_smoo</div><div class="line"><a name="l00478"></a><span class="lineno"> 478</span>&#160; duplicate /free theta, theta_int</div><div class="line"><a name="l00479"></a><span class="lineno"> 479</span>&#160; theta_int = theta - theta_offset</div><div class="line"><a name="l00480"></a><span class="lineno"> 480</span>&#160; setscale /p x theta_int[0], theta_int[1] - theta_int[0], waveunits(theta,-1), dist, dist_smoo</div><div class="line"><a name="l00481"></a><span class="lineno"> 481</span>&#160; variable nx = dimsize(strip, 0)</div><div class="line"><a name="l00482"></a><span class="lineno"> 482</span>&#160; variable ix</div><div class="line"><a name="l00483"></a><span class="lineno"> 483</span>&#160; </div><div class="line"><a name="l00484"></a><span class="lineno"> 484</span>&#160; <span class="keywordflow">switch</span>(smooth_method)</div><div class="line"><a name="l00485"></a><span class="lineno"> 485</span>&#160; <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l00486"></a><span class="lineno"> 486</span>&#160; loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={theta_int, phi}</div><div class="line"><a name="l00487"></a><span class="lineno"> 487</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00488"></a><span class="lineno"> 488</span>&#160; <span class="keywordflow">default</span>:</div><div class="line"><a name="l00489"></a><span class="lineno"> 489</span>&#160; abort <span class="stringliteral">&quot;smooth method not supported&quot;</span></div><div class="line"><a name="l00490"></a><span class="lineno"> 490</span>&#160; endswitch</div><div class="line"><a name="l00491"></a><span class="lineno"> 491</span>&#160; </div><div class="line"><a name="l00492"></a><span class="lineno"> 492</span>&#160; <span class="comment">// divide</span></div><div class="line"><a name="l00493"></a><span class="lineno"> 493</span>&#160; <span class="keywordflow">if</span> (check != 2)</div><div class="line"><a name="l00494"></a><span class="lineno"> 494</span>&#160; strip /= dist_smoo[q]</div><div class="line"><a name="l00495"></a><span class="lineno"> 495</span>&#160; endif</div><div class="line"><a name="l00496"></a><span class="lineno"> 496</span>&#160; </div><div class="line"><a name="l00497"></a><span class="lineno"> 497</span>&#160; <span class="comment">// check</span></div><div class="line"><a name="l00498"></a><span class="lineno"> 498</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00499"></a><span class="lineno"> 499</span>&#160; duplicate /o dist, check_dist</div><div class="line"><a name="l00500"></a><span class="lineno"> 500</span>&#160; duplicate /o dist_smoo, check_smoo</div><div class="line"><a name="l00501"></a><span class="lineno"> 501</span>&#160; setscale /p x dimoffset(dist,0), dimdelta(dist,0), waveunits(dist,0), check_dist, check_smoo</div><div class="line"><a name="l00502"></a><span class="lineno"> 502</span>&#160; endif</div><div class="line"><a name="l00503"></a><span class="lineno"> 503</span>&#160;};</div><div class="line"><a name="l00504"></a><span class="lineno"> 504</span>&#160;</div><div class="line"><a name="l00518"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ac617c3b400488b656493af8ca08f1791"> 518</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#ac617c3b400488b656493af8ca08f1791">normalize_strip_2d</a>(wave strip, wave theta, variable theta_offset = defaultValue, variable smooth_method = defaultValue, variable smooth_factor = defaultValue, variable check = defaultValue){</div><div class="line"><a name="l00519"></a><span class="lineno"> 519</span>&#160; wave strip</div><div class="line"><a name="l00520"></a><span class="lineno"> 520</span>&#160; wave theta</div><div class="line"><a name="l00521"></a><span class="lineno"> 521</span>&#160; variable theta_offset</div><div class="line"><a name="l00522"></a><span class="lineno"> 522</span>&#160; variable smooth_method</div><div class="line"><a name="l00523"></a><span class="lineno"> 523</span>&#160; variable smooth_factor</div><div class="line"><a name="l00524"></a><span class="lineno"> 524</span>&#160; variable check</div><div class="line"><a name="l00525"></a><span class="lineno"> 525</span>&#160; </div><div class="line"><a name="l00526"></a><span class="lineno"> 526</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(check))</div><div class="line"><a name="l00527"></a><span class="lineno"> 527</span>&#160; check = 0</div><div class="line"><a name="l00528"></a><span class="lineno"> 528</span>&#160; endif</div><div class="line"><a name="l00529"></a><span class="lineno"> 529</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(theta_offset))</div><div class="line"><a name="l00530"></a><span class="lineno"> 530</span>&#160; theta_offset = 0</div><div class="line"><a name="l00531"></a><span class="lineno"> 531</span>&#160; endif</div><div class="line"><a name="l00532"></a><span class="lineno"> 532</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_method))</div><div class="line"><a name="l00533"></a><span class="lineno"> 533</span>&#160; smooth_method = 4</div><div class="line"><a name="l00534"></a><span class="lineno"> 534</span>&#160; endif</div><div class="line"><a name="l00535"></a><span class="lineno"> 535</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(smooth_factor))</div><div class="line"><a name="l00536"></a><span class="lineno"> 536</span>&#160; smooth_factor = 0.5</div><div class="line"><a name="l00537"></a><span class="lineno"> 537</span>&#160; endif</div><div class="line"><a name="l00538"></a><span class="lineno"> 538</span>&#160;</div><div class="line"><a name="l00539"></a><span class="lineno"> 539</span>&#160; variable nx = dimsize(strip, 0)</div><div class="line"><a name="l00540"></a><span class="lineno"> 540</span>&#160; variable ny = dimsize(strip, 1)</div><div class="line"><a name="l00541"></a><span class="lineno"> 541</span>&#160; </div><div class="line"><a name="l00542"></a><span class="lineno"> 542</span>&#160; duplicate /free strip, dist, alpha_int, theta_int</div><div class="line"><a name="l00543"></a><span class="lineno"> 543</span>&#160; theta_int = theta[q] - theta_offset</div><div class="line"><a name="l00544"></a><span class="lineno"> 544</span>&#160; alpha_int = dimoffset(strip, 0) + p * dimdelta(strip, 0)</div><div class="line"><a name="l00545"></a><span class="lineno"> 545</span>&#160; redimension /n=(nx * ny) dist, alpha_int, theta_int</div><div class="line"><a name="l00546"></a><span class="lineno"> 546</span>&#160; </div><div class="line"><a name="l00547"></a><span class="lineno"> 547</span>&#160; <span class="keywordflow">switch</span>(smooth_method)</div><div class="line"><a name="l00548"></a><span class="lineno"> 548</span>&#160; <span class="keywordflow">case</span> 4:</div><div class="line"><a name="l00549"></a><span class="lineno"> 549</span>&#160; loess /dest=dist_smoo /smth=(smooth_factor) srcWave=dist, factors={alpha_int, theta_int}</div><div class="line"><a name="l00550"></a><span class="lineno"> 550</span>&#160; redimension /n=(nx, ny) dist_smoo</div><div class="line"><a name="l00551"></a><span class="lineno"> 551</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00552"></a><span class="lineno"> 552</span>&#160; <span class="keywordflow">default</span>:</div><div class="line"><a name="l00553"></a><span class="lineno"> 553</span>&#160; Abort <span class="stringliteral">&quot;undefined smooth method&quot;</span></div><div class="line"><a name="l00554"></a><span class="lineno"> 554</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l00555"></a><span class="lineno"> 555</span>&#160; endswitch</div><div class="line"><a name="l00556"></a><span class="lineno"> 556</span>&#160; </div><div class="line"><a name="l00557"></a><span class="lineno"> 557</span>&#160; <span class="comment">// divide</span></div><div class="line"><a name="l00558"></a><span class="lineno"> 558</span>&#160; <span class="keywordflow">if</span> (check != 2)</div><div class="line"><a name="l00559"></a><span class="lineno"> 559</span>&#160; strip /= dist_smoo</div><div class="line"><a name="l00560"></a><span class="lineno"> 560</span>&#160; endif</div><div class="line"><a name="l00561"></a><span class="lineno"> 561</span>&#160; </div><div class="line"><a name="l00562"></a><span class="lineno"> 562</span>&#160; <span class="comment">// check</span></div><div class="line"><a name="l00563"></a><span class="lineno"> 563</span>&#160; <span class="keywordflow">if</span> (check)</div><div class="line"><a name="l00564"></a><span class="lineno"> 564</span>&#160; <span class="comment">//duplicate /o dist, check_dist</span></div><div class="line"><a name="l00565"></a><span class="lineno"> 565</span>&#160; duplicate /o dist_smoo, check_smoo</div><div class="line"><a name="l00566"></a><span class="lineno"> 566</span>&#160; endif</div><div class="line"><a name="l00567"></a><span class="lineno"> 567</span>&#160;};</div><div class="line"><a name="l00568"></a><span class="lineno"> 568</span>&#160;</div><div class="line"><a name="l00578"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ab65d25af7476ed18f7bf7359614a912b"> 578</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#ab65d25af7476ed18f7bf7359614a912b">crop_strip</a>(wave strip, variable xlo, variable xhi){</div><div class="line"><a name="l00579"></a><span class="lineno"> 579</span>&#160; wave strip</div><div class="line"><a name="l00580"></a><span class="lineno"> 580</span>&#160; variable xlo</div><div class="line"><a name="l00581"></a><span class="lineno"> 581</span>&#160; variable xhi</div><div class="line"><a name="l00582"></a><span class="lineno"> 582</span>&#160; </div><div class="line"><a name="l00583"></a><span class="lineno"> 583</span>&#160; variable plo = round((xlo - dimoffset(strip, 0)) / dimdelta(strip, 0))</div><div class="line"><a name="l00584"></a><span class="lineno"> 584</span>&#160; variable phi = round((xhi - dimoffset(strip, 0)) / dimdelta(strip, 0))</div><div class="line"><a name="l00585"></a><span class="lineno"> 585</span>&#160; xlo = plo * dimdelta(strip, 0) + dimoffset(strip, 0)</div><div class="line"><a name="l00586"></a><span class="lineno"> 586</span>&#160; xhi = phi * dimdelta(strip, 0) + dimoffset(strip, 0)</div><div class="line"><a name="l00587"></a><span class="lineno"> 587</span>&#160; variable nx = phi - plo + 1</div><div class="line"><a name="l00588"></a><span class="lineno"> 588</span>&#160; variable ny = dimsize(strip, 1)</div><div class="line"><a name="l00589"></a><span class="lineno"> 589</span>&#160; </div><div class="line"><a name="l00590"></a><span class="lineno"> 590</span>&#160; duplicate /free strip, strip_copy</div><div class="line"><a name="l00591"></a><span class="lineno"> 591</span>&#160; redimension /n=(nx,ny) strip</div><div class="line"><a name="l00592"></a><span class="lineno"> 592</span>&#160; strip = strip_copy[p + plo][q]</div><div class="line"><a name="l00593"></a><span class="lineno"> 593</span>&#160; setscale /i x xlo, xhi, waveunits(strip, 0), strip</div><div class="line"><a name="l00594"></a><span class="lineno"> 594</span>&#160;};</div><div class="line"><a name="l00595"></a><span class="lineno"> 595</span>&#160;</div><div class="line"><a name="l00638"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#afed227ae79873fd32c96afbf606d1965"> 638</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#afed227ae79873fd32c96afbf606d1965">pizza_service</a>(wave data, <span class="keywordtype">string</span> nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar = defaultValue, variable nograph = defaultValue, variable folding = defaultValue, variable xpdplot = defaultValue){</div><div class="line"><a name="l00639"></a><span class="lineno"> 639</span>&#160; wave data</div><div class="line"><a name="l00640"></a><span class="lineno"> 640</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l00641"></a><span class="lineno"> 641</span>&#160; variable theta_offset</div><div class="line"><a name="l00642"></a><span class="lineno"> 642</span>&#160; variable tilt_offset</div><div class="line"><a name="l00643"></a><span class="lineno"> 643</span>&#160; variable phi_offset</div><div class="line"><a name="l00644"></a><span class="lineno"> 644</span>&#160; variable npolar</div><div class="line"><a name="l00645"></a><span class="lineno"> 645</span>&#160; variable nograph</div><div class="line"><a name="l00646"></a><span class="lineno"> 646</span>&#160; variable folding</div><div class="line"><a name="l00647"></a><span class="lineno"> 647</span>&#160; variable xpdplot</div><div class="line"><a name="l00648"></a><span class="lineno"> 648</span>&#160; </div><div class="line"><a name="l00649"></a><span class="lineno"> 649</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(npolar))</div><div class="line"><a name="l00650"></a><span class="lineno"> 650</span>&#160; npolar = 91</div><div class="line"><a name="l00651"></a><span class="lineno"> 651</span>&#160; endif</div><div class="line"><a name="l00652"></a><span class="lineno"> 652</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(nograph))</div><div class="line"><a name="l00653"></a><span class="lineno"> 653</span>&#160; nograph = 0</div><div class="line"><a name="l00654"></a><span class="lineno"> 654</span>&#160; endif</div><div class="line"><a name="l00655"></a><span class="lineno"> 655</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(folding))</div><div class="line"><a name="l00656"></a><span class="lineno"> 656</span>&#160; folding = 1</div><div class="line"><a name="l00657"></a><span class="lineno"> 657</span>&#160; endif</div><div class="line"><a name="l00658"></a><span class="lineno"> 658</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l00659"></a><span class="lineno"> 659</span>&#160; xpdplot = 0</div><div class="line"><a name="l00660"></a><span class="lineno"> 660</span>&#160; endif</div><div class="line"><a name="l00661"></a><span class="lineno"> 661</span>&#160; </div><div class="line"><a name="l00662"></a><span class="lineno"> 662</span>&#160; <span class="comment">// sort out data folder structure</span></div><div class="line"><a name="l00663"></a><span class="lineno"> 663</span>&#160; dfref saveDF = GetDataFolderDFR()</div><div class="line"><a name="l00664"></a><span class="lineno"> 664</span>&#160; dfref dataDF = GetWavesDataFolderDFR(data)</div><div class="line"><a name="l00665"></a><span class="lineno"> 665</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l00666"></a><span class="lineno"> 666</span>&#160; <span class="keywordflow">if</span> (DataFolderExists(<span class="stringliteral">&quot;:attr&quot;</span>))</div><div class="line"><a name="l00667"></a><span class="lineno"> 667</span>&#160; setdatafolder :attr</div><div class="line"><a name="l00668"></a><span class="lineno"> 668</span>&#160; endif</div><div class="line"><a name="l00669"></a><span class="lineno"> 669</span>&#160; dfref attrDF = GetDataFolderDFR()</div><div class="line"><a name="l00670"></a><span class="lineno"> 670</span>&#160; </div><div class="line"><a name="l00671"></a><span class="lineno"> 671</span>&#160; wave /sdfr=attrDF ManipulatorTheta</div><div class="line"><a name="l00672"></a><span class="lineno"> 672</span>&#160; wave /sdfr=attrDF ManipulatorTilt</div><div class="line"><a name="l00673"></a><span class="lineno"> 673</span>&#160; wave /sdfr=attrDF ManipulatorPhi</div><div class="line"><a name="l00674"></a><span class="lineno"> 674</span>&#160;</div><div class="line"><a name="l00675"></a><span class="lineno"> 675</span>&#160; <span class="keywordflow">if</span> ((dimsize(ManipulatorTheta, 0) != dimsize(data, 1)) || (dimsize(ManipulatorTilt, 0) != dimsize(data, 1)) || (dimsize(ManipulatorPhi, 0) != dimsize(data, 1)))</div><div class="line"><a name="l00676"></a><span class="lineno"> 676</span>&#160; Abort <span class="stringliteral">&quot;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.&quot;</span></div><div class="line"><a name="l00677"></a><span class="lineno"> 677</span>&#160; endif</div><div class="line"><a name="l00678"></a><span class="lineno"> 678</span>&#160;</div><div class="line"><a name="l00679"></a><span class="lineno"> 679</span>&#160; duplicate /free ManipulatorTheta, m_theta</div><div class="line"><a name="l00680"></a><span class="lineno"> 680</span>&#160; duplicate /free ManipulatorTilt, m_tilt</div><div class="line"><a name="l00681"></a><span class="lineno"> 681</span>&#160; duplicate /free ManipulatorPhi, m_phi</div><div class="line"><a name="l00682"></a><span class="lineno"> 682</span>&#160;</div><div class="line"><a name="l00683"></a><span class="lineno"> 683</span>&#160; m_theta -= theta_offset</div><div class="line"><a name="l00684"></a><span class="lineno"> 684</span>&#160; m_tilt -= tilt_offset</div><div class="line"><a name="l00685"></a><span class="lineno"> 685</span>&#160; m_phi -= phi_offset</div><div class="line"><a name="l00686"></a><span class="lineno"> 686</span>&#160; </div><div class="line"><a name="l00687"></a><span class="lineno"> 687</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a229770447193d4fd12032b235aab4d28">pizza_service_2</a>(data, nickname, m_theta, m_tilt, m_phi, npolar=npolar, nograph=nograph, folding=folding, xpdplot=xpdplot)</div><div class="line"><a name="l00688"></a><span class="lineno"> 688</span>&#160; </div><div class="line"><a name="l00689"></a><span class="lineno"> 689</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l00690"></a><span class="lineno"> 690</span>&#160;};</div><div class="line"><a name="l00691"></a><span class="lineno"> 691</span>&#160;</div><div class="line"><a name="l00731"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a229770447193d4fd12032b235aab4d28"> 731</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a229770447193d4fd12032b235aab4d28">pizza_service_2</a>(wave data, <span class="keywordtype">string</span> nickname, wave m_theta, wave m_tilt, wave m_phi, variable npolar = defaultValue, variable nograph = defaultValue, variable folding = defaultValue, variable xpdplot = defaultValue){</div><div class="line"><a name="l00732"></a><span class="lineno"> 732</span>&#160; wave data</div><div class="line"><a name="l00733"></a><span class="lineno"> 733</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l00734"></a><span class="lineno"> 734</span>&#160; wave m_theta</div><div class="line"><a name="l00735"></a><span class="lineno"> 735</span>&#160; wave m_tilt</div><div class="line"><a name="l00736"></a><span class="lineno"> 736</span>&#160; wave m_phi</div><div class="line"><a name="l00737"></a><span class="lineno"> 737</span>&#160; variable npolar</div><div class="line"><a name="l00738"></a><span class="lineno"> 738</span>&#160; variable nograph</div><div class="line"><a name="l00739"></a><span class="lineno"> 739</span>&#160; variable folding</div><div class="line"><a name="l00740"></a><span class="lineno"> 740</span>&#160; variable xpdplot</div><div class="line"><a name="l00741"></a><span class="lineno"> 741</span>&#160; </div><div class="line"><a name="l00742"></a><span class="lineno"> 742</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(npolar))</div><div class="line"><a name="l00743"></a><span class="lineno"> 743</span>&#160; npolar = 91</div><div class="line"><a name="l00744"></a><span class="lineno"> 744</span>&#160; endif</div><div class="line"><a name="l00745"></a><span class="lineno"> 745</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(nograph))</div><div class="line"><a name="l00746"></a><span class="lineno"> 746</span>&#160; nograph = 0</div><div class="line"><a name="l00747"></a><span class="lineno"> 747</span>&#160; endif</div><div class="line"><a name="l00748"></a><span class="lineno"> 748</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(folding))</div><div class="line"><a name="l00749"></a><span class="lineno"> 749</span>&#160; folding = 1</div><div class="line"><a name="l00750"></a><span class="lineno"> 750</span>&#160; endif</div><div class="line"><a name="l00751"></a><span class="lineno"> 751</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l00752"></a><span class="lineno"> 752</span>&#160; xpdplot = 0</div><div class="line"><a name="l00753"></a><span class="lineno"> 753</span>&#160; endif</div><div class="line"><a name="l00754"></a><span class="lineno"> 754</span>&#160; </div><div class="line"><a name="l00755"></a><span class="lineno"> 755</span>&#160; <span class="keywordflow">if</span> ((dimsize(m_theta, 0) != dimsize(data, 1)) || (dimsize(m_tilt, 0) != dimsize(data, 1)) || (dimsize(m_phi, 0) != dimsize(data, 1)))</div><div class="line"><a name="l00756"></a><span class="lineno"> 756</span>&#160; Abort <span class="stringliteral">&quot;Warning: The dimension size of the manipulator waves does not match the Y dimension of the data wave!&quot;</span></div><div class="line"><a name="l00757"></a><span class="lineno"> 757</span>&#160; endif</div><div class="line"><a name="l00758"></a><span class="lineno"> 758</span>&#160; </div><div class="line"><a name="l00759"></a><span class="lineno"> 759</span>&#160; <span class="keywordtype">string</span> graphname = <span class="stringliteral">&quot;graph_&quot;</span> + nickname</div><div class="line"><a name="l00760"></a><span class="lineno"> 760</span>&#160; <span class="keywordtype">string</span> outprefix = nickname</div><div class="line"><a name="l00761"></a><span class="lineno"> 761</span>&#160; </div><div class="line"><a name="l00762"></a><span class="lineno"> 762</span>&#160; <span class="comment">// sort out data folder structure</span></div><div class="line"><a name="l00763"></a><span class="lineno"> 763</span>&#160; dfref saveDF = GetDataFolderDFR()</div><div class="line"><a name="l00764"></a><span class="lineno"> 764</span>&#160; dfref dataDF = GetWavesDataFolderDFR(data)</div><div class="line"><a name="l00765"></a><span class="lineno"> 765</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l00766"></a><span class="lineno"> 766</span>&#160;</div><div class="line"><a name="l00767"></a><span class="lineno"> 767</span>&#160; <span class="keywordflow">if</span> (xpdplot)</div><div class="line"><a name="l00768"></a><span class="lineno"> 768</span>&#160; setdatafolder root:</div><div class="line"><a name="l00769"></a><span class="lineno"> 769</span>&#160; outprefix = nickname</div><div class="line"><a name="l00770"></a><span class="lineno"> 770</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l00771"></a><span class="lineno"> 771</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l00772"></a><span class="lineno"> 772</span>&#160; newdatafolder /s/o $nickname</div><div class="line"><a name="l00773"></a><span class="lineno"> 773</span>&#160; outprefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l00774"></a><span class="lineno"> 774</span>&#160; endif</div><div class="line"><a name="l00775"></a><span class="lineno"> 775</span>&#160; dfref destDF = GetDataFolderDFR()</div><div class="line"><a name="l00776"></a><span class="lineno"> 776</span>&#160; </div><div class="line"><a name="l00777"></a><span class="lineno"> 777</span>&#160; <span class="comment">// performance monitoring</span></div><div class="line"><a name="l00778"></a><span class="lineno"> 778</span>&#160; variable timerRefNum</div><div class="line"><a name="l00779"></a><span class="lineno"> 779</span>&#160; variable /g pol_perf_secs</div><div class="line"><a name="l00780"></a><span class="lineno"> 780</span>&#160; timerRefNum = startMSTimer</div><div class="line"><a name="l00781"></a><span class="lineno"> 781</span>&#160; </div><div class="line"><a name="l00782"></a><span class="lineno"> 782</span>&#160; duplicate /free m_tilt, corr_tilt</div><div class="line"><a name="l00783"></a><span class="lineno"> 783</span>&#160; duplicate /free m_phi, corr_phi</div><div class="line"><a name="l00784"></a><span class="lineno"> 784</span>&#160; corr_tilt = -m_tilt<span class="comment">// checked 140702</span></div><div class="line"><a name="l00785"></a><span class="lineno"> 785</span>&#160; corr_phi = m_phi<span class="comment">// checked 140702</span></div><div class="line"><a name="l00786"></a><span class="lineno"> 786</span>&#160; </div><div class="line"><a name="l00787"></a><span class="lineno"> 787</span>&#160; make /n=1/d/free d_polar, d_azi</div><div class="line"><a name="l00788"></a><span class="lineno"> 788</span>&#160; </div><div class="line"><a name="l00789"></a><span class="lineno"> 789</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779">convert_angles_ttpd2polar</a>(m_theta, corr_tilt, corr_phi, data, d_polar, d_azi)</div><div class="line"><a name="l00790"></a><span class="lineno"> 790</span>&#160; d_azi += 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l00791"></a><span class="lineno"> 791</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a>(npolar, outprefix, xpdplot=xpdplot)</div><div class="line"><a name="l00792"></a><span class="lineno"> 792</span>&#160; variable ifold</div><div class="line"><a name="l00793"></a><span class="lineno"> 793</span>&#160; <span class="keywordflow">for</span> (ifold = 0; ifold &lt; folding; ifold += 1)</div><div class="line"><a name="l00794"></a><span class="lineno"> 794</span>&#160; d_azi = d_azi &gt;= 360 ? d_azi - 360 : d_azi</div><div class="line"><a name="l00795"></a><span class="lineno"> 795</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5">hemi_add_anglescan</a>(outprefix, data, d_polar, d_azi)</div><div class="line"><a name="l00796"></a><span class="lineno"> 796</span>&#160; d_azi += 360 / folding</div><div class="line"><a name="l00797"></a><span class="lineno"> 797</span>&#160; endfor</div><div class="line"><a name="l00798"></a><span class="lineno"> 798</span>&#160; </div><div class="line"><a name="l00799"></a><span class="lineno"> 799</span>&#160; <span class="comment">// normalize folding</span></div><div class="line"><a name="l00800"></a><span class="lineno"> 800</span>&#160; <span class="keywordflow">if</span> (strlen(outprefix))</div><div class="line"><a name="l00801"></a><span class="lineno"> 801</span>&#160; <span class="keywordtype">string</span> s_prefix = outprefix + <span class="stringliteral">&quot;_&quot;</span></div><div class="line"><a name="l00802"></a><span class="lineno"> 802</span>&#160; <span class="keywordtype">string</span> s_int = s_prefix + <span class="stringliteral">&quot;i&quot;</span></div><div class="line"><a name="l00803"></a><span class="lineno"> 803</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l00804"></a><span class="lineno"> 804</span>&#160; s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l00805"></a><span class="lineno"> 805</span>&#160; s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l00806"></a><span class="lineno"> 806</span>&#160; endif</div><div class="line"><a name="l00807"></a><span class="lineno"> 807</span>&#160; <span class="keywordflow">if</span> (folding &gt; 1)</div><div class="line"><a name="l00808"></a><span class="lineno"> 808</span>&#160; wave values = $s_int</div><div class="line"><a name="l00809"></a><span class="lineno"> 809</span>&#160; values /= folding</div><div class="line"><a name="l00810"></a><span class="lineno"> 810</span>&#160; endif</div><div class="line"><a name="l00811"></a><span class="lineno"> 811</span>&#160; </div><div class="line"><a name="l00812"></a><span class="lineno"> 812</span>&#160; <span class="keywordflow">if</span> (!nograph)</div><div class="line"><a name="l00813"></a><span class="lineno"> 813</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2">display_hemi_scan</a>(outprefix, graphname = graphname)</div><div class="line"><a name="l00814"></a><span class="lineno"> 814</span>&#160; endif</div><div class="line"><a name="l00815"></a><span class="lineno"> 815</span>&#160; </div><div class="line"><a name="l00816"></a><span class="lineno"> 816</span>&#160; <span class="keywordflow">if</span> (timerRefNum &gt;= 0)</div><div class="line"><a name="l00817"></a><span class="lineno"> 817</span>&#160; pol_perf_secs = stopMSTimer(timerRefNum) / 1e6</div><div class="line"><a name="l00818"></a><span class="lineno"> 818</span>&#160; endif</div><div class="line"><a name="l00819"></a><span class="lineno"> 819</span>&#160;</div><div class="line"><a name="l00820"></a><span class="lineno"> 820</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l00821"></a><span class="lineno"> 821</span>&#160;};</div><div class="line"><a name="l00822"></a><span class="lineno"> 822</span>&#160;</div><div class="line"><a name="l00848"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a01bac9e7d4ba743c3c34177a05070466"> 848</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a01bac9e7d4ba743c3c34177a05070466">show_analyser_line</a>(variable theta, variable tilt, variable phi, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar = defaultValue, variable nograph = defaultValue, variable xpdplot = defaultValue){</div><div class="line"><a name="l00849"></a><span class="lineno"> 849</span>&#160; variable theta</div><div class="line"><a name="l00850"></a><span class="lineno"> 850</span>&#160; variable tilt</div><div class="line"><a name="l00851"></a><span class="lineno"> 851</span>&#160; variable phi</div><div class="line"><a name="l00852"></a><span class="lineno"> 852</span>&#160; variable theta_offset</div><div class="line"><a name="l00853"></a><span class="lineno"> 853</span>&#160; variable tilt_offset</div><div class="line"><a name="l00854"></a><span class="lineno"> 854</span>&#160; variable phi_offset</div><div class="line"><a name="l00855"></a><span class="lineno"> 855</span>&#160; variable npolar</div><div class="line"><a name="l00856"></a><span class="lineno"> 856</span>&#160; variable nograph</div><div class="line"><a name="l00857"></a><span class="lineno"> 857</span>&#160; variable xpdplot</div><div class="line"><a name="l00858"></a><span class="lineno"> 858</span>&#160; </div><div class="line"><a name="l00859"></a><span class="lineno"> 859</span>&#160; <span class="keywordtype">string</span> nickname = <span class="stringliteral">&quot;analyser&quot;</span></div><div class="line"><a name="l00860"></a><span class="lineno"> 860</span>&#160;</div><div class="line"><a name="l00861"></a><span class="lineno"> 861</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(npolar))</div><div class="line"><a name="l00862"></a><span class="lineno"> 862</span>&#160; npolar = 91</div><div class="line"><a name="l00863"></a><span class="lineno"> 863</span>&#160; endif</div><div class="line"><a name="l00864"></a><span class="lineno"> 864</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(nograph))</div><div class="line"><a name="l00865"></a><span class="lineno"> 865</span>&#160; nograph = 0</div><div class="line"><a name="l00866"></a><span class="lineno"> 866</span>&#160; endif</div><div class="line"><a name="l00867"></a><span class="lineno"> 867</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l00868"></a><span class="lineno"> 868</span>&#160; xpdplot = 0</div><div class="line"><a name="l00869"></a><span class="lineno"> 869</span>&#160; endif</div><div class="line"><a name="l00870"></a><span class="lineno"> 870</span>&#160; <span class="keywordtype">string</span> graphname = <span class="stringliteral">&quot;graph_&quot;</span> + nickname</div><div class="line"><a name="l00871"></a><span class="lineno"> 871</span>&#160; <span class="keywordtype">string</span> outprefix = nickname</div><div class="line"><a name="l00872"></a><span class="lineno"> 872</span>&#160; </div><div class="line"><a name="l00873"></a><span class="lineno"> 873</span>&#160; <span class="comment">// sort out data folder structure</span></div><div class="line"><a name="l00874"></a><span class="lineno"> 874</span>&#160; dfref saveDF = GetDataFolderDFR()</div><div class="line"><a name="l00875"></a><span class="lineno"> 875</span>&#160; dfref dataDF = saveDF</div><div class="line"><a name="l00876"></a><span class="lineno"> 876</span>&#160; <span class="keywordflow">if</span> (xpdplot)</div><div class="line"><a name="l00877"></a><span class="lineno"> 877</span>&#160; setdatafolder root:</div><div class="line"><a name="l00878"></a><span class="lineno"> 878</span>&#160; outprefix = nickname</div><div class="line"><a name="l00879"></a><span class="lineno"> 879</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l00880"></a><span class="lineno"> 880</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l00881"></a><span class="lineno"> 881</span>&#160; newdatafolder /s/o $nickname</div><div class="line"><a name="l00882"></a><span class="lineno"> 882</span>&#160; outprefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l00883"></a><span class="lineno"> 883</span>&#160; endif</div><div class="line"><a name="l00884"></a><span class="lineno"> 884</span>&#160; dfref destDF = GetDataFolderDFR()</div><div class="line"><a name="l00885"></a><span class="lineno"> 885</span>&#160; </div><div class="line"><a name="l00886"></a><span class="lineno"> 886</span>&#160; make /n=1 /free m_theta</div><div class="line"><a name="l00887"></a><span class="lineno"> 887</span>&#160; make /n=1 /free m_tilt</div><div class="line"><a name="l00888"></a><span class="lineno"> 888</span>&#160; make /n=1 /free m_phi</div><div class="line"><a name="l00889"></a><span class="lineno"> 889</span>&#160; m_theta = theta - theta_offset</div><div class="line"><a name="l00890"></a><span class="lineno"> 890</span>&#160; m_tilt = tilt - tilt_offset</div><div class="line"><a name="l00891"></a><span class="lineno"> 891</span>&#160; m_tilt *= -1<span class="comment">// checked 140702</span></div><div class="line"><a name="l00892"></a><span class="lineno"> 892</span>&#160; m_phi = phi - phi_offset</div><div class="line"><a name="l00893"></a><span class="lineno"> 893</span>&#160; <span class="comment">//m_phi *= -1 // checked 140702</span></div><div class="line"><a name="l00894"></a><span class="lineno"> 894</span>&#160; </div><div class="line"><a name="l00895"></a><span class="lineno"> 895</span>&#160; make /n=60 /free data</div><div class="line"><a name="l00896"></a><span class="lineno"> 896</span>&#160; setscale /i x -30, 30, data</div><div class="line"><a name="l00897"></a><span class="lineno"> 897</span>&#160; data = x</div><div class="line"><a name="l00898"></a><span class="lineno"> 898</span>&#160; make /n=1/d/free d_polar, d_azi</div><div class="line"><a name="l00899"></a><span class="lineno"> 899</span>&#160; </div><div class="line"><a name="l00900"></a><span class="lineno"> 900</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d">convert_angles_ttpa2polar</a>(m_theta, m_tilt, m_phi, data, d_polar, d_azi)</div><div class="line"><a name="l00901"></a><span class="lineno"> 901</span>&#160; d_azi += 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l00902"></a><span class="lineno"> 902</span>&#160; d_azi = d_azi &gt;= 360 ? d_azi - 360 : d_azi</div><div class="line"><a name="l00903"></a><span class="lineno"> 903</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a>(npolar, outprefix, xpdplot=xpdplot)</div><div class="line"><a name="l00904"></a><span class="lineno"> 904</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5">hemi_add_anglescan</a>(outprefix, data, d_polar, d_azi)</div><div class="line"><a name="l00905"></a><span class="lineno"> 905</span>&#160; </div><div class="line"><a name="l00906"></a><span class="lineno"> 906</span>&#160; <span class="keywordflow">if</span> (!nograph)</div><div class="line"><a name="l00907"></a><span class="lineno"> 907</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2">display_hemi_scan</a>(outprefix, graphname = graphname)</div><div class="line"><a name="l00908"></a><span class="lineno"> 908</span>&#160; endif</div><div class="line"><a name="l00909"></a><span class="lineno"> 909</span>&#160; </div><div class="line"><a name="l00910"></a><span class="lineno"> 910</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l00911"></a><span class="lineno"> 911</span>&#160;};</div><div class="line"><a name="l00912"></a><span class="lineno"> 912</span>&#160;</div><div class="line"><a name="l00917"></a><span class="lineno"> 917</span>&#160;</div><div class="line"><a name="l00918"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779"> 918</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779">convert_angles_ttpd2polar</a>(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi){</div><div class="line"><a name="l00919"></a><span class="lineno"> 919</span>&#160; wave theta, tilt, phi<span class="comment">// see convert_angles_ttpa2polar</span></div><div class="line"><a name="l00920"></a><span class="lineno"> 920</span>&#160; wave data<span class="comment">// in, 1D or 2D</span></div><div class="line"><a name="l00921"></a><span class="lineno"> 921</span>&#160; <span class="comment">// X-scale must be set to analyser angle scale</span></div><div class="line"><a name="l00922"></a><span class="lineno"> 922</span>&#160; wave polar, azi<span class="comment">// see convert_angles_ttpa2polar</span></div><div class="line"><a name="l00923"></a><span class="lineno"> 923</span>&#160; </div><div class="line"><a name="l00924"></a><span class="lineno"> 924</span>&#160; make /n=(dimsize(data, 0)) /d /free ana</div><div class="line"><a name="l00925"></a><span class="lineno"> 925</span>&#160; setscale /p x dimoffset(data, 0), dimdelta(data, 0), waveunits(data, 0), ana</div><div class="line"><a name="l00926"></a><span class="lineno"> 926</span>&#160; ana = x</div><div class="line"><a name="l00927"></a><span class="lineno"> 927</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d">convert_angles_ttpa2polar</a>(theta, tilt, phi, ana, polar, azi)</div><div class="line"><a name="l00928"></a><span class="lineno"> 928</span>&#160;};</div><div class="line"><a name="l00929"></a><span class="lineno"> 929</span>&#160;</div><div class="line"><a name="l00957"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d"> 957</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d">convert_angles_ttpa2polar</a>(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi){</div><div class="line"><a name="l00958"></a><span class="lineno"> 958</span>&#160; wave theta</div><div class="line"><a name="l00959"></a><span class="lineno"> 959</span>&#160; wave tilt</div><div class="line"><a name="l00960"></a><span class="lineno"> 960</span>&#160; wave phi</div><div class="line"><a name="l00961"></a><span class="lineno"> 961</span>&#160; wave analyser</div><div class="line"><a name="l00962"></a><span class="lineno"> 962</span>&#160; wave polar, azi</div><div class="line"><a name="l00963"></a><span class="lineno"> 963</span>&#160; </div><div class="line"><a name="l00964"></a><span class="lineno"> 964</span>&#160; variable nn = numpnts(theta)</div><div class="line"><a name="l00965"></a><span class="lineno"> 965</span>&#160; variable na = numpnts(analyser)</div><div class="line"><a name="l00966"></a><span class="lineno"> 966</span>&#160; redimension /n=(na, nn) polar, azi</div><div class="line"><a name="l00967"></a><span class="lineno"> 967</span>&#160;</div><div class="line"><a name="l00968"></a><span class="lineno"> 968</span>&#160; variable radius = 1<span class="comment">// don&#39;t need to specify - everything is scalable</span></div><div class="line"><a name="l00969"></a><span class="lineno"> 969</span>&#160; </div><div class="line"><a name="l00970"></a><span class="lineno"> 970</span>&#160; <span class="comment">// step 1: calculate cartesian detection vectors at normal emission</span></div><div class="line"><a name="l00971"></a><span class="lineno"> 971</span>&#160; <span class="comment">// this is simply a polar-cartesian mapping, independent of the manipulator</span></div><div class="line"><a name="l00972"></a><span class="lineno"> 972</span>&#160; <span class="comment">// phi=0 is in the polar rotation plane</span></div><div class="line"><a name="l00973"></a><span class="lineno"> 973</span>&#160; make /n=(3,na) /d /free w_orig_polar, w_orig_cart, w_rot_cart, w_rot_polar</div><div class="line"><a name="l00974"></a><span class="lineno"> 974</span>&#160; w_orig_polar[0][] = radius</div><div class="line"><a name="l00975"></a><span class="lineno"> 975</span>&#160; w_orig_polar[1][] = analyser[q]</div><div class="line"><a name="l00976"></a><span class="lineno"> 976</span>&#160; w_orig_polar[2][] = 0</div><div class="line"><a name="l00977"></a><span class="lineno"> 977</span>&#160; <a class="code" href="pearl-polar-coordinates_8ipf.html#a6a0ffb6b9160413d9694b1fd8e10c858">polar2cart_wave</a>(w_orig_polar, w_orig_cart)</div><div class="line"><a name="l00978"></a><span class="lineno"> 978</span>&#160; <span class="comment">// if the angle-dispersive axis was horizontal, we&#39;d need to rotate the detector</span></div><div class="line"><a name="l00979"></a><span class="lineno"> 979</span>&#160; <span class="comment">//rotate_z_wave(w_orig_cart, 90)</span></div><div class="line"><a name="l00980"></a><span class="lineno"> 980</span>&#160;</div><div class="line"><a name="l00981"></a><span class="lineno"> 981</span>&#160; variable ii</div><div class="line"><a name="l00982"></a><span class="lineno"> 982</span>&#160; <span class="keywordflow">for</span> (ii = 0; ii &lt; nn; ii += 1)</div><div class="line"><a name="l00983"></a><span class="lineno"> 983</span>&#160; <span class="comment">// step 2: rotate the detection vectors according to the manipulator angles</span></div><div class="line"><a name="l00984"></a><span class="lineno"> 984</span>&#160; <span class="comment">// the order of rotations is important because we rotate about fixed axes</span></div><div class="line"><a name="l00985"></a><span class="lineno"> 985</span>&#160; <span class="comment">// y-axis = tilt rotation axis</span></div><div class="line"><a name="l00986"></a><span class="lineno"> 986</span>&#160; <span class="comment">// x-axis = polar rotation axis</span></div><div class="line"><a name="l00987"></a><span class="lineno"> 987</span>&#160; <span class="comment">// z-axis = normal emission = azimuthal rotation axis</span></div><div class="line"><a name="l00988"></a><span class="lineno"> 988</span>&#160; w_rot_cart = w_orig_cart</div><div class="line"><a name="l00989"></a><span class="lineno"> 989</span>&#160; <a class="code" href="pearl-vector-operations_8ipf.html#adfd1d68e739694982fbd00b76568c1c0">rotate_y_wave</a>(w_rot_cart, -tilt[ii])</div><div class="line"><a name="l00990"></a><span class="lineno"> 990</span>&#160; <a class="code" href="pearl-vector-operations_8ipf.html#ada80428496dc748b960bd9c65df7da8b">rotate_x_wave</a>(w_rot_cart, -theta[ii])</div><div class="line"><a name="l00991"></a><span class="lineno"> 991</span>&#160; <a class="code" href="pearl-vector-operations_8ipf.html#a0030e927980581d57781ad391f2d872a">rotate_z_wave</a>(w_rot_cart, -phi[ii] - 90)</div><div class="line"><a name="l00992"></a><span class="lineno"> 992</span>&#160; <span class="comment">// map the vectors back to the sample coordinate system</span></div><div class="line"><a name="l00993"></a><span class="lineno"> 993</span>&#160; <a class="code" href="pearl-polar-coordinates_8ipf.html#adfc1f0b3cddf672b0ccdb6a22b97ba9e">cart2polar_wave</a>(w_rot_cart, w_rot_polar)</div><div class="line"><a name="l00994"></a><span class="lineno"> 994</span>&#160; <span class="comment">// copy to output</span></div><div class="line"><a name="l00995"></a><span class="lineno"> 995</span>&#160; polar[][ii] = w_rot_polar[1][p]</div><div class="line"><a name="l00996"></a><span class="lineno"> 996</span>&#160; azi[][ii] = w_rot_polar[2][p]</div><div class="line"><a name="l00997"></a><span class="lineno"> 997</span>&#160; endfor</div><div class="line"><a name="l00998"></a><span class="lineno"> 998</span>&#160;};</div><div class="line"><a name="l00999"></a><span class="lineno"> 999</span>&#160;</div><div class="line"><a name="l01000"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aa54a550eccad2c8ccd82d2b4167f7a92"> 1000</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#aa54a550eccad2c8ccd82d2b4167f7a92">line_average</a>(wave source, wave dest){</div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>&#160; <span class="comment">// is this function used?</span></div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>&#160; wave source</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>&#160; wave dest</div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>&#160; </div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>&#160; variable ii</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>&#160; variable nn = dimsize(source, 1)</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>&#160; make /n=(dimsize(source, 0))/d/free line</div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>&#160; <span class="keywordflow">for</span> (ii = 0; ii &lt; nn; ii += 1)</div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>&#160; line = source[p][ii]</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>&#160; wavestats /q line</div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>&#160; dest[][ii] = line[p] / v_max</div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span>&#160; endfor</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>&#160;};</div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>&#160;</div><div class="line"><a name="l01018"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389"> 1018</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389">calc_nth</a>(variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, <span class="keywordtype">string</span> Holomode){</div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>&#160; Variable Theta_st, Theta_in, th, Phi_ran, Phi_ref</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span>&#160; String Holomode</div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>&#160; Variable The_step</div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>&#160; Variable deg2rad=0.01745329</div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>&#160; </div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;Stereographic&quot;</span>) == 0)</div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>&#160; The_step =trunc( Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st )</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>&#160; <span class="keywordflow">if</span>(th==90)</div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>&#160; The_step =trunc( Phi_ran*sin(th*pi/180)*Phi_ref/Theta_st )</div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>&#160; endif</div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>&#160; <span class="keywordflow">if</span> (cmpstr(Holomode, <span class="stringliteral">&quot;Parallel&quot;</span>) == 0)</div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span>&#160; The_step=trunc( Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st )</div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;h&quot;</span>) == 0)</div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>&#160; The_step=trunc( th/Theta_in*Phi_ran/Theta_st )</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>&#160; <span class="comment">//altro</span></div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span>&#160; endif</div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>&#160; endif</div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>&#160; endif</div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>&#160; </div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span>&#160; <span class="keywordflow">return</span>(The_step)</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span>&#160;};</div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>&#160;</div><div class="line"><a name="l01047"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1"> 1047</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1">calc_phi_step</a>(variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, <span class="keywordtype">string</span> Holomode){</div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span>&#160; Variable Theta_in, th, Theta_st, Phi_ran, Phi_ref</div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span>&#160; String Holomode</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span>&#160; </div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>&#160; Variable Phi_st</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span>&#160; Variable deg2rad=0.01745329</div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span>&#160;</div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;Stereographic&quot;</span>) == 0 )</div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span>&#160; <span class="keywordflow">if</span> ((th &lt; 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))</div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span>&#160; Phi_st=0.0</div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span>&#160; Phi_st=Phi_ran/(trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st))</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>&#160; endif</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>&#160; <span class="keywordflow">if</span>(th==90)</div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>&#160; Phi_st=2.0</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>&#160; endif</div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>&#160; endif</div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>&#160;</div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;Parallel&quot;</span>) == 0 )</div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>&#160; <span class="keywordflow">if</span>((th &lt; 0.5) || (trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st) == 0))</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span>&#160; Phi_st=0.0</div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>&#160; Phi_st=Phi_ran/(trunc(Phi_ran*tan(th*deg2rad)*Phi_ref/Theta_st))</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>&#160; endif</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>&#160; endif</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>&#160;</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;h&quot;</span>) == 0 )</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>&#160; <span class="keywordflow">if</span>((th &lt; 0.5) || (trunc(Phi_ran*sin(th*deg2rad)*Phi_ref/Theta_st) == 0))</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>&#160; Phi_st=0.0</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>&#160; Phi_st=Phi_ran/trunc(th/Theta_in*Phi_ran/Theta_st)</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>&#160; endif</div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>&#160; endif</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>&#160; </div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>&#160; <span class="keywordflow">if</span> (Phi_st==0)</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>&#160; Phi_st=360</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>&#160; endif</div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>&#160; </div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span>&#160; <span class="keywordflow">return</span>(Phi_st)</div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span>&#160;};</div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>&#160;</div><div class="line"><a name="l01091"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0"> 1091</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0">Calc_The_step</a>(variable th, variable Theta_st, <span class="keywordtype">string</span> Holomode){</div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>&#160; String Holomode</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>&#160; Variable th, Theta_st</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>&#160; </div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>&#160; Variable deg2rad=0.01745329, dt_loc,The_step</div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>&#160;</div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>&#160; <span class="keywordflow">if</span> ( (cmpstr(Holomode, <span class="stringliteral">&quot;Stereographic&quot;</span>)) ==0 )</div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>&#160; The_step=Theta_st</div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>&#160; endif</div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>&#160; </div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>&#160; <span class="keywordflow">if</span> ( (cmpstr(Holomode, <span class="stringliteral">&quot;h&quot;</span>)) ==0 )</div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>&#160; The_step=Theta_st</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>&#160; endif</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>&#160; </div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>&#160; <span class="keywordflow">if</span> ( cmpstr(Holomode, <span class="stringliteral">&quot;Parallel&quot;</span>) == 0 )</div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>&#160; <span class="keywordflow">if</span>(th &lt; 89.5)</div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>&#160; dt_loc = Theta_st/cos(th*deg2rad)</div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>&#160; <span class="keywordflow">if</span>(dt_loc &gt; 10)</div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>&#160; dt_loc=10</div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>&#160; endif</div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span>&#160; The_step=dt_loc</div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>&#160; The_step=10</div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>&#160; endif</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>&#160; endif</div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>&#160; <span class="keywordflow">return</span>(The_step)</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>&#160;};</div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>&#160;</div><div class="line"><a name="l01122"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ac0def1ded61f9cd758df0c99f4ff9470"> 1122</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#ac0def1ded61f9cd758df0c99f4ff9470">CalcN_Theta</a>(<span class="keywordtype">string</span> HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st){</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>&#160; String HoloMode</div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>&#160; Variable Theta_in,Theta_ran,Theta_st</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span>&#160; Variable n_theta, aux, aux1,ii</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>&#160;</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>&#160; aux = Theta_in</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span>&#160; aux1= Theta_in - Theta_ran</div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>&#160; ii = 0</div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>&#160; <span class="keywordflow">do</span></div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>&#160; aux = aux - <a class="code" href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0">Calc_The_step</a>(aux, Theta_st, HoloMode)</div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span>&#160; <span class="keywordflow">if</span>(aux&lt;=Theta_in-Theta_ran)</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span>&#160; aux=Theta_in-Theta_ran</div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span>&#160; endif</div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>&#160; ii = ii+1</div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span>&#160; <span class="keywordflow">while</span>((aux&gt;aux1)%&amp;(Theta_in-aux&lt;=Theta_ran))<span class="comment">//</span></div><div class="line"><a name="l01137"></a><span class="lineno"> 1137</span>&#160; n_theta=ii+1</div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span>&#160; Return(n_theta)</div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>&#160;};</div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>&#160;</div><div class="line"><a name="l01160"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7"> 1160</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a>(variable npol, <span class="keywordtype">string</span> nickname, variable xpdplot = defaultValue){</div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>&#160; variable npol</div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>&#160; variable xpdplot</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>&#160; </div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>&#160; xpdplot = 0</div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>&#160; endif</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span>&#160; </div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>&#160; <span class="keywordtype">string</span> HoloMode = <span class="stringliteral">&quot;h&quot;</span></div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>&#160; variable Theta_in = 90</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>&#160; variable Theta_ran = 90</div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span>&#160; variable Theta_st = 90 / (npol - 1)</div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span>&#160; variable Phi_ran = 360</div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>&#160; variable Phi_ref = 1</div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>&#160; variable Phi_in = 0</div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</span>&#160; </div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</span>&#160; variable n_theta = <a class="code" href="pearl-anglescan-process_8ipf.html#ac0def1ded61f9cd758df0c99f4ff9470">CalcN_Theta</a>(HoloMode, Theta_in, Theta_ran, Theta_st)</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span>&#160;</div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>&#160; <span class="comment">// wave names</span></div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>&#160; <span class="keywordflow">if</span> (strlen(nickname))</div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>&#160; <span class="keywordtype">string</span> s_prefix = nickname + <span class="stringliteral">&quot;_&quot;</span></div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>&#160; <span class="keywordtype">string</span> s_int = s_prefix + <span class="stringliteral">&quot;i&quot;</span><span class="comment">// Intensity wave (counts/sec)</span></div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span>&#160; s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>&#160; s_int = <span class="stringliteral">&quot;values&quot;</span><span class="comment">// &quot;i&quot; is not a valid wave name</span></div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>&#160; endif</div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span><span class="comment">// thetas for each int-point of the holo</span></div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span><span class="comment">// phis for each int-point of the holo</span></div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>&#160;</div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>&#160; <span class="keywordtype">string</span> s_index = s_prefix + <span class="stringliteral">&quot;index&quot;</span><span class="comment">// starting index for each theta</span></div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span><span class="comment">// theta values</span></div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span>&#160; <span class="keywordtype">string</span> s_dphi = s_prefix + <span class="stringliteral">&quot;dphi&quot;</span><span class="comment">// delta phis at each theta</span></div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>&#160; <span class="keywordtype">string</span> s_nphis = s_prefix + <span class="stringliteral">&quot;nphis&quot;</span><span class="comment">// number of phis at each theta</span></div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>&#160;</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>&#160; <span class="keywordtype">string</span> s_HoloData = s_prefix + <span class="stringliteral">&quot;data&quot;</span><span class="comment">// All holo exp.- parameter information</span></div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>&#160; <span class="keywordtype">string</span> s_HoloInfo = s_prefix + <span class="stringliteral">&quot;info&quot;</span></div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>&#160; </div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>&#160; <span class="comment">// the following two waves are used by the pearl-anglescan procedures but not by XPDplot</span></div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span>&#160; <span class="keywordtype">string</span> s_tot = s_prefix + <span class="stringliteral">&quot;tot&quot;</span><span class="comment">// accumulated counts at each point</span></div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span>&#160; <span class="keywordtype">string</span> s_weight = s_prefix + <span class="stringliteral">&quot;wt&quot;</span><span class="comment">// total accumulation time at each point (arb. units)</span></div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span>&#160;</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>&#160; make /O/D/n=(n_theta) $s_index /wave=index</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>&#160; make /O/D/n=(n_theta) $s_theta /wave=theta</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>&#160; make /O/D/n=(n_theta) $s_dphi /wave=dphi</div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>&#160; make /O/D/n=(n_theta) $s_nphis /wave=nphis</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>&#160; </div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>&#160; <span class="comment">//---------- calculate phi-step-size for this theta:</span></div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>&#160; variable aux = <a class="code" href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0">Calc_The_step</a>(Theta_in, Theta_st, HoloMode)</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>&#160; dphi[0] = <a class="code" href="pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1">calc_phi_step</a>(Theta_in, Theta_in, aux, Phi_ran, Phi_ref, HoloMode)</div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>&#160; Theta[0] = Theta_in</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>&#160; nphis[0] = <a class="code" href="pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389">calc_nth</a>(aux, Theta_in, Theta_in, Phi_ran, Phi_ref, HoloMode)</div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>&#160; Index[0] = nphis[0]</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span>&#160; </div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>&#160; <span class="comment">//---------- calculate number of phis, phi-step, and starting-index for each theta:</span></div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>&#160; variable ii = 1</div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>&#160; <span class="keywordflow">do</span></div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>&#160; Theta[ii] = Theta[ii-1] - aux</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>&#160; <span class="keywordflow">if</span>(Theta[ii] &lt;= Theta_in-Theta_ran)</div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>&#160; Theta[ii] = Theta_in-Theta_ran</div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>&#160; endif</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>&#160; aux = <a class="code" href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0">Calc_The_step</a>(Theta[ii], Theta_st, HoloMode)</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span>&#160; dphi[ii] = <a class="code" href="pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1">calc_phi_step</a>(Theta_in, Theta[ii], aux, Phi_ran, Phi_ref, HoloMode)</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>&#160; nphis[ii] = <a class="code" href="pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389">calc_nth</a>(aux, Theta_in, Theta[ii], Phi_ran, Phi_ref, HoloMode)</div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>&#160; Index[ii] = Index[ii-1] + nphis[ii]</div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span>&#160; ii=ii+1</div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>&#160; <span class="keywordflow">while</span>(ii &lt; n_theta)</div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>&#160;</div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>&#160; <span class="keywordflow">if</span> (Index[n_theta-1]==Index[n_theta-2])</div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span>&#160; Index[n_theta-1]=Index[n_theta-2]+1</div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>&#160; nphis[n_theta-1]=1</div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span>&#160; endif</div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span>&#160;</div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>&#160; variable NumPoints = sum(nphis, 0, numpnts(nphis))</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span>&#160; </div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span>&#160; <span class="comment">//---------- calculate theta and phi for each data point:</span></div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>&#160; make /O/D/N=(NumPoints) $s_polar /wave=polar, $s_azim /wave=azim</div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span>&#160; note azim, <span class="stringliteral">&quot;version=1.6&quot;</span></div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span>&#160; </div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span>&#160; ii = 0</div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>&#160; variable StartIndex = 0</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>&#160; variable EndIndex</div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span>&#160; <span class="keywordflow">do</span></div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span>&#160; EndIndex=Index[ii]</div><div class="line"><a name="l01244"></a><span class="lineno"> 1244</span>&#160; Polar[StartIndex, EndIndex-1]=Theta[ii]</div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</span>&#160; Azim[StartIndex, EndIndex-1]= mod(Phi_ran+(x-StartIndex)*dphi[ii]+Phi_in,Phi_ran)</div><div class="line"><a name="l01246"></a><span class="lineno"> 1246</span>&#160; ii = ii + 1</div><div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>&#160; StartIndex = EndIndex</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>&#160; <span class="keywordflow">while</span>(ii &lt; n_theta)</div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>&#160;</div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>&#160; duplicate /o azim, $s_int /wave=values</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>&#160; duplicate /o azim, $s_tot /wave=totals</div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>&#160; duplicate /o azim, $s_weight /wave=weights</div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>&#160; values = nan</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>&#160; totals = 0</div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>&#160; weights = 0</div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>&#160;</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>&#160; <span class="comment">// XPDplot metadata</span></div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>&#160; <span class="keywordflow">if</span> (xpdplot)</div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>&#160; <span class="keywordtype">string</span> s_FileName = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>&#160; <span class="keywordtype">string</span> s_Comment = <span class="stringliteral">&quot;created by pearl-anglescan-process.ipf&quot;</span></div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>&#160; <span class="keywordtype">string</span> s_HoloMode = <span class="stringliteral">&quot;Stereographic&quot;</span></div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>&#160; variable /g gb_SpectraFile = 0</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>&#160; </div><div class="line"><a name="l01264"></a><span class="lineno"> 1264</span>&#160; Make/O/D/n=22 $s_HoloData /wave=HoloData</div><div class="line"><a name="l01265"></a><span class="lineno"> 1265</span>&#160; HoloData[0] = NaN<span class="comment">// v_StartKE</span></div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span>&#160; HoloData[1] = NaN<span class="comment">// v_StoppKE</span></div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span>&#160; HoloData[6] = NumPoints</div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span>&#160; HoloData[7] = Theta_in</div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span>&#160; HoloData[8] = Theta_ran</div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span>&#160; HoloData[9] = Theta_st</div><div class="line"><a name="l01271"></a><span class="lineno"> 1271</span>&#160; HoloData[11] = Phi_in</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span>&#160; HoloData[12] = Phi_ran</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>&#160; HoloData[13] = Theta_st</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span>&#160; HoloData[15] = Phi_ref</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>&#160; HoloData[16] = Phi_ran</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span>&#160; HoloData[17] = 0<span class="comment">// v_HoloBit (stereographic)</span></div><div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>&#160;</div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>&#160; Make/O/T/n=22 $s_HoloInfo /wave=HoloInfo</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>&#160; HoloInfo[0] = s_FileName</div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span>&#160; HoloInfo[1] = s_Comment</div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>&#160; HoloInfo[10] = s_HoloMode</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>&#160; HoloInfo[11] = <span class="stringliteral">&quot;&quot;</span><span class="comment">// s_MeasuringMode</span></div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>&#160;</div><div class="line"><a name="l01284"></a><span class="lineno"> 1284</span>&#160; <span class="comment">// notebook for XPDplot</span></div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span>&#160; <span class="keywordflow">if</span> (WinType(NickName) == 5)</div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>&#160; Notebook $NickName selection={startOfFile, endOfFile}</div><div class="line"><a name="l01287"></a><span class="lineno"> 1287</span>&#160; Notebook $NickName text=<span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01288"></a><span class="lineno"> 1288</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01289"></a><span class="lineno"> 1289</span>&#160; NewNotebook /F=0 /K=1 /N=$NickName /W=(5,40,341,260)</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>&#160; Notebook $NickName defaultTab=140</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span>&#160; Notebook $NickName statusWidth=300</div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>&#160; Notebook $NickName backRGB=(56797,56797,56797)</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>&#160; Notebook $NickName pageMargins={80,80,80,80}</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>&#160; Notebook $NickName fSize=10</div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>&#160; Notebook $NickName fStyle=0,textRGB=(65535,0,26214)</div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>&#160; Notebook $NickName textRGB=(65535,0,26214)</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span>&#160; endif</div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>&#160; Notebook $NickName text = <span class="stringliteral">&quot;File:\t&quot;</span> + s_FileName + <span class="stringliteral">&quot;\r&quot;</span></div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>&#160; Notebook $NickName text = <span class="stringliteral">&quot;*** &quot;</span> + s_Comment + <span class="stringliteral">&quot; ***\r\r&quot;</span></div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span>&#160; Notebook $NickName text = <span class="stringliteral">&quot;Angle-Mode:\t&quot;</span> + s_HoloMode + <span class="stringliteral">&quot;\r&quot;</span></div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span>&#160; Notebook $NickName text = <span class="stringliteral">&quot;XPDplot Nickname:\t&quot;</span> + NickName + <span class="stringliteral">&quot;\r&quot;</span></div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span>&#160; endif</div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>&#160;};</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span>&#160;</div><div class="line"><a name="l01311"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a987811346894d8d81fc590b2f5ccec49"> 1311</a></span>&#160;<span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a987811346894d8d81fc590b2f5ccec49">get_hemi_nickname</a>(wave w){</div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>&#160; wave w</div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>&#160; </div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>&#160; <span class="keywordtype">string</span> prefix = <a class="code" href="pearl-anglescan-process_8ipf.html#a1442bc23122d52ba9c77e0f9baaad1da">get_hemi_prefix</a>(w)</div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>&#160; <span class="keywordtype">string</span> wname = nameofwave(w)</div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>&#160; </div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>&#160; <span class="keywordflow">if</span> (strlen(prefix))</div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>&#160; nickname = prefix</div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>&#160; <span class="keywordtype">string</span> s_wave_df = GetWavesDataFolder(w, 1)</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>&#160; dfref parent_df = $(s_wave_df + <span class="stringliteral">&quot;::&quot;</span>)</div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>&#160; nickname = GetDataFolder(0, parent_df)</div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>&#160; endif</div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>&#160; </div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>&#160; <span class="keywordflow">return</span> nickname</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>&#160;};</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>&#160;</div><div class="line"><a name="l01336"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a1442bc23122d52ba9c77e0f9baaad1da"> 1336</a></span>&#160;<span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a1442bc23122d52ba9c77e0f9baaad1da">get_hemi_prefix</a>(wave w){</div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>&#160; wave w</div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>&#160;</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>&#160; <span class="keywordtype">string</span> wname = nameofwave(w)</div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>&#160; <span class="keywordtype">string</span> prefix</div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</span>&#160; <span class="keywordflow">if</span> (ItemsInList(wname, <span class="stringliteral">&quot;_&quot;</span>) &gt;= 2)</div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span>&#160; prefix = StringFromList(0, wname, <span class="stringliteral">&quot;_&quot;</span>)</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>&#160; prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>&#160; endif</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>&#160; </div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span>&#160; <span class="keywordflow">return</span> prefix</div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>&#160;};</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span>&#160;</div><div class="line"><a name="l01367"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d"> 1367</a></span>&#160;dfr <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(<span class="keywordtype">string</span> nickname, <span class="keywordtype">string</span>* prefix, <span class="keywordtype">string</span>* intwave){</div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span>&#160; <span class="keywordtype">string</span> &amp;prefix</div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span>&#160; <span class="keywordtype">string</span> &amp;intwave</div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span>&#160;</div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span>&#160; dfref datadf</div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span>&#160; prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span>&#160; intwave = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>&#160; <span class="keywordflow">if</span> (strlen(nickname))</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span>&#160; <span class="keywordflow">if</span> (DataFolderExists(nickname))</div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>&#160; datadf = $nickname</div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>&#160; datadf = getdatafolderdfr()</div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>&#160; prefix = nickname + <span class="stringliteral">&quot;_&quot;</span></div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>&#160; intwave = prefix + <span class="stringliteral">&quot;i&quot;</span></div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>&#160; <span class="keywordflow">if</span> (exists(intwave) != 1)</div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>&#160; datadf = root:</div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>&#160; endif</div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>&#160; endif</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>&#160; datadf = getdatafolderdfr()</div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span>&#160; prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>&#160; intwave = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>&#160; endif</div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>&#160; <span class="keywordflow">return</span> datadf</div><div class="line"><a name="l01392"></a><span class="lineno"> 1392</span>&#160;};</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>&#160;</div><div class="line"><a name="l01401"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a3ec6935a5903d0974c93a2072d743013"> 1401</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a3ec6935a5903d0974c93a2072d743013">clear_hemi_grid</a>(<span class="keywordtype">string</span> nickname){</div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>&#160;</div><div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>&#160; dfref datadf</div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</span>&#160; <span class="keywordtype">string</span> s_prefix</div><div class="line"><a name="l01406"></a><span class="lineno"> 1406</span>&#160; <span class="keywordtype">string</span> s_int</div><div class="line"><a name="l01407"></a><span class="lineno"> 1407</span>&#160; datadf = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span>&#160;</div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span>&#160; <span class="keywordtype">string</span> s_totals = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>&#160; <span class="keywordtype">string</span> s_weights = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span>&#160; </div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>&#160; wave /sdfr=datadf /z w_values = $s_int</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span>&#160; wave /sdfr=datadf /z w_totals = $s_totals</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span>&#160; wave /sdfr=datadf /z w_weights = $s_weights</div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>&#160;</div><div class="line"><a name="l01416"></a><span class="lineno"> 1416</span>&#160; <span class="keywordflow">if</span> (waveexists(w_totals))</div><div class="line"><a name="l01417"></a><span class="lineno"> 1417</span>&#160; w_totals = 0</div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span>&#160; endif</div><div class="line"><a name="l01419"></a><span class="lineno"> 1419</span>&#160; <span class="keywordflow">if</span> (waveexists(w_weights))</div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>&#160; w_weights = 0</div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span>&#160; endif</div><div class="line"><a name="l01422"></a><span class="lineno"> 1422</span>&#160; <span class="keywordflow">if</span> (waveexists(w_values))</div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span>&#160; w_values = nan</div><div class="line"><a name="l01424"></a><span class="lineno"> 1424</span>&#160; endif</div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</span>&#160;};</div><div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>&#160;</div><div class="line"><a name="l01448"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aa5b1e2ab1dd43a73b7157406b803887e"> 1448</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#aa5b1e2ab1dd43a73b7157406b803887e">duplicate_hemi_scan</a>(<span class="keywordtype">string</span> source_nickname, dfref dest_folder, <span class="keywordtype">string</span> dest_nickname, variable xpdplot = defaultValue){</div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</span>&#160; <span class="keywordtype">string</span> source_nickname</div><div class="line"><a name="l01450"></a><span class="lineno"> 1450</span>&#160; dfref dest_folder</div><div class="line"><a name="l01451"></a><span class="lineno"> 1451</span>&#160; <span class="keywordtype">string</span> dest_nickname</div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>&#160; variable xpdplot</div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>&#160; </div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span>&#160; xpdplot = 0</div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>&#160; endif</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span>&#160; </div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>&#160;</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span>&#160; <span class="comment">// source data</span></div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span>&#160; dfref source_df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(source_nickname, s_prefix, s_int)</div><div class="line"><a name="l01464"></a><span class="lineno"> 1464</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l01467"></a><span class="lineno"> 1467</span>&#160; <span class="keywordtype">string</span> s_tot = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l01468"></a><span class="lineno"> 1468</span>&#160; <span class="keywordtype">string</span> s_weight = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span>&#160; <span class="keywordtype">string</span> s_matrix = s_prefix + <span class="stringliteral">&quot;matrix&quot;</span></div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>&#160;</div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span>&#160; wave /sdfr=source_df theta1 = $s_theta</div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>&#160; wave /sdfr=source_df polar1 = $s_polar</div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span>&#160; wave /sdfr=source_df azim1 = $s_azim</div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</span>&#160; wave /sdfr=source_df tot1 = $s_tot</div><div class="line"><a name="l01475"></a><span class="lineno"> 1475</span>&#160; wave /sdfr=source_df weight1 = $s_weight</div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span>&#160; wave /sdfr=source_df values1 = $s_int</div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span>&#160; wave /sdfr=source_df /z matrix1 = $s_matrix</div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>&#160; </div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span>&#160; variable npol = numpnts(theta1)</div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span>&#160; </div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span>&#160; setdatafolder dest_folder</div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a>(npol, dest_nickname, xpdplot=xpdplot)</div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span>&#160; </div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span>&#160; <span class="comment">// dest data</span></div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>&#160; dfref dest_df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(dest_nickname, s_prefix, s_int)</div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span>&#160; s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span>&#160; s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>&#160; s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span>&#160; s_tot = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span>&#160; s_weight = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span>&#160; s_matrix = s_prefix + <span class="stringliteral">&quot;matrix&quot;</span></div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>&#160;</div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>&#160; wave /sdfr=dest_df theta2 = $s_theta</div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>&#160; wave /sdfr=dest_df polar2 = $s_polar</div><div class="line"><a name="l01495"></a><span class="lineno"> 1495</span>&#160; wave /sdfr=dest_df azim2 = $s_azim</div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>&#160; wave /sdfr=dest_df tot2 = $s_tot</div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</span>&#160; wave /sdfr=dest_df weight2 = $s_weight</div><div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>&#160; wave /sdfr=dest_df values2 = $s_int</div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span>&#160;</div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span>&#160; tot2 = tot1</div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span>&#160; weight2 = weight1</div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span>&#160; values2 = values1</div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span>&#160; <span class="keywordflow">if</span> (waveexists(matrix1))</div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span>&#160; setdatafolder dest_df</div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span>&#160; duplicate /o matrix1, $s_matrix</div><div class="line"><a name="l01506"></a><span class="lineno"> 1506</span>&#160; endif</div><div class="line"><a name="l01507"></a><span class="lineno"> 1507</span>&#160; </div><div class="line"><a name="l01508"></a><span class="lineno"> 1508</span>&#160; <span class="keywordflow">if</span> (!(NumberByKey(<span class="stringliteral">&quot;version&quot;</span>, note(azim1), <span class="stringliteral">&quot;=&quot;</span>, <span class="stringliteral">&quot;\r&quot;</span>) &gt;= 1.6))</div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span>&#160; azim2 += 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l01510"></a><span class="lineno"> 1510</span>&#160; azim2 = azim2 &gt;= 360 ? azim2 - 360 : azim2</div><div class="line"><a name="l01511"></a><span class="lineno"> 1511</span>&#160; endif</div><div class="line"><a name="l01512"></a><span class="lineno"> 1512</span>&#160; </div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span>&#160;};</div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span>&#160;</div><div class="line"><a name="l01523"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a5162488b366e217195d8f8bd7cdde0ce"> 1523</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a5162488b366e217195d8f8bd7cdde0ce">rotate_hemi_scan</a>(<span class="keywordtype">string</span> nickname, variable angle){</div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span>&#160; variable angle</div><div class="line"><a name="l01526"></a><span class="lineno"> 1526</span>&#160; </div><div class="line"><a name="l01527"></a><span class="lineno"> 1527</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span>&#160;</div><div class="line"><a name="l01529"></a><span class="lineno"> 1529</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span>&#160;</div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l01535"></a><span class="lineno"> 1535</span>&#160; <span class="keywordtype">string</span> s_tot = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span>&#160; <span class="keywordtype">string</span> s_weight = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</span>&#160; </div><div class="line"><a name="l01538"></a><span class="lineno"> 1538</span>&#160; wave /sdfr=df polar = $s_polar</div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span>&#160; wave /sdfr=df azim = $s_azim</div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span>&#160; wave /sdfr=df tot = $s_tot</div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span>&#160; wave /sdfr=df weight = $s_weight</div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span>&#160; wave /sdfr=df values = $s_int</div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span>&#160;</div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span>&#160; azim += angle</div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span>&#160; azim = azim &lt; 0 ? azim + 360 : azim</div><div class="line"><a name="l01546"></a><span class="lineno"> 1546</span>&#160; azim = azim &gt;= 360 ? azim - 360 : azim</div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span>&#160;</div><div class="line"><a name="l01548"></a><span class="lineno"> 1548</span>&#160; duplicate /free polar, neg_polar</div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span>&#160; neg_polar = -polar</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span>&#160; sort {neg_polar, azim}, polar, azim, tot, weight, values</div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span>&#160; </div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span>&#160;};</div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</span>&#160;</div><div class="line"><a name="l01601"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2"> 1601</a></span>&#160;<span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2">display_hemi_scan</a>(<span class="keywordtype">string</span> nickname, variable projection = defaultValue, variable graphtype = defaultValue, variable do_ticks = defaultValue, variable do_grids = defaultValue, <span class="keywordtype">string</span> graphname = defaultValue){</div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span>&#160; variable projection</div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</span>&#160; variable graphtype</div><div class="line"><a name="l01605"></a><span class="lineno"> 1605</span>&#160; variable do_ticks</div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span>&#160; variable do_grids</div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span>&#160; </div><div class="line"><a name="l01609"></a><span class="lineno"> 1609</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l01610"></a><span class="lineno"> 1610</span>&#160;</div><div class="line"><a name="l01611"></a><span class="lineno"> 1611</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(projection))</div><div class="line"><a name="l01612"></a><span class="lineno"> 1612</span>&#160; projection = 1</div><div class="line"><a name="l01613"></a><span class="lineno"> 1613</span>&#160; endif</div><div class="line"><a name="l01614"></a><span class="lineno"> 1614</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(graphtype))</div><div class="line"><a name="l01615"></a><span class="lineno"> 1615</span>&#160; graphtype = 1</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>&#160; endif</div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(do_ticks))</div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>&#160; do_ticks = 3</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span>&#160; endif</div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(do_grids))</div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>&#160; do_grids = 3</div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span>&#160; endif</div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(graphname))</div><div class="line"><a name="l01624"></a><span class="lineno"> 1624</span>&#160; <span class="keywordflow">if</span> (strlen(nickname) &gt; 0)</div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span>&#160; graphname = nickname</div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01627"></a><span class="lineno"> 1627</span>&#160; graphname = GetDataFolder(0)</div><div class="line"><a name="l01628"></a><span class="lineno"> 1628</span>&#160; endif</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span>&#160; endif</div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span>&#160; </div><div class="line"><a name="l01631"></a><span class="lineno"> 1631</span>&#160; <span class="comment">// hemi grid waves</span></div><div class="line"><a name="l01632"></a><span class="lineno"> 1632</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l01633"></a><span class="lineno"> 1633</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l01634"></a><span class="lineno"> 1634</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>&#160;</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span>&#160; <span class="keywordtype">string</span> s_matrix = s_prefix + <span class="stringliteral">&quot;matrix&quot;</span></div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>&#160; </div><div class="line"><a name="l01640"></a><span class="lineno"> 1640</span>&#160; wave /sdfr=df /z values = $s_int</div><div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>&#160; wave /sdfr=df /z azim = $s_azim</div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>&#160; wave /sdfr=df /z polar = $s_polar</div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span>&#160; wave /sdfr=df /z matrix = $s_matrix</div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span>&#160;</div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span>&#160; setdatafolder df</div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span>&#160; <span class="keywordtype">string</span> s_ster_rad = s_prefix + <span class="stringliteral">&quot;ster_rad&quot;</span></div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span>&#160; duplicate /o polar, $s_ster_rad /wave=ster_rad</div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span>&#160; ster_rad = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(polar, projection=projection)</div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span>&#160; </div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span>&#160; <span class="keywordtype">string</span> s_ster_x = s_prefix + <span class="stringliteral">&quot;ster_x&quot;</span></div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span>&#160; <span class="keywordtype">string</span> s_ster_y = s_prefix + <span class="stringliteral">&quot;ster_y&quot;</span></div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span>&#160; duplicate /o azim, $s_ster_x /wave=ster_x, $s_ster_y /wave=ster_y</div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span>&#160; ster_x = ster_rad * cos(azim * pi / 180)</div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>&#160; ster_y = ster_rad * sin(azim * pi / 180)</div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span>&#160;</div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span>&#160; variable azim_offset = 0</div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>&#160; <span class="keywordflow">if</span> (!(NumberByKey(<span class="stringliteral">&quot;version&quot;</span>, note(azim), <span class="stringliteral">&quot;=&quot;</span>, <span class="stringliteral">&quot;\r&quot;</span>) &gt;= 1.6))</div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span>&#160; DoAlert /T=<span class="stringliteral">&quot;display hemi scan&quot;</span> 0, <span class="stringliteral">&quot;your dataset doesn&#39;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!&quot;</span></div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span>&#160; azim_offset = 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span>&#160; endif</div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span>&#160;</div><div class="line"><a name="l01662"></a><span class="lineno"> 1662</span>&#160; <span class="keywordtype">string</span> s_trace</div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span>&#160; <span class="keywordflow">switch</span>(graphtype)</div><div class="line"><a name="l01664"></a><span class="lineno"> 1664</span>&#160; <span class="keywordflow">case</span> 1:</div><div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>&#160; graphname = <a class="code" href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770">display_polar_graph</a>(graphname, angle_offset=azim_offset, do_ticks=do_ticks)</div><div class="line"><a name="l01666"></a><span class="lineno"> 1666</span>&#160;</div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>&#160; s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span>&#160; ModifyGraph /W=$graphname mode($s_trace)=2, lsize($s_trace)=2</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span>&#160; ModifyGraph /W=$graphname zColor($s_trace)={values,*,*,BlueGreenOrange,0}</div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span>&#160; </div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</span>&#160; ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 trace=polarY0</div><div class="line"><a name="l01672"></a><span class="lineno"> 1672</span>&#160; ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0</div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>&#160; ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span>&#160;</div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>&#160; SetWindow $graphname, userdata(projection)=num2str(projection)</div><div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d">draw_hemi_axes</a>(graphname, do_grids=do_grids)</div><div class="line"><a name="l01677"></a><span class="lineno"> 1677</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l01678"></a><span class="lineno"> 1678</span>&#160; <span class="keywordflow">case</span> 3:</div><div class="line"><a name="l01679"></a><span class="lineno"> 1679</span>&#160; graphname = <a class="code" href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770">display_polar_graph</a>(graphname, angle_offset=azim_offset, do_ticks=do_ticks)</div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span>&#160;</div><div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>&#160; s_trace = WMPolarAppendTrace(graphname, ster_rad, azim, 360)</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>&#160; ModifyGraph /W=$graphname mode($s_trace)=0, lsize($s_trace)=0</div><div class="line"><a name="l01683"></a><span class="lineno"> 1683</span>&#160; AppendImage /L=VertCrossing /B=HorizCrossing matrix</div><div class="line"><a name="l01684"></a><span class="lineno"> 1684</span>&#160;</div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>&#160; ColorScale /W=$graphname /C /N=text0 /E=2 /F=0 /B=1 /A=RB /X=0.00 /Y=0.00 image=$s_matrix</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>&#160; ColorScale /W=$graphname /C /N=text0 side=2, width=5, heightPct=40, frame=0.50, lblMargin=0</div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span>&#160; ColorScale /W=$graphname /C /N=text0 nticks=2, minor=1, tickLen=4.00, tickThick=0.50</div><div class="line"><a name="l01688"></a><span class="lineno"> 1688</span>&#160; </div><div class="line"><a name="l01689"></a><span class="lineno"> 1689</span>&#160; SetWindow $graphname, userdata(projection)=num2str(projection)</div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d">draw_hemi_axes</a>(graphname, do_grids=do_grids)</div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>&#160; endswitch</div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>&#160; </div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>&#160; setdatafolder savedf</div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>&#160; <span class="keywordflow">return</span> graphname</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</span>&#160;};</div><div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>&#160;</div><div class="line"><a name="l01739"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770"> 1739</a></span>&#160;<span class="keyword">static</span> <span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770">display_polar_graph</a>(<span class="keywordtype">string</span> graphname, variable angle_offset = defaultValue, variable do_ticks = defaultValue){</div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span>&#160; </div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>&#160; variable angle_offset</div><div class="line"><a name="l01743"></a><span class="lineno"> 1743</span>&#160; variable do_ticks</div><div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>&#160; </div><div class="line"><a name="l01745"></a><span class="lineno"> 1745</span>&#160; dfref savedf = GetDataFolderDFR()</div><div class="line"><a name="l01746"></a><span class="lineno"> 1746</span>&#160; </div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(angle_offset))</div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span>&#160; angle_offset = 0</div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span>&#160; endif</div><div class="line"><a name="l01750"></a><span class="lineno"> 1750</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(do_ticks))</div><div class="line"><a name="l01751"></a><span class="lineno"> 1751</span>&#160; do_ticks = 3</div><div class="line"><a name="l01752"></a><span class="lineno"> 1752</span>&#160; endif</div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span>&#160; </div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span>&#160; <span class="keywordflow">if</span> ((strlen(graphname) == 0) || (wintype(graphname) == 0))</div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span>&#160; Display /k=1 /W=(10,45,360,345)</div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span>&#160; DoWindow /C $graphname</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span>&#160; graphname = WMNewPolarGraph(<span class="stringliteral">&quot;&quot;</span>, graphname)</div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;zeroAngleWhere&quot;</span>, angle_offset)</div><div class="line"><a name="l01759"></a><span class="lineno"> 1759</span>&#160; </div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;angleAxisThick&quot;</span>, 0.5)</div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;doMajorAngleTicks&quot;</span>, <span class="stringliteral">&quot;manual&quot;</span>)</div><div class="line"><a name="l01762"></a><span class="lineno"> 1762</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;majorAngleInc&quot;</span>, 30)<span class="comment">// major ticks in 30 deg steps</span></div><div class="line"><a name="l01763"></a><span class="lineno"> 1763</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;minorAngleTicks&quot;</span>, 2)<span class="comment">// minor ticks in 10 deg steps</span></div><div class="line"><a name="l01764"></a><span class="lineno"> 1764</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;angleTicksLocation&quot;</span>, <span class="stringliteral">&quot;Outside&quot;</span>)</div><div class="line"><a name="l01765"></a><span class="lineno"> 1765</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;doAngleTickLabelSubRange&quot;</span>, 1)</div><div class="line"><a name="l01766"></a><span class="lineno"> 1766</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;angleTickLabelRangeStart&quot;</span>, 0)</div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;angleTickLabelRangeExtent&quot;</span>, 90)</div><div class="line"><a name="l01768"></a><span class="lineno"> 1768</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;angleTickLabelNotation&quot;</span>, <span class="stringliteral">&quot;%g&quot;</span>)</div><div class="line"><a name="l01769"></a><span class="lineno"> 1769</span>&#160; </div><div class="line"><a name="l01770"></a><span class="lineno"> 1770</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;doPolarGrids&quot;</span>, 0)</div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;doRadiusTickLabels&quot;</span>, 0)</div><div class="line"><a name="l01772"></a><span class="lineno"> 1772</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;radiusAxesWhere&quot;</span>, <span class="stringliteral">&quot; Off&quot;</span>)<span class="comment">// note the leading spaces, cf. WMPolarAnglesForRadiusAxes</span></div><div class="line"><a name="l01773"></a><span class="lineno"> 1773</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;radiusTicksLocation&quot;</span>, <span class="stringliteral">&quot;Off&quot;</span>)</div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span>&#160;</div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;majorTickLength&quot;</span>, 2)</div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;majorTickThick&quot;</span>, 0.5)</div><div class="line"><a name="l01777"></a><span class="lineno"> 1777</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;minorTickLength&quot;</span>, 1)</div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;minorTickThick&quot;</span>, 0.5)</div><div class="line"><a name="l01779"></a><span class="lineno"> 1779</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;tickLabelOpaque&quot;</span>, 0)</div><div class="line"><a name="l01780"></a><span class="lineno"> 1780</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;tickLabelFontSize&quot;</span>, 7)</div><div class="line"><a name="l01781"></a><span class="lineno"> 1781</span>&#160;</div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span>&#160; <span class="comment">// changes</span></div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span>&#160; <span class="keywordflow">if</span> (do_ticks &amp; 1)</div><div class="line"><a name="l01784"></a><span class="lineno"> 1784</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;angleTicksLocation&quot;</span>, <span class="stringliteral">&quot;Outside&quot;</span>)</div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01786"></a><span class="lineno"> 1786</span>&#160; WMPolarGraphSetStr(graphname, <span class="stringliteral">&quot;angleTicksLocation&quot;</span>, <span class="stringliteral">&quot;Off&quot;</span>)</div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>&#160; endif</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span>&#160; <span class="keywordflow">if</span> (do_ticks &amp; 2)</div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;doMinorAngleTicks&quot;</span>, 1)</div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>&#160; WMPolarGraphSetVar(graphname, <span class="stringliteral">&quot;doMinorAngleTicks&quot;</span>, 0)</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span>&#160; endif</div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span>&#160; </div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span>&#160; DoWindow /T $graphname, graphname</div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</span>&#160;</div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span>&#160; <span class="comment">// cursor info in angles</span></div><div class="line"><a name="l01797"></a><span class="lineno"> 1797</span>&#160; <span class="keywordtype">string</span> graphdf = <span class="stringliteral">&quot;root:packages:WMPolarGraphs:&quot;</span> + graphname</div><div class="line"><a name="l01798"></a><span class="lineno"> 1798</span>&#160; setdatafolder graphdf</div><div class="line"><a name="l01799"></a><span class="lineno"> 1799</span>&#160; <span class="comment">// current theta, phi coordinates are stored in global variables in the package folder of the graph</span></div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span>&#160; variable /g csrA_theta</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>&#160; variable /g csrA_phi</div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span>&#160; variable /g csrB_theta</div><div class="line"><a name="l01803"></a><span class="lineno"> 1803</span>&#160; variable /g csrB_phi</div><div class="line"><a name="l01804"></a><span class="lineno"> 1804</span>&#160; <span class="comment">// the text box is hidden initially. it shows up and hides with the cursor info box.</span></div><div class="line"><a name="l01805"></a><span class="lineno"> 1805</span>&#160; <span class="keywordtype">string</span> tb</div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span>&#160; tb = <span class="stringliteral">&quot;\\{&quot;</span></div><div class="line"><a name="l01807"></a><span class="lineno"> 1807</span>&#160; tb = tb + <span class="stringliteral">&quot;\&quot;A = (%.1f, %.1f)\&quot;,&quot;</span></div><div class="line"><a name="l01808"></a><span class="lineno"> 1808</span>&#160; tb = tb + graphdf + <span class="stringliteral">&quot;:csrA_theta,&quot;</span></div><div class="line"><a name="l01809"></a><span class="lineno"> 1809</span>&#160; tb = tb + graphdf + <span class="stringliteral">&quot;:csrA_phi&quot;</span></div><div class="line"><a name="l01810"></a><span class="lineno"> 1810</span>&#160; tb = tb + <span class="stringliteral">&quot;}&quot;</span></div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span>&#160; TextBox /W=$graphname /A=LT /B=1 /E=2 /F=0 /N=tb_angles /X=1 /Y=1 /V=0 tb</div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span>&#160; tb = <span class="stringliteral">&quot;\\{&quot;</span></div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span>&#160; tb = tb + <span class="stringliteral">&quot;\&quot;B = (%.1f, %.1f)\&quot;,&quot;</span></div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span>&#160; tb = tb + graphdf + <span class="stringliteral">&quot;:csrB_theta,&quot;</span></div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</span>&#160; tb = tb + graphdf + <span class="stringliteral">&quot;:csrB_phi&quot;</span></div><div class="line"><a name="l01816"></a><span class="lineno"> 1816</span>&#160; tb = tb + <span class="stringliteral">&quot;}&quot;</span></div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span>&#160; AppendText /W=$graphname /N=tb_angles tb</div><div class="line"><a name="l01818"></a><span class="lineno"> 1818</span>&#160; <span class="comment">// updates are triggered by a window hook</span></div><div class="line"><a name="l01819"></a><span class="lineno"> 1819</span>&#160; SetWindow $graphname, hook(<a class="code" href="pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288">polar_graph_hook</a>)=<a class="code" href="namespace_pearl_anglescan_process.html">PearlAnglescanProcess</a>#<a class="code" href="pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288">polar_graph_hook</a></div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l01821"></a><span class="lineno"> 1821</span>&#160; <span class="comment">// graph window exists</span></div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span>&#160; DoWindow /F $graphname</div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span>&#160; endif</div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span>&#160;</div><div class="line"><a name="l01825"></a><span class="lineno"> 1825</span>&#160; setdatafolder savedf</div><div class="line"><a name="l01826"></a><span class="lineno"> 1826</span>&#160; <span class="keywordflow">return</span> graphname</div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span>&#160;};</div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span>&#160;</div><div class="line"><a name="l01854"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d"> 1854</a></span>&#160;<span class="keyword">static</span> <span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d">draw_hemi_axes</a>(<span class="keywordtype">string</span> graphname, variable do_grids = defaultValue){</div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span>&#160; variable do_grids</div><div class="line"><a name="l01857"></a><span class="lineno"> 1857</span>&#160; </div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(do_grids))</div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span>&#160; do_grids = 3</div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span>&#160; endif</div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span>&#160;</div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span>&#160; dfref savedf = GetDataFolderDFR()</div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span>&#160;</div><div class="line"><a name="l01864"></a><span class="lineno"> 1864</span>&#160; <span class="keywordtype">string</span> sproj = GetUserData(graphname, <span class="stringliteral">&quot;&quot;</span>, <span class="stringliteral">&quot;projection&quot;</span>)</div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>&#160; variable projection = str2num(<span class="stringliteral">&quot;0&quot;</span> + sproj)</div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>&#160;</div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span>&#160; SetDrawLayer /W=$graphname ProgFront</div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>&#160;</div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>&#160; <span class="comment">// polar axis</span></div><div class="line"><a name="l01870"></a><span class="lineno"> 1870</span>&#160; SetDrawEnv /W=$graphname xcoord=HorizCrossing, ycoord=VertCrossing</div><div class="line"><a name="l01871"></a><span class="lineno"> 1871</span>&#160; SetDrawEnv /W=$graphname linethick= 0.5</div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</span>&#160; SetDrawEnv /W=$graphname dash=2</div><div class="line"><a name="l01873"></a><span class="lineno"> 1873</span>&#160; SetDrawEnv /W=$graphname fillpat=0</div><div class="line"><a name="l01874"></a><span class="lineno"> 1874</span>&#160; SetDrawEnv /W=$graphname fname=<span class="stringliteral">&quot;default&quot;</span>, fsize=7</div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>&#160; SetDrawEnv /W=$graphname textxjust=1, textyjust=1</div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span>&#160; <span class="comment">//SetDrawEnv /W=$graphname linefgc=(65535,65535,65535)</span></div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>&#160; SetDrawEnv /W=$graphname save</div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>&#160;</div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span>&#160; <span class="keywordflow">if</span> (do_grids &amp; 1)</div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</span>&#160; DrawLine /W=$graphname 0, -2, 0, 2</div><div class="line"><a name="l01881"></a><span class="lineno"> 1881</span>&#160; DrawLine /W=$graphname -2, 0, 2, 0</div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>&#160; endif</div><div class="line"><a name="l01883"></a><span class="lineno"> 1883</span>&#160;</div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span>&#160; variable radi</div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span>&#160; <span class="keywordflow">if</span> (do_grids &amp; 2)</div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span>&#160; radi = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(0.5, projection=projection)</div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>&#160; DrawOval /W=$graphname -radi, radi, radi, -radi</div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span>&#160; radi = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(30, projection=projection)</div><div class="line"><a name="l01889"></a><span class="lineno"> 1889</span>&#160; DrawOval /W=$graphname -radi, radi, radi, -radi</div><div class="line"><a name="l01890"></a><span class="lineno"> 1890</span>&#160; radi = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(60, projection=projection)</div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span>&#160; DrawOval /W=$graphname -radi, radi, radi, -radi</div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>&#160;</div><div class="line"><a name="l01893"></a><span class="lineno"> 1893</span>&#160; SetDrawEnv /W=$graphname textxjust= 1,textyjust= 2</div><div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>&#160; SetDrawEnv /W=$graphname save</div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>&#160; radi = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(30, projection=projection)</div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>&#160; DrawText /W=$graphname radi, -0.1, <span class="stringliteral">&quot;30&quot;</span></div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>&#160; radi = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(60, projection=projection)</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span>&#160; DrawText /W=$graphname radi, -0.1, <span class="stringliteral">&quot;60&quot;</span></div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span>&#160; endif</div><div class="line"><a name="l01900"></a><span class="lineno"> 1900</span>&#160; </div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span>&#160; setdatafolder savedf</div><div class="line"><a name="l01902"></a><span class="lineno"> 1902</span>&#160;};</div><div class="line"><a name="l01903"></a><span class="lineno"> 1903</span>&#160;</div><div class="line"><a name="l01926"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#afedad38a418cee5d1fb9e08aae2160a0"> 1926</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#afedad38a418cee5d1fb9e08aae2160a0">draw_diffraction_cone</a>(<span class="keywordtype">string</span> graphname, <span class="keywordtype">string</span> groupname, variable theta_axis, variable theta_inner, variable phi){</div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span>&#160; <span class="keywordtype">string</span> groupname</div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>&#160; </div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span>&#160; variable theta_axis</div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>&#160; variable theta_inner</div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>&#160; variable phi</div><div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>&#160; </div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>&#160; variable r_axis = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(theta_axis)</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>&#160; variable r_inner = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(theta_inner)</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>&#160; variable r_outer = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(2 * theta_axis - theta_inner)</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>&#160; </div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</span>&#160; SetDrawEnv push</div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>&#160; SetDrawLayer UserFront</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>&#160; DrawAction getgroup=$groupname, <span class="keyword">delete</span></div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span>&#160; SetDrawEnv gstart, gname=$groupname</div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>&#160; variable xc, yc, xr, yr</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>&#160;</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span>&#160; <span class="comment">// cone periphery</span></div><div class="line"><a name="l01945"></a><span class="lineno"> 1945</span>&#160; variable r_center = (r_outer + r_inner) / 2</div><div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>&#160; variable r_radius = (r_outer - r_inner) / 2</div><div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>&#160; xc = r_center * cos(phi * pi / 180)</div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>&#160; yc = r_center * sin(phi * pi / 180)</div><div class="line"><a name="l01949"></a><span class="lineno"> 1949</span>&#160; xr = r_radius</div><div class="line"><a name="l01950"></a><span class="lineno"> 1950</span>&#160; yr = r_radius</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span>&#160; SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing</div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>&#160; SetDrawEnv dash=11, fillpat=0</div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>&#160; DrawOval xc - xr, yc - yr, xc + xr, yc + yr</div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>&#160;</div><div class="line"><a name="l01955"></a><span class="lineno"> 1955</span>&#160; <span class="comment">// cone axis </span></div><div class="line"><a name="l01956"></a><span class="lineno"> 1956</span>&#160; xc = r_axis * cos(phi * pi / 180)</div><div class="line"><a name="l01957"></a><span class="lineno"> 1957</span>&#160; yc = r_axis * sin(phi * pi / 180)</div><div class="line"><a name="l01958"></a><span class="lineno"> 1958</span>&#160; r_radius = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(2)</div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span>&#160; xr = r_radius</div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>&#160; yr = r_radius</div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span>&#160; SetDrawEnv xcoord=HorizCrossing, ycoord=VertCrossing</div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span>&#160; SetDrawEnv fillfgc=(0,0,0)</div><div class="line"><a name="l01963"></a><span class="lineno"> 1963</span>&#160; DrawOval xc - xr, yc - yr, xc + xr, yc + yr</div><div class="line"><a name="l01964"></a><span class="lineno"> 1964</span>&#160; </div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span>&#160; SetDrawEnv gstop</div><div class="line"><a name="l01966"></a><span class="lineno"> 1966</span>&#160; SetDrawEnv pop</div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>&#160;};</div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span>&#160;</div><div class="line"><a name="l01990"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a1f4f74a8ae557c56e1e3aacd0b45f3f1"> 1990</a></span>&#160;<span class="keywordtype">string</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a1f4f74a8ae557c56e1e3aacd0b45f3f1">display_scanlines</a>(<span class="keywordtype">string</span> nickname, variable alpha_lo, variable alpha_hi, wave m_theta, wave m_tilt, wave m_phi, variable folding = defaultValue, variable projection = defaultValue){</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>&#160; variable alpha_lo</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>&#160; variable alpha_hi</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>&#160; wave m_theta</div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span>&#160; wave m_tilt</div><div class="line"><a name="l01996"></a><span class="lineno"> 1996</span>&#160; wave m_phi</div><div class="line"><a name="l01997"></a><span class="lineno"> 1997</span>&#160; variable folding</div><div class="line"><a name="l01998"></a><span class="lineno"> 1998</span>&#160; variable projection</div><div class="line"><a name="l01999"></a><span class="lineno"> 1999</span>&#160; </div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(folding))</div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>&#160; folding = 1</div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span>&#160; endif</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(projection))</div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>&#160; projection = 1</div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</span>&#160; endif</div><div class="line"><a name="l02006"></a><span class="lineno"> 2006</span>&#160; </div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>&#160; <span class="comment">// sort out data folder structure</span></div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span>&#160; dfref saveDF = GetDataFolderDFR()</div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span>&#160; newdatafolder /s/o $nickname</div><div class="line"><a name="l02010"></a><span class="lineno"> 2010</span>&#160; <span class="keywordtype">string</span> graphname = <span class="stringliteral">&quot;graph_&quot;</span> + nickname</div><div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>&#160; </div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span>&#160; duplicate /free m_tilt, loc_m_tilt</div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span>&#160; loc_m_tilt = -m_tilt</div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>&#160; </div><div class="line"><a name="l02015"></a><span class="lineno"> 2015</span>&#160; make /n=1 /d /free d_polar, d_azi</div><div class="line"><a name="l02016"></a><span class="lineno"> 2016</span>&#160; variable n_alpha = round(alpha_hi - alpha_lo) + 1</div><div class="line"><a name="l02017"></a><span class="lineno"> 2017</span>&#160; make /n=(n_alpha) /d /free analyser</div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span>&#160; setscale /i x alpha_lo, alpha_hi, <span class="stringliteral">&quot;&quot;</span>, analyser</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>&#160; analyser = x</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>&#160; </div><div class="line"><a name="l02021"></a><span class="lineno"> 2021</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d">convert_angles_ttpa2polar</a>(m_theta, loc_m_tilt, m_phi, analyser, d_polar, d_azi)</div><div class="line"><a name="l02022"></a><span class="lineno"> 2022</span>&#160; duplicate /free d_polar, d_radius</div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span>&#160; d_radius = <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(d_polar, projection=projection)</div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span>&#160; d_azi += 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span>&#160; </div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span>&#160; graphname = <a class="code" href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770">display_polar_graph</a>(graphname)</div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span>&#160; SetWindow $graphname, userdata(projection)=num2str(projection)</div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span>&#160; </div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span>&#160; variable ifold</div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span>&#160; variable iang</div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span>&#160; variable nang = numpnts(m_theta)</div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span>&#160; <span class="keywordtype">string</span> s_rad</div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span>&#160; <span class="keywordtype">string</span> s_azi</div><div class="line"><a name="l02034"></a><span class="lineno"> 2034</span>&#160; <span class="keywordtype">string</span> s_trace</div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span>&#160; <span class="keywordflow">for</span> (ifold = 0; ifold &lt; folding; ifold += 1)</div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span>&#160; d_azi = d_azi &gt;= 360 ? d_azi - 360 : d_azi</div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>&#160; <span class="keywordflow">for</span> (iang = 0; iang &lt; nang; iang += 1)</div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span>&#160; sprintf s_rad, <span class="stringliteral">&quot;rad_%d_%d&quot;</span>, ifold, iang</div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span>&#160; duplicate /o analyser, $s_rad</div><div class="line"><a name="l02040"></a><span class="lineno"> 2040</span>&#160; wave w_rad = $s_rad</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>&#160; w_rad = d_radius[p][iang]</div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span>&#160; </div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>&#160; sprintf s_azi, <span class="stringliteral">&quot;azi_%d_%d&quot;</span>, ifold, iang</div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>&#160; duplicate /o analyser, $s_azi</div><div class="line"><a name="l02045"></a><span class="lineno"> 2045</span>&#160; wave w_azi = $s_azi</div><div class="line"><a name="l02046"></a><span class="lineno"> 2046</span>&#160; w_azi = d_azi[p][iang]</div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>&#160; </div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span>&#160; <span class="keywordflow">if</span> (numtype(sum(w_rad)) == 0)</div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>&#160; s_trace = WMPolarAppendTrace(graphname, w_rad, w_azi, 360)</div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>&#160; ModifyGraph /w=$graphname mode($s_trace)=0, lsize($s_trace)=0.5</div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>&#160; endif</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span>&#160; endfor</div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span>&#160; d_azi += 360 / folding</div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span>&#160; endfor</div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span>&#160;</div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d">draw_hemi_axes</a>(graphname)</div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span>&#160;</div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span>&#160; <span class="keywordflow">return</span> graphname</div><div class="line"><a name="l02060"></a><span class="lineno"> 2060</span>&#160;};</div><div class="line"><a name="l02061"></a><span class="lineno"> 2061</span>&#160;</div><div class="line"><a name="l02078"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aae45cc49d67f79dcedc4420f82acea4c"> 2078</a></span>&#160;<span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#aae45cc49d67f79dcedc4420f82acea4c">kProjDist</a> = 0;</div><div class="line"><a name="l02079"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db"> 2079</a></span>&#160;<span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db">kProjStereo</a> = 1;</div><div class="line"><a name="l02080"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f"> 2080</a></span>&#160;<span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f">kProjArea</a> = 2;</div><div class="line"><a name="l02081"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3"> 2081</a></span>&#160;<span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3">kProjGnom</a> = 3;</div><div class="line"><a name="l02082"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659"> 2082</a></span>&#160;<span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659">kProjOrtho</a> = 4;</div><div class="line"><a name="l02083"></a><span class="lineno"> 2083</span>&#160;</div><div class="line"><a name="l02084"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13"> 2084</a></span>&#160;<span class="keyword">static</span> <span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13">kProjScaleDist</a> = 2;</div><div class="line"><a name="l02085"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665"> 2085</a></span>&#160;<span class="keyword">static</span> <span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665">kProjScaleStereo</a> = 2;</div><div class="line"><a name="l02086"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217"> 2086</a></span>&#160;<span class="keyword">static</span> <span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217">kProjScaleArea</a> = 2;</div><div class="line"><a name="l02087"></a><span class="lineno"> 2087</span>&#160;<span class="comment">// scaled so that radius(gnom) = radius(stereo) for polar = 88</span></div><div class="line"><a name="l02088"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843"> 2088</a></span>&#160;<span class="keyword">static</span> <span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843">kProjScaleGnom</a> = 0.06744519021;</div><div class="line"><a name="l02089"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5"> 2089</a></span>&#160;<span class="keyword">static</span> <span class="keyword">const</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5">kProjScaleOrtho</a> = 2;</div><div class="line"><a name="l02090"></a><span class="lineno"> 2090</span>&#160;</div><div class="line"><a name="l02105"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4"> 2105</a></span>&#160;threadsafe variable <a class="code" href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a>(variable polar, variable projection = defaultValue){</div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span>&#160; variable polar</div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span>&#160; variable projection</div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span>&#160; </div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(projection))</div><div class="line"><a name="l02110"></a><span class="lineno"> 2110</span>&#160; projection = 1</div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>&#160; endif</div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>&#160;</div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>&#160; variable radius</div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>&#160; <span class="keywordflow">switch</span>(projection)</div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db">kProjStereo</a>:<span class="comment">// stereographic</span></div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>&#160; radius = <a class="code" href="pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665">kProjScaleStereo</a> * tan(polar / 2 * pi / 180)</div><div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02118"></a><span class="lineno"> 2118</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f">kProjArea</a>:<span class="comment">// equal area</span></div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>&#160; radius = <a class="code" href="pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217">kProjScaleArea</a> * sin(polar / 2 * pi / 180)</div><div class="line"><a name="l02120"></a><span class="lineno"> 2120</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3">kProjGnom</a>:<span class="comment">// gnomonic</span></div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>&#160; radius = polar &lt; 90 ? <a class="code" href="pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843">kProjScaleGnom</a> * tan(polar * pi / 180) : inf</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659">kProjOrtho</a>:<span class="comment">// orthographic</span></div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>&#160; radius = <a class="code" href="pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5">kProjScaleOrtho</a> * sin(polar * pi / 180)</div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>&#160; <span class="keywordflow">default</span>:<span class="comment">// equidistant</span></div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span>&#160; radius = <a class="code" href="pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13">kProjScaleDist</a> * polar / 90</div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>&#160; endswitch</div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span>&#160; </div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>&#160; <span class="keywordflow">return</span> radius</div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span>&#160;};</div><div class="line"><a name="l02133"></a><span class="lineno"> 2133</span>&#160;</div><div class="line"><a name="l02150"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a"> 2150</a></span>&#160;threadsafe variable <a class="code" href="pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a">calc_graph_polar</a>(variable x, variable y, variable projection = defaultValue){</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>&#160; variable x</div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span>&#160; variable y</div><div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>&#160; variable projection</div><div class="line"><a name="l02154"></a><span class="lineno"> 2154</span>&#160; </div><div class="line"><a name="l02155"></a><span class="lineno"> 2155</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(projection))</div><div class="line"><a name="l02156"></a><span class="lineno"> 2156</span>&#160; projection = 1</div><div class="line"><a name="l02157"></a><span class="lineno"> 2157</span>&#160; endif</div><div class="line"><a name="l02158"></a><span class="lineno"> 2158</span>&#160;</div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span>&#160; variable radius</div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span>&#160; variable polar</div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span>&#160; </div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span>&#160; radius = sqrt(x^2 + y^2)</div><div class="line"><a name="l02163"></a><span class="lineno"> 2163</span>&#160; <span class="keywordflow">switch</span>(projection)</div><div class="line"><a name="l02164"></a><span class="lineno"> 2164</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db">kProjStereo</a>:<span class="comment">// stereographic</span></div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>&#160; polar = 2 * atan(radius / <a class="code" href="pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665">kProjScaleStereo</a>) * 180 / pi</div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f">kProjArea</a>:<span class="comment">// equal area</span></div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span>&#160; polar = 2 * asin(radius / <a class="code" href="pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217">kProjScaleArea</a>) * 180 / pi</div><div class="line"><a name="l02169"></a><span class="lineno"> 2169</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02170"></a><span class="lineno"> 2170</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3">kProjGnom</a>:<span class="comment">// gnomonic</span></div><div class="line"><a name="l02171"></a><span class="lineno"> 2171</span>&#160; polar = atan(radius / <a class="code" href="pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843">kProjScaleGnom</a>) * 180 / pi</div><div class="line"><a name="l02172"></a><span class="lineno"> 2172</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02173"></a><span class="lineno"> 2173</span>&#160; <span class="keywordflow">case</span> <a class="code" href="pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659">kProjOrtho</a>:<span class="comment">// orthographic</span></div><div class="line"><a name="l02174"></a><span class="lineno"> 2174</span>&#160; polar = asin(radius / <a class="code" href="pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5">kProjScaleOrtho</a>) * 180 / pi</div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span>&#160; <span class="keywordflow">default</span>:<span class="comment">// equidistant</span></div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span>&#160; polar = 90 * radius / <a class="code" href="pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13">kProjScaleDist</a></div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span>&#160; endswitch</div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span>&#160;</div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span>&#160; <span class="keywordflow">return</span> polar</div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span>&#160;};</div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span>&#160;</div><div class="line"><a name="l02203"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae"> 2203</a></span>&#160;threadsafe variable <a class="code" href="pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae">calc_graph_azi</a>(variable x, variable y, variable projection = defaultValue, variable zeroAngle = defaultValue){</div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span>&#160; variable x</div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</span>&#160; variable y</div><div class="line"><a name="l02206"></a><span class="lineno"> 2206</span>&#160; variable projection</div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>&#160; variable zeroAngle</div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span>&#160; </div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(projection))</div><div class="line"><a name="l02210"></a><span class="lineno"> 2210</span>&#160; projection = 1</div><div class="line"><a name="l02211"></a><span class="lineno"> 2211</span>&#160; endif</div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(zeroAngle))</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span>&#160; zeroAngle = 0</div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span>&#160; endif</div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>&#160;</div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span>&#160; variable azi</div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span>&#160; <span class="keywordflow">if</span> (x &gt; 0)</div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span>&#160; azi = atan(y / x) * 180 / pi</div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>&#160; azi = atan(y / x) * 180 / pi + 180</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>&#160; endif</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span>&#160; </div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>&#160; azi += zeroAngle</div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span>&#160; <span class="keywordflow">if</span> (azi &lt; 0)</div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>&#160; azi += 360</div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span>&#160; endif</div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span>&#160; <span class="keywordflow">if</span> (azi &gt;= 360)</div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>&#160; azi -= 360</div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>&#160; endif</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</span>&#160; <span class="keywordflow">if</span> (numtype(azi) != 0)</div><div class="line"><a name="l02231"></a><span class="lineno"> 2231</span>&#160; azi = 0</div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</span>&#160; endif</div><div class="line"><a name="l02233"></a><span class="lineno"> 2233</span>&#160; </div><div class="line"><a name="l02234"></a><span class="lineno"> 2234</span>&#160; <span class="keywordflow">return</span> azi</div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>&#160;};</div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>&#160;</div><div class="line"><a name="l02248"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a1baaa3ffd9495ed427b43cbfe6e1edf8"> 2248</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a1baaa3ffd9495ed427b43cbfe6e1edf8">update_polar_info</a>(<span class="keywordtype">string</span> graphname){</div><div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l02250"></a><span class="lineno"> 2250</span>&#160; </div><div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>&#160; dfref savedf = GetDataFolderDFR()</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>&#160;</div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>&#160; <span class="keywordtype">string</span> graphdf = <span class="stringliteral">&quot;root:packages:WMPolarGraphs:&quot;</span> + graphname</div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span>&#160; setdatafolder graphdf</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>&#160; </div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span>&#160; nvar csrA_theta</div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>&#160; nvar csrA_phi</div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span>&#160; nvar csrB_theta</div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>&#160; nvar csrB_phi</div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>&#160;</div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>&#160; <span class="keywordtype">string</span> sproj = GetUserData(graphname, <span class="stringliteral">&quot;&quot;</span>, <span class="stringliteral">&quot;projection&quot;</span>)</div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span>&#160; variable projection = str2num(<span class="stringliteral">&quot;0&quot;</span> + sproj)</div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>&#160; nvar zeroAngleWhere</div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span>&#160; </div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>&#160; variable x = hcsr(A, graphname)</div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span>&#160; variable y = vcsr(A, graphname)</div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>&#160; csrA_theta = <a class="code" href="pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a">calc_graph_polar</a>(x, y, projection=projection)</div><div class="line"><a name="l02268"></a><span class="lineno"> 2268</span>&#160; csrA_phi = <a class="code" href="pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae">calc_graph_azi</a>(x, y, projection=projection, zeroAngle=zeroAngleWhere)</div><div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>&#160;</div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span>&#160; x = hcsr(B, graphname)</div><div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>&#160; y = vcsr(B, graphname)</div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span>&#160; csrB_theta = <a class="code" href="pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a">calc_graph_polar</a>(x, y, projection=projection)</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>&#160; csrB_phi = <a class="code" href="pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae">calc_graph_azi</a>(x, y, projection=projection, zeroAngle=zeroAngleWhere)</div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</span>&#160; </div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>&#160;};</div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>&#160;</div><div class="line"><a name="l02283"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288"> 2283</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288">polar_graph_hook</a>(WMWinHookStruct* s){</div><div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>&#160; STRUCT WMWinHookStruct &amp;s</div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>&#160;</div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</span>&#160; Variable hookResult = 0</div><div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>&#160;</div><div class="line"><a name="l02288"></a><span class="lineno"> 2288</span>&#160; <span class="keywordflow">switch</span>(s.eventCode)</div><div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>&#160; <span class="keywordflow">case</span> 7:<span class="comment">// cursor moved</span></div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a1baaa3ffd9495ed427b43cbfe6e1edf8">update_polar_info</a>(s.winname)</div><div class="line"><a name="l02291"></a><span class="lineno"> 2291</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>&#160; <span class="keywordflow">case</span> 20:<span class="comment">// show info</span></div><div class="line"><a name="l02293"></a><span class="lineno"> 2293</span>&#160; TextBox /W=$s.winname /N=tb_angles /C /V=1</div><div class="line"><a name="l02294"></a><span class="lineno"> 2294</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</span>&#160; <span class="keywordflow">case</span> 21:<span class="comment">// hide info</span></div><div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>&#160; TextBox /W=$s.winname /N=tb_angles /C /V=0</div><div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02298"></a><span class="lineno"> 2298</span>&#160; endswitch</div><div class="line"><a name="l02299"></a><span class="lineno"> 2299</span>&#160;</div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span>&#160; <span class="keywordflow">return</span> hookResult<span class="comment">// 0 if nothing done, else 1</span></div><div class="line"><a name="l02301"></a><span class="lineno"> 2301</span>&#160;};</div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>&#160;</div><div class="line"><a name="l02303"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a70b0e243bcbd549e2b1da74aab605629"> 2303</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a70b0e243bcbd549e2b1da74aab605629">set_polar_graph_cursor</a>(<span class="keywordtype">string</span> nickname, <span class="keywordtype">string</span> cursorname, variable polar_angle, variable azim_angle, <span class="keywordtype">string</span> graphname = defaultValue){</div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</span>&#160; <span class="keywordtype">string</span> cursorname</div><div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>&#160; variable polar_angle</div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span>&#160; variable azim_angle</div><div class="line"><a name="l02308"></a><span class="lineno"> 2308</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l02309"></a><span class="lineno"> 2309</span>&#160; </div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(graphname))</div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>&#160; <span class="keywordflow">if</span> (strlen(nickname) &gt; 0)</div><div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>&#160; graphname = nickname</div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>&#160; graphname = GetDataFolder(0)</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</span>&#160; endif</div><div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>&#160; endif</div><div class="line"><a name="l02317"></a><span class="lineno"> 2317</span>&#160; </div><div class="line"><a name="l02318"></a><span class="lineno"> 2318</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</span>&#160;</div><div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>&#160; wave /sdfr=df /z azim = $s_azim</div><div class="line"><a name="l02325"></a><span class="lineno"> 2325</span>&#160; wave /sdfr=df /z polar = $s_polar</div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>&#160;</div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>&#160; FindLevel /P /Q polar, polar_angle</div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>&#160; <span class="keywordflow">if</span> (v_flag == 0)</div><div class="line"><a name="l02329"></a><span class="lineno"> 2329</span>&#160; variable polar_level = floor(v_levelx)</div><div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>&#160; FindLevel /P /Q /R=[polar_level] azim, azim_angle</div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span>&#160; <span class="keywordflow">if</span> (v_flag == 0)</div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>&#160; variable azim_level = round(v_levelx)</div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span>&#160; <span class="keywordtype">string</span> tracename = <span class="stringliteral">&quot;polarY0&quot;</span></div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>&#160; Cursor /W=$graphname /P $cursorname $traceName azim_level</div><div class="line"><a name="l02335"></a><span class="lineno"> 2335</span>&#160; endif</div><div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>&#160; endif</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span>&#160;};</div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>&#160;</div><div class="line"><a name="l02348"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5"> 2348</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5">hemi_add_anglescan</a>(<span class="keywordtype">string</span> nickname, wave values, wave polar, wave azi, wave weights = defaultValue){</div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span>&#160; <span class="keywordtype">string</span> nickname<span class="comment">// name prefix of holo waves.</span></div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>&#160; <span class="comment">// may be empty.</span></div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>&#160; wave values<span class="comment">// intensity values</span></div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>&#160; <span class="comment">// the wave can be one- or two-dimensional.</span></div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span>&#160; <span class="comment">// no specific order required, the function sorts the arrays internally</span></div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>&#160; wave polar<span class="comment">// polar coordinates. allowed range 0 &lt;= theta &lt;= 90</span></div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span>&#160; <span class="comment">// dimensions corresponding to value.</span></div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>&#160; wave azi<span class="comment">// azimuthal coordinates. allowed range -360 &lt;= phi &lt; +360</span></div><div class="line"><a name="l02357"></a><span class="lineno"> 2357</span>&#160; <span class="comment">// dimensions corresponding to value.</span></div><div class="line"><a name="l02358"></a><span class="lineno"> 2358</span>&#160; wave weights<span class="comment">// total accumulation time of each point of values. default = 1</span></div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>&#160;</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(weights))</div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span>&#160; duplicate /free values, weights</div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>&#160; weights = 1</div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>&#160; endif</div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span>&#160; </div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>&#160; <span class="comment">// quick check whether hemi grid is existing</span></div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>&#160;</div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>&#160;</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>&#160; wave /sdfr=df /z w_values = $s_int</div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span>&#160; wave /sdfr=df /z w_azim = $s_azim</div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>&#160; wave /sdfr=df /z w_polar = $s_polar</div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span>&#160; wave /sdfr=df /z w_theta = $s_theta</div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>&#160; <span class="keywordflow">if</span> (!waveexists(w_values) || !waveexists(w_azim) || !waveexists(w_polar))</div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span>&#160; abort <span class="stringliteral">&quot;Missing hemispherical scan grid. Please call make_hemi_grid() first.&quot;</span></div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>&#160; endif</div><div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>&#160; </div><div class="line"><a name="l02382"></a><span class="lineno"> 2382</span>&#160; <span class="comment">// make internal copies, one-dimensional, ordered in theta</span></div><div class="line"><a name="l02383"></a><span class="lineno"> 2383</span>&#160; duplicate /free values, values_copy</div><div class="line"><a name="l02384"></a><span class="lineno"> 2384</span>&#160; duplicate /free polar, polar_copy</div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span>&#160; duplicate /free azi, azi_copy</div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>&#160; duplicate /free weights, weights_copy</div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span>&#160; variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)</div><div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>&#160; redimension /n=(nn) values_copy, polar_copy, azi_copy, weights_copy</div><div class="line"><a name="l02389"></a><span class="lineno"> 2389</span>&#160; sort /r polar_copy, polar_copy, azi_copy, values_copy, weights_copy</div><div class="line"><a name="l02390"></a><span class="lineno"> 2390</span>&#160; </div><div class="line"><a name="l02391"></a><span class="lineno"> 2391</span>&#160; variable pol</div><div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>&#160; variable pol_st = abs(w_theta[1] - w_theta[0])</div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span>&#160; variable pol1, pol2</div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>&#160; </div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>&#160; duplicate /free azi_copy, azi_slice</div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span>&#160; duplicate /free values_copy, values_slice</div><div class="line"><a name="l02397"></a><span class="lineno"> 2397</span>&#160; duplicate /free weights_copy, weights_slice</div><div class="line"><a name="l02398"></a><span class="lineno"> 2398</span>&#160; <span class="keywordflow">for</span> (pol = 90; pol &gt;= 0; pol -= pol_st)</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>&#160; pol1 = pol - pol_st / 2</div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span>&#160; pol2 = pol + pol_st / 2</div><div class="line"><a name="l02401"></a><span class="lineno"> 2401</span>&#160; extract /free /indx polar_copy, sel, (pol1 &lt; polar_copy) &amp;&amp; (polar_copy &lt;= pol2)</div><div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>&#160; <span class="keywordflow">if</span> (numpnts(sel) &gt; 0)</div><div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>&#160; redimension /n=(numpnts(sel)) azi_slice, values_slice, weights_slice</div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</span>&#160; azi_slice = azi_copy[sel]</div><div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>&#160; values_slice = values_copy[sel]</div><div class="line"><a name="l02406"></a><span class="lineno"> 2406</span>&#160; weights_slice = weights_copy[sel]</div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a4641c716180d737700c6df87f5f8974e">hemi_add_aziscan</a>(nickname, values_slice, pol, azi_slice, weights=weights_slice)</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span>&#160; endif</div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>&#160; endfor</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>&#160;};</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span>&#160;</div><div class="line"><a name="l02418"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a4641c716180d737700c6df87f5f8974e"> 2418</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a4641c716180d737700c6df87f5f8974e">hemi_add_aziscan</a>(<span class="keywordtype">string</span> nickname, wave values, variable polar, wave azi, wave weights = defaultValue){</div><div class="line"><a name="l02419"></a><span class="lineno"> 2419</span>&#160; <span class="keywordtype">string</span> nickname<span class="comment">// name prefix of holo waves.</span></div><div class="line"><a name="l02420"></a><span class="lineno"> 2420</span>&#160; <span class="comment">// may be empty.</span></div><div class="line"><a name="l02421"></a><span class="lineno"> 2421</span>&#160; wave values<span class="comment">// intensity values of the azimuthal scan at the positions given in the azi parameter</span></div><div class="line"><a name="l02422"></a><span class="lineno"> 2422</span>&#160; variable polar<span class="comment">// polar angle where to add the azi scan</span></div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span>&#160; wave azi<span class="comment">// angle positions of the azimuthal scan</span></div><div class="line"><a name="l02424"></a><span class="lineno"> 2424</span>&#160; <span class="comment">// acceptable range: &gt;= -360 and &lt; +360</span></div><div class="line"><a name="l02425"></a><span class="lineno"> 2425</span>&#160; <span class="comment">// no specific order required, the function sorts the array internally</span></div><div class="line"><a name="l02426"></a><span class="lineno"> 2426</span>&#160; wave weights<span class="comment">// total accumulation time of each point of values. default = 1</span></div><div class="line"><a name="l02427"></a><span class="lineno"> 2427</span>&#160;</div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(weights))</div><div class="line"><a name="l02429"></a><span class="lineno"> 2429</span>&#160; duplicate /free values, weights</div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span>&#160; weights = 1</div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>&#160; endif</div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span>&#160; </div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</span>&#160; <span class="comment">// hemi grid waves</span></div><div class="line"><a name="l02434"></a><span class="lineno"> 2434</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02435"></a><span class="lineno"> 2435</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span>&#160;</div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span>&#160; <span class="keywordtype">string</span> s_totals = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>&#160; <span class="keywordtype">string</span> s_weights = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l02440"></a><span class="lineno"> 2440</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02441"></a><span class="lineno"> 2441</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span>&#160; <span class="keywordtype">string</span> s_index = s_prefix + <span class="stringliteral">&quot;index&quot;</span></div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l02444"></a><span class="lineno"> 2444</span>&#160; <span class="keywordtype">string</span> s_dphi = s_prefix + <span class="stringliteral">&quot;dphi&quot;</span></div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>&#160; <span class="keywordtype">string</span> s_nphis = s_prefix + <span class="stringliteral">&quot;nphis&quot;</span></div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span>&#160; </div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</span>&#160; wave /sdfr=df w_polar = $s_polar</div><div class="line"><a name="l02448"></a><span class="lineno"> 2448</span>&#160; wave /sdfr=df w_azim = $s_azim</div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>&#160; wave /sdfr=df w_values = $s_int</div><div class="line"><a name="l02450"></a><span class="lineno"> 2450</span>&#160; wave /sdfr=df w_totals = $s_totals</div><div class="line"><a name="l02451"></a><span class="lineno"> 2451</span>&#160; wave /sdfr=df w_weights = $s_weights</div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span>&#160; wave /sdfr=df w_index = $s_index</div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>&#160; wave /sdfr=df w_theta = $s_theta</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span>&#160; wave /sdfr=df w_dphi = $s_dphi</div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>&#160; wave /sdfr=df w_nphis = $s_nphis</div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>&#160; </div><div class="line"><a name="l02457"></a><span class="lineno"> 2457</span>&#160; <span class="comment">// destination slice coordinates</span></div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span>&#160; <span class="comment">//polar = round(polar)</span></div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>&#160; <span class="comment">//variable ipol = 90 - polar</span></div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span>&#160; variable ipol = BinarySearch(w_theta, polar)</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>&#160; <span class="keywordflow">if</span> (ipol &lt; 0)</div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>&#160; abort <span class="stringliteral">&quot;assertion failed in hemi_add_aziscan(): polar angle not found in grid.&quot;</span></div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span>&#160; endif</div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</span>&#160; </div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span>&#160; variable d1, d2</div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>&#160; <span class="keywordflow">if</span> (ipol &gt;= 1)</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>&#160; d1 = w_index[ipol - 1]</div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l02469"></a><span class="lineno"> 2469</span>&#160; d1 = 0</div><div class="line"><a name="l02470"></a><span class="lineno"> 2470</span>&#160; endif</div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span>&#160; d2 = w_index[ipol] - 1</div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>&#160; variable nd = d2 - d1 + 1</div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span>&#160; variable dphi = w_dphi[ipol]</div><div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>&#160; variable az1, az2</div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span>&#160; </div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</span>&#160; <span class="comment">// source slice coordinates </span></div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</span>&#160; <span class="comment">// order the slice from -dphi/2 to 360-dphi/2</span></div><div class="line"><a name="l02478"></a><span class="lineno"> 2478</span>&#160; azi = azi &lt; 0 ? azi + 360 : azi</div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>&#160; azi = azi &gt;= 360 - dphi/2 ? azi - 360 : azi</div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span>&#160; duplicate /free values, sel_values</div><div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>&#160; duplicate /free weights, sel_weights</div><div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>&#160; </div><div class="line"><a name="l02483"></a><span class="lineno"> 2483</span>&#160; <span class="comment">// loop over destination</span></div><div class="line"><a name="l02484"></a><span class="lineno"> 2484</span>&#160; variable <span class="keywordtype">id</span></div><div class="line"><a name="l02485"></a><span class="lineno"> 2485</span>&#160; variable v1, v2, w1, w2</div><div class="line"><a name="l02486"></a><span class="lineno"> 2486</span>&#160; <span class="keywordflow">for</span> (<span class="keywordtype">id</span> = 0; <span class="keywordtype">id</span> &lt; nd; <span class="keywordtype">id</span> += 1)</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span>&#160; az1 = (<span class="keywordtype">id</span> - 0.5) * dphi</div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</span>&#160; az2 = (<span class="keywordtype">id</span> + 0.5) * dphi</div><div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>&#160; extract /free /indx azi, sel, (az1 &lt;= azi) &amp;&amp; (azi &lt; az2)</div><div class="line"><a name="l02490"></a><span class="lineno"> 2490</span>&#160; <span class="keywordflow">if</span> (numpnts(sel) &gt; 0)</div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span>&#160; redimension /n=(numpnts(sel)) sel_values, sel_weights</div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span>&#160; sel_values = values[sel]</div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</span>&#160; sel_weights = weights[sel]</div><div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>&#160; v1 = w_totals[d1 + <span class="keywordtype">id</span>]</div><div class="line"><a name="l02495"></a><span class="lineno"> 2495</span>&#160; w1 = w_weights[d1 + <span class="keywordtype">id</span>]</div><div class="line"><a name="l02496"></a><span class="lineno"> 2496</span>&#160; <span class="keywordflow">if</span> ((numtype(v1) == 2) || (w1 &lt;= 0))</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>&#160; v1 = 0</div><div class="line"><a name="l02498"></a><span class="lineno"> 2498</span>&#160; w1 = 0</div><div class="line"><a name="l02499"></a><span class="lineno"> 2499</span>&#160; endif</div><div class="line"><a name="l02500"></a><span class="lineno"> 2500</span>&#160; v2 = sum(sel_values)</div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>&#160; w2 = sum(sel_weights)</div><div class="line"><a name="l02502"></a><span class="lineno"> 2502</span>&#160; w_totals[d1 + id] = v1 + v2</div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span>&#160; w_weights[d1 + id] = w1 + w2</div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>&#160; endif</div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>&#160; endfor</div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>&#160; w_values[d1, d1 + nd - 1] = w_totals[p] / w_weights[p]</div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</span>&#160;};</div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>&#160;</div><div class="line"><a name="l02524"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a5491cdee24910f6bad0d3af3c70f888b"> 2524</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a5491cdee24910f6bad0d3af3c70f888b">interpolate_hemi_scan</a>(<span class="keywordtype">string</span> nickname){</div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>&#160;</div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>&#160; dfref savedf = GetDataFolderDFR()</div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>&#160; </div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02532"></a><span class="lineno"> 2532</span>&#160;</div><div class="line"><a name="l02533"></a><span class="lineno"> 2533</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02535"></a><span class="lineno"> 2535</span>&#160; <span class="keywordtype">string</span> s_ster_x = s_prefix + <span class="stringliteral">&quot;ster_x&quot;</span></div><div class="line"><a name="l02536"></a><span class="lineno"> 2536</span>&#160; <span class="keywordtype">string</span> s_ster_y = s_prefix + <span class="stringliteral">&quot;ster_y&quot;</span></div><div class="line"><a name="l02537"></a><span class="lineno"> 2537</span>&#160;</div><div class="line"><a name="l02538"></a><span class="lineno"> 2538</span>&#160; wave /sdfr=df values = $s_int</div><div class="line"><a name="l02539"></a><span class="lineno"> 2539</span>&#160; wave /sdfr=df azim = $s_azim</div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span>&#160; wave /sdfr=df polar = $s_polar</div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</span>&#160; wave /sdfr=df ster_x = $s_ster_x</div><div class="line"><a name="l02542"></a><span class="lineno"> 2542</span>&#160; wave /sdfr=df ster_y = $s_ster_y</div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</span>&#160; </div><div class="line"><a name="l02544"></a><span class="lineno"> 2544</span>&#160; variable min_ster_x = wavemin(ster_x)</div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span>&#160; variable max_ster_x = wavemax(ster_x)</div><div class="line"><a name="l02546"></a><span class="lineno"> 2546</span>&#160; variable x0 = min_ster_x</div><div class="line"><a name="l02547"></a><span class="lineno"> 2547</span>&#160; variable xn = 181</div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span>&#160; variable dx = (max_ster_x - min_ster_x) / (xn - 1)</div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span>&#160; make /n=(numpnts(ster_x), 3) /free triplet</div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span>&#160; triplet[][0] = ster_x[p]</div><div class="line"><a name="l02551"></a><span class="lineno"> 2551</span>&#160; triplet[][1] = ster_y[p]</div><div class="line"><a name="l02552"></a><span class="lineno"> 2552</span>&#160; triplet[][2] = values[p]</div><div class="line"><a name="l02553"></a><span class="lineno"> 2553</span>&#160;</div><div class="line"><a name="l02554"></a><span class="lineno"> 2554</span>&#160; variable size = 181</div><div class="line"><a name="l02555"></a><span class="lineno"> 2555</span>&#160; setdatafolder df</div><div class="line"><a name="l02556"></a><span class="lineno"> 2556</span>&#160; make /n=(size, size) /d /o $(s_prefix + <span class="stringliteral">&quot;matrix&quot;</span>) /wave=matrix</div><div class="line"><a name="l02557"></a><span class="lineno"> 2557</span>&#160; make /n=(size, size) /free mnorm</div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span>&#160; ImageFromXYZ /as {ster_x, ster_y, values}, matrix, mnorm</div><div class="line"><a name="l02559"></a><span class="lineno"> 2559</span>&#160; matrix /= mnorm</div><div class="line"><a name="l02560"></a><span class="lineno"> 2560</span>&#160; matrixfilter NanZapMedian, matrix</div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span>&#160; matrixfilter gauss, matrix</div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span>&#160; </div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</span>&#160; duplicate /free values, ster_finite</div><div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>&#160; ster_finite = (numtype(values) == 0) * (ster_x^2 + ster_y^2)</div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>&#160; variable ster_max = wavemax(ster_finite)</div><div class="line"><a name="l02566"></a><span class="lineno"> 2566</span>&#160; matrix = (x^2 + y^2) &lt;= ster_max ? matrix : nan</div><div class="line"><a name="l02567"></a><span class="lineno"> 2567</span>&#160; </div><div class="line"><a name="l02568"></a><span class="lineno"> 2568</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>&#160;};</div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>&#160;</div><div class="line"><a name="l02581"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a0b9e2b025e1d55d2a064edccf6c1c3e3"> 2581</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a0b9e2b025e1d55d2a064edccf6c1c3e3">quick_pizza_image</a>(wave data, <span class="keywordtype">string</span> nickname, variable theta_offset, variable tilt_offset, variable phi_offset, variable npolar = defaultValue, variable nograph = defaultValue, variable folding = defaultValue){</div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span>&#160; wave data<span class="comment">// 2D intensity wave, see requirements above</span></div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span>&#160; <span class="keywordtype">string</span> nickname<span class="comment">// nick name for output data</span></div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span>&#160; <span class="comment">// in default mode, this will be the name of a child folder containing the output</span></div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span>&#160; <span class="comment">// in XPDplot mode, this will be a prefix of the generated data in the root folder</span></div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>&#160; variable theta_offset<span class="comment">// manipulator theta angle corresponding to normal emission</span></div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>&#160; variable tilt_offset<span class="comment">// manipulator tilt angle corresponding to normal emission</span></div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span>&#160; variable phi_offset<span class="comment">// manipulator phi angle corresponding to phi_result = 0</span></div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span>&#160; variable npolar<span class="comment">// number of polar angles, determines polar and azimuthal step size</span></div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span>&#160; <span class="comment">// default = 91 (1 degree steps)</span></div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span>&#160; variable nograph<span class="comment">// 0 (default) = display a new polar graph</span></div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</span>&#160; <span class="comment">// 1 = don&#39;t display a new graph (if a graph is existing from a previous call, it will update)</span></div><div class="line"><a name="l02593"></a><span class="lineno"> 2593</span>&#160; variable folding<span class="comment">// rotational averaging, default = 1</span></div><div class="line"><a name="l02594"></a><span class="lineno"> 2594</span>&#160; </div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(npolar))</div><div class="line"><a name="l02596"></a><span class="lineno"> 2596</span>&#160; npolar = 91</div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span>&#160; endif</div><div class="line"><a name="l02598"></a><span class="lineno"> 2598</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(nograph))</div><div class="line"><a name="l02599"></a><span class="lineno"> 2599</span>&#160; nograph = 0</div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span>&#160; endif</div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(folding))</div><div class="line"><a name="l02602"></a><span class="lineno"> 2602</span>&#160; folding = 1</div><div class="line"><a name="l02603"></a><span class="lineno"> 2603</span>&#160; endif</div><div class="line"><a name="l02604"></a><span class="lineno"> 2604</span>&#160; <span class="keywordtype">string</span> graphname = <span class="stringliteral">&quot;graph_&quot;</span> + nickname</div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02606"></a><span class="lineno"> 2606</span>&#160; </div><div class="line"><a name="l02607"></a><span class="lineno"> 2607</span>&#160; <span class="comment">// sort out data folder structure</span></div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span>&#160; dfref saveDF = GetDataFolderDFR()</div><div class="line"><a name="l02609"></a><span class="lineno"> 2609</span>&#160; dfref dataDF = GetWavesDataFolderDFR(data)</div><div class="line"><a name="l02610"></a><span class="lineno"> 2610</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span>&#160; <span class="keywordflow">if</span> (DataFolderExists(<span class="stringliteral">&quot;:attr&quot;</span>))</div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span>&#160; setdatafolder :attr</div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span>&#160; endif</div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span>&#160; dfref attrDF = GetDataFolderDFR()</div><div class="line"><a name="l02615"></a><span class="lineno"> 2615</span>&#160; setdatafolder dataDF</div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span>&#160; newdatafolder /s/o $nickname</div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span>&#160; dfref destDF = GetDataFolderDFR()</div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</span>&#160; </div><div class="line"><a name="l02619"></a><span class="lineno"> 2619</span>&#160; <span class="comment">// performance monitoring</span></div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span>&#160; variable timerRefNum</div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>&#160; variable /g xyz_perf_secs</div><div class="line"><a name="l02622"></a><span class="lineno"> 2622</span>&#160; timerRefNum = startMSTimer</div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</span>&#160;</div><div class="line"><a name="l02624"></a><span class="lineno"> 2624</span>&#160; wave /sdfr=attrDF ManipulatorTheta</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span>&#160; wave /sdfr=attrDF ManipulatorTilt</div><div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>&#160; wave /sdfr=attrDF ManipulatorPhi</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span>&#160; duplicate /free ManipulatorTheta, m_theta</div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span>&#160; duplicate /free ManipulatorTilt, m_tilt</div><div class="line"><a name="l02629"></a><span class="lineno"> 2629</span>&#160; duplicate /free ManipulatorPhi, m_phi</div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span>&#160; m_theta -= theta_offset</div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span>&#160; m_tilt -= tilt_offset</div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span>&#160; m_tilt *= -1<span class="comment">// checked 140702</span></div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>&#160; m_phi -= phi_offset</div><div class="line"><a name="l02634"></a><span class="lineno"> 2634</span>&#160; <span class="comment">//m_phi *= -1 // checked 140702</span></div><div class="line"><a name="l02635"></a><span class="lineno"> 2635</span>&#160; </div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>&#160; make /n=1/d/free d_polar, d_azi</div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779">convert_angles_ttpd2polar</a>(m_theta, m_tilt, m_phi, data, d_polar, d_azi)</div><div class="line"><a name="l02638"></a><span class="lineno"> 2638</span>&#160; d_azi += 180<span class="comment">// changed 151030 (v1.6)</span></div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span>&#160; d_azi = d_azi &gt;= 360 ? d_azi - 360 : d_azi</div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span>&#160;</div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span>&#160; duplicate /free data, values</div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</span>&#160; variable nn = dimsize(values, 0) * max(dimsize(values, 1), 1)</div><div class="line"><a name="l02643"></a><span class="lineno"> 2643</span>&#160; redimension /n=(nn) values, d_polar, d_azi</div><div class="line"><a name="l02644"></a><span class="lineno"> 2644</span>&#160; duplicate /o d_polar, ster_rad, ster_x, ster_y</div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span>&#160;</div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</span>&#160; variable projection = 1</div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>&#160; <span class="keywordflow">switch</span>(projection)</div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>&#160; <span class="keywordflow">case</span> 1:<span class="comment">// stereographic</span></div><div class="line"><a name="l02649"></a><span class="lineno"> 2649</span>&#160; ster_rad = 2 * tan(d_polar / 2 * pi / 180)</div><div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02651"></a><span class="lineno"> 2651</span>&#160; <span class="keywordflow">case</span> 2:<span class="comment">// azimuthal</span></div><div class="line"><a name="l02652"></a><span class="lineno"> 2652</span>&#160; ster_rad = 2 * cos((180 - d_polar) / 2 * pi / 180)</div><div class="line"><a name="l02653"></a><span class="lineno"> 2653</span>&#160; <span class="keywordflow">break</span></div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span>&#160; endswitch</div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span>&#160; <span class="keywordtype">string</span> s_ster_x = s_prefix + <span class="stringliteral">&quot;ster_x&quot;</span></div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span>&#160; <span class="keywordtype">string</span> s_ster_y = s_prefix + <span class="stringliteral">&quot;ster_y&quot;</span></div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span>&#160; </div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span>&#160; nn = 401</div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span>&#160; make /n=(nn, nn) /d /o matrix</div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span>&#160; make /n=(nn, nn) /free mnorm</div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span>&#160; setscale /i x -2, +2, matrix, mnorm</div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</span>&#160; setscale /i y -2, +2, matrix, mnorm</div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>&#160; matrix = 0</div><div class="line"><a name="l02664"></a><span class="lineno"> 2664</span>&#160; mnorm = 0</div><div class="line"><a name="l02665"></a><span class="lineno"> 2665</span>&#160; </div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span>&#160; variable ifold</div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span>&#160; <span class="keywordflow">for</span> (ifold = 0; ifold &lt; folding; ifold += 1)</div><div class="line"><a name="l02668"></a><span class="lineno"> 2668</span>&#160; ster_x = ster_rad * cos(d_azi * pi / 180)</div><div class="line"><a name="l02669"></a><span class="lineno"> 2669</span>&#160; ster_y = ster_rad * sin(d_azi * pi / 180)</div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span>&#160; ImageFromXYZ {ster_x, ster_y, values}, matrix, mnorm</div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span>&#160; d_azi = d_azi &gt;= 180 ? d_azi + 360 / folding - 180 : d_azi + 360 / folding</div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</span>&#160; endfor</div><div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>&#160; </div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span>&#160; matrix /= mnorm</div><div class="line"><a name="l02675"></a><span class="lineno"> 2675</span>&#160; matrixfilter /n=5 NanZapMedian matrix</div><div class="line"><a name="l02676"></a><span class="lineno"> 2676</span>&#160; matrixfilter /n=3 gauss matrix</div><div class="line"><a name="l02677"></a><span class="lineno"> 2677</span>&#160;</div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</span>&#160; <span class="keywordflow">if</span> (!nograph)</div><div class="line"><a name="l02679"></a><span class="lineno"> 2679</span>&#160; display /k=1</div><div class="line"><a name="l02680"></a><span class="lineno"> 2680</span>&#160; appendimage matrix</div><div class="line"><a name="l02681"></a><span class="lineno"> 2681</span>&#160; modifygraph width={Plan,1,bottom,left}</div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span>&#160; endif</div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span>&#160; </div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</span>&#160; <span class="keywordflow">if</span> (timerRefNum &gt;= 0)</div><div class="line"><a name="l02685"></a><span class="lineno"> 2685</span>&#160; xyz_perf_secs = stopMSTimer(timerRefNum) / 1e6</div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span>&#160; endif</div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span>&#160;</div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span>&#160;};</div><div class="line"><a name="l02690"></a><span class="lineno"> 2690</span>&#160;</div><div class="line"><a name="l02692"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a48cbd596656bc6d849c53afb4c58b90d"> 2692</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a48cbd596656bc6d849c53afb4c58b90d">save_hemi_scan</a>(<span class="keywordtype">string</span> nickname, <span class="keywordtype">string</span> pathname, <span class="keywordtype">string</span> filename){</div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>&#160; <span class="keywordtype">string</span> pathname</div><div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>&#160; <span class="keywordtype">string</span> filename</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span>&#160; </div><div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>&#160;</div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>&#160; <span class="comment">// source data</span></div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02703"></a><span class="lineno"> 2703</span>&#160;</div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02706"></a><span class="lineno"> 2706</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>&#160; <span class="keywordtype">string</span> s_tot = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>&#160; <span class="keywordtype">string</span> s_weight = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span>&#160;</div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>&#160; wave /sdfr=df theta1 = $s_theta</div><div class="line"><a name="l02711"></a><span class="lineno"> 2711</span>&#160; wave /sdfr=df polar1 = $s_polar</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span>&#160; wave /sdfr=df azim1 = $s_azim</div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span>&#160; wave /sdfr=df tot1 = $s_tot</div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>&#160; wave /sdfr=df weight1 = $s_weight</div><div class="line"><a name="l02715"></a><span class="lineno"> 2715</span>&#160; wave /sdfr=df values1 = $s_int</div><div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>&#160; </div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span>&#160; save /m=<span class="stringliteral">&quot;\r\n&quot;</span> /o /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename</div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span>&#160; </div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l02720"></a><span class="lineno"> 2720</span>&#160;};</div><div class="line"><a name="l02721"></a><span class="lineno"> 2721</span>&#160;</div><div class="line"><a name="l02725"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a89f73edcd51a675f4c3933cd0242484e"> 2725</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a89f73edcd51a675f4c3933cd0242484e">load_hemi_scan</a>(<span class="keywordtype">string</span> nickname, <span class="keywordtype">string</span> pathname, <span class="keywordtype">string</span> filename){</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span>&#160; <span class="keywordtype">string</span> pathname</div><div class="line"><a name="l02728"></a><span class="lineno"> 2728</span>&#160; <span class="keywordtype">string</span> filename</div><div class="line"><a name="l02729"></a><span class="lineno"> 2729</span>&#160; </div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l02731"></a><span class="lineno"> 2731</span>&#160;</div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>&#160; <span class="comment">//loadwave /p=$pathname /t theta1, polar1, azim1, tot1, weight1, values1 as filename</span></div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span>&#160; <span class="comment">//LoadWave /t/p=pearl_explorer_filepath/q filename</span></div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>&#160; <span class="comment">//svar waves = s_wavenames</span></div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span>&#160; <span class="comment">//if (v_flag &gt; 0)</span></div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>&#160; <span class="comment">// string /g pearl_explorer_import = &quot;load_itx_file&quot;</span></div><div class="line"><a name="l02737"></a><span class="lineno"> 2737</span>&#160; <span class="comment">//endif</span></div><div class="line"><a name="l02738"></a><span class="lineno"> 2738</span>&#160; </div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>&#160; setdatafolder saveDF</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>&#160;};</div><div class="line"><a name="l02741"></a><span class="lineno"> 2741</span>&#160;</div><div class="line"><a name="l02774"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a5265fd61f86eb72dd877e4190bfb4adf"> 2774</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a5265fd61f86eb72dd877e4190bfb4adf">import_tpi_scan</a>(<span class="keywordtype">string</span> nickname, wave theta, wave phi, wave intensity, variable folding = defaultValue, variable npolar = defaultValue, variable nograph = defaultValue, variable xpdplot = defaultValue){</div><div class="line"><a name="l02775"></a><span class="lineno"> 2775</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02776"></a><span class="lineno"> 2776</span>&#160; wave theta</div><div class="line"><a name="l02777"></a><span class="lineno"> 2777</span>&#160; wave phi</div><div class="line"><a name="l02778"></a><span class="lineno"> 2778</span>&#160; wave intensity</div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span>&#160; </div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span>&#160; variable folding</div><div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>&#160; variable npolar</div><div class="line"><a name="l02782"></a><span class="lineno"> 2782</span>&#160; variable nograph</div><div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>&#160; variable xpdplot</div><div class="line"><a name="l02784"></a><span class="lineno"> 2784</span>&#160; </div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(npolar))</div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span>&#160; npolar = 91</div><div class="line"><a name="l02787"></a><span class="lineno"> 2787</span>&#160; endif</div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(nograph))</div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span>&#160; nograph = 0</div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>&#160; endif</div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(folding))</div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span>&#160; folding = 1</div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span>&#160; endif</div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(xpdplot))</div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span>&#160; xpdplot = 0</div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>&#160; endif</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>&#160; </div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a>(npolar, nickname, xpdplot=xpdplot)</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>&#160;</div><div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>&#160; variable ifold</div><div class="line"><a name="l02801"></a><span class="lineno"> 2801</span>&#160; duplicate /free phi, fold_phi</div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>&#160; <span class="keywordflow">for</span> (ifold = 0; ifold &lt; folding; ifold += 1)</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5">hemi_add_anglescan</a>(nickname, intensity, theta, fold_phi)</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>&#160; fold_phi = fold_phi &gt;= 180 ? fold_phi + 360 / folding - fold_phi : fold_phi + 360 / folding</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span>&#160; endfor</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>&#160;</div><div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>&#160; <span class="keywordflow">if</span> (nograph==0)</div><div class="line"><a name="l02808"></a><span class="lineno"> 2808</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2">display_hemi_scan</a>(nickname)</div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span>&#160; endif</div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span>&#160;};</div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>&#160;</div><div class="line"><a name="l02823"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a5dc0cc7db9d3d7a6b3fa3f1b04d84a5e"> 2823</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a5dc0cc7db9d3d7a6b3fa3f1b04d84a5e">trim_hemi_scan</a>(<span class="keywordtype">string</span> nickname, variable theta_max){</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>&#160; variable theta_max</div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>&#160;</div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>&#160;</div><div class="line"><a name="l02831"></a><span class="lineno"> 2831</span>&#160; <span class="keywordtype">string</span> s_totals = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>&#160; <span class="keywordtype">string</span> s_weights = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>&#160;</div><div class="line"><a name="l02835"></a><span class="lineno"> 2835</span>&#160; wave /sdfr=df w_polar = $s_polar</div><div class="line"><a name="l02836"></a><span class="lineno"> 2836</span>&#160; wave /sdfr=df w_values = $s_int</div><div class="line"><a name="l02837"></a><span class="lineno"> 2837</span>&#160; wave /sdfr=df w_totals = $s_totals</div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</span>&#160; wave /sdfr=df w_weights = $s_weights</div><div class="line"><a name="l02839"></a><span class="lineno"> 2839</span>&#160;</div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>&#160; w_values = w_polar &lt;= theta_max ? w_totals / w_weights : nan</div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span>&#160;};</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span>&#160;</div><div class="line"><a name="l02862"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#aa486e16909d01e2251eeb4d635b972b1"> 2862</a></span>&#160;wave <a class="code" href="pearl-anglescan-process_8ipf.html#aa486e16909d01e2251eeb4d635b972b1">hemi_polar_cut</a>(<span class="keywordtype">string</span> nickname, variable azim){</div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02864"></a><span class="lineno"> 2864</span>&#160; variable azim</div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>&#160;</div><div class="line"><a name="l02866"></a><span class="lineno"> 2866</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l02867"></a><span class="lineno"> 2867</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02870"></a><span class="lineno"> 2870</span>&#160;</div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>&#160; <span class="keywordtype">string</span> s_totals = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span>&#160; <span class="keywordtype">string</span> s_weights = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>&#160; <span class="keywordtype">string</span> s_index = s_prefix + <span class="stringliteral">&quot;index&quot;</span></div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l02877"></a><span class="lineno"> 2877</span>&#160; <span class="keywordtype">string</span> s_dphi = s_prefix + <span class="stringliteral">&quot;dphi&quot;</span></div><div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>&#160; <span class="keywordtype">string</span> s_nphis = s_prefix + <span class="stringliteral">&quot;nphis&quot;</span></div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span>&#160; <span class="keywordtype">string</span> s_cut</div><div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>&#160; sprintf s_cut, <span class="stringliteral">&quot;%s_azi%03u&quot;</span>, s_int, round(azim)</div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>&#160;</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>&#160; wave /sdfr=df w_polar = $s_polar</div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>&#160; wave /sdfr=df w_azim = $s_azim</div><div class="line"><a name="l02884"></a><span class="lineno"> 2884</span>&#160; wave /sdfr=df w_values = $s_int</div><div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>&#160; wave /sdfr=df w_totals = $s_totals</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span>&#160; wave /sdfr=df w_weights = $s_weights</div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>&#160; wave /sdfr=df w_index = $s_index</div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>&#160; wave /sdfr=df w_theta = $s_theta</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>&#160; wave /sdfr=df w_dphi = $s_dphi</div><div class="line"><a name="l02890"></a><span class="lineno"> 2890</span>&#160; wave /sdfr=df w_nphis = $s_nphis</div><div class="line"><a name="l02891"></a><span class="lineno"> 2891</span>&#160;</div><div class="line"><a name="l02892"></a><span class="lineno"> 2892</span>&#160; variable npol = numpnts(w_theta)</div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>&#160; variable ipol</div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>&#160; variable pol_st = abs(w_theta[1] - w_theta[0])</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>&#160; variable pol</div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>&#160; variable pol1, pol2</div><div class="line"><a name="l02897"></a><span class="lineno"> 2897</span>&#160; variable nsel</div><div class="line"><a name="l02898"></a><span class="lineno"> 2898</span>&#160; </div><div class="line"><a name="l02899"></a><span class="lineno"> 2899</span>&#160; setdatafolder df</div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span>&#160; make /n=(npol) /o $s_cut</div><div class="line"><a name="l02901"></a><span class="lineno"> 2901</span>&#160; wave w_cut = $s_cut</div><div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>&#160; setscale /i x w_theta[0], w_theta[numpnts(w_theta)-1], <span class="stringliteral">&quot;deg&quot;</span>, w_cut</div><div class="line"><a name="l02903"></a><span class="lineno"> 2903</span>&#160; make /n=1 /free azi_slice</div><div class="line"><a name="l02904"></a><span class="lineno"> 2904</span>&#160; make /n=1 /free values_slice</div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span>&#160; </div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span>&#160; <span class="keywordflow">for</span> (ipol = 0; ipol &lt; npol; ipol += 1)</div><div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>&#160; pol = w_theta[ipol]</div><div class="line"><a name="l02908"></a><span class="lineno"> 2908</span>&#160; pol1 = pol - pol_st / 2</div><div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>&#160; pol2 = pol + pol_st / 2</div><div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>&#160; extract /free /indx w_polar, sel, (pol1 &lt; w_polar) &amp;&amp; (w_polar &lt;= pol2)</div><div class="line"><a name="l02911"></a><span class="lineno"> 2911</span>&#160; nsel = numpnts(sel)</div><div class="line"><a name="l02912"></a><span class="lineno"> 2912</span>&#160; <span class="keywordflow">if</span> (nsel &gt; 0)</div><div class="line"><a name="l02913"></a><span class="lineno"> 2913</span>&#160; redimension /n=(nsel+2) azi_slice, values_slice</div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span>&#160; azi_slice[1, nsel] = w_azim[sel[p-1]]</div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span>&#160; azi_slice[0] = azi_slice[nsel] - 360</div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span>&#160; azi_slice[nsel+1] = azi_slice[1] + 360</div><div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>&#160; values_slice[1, nsel] = w_values[sel[p-1]]</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span>&#160; values_slice[0] = values_slice[nsel]</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span>&#160; values_slice[nsel+1] = values_slice[1]</div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span>&#160; w_cut[ipol] = interp(azim, azi_slice, values_slice)</div><div class="line"><a name="l02921"></a><span class="lineno"> 2921</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>&#160; w_cut[ipol] = nan</div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span>&#160; endif</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>&#160; endfor</div><div class="line"><a name="l02925"></a><span class="lineno"> 2925</span>&#160; </div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02927"></a><span class="lineno"> 2927</span>&#160; <span class="keywordflow">return</span> w_cut</div><div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>&#160;};</div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span>&#160;</div><div class="line"><a name="l02948"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#ab6ac1268de338040028dca8d0ddc967c"> 2948</a></span>&#160;wave <a class="code" href="pearl-anglescan-process_8ipf.html#ab6ac1268de338040028dca8d0ddc967c">hemi_azi_cut</a>(<span class="keywordtype">string</span> nickname, variable pol){</div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span>&#160; <span class="keywordtype">string</span> nickname</div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>&#160; variable pol</div><div class="line"><a name="l02951"></a><span class="lineno"> 2951</span>&#160;</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>&#160; dfref savedf = getdatafolderdfr()</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span>&#160; <span class="keywordtype">string</span> s_prefix = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>&#160; <span class="keywordtype">string</span> s_int = <span class="stringliteral">&quot;values&quot;</span></div><div class="line"><a name="l02955"></a><span class="lineno"> 2955</span>&#160; dfref df = <a class="code" href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a>(nickname, s_prefix, s_int)</div><div class="line"><a name="l02956"></a><span class="lineno"> 2956</span>&#160;</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>&#160; <span class="keywordtype">string</span> s_totals = s_prefix + <span class="stringliteral">&quot;tot&quot;</span></div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>&#160; <span class="keywordtype">string</span> s_weights = s_prefix + <span class="stringliteral">&quot;wt&quot;</span></div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>&#160; <span class="keywordtype">string</span> s_polar = s_prefix + <span class="stringliteral">&quot;pol&quot;</span></div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>&#160; <span class="keywordtype">string</span> s_azim = s_prefix + <span class="stringliteral">&quot;az&quot;</span></div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>&#160; <span class="keywordtype">string</span> s_index = s_prefix + <span class="stringliteral">&quot;index&quot;</span></div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>&#160; <span class="keywordtype">string</span> s_theta = s_prefix + <span class="stringliteral">&quot;th&quot;</span></div><div class="line"><a name="l02963"></a><span class="lineno"> 2963</span>&#160; <span class="keywordtype">string</span> s_dphi = s_prefix + <span class="stringliteral">&quot;dphi&quot;</span></div><div class="line"><a name="l02964"></a><span class="lineno"> 2964</span>&#160; <span class="keywordtype">string</span> s_nphis = s_prefix + <span class="stringliteral">&quot;nphis&quot;</span></div><div class="line"><a name="l02965"></a><span class="lineno"> 2965</span>&#160; <span class="keywordtype">string</span> s_cut</div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span>&#160; sprintf s_cut, <span class="stringliteral">&quot;%s_pol%03u&quot;</span>, s_int, round(pol)</div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</span>&#160;</div><div class="line"><a name="l02968"></a><span class="lineno"> 2968</span>&#160; wave /sdfr=df w_polar = $s_polar</div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span>&#160; wave /sdfr=df w_azim = $s_azim</div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span>&#160; wave /sdfr=df w_values = $s_int</div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span>&#160; wave /sdfr=df w_totals = $s_totals</div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span>&#160; wave /sdfr=df w_weights = $s_weights</div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span>&#160; wave /sdfr=df w_index = $s_index</div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span>&#160; wave /sdfr=df w_theta = $s_theta</div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span>&#160; wave /sdfr=df w_dphi = $s_dphi</div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span>&#160; wave /sdfr=df w_nphis = $s_nphis</div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span>&#160;</div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span>&#160; variable pol_st = abs(w_theta[1] - w_theta[0])</div><div class="line"><a name="l02979"></a><span class="lineno"> 2979</span>&#160; variable pol1, pol2</div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</span>&#160; variable nsel</div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span>&#160;</div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span>&#160; pol1 = pol - pol_st / 2</div><div class="line"><a name="l02983"></a><span class="lineno"> 2983</span>&#160; pol2 = pol + pol_st / 2</div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span>&#160; extract /free /indx w_polar, sel, (pol1 &lt; w_polar) &amp;&amp; (w_polar &lt;= pol2)</div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>&#160; nsel = numpnts(sel)</div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span>&#160; <span class="keywordflow">if</span> (nsel &gt; 0)</div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>&#160; setdatafolder df</div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span>&#160; make /n=(nsel) /o $s_cut</div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span>&#160; wave w_cut = $s_cut</div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>&#160; w_cut = w_values[sel]</div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span>&#160; setscale /i x w_azim[sel[0]], w_azim[sel[nsel-1]], <span class="stringliteral">&quot;&quot;</span>, w_cut</div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span>&#160; <span class="keywordflow">return</span> w_cut</div><div class="line"><a name="l02994"></a><span class="lineno"> 2994</span>&#160; <span class="keywordflow">else</span></div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02996"></a><span class="lineno"> 2996</span>&#160; <span class="keywordflow">return</span> $<span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span>&#160; endif</div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span>&#160; setdatafolder savedf</div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span>&#160;};</div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span>&#160;</div><div class="line"><a name="l03001"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a2e1ed05781f9eb4be5e77695ef049962"> 3001</a></span>&#160;<span class="keyword">static</span> variable <a class="code" href="pearl-anglescan-process_8ipf.html#a2e1ed05781f9eb4be5e77695ef049962">check_contrast</a>(wave values, variable pcmin, variable pcmax, variable* vmin, variable* vmax){</div><div class="line"><a name="l03002"></a><span class="lineno"> 3002</span>&#160; wave values</div><div class="line"><a name="l03003"></a><span class="lineno"> 3003</span>&#160; variable pcmin</div><div class="line"><a name="l03004"></a><span class="lineno"> 3004</span>&#160; variable pcmax</div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span>&#160; variable &amp;vmin</div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span>&#160; variable &amp;vmax</div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span>&#160; </div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span>&#160; dfref save_df = GetDataFolderDFR()</div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span>&#160; dfref dfr = NewFreeDataFolder()</div><div class="line"><a name="l03010"></a><span class="lineno"> 3010</span>&#160; setdatafolder dfr</div><div class="line"><a name="l03011"></a><span class="lineno"> 3011</span>&#160; StatsQuantiles /inan /iw /q /z values</div><div class="line"><a name="l03012"></a><span class="lineno"> 3012</span>&#160; wave index = w_quantilesindex</div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span>&#160; variable imin = round(numpnts(index) * pcmin / 100)</div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span>&#160; variable imax = round(numpnts(index) * (100 - pcmax) / 100)</div><div class="line"><a name="l03015"></a><span class="lineno"> 3015</span>&#160; vmin = values[index[imin]]</div><div class="line"><a name="l03016"></a><span class="lineno"> 3016</span>&#160; vmax = values[index[imax]]</div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span>&#160; KillDataFolder dfr</div><div class="line"><a name="l03018"></a><span class="lineno"> 3018</span>&#160; setdatafolder save_df</div><div class="line"><a name="l03019"></a><span class="lineno"> 3019</span>&#160;};</div><div class="line"><a name="l03020"></a><span class="lineno"> 3020</span>&#160;</div><div class="line"><a name="l03037"></a><span class="lineno"><a class="line" href="pearl-anglescan-process_8ipf.html#a666dab03bb2e97ffef81cea450184d42"> 3037</a></span>&#160;variable <a class="code" href="pearl-anglescan-process_8ipf.html#a666dab03bb2e97ffef81cea450184d42">set_contrast</a>(variable pcmin, variable pcmax, <span class="keywordtype">string</span> graphname = defaultValue, <span class="keywordtype">string</span> colortable = defaultValue){</div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span>&#160; variable pcmin</div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span>&#160; variable pcmax</div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span>&#160; <span class="keywordtype">string</span> graphname</div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span>&#160; <span class="keywordtype">string</span> colortable</div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span>&#160; </div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(graphname))</div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span>&#160; graphname = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span>&#160; endif</div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</span>&#160; <span class="keywordflow">if</span> (ParamIsDefault(colortable))</div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span>&#160; colortable = <span class="stringliteral">&quot;&quot;</span></div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span>&#160; endif</div><div class="line"><a name="l03049"></a><span class="lineno"> 3049</span>&#160; </div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span>&#160; dfref save_df = GetDataFolderDFR()</div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span>&#160; </div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span>&#160; <span class="keywordtype">string</span> objname</div><div class="line"><a name="l03053"></a><span class="lineno"> 3053</span>&#160; <span class="keywordtype">string</span> info</div><div class="line"><a name="l03054"></a><span class="lineno"> 3054</span>&#160; <span class="keywordtype">string</span> wname</div><div class="line"><a name="l03055"></a><span class="lineno"> 3055</span>&#160; <span class="keywordtype">string</span> ctab</div><div class="line"><a name="l03056"></a><span class="lineno"> 3056</span>&#160; variable rev</div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span>&#160; variable n</div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span>&#160; variable i</div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span>&#160; variable vmin</div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span>&#160; variable vmax</div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span>&#160;</div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span>&#160; <span class="keywordtype">string</span> traces = TraceNameList(graphname, <span class="stringliteral">&quot;;&quot;</span>, 1+4)</div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span>&#160; n = ItemsInList(traces, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span>&#160; <span class="keywordflow">for</span> (i = 0; i &lt; n; i += 1)</div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span>&#160; objname = StringFromList(i, traces, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span>&#160; info = TraceInfo(graphname, objname, 0)</div><div class="line"><a name="l03067"></a><span class="lineno"> 3067</span>&#160; <span class="keywordflow">if</span> (strlen(info) &gt; 0)</div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span>&#160; info = StringByKey(<span class="stringliteral">&quot;RECREATION&quot;</span>, info, <span class="stringliteral">&quot;:&quot;</span>, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span>&#160; info = StringByKey(<span class="stringliteral">&quot;zColor(x)&quot;</span>, info, <span class="stringliteral">&quot;=&quot;</span>, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span>&#160; <span class="keywordflow">if</span> (strlen(info) &gt; 2)</div><div class="line"><a name="l03071"></a><span class="lineno"> 3071</span>&#160; info = info[1,strlen(info)-2]</div><div class="line"><a name="l03072"></a><span class="lineno"> 3072</span>&#160; wname = StringFromList(0, info, <span class="stringliteral">&quot;,&quot;</span>)</div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span>&#160; wave w = $wname</div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span>&#160; ctab = StringFromList(3, info, <span class="stringliteral">&quot;,&quot;</span>)</div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span>&#160; rev = str2num(<span class="stringliteral">&quot;0&quot;</span> + StringFromList(4, info, <span class="stringliteral">&quot;,&quot;</span>))</div><div class="line"><a name="l03076"></a><span class="lineno"> 3076</span>&#160; <span class="keywordflow">if</span> (strlen(colortable) &gt; 0)</div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span>&#160; ctab = colortable</div><div class="line"><a name="l03078"></a><span class="lineno"> 3078</span>&#160; endif</div><div class="line"><a name="l03079"></a><span class="lineno"> 3079</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a2e1ed05781f9eb4be5e77695ef049962">check_contrast</a>(w, pcmin, pcmax, vmin, vmax)</div><div class="line"><a name="l03080"></a><span class="lineno"> 3080</span>&#160; ModifyGraph /w=$graphname zColor($objname)={w, vmin, vmax, $ctab, rev}</div><div class="line"><a name="l03081"></a><span class="lineno"> 3081</span>&#160; endif</div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span>&#160; endif</div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span>&#160; endfor</div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span>&#160; </div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span>&#160; <span class="keywordtype">string</span> images = ImageNameList(graphname, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03086"></a><span class="lineno"> 3086</span>&#160; n = ItemsInList(images, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span>&#160; <span class="keywordflow">for</span> (i = 0; i &lt; n; i += 1)</div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>&#160; objname = StringFromList(i, images, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span>&#160; wave w = ImageNameToWaveRef(graphname, objname)</div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>&#160; info = ImageInfo(graphname, objname, 0)</div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>&#160; <span class="keywordflow">if</span> (strlen(info) &gt; 0)</div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span>&#160; info = StringByKey(<span class="stringliteral">&quot;RECREATION&quot;</span>, info, <span class="stringliteral">&quot;:&quot;</span>, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span>&#160; info = StringByKey(<span class="stringliteral">&quot;ctab&quot;</span>, info, <span class="stringliteral">&quot;=&quot;</span>, <span class="stringliteral">&quot;;&quot;</span>)</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span>&#160; <span class="keywordflow">if</span> (strlen(info) &gt; 2)</div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span>&#160; info = info[1,strlen(info)-2]</div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>&#160; ctab = StringFromList(2, info, <span class="stringliteral">&quot;,&quot;</span>)</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span>&#160; rev = str2num(<span class="stringliteral">&quot;0&quot;</span> + StringFromList(3, info, <span class="stringliteral">&quot;,&quot;</span>))</div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span>&#160; <span class="keywordflow">if</span> (strlen(colortable) &gt; 0)</div><div class="line"><a name="l03099"></a><span class="lineno"> 3099</span>&#160; ctab = colortable</div><div class="line"><a name="l03100"></a><span class="lineno"> 3100</span>&#160; endif</div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>&#160; <a class="code" href="pearl-anglescan-process_8ipf.html#a2e1ed05781f9eb4be5e77695ef049962">check_contrast</a>(w, pcmin, pcmax, vmin, vmax)</div><div class="line"><a name="l03102"></a><span class="lineno"> 3102</span>&#160; ModifyImage /w=$graphname $objname ctab={vmin, vmax, $ctab, rev}</div><div class="line"><a name="l03103"></a><span class="lineno"> 3103</span>&#160; endif</div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span>&#160; endif</div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span>&#160; endfor</div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span>&#160;</div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>&#160; setdatafolder save_df</div><div class="line"><a name="l03108"></a><span class="lineno"> 3108</span>&#160;};</div><div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>&#160;</div><div class="ttc" id="pearl-anglescan-process_8ipf_html_aa486e16909d01e2251eeb4d635b972b1"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aa486e16909d01e2251eeb4d635b972b1">hemi_polar_cut</a></div><div class="ttdeci">wave hemi_polar_cut(string nickname, variable azim)</div><div class="ttdoc">extract a polar cut from a hemispherical scan. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02862">pearl-anglescan-process.ipf:2862</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a5dc0cc7db9d3d7a6b3fa3f1b04d84a5e"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a5dc0cc7db9d3d7a6b3fa3f1b04d84a5e">trim_hemi_scan</a></div><div class="ttdeci">variable trim_hemi_scan(string nickname, variable theta_max)</div><div class="ttdoc">trim a hemispherical scan at grazing angle </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02823">pearl-anglescan-process.ipf:2823</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a229770447193d4fd12032b235aab4d28"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a229770447193d4fd12032b235aab4d28">pizza_service_2</a></div><div class="ttdeci">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)</div><div class="ttdoc">create a pizza plot from a measured (energy-integrated) data strip </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00731">pearl-anglescan-process.ipf:731</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aa5487fdee22e0da61a511c14239262f5"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aa5487fdee22e0da61a511c14239262f5">kProjScaleOrtho</a></div><div class="ttdeci">static const variable kProjScaleOrtho</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02089">pearl-anglescan-process.ipf:2089</a></div></div>
<div class="ttc" id="pearl-polar-coordinates_8ipf_html_a6a0ffb6b9160413d9694b1fd8e10c858"><div class="ttname"><a href="pearl-polar-coordinates_8ipf.html#a6a0ffb6b9160413d9694b1fd8e10c858">polar2cart_wave</a></div><div class="ttdeci">variable polar2cart_wave(wave in, wave out)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-polar-coordinates_8ipf_source.html#l00058">pearl-polar-coordinates.ipf:58</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a9b56897bd92d926d65f4c67bef1d41bb"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a9b56897bd92d926d65f4c67bef1d41bb">normalize_strip_theta</a></div><div class="ttdeci">variable normalize_strip_theta(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)</div><div class="ttdoc">divide the strip by the average polar distribution. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00353">pearl-anglescan-process.ipf:353</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ac617c3b400488b656493af8ca08f1791"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ac617c3b400488b656493af8ca08f1791">normalize_strip_2d</a></div><div class="ttdeci">variable normalize_strip_2d(wave strip, wave theta, variable theta_offset=defaultValue, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)</div><div class="ttdoc">divide the strip by a two-dimensional normalization function. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00518">pearl-anglescan-process.ipf:518</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ab65d25af7476ed18f7bf7359614a912b"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ab65d25af7476ed18f7bf7359614a912b">crop_strip</a></div><div class="ttdeci">variable crop_strip(wave strip, variable xlo, variable xhi)</div><div class="ttdoc">crop a strip at the sides. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00578">pearl-anglescan-process.ipf:578</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a4a40c73c0e03545e0050ea370e9c57d3"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a4a40c73c0e03545e0050ea370e9c57d3">kProjGnom</a></div><div class="ttdeci">const variable kProjGnom</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02081">pearl-anglescan-process.ipf:2081</a></div></div>
<div class="ttc" id="pearl-area-profiles_8ipf_html_abb1eed32a982037ebab00f5c3ea95e62"><div class="ttname"><a href="pearl-area-profiles_8ipf.html#abb1eed32a982037ebab00f5c3ea95e62">ad_profile_y</a></div><div class="ttdeci">threadsafe wave ad_profile_y(wave dataset, variable p1, variable p2, string destname, variable noavg=defaultValue)</div><div class="ttdoc">1D cut through 2D dataset along Y dimension, new destination wave. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-area-profiles_8ipf_source.html#l00542">pearl-area-profiles.ipf:542</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a902ac3a24e33f651e83ee03d31707da7"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a902ac3a24e33f651e83ee03d31707da7">make_hemi_grid</a></div><div class="ttdeci">variable make_hemi_grid(variable npol, string nickname, variable xpdplot=defaultValue)</div><div class="ttdoc">create a hemispherical, constant solid angle grid </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01160">pearl-anglescan-process.ipf:1160</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a4952bc53e3d6d272d25b5e35e91696b5"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a4952bc53e3d6d272d25b5e35e91696b5">hemi_add_anglescan</a></div><div class="ttdeci">variable hemi_add_anglescan(string nickname, wave values, wave polar, wave azi, wave weights=defaultValue)</div><div class="ttdoc">add an arbitrary angle scan to a hemispherical scan grid. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02348">pearl-anglescan-process.ipf:2348</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a987811346894d8d81fc590b2f5ccec49"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a987811346894d8d81fc590b2f5ccec49">get_hemi_nickname</a></div><div class="ttdeci">string get_hemi_nickname(wave w)</div><div class="ttdoc">finds the nick name given any hemi wave </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01311">pearl-anglescan-process.ipf:1311</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a5491cdee24910f6bad0d3af3c70f888b"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a5491cdee24910f6bad0d3af3c70f888b">interpolate_hemi_scan</a></div><div class="ttdeci">variable interpolate_hemi_scan(string nickname)</div><div class="ttdoc">interpolate a hemispherical scan onto a rectangular grid </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02524">pearl-anglescan-process.ipf:2524</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a1442bc23122d52ba9c77e0f9baaad1da"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a1442bc23122d52ba9c77e0f9baaad1da">get_hemi_prefix</a></div><div class="ttdeci">string get_hemi_prefix(wave w)</div><div class="ttdoc">finds the prefix given any hemi wave </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01336">pearl-anglescan-process.ipf:1336</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ae57302acfc822c4817f2b7eef55efea2"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ae57302acfc822c4817f2b7eef55efea2">display_hemi_scan</a></div><div class="ttdeci">string display_hemi_scan(string nickname, variable projection=defaultValue, variable graphtype=defaultValue, variable do_ticks=defaultValue, variable do_grids=defaultValue, string graphname=defaultValue)</div><div class="ttdoc">display a plot of a hemispherical angle scan. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01601">pearl-anglescan-process.ipf:1601</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ac0def1ded61f9cd758df0c99f4ff9470"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ac0def1ded61f9cd758df0c99f4ff9470">CalcN_Theta</a></div><div class="ttdeci">static variable CalcN_Theta(string HoloMode, variable Theta_in, variable Theta_ran, variable Theta_st)</div><div class="ttdoc">calculate the number of thetas for a pattern </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01122">pearl-anglescan-process.ipf:1122</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aa26c9ed4c4d703e07788d980edc2406d"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aa26c9ed4c4d703e07788d980edc2406d">find_hemi_data</a></div><div class="ttdeci">dfr find_hemi_data(string nickname, string *prefix, string *intwave)</div><div class="ttdoc">finds the folder, prefix and name of holo waves given their nick name </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01367">pearl-anglescan-process.ipf:1367</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a2b38c6c9b6e60593ba69d3773b6bc779"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a2b38c6c9b6e60593ba69d3773b6bc779">convert_angles_ttpd2polar</a></div><div class="ttdeci">variable convert_angles_ttpd2polar(wave theta, wave tilt, wave phi, wave data, wave polar, wave azi)</div><div class="ttdoc">convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00918">pearl-anglescan-process.ipf:918</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a3ec6935a5903d0974c93a2072d743013"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a3ec6935a5903d0974c93a2072d743013">clear_hemi_grid</a></div><div class="ttdeci">variable clear_hemi_grid(string nickname)</div><div class="ttdoc">clear a hemispherical scan grid </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01401">pearl-anglescan-process.ipf:1401</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a04e75675884236b6ed8244d7575d3a13"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a04e75675884236b6ed8244d7575d3a13">kProjScaleDist</a></div><div class="ttdeci">static const variable kProjScaleDist</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02084">pearl-anglescan-process.ipf:2084</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ae2b036a06ffac8d2bb292a65401f8a9a"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ae2b036a06ffac8d2bb292a65401f8a9a">calc_graph_polar</a></div><div class="ttdeci">threadsafe variable calc_graph_polar(variable x, variable y, variable projection=defaultValue)</div><div class="ttdoc">calculate polar angle from Cartesian coordinate </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02150">pearl-anglescan-process.ipf:2150</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a2e1ed05781f9eb4be5e77695ef049962"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a2e1ed05781f9eb4be5e77695ef049962">check_contrast</a></div><div class="ttdeci">static variable check_contrast(wave values, variable pcmin, variable pcmax, variable *vmin, variable *vmax)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l03001">pearl-anglescan-process.ipf:3001</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a1fb6aa7870dfbf0ed92660b7aae579e0"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a1fb6aa7870dfbf0ed92660b7aae579e0">Calc_The_step</a></div><div class="ttdeci">static variable Calc_The_step(variable th, variable Theta_st, string Holomode)</div><div class="ttdoc">calculate delta-theta for a given theta </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01091">pearl-anglescan-process.ipf:1091</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a207c56ac03cc18bf1bfde88dbfe2666f"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a207c56ac03cc18bf1bfde88dbfe2666f">kProjArea</a></div><div class="ttdeci">const variable kProjArea</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02080">pearl-anglescan-process.ipf:2080</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aa54a550eccad2c8ccd82d2b4167f7a92"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aa54a550eccad2c8ccd82d2b4167f7a92">line_average</a></div><div class="ttdeci">static variable line_average(wave source, wave dest)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01000">pearl-anglescan-process.ipf:1000</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a75219b38ea58012abcffc848d536faa4"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a75219b38ea58012abcffc848d536faa4">calc_graph_radius</a></div><div class="ttdeci">threadsafe variable calc_graph_radius(variable polar, variable projection=defaultValue)</div><div class="ttdoc">calculate the projected polar angle </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02105">pearl-anglescan-process.ipf:2105</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_afed227ae79873fd32c96afbf606d1965"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#afed227ae79873fd32c96afbf606d1965">pizza_service</a></div><div class="ttdeci">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)</div><div class="ttdoc">create a pizza plot from a measured (energy-integrated) data strip </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00638">pearl-anglescan-process.ipf:638</a></div></div>
<div class="ttc" id="pearl-vector-operations_8ipf_html_ada80428496dc748b960bd9c65df7da8b"><div class="ttname"><a href="pearl-vector-operations_8ipf.html#ada80428496dc748b960bd9c65df7da8b">rotate_x_wave</a></div><div class="ttdeci">variable rotate_x_wave(wave inout, variable angle)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-vector-operations_8ipf_source.html#l00083">pearl-vector-operations.ipf:83</a></div></div>
<div class="ttc" id="pearl-polar-coordinates_8ipf_html_adfc1f0b3cddf672b0ccdb6a22b97ba9e"><div class="ttname"><a href="pearl-polar-coordinates_8ipf.html#adfc1f0b3cddf672b0ccdb6a22b97ba9e">cart2polar_wave</a></div><div class="ttdeci">variable cart2polar_wave(wave in, wave out)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-polar-coordinates_8ipf_source.html#l00036">pearl-polar-coordinates.ipf:36</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a1f4f74a8ae557c56e1e3aacd0b45f3f1"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a1f4f74a8ae557c56e1e3aacd0b45f3f1">display_scanlines</a></div><div class="ttdeci">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)</div><div class="ttdoc">display a polar graph with lines indicating the angles covered by an angle scan. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01990">pearl-anglescan-process.ipf:1990</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ab6ac1268de338040028dca8d0ddc967c"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ab6ac1268de338040028dca8d0ddc967c">hemi_azi_cut</a></div><div class="ttdeci">wave hemi_azi_cut(string nickname, variable pol)</div><div class="ttdoc">extract an azimuthal cut from a hemispherical scan </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02948">pearl-anglescan-process.ipf:2948</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_afedad38a418cee5d1fb9e08aae2160a0"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#afedad38a418cee5d1fb9e08aae2160a0">draw_diffraction_cone</a></div><div class="ttdeci">variable draw_diffraction_cone(string graphname, string groupname, variable theta_axis, variable theta_inner, variable phi)</div><div class="ttdoc">draw the circle of a diffraction cone in a stereographic polar graph. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01926">pearl-anglescan-process.ipf:1926</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a4641c716180d737700c6df87f5f8974e"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a4641c716180d737700c6df87f5f8974e">hemi_add_aziscan</a></div><div class="ttdeci">variable hemi_add_aziscan(string nickname, wave values, variable polar, wave azi, wave weights=defaultValue)</div><div class="ttdoc">add an azimuthal scan to a hemispherical scan grid. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02418">pearl-anglescan-process.ipf:2418</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ab6670abb621d01994c0b9974f58be843"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ab6670abb621d01994c0b9974f58be843">kProjScaleGnom</a></div><div class="ttdeci">static const variable kProjScaleGnom</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02088">pearl-anglescan-process.ipf:2088</a></div></div>
<div class="ttc" id="pearl-vector-operations_8ipf_html_adfd1d68e739694982fbd00b76568c1c0"><div class="ttname"><a href="pearl-vector-operations_8ipf.html#adfd1d68e739694982fbd00b76568c1c0">rotate_y_wave</a></div><div class="ttdeci">variable rotate_y_wave(wave inout, variable angle)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-vector-operations_8ipf_source.html#l00101">pearl-vector-operations.ipf:101</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a5162488b366e217195d8f8bd7cdde0ce"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a5162488b366e217195d8f8bd7cdde0ce">rotate_hemi_scan</a></div><div class="ttdeci">variable rotate_hemi_scan(string nickname, variable angle)</div><div class="ttdoc">azimuthally rotate a hemispherical scan dataset. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01523">pearl-anglescan-process.ipf:1523</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aed66bda9701d8a69b2174fac974aa665"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aed66bda9701d8a69b2174fac974aa665">kProjScaleStereo</a></div><div class="ttdeci">static const variable kProjScaleStereo</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02085">pearl-anglescan-process.ipf:2085</a></div></div>
<div class="ttc" id="namespace_pearl_anglescan_process_html"><div class="ttname"><a href="namespace_pearl_anglescan_process.html">PearlAnglescanProcess</a></div><div class="ttdoc">processing and holographic mapping of angle scanned XPD data. </div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a46fd99d35a43601c39af6096d4e4f770"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a46fd99d35a43601c39af6096d4e4f770">display_polar_graph</a></div><div class="ttdeci">static string display_polar_graph(string graphname, variable angle_offset=defaultValue, variable do_ticks=defaultValue)</div><div class="ttdoc">displays an empty polar graph </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01739">pearl-anglescan-process.ipf:1739</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a3b3bd11c35d5f850b34937ab6c45f659"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a3b3bd11c35d5f850b34937ab6c45f659">kProjOrtho</a></div><div class="ttdeci">const variable kProjOrtho</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02082">pearl-anglescan-process.ipf:2082</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a48cbd596656bc6d849c53afb4c58b90d"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a48cbd596656bc6d849c53afb4c58b90d">save_hemi_scan</a></div><div class="ttdeci">variable save_hemi_scan(string nickname, string pathname, string filename)</div><div class="ttdoc">save a hemispherical scan to an Igor text file </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02692">pearl-anglescan-process.ipf:2692</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aaa734fddecdd75c7cabe20ba777b41b9"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aaa734fddecdd75c7cabe20ba777b41b9">normalize_strip_phi</a></div><div class="ttdeci">variable normalize_strip_phi(wave strip, wave theta, wave phi, variable theta_offset=defaultValue, variable theta_range=defaultValue, variable check=defaultValue)</div><div class="ttdoc">divide the strip by a sine function in phi (wobble correction). </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00270">pearl-anglescan-process.ipf:270</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ad0a93367d2e9b66bb7b81697e87adfaf"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ad0a93367d2e9b66bb7b81697e87adfaf">normalize_strip_thetaphi</a></div><div class="ttdeci">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)</div><div class="ttdoc">divide the strip by a smooth polar-azimuthal distribution. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00451">pearl-anglescan-process.ipf:451</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ac151c6f989d6a568fdef0acb791f84db"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ac151c6f989d6a568fdef0acb791f84db">kProjStereo</a></div><div class="ttdeci">const variable kProjStereo</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02079">pearl-anglescan-process.ipf:2079</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a0b9e2b025e1d55d2a064edccf6c1c3e3"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a0b9e2b025e1d55d2a064edccf6c1c3e3">quick_pizza_image</a></div><div class="ttdeci">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)</div><div class="ttdoc">map angle scan data onto a rectangular grid in stereographic projection </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02581">pearl-anglescan-process.ipf:2581</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_ac4dbd1ece37b2cf22fa976a153977288"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#ac4dbd1ece37b2cf22fa976a153977288">polar_graph_hook</a></div><div class="ttdeci">static variable polar_graph_hook(WMWinHookStruct *s)</div><div class="ttdoc">polar graph window hook </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02283">pearl-anglescan-process.ipf:2283</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aae45cc49d67f79dcedc4420f82acea4c"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aae45cc49d67f79dcedc4420f82acea4c">kProjDist</a></div><div class="ttdeci">const variable kProjDist</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02078">pearl-anglescan-process.ipf:2078</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a4fc744e24e3e9c5efb17f14ab622bcae"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a4fc744e24e3e9c5efb17f14ab622bcae">calc_graph_azi</a></div><div class="ttdeci">threadsafe variable calc_graph_azi(variable x, variable y, variable projection=defaultValue, variable zeroAngle=defaultValue)</div><div class="ttdoc">calculate azimuthal angle from Cartesian coordinate </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02203">pearl-anglescan-process.ipf:2203</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a666dab03bb2e97ffef81cea450184d42"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a666dab03bb2e97ffef81cea450184d42">set_contrast</a></div><div class="ttdeci">variable set_contrast(variable pcmin, variable pcmax, string graphname=defaultValue, string colortable=defaultValue)</div><div class="ttdoc">set the pseudocolor contrast by percentile. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l03037">pearl-anglescan-process.ipf:3037</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a13e0d37ae23f68cdc5da3d84cb4beed8"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a13e0d37ae23f68cdc5da3d84cb4beed8">strip_delete_frames</a></div><div class="ttdeci">variable strip_delete_frames(wave strip, variable qlo, variable qhi, wave theta, wave tilt, wave phi)</div><div class="ttdoc">delete a contiguous range of frames from a strip. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00105">pearl-anglescan-process.ipf:105</a></div></div>
<div class="ttc" id="pearl-vector-operations_8ipf_html_a0030e927980581d57781ad391f2d872a"><div class="ttname"><a href="pearl-vector-operations_8ipf.html#a0030e927980581d57781ad391f2d872a">rotate_z_wave</a></div><div class="ttdeci">variable rotate_z_wave(wave inout, variable angle)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-vector-operations_8ipf_source.html#l00119">pearl-vector-operations.ipf:119</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a9624070f3e938378631432430d47a389"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a9624070f3e938378631432430d47a389">calc_nth</a></div><div class="ttdeci">static variable calc_nth(variable Theta_st, variable Theta_in, variable th, variable Phi_ran, variable Phi_ref, string Holomode)</div><div class="ttdoc">calculate the number of phis for a given theta </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01018">pearl-anglescan-process.ipf:1018</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_afa14187803f5b428a96c8234e04ab217"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#afa14187803f5b428a96c8234e04ab217">kProjScaleArea</a></div><div class="ttdeci">static const variable kProjScaleArea</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02086">pearl-anglescan-process.ipf:2086</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a01bac9e7d4ba743c3c34177a05070466"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a01bac9e7d4ba743c3c34177a05070466">show_analyser_line</a></div><div class="ttdeci">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)</div><div class="ttdoc">calculate and display the line seen by the analyser for a specific emission angle ...</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00848">pearl-anglescan-process.ipf:848</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a3cc7eddf5c6b0658260cfb32dd2c026d"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a3cc7eddf5c6b0658260cfb32dd2c026d">convert_angles_ttpa2polar</a></div><div class="ttdeci">variable convert_angles_ttpa2polar(wave theta, wave tilt, wave phi, wave analyser, wave polar, wave azi)</div><div class="ttdoc">convert angles from TTPA (theta-tilt-phi-analyser) scheme to polar coordinates. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00957">pearl-anglescan-process.ipf:957</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_af00d9061e410ad033a9fd1f0ca561e0d"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#af00d9061e410ad033a9fd1f0ca561e0d">draw_hemi_axes</a></div><div class="ttdeci">static string draw_hemi_axes(string graphname, variable do_grids=defaultValue)</div><div class="ttdoc">draw polar and azimuthal grids in an existing polar graph. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01854">pearl-anglescan-process.ipf:1854</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_aa5b1e2ab1dd43a73b7157406b803887e"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#aa5b1e2ab1dd43a73b7157406b803887e">duplicate_hemi_scan</a></div><div class="ttdeci">variable duplicate_hemi_scan(string source_nickname, dfref dest_folder, string dest_nickname, variable xpdplot=defaultValue)</div><div class="ttdoc">duplicate a hemispherical scan dataset. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01448">pearl-anglescan-process.ipf:1448</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a70b0e243bcbd549e2b1da74aab605629"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a70b0e243bcbd549e2b1da74aab605629">set_polar_graph_cursor</a></div><div class="ttdeci">variable set_polar_graph_cursor(string nickname, string cursorname, variable polar_angle, variable azim_angle, string graphname=defaultValue)</div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02303">pearl-anglescan-process.ipf:2303</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a1baaa3ffd9495ed427b43cbfe6e1edf8"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a1baaa3ffd9495ed427b43cbfe6e1edf8">update_polar_info</a></div><div class="ttdeci">static variable update_polar_info(string graphname)</div><div class="ttdoc">update the angles info based on cursors A and B of a given polar graph window </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02248">pearl-anglescan-process.ipf:2248</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a5265fd61f86eb72dd877e4190bfb4adf"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a5265fd61f86eb72dd877e4190bfb4adf">import_tpi_scan</a></div><div class="ttdeci">variable import_tpi_scan(string nickname, wave theta, wave phi, wave intensity, variable folding=defaultValue, variable npolar=defaultValue, variable nograph=defaultValue, variable xpdplot=defaultValue)</div><div class="ttdoc">import a hemispherical scan from theta-phi-intensity waves and display it </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02774">pearl-anglescan-process.ipf:2774</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a89f73edcd51a675f4c3933cd0242484e"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a89f73edcd51a675f4c3933cd0242484e">load_hemi_scan</a></div><div class="ttdeci">variable load_hemi_scan(string nickname, string pathname, string filename)</div><div class="ttdoc">load a hemispherical scan from an Igor text file </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l02725">pearl-anglescan-process.ipf:2725</a></div></div>
<div class="ttc" id="pearl-area-profiles_8ipf_html_ab1a65cf82f6933db3dd7b564582e8ed1"><div class="ttname"><a href="pearl-area-profiles_8ipf.html#ab1a65cf82f6933db3dd7b564582e8ed1">ad_profile_x</a></div><div class="ttdeci">threadsafe wave ad_profile_x(wave dataset, variable q1, variable q2, string destname, variable noavg=defaultValue)</div><div class="ttdoc">1D cut through 2D dataset along X dimension, new destination wave. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-area-profiles_8ipf_source.html#l00480">pearl-area-profiles.ipf:480</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a999a9cd7d00d3e1ec8e768228a664ad1"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a999a9cd7d00d3e1ec8e768228a664ad1">calc_phi_step</a></div><div class="ttdeci">static variable calc_phi_step(variable Theta_in, variable th, variable Theta_st, variable Phi_ran, variable Phi_ref, string Holomode)</div><div class="ttdoc">calculate delta-phi for a given theta </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l01047">pearl-anglescan-process.ipf:1047</a></div></div>
<div class="ttc" id="pearl-anglescan-process_8ipf_html_a48b7d774ed8d3f4329e9923e18e580e8"><div class="ttname"><a href="pearl-anglescan-process_8ipf.html#a48b7d774ed8d3f4329e9923e18e580e8">normalize_strip_x</a></div><div class="ttdeci">variable normalize_strip_x(wave strip, variable smooth_method=defaultValue, variable smooth_factor=defaultValue, variable check=defaultValue)</div><div class="ttdoc">divide the strip by the average X distribution. </div><div class="ttdef"><b>Definition:</b> <a href="pearl-anglescan-process_8ipf_source.html#l00185">pearl-anglescan-process.ipf:185</a></div></div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
<ul>
<li class="navelem"><a class="el" href="dir_fe5dc42579d4b99403482a3a637d9f7d.html">pearl</a></li><li class="navelem"><a class="el" href="pearl-anglescan-process_8ipf.html">pearl-anglescan-process.ipf</a></li>
<li class="footer">Generated on Tue Mar 13 2018 12:43:00 for PEARL Procedures by
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.11 </li>
</ul>
</div>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink