###################################################
## DIAGNOSTIC TEST for Auto-Orient feature
##
## To run this test, open Insight Tcl command line & run:
##
## TEST::AutoOrient
## 
###################################################
# TclPro::Compiler::Include

if {[catch {package require tbcload 1.4} err] == 1} {
    return -code error "[info script]: The TclPro ByteCode Loader is not available or does not support the correct version -- $err"
}
tbcload::bceval {
TclPro ByteCode 2 0 1.4 8.4
1 0 11 4 0 0 12 0 4 1 1 -1 -1
11
w0E<!(H&s!+-!!
1
z
1
+!
4
x
9
njkSAt=sp@1v
x
4
uKhgC
x
4
b4Z)<
x
2977
c1JTA(<jAFe<J(Fy@ZhCR#dgB)?*^;FQwNBid|7AwUCoA60aaEm0tPA)BK(F16sJDrk5DF%r
4N9!>H!4#MfCF@_jiCNjkSAi.;EFT4;s+k`jV?wwyhCoEV5B`VqH0HgCK0=&BfD%T|(F_XTZ
?5/ZDFpHraEhLFY?w,P%,b%GH;@--48+#.a:d5!97-(8s+OwC77LTj<+B(Z)F`@T;@GP2*Fs
3?<@qrj<+`R&;@+xmdDOKN3I97`sEbn)j7U'J(Fa<J(Fy@ZhCR#dgB)?*^;FQwNBid|7AwUC
oA60aaEm0tPA)BK(F16sJDrk5DF%r4N9n1/n@Z`IQBQuasE-;;-Bu2K(FQ1-.DZ<n(FQ5>F+
.3)kB?#6cEN(8s+`>No7+ct)FhLhEF;eY%,0?*h0o7X^EU!3r7tLoRA/;/+4#4q<+f+gfDD,
ylB2;)*F6m+!FvXIhC1h?fD3?FeD(JbD+%aIQBW%*!F<ki|D)pQq@%aIQBt-G9>!l/C+LdV<
+@_jiCZZRQBLdV<+i2riC*?m;@8_i|D/APQB9R8EF:(3cEw3@.D-h>D+m'cSAk1RB;8JlcET
O(d01=,D+&Y0q@+|5_F(ZFIDKp=>+v|tfAh'cSAr@;cEUZ0p5t>(N:&OmIDyk+W@XYxQHp5(
i:2_!;IZ_xQHu!V<+1A`nA)U9mA'A#D+1lo(FM/qT,p5(i:g=ev?1k_?+d@PF+<#V<+LdV<+
Rl;J:aV!97uj^j9SB9s+M'cSA>%lDF7k1`FASeK/M|8EF^!ACFFGK9wLdV<+LdV<+82_`FR7
bH0QvV<+>wO@w6HU6wLdV<+m'cSA_cmID|7|C+D_jiCZZRQBQ1::+6HU6wLdV<+nimlB(@VT
A?F,!Fch9xFqUg_E(ZbDFQvV<+:tJTAk'cOBy0HSAFu:s+@r|,EDj7',QvV<+5kFhCkdggCt
#IID_(X:@g7g_E(ZbDF%<XeDH<N9wLdV<+7pZQH*QL:@lR,8AVWvM:&OmID*dmlB=FME+3w9
s+V@PF+<#V<+LdV<+Rl;J:aV!97n+KU7m?>A+VmGID_(X:@5Vi|D&OmID*dmlB=FME+%S#D+
.)uDF=Xg6wLdV<+LdV<+82_`FR7bH0QvV<+>wO@wLdV<+cmmU?b4Z)<h,No7|4)7@lR,8A'Y
#D+'1HSA/9BCF1oG)Fm5oT,cgY8Ao|ACFy!xlBuB?<@26sJDQGK9wLdV<+6dV<+8JfCFB4uD
+pF-6@t>(N:&OmIDjTOcE^Q8!4g1;4wXEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,X
En9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,?cp6wp+.@+92_`F?.<cE3(G<F*%VE+hIa
:@9+ME+!WrSA6osdDqs(5B43BCF3+uD+4sRQB.0?SA3Sk%Gt4X6w8(^aE&RlSABXME+4CDE+
r^oRA<<59//#BCFna0;@(ZFID0_^iCs%#D+jp(5B6F-8wi*=kA-<c8A+Y3'Dw?0bE#JbD+.&
ZKABvvwH.0?SAqK>nA.)QDF/#BCFna0;@.,:eD;APQB.VwfDgpbSAx1-.D)5q<+,i#j@'dMT
A@&67,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,X
En9,XEn9,XEn9,7gd!E1>fC+f+gfDy0HSAJExQHDh'fDgpbSAx1-.DFC'G3tpPF+Dn<@wLdV
<+6dV<+9MfCFQ'-W@'Y3'Dq-7hCqfSuG;ZpT,r^oRA^o'3:;8W(46dV<+-#sJD&?s/DR^oRA
cGZf;686-EQvV<+LdV<+659:+JS)!F:xG<F7J)*Fv=uD+a1::+JS)!F:xG<F7J)*Fdbt)F;n
aH0QvV<+659:+><8-Bk.F:@vplRAu/siCtTiiCmV5DFO2::+JS)!FYS&eCkdggCqK>nA.)QD
FUbZG<6,)*F;::JDp#K(FS1::+6HU6wLdV<+cmmU?b4Z)<h,No7.AnHDm@j6wLdV<+cmmU?b
4Z)<h,No7h./M/+P/M/+P/M/+P/M/+P/M/g2&C<4GWE:P`7.:/Ct87<6)B+4sRQB5q4N9sO/
M/+P/M/+P/M/+P/M/+P/M/+P/M/+P/M/+P/M/S1::+=3rfAtIa:@+.,!FnC1cDI2qT,b4Z)<
(K9EFU1-.DZ<n(F;n<@wLdV<+LdV<+91VE+m'cSAnjkSAlQCkB()7*C3ntD+2Yja;=sZ`;fJ
3QAc2!hBUpuu6A,qT,rG^J;M#)p/(V4#?QvV<+LdV<+659:+LdV<+@NncB0tCE+8#;EFuiSK
DbsK9wLdV<+LdV<+cmmU?b4Z)<h,No7r2;bDs2x;@AVeK/M|8EFiN8fDheG!46dV<+LdV<+L
dV<+sB.p5%xH<@2&TTA34<:+LdV<+JS)!F670wEwpMTABIG!6t>(N:&OmIDyk+W@AKAgAuWm
ID|kIv?Q1::+LdV<+@NncBC5>F+5#'(F)&oC+BV&d0Z_xQH6dV<+LdV<+LdV<+w!saE9GK(F
e#M8@'h|7AbsK9wLdV<+LdV<+>#V<+>wO@wLdV<+6dV<+/&seDqIbD+|(j:@uhlf;pL1HDXL
,*46dV<+9MfCFQ'-W@sy>0Anly^Ft9mAFep6lBKr:s+YNJ!46dV<+6vV<+7+:eDhqrp@toQq
@%aIQBq(lDFTNt87=5^|3ipkSAWK:8@T)WhBOExQH6dV<+LdV<+9MfCF(KxhCn<..DhB6mA'
A#D+(w=JDTNt87=5^|3)ZHPAa>3QAc2!hBUpuu6A,qT,ipkSAi71cDE:e.Bu2K(F,OM9wLdV
<+LdV<+6dV<+LdV<+'!?r@8&TTAwrHK;V@(d0QvV<+LdV<+Rl;J:aV!97uj^j9SB9s+|7|C+
njkSA|ZnT,ipkSAi71cDGu:s+QvV<+LdV<+659:+LdV<+LdV<+O*S9,^4Mm@.IhgC9GK(F5#
V<+LdV<+:tJTA2?m;@'h|7AS49xFqUg_E(ZbDF|7|C+5VAkBmX|;@qP/C+QvV<+LdV<+1A`n
AVFqT,/ct)FH9nW4%!G>+Dn<@wLdV<+LdV<+LdV<+w!saE9GK(Fe#M8@'h|7AbsK9wLdV<+L
dV<+>#V<+>wO@wLdV<+cmmU?b4Z)<h,No7.AnHDm@j6wLdV<+cmmU?b4Z)<h,No7TBn9,XEn
9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,omG!46dV<+wf)o7mYja;uU^b;
uph<+f+gfDluZlB4LVE+mv;EF(E0|F%g`aEmeG!46dV<+wf)o7mYja;uU^b;#7e9,XEn9,XE
n9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,XEn9,U*r<+IQJ!46dV<+wf)o7mYja;uU^b
;uph<+Yt>c;ZgpZ3?1TTAv`gi:wpMTA5C/`F6fAoA?1TTAwrHK;,pdT>LGK9wLdV<+cmmU?b
4Z)<h,No7tl`N7=9-875WC?+uqP-ELuh<F7J)*F/|,T/=GK(Fe#M8@'h|7A.C/`F6fAoA?1T
TAwrHK;,pdT>LGK9wLdV<+cmmU?b4Z)<h,No7h./M/+P/M/+P/M/+P/M/+P/M/+P/M/+P/M/
+P/M/+P/M/+P/M/+P/M/.7H!46dV<+6vV<+5kFhCkdggCqK>nA.)QDFUbZG<6,)*FQvV<+:t
JTAcpqeDqIbD+|(j:@uhlf;pL1HD=XME+)!?r@/=.',C7N@w+!
0
0
}
