Function Repository Resource:

MeshFeatureEdges

Source Notebook

Find the feature edges of a mesh region

Contributed by: Alec Shedelbower

ResourceFunction["MeshFeatureEdges"][mreg]

identifies the feature edges of the mesh region mreg.

ResourceFunction["MeshFeatureEdges"][mreg, θ]

identifies edges connecting faces with a dihedral angle greater than θ.

ResourceFunction["MeshFeatureEdges"][, form]

gives the results in the format specified by form.

Details and Options

ResourceFunction["MeshFeatureEdges"] is commonly used to render simplified wireframes or to compute smoothing groups.
The dihedral angle between two faces is defined as the vector angle between their planar normals.
ResourceFunction["MeshFeatureEdges"] has the following options:
"IncludeIsolatedEdges"Truewhether to include edges with no adjacent faces
"IncludeBoundaryEdges"Truewhether to include edges with a single adjacent face
"IncludeSingularEdges"Truewhether to include edges with more than two adjacent faces
The value for form can be any of the following:
Automaticmesh region with feature edges highlighted
"Indices"indices of feature edge mesh cells
"Cells"feature edge mesh cells
"Primitives"feature edge primitives
"GraphicsComplex"graphics complex containing only feature edges
"Region"mesh region containing only feature edges
{form1,form2,}list of multiple forms formi
ResourceFunction["MeshFeatureEdges"][mreg] is equivalent to ResourceFunction["MeshFeatureEdges"][mreg, 30°]
ResourceFunction["MeshFeatureEdges"][mreg, 0] classifies every non-planar edge as a feature edge.
ResourceFunction["MeshFeatureEdges"][mreg, Infinity] classifies no edge as a feature edge.

Examples

Basic Examples (3) 

Find and highlight the feature edges of a mesh:

In[1]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
      Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic,
           "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\)]
Out[1]=

Find feature edges using different angle thresholds:

In[2]:=
Table[ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1l31MVXUYx59hEC82AxzUChVhCUhANoWR7TEiNSFLKQcUZZhlNF5iAQoC
DYhhDGJAYBEkyFRiMF4DIvgZJG/33sMxIEJQf3YFLi8jlRkE07pbu/esX493
u/987mfnnp3f93m+9zqGRx88agIAWfr3GjC8OIZON5f1nJAwuGu0affGBjR8
8iBu/dOhzX8mSLgYnDNl32jgHGkO4PVcxNBnsRIGFJSa5u5uNPo0Bxh+ZJPN
iQ8lTF365sorY4pPc4ComhffH3lLQovxzz3vRTQZfZoDhB8zqawIlLBMumPv
t6r4NAf4yreradZHwob1phndp5qNPs0BOs1reZujhK+u6Gpd7b43+jQHeHfP
kcMbHpZwvMRrxOGM4tMcwHtHyjmXGQ1eLkq2DtjSYvRpDpDQNeQ716vByTqP
hbBqxac5wJmAyZjEsxpM3n98+SH3VqNPcwBnqyLdfJIGD+W5Td66oPg0B5gt
tVkNPaDB1KD6vGHHNqNPcwDmtXL7mpMGx8675x8tUnyaA0wFbZcLF9X4a+HN
22+a/WD0aQ4wYxHy3tcX1RgSW1Ic+7Hi0xzApSTZel22GoPMXo/+YFTxaQ5Q
VVl+wzZIjaYXrzasercbfZoDnFzRHlY9psaVluGZxXzFpzmA7vSm7JAJFUbl
j/9sr1N8mgOsJvQWaktV2He3sW6b949Gn+YAnlUV6/LCVBinzfNf/6ni0xzg
qSf3lWc+ocICXfWuL7oUn+YA35U5rbk1OoA6y/imxPuKT3OAm5q//7ibP4Am
MS/l1T/bYfRpDmA3nnOlK3AAW4cifWzDFZ/mAGtbM5zTTAdwn+eCXfopxac5
wAudr9W909GP4W0xJboqxae5/nzVY6ZZn/SjR6Lrome34tMcIN9qydxlaz9O
DXfEvTyi+DQH2HHvslXkjT68wIts3bji01yfn2eWYjOK+9D36TfWqrSKT3OA
6sVQP+tpmYm9YOA7//WZ4Tq0r/D/+vr9vBB1vW+7mon32bQr9CM+p2Li/cTX
ZK4GuEtMzEndRLjuwLSGiXkw9Jr4vWn308N/j5aYmM+NY3+tuEzJTOy1Iofm
iRitzMT+Km7ftj9VlpnYI9ovPf3P9shM7Aud2aMnZ6/JTOy1yd7OgtO/yUzs
L/+k0MBmr0EmznVPplsO3pGYOL/dYfNp4wf11xf26sS4XXu7tYaJ+TyuHpvT
9qmZmMNcq6WF9FQ1E/N2KTtr3rJdZmKv2W094t5RIzOxv2ZcK4K7ymQm9tRK
i6n5fL3ExH3ikvL4287HZCb2iJ/arXZDuYaJ8+tT5bh8NUTDxDmN+MUsxSlX
ZmLflTWNPD+XJLP/9VpJ8lLE9UEm7vNzleW90ecHmbi391rsCdkSOcjE/ewU
32+TZCkzsUcufesR57BTZmJ/bS5p2bvsJDOxv+gccqRzqJ9fMlcc6VxxpHPL
kc4tR/rc9XuVPHd9n5LnzpE+F470ueh7lswDRzrn+vsknzPHBz1n+rz0v2fI
PHCk88CRzgNHen450vPLkZ4LjvS+4kjvQ470PuRIzxFHeo440nuDI703ONJ7
Q/97m9zzHOk9r/xPMeztfwBmDN7b
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJwNxWlDKVEAAFD3osQUWojsSyXZUgpZx2QbKjWyF0UoVEYopmT92e+dL0dZ
aiVKkEajIYBGo/8fQDqgM+hMBoO5xFxeWlpmLa+wWCvsFQ6bzUE4qwiyurbK
XVvj8rh8Ho+/zt9YX9/Y3Nja3NwSbAkFAuG2ULS9LRKLdsTiHcmOVCKRyqRy
mUyukCsVCqVKqVap1Bq1VqPR7mr3dnf39vd0+/u6A53+4EB/qDccHhqMBpPR
aDKbLGaz5chiPTqyHltPjo9PbCenNtvp2an97MzusDsdDue503V+7nK7PG63
x+vxeb0+PxrAAhdYMIQa9DAcQT3QB6M+XzQUDYRCAdTjgi4nhE57GMXRGI7H
4vjllf0Unp5AeGK1WqDFBKHJEL/GrxM4nri8uSWSd+hdCkVTQb0O6vYg3NMu
M0VMukhEh1dpPJ3B8Uz2NkfkcILA85ECWrhH0fukVg3VSgiVcrkUSncg3BEJ
tzhbG5wNPofP5XC4q0KOiLMiEq0sZx/whyKOF/OlR+LxiSCebkpEmaiUy5Vn
FKui1Vi1FovV4rV6PF6/rr9cX78kXl4TidfL18blZeOq0by6aqabrXS6lWm9
ZTJv2bf3bPb94f3j4eGj+NEuFtv5NpnPkwTZIYhOpfNZqXw+f3afn7vlbq9c
7pV6/VKp/9j/enz8evr6fnr6vvke3NwMbgfD29thbkjlchRO/eD4T/jnNxz+
jfyOIpFRYfRXKPzd/43v78fJ8SSZnNxNpnd309R0lkrNgrN5MDgPgQVcRGEV
oy4W8wWYz4EfeP0U9nMxx+YzDJtNqdcXxzk4dwPg9k4n2GSMYeO/4YBsNalm
g6Iary91ql6jqFpVpgBgd99oBuYjAI6Oj23AdgbAmeNvhI1+Mez3Z0hSZJui
2h+MJfESS7x/AA4OATg0frxT728U9dZiscVsRCxGttcRHrLGW99ENgUIIthm
iIFYAoBEplABlQYAze7gm/z+Ismvfr9H9rok2e10PzuLi+hFIOoL+UNz/z9s
i9B6
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{68.703125, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), \[Theta]], {\[Theta], {-1, 0, 30 °, Infinity}}]
Out[2]=

Apply custom styling to feature edges:

In[3]:=
mesh = \!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[CompressedData["
1:eJyFXAl4jlfTDlpVe6uWUkusbWqrnYaxb636UKJULP2stZdYv9qJNWqrWiqp
tba2at8GIRGCrLJJgtJQRRGfVpXf77ln3v8Zcv29el3v9Y6TOXPm3HOf+5zn
PK93n2Ed+2b38vL6LYeX19P/vcbU3VZjxIfRnK//mKqNvz/C+E7WPhrf505f
MX6pbxrt6zPrXq6RMXw2dOyNLdHxNHfzW8MXFDvNgfic43zSPHyf5baz17P/
LtKIEzPmfnUymvf8Oe29b+bHUuPOrVfXGJ9GEz5683Jw+fOcGDFhZpf10STt
0+8FFN52MJYDN2bfOSYomsKnNQmodCec7zVs8Mmel8/KJyFORpyEONm2z8Rn
jZr/+18orwjPVuHH4Che6XxKv4w4aa8T53Pt5XNs54ClV/Mf5LK3ctHQ9Gj2
dj7VD+InxP9ce/lEHhh5IOSBv8w3NHbeD+e5+4UvSpQ9mEDHBmy5uW5uEoeH
Tv/lyuVk7v/+wOpz8yfoeIeVvFWsSokEPvRx76s730mhruseT9zyeTy//vZX
X+bsl8zHdk3weVwlluqW/y10+xn1Q/Cj84t+Cf0y+iX4J/hn+Cf4J/hn+Cfj
X+K07SUeMnjT9qZfGZeNk0ycbOK0eZPx2jzLeNngStubfMp4Lc4FPzTuYY/h
71WM5At3K7y0wyuSM9ptPORf6hR1+6vS/Sb7z/Hs9n1q/rP8HE8q8Mjv+5AT
ti4oi7oQXFEs501acPmM4hy4p7bwPx7+lzr+2eCcBecGh1KPbPAs9ciDMa5o
jCvTGZe2/yRf0bj74+IpLXHf4zvHznIM4sx0x8mSH+RFvmsdHWsRMPF0gQRa
1adS5OiDEdwV45qG8fg53ylpwOEPMrzT+Fpk76/PhyRpe+t/LL5n4YcbXPTp
H73QU+eof6pv7O+BFx53fLSy9b5knjLdu2m1LcnEqQs+rTI2mhEPIR5GPDqP
GNdzduSNkTdq5u2bHNc1hvss6eRfeu1ubup8JzoTMqXm5Sguvjxn+yn94jRf
Tf2+LNPuUQw3Gee/eMmVDdzM+U73at1b8E1kNL+1JKh35JJYbe/nU6Jx/Jl4
Lgl7x6rd/vGfmcqFTmwoNuspP723tviu//yVQNeaf/mk+40LbONpju+23+b4
nq3Ts/wQ8sPID3kH77s/PSGOPztX5b1izTz8e69Ls53Fr8Xz3zXC9sZ+fUbt
BYICH3T+NIl9/P0W1eh5hjogzi5O/IT4GfET2hPaM9oT/BP8a90iHkI8ai+8
sFbgH0V+orzzBtR5sOcpip1Pauzkn5D//689I/8ap7RHngl5ZuSZ/Nzjknmx
cSpuzLjUbvIgeaMRznpEdv2y9nL4BN7JrpsmD9pvpnu8ard+5NPkQfBmcaL8
YnAr825xIvNucaV+TB2p3eBf5kX1zmzoG3yKPqFMt96wdaf+rR/RS9bPf/Ep
vPirm8csbwjfUhbtFXeGV8nwldrBb2T4jYbBfwz4/w7WtQmwp8F+1awLR928
p/aubt5jw+faHnzC09x8wp9gHZgMPpfv4n95wI3qD79JpKPz90TkbRHKzbbX
391raSrHDr1T5tMJkXQE6760z/3Qa8b2OaepebY+D+6uOK/29bNm5w5Zc5bW
FSt9IDMoXvMJO8Ou85LH8cPwQ+iX0C+jXzJ+xL9tT7a9iVPtGC9jvGTGy3a8
Jn61m/ify7PomO6wz4HemAg9Y+KR/Nt5kTg52tEJZPXMuJbeMyucCKetZaJ2
botI1nr/AP2OQb/LEdfZJt7LGpQ5R5W9UqNvX7ug4/3p1wGvbPU5TtuL3c01
O1c614N+i0O/Vp+MLF24S/orybwxrnP50F9TqVuZZq/61Y7Q/VNus58qUa5C
+MiCHj04tH3yzwvyH+WT3Q68TRVT+V/X2+7ovukC/V7gUWbFy4d5Ys1sI4IG
edon1F4/ZHehw8/5H4t92SjY6w+7mbN6w2gu5Py76BOyuuXHjTkCN0dFK59j
H0JfwE8d+CmFfnaY9lgPuMu2frkqrDrP9Sf7BK+fnkYhN3u0GPhnlOSTTT5l
vtjMF2Fe2MwL1d1QO2BG6UQeHvz2oiJHFTfsfyz1z1nfJvJrxVN8QqZ4cJO7
SULzlzo9/ftnOjyUMsDPeR07wc6wU0/HD8GP5hv9EvrNyq449nf78dShu1+J
hxqYeRHdCN1EXY2OQp4JeWbkmYBDAg4ZOLR54yzyI3mw+dT2WcRDExx8at4T
HXwS8EzAMwPPJOcH9YCrwsAncMgWhwYnqnMMrkhwZfCjfNgC+SuXp1P8yLYx
3NoZBxF0aNh7y+72uxXDR6BPCe1Lov03GPc/UYfapn3v0W3Qc2zyLzxAZr6k
LjQPdZGHIu76YltfTRDnScQ52YnT5ll4gya650V4g8a7+YSFT8LAPx9hvm6B
fwy/Ca74MfKQH3nIA137MXignhuf/BbyZHVyFnY+Ev316K1FY7n1gfqhoyrE
8qGti6fkuL/M8rzuR56VTU1P+37XuuUIarDSdw3+TuytnE+CP22PT7Lt5dOs
F6oHsvBj1xHBJ7MZF/qT+aWBmFfZLzW9umRe5czTWl/RZ368nDH5/HPtG+O7
7P/GAN9NZP9l7I3x/eul79xLaXFW/af1HbKn6s/xuo68ifqU7z5/nO41/qcY
6ugz48/x/ml6fmLbY/1QnM3uFlj+nxZJtG7hZ/fKlWFuj3U5CDqgvdFjt5vu
yJhSJ5nC6/Y+cK7FNh7+U4VDRfelKw+02tVx7fFl657z0w5645WQzj/3a5BI
dZoMqT1wbDhd291mSN496Ryy6Vorr+sJNLzY3Qqrn4Rpf++PiTsbdS2JYsL7
+cybvkvtqAuq+kvrhLdrbdJ9ZYGk0FcDP0+m5quP7Xr09zzPPhT2jxw7Wz/V
HT+67zD9avt1iDPAiVPtMq66zrj4BsZl9gsk34dCb9+F/h6C79IO57Uk57VZ
tOeFDk40DuCEyMGn2qMcfNK7Dk7Y4ITiK3+84c4PT3nzjQ+G5NuSQiG3pr4a
FZWof7+7ZvtZAQHHKHfbuhlB1xP5S8Rzydkv0GXsF+CH4IfhhwLQPgntf8M4
hAfhn+Ff7cAnA58EvKmebOvgjfZDbz7G/i1bI+dT/DRpPnjUP5HHqFLCiRpD
EhJtvzKu5/w8ga5Mh84UO9pxEuwPYWf8fUXouNXYb8unyY/k2eZf8sbWz7fQ
I6Kfxzn6mZZBPzeEbpH2+Hs7j5JnXubGDwl+cM5Gs+B/CupYdJGcI1RGfE3d
eKMY4M3HjTc9B+4LHVEe5xfl3OfwZHjpufb45JHgt9rOek3lsF6LH8NXci5H
3o5+oL7QDwZXwmMkulr6RRyW97gNeA+6hcIdPUDfQ7dI/gOB5/XgW/AS/8vN
VwT+YcN7JHqgupv3bHsdv/hv6eY99VPVzXsEfuMANw8TdIWcj1Fe6APwHoP3
CLxHOEek08hD0lhnPQTP83A3f5L4wbrAWBd03ZT5GoR18pGJpyh0jlkH9XmK
Wa8Fn4J/tcs6m/bR+TI9flxBC4o0L7FmSLLO393DM4P8Sm+k0E4rjh1q57HL
vq8BcIj9H/0E/Ai+hwHH7d7OXvrU7DG6L5BzqqCb/tX6ztir+lx01LXuq06+
UecQ5Vs8t2elAR6dWDB/+Qvl8x2jN+4O/SMx0cPXed3nmZTPPW+eeYSug04T
fUVHmwVWODAn+OCTiGrZGhf37N86ZFbZ+v22RNFL2n4+9FJS4a8up7Q6qe29
3x206POJCXwhZ8uQ4CqaL8q7vdfj61u2089tC0anT09Rfjg9o1OHoKCDlBS3
ONv1gZ799bkr+fpvpUPSj/Yrn9NnTWl+qZfH/8NdFXKkTlpLhcef7v7obKru
O3YH1W5R4MHarPyIvlX7AbQ74NaT9t+tnSOqpd/btSyFN0NnbnumO9dxUbeu
tvi1dgZe5DzX4sjaOWzq5X1Vu3ryELfU93Hq3bWKi4lryjYrPMCj0zC/bOaX
Up15VHspZx4J+GSDTwI+2eCTgE82+BT8s8E/ZTp1x3PcdUdRTt3xEXfdyfqj
59qr8In8E/LPPzj5p0IOHvR8aaeDB87CD1eeNei/Wycl86U2/y187dEO4Tce
e7/hXx2KJ3P3L9+u9dDrZ8X7HPN8XT7HOO0J7T3xO/4J/kU3Cp7V718OnqWO
1I46YtSR6n/UkcRJJk7RKSy65QE+TTzK56Z+OQ/qN8Fdpyx1auqaI6Wu3bgi
8AMZHJLgcJ773oLk0+ZB+ITtuB5Bv5n8CM8weEb9IH7R22z1eRZ2Pgd8soNP
z/MdN57V3sqNf31ugvN5xvm86H0eAXsc7H+g//moR5wP6DmM7Le+cu+/KMNd
pxqPbQ99yRfw/Nfq3ub491HQh6uhP029q3/5BP+obgdfKZ7PO3xFpr4UX6Ye
dZ8lz4VnIB48H7Z1JOsCF3bzgKwLnIzxWj0PncneWNdFdxqeEZ5/rr3su6HP
2epzc+4k+3U9d7L6E7qCra4w+RT+p3Hw7wv/LyMuMy+qe826ybJuznCvs8JL
5Itx2X2BWQdZ1kGzTnH8i9cp1dVGVwhvsNEnwht6TrhIzhPl+buxN8R31BGZ
OpK6JlPXjLomU9fcyH0+Scuxv3jkPp9U/dzYfc5JW7BfaOXWh/oc35yn0bwj
k/1meQcfNDpQ4zHnWqrTrF10ToZbZ6of3EfgU4izCM63DH/yWfCnnIuXRR66
Id/mnFZ1e0O/r5ctGeZZ11/97PM5Rw8HyPkZ/2TO0yQPXvivFvSrbd8Q36X9
8q7lWoyfH+wr383+gnsjznpeN37LLBvLMRumhr65Io0+Gzj9VO8f4vR8T857
/TBf05rWv11i+2kOKz+6U885+jyPW8zd0Dv3gAi9D/Y7+Krbe6EBUbuf7gMH
fJU3+6m9nnX+zbZrngxN5j3vr8oTEL7MV+wnn61XF3S86Y+b3ixIaXLuTfbc
G+eLVBrjmgwc1nfGRRgXY1zkXbtEeIdH4Vzlm1shY9claDyznXFRqDMunZ/7
bcpEd343gnpUTpw7uHuC2jFe6oZ7WaIfMF7CeLU9xkVmXPTQyQNN3ZUxfOv9
I5IHauTgROPb2fUZTrgF5iUS87Ia+02zT5TzbjL7Fz3vNfsgHvavH+oXerLw
oNkX6Ll3PXc+BSck93cqmXs1Bg8seDD4UR40eVOeQ3syeNP8G7zpfPV05kvb
G5wLHjQPTr38qPVixyXfDZ41frefYF+p09Huc2h6HeuR8IbY/VCPBp/qX3hJ
2tdG3bv54SLl5uMls29Z4dvI+F+HumjoxpXwjz7f0fYYt+ErftTH4asAM643
sI4HmHscN6DfRLeIfTp0yydvpWRL672Vtyxeu7v4Bx68r7l0cE/lf2+TexTK
J35DmxUo8k40LUxIPRVRxnOv7FF4eu7o9TH0fsqlsAmDYnX/0sL0uwr6bYiJ
8z70Zxh0n9jlHm8V9/miZ/9V9ff9U8NjKDFmRMM6u2M0HtseeoGH4L7ovUlx
M4Ijokj47dNvX8tY3SeefP+aOLZwIc9ziKSmqybFZnju7Vbb8p9+v42O5W9u
Dmz43avnKfH1yxlFb3uec323OCK1bQlPXlrn6v79UJ9ovS+g48V+oUSbUksi
BgXzH6/7D7/s75lnyb/ci5P8B0KXiR+5l7W+yq5HlWdN0b8fGDgzcMBT3LwL
npb2ebAeRibW2Hh9/VaN02dHcKHh7yfzq6Y9znN4uOlXzgFab9pzZdTCHeqn
YImm304qlsz7wXPSXtb/Ey+2c9Eey15auWef+rlVqX7L2muT+B3wqI3/d/Ci
2OW53jvFwgPDGp2iqKN7d6556OG3tdvblJzlH0k3btcpOflTjz278S/8HW38
S5x1jz7pUa1VNE0732FL5QGJ+txcdLG0x/NbqgV9KvZvgNuT0Ptil/tgn8SX
6VavUwyVXHy27YFqnvtgpr50P/KD8fOK8zzC4ln9GPyz4L+siXMN6mWaGRfw
xibPOm+iW6R9Z/CY8LPYNx0uV8LryFe+I8w9tdvgKz/380DdZ4H31I73EuT5
vto/BJ83N/FkB283Me0ngJ9HGv9lwKsfmnjkvjT4QfMLfqAxZlx4DiX8oO3B
DwQ+YcMnz+HvgRuXPCDySZdRT/cLMUnp8XfeWKft/wG/HDC8IzxY3Tyv2fvt
qiMDIpKoXcN2V/qF7VE/pTDfK1H/OV5aUnBl73T2aeC1ZWnHZHrt5ZArQUUP
UY9OZ94cuSGJwr+qdqtlx/0aX0vf7Am15l8g/yU/tYsKP0q/ol7E/6DD+z4/
23M3ZUtvm5B603Oet6TU/hzdAqdQyKV5E2qPT+Zm8NPD8cPiR/oNc/rV8Yif
ZY4fFj+mXzb98qf1O7Uf+HR9PlxsVE6fEqvtfFEW86X3OgweSPCgeAW/ZDc8
K/M70/CjtC9meGq0e5/CR8omVfXtcoTvVp/8YWQ5zz5J2ofljPrg0tbVqq8K
7Qq8eGrDUX0f5BJ4QNrnNffWxN4QddIS9QP+1/yB/+n3as/WIw9OnfVI/cxA
/XRBXYFP2PA2gbfZ8DaBh9nwsPqPfLK9xdH/rDtoeWcw+Kip4YU/UC8R4FPo
Coau0H7l8xfU80TUOfiZDT8TeJgNDxN4mA0PE/QVQ1891y/WD/BpKGW0fqYf
6LZbPxD0Axn9IHqPNjt6T9sDPwT8qB040fd6gBONB/XCoU69qL2/w0sc7fCS
8AaBN7iQwxvaD/iHP3L4R+3y/PUzrEMG54o7g2e2eE7HfH1pdKfcU7X62Av4
H2d0dls3/tnkTcdv8kY2b5XNfk3s/8a61czsH8q4zwPVPhvrYifEv7OKq+5I
6q6Io6/076CvtN09c87c0l3XVAB1Ld+xvtBBs77IeWMFrC+mfvXvTb179onu
utZ7koJz6GRtL59yPjkU65Tg3+xfrM6jnOBhU3fP+Rf92h38bOpdn19AvzH0
m/69qXfZd1h+yLLfWUaPig4ub9YFycPnRreJ7qxhdJ4X7q/sMTpS7s2MNjrG
6A2d97nAYUejk4yusDwg+kH9+ADnw93rDi916wG1G/2g/S4w57HGj+gBgj5h
f7euED3D4W5dofYwt84h6BPu4dY5+u/rzbmi6Kh3wIeioyTOPW4+tHqPY916
T3QLM3SLWfd4+OYqGysW6nmwsXvd4yngIaOrGeu/3mMRe88X62q+gnOwxqb9
dPDlCOO/PPjV8Bz3gn9zvqH32M3+WvSY3adTFvt0vZfe2833HAD8mvMc/mzP
g5OT5q/2Nec/jHMpMu/N6PubLd37YuFPjnHzJf8GHj3l3o+T7Me9jU7Hvox2
uvf7wvO81r1PZ+h3yufWm3oubvbFOj97zT5DeKiee/+r9+qNPlX/nd08xBUQ
z7z7dOhB2I+8gR/Nq/B/nvfWcfMTL8d4T7n5ie8ib8PM+6DynlEvc59U5vfy
k2oXf2m+U+8nj3pzfqXMcym8wa27dbwfGT+LoReqJf67asE5capngnGPzr6f
Ku9X7Tbxg3d5OfA5sXepoYV2x2s875o8yL7tRuNsx89VT6AeleoWzL8phXvj
HLV3leCvvEcmUkCpkM7zah7XcXxh8i/3yrO/eL749Ivnnatue2F+uJTBlexX
/AwOK6LfmgbPomfHF99wz/vrNNr77H3qHZIH+gzj6uGMy+5ruHHggcRFY5N0
H2r0iDxP1veRxS7vI7c1PLAE8zvG8E9+8JWv4SsGvzU2/LDK3MdbnMV6VAm8
JvzYfttIL/9tp/V+rOBB2tt1NiTm2qbLZTz7Iq/pS1Ny/eoZ5y3Uw0jg8ocP
aw1u1M/zHGX+oh4Bp9d47t/khB7YYfAqddjA4FLOucYBZ6hr2uTUtdUzLLql
nMGf1Ntg4O+SU6eEOqXRwINtX9jUbW74L2twefF+4xOTzq48WMvw+3g5D8L8
oa7Z1LX264/5tutiHrNf/t2pUzZ1qu0nZfEe4qk/fxnVI2WV7NMJ/MCGH4TH
JD8s+Zno1BGjjp7Dz8axCwM/7jvm4Noqv1SduMDDuz7mOYvBD4+0PIu6El7+
0MGt3se28wX8sMEPzSoWv6pVzs2+3znxSPxk4lc/cv442fCa8E7uF+OKVxuc
CN/lNDgpDf9zwV/t3eOiLPLMNs9yr+sdw3fy/qA85zD1rn5Q1zqObE5dS/2q
HfX73HojuuSGG4ckODQ41/vhWhfAZw/DjzlevC/mNmZfLHact8pzUzZ4fm5+
Zb6qbDPnnFnsi8H/9jyBK7p51ba3+w7GeRR1MeP9L/hzoFk/srn3TXa+hIc1
ftynp3LAg5lH4WHCOs4B7vVO1kHu4V7f1b/s+0aYdXe2m98s/wt+ONi9jvCT
ae51hJBnWWdlvQuGf4nH6CJ9v0Puw8zBPEp77PN0HRQ7ztt5kXlPWO6t3THv
dezDPOA9CrXL+5Qr3L/jQ+Pdv7ej9mLmfqzYd5n7t2KvbO73iv0N8FAe48fo
N6lHnuj+XQVtL89l1pj4t4N3XzHvn4gevm3yg/MhPS8Su7zn+5bJv9xXGWvm
66F5303ssm5Uduseec5O2NepfTz6fdLP/R6FfX9c7PIe0EX37wWITmCjE/gE
8iPPWaW9vOci77eIfTnyL887xJ4D8yjri7Z363ZdZ2ea9wctrqyf/fne6ja8
q+c+fe+U+WFNVh+nwcVGdQ/LlaTPg65WndmoXaOThHNQuadn/Sgf9HH8MPxQ
gtsPm7pQP9nOHp1WOFcyD+pbJ+jQ9RhaOO3ltjd7JIudYGfYdT97w+TZtBc/
cl7OV8w8Tp02ZXv/0SnUuf7+R3cmRdJI5FPeg/QzuJJ9esSM6FwxoSEHxW5/
t0fscp5QwLy3I/dAuhl8SjxdnHh0XRZdtjDscRm/6Vv0vpDw63DDhzKPyD/J
PJp5J8yX6tDBbj8s9wdXueuRh2Fcld31yx2Qh3nuetd7F/fc/MBHMY9/uvmT
ywAn37r5hzekNGt07XKo3ltbjPkdat4XkPYVgH/DhzzpxbzKr7+YV3n+5g8O
vPzxGZ557o+M3Klp9OCjPGVL7U9gg1vBp+wDKLfpd4h5z0vs5dz8YPsl9Mvo
l5AHveeGPNDP4J8cbn7W9yvN+sUfy3twZr7kHLSimV/Zf/Q1eGi97YX8bOdL
4lS938zsV+V5+gfuutBzwtfcdcR9EP8X5nfETN5kvvT5eIb5/Re5F3HXzSdc
EvMS7OYr/hrzWNrNh2zmRfBJk1/Mz/ya+V0mscv+IL+xBwDn3qbfuqiX5SZO
g1vBD4NnGDyjeljsnd38I+fxfMPk7Tjq16x3bNYFymJdEF7y6MrDEVs+/GIv
tz3We9LG6CS919p/VLFv81WdofdF5Vy0gsHPph8TM6uM0d+5Yb+Ez9469OtZ
7tBlbaH2n3v2L6XeuN+gzZKTsg/mKQY/ovf9DQ473CnS8JUmyVR63S/75l9J
4bQjL/0eUz9K7FwS9lTH/tzvWIof4fO4uM2be92Zr+MSPrc8jHGxGZfmt2Fm
5uXx9+Lo8oK/881rGCXjZTNebV/p9tQ69VfE09ZfRvpP+t4zb/DD8KPtsznz
QjIv0t74sfGIH+ufrP/1aXdDqqxL4MgaIT3vvnmSJ/dKG1e6eBoFzSg1NjYt
nvpWKtdt/YoYTm7ev2nV0h79UXB19upTq8VxuxXt8u6J8/xu2o6JA1My0uNt
3kjyZvJDJj8cO9s3j+/9aHpl1f5sCxbHkumXpV+Zd+CBgAf1I+M67YyLTJxs
4iQTJ88t1nFW0Z2p9ChsU+KA0ESdL4NniV/Hs8Hpl6Lc+WTkk5FPgn+Gf7bz
iDww8sAmP2KXcenfYVy0fWKPa61jEjn3llXt4yckcCZ4GPnU9sgnmfFKPBYP
Er/G8+u1BrP7vLmDzu70ztm3YDJXSVvff2SkZ9397urFu38vj3m6n0ldGrHU
cx5W+WrsnsGrPDjMcPww/Kjd+LfjIhmX+PVy14vNs9YL/JDJj50vwb+dF8Gn
jFfnH+NljFftGK/Nm4yXTfzCw7Ta7UfyxinueZS6sHgQnJOJkzXO/dsSFn1y
gbqs6rX09vI4/vJi+b7lPz9v7ST2zBFra5y4ks6nA3d+F/1yDK8vf+HlErs9
eq1PtmsNxgw5w/1+O3By5V/xZHhb6pR3927z94TTnucWEVeKTB/kl8jlk69+
WPmU53fgam7pcnx56QSJh02ctl+Sfs38Ck6sfxL/Jh6SeMR/TP3QYbvSE2j0
5QD/zu94zskXvdXq+qVRifTR9dfeW1nvOBn8Uxb4FzwQ+iXTLyFOMnFSse5T
m3VPv8Cf4pz54baAf47+HSZ2MnabN5lHmnLo+pN8Kz3ra8W7w29WTfDcA1rg
jIu7O+PiYWN3Pfm53iZt32jt/fxvPOVf0y9Jv9JuPvx0Q36AHwJ+CPjx7Ivc
86h2k3/bXvDGJj8Sj80zZ5FnwRvt/PTVt/M/SVb+lziD9u7M7DjKs5+cfePM
wCDvJF7k2NXPHMdO3esVT6ycLY2b5hw6YeYnUcpXQe724of6OHn2rOdOnmW+
1F7BmS9r50qwD3P7kfmiRe74JU7GeNmMl4xd692MS9cX2MmMl41d+dbkmQ0e
2OvqxTNn856kkUt31Br1dYLeo3it99/LjkaGkTyv6ePGp+RN/SxqFj6g4eYT
dLRhAd9jlRMt/iWfel8F/vU5r7RDPIx41A7/DP+2X7GTGRebcVFB97j0/m1B
dzxk4qEs4pHx8v8AzyCWQw==
"], {
Polygon[CompressedData["
1:eJxNnHXcV1XSwM+9dxWxCxsDAxNrxcBCMVDsRkVXBLsVxUbsbrFBsbtjXVHR
tQtrFQs71nXt9VV33/k+872f5/ljfjNnzrnnnntizpyZOb+Fdjtgy/3rUson
3UppAq8SP3MHjA96x4BDqlK2LpneJmCWyJs18HIBK5akwStZlnzKz27eagHr
BqwV0N96xgXcG2W3CLxZwJYln+HZbXwP5a4NeLxK+v4qafAOAYOC1zPKb2Ie
ZbYOvHrgfgHHB1xjPZQ9JeAg2ih/XOl8Zrzt6WF7L7Vu2kf91wf9p8h/Izrq
iJJ4hsDfUbbJ9HelM5+8kSXpb+vk9ykJowNOkAYv7XOUe67OfPJ4Xx/zoD+O
93wS8GzAvHXiBeoE6AUDn2/+cebNV3eW3dcym9eddQDHBP1VQO94x1IBSwYs
E3BayTR5XwZsFWX/HOmVAvoGrBnwXpRZtcr8pwNGBpxfMm/dgHeDHmC59QJf
Fnj9KtvyrN9DvV/6LO1Z0jbuFOV2DhgSsEvAPfHsroF/D/gp4H8BnwTv7ij7
sXPvgID9hLvlfRZ4/iizbdR/WKQ3Dbi9ZBr+TQGfl6xvu+CNDjwh0sdUmQeP
sqfTJwGP+c7PrOPM4L0c9Fm+izza9bH0FMuNaDJ9ZZTbnndVne/ezrwxwfsw
0mPtX/p2ivXMHXBnpG/kuYAtWT8BN1OmymffD7iLb6e/qpzT21Q5x/n2B/x+
3jHG56hzA9fm3+hX+ivgBfqB73XdseZ2DHgiYGLAkz57ZZTdMOCZoA8PGFEl
fVXwbi3ZPmjau0vgIQHDS/YzffyK+NHgzWyd1EebJtnnp/u91HNL4H8EvO33
rh59t1+TeZczLsH7vMpy8EY4r89kvQb+S0n+ENs8wnLMqf8472+1zM0CNM89
E9A4ThszRkEv2mSfb6bM4PkzXTvwtpBP2bXrHBueGWQdC9W5PgY4dpSlzPLB
Xzzo1XzHmj67YZXPLm96kciby/ooB3/1gJUDVq3zubV896FR5hfkcZ31UHag
z1EX9axQJ381MXm0o7/vo56dA54M2CVg94C/BAytc/3t6fpb2XasJkBT98/x
/h8Cz1mnrO4beI3ADwXsV3IeILspR/6xkX9G1DdrwNSRnsZnAGieHRD0+tY9
q3ixOt8DTR7fPMD0qPieHkE/0eS6Zf2eY/keto1y9Ne68p/wGWCUMvbooJ8K
fEzg00k3mUZu0+ZjlfsHuf8cLN3uBfBmr7JsH2nwd/HcBz5L3aQfDTg70o8F
rn1P+37yKXesuKP+OuUtcpd+6mZf/bVJ+fZw4LMDpopy0wb8GrwrIz056CNN
/1l8TMBxJcd5MLLZ/l7PvlnUMpTdO2DxgCVMg8k/MtpxIPMFOR34pzrTvwY8
7Pj/5DNXNIlpC/RRQS9tW2q/+6iAmdmXAxaussyvXer4P7/nyMDL1Zk/tTS8
QwJfHfn3BowJeuEmZcqHgd+T/7/gv1pnWdbzvwK+Vn5+oFxGhn9RUo5/6HPU
u3NJWTnYdzE3Dgt8g5j0UoEfYW763ClNlv20yXJHC581yfvM9B2Wo56DresC
+UcG/Cve+U1JmvFnz/2I9Rrpzerkw6Pc75GeF7kT8EfQCwZeIGBGy1HPTYGf
D3i5Sf7M5jHHqJ/8cUFfUifdR7ys+HV0JHSDKPtWwMU+84L1UtcRAbNY/mbz
2ud59ia/hfe8bpr2DGdNBn/uKunD6/yOFc2D5huPqDPNnD898JlNfudqlpmr
ymeH2x+/S/PcHNY9l5h3UX/T5f3DLYc+d0LAwgELBvQKKME/DvmoDsJ66Oma
YU+Gv23gywNf5reNrvMZyo8W32Te53WWhUaX+cJ+An8uTXnyDrN+3oPuNlfk
PxfpRQJ3j/RUAb2CPol1VKdeQnn0lOur1InRh5H1zJ2nA/qxLwWc3GT5bX3m
tDrX4qJVjtFrdY7dYo5x74C9A/ZR9lzpc0s0OR6My6l17t9jAw+sc14w35gb
lKP8gQEPMYbOQ+BGeadK39Kk3kDeJOczc/nbkrrlKebRtp2lqXdJ27OTvDaP
8tRzo++j7sp3FdfVRNcZ+ix68+eWe6xkuaeqnAvDmuQVn2ddf+EaRydG1/+o
UcYHvF8nfKe8v8a5dFKduiAyBFnyQ1S5CXKgyv2rd517aLsvkl6lTjnYV0wa
mUh7j7HNu9apj++mLPpCeQQPPf/agH+XnB8bNin33m9Sbm7T5LgxfhcGXKSM
+MRvQveHN07+1T77of16ofzTle/MpyPMYx6wXtFHWLOvMseanJPwlpI/XP0O
3XWI+ttj7hF8K3vJMgEruadcUKdMmt/3nBXpkwPejLyPnKP0O3sP+87fmpSl
g5lzTa6pexyTSSWfY19kf0RvuLvJMadvVqyyDGVvr3M/ua1O/Y/z0mx16oSk
oe/yuTedC28G78WAt4Iey1yQz35A3rRNnnu6NylbN21STqKvobeRx/p/0Oen
D5jBZ9DpN7XMS03uSw+Y94T5M5punxnsPtc30ivY/+jn6OZjhIvlIbOQTzfG
M9c1KVfQa9ZvstwGgfcPOLhR/25yPrMXHNbkGMKfhr5SdoFJc0Z81XF5pEk+
Mo4yr0u/axn0n9fEWwd/UpPQ8har8izRW0yac8XWrI0meehR6C3oL6R3arI8
uuElTeqHjM3xTe7ryEbkInLvTDHpU92TzrQMNDzGFJ3yvCblPzL9hMB71Lku
R7oejwo4hzJNrsfxgfesU8fai3UdcFqT82VPnz9AzPMHmIZ+xjT4J5/v0Omk
DzC9j3hfxjXK3hNwLu1j7dgm8vdjX4k27W/5gwIf3qTeNMIxZTwPdtyhOcv9
xT6mr3drst9J9w+8dpNnxDUDr+EzqzZpt8KO09c5uFKTezQ083I56T5Nnpk4
y/QKfDLfoc54iPN7poAP69Sj0cP/4Xi85RpjraEXviSf9fh8nbYabDgnW990
Ud+ljh260bnuV2fXKWOg2cNOkUbmoHsfan8dr0w5ru7UrdGnkVutbr6MGJmG
7QQbyuJ1nn+Q+4si5wN+q3JuT+Uc+1PgmaT/W2Xdv7Z9Eenvq1wbvB8Z9Z26
77+k74i8O5VfE6PMl+bfaPl764T76uS9qRxEnj0g7/469+szmkw/WOceDv3X
wA/b128gs6rUUY5VdrW68hwBEwJejvzXAs6N9r8UeJWAF6vMR0bfY7m/Weff
67RbPiPGnjlzSRo8Q5e8Z+s8Cxxim/5aZf8+XOX6Ptb2PKKu9qD6IPOJM9PU
ysrh0uCpAu9YZz550INNd7f8NE2epzlXk96ryjQ0snwvaeQr8hPbxO3sJ1WO
+0ZNylTyaOsNVc6ph6qUJdc5J15VZgIXKgMvNM1eh43lWmRLlXJuxyZthNBL
Vyn3dpJH+tUqx+CSKnmU/zHwNvHO96q04wHvKbevcKyu9pnLqhyfXSyD3L6o
ynG4sMr1w3o5I/AFVY49/Ldcj6+wPlzvrPs93TsOEiN3oDesM03+WgEHKle2
D/4/ow+2DTxnpOdg7TsPaMcz4kul0a0Y+97iB6V7Oxfo73OUr8jZq+h/1k2d
snRv1zD8583bTx4yF/m5bysTIu//gj4OWVWljPnVtXuSvIMD3qmyDLLkIJ9l
Xd5ap77Bul6+Sn0EmjVNGp3kji7ruuuavtM1zTqe2HSu06MZE8uzzh83/27T
lEMOsN4fdH0jA86wDOk5XF+nWOchrlW+5T98Q5Xr/iHLzmFZeI+bfsI1Dg0P
/emd0pkH3dHn9g91PmF58t5R/0IPe0reitITTa/pPDm2yvQIyzBfn1JeDHcd
YxuD5pzIev82nlkr4KuAbq7xVjaQZr1Pb3q6wIMCNnb9gjeSXsX1Nda1Ntb0
/ZH/TeApTcpKzmmc0ZhT2Oz7yTtJHrISez11oDegi8F7TEz6xCZ1C+r9xnfA
+8K1uY17CPazuu7Ub0hvGnVcVuceCL2dacZoeJTZP+CHgNWr7JsdIv+KOstQ
dgfLX826D3qU+wNz6P6S/iL26j7x7MpVYvbvGeXN5Lreo8oxA5NGh8DGN8b9
EbqHaWQnMvTEOmXlbdLwOG9BbxX04Cq/gfX1lroNmPQbJffxN0wjb9BxaucJ
MuMSZcelyrzFlB2tLFnMfWYW5wPfsl4XXek19R7kE7oH8vmcKmnw92Lm6Y91
Zxoa3s910v+tU56MqhKelcc5gm/cJGADZRlyDN0DnePpKu2G3R1zMPsGNLov
/p1N6vTlgEkPqVP+7eo64T28Dz3rX3X6wKC/qTNNG6bz+zm/gDmf4KvZvkm/
CXZ79hb2GNYB83ldcbs+0GOYp9vVOc+gtxZ+cO5xBvzFeYtvAr8E38Ja+7Pr
p6/yGR7+EfYO9pBrqtQ10TNnifcOZQ4GXiDwMOcxsGCTvLVc3/2rtPcPs+y8
rKOg5ws8T8BtJXlPl9QXzxSeLcl7ruTausT1Bf2c77qyzrV0XcD4gD1Lwg3y
Xii5F9xinQ+5pl4pWf+ZXdLQPdwD2QvXCRgArlIO9FcWoGusUeV5jj0Y/bgq
qTO/aj+hS6+CrA28QpVnmeUCr1Zl/6+hPPjBNc0z6F7jxKSpC1m4rM+hc7M2
xkt/a5qyPIf8BRgjeJTbT70GnRl9+e/BGxT4gnhuY9f+ca7BDj1Pev4qz1G9
qpRHyKUTzKM8+h/t+tm2jXY9k79lnf7O9+OZmapcB/Mh99gjqtQ72OfZ7yeX
xAdJT+4iY5At6P/PVkmDkQd8w6NVrjlgSb+LsxFlnhbw78PjXIJsHeU8QA+4
OfDUVeolf5Ss91nr6Ba4G/1Vpewhr+PcVWV/76eMQj5BT1/lnrCs4zK+6pRV
z5vmu2cIuq7ym2jfs9IrmZ5G2dJdWcI4IWN2UJ4Mse18A3rKf6PsrE3Kzv+6
T0xb5Xwn/xZlHDII2UfZ8ZbboUn5sqP09qaBn+Sjy0zHWarkXrBvlTaG30ue
qb4vmUZ+kt/q0xcL+F7g7RZ5w5QzAPTe7s/PKWumuPd+EPg/6Cd+01nKKvZa
YivwC3Mu/rHkeY9xog3v2g7oI6o8S42s8t3te1+RN1oebUMfuE6doJd10S70
Gvw/Qx2TaXzX5pG3mfoJ9gZsydiI965S7uIT5Ey+ZskzOvr5n0vywKSXU4b2
tRzndM7oyLaFxF3T24mRq62MbXnIT+Z5O+eRpfDwcT5f0q/Jefu+kudv1hcy
bvaAr1xv0N1Lnts5c5xfJw1vppK2SnhPlbRpXiiQ95Qym/p5z0WWe14YV3fa
QZHZl4hJP69sRkbfJn5JGv0c/HfT8KHZd26vO+k76k5dnjS6+4zirunpBPT6
Vr8nzRxfqqTO3urupNHbWffoHW84RrR3LvUu7IKrK7tnlAamd9+bXt4MXdLs
he+6h2zinN3EefuUY8U70JU5a3RzT/ybfQwf/ZozCECZqZX546pO/lTy2Jew
2TDHAPYoeI/wfSX1y/fq3KPYq6AnlrTB32f6Lvc1nqcu7EQPlrQbTakTk6bc
nc6xTwP6Bv1lnbrLDSXlNRi5Bv3POvMpB6xckodOBF2X3M/xAZxekv9P86DJ
R3cCkMXshdeX1F0vKelDeN/vGSP/dtcIeh3rhDPRUVWeoS4uqf912Arq5JHH
GY0+xR4yTtw1zV59Ucn95aTAG9W5r57ot7LPDqo7dUS+nX14C2RNSXi1JG9L
eeRxJmf/bPdR0pzV2QMa91J0Cuyb/aoE6D0F7JhLVHnmBu9lu9hPaA978Ej3
lrbf0UlPLekz4VvYN7APcS4F2EPgjXffQUZT/qrgH1BSp6Nf6V9k0CDLAnMr
qyhzWEndb5BydDNlIjbLFUraNxYLvGRJPYr0ko4jY8hZBn/FJ5V+MtYHcqxO
vyv+1zer9D+cUdJPgf36tzplObZ+zndTBHwA8M6rUz9mv0FnRqZPss34U2g3
PphJynv2EHx8+HCIJ8N3zr6Lr2rdkv4q9tF9Ss4H4i/OdT/jLI4/ZTYBmjgo
8s/zG9ZrUsdEV0SGfKuMYc/i3PqONJizK3J9jqYzFpA+7uk4oF+Txh68gHsJ
bdujZPvQmaF3NG8hy+5eso69Sp4psQuw/+5hf/MsZchnDmC/3rlJOxn7FDo/
OvoLrJPgvRx4J99HGfiTzMOniG+RmIIf1UOIMyIe6XL7Blsgfc8+u6dp6BdL
+hnwoy1SJQ0PGwdxR+cFbF/y3Tvbf8SZnC+cbRlit/CrDRWgdytpq9+c9ddk
rBOxnBsFrFNyrPuX3Gd2p6+aHLu1qzw7DK3Sps95Avkwu+sQYE3CQ1ejfvZA
+JTpoWwbUPI8jAzYqu70iWyvnMCnCR+bOHIIfZc1iY7L+uAs9NeSe9qqJdf5
l677T5XDfVzrv7jWsfFDw5tNfYF5xRqe1zl1SJN+5I+rtC2urCy/ts4Ys+sD
fx3w7zp1Kfy1+MTmLhm3+VHJ2E3oT0um56wy1mOeKgGa+I9lS+qh1D/C/A5f
bZ02NJ5j316+5DfBIw+/6zz2DfVD4/8lzZ7Xu6R9lfcTN9pT2YPM+ZMyiPTZ
5lEG3+4txXjVOvUM9BF8OOhE+GjZz4kP2SjKbBAwtmTMzl11xtBeHfB60Ncx
R+uM4yEubP+ScUVD7TP67lbfw5h8Vue8JGbxvipjh3geTJr6365zfhIb+brP
8+z1jssfVcZwjLTfoI+wv4gNIf6DPh4hTV+vWGecHLFt0JeXTNNHyGxkN3Gh
9CP99Jl4fuU3ZSjLuRTdd23HYkrJmM8pphmjQfYZfUfs4CBp+nyU/U6/Yes9
tmTfQcM72n4eax/T14eXjIc+NOCJkjEJj0sTO3JHwE0Bu5Z8B7GQt4pJr++c
Ze5eW3IdbCuM9734+ziDspePKxl7PVaA3rikD482DSxpU0U2IXOIFeOcQuzY
VeYTbzqn7yamrbtzkD7E/0lcQg/nJ3zmMfMfHZY1QIwE621uecu6NjiDLOc+
y3pl3R6kvEBWI8uhwchz+p15TIwS+wB8yrEXIvN7usewt7Q8MPslzxN3gT7B
WQkfLeel2+1v4nhO8n3oEdDIL9Lofuh97OvoVxeaR/wcezh7+cXy0dtOsjz6
4gPKu0cca8aZGBTSD5r/W9BflzzHciYHc67FVoHNYhbXDOuOuHjOf+hRi1sW
XyJ1oLtjzx4u7ibNOiSmj3XZ2mSxRRKr165X0vCRs8TXv95F7sJHDjM3nlTP
YJ/HL4K/Axsm+hjpU6vUZU+sEqCx46NbLVGnLjRGveJy8Rh1DM7b6DzEhBBL
1MbvcNZmX0OXwU+PjoPfHh0HHwr+0a1K7tXcn8AWyN7HHjhYHnn4GLkfwT6C
f5tzHHscPm/S0Oh/6La/SW9umuem9Vl0IOxu2JroB3wbk6XZy/GJopvip+CO
xqfqRG2ZyabxWSNn8f9iH8VHgW0PGv2K9D9ZX/bNP0rqj+iRv8gjjz6Dhtcx
HxmPKn1LxEXjb0KHJA9+68tnfa+jDjVA/XeA6WHKAcYcPYo+ZU8Bk95Q2F0e
84I4hDub9IfhFyO2HP1hTJP3JBhjYn7QnYjj2UU9C9sxsffYjuHhG0W35TvZ
v/nujpjTJuNGiZdfoGTMPGsYGwl2jw+rjCelHL5K4teIfztA3eBA9YMl5WH3
4Tv3Ee8uTT3E6RNPgw6Nnx2d+iPfTduJD2L/I+6KmHPiyLcU3yM9rfNmducf
+iRxO6RXU2aif3fo2eKLpfHv4tdljhPzhsx4QvnxZEkeeiK2ImJ6iLXje9u4
PdLE3TFWxPYxVjM7Lsh29FBintDz8XseaR53ONjrdxSg8ZHTduLt2nilJ01z
R2S/qtPWDyZ9oHXiS33B96MnTJCm3852fbDvMPa0BTs/6xvd+TTnLPHpxzgf
R9p+xoMYIfqJ7xvofGRN4Z/dz7UFzfPMC+KhmD/EYN5bMk4JTCzTVMoS1gvr
Bj2fMxJ6O3oK+j+6CjJkOceV2PJlSu7nB4uJNSfugTMU56q9bQd61N6uddLo
uMStLmwdfaSXsGwbr7qo6XuUEfjw0fHatThA/R7dHh8b+j3ymj3pV/co+P3N
w96D7wBbTx/fTdv7K3taX+lappFtQ5VZk6WRZ9g1sZdi2ySOAH8a/lDOodiW
p6+z7/7kmoXPXjWD8p15zvmYWMk13JfBq7uHbiCND4zzBPYI9GT2EJ5jH+Es
x/niCvdp6Csts5TlOG+w1vG/YEPCDkO8wid16uZ9HGPGGrvuj+6Fb4h/kebM
0cNzB2dWzqM9laHoR3cqV9exrzdXnm7RZAww8glf1pbyicfqKx//MDGdnNHR
pbawDGVfVKYiW99t8pxzY50xbxOajHsjZu3RJuPWiJkkXpI09um13Defsgxl
iZHkWeIkkbGT3CNWdP7DG2U+5e51/hEbgsxD9g1zXJ+x/4gn5XyD3s6ZhLjT
nsqez1yvxLSix3NWIuaVsw96Nndm+tV59t5K2Y68RIZyfkB/fEx5ca7yDzmI
Dj3SPRlZy1wnPpBzC3vCye4L3MdBd0d/hAZzP+cQ9wP6k9j8K0rG54NJc5eD
eN0jU/x2+B6RX0OlwbuVPOO/6PxBR0ZXRtfl/ML3/iFAE+vP+YZY95ECNHcB
0Hf4NnSeZfy+Q1xD97n/cbeMO2Zj/VZiIrlDRuwHMSDEAI8rmU857ltxfuDs
AA0+3L2MPmY/4wy1uuOwgjQ89mDsG8ShM++5k3adeEfpjpjRKu/FAVfLY35z
X4Px5UxFGpq7G5zDekqDuctBHOgk933kLfs+8/DkqvOeDTSYe0ncEeJeFfeL
BkhvVuX5YAPHjvhxnpkkQHO3jft4xM9vJib9gHmPl9TTh1h+J+XUUsqtneSf
4rPE4m/fpS5ozhTUyVkOvYznsO1x1+gUxxTgXfBm9718F3CGvONL1vGzmHS/
LmnuSqEPoh9hgzzUd9IX3ziPvxV/49ye4Dp5VMxaYT9i3Z/m2h+jrLm1yRhW
YmofC1hG3riApZF98m8LWNY5OrDJ2FRsaMQKvWKZQ5uMW0VGrWuf0KfUN7lJ
/fAx38VzY3zX+cq4Cco+5ivzfbB1PWrd2PL+IX2f7VnYum+17ehF9Adl37EM
bWfMlvQdyKCBtn9p28Q3YPu4Sh718J7eAm1gvpznN57rWiQOaxuBdQkPu8cy
9iHyfkP74237baD9iq2KM+o42/+uZfZoUo4is641/x3l6fJN2o+n2L/zW/dL
9sPKyuWrHNf225Ddw303cph3IKu+8H2vmL+07/p7k3cS+A6cH9SLHBtuXU9b
hjsLfMNbvvMrdS90dsYIucZ9A2Q8MfOb+L63bcvyjhHvRE4zz/nu5f1e5Mlk
20EbiFMjNm0u+xW7+gMC/bCh309Z5M6yvuND94Bx9vPSfu+wunP9YBsmjvZu
x5NYbWIL0XNpPzr/OnXeCbvdbwC4HwaP7yOf+znoquyj7CXs1cwd5hD7MnNx
gv3AXjHCvWG4fUzbkZc97Yd5lLPUS/3tvkYdzGnWCX5wYkoPda72dh7yvcwh
5vbXzu9hfiNxgnOVtCuzD9N3nFmJQ2NvI499GX1ltpJnmXVL2qBJY5/CrrK+
+wt9iJ2OPh3qO090jDZ0HtEmdGzW18uuMXz3rPeHnZv0CX0z1rEmDpj+Geb8
W6jk3rlwSXpB99HbHQfW5tFi0sRCY2tgz523pM6Nvo1cOMF5PK9ykvMmusl8
JXlzlDzLzeaeP4/9wnsXKXkPDZ2U+2V3OD82db73U84gb4jdR787x7lZ3BMZ
V+ZmO0cXdj3cbvvvsewyjucw+5X5yx41xPm1mfsS8+tav+kEYaTrlPbuWtLn
sI36BXYjytAX6KGs3a+cK+gR2KPQJbD1YkdCJ6Bv0OG2tS9JH2tZbL+HqztQ
Hv0B/wQ2hNaegA0QHroE5bFDHW3f8rnoxfih1rMM+Ve7Pq9wrpHX2jPWd8/s
5hphfaD/jXKMFrZOdHfODdxvIEbpKseX+TxQGtsteiZxE8RQtHodd6CwOW/s
epnHvqNf6Ev8V8RQ3K1eg6xBluHPJ6ZnvPrAE+oExOkQO8i5A3t3e4e19XNz
ZsGngD8Cmzl+SfzmzGu+6xbHEv/6K/KxRWLH7DgLOSaMEfFrxHsyTw/3W+lP
Yi6Is8COQv8zH/g+fOpnyGd932H/Eqt1ovWje6GDsd7xUWCHx6/C+Q0fy0d+
52nqO+hKv1jXaepXs6pTwScfnYeYUfytcymTkD/41tC/0b1nUx4hh6ar874F
505kwJPKgfldy+jOVZ22U8pgF+MOBnay9ZVd/ZRZzKvLnC+j7Ntt7UPmN7FC
2Ok+sK82dg4MdM7MoUzg/csoX/ZXhvSyXtYdZxZift5wHS3gWprHeTWXdc3m
vOQsRKwlsfgLWw/v4TyOHYVYpgXl9Sqd8ov3cm7APjDBb+gpn//NIC6Au0KN
757Td88tPcIy+BhYD7Pbrh62jTTrI7I7YjXaeCPSrJXpS64X/Af4C/BpcRbn
TI7foK9p/ATLSuMvIA+fITZz4pGI3SEWhjM+vlR8jPhxO3y+JW0C2APwEeAj
xs/LGsDPSSwEfnB8m+Tht8c/gM8AfwG2/tPNx+eOn7GNJ1haHjZ/4hDbeETS
xGwQ84EPgBiBxZyz7V0QMGlo4pyPtxz+1UvExI5c4vtPMo1/kJgWbBjEwxDj
wloEyGNNYj/BP4EtZWKXssTEECtzv5j40vsFfBAPih+w7BR5DwiPyGN8oPFn
fKIsIn2W7+NdE00TJ/Ss7yP+BfqVLumnzSfG5O2Stg5sPG/LIxaMuEtsLsSG
EaMJjzg/fCX4m4m7w9ZN7B1+YeJAiNODT3wcsZRVlTGRxPLzDPEq+FhmkJ6h
yhhL4i95hhhMaGJVuolJE+syi+WBRh7+menNA5PXlutI07Yq5dF8Yp6ZT9jV
fOJkiHMldmahKuO8e8lfQh7Q8mgX/h/ykHPE9XLPbDnxCvKpewWfpew0luln
uX6+q/1PCtJtOyhHXA9ykVhO7qfRn8hNYkyJKVhD2Qd02CCrjCHnPtVg+ZT5
t/Q3lsOuiE8JWyUxTsQ3EdPJ/RPS3FMAjpaH34R7Kdwf4c4S9z64w8S9pStM
A8T6w8P3dIIyEFslfqnn5D9nmjh4fFcXCBfKQ55eZBr5im3zUumLlLeXSrf5
L9qWF6vOdr3o+68WXyU90bZeZbuvNu9l20Gb8N0iX4nF2kAZ067vNUxzNwB5
Q37H/auS/m3kC7IFGYNcolx7R260afYZYky5o0vcN/se40s9gTrq6rgjV9KH
hh0RHal/Sdsrvhz0JmJSsIXtVtLXQGzKEHUodKn2jgR4DfV17u9dI32Nujx+
Is75Y9RJ0TvRi9m3sYvh78DXPNrzwhnq7ujtwDB556hLPyk8I49zRMc5qMq5
doR9AG+w/JvU09s70Deb5uzEvTx8U5zjsWXiE4IGY3sj/oszKvoPdeP3ZI5R
b8e95Sbjo/iG9h72dabbeckcwaeCvW1T8ZPSJzpvmNP8HxfnJHwS+DQ67iLW
aYsFN6Yvlsa/gx8GvwnnDux8Kwvc7Yf3mvMOHy56MGN9k4CdZgnXymvOU+LE
8NfgQ+r4D5cq/WXMF/5XDr0F/xV3EfFh4XvCFzOjdfAe1jT2nJ3VS/AD4Q8a
IbwjD92d/9NpxFNL468lTgn/LfMOTBpfLv4R/LvE9eHHxZ+Lz5Y7DPhtOSMg
l9Z2Tn1QGfNtGh8HvjnuFCDr8HPj427vxh1s+mfL4XtFj6Qs8pG9hH0J/QqZ
Tx77ATow+9wWwuLymHvcCWC9suczj9CniW1G10YXv8Jy6Osda8m1hU5znc+w
56Pvcx5Y0zKUZb/u4z6Oj4OzBWcMzh7E6XEWwU9EXB1jv1WTNltiSZDBxJ4i
h7eUTz7rfYj6Fu/E/sW59DTXNHYf1sERrjnWN7YJbCycKTmHYtvBTsKZlvPs
cz5LHZw5sQ/dKR9bPr6UF13jyAh8hftYZowyhPr5fw9sL1+I35a+z3p5P7ZF
7Efck+J/NLBz3Ssm/b5twqaHPZD/GMHu9LTzhTmyeZU+sc1Nt3OI9DuW5ZlT
utT9oN+Dneog5xP7IfIKexIy62Pb9ZF4sjT/y4ANof2fiReUVTP7XXwf/z3B
Wbf9P5iXLcv/wnD2JX4G/Ib5fB/2Fr6xQ/40xpbWea7mTI2tDh8HflnO//iE
uit7kdELljxfcK5C5nVz3rCH41fnu/g+7F5sMENLjudzjjVj+KTjOLPjCs25
iLK9SspD/BHtPeydTeMvwG6N/Rp/NT5s2od839e5hw2G/8JAnoOxT0HjU0IW
449HruOr6vjviTr3FNrKGZv/H+ohPY9p3oFPDP8xNh3GgTPpxyXPuPwn4adi
0vzHDXaY9v8ISWOj4/9wsNW0/71IGhsdspn/S1pQ6Ke85r+SuOM6TMD+BY//
+ej4X6KSwDd+7jiuqNxnnLFpMq78vxz/LbeOeC3pWZXD9An2Je7h8F9bzOl1
nOOkvzCfmCJ8pciaKe4FHxbtVyXT7JX4Aulj4hvw/xK3wv+K4d/hzA8cJY8x
JP6gvcPPvd6hQoetr06dZbu6MwYXHyXPMfeYd8Q+8Z9p+IfWE2NTgMYWw/ff
4xyh7AT7ZB356EfYqtv/bVrENPOMfY244DaGidgN9mX66g8xfQPNvkw+Pmb8
NNh+Wn3hE9PtfzKOFB8pzX8lYge7RUz6cNcda475yX+xYlNr/y+S9H1i/ody
G6HlbdmlPmALeejo7InsZcSHEJPD/jvG7+Q7aNvMto//M+S/DLGRABvIO89n
iWXmHie2COT2qmLS01nPo35DL9f5Pa7du52DZzsPR5e0cZwgJj2q5H/k8Z9e
x4p7SnOuQC7/pUr/Lf9DdLTAsoaH7xj7zBFi0tgz+P+iXUv+/yTnGGLpOMvs
ah4yCR2H/8zdSrytNLHI/H/txuKNpPlvTf5jcx3xQGn+HxA7U/sfuqTRd4Y7
L7nLRkwk95kRndi3Ov6/rqRNlfhTYgKxpxLPR/wpMafE+2GDxD5KPB+xp+wx
e9gn+4jpI+oYZZ8eZ/+1/+t3tH3XzX7D/vNdlz5jrNgPkLvsZ+0432z/7er3
X2PfXOm30wfMFebMIOcRMbyX25f06bX24RalM769v32JDCYeGDlMzDByGfmM
vCXeF5k7paTcRR6jx2C34kzFPR36so1lB9cCcaj0N3Ec7d6+dsl7R8QLE/uK
3Qr7FXe2sFW3seBTmcaG3Veacti7upvmGeIS0efgE6MNxi7WxmvPZJo7WE/J
I6YWWxl2HvRLzuHYLuFj/8EGDBCD29v6u1t3e4+FMx32NGJwp/Kb+DZsdNg/
OeNz1sfGhr7Y2nlIY3uj3+gr7gHwHLHTPMtdBvRu7G/cHQBvLh/9EHon0+SB
0RnJg4/9Dttcx/7S5B6DHQ8ed0CwyxG/i22O+wnc88Auh/1uH3ncG6UsPO62
YYMgpgm7HvrxWWLS2Puw/21v+ROlqQPbGfG/vI87YtwZ2966qJO4KdIXmI8d
EHsgNkNihnmeMzo2O2x5rQ3xdNPcvbrB92NDxd7KO7Dj3Vk67XzY99DlsaNh
K/tOGjyx5PmGOH/OONhAsYVyX+915/qr0ujppLmzzB3CN+SRhy7PuYh5xHwi
j3MAdrcOm1yd970oR/p9gfgkeMQ4Qbd84mThfS2NvQ37HPa4L0ti7GvQX8kj
DWDfg8d9W55pyxB39aX4Pz4zm/Tstp938U5sg8SYQWPv4u7ytLaB8tgGKc+3
ci4kn3LYxL63vcRd/y6NnfAP20jbeYZnsSW2sdod96jrtDGS19oNsc11nAGt
g/XF+6cVk/7NNccdaP47gzvbnE9be+X0prEnYmts48E5T3KW/NlnavOw1WHr
A7D7wcOWh82Qfmjb1PG9Vb6zvfP/g2nge9uF/ZB3zaZOwLmZd/4/TMbSHw==

"]]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 8407264430999882018}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJyFXAl4jlfTDlpVe6uWUkusbWqrnYaxb636UKJULP2stZdYv9qJNWqrWiqp
tba2at8GIRGCrLJJgtJQRRGfVpXf77ln3v8Zcv29el3v9Y6TOXPm3HOf+5zn
PK93n2Ed+2b38vL6LYeX19P/vcbU3VZjxIfRnK//mKqNvz/C+E7WPhrf505f
MX6pbxrt6zPrXq6RMXw2dOyNLdHxNHfzW8MXFDvNgfic43zSPHyf5baz17P/
LtKIEzPmfnUymvf8Oe29b+bHUuPOrVfXGJ9GEz5683Jw+fOcGDFhZpf10STt
0+8FFN52MJYDN2bfOSYomsKnNQmodCec7zVs8Mmel8/KJyFORpyEONm2z8Rn
jZr/+18orwjPVuHH4Che6XxKv4w4aa8T53Pt5XNs54ClV/Mf5LK3ctHQ9Gj2
dj7VD+InxP9ce/lEHhh5IOSBv8w3NHbeD+e5+4UvSpQ9mEDHBmy5uW5uEoeH
Tv/lyuVk7v/+wOpz8yfoeIeVvFWsSokEPvRx76s730mhruseT9zyeTy//vZX
X+bsl8zHdk3weVwlluqW/y10+xn1Q/Cj84t+Cf0y+iX4J/hn+Cf4J/hn+Cfj
X+K07SUeMnjT9qZfGZeNk0ycbOK0eZPx2jzLeNngStubfMp4Lc4FPzTuYY/h
71WM5At3K7y0wyuSM9ptPORf6hR1+6vS/Sb7z/Hs9n1q/rP8HE8q8Mjv+5AT
ti4oi7oQXFEs501acPmM4hy4p7bwPx7+lzr+2eCcBecGh1KPbPAs9ciDMa5o
jCvTGZe2/yRf0bj74+IpLXHf4zvHznIM4sx0x8mSH+RFvmsdHWsRMPF0gQRa
1adS5OiDEdwV45qG8fg53ylpwOEPMrzT+Fpk76/PhyRpe+t/LL5n4YcbXPTp
H73QU+eof6pv7O+BFx53fLSy9b5knjLdu2m1LcnEqQs+rTI2mhEPIR5GPDqP
GNdzduSNkTdq5u2bHNc1hvss6eRfeu1ubup8JzoTMqXm5Sguvjxn+yn94jRf
Tf2+LNPuUQw3Gee/eMmVDdzM+U73at1b8E1kNL+1JKh35JJYbe/nU6Jx/Jl4
Lgl7x6rd/vGfmcqFTmwoNuspP723tviu//yVQNeaf/mk+40LbONpju+23+b4
nq3Ts/wQ8sPID3kH77s/PSGOPztX5b1izTz8e69Ls53Fr8Xz3zXC9sZ+fUbt
BYICH3T+NIl9/P0W1eh5hjogzi5O/IT4GfET2hPaM9oT/BP8a90iHkI8ai+8
sFbgH0V+orzzBtR5sOcpip1Pauzkn5D//689I/8ap7RHngl5ZuSZ/Nzjknmx
cSpuzLjUbvIgeaMRznpEdv2y9nL4BN7JrpsmD9pvpnu8ard+5NPkQfBmcaL8
YnAr825xIvNucaV+TB2p3eBf5kX1zmzoG3yKPqFMt96wdaf+rR/RS9bPf/Ep
vPirm8csbwjfUhbtFXeGV8nwldrBb2T4jYbBfwz4/w7WtQmwp8F+1awLR928
p/aubt5jw+faHnzC09x8wp9gHZgMPpfv4n95wI3qD79JpKPz90TkbRHKzbbX
391raSrHDr1T5tMJkXQE6760z/3Qa8b2OaepebY+D+6uOK/29bNm5w5Zc5bW
FSt9IDMoXvMJO8Ou85LH8cPwQ+iX0C+jXzJ+xL9tT7a9iVPtGC9jvGTGy3a8
Jn61m/ify7PomO6wz4HemAg9Y+KR/Nt5kTg52tEJZPXMuJbeMyucCKetZaJ2
botI1nr/AP2OQb/LEdfZJt7LGpQ5R5W9UqNvX7ug4/3p1wGvbPU5TtuL3c01
O1c614N+i0O/Vp+MLF24S/orybwxrnP50F9TqVuZZq/61Y7Q/VNus58qUa5C
+MiCHj04tH3yzwvyH+WT3Q68TRVT+V/X2+7ovukC/V7gUWbFy4d5Ys1sI4IG
edon1F4/ZHehw8/5H4t92SjY6w+7mbN6w2gu5Py76BOyuuXHjTkCN0dFK59j
H0JfwE8d+CmFfnaY9lgPuMu2frkqrDrP9Sf7BK+fnkYhN3u0GPhnlOSTTT5l
vtjMF2Fe2MwL1d1QO2BG6UQeHvz2oiJHFTfsfyz1z1nfJvJrxVN8QqZ4cJO7
SULzlzo9/ftnOjyUMsDPeR07wc6wU0/HD8GP5hv9EvrNyq449nf78dShu1+J
hxqYeRHdCN1EXY2OQp4JeWbkmYBDAg4ZOLR54yzyI3mw+dT2WcRDExx8at4T
HXwS8EzAMwPPJOcH9YCrwsAncMgWhwYnqnMMrkhwZfCjfNgC+SuXp1P8yLYx
3NoZBxF0aNh7y+72uxXDR6BPCe1Lov03GPc/UYfapn3v0W3Qc2zyLzxAZr6k
LjQPdZGHIu76YltfTRDnScQ52YnT5ll4gya650V4g8a7+YSFT8LAPx9hvm6B
fwy/Ca74MfKQH3nIA137MXignhuf/BbyZHVyFnY+Ev316K1FY7n1gfqhoyrE
8qGti6fkuL/M8rzuR56VTU1P+37XuuUIarDSdw3+TuytnE+CP22PT7Lt5dOs
F6oHsvBj1xHBJ7MZF/qT+aWBmFfZLzW9umRe5czTWl/RZ368nDH5/HPtG+O7
7P/GAN9NZP9l7I3x/eul79xLaXFW/af1HbKn6s/xuo68ifqU7z5/nO41/qcY
6ugz48/x/ml6fmLbY/1QnM3uFlj+nxZJtG7hZ/fKlWFuj3U5CDqgvdFjt5vu
yJhSJ5nC6/Y+cK7FNh7+U4VDRfelKw+02tVx7fFl657z0w5645WQzj/3a5BI
dZoMqT1wbDhd291mSN496Ryy6Vorr+sJNLzY3Qqrn4Rpf++PiTsbdS2JYsL7
+cybvkvtqAuq+kvrhLdrbdJ9ZYGk0FcDP0+m5quP7Xr09zzPPhT2jxw7Wz/V
HT+67zD9avt1iDPAiVPtMq66zrj4BsZl9gsk34dCb9+F/h6C79IO57Uk57VZ
tOeFDk40DuCEyMGn2qMcfNK7Dk7Y4ITiK3+84c4PT3nzjQ+G5NuSQiG3pr4a
FZWof7+7ZvtZAQHHKHfbuhlB1xP5S8Rzydkv0GXsF+CH4IfhhwLQPgntf8M4
hAfhn+Ff7cAnA58EvKmebOvgjfZDbz7G/i1bI+dT/DRpPnjUP5HHqFLCiRpD
EhJtvzKu5/w8ga5Mh84UO9pxEuwPYWf8fUXouNXYb8unyY/k2eZf8sbWz7fQ
I6Kfxzn6mZZBPzeEbpH2+Hs7j5JnXubGDwl+cM5Gs+B/CupYdJGcI1RGfE3d
eKMY4M3HjTc9B+4LHVEe5xfl3OfwZHjpufb45JHgt9rOek3lsF6LH8NXci5H
3o5+oL7QDwZXwmMkulr6RRyW97gNeA+6hcIdPUDfQ7dI/gOB5/XgW/AS/8vN
VwT+YcN7JHqgupv3bHsdv/hv6eY99VPVzXsEfuMANw8TdIWcj1Fe6APwHoP3
CLxHOEek08hD0lhnPQTP83A3f5L4wbrAWBd03ZT5GoR18pGJpyh0jlkH9XmK
Wa8Fn4J/tcs6m/bR+TI9flxBC4o0L7FmSLLO393DM4P8Sm+k0E4rjh1q57HL
vq8BcIj9H/0E/Ai+hwHH7d7OXvrU7DG6L5BzqqCb/tX6ztir+lx01LXuq06+
UecQ5Vs8t2elAR6dWDB/+Qvl8x2jN+4O/SMx0cPXed3nmZTPPW+eeYSug04T
fUVHmwVWODAn+OCTiGrZGhf37N86ZFbZ+v22RNFL2n4+9FJS4a8up7Q6qe29
3x206POJCXwhZ8uQ4CqaL8q7vdfj61u2089tC0anT09Rfjg9o1OHoKCDlBS3
ONv1gZ799bkr+fpvpUPSj/Yrn9NnTWl+qZfH/8NdFXKkTlpLhcef7v7obKru
O3YH1W5R4MHarPyIvlX7AbQ74NaT9t+tnSOqpd/btSyFN0NnbnumO9dxUbeu
tvi1dgZe5DzX4sjaOWzq5X1Vu3ryELfU93Hq3bWKi4lryjYrPMCj0zC/bOaX
Up15VHspZx4J+GSDTwI+2eCTgE82+BT8s8E/ZTp1x3PcdUdRTt3xEXfdyfqj
59qr8In8E/LPPzj5p0IOHvR8aaeDB87CD1eeNei/Wycl86U2/y187dEO4Tce
e7/hXx2KJ3P3L9+u9dDrZ8X7HPN8XT7HOO0J7T3xO/4J/kU3Cp7V718OnqWO
1I46YtSR6n/UkcRJJk7RKSy65QE+TTzK56Z+OQ/qN8Fdpyx1auqaI6Wu3bgi
8AMZHJLgcJ773oLk0+ZB+ITtuB5Bv5n8CM8weEb9IH7R22z1eRZ2Pgd8soNP
z/MdN57V3sqNf31ugvN5xvm86H0eAXsc7H+g//moR5wP6DmM7Le+cu+/KMNd
pxqPbQ99yRfw/Nfq3ub491HQh6uhP029q3/5BP+obgdfKZ7PO3xFpr4UX6Ye
dZ8lz4VnIB48H7Z1JOsCF3bzgKwLnIzxWj0PncneWNdFdxqeEZ5/rr3su6HP
2epzc+4k+3U9d7L6E7qCra4w+RT+p3Hw7wv/LyMuMy+qe826ybJuznCvs8JL
5Itx2X2BWQdZ1kGzTnH8i9cp1dVGVwhvsNEnwht6TrhIzhPl+buxN8R31BGZ
OpK6JlPXjLomU9fcyH0+Scuxv3jkPp9U/dzYfc5JW7BfaOXWh/oc35yn0bwj
k/1meQcfNDpQ4zHnWqrTrF10ToZbZ6of3EfgU4izCM63DH/yWfCnnIuXRR66
Id/mnFZ1e0O/r5ctGeZZ11/97PM5Rw8HyPkZ/2TO0yQPXvivFvSrbd8Q36X9
8q7lWoyfH+wr383+gnsjznpeN37LLBvLMRumhr65Io0+Gzj9VO8f4vR8T857
/TBf05rWv11i+2kOKz+6U885+jyPW8zd0Dv3gAi9D/Y7+Krbe6EBUbuf7gMH
fJU3+6m9nnX+zbZrngxN5j3vr8oTEL7MV+wnn61XF3S86Y+b3ixIaXLuTfbc
G+eLVBrjmgwc1nfGRRgXY1zkXbtEeIdH4Vzlm1shY9claDyznXFRqDMunZ/7
bcpEd343gnpUTpw7uHuC2jFe6oZ7WaIfMF7CeLU9xkVmXPTQyQNN3ZUxfOv9
I5IHauTgROPb2fUZTrgF5iUS87Ia+02zT5TzbjL7Fz3vNfsgHvavH+oXerLw
oNkX6Ll3PXc+BSck93cqmXs1Bg8seDD4UR40eVOeQ3syeNP8G7zpfPV05kvb
G5wLHjQPTr38qPVixyXfDZ41frefYF+p09Huc2h6HeuR8IbY/VCPBp/qX3hJ
2tdG3bv54SLl5uMls29Z4dvI+F+HumjoxpXwjz7f0fYYt+ErftTH4asAM643
sI4HmHscN6DfRLeIfTp0yydvpWRL672Vtyxeu7v4Bx68r7l0cE/lf2+TexTK
J35DmxUo8k40LUxIPRVRxnOv7FF4eu7o9TH0fsqlsAmDYnX/0sL0uwr6bYiJ
8z70Zxh0n9jlHm8V9/miZ/9V9ff9U8NjKDFmRMM6u2M0HtseeoGH4L7ovUlx
M4Ijokj47dNvX8tY3SeefP+aOLZwIc9ziKSmqybFZnju7Vbb8p9+v42O5W9u
Dmz43avnKfH1yxlFb3uec323OCK1bQlPXlrn6v79UJ9ovS+g48V+oUSbUksi
BgXzH6/7D7/s75lnyb/ci5P8B0KXiR+5l7W+yq5HlWdN0b8fGDgzcMBT3LwL
npb2ebAeRibW2Hh9/VaN02dHcKHh7yfzq6Y9znN4uOlXzgFab9pzZdTCHeqn
YImm304qlsz7wXPSXtb/Ey+2c9Eey15auWef+rlVqX7L2muT+B3wqI3/d/Ci
2OW53jvFwgPDGp2iqKN7d6556OG3tdvblJzlH0k3btcpOflTjz278S/8HW38
S5x1jz7pUa1VNE0732FL5QGJ+txcdLG0x/NbqgV9KvZvgNuT0Ptil/tgn8SX
6VavUwyVXHy27YFqnvtgpr50P/KD8fOK8zzC4ln9GPyz4L+siXMN6mWaGRfw
xibPOm+iW6R9Z/CY8LPYNx0uV8LryFe+I8w9tdvgKz/380DdZ4H31I73EuT5
vto/BJ83N/FkB283Me0ngJ9HGv9lwKsfmnjkvjT4QfMLfqAxZlx4DiX8oO3B
DwQ+YcMnz+HvgRuXPCDySZdRT/cLMUnp8XfeWKft/wG/HDC8IzxY3Tyv2fvt
qiMDIpKoXcN2V/qF7VE/pTDfK1H/OV5aUnBl73T2aeC1ZWnHZHrt5ZArQUUP
UY9OZ94cuSGJwr+qdqtlx/0aX0vf7Am15l8g/yU/tYsKP0q/ol7E/6DD+z4/
23M3ZUtvm5B603Oet6TU/hzdAqdQyKV5E2qPT+Zm8NPD8cPiR/oNc/rV8Yif
ZY4fFj+mXzb98qf1O7Uf+HR9PlxsVE6fEqvtfFEW86X3OgweSPCgeAW/ZDc8
K/M70/CjtC9meGq0e5/CR8omVfXtcoTvVp/8YWQ5zz5J2ofljPrg0tbVqq8K
7Qq8eGrDUX0f5BJ4QNrnNffWxN4QddIS9QP+1/yB/+n3as/WIw9OnfVI/cxA
/XRBXYFP2PA2gbfZ8DaBh9nwsPqPfLK9xdH/rDtoeWcw+Kip4YU/UC8R4FPo
Coau0H7l8xfU80TUOfiZDT8TeJgNDxN4mA0PE/QVQ1891y/WD/BpKGW0fqYf
6LZbPxD0Axn9IHqPNjt6T9sDPwT8qB040fd6gBONB/XCoU69qL2/w0sc7fCS
8AaBN7iQwxvaD/iHP3L4R+3y/PUzrEMG54o7g2e2eE7HfH1pdKfcU7X62Av4
H2d0dls3/tnkTcdv8kY2b5XNfk3s/8a61czsH8q4zwPVPhvrYifEv7OKq+5I
6q6Io6/076CvtN09c87c0l3XVAB1Ld+xvtBBs77IeWMFrC+mfvXvTb179onu
utZ7koJz6GRtL59yPjkU65Tg3+xfrM6jnOBhU3fP+Rf92h38bOpdn19AvzH0
m/69qXfZd1h+yLLfWUaPig4ub9YFycPnRreJ7qxhdJ4X7q/sMTpS7s2MNjrG
6A2d97nAYUejk4yusDwg+kH9+ADnw93rDi916wG1G/2g/S4w57HGj+gBgj5h
f7euED3D4W5dofYwt84h6BPu4dY5+u/rzbmi6Kh3wIeioyTOPW4+tHqPY916
T3QLM3SLWfd4+OYqGysW6nmwsXvd4yngIaOrGeu/3mMRe88X62q+gnOwxqb9
dPDlCOO/PPjV8Bz3gn9zvqH32M3+WvSY3adTFvt0vZfe2833HAD8mvMc/mzP
g5OT5q/2Nec/jHMpMu/N6PubLd37YuFPjnHzJf8GHj3l3o+T7Me9jU7Hvox2
uvf7wvO81r1PZ+h3yufWm3oubvbFOj97zT5DeKiee/+r9+qNPlX/nd08xBUQ
z7z7dOhB2I+8gR/Nq/B/nvfWcfMTL8d4T7n5ie8ib8PM+6DynlEvc59U5vfy
k2oXf2m+U+8nj3pzfqXMcym8wa27dbwfGT+LoReqJf67asE5capngnGPzr6f
Ku9X7Tbxg3d5OfA5sXepoYV2x2s875o8yL7tRuNsx89VT6AeleoWzL8phXvj
HLV3leCvvEcmUkCpkM7zah7XcXxh8i/3yrO/eL749Ivnnatue2F+uJTBlexX
/AwOK6LfmgbPomfHF99wz/vrNNr77H3qHZIH+gzj6uGMy+5ruHHggcRFY5N0
H2r0iDxP1veRxS7vI7c1PLAE8zvG8E9+8JWv4SsGvzU2/LDK3MdbnMV6VAm8
JvzYfttIL/9tp/V+rOBB2tt1NiTm2qbLZTz7Iq/pS1Ny/eoZ5y3Uw0jg8ocP
aw1u1M/zHGX+oh4Bp9d47t/khB7YYfAqddjA4FLOucYBZ6hr2uTUtdUzLLql
nMGf1Ntg4O+SU6eEOqXRwINtX9jUbW74L2twefF+4xOTzq48WMvw+3g5D8L8
oa7Z1LX264/5tutiHrNf/t2pUzZ1qu0nZfEe4qk/fxnVI2WV7NMJ/MCGH4TH
JD8s+Zno1BGjjp7Dz8axCwM/7jvm4Noqv1SduMDDuz7mOYvBD4+0PIu6El7+
0MGt3se28wX8sMEPzSoWv6pVzs2+3znxSPxk4lc/cv442fCa8E7uF+OKVxuc
CN/lNDgpDf9zwV/t3eOiLPLMNs9yr+sdw3fy/qA85zD1rn5Q1zqObE5dS/2q
HfX73HojuuSGG4ckODQ41/vhWhfAZw/DjzlevC/mNmZfLHact8pzUzZ4fm5+
Zb6qbDPnnFnsi8H/9jyBK7p51ba3+w7GeRR1MeP9L/hzoFk/srn3TXa+hIc1
ftynp3LAg5lH4WHCOs4B7vVO1kHu4V7f1b/s+0aYdXe2m98s/wt+ONi9jvCT
ae51hJBnWWdlvQuGf4nH6CJ9v0Puw8zBPEp77PN0HRQ7ztt5kXlPWO6t3THv
dezDPOA9CrXL+5Qr3L/jQ+Pdv7ej9mLmfqzYd5n7t2KvbO73iv0N8FAe48fo
N6lHnuj+XQVtL89l1pj4t4N3XzHvn4gevm3yg/MhPS8Su7zn+5bJv9xXGWvm
66F5303ssm5Uduseec5O2NepfTz6fdLP/R6FfX9c7PIe0EX37wWITmCjE/gE
8iPPWaW9vOci77eIfTnyL887xJ4D8yjri7Z363ZdZ2ea9wctrqyf/fne6ja8
q+c+fe+U+WFNVh+nwcVGdQ/LlaTPg65WndmoXaOThHNQuadn/Sgf9HH8MPxQ
gtsPm7pQP9nOHp1WOFcyD+pbJ+jQ9RhaOO3ltjd7JIudYGfYdT97w+TZtBc/
cl7OV8w8Tp02ZXv/0SnUuf7+R3cmRdJI5FPeg/QzuJJ9esSM6FwxoSEHxW5/
t0fscp5QwLy3I/dAuhl8SjxdnHh0XRZdtjDscRm/6Vv0vpDw63DDhzKPyD/J
PJp5J8yX6tDBbj8s9wdXueuRh2Fcld31yx2Qh3nuetd7F/fc/MBHMY9/uvmT
ywAn37r5hzekNGt07XKo3ltbjPkdat4XkPYVgH/DhzzpxbzKr7+YV3n+5g8O
vPzxGZ557o+M3Klp9OCjPGVL7U9gg1vBp+wDKLfpd4h5z0vs5dz8YPsl9Mvo
l5AHveeGPNDP4J8cbn7W9yvN+sUfy3twZr7kHLSimV/Zf/Q1eGi97YX8bOdL
4lS938zsV+V5+gfuutBzwtfcdcR9EP8X5nfETN5kvvT5eIb5/Re5F3HXzSdc
EvMS7OYr/hrzWNrNh2zmRfBJk1/Mz/ya+V0mscv+IL+xBwDn3qbfuqiX5SZO
g1vBD4NnGDyjeljsnd38I+fxfMPk7Tjq16x3bNYFymJdEF7y6MrDEVs+/GIv
tz3We9LG6CS919p/VLFv81WdofdF5Vy0gsHPph8TM6uM0d+5Yb+Ez9469OtZ
7tBlbaH2n3v2L6XeuN+gzZKTsg/mKQY/ovf9DQ473CnS8JUmyVR63S/75l9J
4bQjL/0eUz9K7FwS9lTH/tzvWIof4fO4uM2be92Zr+MSPrc8jHGxGZfmt2Fm
5uXx9+Lo8oK/881rGCXjZTNebV/p9tQ69VfE09ZfRvpP+t4zb/DD8KPtsznz
QjIv0t74sfGIH+ufrP/1aXdDqqxL4MgaIT3vvnmSJ/dKG1e6eBoFzSg1NjYt
nvpWKtdt/YoYTm7ev2nV0h79UXB19upTq8VxuxXt8u6J8/xu2o6JA1My0uNt
3kjyZvJDJj8cO9s3j+/9aHpl1f5sCxbHkumXpV+Zd+CBgAf1I+M67YyLTJxs
4iQTJ88t1nFW0Z2p9ChsU+KA0ESdL4NniV/Hs8Hpl6Lc+WTkk5FPgn+Gf7bz
iDww8sAmP2KXcenfYVy0fWKPa61jEjn3llXt4yckcCZ4GPnU9sgnmfFKPBYP
Er/G8+u1BrP7vLmDzu70ztm3YDJXSVvff2SkZ9397urFu38vj3m6n0ldGrHU
cx5W+WrsnsGrPDjMcPww/Kjd+LfjIhmX+PVy14vNs9YL/JDJj50vwb+dF8Gn
jFfnH+NljFftGK/Nm4yXTfzCw7Ta7UfyxinueZS6sHgQnJOJkzXO/dsSFn1y
gbqs6rX09vI4/vJi+b7lPz9v7ST2zBFra5y4ks6nA3d+F/1yDK8vf+HlErs9
eq1PtmsNxgw5w/1+O3By5V/xZHhb6pR3927z94TTnucWEVeKTB/kl8jlk69+
WPmU53fgam7pcnx56QSJh02ctl+Sfs38Ck6sfxL/Jh6SeMR/TP3QYbvSE2j0
5QD/zu94zskXvdXq+qVRifTR9dfeW1nvOBn8Uxb4FzwQ+iXTLyFOMnFSse5T
m3VPv8Cf4pz54baAf47+HSZ2MnabN5lHmnLo+pN8Kz3ra8W7w29WTfDcA1rg
jIu7O+PiYWN3Pfm53iZt32jt/fxvPOVf0y9Jv9JuPvx0Q36AHwJ+CPjx7Ivc
86h2k3/bXvDGJj8Sj80zZ5FnwRvt/PTVt/M/SVb+lziD9u7M7DjKs5+cfePM
wCDvJF7k2NXPHMdO3esVT6ycLY2b5hw6YeYnUcpXQe724of6OHn2rOdOnmW+
1F7BmS9r50qwD3P7kfmiRe74JU7GeNmMl4xd692MS9cX2MmMl41d+dbkmQ0e
2OvqxTNn856kkUt31Br1dYLeo3it99/LjkaGkTyv6ePGp+RN/SxqFj6g4eYT
dLRhAd9jlRMt/iWfel8F/vU5r7RDPIx41A7/DP+2X7GTGRebcVFB97j0/m1B
dzxk4qEs4pHx8v8AzyCWQw==
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]],
           EdgeForm[None], Specularity[
GrayLevel[0.2], 30], 
TagBox[Polygon3DBox[CompressedData["
1:eJxNnHXcV1XSwM+9dxWxCxsDAxNrxcBCMVDsRkVXBLsVxUbsbrFBsbtjXVHR
tQtrFQs71nXt9VV33/k+872f5/ljfjNnzrnnnntizpyZOb+Fdjtgy/3rUson
3UppAq8SP3MHjA96x4BDqlK2LpneJmCWyJs18HIBK5akwStZlnzKz27eagHr
BqwV0N96xgXcG2W3CLxZwJYln+HZbXwP5a4NeLxK+v4qafAOAYOC1zPKb2Ie
ZbYOvHrgfgHHB1xjPZQ9JeAg2ih/XOl8Zrzt6WF7L7Vu2kf91wf9p8h/Izrq
iJJ4hsDfUbbJ9HelM5+8kSXpb+vk9ykJowNOkAYv7XOUe67OfPJ4Xx/zoD+O
93wS8GzAvHXiBeoE6AUDn2/+cebNV3eW3dcym9eddQDHBP1VQO94x1IBSwYs
E3BayTR5XwZsFWX/HOmVAvoGrBnwXpRZtcr8pwNGBpxfMm/dgHeDHmC59QJf
Fnj9KtvyrN9DvV/6LO1Z0jbuFOV2DhgSsEvAPfHsroF/D/gp4H8BnwTv7ij7
sXPvgID9hLvlfRZ4/iizbdR/WKQ3Dbi9ZBr+TQGfl6xvu+CNDjwh0sdUmQeP
sqfTJwGP+c7PrOPM4L0c9Fm+izza9bH0FMuNaDJ9ZZTbnndVne/ezrwxwfsw
0mPtX/p2ivXMHXBnpG/kuYAtWT8BN1OmymffD7iLb6e/qpzT21Q5x/n2B/x+
3jHG56hzA9fm3+hX+ivgBfqB73XdseZ2DHgiYGLAkz57ZZTdMOCZoA8PGFEl
fVXwbi3ZPmjau0vgIQHDS/YzffyK+NHgzWyd1EebJtnnp/u91HNL4H8EvO33
rh59t1+TeZczLsH7vMpy8EY4r89kvQb+S0n+ENs8wnLMqf8472+1zM0CNM89
E9A4ThszRkEv2mSfb6bM4PkzXTvwtpBP2bXrHBueGWQdC9W5PgY4dpSlzPLB
Xzzo1XzHmj67YZXPLm96kciby/ooB3/1gJUDVq3zubV896FR5hfkcZ31UHag
z1EX9axQJ381MXm0o7/vo56dA54M2CVg94C/BAytc/3t6fpb2XasJkBT98/x
/h8Cz1mnrO4beI3ADwXsV3IeILspR/6xkX9G1DdrwNSRnsZnAGieHRD0+tY9
q3ixOt8DTR7fPMD0qPieHkE/0eS6Zf2eY/keto1y9Ne68p/wGWCUMvbooJ8K
fEzg00k3mUZu0+ZjlfsHuf8cLN3uBfBmr7JsH2nwd/HcBz5L3aQfDTg70o8F
rn1P+37yKXesuKP+OuUtcpd+6mZf/bVJ+fZw4LMDpopy0wb8GrwrIz056CNN
/1l8TMBxJcd5MLLZ/l7PvlnUMpTdO2DxgCVMg8k/MtpxIPMFOR34pzrTvwY8
7Pj/5DNXNIlpC/RRQS9tW2q/+6iAmdmXAxaussyvXer4P7/nyMDL1Zk/tTS8
QwJfHfn3BowJeuEmZcqHgd+T/7/gv1pnWdbzvwK+Vn5+oFxGhn9RUo5/6HPU
u3NJWTnYdzE3Dgt8g5j0UoEfYW763ClNlv20yXJHC581yfvM9B2Wo56DresC
+UcG/Cve+U1JmvFnz/2I9Rrpzerkw6Pc75GeF7kT8EfQCwZeIGBGy1HPTYGf
D3i5Sf7M5jHHqJ/8cUFfUifdR7ys+HV0JHSDKPtWwMU+84L1UtcRAbNY/mbz
2ud59ia/hfe8bpr2DGdNBn/uKunD6/yOFc2D5huPqDPNnD898JlNfudqlpmr
ymeH2x+/S/PcHNY9l5h3UX/T5f3DLYc+d0LAwgELBvQKKME/DvmoDsJ66Oma
YU+Gv23gywNf5reNrvMZyo8W32Te53WWhUaX+cJ+An8uTXnyDrN+3oPuNlfk
PxfpRQJ3j/RUAb2CPol1VKdeQnn0lOur1InRh5H1zJ2nA/qxLwWc3GT5bX3m
tDrX4qJVjtFrdY7dYo5x74C9A/ZR9lzpc0s0OR6My6l17t9jAw+sc14w35gb
lKP8gQEPMYbOQ+BGeadK39Kk3kDeJOczc/nbkrrlKebRtp2lqXdJ27OTvDaP
8tRzo++j7sp3FdfVRNcZ+ix68+eWe6xkuaeqnAvDmuQVn2ddf+EaRydG1/+o
UcYHvF8nfKe8v8a5dFKduiAyBFnyQ1S5CXKgyv2rd517aLsvkl6lTjnYV0wa
mUh7j7HNu9apj++mLPpCeQQPPf/agH+XnB8bNin33m9Sbm7T5LgxfhcGXKSM
+MRvQveHN07+1T77of16ofzTle/MpyPMYx6wXtFHWLOvMseanJPwlpI/XP0O
3XWI+ttj7hF8K3vJMgEruadcUKdMmt/3nBXpkwPejLyPnKP0O3sP+87fmpSl
g5lzTa6pexyTSSWfY19kf0RvuLvJMadvVqyyDGVvr3M/ua1O/Y/z0mx16oSk
oe/yuTedC28G78WAt4Iey1yQz35A3rRNnnu6NylbN21STqKvobeRx/p/0Oen
D5jBZ9DpN7XMS03uSw+Y94T5M5punxnsPtc30ivY/+jn6OZjhIvlIbOQTzfG
M9c1KVfQa9ZvstwGgfcPOLhR/25yPrMXHNbkGMKfhr5SdoFJc0Z81XF5pEk+
Mo4yr0u/axn0n9fEWwd/UpPQ8har8izRW0yac8XWrI0meehR6C3oL6R3arI8
uuElTeqHjM3xTe7ryEbkInLvTDHpU92TzrQMNDzGFJ3yvCblPzL9hMB71Lku
R7oejwo4hzJNrsfxgfesU8fai3UdcFqT82VPnz9AzPMHmIZ+xjT4J5/v0Omk
DzC9j3hfxjXK3hNwLu1j7dgm8vdjX4k27W/5gwIf3qTeNMIxZTwPdtyhOcv9
xT6mr3drst9J9w+8dpNnxDUDr+EzqzZpt8KO09c5uFKTezQ083I56T5Nnpk4
y/QKfDLfoc54iPN7poAP69Sj0cP/4Xi85RpjraEXviSf9fh8nbYabDgnW990
Ud+ljh260bnuV2fXKWOg2cNOkUbmoHsfan8dr0w5ru7UrdGnkVutbr6MGJmG
7QQbyuJ1nn+Q+4si5wN+q3JuT+Uc+1PgmaT/W2Xdv7Z9Eenvq1wbvB8Z9Z26
77+k74i8O5VfE6PMl+bfaPl764T76uS9qRxEnj0g7/469+szmkw/WOceDv3X
wA/b128gs6rUUY5VdrW68hwBEwJejvzXAs6N9r8UeJWAF6vMR0bfY7m/Weff
67RbPiPGnjlzSRo8Q5e8Z+s8Cxxim/5aZf8+XOX6Ptb2PKKu9qD6IPOJM9PU
ysrh0uCpAu9YZz550INNd7f8NE2epzlXk96ryjQ0snwvaeQr8hPbxO3sJ1WO
+0ZNylTyaOsNVc6ph6qUJdc5J15VZgIXKgMvNM1eh43lWmRLlXJuxyZthNBL
Vyn3dpJH+tUqx+CSKnmU/zHwNvHO96q04wHvKbevcKyu9pnLqhyfXSyD3L6o
ynG4sMr1w3o5I/AFVY49/Ldcj6+wPlzvrPs93TsOEiN3oDesM03+WgEHKle2
D/4/ow+2DTxnpOdg7TsPaMcz4kul0a0Y+97iB6V7Oxfo73OUr8jZq+h/1k2d
snRv1zD8583bTx4yF/m5bysTIu//gj4OWVWljPnVtXuSvIMD3qmyDLLkIJ9l
Xd5ap77Bul6+Sn0EmjVNGp3kji7ruuuavtM1zTqe2HSu06MZE8uzzh83/27T
lEMOsN4fdH0jA86wDOk5XF+nWOchrlW+5T98Q5Xr/iHLzmFZeI+bfsI1Dg0P
/emd0pkH3dHn9g91PmF58t5R/0IPe0reitITTa/pPDm2yvQIyzBfn1JeDHcd
YxuD5pzIev82nlkr4KuAbq7xVjaQZr1Pb3q6wIMCNnb9gjeSXsX1Nda1Ntb0
/ZH/TeApTcpKzmmc0ZhT2Oz7yTtJHrISez11oDegi8F7TEz6xCZ1C+r9xnfA
+8K1uY17CPazuu7Ub0hvGnVcVuceCL2dacZoeJTZP+CHgNWr7JsdIv+KOstQ
dgfLX826D3qU+wNz6P6S/iL26j7x7MpVYvbvGeXN5Lreo8oxA5NGh8DGN8b9
EbqHaWQnMvTEOmXlbdLwOG9BbxX04Cq/gfX1lroNmPQbJffxN0wjb9BxaucJ
MuMSZcelyrzFlB2tLFnMfWYW5wPfsl4XXek19R7kE7oH8vmcKmnw92Lm6Y91
Zxoa3s910v+tU56MqhKelcc5gm/cJGADZRlyDN0DnePpKu2G3R1zMPsGNLov
/p1N6vTlgEkPqVP+7eo64T28Dz3rX3X6wKC/qTNNG6bz+zm/gDmf4KvZvkm/
CXZ79hb2GNYB83ldcbs+0GOYp9vVOc+gtxZ+cO5xBvzFeYtvAr8E38Ja+7Pr
p6/yGR7+EfYO9pBrqtQ10TNnifcOZQ4GXiDwMOcxsGCTvLVc3/2rtPcPs+y8
rKOg5ws8T8BtJXlPl9QXzxSeLcl7ruTausT1Bf2c77qyzrV0XcD4gD1Lwg3y
Xii5F9xinQ+5pl4pWf+ZXdLQPdwD2QvXCRgArlIO9FcWoGusUeV5jj0Y/bgq
qTO/aj+hS6+CrA28QpVnmeUCr1Zl/6+hPPjBNc0z6F7jxKSpC1m4rM+hc7M2
xkt/a5qyPIf8BRgjeJTbT70GnRl9+e/BGxT4gnhuY9f+ca7BDj1Pev4qz1G9
qpRHyKUTzKM8+h/t+tm2jXY9k79lnf7O9+OZmapcB/Mh99gjqtQ72OfZ7yeX
xAdJT+4iY5At6P/PVkmDkQd8w6NVrjlgSb+LsxFlnhbw78PjXIJsHeU8QA+4
OfDUVeolf5Ss91nr6Ba4G/1Vpewhr+PcVWV/76eMQj5BT1/lnrCs4zK+6pRV
z5vmu2cIuq7ym2jfs9IrmZ5G2dJdWcI4IWN2UJ4Mse18A3rKf6PsrE3Kzv+6
T0xb5Xwn/xZlHDII2UfZ8ZbboUn5sqP09qaBn+Sjy0zHWarkXrBvlTaG30ue
qb4vmUZ+kt/q0xcL+F7g7RZ5w5QzAPTe7s/PKWumuPd+EPg/6Cd+01nKKvZa
YivwC3Mu/rHkeY9xog3v2g7oI6o8S42s8t3te1+RN1oebUMfuE6doJd10S70
Gvw/Qx2TaXzX5pG3mfoJ9gZsydiI965S7uIT5Ey+ZskzOvr5n0vywKSXU4b2
tRzndM7oyLaFxF3T24mRq62MbXnIT+Z5O+eRpfDwcT5f0q/Jefu+kudv1hcy
bvaAr1xv0N1Lnts5c5xfJw1vppK2SnhPlbRpXiiQ95Qym/p5z0WWe14YV3fa
QZHZl4hJP69sRkbfJn5JGv0c/HfT8KHZd26vO+k76k5dnjS6+4zirunpBPT6
Vr8nzRxfqqTO3urupNHbWffoHW84RrR3LvUu7IKrK7tnlAamd9+bXt4MXdLs
he+6h2zinN3EefuUY8U70JU5a3RzT/ybfQwf/ZozCECZqZX546pO/lTy2Jew
2TDHAPYoeI/wfSX1y/fq3KPYq6AnlrTB32f6Lvc1nqcu7EQPlrQbTakTk6bc
nc6xTwP6Bv1lnbrLDSXlNRi5Bv3POvMpB6xckodOBF2X3M/xAZxekv9P86DJ
R3cCkMXshdeX1F0vKelDeN/vGSP/dtcIeh3rhDPRUVWeoS4uqf912Arq5JHH
GY0+xR4yTtw1zV59Ucn95aTAG9W5r57ot7LPDqo7dUS+nX14C2RNSXi1JG9L
eeRxJmf/bPdR0pzV2QMa91J0Cuyb/aoE6D0F7JhLVHnmBu9lu9hPaA978Ej3
lrbf0UlPLekz4VvYN7APcS4F2EPgjXffQUZT/qrgH1BSp6Nf6V9k0CDLAnMr
qyhzWEndb5BydDNlIjbLFUraNxYLvGRJPYr0ko4jY8hZBn/FJ5V+MtYHcqxO
vyv+1zer9D+cUdJPgf36tzplObZ+zndTBHwA8M6rUz9mv0FnRqZPss34U2g3
PphJynv2EHx8+HCIJ8N3zr6Lr2rdkv4q9tF9Ss4H4i/OdT/jLI4/ZTYBmjgo
8s/zG9ZrUsdEV0SGfKuMYc/i3PqONJizK3J9jqYzFpA+7uk4oF+Txh68gHsJ
bdujZPvQmaF3NG8hy+5eso69Sp4psQuw/+5hf/MsZchnDmC/3rlJOxn7FDo/
OvoLrJPgvRx4J99HGfiTzMOniG+RmIIf1UOIMyIe6XL7Blsgfc8+u6dp6BdL
+hnwoy1SJQ0PGwdxR+cFbF/y3Tvbf8SZnC+cbRlit/CrDRWgdytpq9+c9ddk
rBOxnBsFrFNyrPuX3Gd2p6+aHLu1qzw7DK3Sps95Avkwu+sQYE3CQ1ejfvZA
+JTpoWwbUPI8jAzYqu70iWyvnMCnCR+bOHIIfZc1iY7L+uAs9NeSe9qqJdf5
l677T5XDfVzrv7jWsfFDw5tNfYF5xRqe1zl1SJN+5I+rtC2urCy/ts4Ys+sD
fx3w7zp1Kfy1+MTmLhm3+VHJ2E3oT0um56wy1mOeKgGa+I9lS+qh1D/C/A5f
bZ02NJ5j316+5DfBIw+/6zz2DfVD4/8lzZ7Xu6R9lfcTN9pT2YPM+ZMyiPTZ
5lEG3+4txXjVOvUM9BF8OOhE+GjZz4kP2SjKbBAwtmTMzl11xtBeHfB60Ncx
R+uM4yEubP+ScUVD7TP67lbfw5h8Vue8JGbxvipjh3geTJr6365zfhIb+brP
8+z1jssfVcZwjLTfoI+wv4gNIf6DPh4hTV+vWGecHLFt0JeXTNNHyGxkN3Gh
9CP99Jl4fuU3ZSjLuRTdd23HYkrJmM8pphmjQfYZfUfs4CBp+nyU/U6/Yes9
tmTfQcM72n4eax/T14eXjIc+NOCJkjEJj0sTO3JHwE0Bu5Z8B7GQt4pJr++c
Ze5eW3IdbCuM9734+ziDspePKxl7PVaA3rikD482DSxpU0U2IXOIFeOcQuzY
VeYTbzqn7yamrbtzkD7E/0lcQg/nJ3zmMfMfHZY1QIwE621uecu6NjiDLOc+
y3pl3R6kvEBWI8uhwchz+p15TIwS+wB8yrEXIvN7usewt7Q8MPslzxN3gT7B
WQkfLeel2+1v4nhO8n3oEdDIL9Lofuh97OvoVxeaR/wcezh7+cXy0dtOsjz6
4gPKu0cca8aZGBTSD5r/W9BflzzHciYHc67FVoHNYhbXDOuOuHjOf+hRi1sW
XyJ1oLtjzx4u7ibNOiSmj3XZ2mSxRRKr165X0vCRs8TXv95F7sJHDjM3nlTP
YJ/HL4K/Axsm+hjpU6vUZU+sEqCx46NbLVGnLjRGveJy8Rh1DM7b6DzEhBBL
1MbvcNZmX0OXwU+PjoPfHh0HHwr+0a1K7tXcn8AWyN7HHjhYHnn4GLkfwT6C
f5tzHHscPm/S0Oh/6La/SW9umuem9Vl0IOxu2JroB3wbk6XZy/GJopvip+CO
xqfqRG2ZyabxWSNn8f9iH8VHgW0PGv2K9D9ZX/bNP0rqj+iRv8gjjz6Dhtcx
HxmPKn1LxEXjb0KHJA9+68tnfa+jDjVA/XeA6WHKAcYcPYo+ZU8Bk95Q2F0e
84I4hDub9IfhFyO2HP1hTJP3JBhjYn7QnYjj2UU9C9sxsffYjuHhG0W35TvZ
v/nujpjTJuNGiZdfoGTMPGsYGwl2jw+rjCelHL5K4teIfztA3eBA9YMl5WH3
4Tv3Ee8uTT3E6RNPgw6Nnx2d+iPfTduJD2L/I+6KmHPiyLcU3yM9rfNmducf
+iRxO6RXU2aif3fo2eKLpfHv4tdljhPzhsx4QvnxZEkeeiK2ImJ6iLXje9u4
PdLE3TFWxPYxVjM7Lsh29FBintDz8XseaR53ONjrdxSg8ZHTduLt2nilJ01z
R2S/qtPWDyZ9oHXiS33B96MnTJCm3852fbDvMPa0BTs/6xvd+TTnLPHpxzgf
R9p+xoMYIfqJ7xvofGRN4Z/dz7UFzfPMC+KhmD/EYN5bMk4JTCzTVMoS1gvr
Bj2fMxJ6O3oK+j+6CjJkOceV2PJlSu7nB4uJNSfugTMU56q9bQd61N6uddLo
uMStLmwdfaSXsGwbr7qo6XuUEfjw0fHatThA/R7dHh8b+j3ymj3pV/co+P3N
w96D7wBbTx/fTdv7K3taX+lappFtQ5VZk6WRZ9g1sZdi2ySOAH8a/lDOodiW
p6+z7/7kmoXPXjWD8p15zvmYWMk13JfBq7uHbiCND4zzBPYI9GT2EJ5jH+Es
x/niCvdp6Csts5TlOG+w1vG/YEPCDkO8wid16uZ9HGPGGrvuj+6Fb4h/kebM
0cNzB2dWzqM9laHoR3cqV9exrzdXnm7RZAww8glf1pbyicfqKx//MDGdnNHR
pbawDGVfVKYiW99t8pxzY50xbxOajHsjZu3RJuPWiJkkXpI09um13Defsgxl
iZHkWeIkkbGT3CNWdP7DG2U+5e51/hEbgsxD9g1zXJ+x/4gn5XyD3s6ZhLjT
nsqez1yvxLSix3NWIuaVsw96Nndm+tV59t5K2Y68RIZyfkB/fEx5ca7yDzmI
Dj3SPRlZy1wnPpBzC3vCye4L3MdBd0d/hAZzP+cQ9wP6k9j8K0rG54NJc5eD
eN0jU/x2+B6RX0OlwbuVPOO/6PxBR0ZXRtfl/ML3/iFAE+vP+YZY95ECNHcB
0Hf4NnSeZfy+Q1xD97n/cbeMO2Zj/VZiIrlDRuwHMSDEAI8rmU857ltxfuDs
AA0+3L2MPmY/4wy1uuOwgjQ89mDsG8ShM++5k3adeEfpjpjRKu/FAVfLY35z
X4Px5UxFGpq7G5zDekqDuctBHOgk933kLfs+8/DkqvOeDTSYe0ncEeJeFfeL
BkhvVuX5YAPHjvhxnpkkQHO3jft4xM9vJib9gHmPl9TTh1h+J+XUUsqtneSf
4rPE4m/fpS5ozhTUyVkOvYznsO1x1+gUxxTgXfBm9718F3CGvONL1vGzmHS/
LmnuSqEPoh9hgzzUd9IX3ziPvxV/49ye4Dp5VMxaYT9i3Z/m2h+jrLm1yRhW
YmofC1hG3riApZF98m8LWNY5OrDJ2FRsaMQKvWKZQ5uMW0VGrWuf0KfUN7lJ
/fAx38VzY3zX+cq4Cco+5ivzfbB1PWrd2PL+IX2f7VnYum+17ehF9Adl37EM
bWfMlvQdyKCBtn9p28Q3YPu4Sh718J7eAm1gvpznN57rWiQOaxuBdQkPu8cy
9iHyfkP74237baD9iq2KM+o42/+uZfZoUo4is641/x3l6fJN2o+n2L/zW/dL
9sPKyuWrHNf225Ddw303cph3IKu+8H2vmL+07/p7k3cS+A6cH9SLHBtuXU9b
hjsLfMNbvvMrdS90dsYIucZ9A2Q8MfOb+L63bcvyjhHvRE4zz/nu5f1e5Mlk
20EbiFMjNm0u+xW7+gMC/bCh309Z5M6yvuND94Bx9vPSfu+wunP9YBsmjvZu
x5NYbWIL0XNpPzr/OnXeCbvdbwC4HwaP7yOf+znoquyj7CXs1cwd5hD7MnNx
gv3AXjHCvWG4fUzbkZc97Yd5lLPUS/3tvkYdzGnWCX5wYkoPda72dh7yvcwh
5vbXzu9hfiNxgnOVtCuzD9N3nFmJQ2NvI499GX1ltpJnmXVL2qBJY5/CrrK+
+wt9iJ2OPh3qO090jDZ0HtEmdGzW18uuMXz3rPeHnZv0CX0z1rEmDpj+Geb8
W6jk3rlwSXpB99HbHQfW5tFi0sRCY2tgz523pM6Nvo1cOMF5PK9ykvMmusl8
JXlzlDzLzeaeP4/9wnsXKXkPDZ2U+2V3OD82db73U84gb4jdR787x7lZ3BMZ
V+ZmO0cXdj3cbvvvsewyjucw+5X5yx41xPm1mfsS8+tav+kEYaTrlPbuWtLn
sI36BXYjytAX6KGs3a+cK+gR2KPQJbD1YkdCJ6Bv0OG2tS9JH2tZbL+HqztQ
Hv0B/wQ2hNaegA0QHroE5bFDHW3f8rnoxfih1rMM+Ve7Pq9wrpHX2jPWd8/s
5hphfaD/jXKMFrZOdHfODdxvIEbpKseX+TxQGtsteiZxE8RQtHodd6CwOW/s
epnHvqNf6Ev8V8RQ3K1eg6xBluHPJ6ZnvPrAE+oExOkQO8i5A3t3e4e19XNz
ZsGngD8Cmzl+SfzmzGu+6xbHEv/6K/KxRWLH7DgLOSaMEfFrxHsyTw/3W+lP
Yi6Is8COQv8zH/g+fOpnyGd932H/Eqt1ovWje6GDsd7xUWCHx6/C+Q0fy0d+
52nqO+hKv1jXaepXs6pTwScfnYeYUfytcymTkD/41tC/0b1nUx4hh6ar874F
505kwJPKgfldy+jOVZ22U8pgF+MOBnay9ZVd/ZRZzKvLnC+j7Ntt7UPmN7FC
2Ok+sK82dg4MdM7MoUzg/csoX/ZXhvSyXtYdZxZift5wHS3gWprHeTWXdc3m
vOQsRKwlsfgLWw/v4TyOHYVYpgXl9Sqd8ov3cm7APjDBb+gpn//NIC6Au0KN
757Td88tPcIy+BhYD7Pbrh62jTTrI7I7YjXaeCPSrJXpS64X/Af4C/BpcRbn
TI7foK9p/ATLSuMvIA+fITZz4pGI3SEWhjM+vlR8jPhxO3y+JW0C2APwEeAj
xs/LGsDPSSwEfnB8m+Tht8c/gM8AfwG2/tPNx+eOn7GNJ1haHjZ/4hDbeETS
xGwQ84EPgBiBxZyz7V0QMGlo4pyPtxz+1UvExI5c4vtPMo1/kJgWbBjEwxDj
wloEyGNNYj/BP4EtZWKXssTEECtzv5j40vsFfBAPih+w7BR5DwiPyGN8oPFn
fKIsIn2W7+NdE00TJ/Ss7yP+BfqVLumnzSfG5O2Stg5sPG/LIxaMuEtsLsSG
EaMJjzg/fCX4m4m7w9ZN7B1+YeJAiNODT3wcsZRVlTGRxPLzDPEq+FhmkJ6h
yhhL4i95hhhMaGJVuolJE+syi+WBRh7+menNA5PXlutI07Yq5dF8Yp6ZT9jV
fOJkiHMldmahKuO8e8lfQh7Q8mgX/h/ykHPE9XLPbDnxCvKpewWfpew0luln
uX6+q/1PCtJtOyhHXA9ykVhO7qfRn8hNYkyJKVhD2Qd02CCrjCHnPtVg+ZT5
t/Q3lsOuiE8JWyUxTsQ3EdPJ/RPS3FMAjpaH34R7Kdwf4c4S9z64w8S9pStM
A8T6w8P3dIIyEFslfqnn5D9nmjh4fFcXCBfKQ55eZBr5im3zUumLlLeXSrf5
L9qWF6vOdr3o+68WXyU90bZeZbuvNu9l20Gb8N0iX4nF2kAZ067vNUxzNwB5
Q37H/auS/m3kC7IFGYNcolx7R260afYZYky5o0vcN/se40s9gTrq6rgjV9KH
hh0RHal/Sdsrvhz0JmJSsIXtVtLXQGzKEHUodKn2jgR4DfV17u9dI32Nujx+
Is75Y9RJ0TvRi9m3sYvh78DXPNrzwhnq7ujtwDB556hLPyk8I49zRMc5qMq5
doR9AG+w/JvU09s70Deb5uzEvTx8U5zjsWXiE4IGY3sj/oszKvoPdeP3ZI5R
b8e95Sbjo/iG9h72dabbeckcwaeCvW1T8ZPSJzpvmNP8HxfnJHwS+DQ67iLW
aYsFN6Yvlsa/gx8GvwnnDux8Kwvc7Yf3mvMOHy56MGN9k4CdZgnXymvOU+LE
8NfgQ+r4D5cq/WXMF/5XDr0F/xV3EfFh4XvCFzOjdfAe1jT2nJ3VS/AD4Q8a
IbwjD92d/9NpxFNL468lTgn/LfMOTBpfLv4R/LvE9eHHxZ+Lz5Y7DPhtOSMg
l9Z2Tn1QGfNtGh8HvjnuFCDr8HPj427vxh1s+mfL4XtFj6Qs8pG9hH0J/QqZ
Tx77ATow+9wWwuLymHvcCWC9suczj9CniW1G10YXv8Jy6Osda8m1hU5znc+w
56Pvcx5Y0zKUZb/u4z6Oj4OzBWcMzh7E6XEWwU9EXB1jv1WTNltiSZDBxJ4i
h7eUTz7rfYj6Fu/E/sW59DTXNHYf1sERrjnWN7YJbCycKTmHYtvBTsKZlvPs
cz5LHZw5sQ/dKR9bPr6UF13jyAh8hftYZowyhPr5fw9sL1+I35a+z3p5P7ZF
7Efck+J/NLBz3Ssm/b5twqaHPZD/GMHu9LTzhTmyeZU+sc1Nt3OI9DuW5ZlT
utT9oN+Dneog5xP7IfIKexIy62Pb9ZF4sjT/y4ANof2fiReUVTP7XXwf/z3B
Wbf9P5iXLcv/wnD2JX4G/Ib5fB/2Fr6xQ/40xpbWea7mTI2tDh8HflnO//iE
uit7kdELljxfcK5C5nVz3rCH41fnu/g+7F5sMENLjudzjjVj+KTjOLPjCs25
iLK9SspD/BHtPeydTeMvwG6N/Rp/NT5s2od839e5hw2G/8JAnoOxT0HjU0IW
449HruOr6vjviTr3FNrKGZv/H+ohPY9p3oFPDP8xNh3GgTPpxyXPuPwn4adi
0vzHDXaY9v8ISWOj4/9wsNW0/71IGhsdspn/S1pQ6Ke85r+SuOM6TMD+BY//
+ej4X6KSwDd+7jiuqNxnnLFpMq78vxz/LbeOeC3pWZXD9An2Je7h8F9bzOl1
nOOkvzCfmCJ8pciaKe4FHxbtVyXT7JX4Aulj4hvw/xK3wv+K4d/hzA8cJY8x
JP6gvcPPvd6hQoetr06dZbu6MwYXHyXPMfeYd8Q+8Z9p+IfWE2NTgMYWw/ff
4xyh7AT7ZB356EfYqtv/bVrENPOMfY244DaGidgN9mX66g8xfQPNvkw+Pmb8
NNh+Wn3hE9PtfzKOFB8pzX8lYge7RUz6cNcda475yX+xYlNr/y+S9H1i/ody
G6HlbdmlPmALeejo7InsZcSHEJPD/jvG7+Q7aNvMto//M+S/DLGRABvIO89n
iWXmHie2COT2qmLS01nPo35DL9f5Pa7du52DZzsPR5e0cZwgJj2q5H/k8Z9e
x4p7SnOuQC7/pUr/Lf9DdLTAsoaH7xj7zBFi0tgz+P+iXUv+/yTnGGLpOMvs
ah4yCR2H/8zdSrytNLHI/H/txuKNpPlvTf5jcx3xQGn+HxA7U/sfuqTRd4Y7
L7nLRkwk95kRndi3Ov6/rqRNlfhTYgKxpxLPR/wpMafE+2GDxD5KPB+xp+wx
e9gn+4jpI+oYZZ8eZ/+1/+t3tH3XzX7D/vNdlz5jrNgPkLvsZ+0432z/7er3
X2PfXOm30wfMFebMIOcRMbyX25f06bX24RalM769v32JDCYeGDlMzDByGfmM
vCXeF5k7paTcRR6jx2C34kzFPR36so1lB9cCcaj0N3Ec7d6+dsl7R8QLE/uK
3Qr7FXe2sFW3seBTmcaG3Veacti7upvmGeIS0efgE6MNxi7WxmvPZJo7WE/J
I6YWWxl2HvRLzuHYLuFj/8EGDBCD29v6u1t3e4+FMx32NGJwp/Kb+DZsdNg/
OeNz1sfGhr7Y2nlIY3uj3+gr7gHwHLHTPMtdBvRu7G/cHQBvLh/9EHon0+SB
0RnJg4/9Dttcx/7S5B6DHQ8ed0CwyxG/i22O+wnc88Auh/1uH3ncG6UsPO62
YYMgpgm7HvrxWWLS2Puw/21v+ROlqQPbGfG/vI87YtwZ2966qJO4KdIXmI8d
EHsgNkNihnmeMzo2O2x5rQ3xdNPcvbrB92NDxd7KO7Dj3Vk67XzY99DlsaNh
K/tOGjyx5PmGOH/OONhAsYVyX+915/qr0ujppLmzzB3CN+SRhy7PuYh5xHwi
j3MAdrcOm1yd970oR/p9gfgkeMQ4Qbd84mThfS2NvQ37HPa4L0ti7GvQX8kj
DWDfg8d9W55pyxB39aX4Pz4zm/Tstp938U5sg8SYQWPv4u7ytLaB8tgGKc+3
ci4kn3LYxL63vcRd/y6NnfAP20jbeYZnsSW2sdod96jrtDGS19oNsc11nAGt
g/XF+6cVk/7NNccdaP47gzvbnE9be+X0prEnYmts48E5T3KW/NlnavOw1WHr
A7D7wcOWh82Qfmjb1PG9Vb6zvfP/g2nge9uF/ZB3zaZOwLmZd/4/TMbSHw==

"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{71.21875, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\);
edges = ResourceFunction["MeshFeatureEdges"][mesh, "GraphicsComplex"];
In[4]:=
Graphics3D[{EdgeForm[], Glow[
GrayLevel[0.75]], GrayLevel[0.3], mesh, Black, Thick, edges}, Sequence[
 Boxed -> False, Lighting -> "Accent", ImageSize -> 150, ImagePadding -> 10]]
Out[4]=

Scope (13) 

Input Regions (3) 

MeshFeatureEdges works with MeshRegion, BoundaryMeshRegion, and other linear regions:

In[5]:=
ResourceFunction["MeshFeatureEdges"] /@ {MeshRegion[
Sequence[{{0., 0., -0.9510565162951536}, {0., 0., 0.9510565162951536}, {-0.85065080835204, 0., -0.42532540417601994`}, {0.85065080835204, 0., 0.42532540417601994`}, {
    0.6881909602355868, -0.5, -0.42532540417601994`}, {
    0.6881909602355868, 0.5, -0.42532540417601994`}, {-0.6881909602355868, -0.5, 0.42532540417601994`}, {-0.6881909602355868, 0.5, 0.42532540417601994`}, {-0.2628655560595668, -0.8090169943749475, -0.42532540417601994`}, {-0.2628655560595668, 0.8090169943749475, -0.42532540417601994`}, {
    0.2628655560595668, -0.8090169943749475, 0.42532540417601994`}, {
    0.2628655560595668, 0.8090169943749475, 0.42532540417601994`}}, 
Polygon[{{2, 12, 8}, {2, 8, 7}, {2, 7, 11}, {2, 11, 4}, {2, 4, 12}, {
     5, 9, 1}, {6, 5, 1}, {10, 6, 1}, {3, 10, 1}, {9, 3, 1}, {12, 10, 8}, {8, 3, 7}, {7, 9, 11}, {11, 5, 4}, {4, 6, 12}, {5, 11, 9}, {
     6, 4, 5}, {10, 12, 6}, {3, 8, 10}, {9, 7, 3}}]]], BoundaryMeshRegion[
Sequence[{{0., 0., -0.9510565162951536}, {0., 0., 0.9510565162951536}, {-0.85065080835204, 0., -0.42532540417601994`}, {0.85065080835204, 0., 0.42532540417601994`}, {
    0.6881909602355868, -0.5, -0.42532540417601994`}, {
    0.6881909602355868, 0.5, -0.42532540417601994`}, {-0.6881909602355868, -0.5, 0.42532540417601994`}, {-0.6881909602355868, 0.5, 0.42532540417601994`}, {-0.2628655560595668, -0.8090169943749475, -0.42532540417601994`}, {-0.2628655560595668, 0.8090169943749475, -0.42532540417601994`}, {
    0.2628655560595668, -0.8090169943749475, 0.42532540417601994`}, {
    0.2628655560595668, 0.8090169943749475, 0.42532540417601994`}}, 
Polygon[{{2, 12, 8}, {2, 8, 7}, {2, 7, 11}, {2, 11, 4}, {2, 4, 12}, {
     5, 9, 1}, {6, 5, 1}, {10, 6, 1}, {3, 10, 1}, {9, 3, 1}, {12, 10, 8}, {8, 3, 7}, {7, 9, 11}, {11, 5, 4}, {4, 6, 12}, {5, 11, 9}, {
     6, 4, 5}, {10, 12, 6}, {3, 8, 10}, {9, 7, 3}}]]], Icosahedron[]}
Out[5]=

MeshFeatureEdges works with open and closed regions:

In[6]:=
ResourceFunction["MeshFeatureEdges"] /@ {\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[{{-0.5, 0.5, -0.5}, {0.5, 0.5, -0.5}, {
         0.5, -0.5, -0.5}, {-0.5, -0.5, -0.5}, {-0.5, 0.5, 0.5}, {0.5,
          0.5, 0.5}, {-0.5, -0.5, 0.5}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{1, 2, 3, 4}, {5, 6, 2, 1}, {7, 5, 1, 4}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{46.33984374999997, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), \!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[{{-0.5, 0.5, -0.5}, {0.5, 0.5, -0.5}, {
         0.5, -0.5, -0.5}, {-0.5, -0.5, -0.5}, {-0.5, 0.5, 0.5}, {0.5,
          0.5, 0.5}, {0.5, -0.5, 0.5}, {-0.5, -0.5, 0.5}}, {
Polygon[{{1, 2, 3, 4}, {5, 6, 2, 1}, {6, 7, 3, 2}, {7, 8, 4, 3}, {8, 5, 1, 4}, {8, 7, 6, 5}}]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 6023734239485215827}]]}, 
TagBox[GraphicsComplex3DBox[{{-0.5, 0.5, -0.5}, {0.5, 0.5, -0.5}, {
         0.5, -0.5, -0.5}, {-0.5, -0.5, -0.5}, {-0.5, 0.5, 0.5}, {0.5,
          0.5, 0.5}, {0.5, -0.5, 0.5}, {-0.5, -0.5, 0.5}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{1, 2, 3, 4}, {5, 6, 2, 1}, {6, 7, 3, 2}, {7, 8, 4, 3}, {8, 5, 1, 4}, {8, 7, 6, 5}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{44.34765625, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\)}
Out[6]=

MeshFeatureEdges works on meshes with multiple dimensional components:

In[7]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
MeshRegion[CompressedData["
1:eJxTTMoPSmViYGCQAGJmBhh4sB9K2+Pg4xLfTyKNbh4hmpB9UPEnUP4TXHxC
6oil0c0jRBOyDyr+Asp/gYtPSB2xNLp5hGhC9tkDAId5ZZ8=
"], {
Polygon[{{1, 2, 3, 4}, {5, 6, 2, 1}, {6, 7, 3, 2}, {7, 8, 4, 3}, {8, 5, 1, 4}, {8, 7, 6, 5}}], 
Line[{{9, 10}, {10, 11}, {11, 12}, {12, 9}, {13, 14}, {14, 10}, {9, 13}, {14, 15}, {15, 11}, {15, 16}, {16, 12}, {16, 13}}], 
Point[{{17}, {18}, {19}, {20}, {21}, {22}, {23}, {24}}]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic,
           "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 2219313985978613764}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGCQAGJmBhh4sB9K2+Pg4xLfTyKNbh4hmpB9UPEnUP4TXHxC
6oil0c0jRBOyDyr+Asp/gYtPSB2xNLp5hGhC9tkDAId5ZZ8=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[{{1, 2, 3, 4}, {5, 6, 2, 1}, {6, 7, 3, 2}, {7, 8, 4, 3}, {8, 5, 1, 4}, {8, 7, 6, 5}}],
Annotation[#, "Geometry"]& ], 
TagBox[Line3DBox[{{9, 10}, {10, 11}, {11, 12}, {12, 9}, {13, 14}, {14,
            10}, {9, 13}, {14, 15}, {15, 11}, {15, 16}, {16, 12}, {16,
            13}}],
Annotation[#, "Geometry"]& ], 
TagBox[Point3DBox[{17, 18, 19, 20, 21, 22, 23, 24}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{58.515625, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\)]
Out[7]=

Criteria (3) 

Specify the dihedral angle threshold used to identify feature edges:

In[8]:=
Table[ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], {
Polygon[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 477854254449352176}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{44.630033819577235`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), \[Theta]], {\[Theta], {1 °, 30 °, 180 °}}]
Out[8]=

A negative angle threshold will identify all edges as feature edges:

In[9]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], {
Polygon[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 477854254449352176}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{44.630033819577235`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), -Infinity]
Out[9]=

An angle threshold of Infinity results in no manifold edges being classified as feature edges:

In[10]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], {
Polygon[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 477854254449352176}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{44.630033819577235`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), Infinity]
Out[10]=

Non-manifold edges are not affected by the angle threshold:

In[11]:=
ResourceFunction["MeshFeatureEdges"][#, Infinity] & /@ {\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[{{0., 0., 0.}, {0., 0., 1.25}, {
         0.9396926207859084, 0.3420201433256687, 0.}, {-0.766044443118978, 0.6427876096865395, 0.}, {-0.1736481776669303, -0.984807753012208, 0.}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {1, 2, 5}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{53.125000000000114`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}},
Method->{"ShrinkWrap" -> True}]\), \!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAmJmBhj4YM+AFTywX+UT8aJq22s0+Qf7sYt/2I/DHJh6
NHm4+Rji2M25AFV/G03+wn7s4g9wuAeuHk0ebj6GPuzuhIuj2fsCh/kvcLjz
BQ57X2D4FwBMBlqR
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{15, 5, 11}, {13, 6, 12}, {15, 11, 10}, {9, 3, 16}, {8, 2, 14}, {9, 8, 14}, {10, 16, 4}, {9, 16, 10}, {
            12, 17, 7}, {6, 17, 12}, {12, 11, 13}, {7, 17, 1}, {11, 5,
             13}, {18, 8, 7}, {8, 18, 2}, {14, 3, 9}, {10, 4, 15}, {7,
             1, 18}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{66.23046875, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\)}
Out[11]=

Forms (7) 

By default, MeshFeatureEdges returns a mesh with the feature edges highlighted:

In[12]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
      Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic,
           "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\)]
Out[12]=

Use "Region" to get a mesh consisting only of the feature edges:

In[13]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
      Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic,
           "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "Region"]
Out[13]=

Use "GraphicsComplex" to get a GraphicsComplex for efficiently rendering all the feature edges:

In[14]:=
gc = ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
        Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
           0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "GraphicsComplex"];

Apply custom styling:

In[15]:=
Graphics3D[{StandardYellow, Thick, gc}, Boxed -> False]
Out[15]=

Use "Primitives" to get the a list of Line primitives for the feature edges:

In[16]:=
lines = ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
        Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
           0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "Primitives"];
In[17]:=
Graphics3D[{Thick, Table[{RandomColor[], line}, {line, lines}]}, Boxed -> False]
Out[17]=

Use "Indices" to get the indices of the feature edge cells:

In[18]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "Indices"] // Short
Out[18]=

Use "Cells" to get the feature edge cells with indexed coordinates:

In[19]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "Cells"] // Short
Out[19]=

Use a list of multiple forms to avoid repeated computation:

In[20]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
      Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic,
           "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx9Vj1oVEEQXhJEEfREQavIKTYqFhJRBGFf8IeLXrw7i6QSnhfUJiLRi6gI
pkkbg0EkaHGlRbRJK86JiCBilTQi5DobbcQQS9+be7v3zbDrQHjcl4/Z2Zlv
ZvZA8/aV6wPGmMfZ36Dp2esnl2326X7f3+LvWDO1CifAy/uu1vNve/jgdmvA
Mj4F+J3WYiX/JtuWH2mcIrjj2wgf8fbq/WvM35y7g3h5/s80x7e0MqlxKnBx
7ofGw/x3+/zCTcTTr6c4vnTw/QTi5letxn6PNoZFnJv13v3Xl8/ZiB8Rz4/j
nOfOt9ZpzCfGo+vi8hw7V9QL7ov82Z2fqpy3jxMW8eTnxiXO69DeEYyn+3Tt
Fv//5a4p9I/5R3x2afwun78xOSPymbyd4njvmQeaTwXfKj4VfF13CtQdz0W8
W9nCuuqujF7Q/m3AP+pH68QGdJLn3wbyn9fdBvSTvCv16nLy1Q1R3y/ls+x/
64uLOv9U5F/cC+oSyw8pvvMj8LFmwnFSWo3lP1av2H2FPiFvWrcub0KHkB/C
vmisn+DzP5dq9j94aI4JvpoziFMA133n+apPnel+d6b7EeuLdXSW7Hi+h/O5
OF7XflCfGA/qE+NBHeK5qAdnur9CfB0nQZyx/nWm+93Hr+Yn4jaAa72F8hDz
QwqnEJ7pKv8d0hvisf2CcTo96Ho5/SCu55j3o+aVM70HneV9zecWfR3iaz04
HYr41dwOxYl4Psf4XsUci80N9I9zBuPEOeZNvTec6XcF4jaA53uB/RR7Af27
uYF8/a7wOLyLcB7iO0H4gb0v5irsZeTjXkY+7jXNJ9Pf4+ifTH/ve4O9I/zD
XojNYeQnC0eO8b1Gf9f0fcn03zmeX6mWmd8ZqZPCCXBvWT7J9N9d/r7ZuQTn
+v0CfSrqDn0h6gW6Ffk8VOI40jd/D2P8qB8RP+Rf9AvkH/mYn9h9BT/TG/sv
9Ab3YrzzbPfAGcf/B53A4XI=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
         0.465719011680535, 0.7656186418234469, 0.8836254737685788]], TagBox[Polygon3DBox[CompressedData["
1:eJwNw4dbMXEAAOCsKBLlOJKdcYgjwhlZXXIhWRFyP3vvPf7z7/l6n+dVkqM0
ST07O/v3l/ZXHXh5UL+o/IE6l6ZWBfJ+FZxXSb7zsCR/V/imcfmSu29xrnAn
LpA5MZUUM35JrpDPF4qoDPK8+ss4/6VXqkKF6JxeLVfoSJlu/imLFDrEXH4s
/Zgff4zBksKkezSWbEEj22ZM2ticzySbk7xKfXKuPgVE6kqQ0pnsOCG4xgWm
JzvPg1/zcAhz30Bu5VfmQpnRYtBTxG6P+MKYVh/WZhyUiwxFnv5Syr+s7+DS
Cm7cHt6NB3gNl8AQSfh8iQ9ZKHovi1IcTibFyXQ+s5jPrGfXRyJ7y3IZvOlE
MSs3pF0h2a1Ldh99ld6/Sl/Demn44SWueYjH39BssaaJo+hbzILGLLH3Yrdm
tbz3h7CqDTfbqlq3h5xkekQm1ct2B6Q77vXGM/GSPocnwwnc7sP1pgpZbsbr
mex0ixxOmx2yROjjLmV9ms1OR+aYwjZC1wIIni+pYjqDSj8djucM+nrMZK2Z
rNP69sTqFpXHw/6iq6R0L6yXCQEb4rAFVxzBYbff77a8a+iGByGQUQshu81W
yEUVQhQ1KdAn03azQusabh3V1FVieLlZriSw+E4ilt1L5cqiQV68NCSKCUPk
CdWo1A8a9Wq50GsRSwRdzhdmxPhoNlojlkTEuphPgcjLFwHQarjtPszu9tqx
+WSqs3srHUDjg0p5UOvh2Ro+nYzwjyxx3E9tyaBtChq0TgtMhqPKoONyYE6H
69npGg0HxGI6GgSH/YEjg7mwkMeHrxYEsV3ttwR+JGZHfDoKEtPkoN8R6bzB
QbkULGPhUL/d8bh9vg/ci2XS3kyn3fLnQdwPAv74SyDebrZazcZbHERD4ddo
uDfDY2/gPQaa9UaOBPkcSBHJz1Qy85Uu5PKNOu27kC//lMgKqFbI3yr5H5RX
wtc=
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), {Automatic, "Region"}]
Out[20]=

Options (3) 

IncludeIsolatedEdges (1) 

Whether to include edges with no adjacent faces:

In[21]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
MeshRegion[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBhj4sB9K26PyH8Boexx8NHG4fnRz0PXjsI8Qja7/
Abo6NPtxuhcHjeF+HP7EUE/IPzj8/8AeAFhPRQ8=
"], {
Polygon[{{2, 3, 5, 8}, {10, 11, 3, 2}, {11, 13, 5, 3}, {13, 16, 8, 5}, {16, 10, 2, 8}, {16, 13, 11, 10}}], 
Line[{{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11, 12}, {13, 14}, {
            15, 16}}]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 8133061119590140587}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBhj4sB9K26PyH8Boexx8NHG4fnRz0PXjsI8Qja7/
Abo6NPtxuhcHjeF+HP7EUE/IPzj8/8AeAFhPRQ8=
"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
           0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{2, 3, 5, 8}, {10, 11, 3, 2}, {11, 13, 5, 3}, {
             13, 16, 8, 5}, {16, 10, 2, 8}, {16, 13, 11, 10}}],
Annotation[#, "Geometry"]& ], 
TagBox[Line3DBox[{{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11, 12}, {
             13, 14}, {15, 16}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), Infinity, "IncludeIsolatedEdges" -> #] & /@ {True, False}
Out[21]=

IncludeBoundaryEdges (1) 

Whether to include edges with a single adjacent face:

In[22]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
        Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[{{-0.5, 0.5, -0.5}, {0.5, 0.5, -0.5}, {
          0.5, -0.5, -0.5}, {-0.5, -0.5, -0.5}, {-0.5, 0.5, 0.5}, {
          0.5, 0.5, 0.5}, {-0.5, -0.5, 0.5}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
           0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{1, 2, 3, 4}, {5, 6, 2, 1}, {7, 5, 1, 4}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{49.12890625, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\), "IncludeBoundaryEdges" -> #] & /@ {True, False}
Out[22]=

IncludeSingularEdges (1) 

Whether to include edges with more than two adjacent faces:

In[23]:=
ResourceFunction["MeshFeatureEdges"][\!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
        Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic, "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[{{0., 0., 0.}, {0., 0., 1.25}, {
          0.9396926207859084, 0.3420201433256687, 0.}, {-0.766044443118978, 0.6427876096865395, 0.}, {-0.1736481776669303, -0.984807753012208, 0.}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
           0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {1, 2, 5}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{53.125000000000114`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}},
Method->{"ShrinkWrap" -> True}]\), Infinity, "IncludeSingularEdges" -> #, "IncludeBoundaryEdges" -> False] & /@ {True, False}
Out[23]=

Applications (3) 

Avoid rendering edges between coplanar polygons:

In[24]:=
mesh = RegionBoundary[ArrayMesh[ConstantArray[1, {4, 4, 4}]]];
fedges = ResourceFunction["MeshFeatureEdges"][mesh, 0, "GraphicsComplex"];
Graphics3D[#, Boxed -> False] & /@ {mesh, {EdgeForm[], mesh, fedges}}
Out[25]=

Only render edges that represent a significant change in the surface direction:

In[26]:=
mesh = ResourceData["Sample 3D Model: Fan Disk"];
fedges = ResourceFunction["MeshFeatureEdges"][mesh, 20 Degree, "GraphicsComplex"];
Graphics3D[{EdgeForm[], mesh, AbsoluteThickness[1.5], fedges}, Sequence[
 Boxed -> False, Method -> {"ShrinkWrap" -> True}, Lighting -> {
AmbientLight[
GrayLevel[0.4]], 
DirectionalLight[
GrayLevel[0.6], 
ImageScaled[{1, 1, 3}]]}]]
Out[27]=

Determine which edges should be drawn as hard when computing custom vertex normals:

In[28]:=
mesh = \!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{Typeset`mesh = HoldComplete[
BoundaryMeshRegion[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], {
Polygon[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]]}, Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> {{0, 0}}, "SeparateBoundaries" -> False, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic, "Hash" -> 477854254449352176}]]}, 
TagBox[GraphicsComplex3DBox[CompressedData["
1:eJx1mT2IXkUUhk8SjaCNwRgFq6SwiD+NVTDwio0WqWwUsZCAijZWgoq/hbIJ
RoIrIhZBRcJuNiwIoiAxdy2UwBp2AgmK0XgQWQcM8hUGNRIV9p65y3fuPrcZ
9tnzzXnPfDvvnTm7c//TDzy22cx2bTLbYu2ZdDb1TLobu/vv+7H+3h3eOvvl
i4dL1/jCvofq85/+1v239vw08NN3v/z4kfdXu29ibHzT2ujdsfhc42/HvNsj
T+Obb/rqjQNPfnJiWtekO9jHa0eKv9Lr0EKaP3TodNITccr6o14dSvXGqCtn
nlm9ePtnexsP3Xo3dDU+F/Nf3dc98FOh50yMjf8d+o/H5xp/M+Ztuhq/9uCR
fXueO9Z0DHwmdO9I8X9EnYtp/q9jXc4mPR/FOl6X9G+LdV9M9fZjHf39nPvg
i4+fPbTa/TXzxIMnn1pfz9teuOXz2f0/d7t3PvzPW99fWP/e18bvulf23Hvn
D6d+Gfj8OzMXZheWum3nHp2f+/DXgR/tuTL/d63eb5Xn2d3n1R0p79lepy4n
nVGX+vV+b/h7jLr0Zx8/rEPUpahr4Fv7uvRSr2fgJ0P/9b3+gb8W9d6Q+MW+
ru71NM+uWM97Ut6VWP+bD0zr7EcffV/9vjgf+3ol7d8S+/f8wK95ZPtdtx59
9cT0fG0/rmghxc/3P2tLzJf0KO/7xYi/FPM1flX/ec3F7xuP72lvmw/0D/x4
6Luc5rcpfevr08+zFPMsp3q7qHc51VU0vU5N/1LoX077tIu6l5Oe/Ey6jX8/
Efi2wLcFvi3wbYFvj76/xsG3Bb4t8G2Bbwt8W0Oead8W+LbAtwW+LfBtgW8L
fFvg2wLfFvi2wLcFvh3jyLcFvi3wbYFvC3xb4NsC3xb4tsC3W13ZtwW+LfBt
gW8LfFvg2wLfFvi2wLdjHPm2wLcFvi3wbYFvC3y76cn7XuDbAt8W+HbWP3Dw
7RhHvi3wbYFvt3mybwt8W+Dbsg2f9fPaNG/7MHMHnt+fozw5HvI66YH3SIV7
gQMvwM0gHvI66YH3WoV7igMvwM0gHvI66YH3bIV7kwMvwM0gHvI66YH3foV7
nAMvwM0gHvI66YFzSIV7pQMvwM0gHvI66YFzUYV7rgMvwM0gHvKOz9lN58bn
tAr3bgdegJtBPOR10gPnxgp9AAdegJtBPOR10gPn2Ap9CQdegJtBPOR10gPn
6gp9EgdegA/+meMhr5MeOOdX6Ns48AJ8eB/leMjrpGd4/0/fO4b3e+IOvABv
zyge8jrpgXtQhb6WAy/AzSAe8jrpgXtZhT6bAy/AzSAe8jrpgXtihb6fAy/A
zSAe8jrpgXtrhT6kAy/AzSAe8jrpgXt0hb6oAy/AzSAe8jrpgXt9hT6tAy/A
zSAe8jrpgT5Dhb6xAy/AzSAe8jrpgb5HhT62Ay/AzSAe8jrpgT5Mhb66Ay/A
zSAe8jrpgb5QhT6/Ay/AzSAe8jrpgT5Vhf87OPAC3AziIa+THv0PUpDVwg==

"], 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[CompressedData["
1:eJxN2HWUVtUawOGhu5GGYUZR5IqIiBcQLt0piIGiCIqBgig3xMKWTkXp7haQ
blAaFaUURCUkRQxC4LLXPN9a+4/jed79ruX8vnPWGmYmpWO31l3TJyUl1br+
nwzX7+muX2F+xRX8Fof7q67gtzncX3MFv8Ph/ror+F0O9zdcwe9xuPdyBb/P
4f6mK/gDDvd/uYJr6s2g7y3uzb31vc19uI++d7gv99X3Lvfjfvre4/7cX9/7
PIAH6PuAB/JAzTW5lt6M+nrzIB6krw8P5sH6+vIQHqKvHw/lofr68zAepm8A
f8gf6hvIH/FHmmtxbb2Z9A3i4Txc32D+mD/WN4Q/4U/0DeURPELfMB7JI/V9
yKN4lL6PeDSP1lyb6+jNrG84j+Ex+j7msTxW3yc8jsfpG8Hjeby+kTyBJ+gb
xRN5or7RPIknaa7DdfVm0TeGJ/NkfWN5Ck/RN46n8lR943kaT9M3gafzdH0T
eQbP0DeJZ/JMzXW5nt6s+ibzLJ6lbwrP5tn6pvIcnqNvGs/lufqm8zyep28G
z+f5+mbyAl6guR7X15tN3yz+lD/VN5sX8kJ9c3gRL9I3lxfzYn3z+DP+TN98
XsJL9C3gpbxUc31uoDe7vk95GS/Tt5CX83J9i3gFr9C3mFfySn2f8SpepW8J
r+bV+pbyGl6juQE31JtD3zJey2v1Led1vE7fCl7P6/Wt5A28Qd8q3sgb9a3m
TbxJ3xr+nD/X3JAb6c2pby1/wV/oW8ebebO+9byFt+jbwFt5q76NvI236dvE
23m7vs95B+/Q3Igb682l7wveyTv1beZdvEvfFv6Sv9S3lb/ir/Rt46/5a33b
eTfv1reDv+FvNDfmJnpz69vJ3/K3+nbxHt6j70vey3v1fcX7eJ++r3k/79e3
mw/wAX3f8Hf8neYm3FRvHn3f8vf8vb49fJAP6tvLh/iQvn38A/+gbz8f5sP6
DvCP/KO+7/gn/klzU26mN6++7/ln/lnfQT7CR/Qd4qN8VN8PfIyP6TvMx/m4
vh/5F/5F3098gk9obsbN9ebT9zOf5JP6jvApPqXvKJ/m0/qO8Rk+o+84n+Wz
+n7hX/lXfSf4HJ/T3Jxb6M2v7yT/xr/pO8Xn+by+0/w7/67vDP/Bf+g7y3/y
n/p+5b/4L33n+AJf0NyCW+otoO83vsgX9Z3nS3xJ3+98mS/r+4P/5r/1/clX
+Iq+v/gqX9V3ga/xNc0tuZXegvoucvil7KL7JY3B6czhflljcHpzuP+tMTiD
OdyvaAzOaA73qxqDM5nD/ZrG4MzmcG+lO/hevTfoC1dwFs6iOR1n5aya03M2
zqY5A2fn7Jozcg7OoTkT5+ScmjNzLs6lOVzBrbUX0hyu4NycW19WzsN59GXj
vJxXX3bOx/n05eD8nF9fTi7ABbTm4oJcUHO4gttoL6w5XME38A368nAhLqQv
LxfmwvrycREuoi8/F+Wi+gpwMS6mtSAX5+KawxV8n/YimsMVXIJL6CvEJbmk
vsJcikvpK8LJnKyvKJfm0vqKcQqnaC3OqZyqOVzBbbWn0xyu4FfM4V5SY/Cr
5nAvpTH4NXO4J2sMft0c7qU1Br9hDvcUjcG9zL30pfKb5nBv6woOf0cpqj98
jvQczsq5h/MMdsWcFTNntCvurLi5RFLa79Vhn5lL2JdwnsWupLOS5qx2pZyV
Micnpf2uEvbZOdk+2XkOu9LOSptz2qU4SzGnJqX9/Bf2uTnVPtV5Hrsbnd1o
zmt3k7ObzGWS0v5NDfv8XMa+jPMCdjc7u9lc0O4WZ7eYyyalfZ8K+0Jc1r6s
88J2tzq71VzErpyzcuZ/RO858V7D2d3u5aL3epuz28zlo/eZeH/l7cs7T7y/
253dbq4QvbfEe6pgX8F54j3d4ewOc8Xo/STeR0X7is4T7+NOZ3eaK0XvIfHc
K9lXcp547nc5u8tcOXreiedb2b6y88TzvdvZ3eZ/Rs818RzDWXX3cF4len6J
51XFvorzqtFzSjyXqvZVnVeLnkfi81ezr+b8nuhzJz7nPfb3OK8efb7E56lu
X915jehz1Ih6a0RdNaKvXyP6OjWi/9/9SWnfj8L3oprm4Kech7nW9euBaF/T
XPv69WC0r2V+yC78nayuuY5dbXP4G067aF/XHP428nC0r2d+xC787aGhuYFd
fXP4vbh9tG9oDr9vPhrtG5kfswu/zzU1N7FrbA6/a3SI9k3N4Wf4x6N9M3NH
u/AzcktzC7vm5vDzW6do39Icfi56Itq3Mj9pF37uaGNubXevOfyb2DnatzG3
9S4T+/vMT7vf7909zS9F+/C+non2D5ifjd5zO/NDdg+aw3vpEu3bmZ+L3md7
8yN2D5vD838+2rc3d43eWwfzY3aPmsNz7hbtO5hfiN5PJ3NHu8fN4Xl2j/ad
zC9G76Gz+Um7J8xPeXaJfWdzD/enPZ8e/HK0/3f0XLuYn7V7xvyf6Pk9b37O
rov5v9Fz6mbuave8+X/R8+hufsGum/nl6HO/ZH7Rrru5p3sPTnyOnlFvz6ir
Z/T1e0Zf5/+6lwv5
"]],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{44.630033819577235`, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\);
hardEdgeIndices = ResourceFunction["MeshFeatureEdges"][mesh, "Indices"];
ResourceFunction["SmoothMeshNormals"][mesh, hardEdgeIndices]
Out[29]=

Possible Issues (2) 

MeshFeatureEdges only works on linear regions:

In[30]:=
ResourceFunction["MeshFeatureEdges"][Cylinder[]]
Out[30]=

Convert the region to a mesh before finding feature edges:

In[31]:=
ResourceFunction["MeshFeatureEdges"][DiscretizeRegion[Cylinder[]]]
Out[31]=

Oriented face normals are used for dihedral calculations, so the edges on a flipped face may not be classified as expected:

In[32]:=
mesh = \!\(\*
Graphics3DBox[
TagBox[
DynamicModuleBox[{
       Typeset`mesh = {MeshRegion, {Method -> {"EliminateUnusedCoordinates" -> True, "DeleteDuplicateCoordinates" -> Automatic, "DeleteDuplicateCells" -> Automatic, "VertexAlias" -> Identity, "CheckOrientation" -> Automatic,
            "CoplanarityTolerance" -> Automatic, "CheckIntersections" -> Automatic, "BoundaryNesting" -> Automatic, "SeparateBoundaries" -> Automatic, "TJunction" -> Automatic, "PropagateMarkers" -> True, "ZeroTest" -> Automatic}}}}, 
TagBox[GraphicsComplex3DBox[{{0., 0.7071067811865475, 0.}, {
         0.7071067811865475, 0., 0.}, {0., -0.7071067811865475, 0.}, {-0.7071067811865475, 0., 0.}, {0., 0., 0.7071067811865475}, {0., 0., -0.7071067811865475}}, 
{RGBColor[0.465719011680535, 0.7656186418234469, 0.8836254737685788], EdgeForm[RGBColor[
          0.465719011680535, 0.7656186418234469, 0.8836254737685788]], 
TagBox[Polygon3DBox[{{5, 2, 1}, {2, 3, 5}, {5, 4, 3}, {4, 5, 1}, {2, 6, 1}, {2, 3, 6}, {4, 6, 3}, {1, 6, 4}}],
Annotation[#, "Geometry"]& ]}],
MouseAppearanceTag["LinkHand"]],
AllowKernelInitialization->False],
"MeshGraphics3D",
AutoDelete->True,
Editable->False,
Selectable->False],
Boxed->False,
DefaultBaseStyle->{"MeshGraphics3D", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
ImageSize->{64.73828124999999, Automatic},
Lighting->{{"Ambient", 
GrayLevel[0.45]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{2, 0, 2}]}, {"Directional", 
GrayLevel[0.33], 
ImageScaled[{2, 2, 2}]}, {"Directional", 
GrayLevel[0.3], 
ImageScaled[{0, 2, 2}]}}]\);
In[33]:=
FindMeshDefects[mesh]
Out[33]=
In[34]:=
ResourceFunction["MeshFeatureEdges"][mesh, 90 Degree]
Out[34]=

Use RepairMesh to fix flipped faces:

In[35]:=
ResourceFunction["MeshFeatureEdges"][RepairMesh[mesh], 90 Degree]
Out[35]=

Publisher

Alec Shedelbower

Version History

  • 1.0.0 – 10 June 2026

Related Resources

License Information