BuildOpenCascadeLink.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    177306,       3765]
NotebookOptionsPosition[    160927,       3506]
NotebookOutlinePosition[    161358,       3523]
CellTagsIndexPosition[    161315,       3520]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Building OpenCascadeLink", "Subsection",ExpressionUUID->"a128afc6-35b7-43fd-8da5-175a71c0b21d"],

Cell["\<\
To build the OpenCascadeLink, first OpenCascade needs to be build. The actual \
link will then be build in a second step.\
\>", "Text",ExpressionUUID->"c9b067a2-feea-4117-b6e3-e6f4a3bf44eb"],

Cell[TextData[{
 "To make things a bit easier a set of pre built OpenCascade libraries is \
included in this paclet. Thus, if you intend to just build the link itself \
then it is not necessary to build OpenCascade from source. Building only the \
link is of interest if you would like to add, for example, a new C level \
function to the link. If , on the other hand, you would like to make use of a \
new version of OpenCascade, then the OpenCascade libraries need to be build \
first. You can download OpenCascade ",
 ButtonBox["here",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.opencascade.com/content/latest-release"], None},
  ButtonNote->"https://www.opencascade.com/content/latest-release"],
 "."
}], "Text",ExpressionUUID->"52a6be59-d057-4dff-ac5f-649bbd860d2f"],

Cell["\<\
Things get even easier if you just want to add functionality to \
OpenCascadeLink that is based on existing OpenCascadeLink functionality. For \
example if you wish to add a function to construct an OpenCascade solid that \
is based on already available OpenCascadeLink primitives then you can \
directly proceed to read the OpenCascadeLink notebook.\
\>", "Text",
 CellChangeTimes->{{3.821880271964464*^9, 
  3.821880272274673*^9}},ExpressionUUID->"e21568a7-49e2-4d72-9316-\
e293ea9ac070"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NotebookOpen", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<OpenCascadeLink.nb\>\""}], "}"}], "]"}], "]"}], ";"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"f126382f-88f0-41bc-835d-be6655701752"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Building OpenCascade from source", "Subsection",ExpressionUUID->"f3c0c75c-ee3f-4fef-b526-60aa215398a4"],

Cell[TextData[{
 "The OpenCascade source code is provided either as a *.tgz archive or can be \
cloned from a git repository. You can download OpenCascade ",
 ButtonBox["here",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.opencascade.com/content/latest-release"], None},
  ButtonNote->"https://www.opencascade.com/content/latest-release"],
 ". Alternatively, the repo can be cloned with"
}], "Text",ExpressionUUID->"45ba7a1a-0dd1-4d3d-9e58-efa067427bf2"],

Cell["\<\
git clone https://git.dev.opencascade.org/repos/occt.git occt\
\>", "Text",ExpressionUUID->"89a9b201-6610-40b9-b8cc-b10b5092de0c"],

Cell["Then use git tag to find the latest tagged version.", "Text",ExpressionUUID->"d73ac2d7-2199-42f4-a532-f4312a8fcc3c"],

Cell[CellGroupData[{

Cell["Building OpenCascade on Linux", "Subsubsection",ExpressionUUID->"01eb8fd8-c499-4c8f-9e67-9ddeddada0a2"],

Cell["$ tar xfpz opencascade-7.6.0.tgz", "Text",ExpressionUUID->"e8ed6464-ce1e-4767-945a-c42b4dbc23b1"],

Cell["\<\
Delete the SOVERSION and the VERSION properties in lines 288-289 of \
opencascade-7.6.0/adm/cmake/occt_toolkit.cmake, there does not seem to be any \
better way of overriding this. It may be possible to use -DANDROID=ON with \
cmake in stead of modifying the cmake source.\
\>", "Text",ExpressionUUID->"7972f68a-5bed-4af1-93a7-67f10e8776c8"],

Cell["\<\
$ mkdir build
$ cd build

$ cmake -DBUILD_MODULE_Draw=OFF \
-DCMAKE_INSTALL_RPATH=\[CloseCurlyQuote]\\$ORIGIN\[CloseCurlyQuote] \
-DCMAKE_INSTALL_PREFIX=install ../opencascade-7.6.0

$ cmake --build . --target install otherwise the rpath will not get applied\
\>", "Text",ExpressionUUID->"5df075dc-faef-49cf-9440-19389036420e"],

Cell["\<\
The library is build on a machine with a reasonably old glibc such that it \
compatible for a large set of setups. At the same time a recent developer \
tool chain is used.\
\>", "Text",ExpressionUUID->"4b9ff5b1-d045-4dc5-a18d-d6bb421ab6c6"],

Cell["\<\
Copy the library from build/install/lib/ into this directory:\
\>", "Text",
 CellChangeTimes->{{3.821841629485228*^9, 3.821841640849098*^9}, 
   3.821845167783944*^9},ExpressionUUID->"09ab2ace-c0f4-42f9-842b-\
14a39797767f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<PrebuiltLibraries\>\"",
     ",", "$SystemID", ",", "\"\<lib\>\""}], "}"}], "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"851031e9-9744-4464-9523-84716ed41ee9"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/PrebuiltLibraries/\
Linux-x86-64/lib\"\>"], "Output",
 CellLabel->"Out[1]=",ExpressionUUID->"c8ba4637-e64a-4974-b70c-9f58d8a8e3f0"]
}, Open  ]],

Cell["\<\
$ cp build/install/lib/*.so \
~/wri_git/OpenCascadeLink/PrebuiltLibraries/Linux-x86-64/lib\
\>", "Text",ExpressionUUID->"7503b866-b0a4-4acb-b2fd-393b92fe8d25"],

Cell["\<\
Copy the header files from build/install/include/opencascade into this \
directory:\
\>", "Text",ExpressionUUID->"f2372ca8-68b3-47dd-9683-d0b99a6c4a83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<OpenCascadeLink\>\"", 
    ",", "\"\<CSource\>\"", ",", "\"\<OpenCascadeSource\>\"", ",", 
    "\"\<include\>\""}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.821845406005619*^9, 3.821845432592942*^9}, {
  3.821845493559464*^9, 3.8218454973089333`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"4b45cbfd-12f1-4d76-af5e-a9ae56397082"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/\
CSource/OpenCascadeSource/include\"\>"], "Output",
 CellLabel->"Out[2]=",ExpressionUUID->"b20fa54f-e4eb-4443-bb8a-4163fe2f87dd"]
}, Open  ]],

Cell["\<\
$ cp build/install/include/opencascade/* \
~/wri_git/OpenCascadeLink/OpenCascadeLink/CSource/OpenCascadeSource/include/\
\>", "Text",
 CellChangeTimes->{
  3.821845597151622*^9},ExpressionUUID->"2f4bc48d-d7ec-4cff-81dd-\
90723c2476ee"]
}, Closed]],

Cell[CellGroupData[{

Cell["Building OpenCascade on Mac", "Subsubsection",
 CellChangeTimes->{{3.782253912733014*^9, 3.78225392153788*^9}, {
  3.782254056994916*^9, 
  3.782254057094715*^9}},ExpressionUUID->"908f8e5f-bc54-4208-8a69-\
ecf9579b2f53"],

Cell["\<\
$ tar zxvf opencascade-7.6.0.tgz

Delete the SOVERSION and the VERSION properties in lines 288-289 of \
opencascade-7.6.0/adm/cmake/occt_toolkit.cmake, there does not seem to be any \
better way of overriding this.

$ mkdir opencascade-build
$ cd opencascade-build
$ mkdir install
$ cmake -DCMAKE_MACOSX_RPATH=ON -DCMAKE_INSTALL_RPATH=@loader_path \
-DCMAKE_OSX_DEPLOYMENT_TARGET=10.12 -DCMAKE_INSTALL_PREFIX=install \
-DBUILD_MODULE_Draw=OFF ../opencascade-7.6.0
$ cmake --build . --target install --parallel 12\
\>", "Text",
 CellChangeTimes->{{3.782688686213236*^9, 3.782688690343937*^9}, {
  3.871121795680656*^9, 3.871121804076776*^9}, {3.871121846482793*^9, 
  3.8711218509363194`*^9}},ExpressionUUID->"1a4193e5-fb63-400b-8691-\
792a6c097d32"],

Cell["Copy the library into this directory:", "Text",ExpressionUUID->"e796235c-e110-4cb9-91dd-c87fb18d02b4"],

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<PrebuiltLibraries\>\"",
     ",", "$SystemID", ",", "\"\<lib\>\""}], "}"}], "]"}]], "Input",Expression\
UUID->"1c71c351-07cb-41af-8594-77304b03d5a9"],

Cell["\<\
$ cp -R install/lib/*.dylib \
~/git/Paclets/OpenCascadeLink/PrebuiltLibraries/MacOSX-x86-64/lib/\
\>", "Text",ExpressionUUID->"ca8e8830-c482-40f1-bc33-430e79381ac6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Building OpenCascade on Windows", "Subsubsection",
 CellChangeTimes->{{3.782253912733014*^9, 3.78225392153788*^9}, {
  3.782254056994916*^9, 3.782254057094715*^9}, {3.782341719237693*^9, 
  3.782341720143797*^9}},ExpressionUUID->"63e1cb79-991c-436b-82ec-\
1ff2cdd2dbb1"],

Cell["\<\
Download and extract the sources in C:\\dev\\opencascade-7.6.0.

Download and extract the 3rd party component Freetype in \
C:\\dev\\occt3rdparty. A prebuilt version is available from

https://dev.opencascade.org/resources/download/3rd-party-components

or it can be built from sources according to the instructions available at

https://dev.opencascade.org/doc/occt-7.6.0/overview/html/build_upgrade_\
building_3rdparty.html#dev_guides__building_3rdparty_win_1\
\>", "Text",
 CellChangeTimes->{{3.871122121746414*^9, 3.8711221243472357`*^9}, 
   3.871122161123184*^9},ExpressionUUID->"db0d407a-2da6-41d0-9b86-\
662594e6a593"],

Cell["\<\
C:\\dev> mkdir opencascade-build
C:\\dev> cd opencascade-build
C:\\dev> mkdir install
C:\\dev> cmake -DBUILD_MODULE_Draw=OFF -G \[OpenCurlyDoubleQuote]Visual \
Studio 15 2017 Win64\[CloseCurlyDoubleQuote] \
-D3RDPARTY_DIR=C:\\dev\\occt3rdparty -DCMAKE_INSTALL _PREFIX=install \
..\\opencascade-7.6.0
C:\\dev>  cmake --build . --config Release --target install -- /m\
\>", "Text",
 CellChangeTimes->{{3.87112212766735*^9, 3.871122137137576*^9}, 
   3.871494903894546*^9},ExpressionUUID->"6aa9c6d4-a8cb-4393-aadc-\
f9301cab6d50"],

Cell["\<\
Copy the import libraries opencascade-build\\install\\win64\\vc14\\lib\\*.lib \
into this directory:\
\>", "Text",
 CellChangeTimes->{{3.7826889684875717`*^9, 
  3.782688969079546*^9}},ExpressionUUID->"cf597b56-bf0f-4364-80dc-\
96c6dd295f41"],

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<PrebuiltLibraries\>\"",
     ",", "$SystemID", ",", "\"\<import\>\""}], "}"}], "]"}]], "Input",Express\
ionUUID->"f515f3a3-5269-47e9-871c-254a6f157d3c"],

Cell["\<\
Copy the runtime DLL libraries \
opencascade-build\\install\\win64\\vc14\\bin\\*.dll  and freetype.dll  into \
this directory:\
\>", "Text",ExpressionUUID->"a179c6c5-1f8f-46f4-b65a-193df61f6870"],

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<PrebuiltLibraries\>\"",
     ",", "$SystemID", ",", "\"\<lib\>\""}], "}"}], "]"}]], "Input",Expression\
UUID->"f6b15d5f-b417-42f4-9cfa-a6ffb2c95ed0"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Building the OpenCascadeLink itself", "Subsection",ExpressionUUID->"7ebee21d-a78d-44c7-9310-cb1f4df76ef7"],

Cell[CellGroupData[{

Cell["Build the OpenCascadeLink", "Subsubsection",ExpressionUUID->"7ab88f83-cbf5-4b2c-adf6-aaf116615d3f"],

Cell["\<\
Set up the build directories where the build paclet should go. The build \
directory will eventually contain the paclet:\
\>", "Text",ExpressionUUID->"dd56c300-38a3-4d24-8475-fd6a3a22ed23"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"baseDir", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"buildDir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"baseDir", ",", "\"\<build\>\""}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"1d7cb5b8-b9ef-4d83-b69e-7e6d9aa1bf6c"],

Cell["Create an empty build directory:", "Text",ExpressionUUID->"42559dad-2c76-4949-9747-fb96754b651c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"DirectoryQ", "[", "buildDir", "]"}], ",", " ", 
   RowBox[{"DeleteDirectory", "[", 
    RowBox[{"buildDir", ",", 
     RowBox[{"DeleteContents", "\[Rule]", "True"}]}], "]"}]}], "]"}], "\n", 
 RowBox[{"CreateDirectory", "[", "buildDir", "]"}]}], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"405c7967-b349-47b1-8e27-5e028c8719f1"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build\"\>"], "Output",
 CellLabel->"Out[4]=",ExpressionUUID->"da1ec6b6-fd72-419a-a791-8f8b2a8b61a0"]
}, Open  ]],

Cell["Load the build script:", "Text",ExpressionUUID->"ed0f6cd1-df62-4727-8f52-b94ea7934eaa"],

Cell[BoxData[
 RowBox[{"Get", "[", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "baseDir", ",", "\"\<scripts\>\"", ",", 
     "\"\<BuildOpenCascadeLink.wl\>\""}], "}"}], "]"}], "]"}]], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"e32adc6d-106e-4512-8755-767bbbbc4792"],

Cell["Specify where the build should go:", "Text",ExpressionUUID->"6bd89636-53d6-4318-894e-63ddefce951a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"setup", "=", 
   RowBox[{"Association", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<BaseDirectory\>\"", "\[Rule]", "baseDir"}], ",", 
      RowBox[{"\"\<BuildDirectory\>\"", "\[Rule]", "buildDir"}]}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellLabel->"In[6]:=",ExpressionUUID->"1053d118-7213-4dbb-b4dc-8e215810c459"],

Cell["Build the library link binary", "Text",ExpressionUUID->"3a3d1bd2-9121-4f36-ba0e-1cf44a925878"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BuildOpenCascadeLink", "[", "setup", "]"}]], "Input",
 CellLabel->"In[7]:=",ExpressionUUID->"3ab5f839-05ca-4d29-9724-761dd7084782"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink/LibraryResources/Linux-x86-64/openCascadeWolframDLL.so\"\>"], \
"Output",
 CellLabel->"Out[7]=",ExpressionUUID->"90396202-e3d9-4734-98e9-f1987868295c"]
}, Open  ]],

Cell["\<\
Should something go wrong in the build, you can uncomment the line (*, \
\[OpenCurlyDoubleQuote]ShellOutputFunction\[CloseCurlyDoubleQuote] -> Print \
*) in the call to CreateLibrary in the BuildOpenCascadeLink.wl script to see \
what might be the issue.\
\>", "Text",ExpressionUUID->"dba0cf0d-4a87-46b1-bae5-194367ed0493"]
}, Closed]],

Cell[CellGroupData[{

Cell["Build the OpenCascadeLink paclet layout", "Subsubsection",ExpressionUUID->"34ed6358-b785-4f7b-af0d-f08c986028cd"],

Cell["\<\
To complete the paclet we need to copy files from the source directory into \
the build directory.\
\>", "Text",ExpressionUUID->"d79707bb-c1b2-4b2e-b3f9-07448c83f563"],

Cell["Set up the paclet directory:", "Text",ExpressionUUID->"4a6b0479-b5d2-4c39-82f2-96ebfc40847f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pacletDir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"buildDir", ",", "\"\<OpenCascadeLink\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellLabel->"In[8]:=",ExpressionUUID->"2d65b802-6846-4d06-8c24-7927a619ad36"],

Cell["Copy the kernel files:", "Text",ExpressionUUID->"559e7e0d-04e8-4844-932a-aaba0ab44de9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CopyDirectory", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "baseDir", ",", "\"\<OpenCascadeLink\>\"", ",", "\"\<Kernel\>\""}], 
     "}"}], "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"pacletDir", ",", "\"\<Kernel\>\""}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellLabel->"In[9]:=",ExpressionUUID->"389119e3-c06d-4348-a14c-18c1dff54203"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink/Kernel\"\>"], "Output",
 CellLabel->"Out[9]=",ExpressionUUID->"9a9d6f8a-f578-4dd3-bc02-1eb7837e7d46"]
}, Open  ]],

Cell["Copy the example data files:", "Text",ExpressionUUID->"4c134813-261d-4d20-a011-4b67af6f9bc1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CopyDirectory", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "baseDir", ",", "\"\<OpenCascadeLink\>\"", ",", "\"\<ExampleData\>\""}], 
     "}"}], "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"pacletDir", ",", "\"\<ExampleData\>\""}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellLabel->"In[10]:=",ExpressionUUID->"34f8c02e-b928-48f8-8523-f821fb0aada1"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink/ExampleData\"\>"], "Output",
 CellLabel->"Out[10]=",ExpressionUUID->"40ae23d7-13cd-46ba-ab56-b64809974541"]
}, Open  ]],

Cell["Copy the OpenCascadeLink.m file:", "Text",ExpressionUUID->"a322e256-7cf3-4bbc-8dec-88c9225a13fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CopyFile", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "baseDir", ",", "\"\<OpenCascadeLink\>\"", ",", 
      "\"\<OpenCascadeLink.m\>\""}], "}"}], "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"pacletDir", ",", "\"\<OpenCascadeLink.m\>\""}], "}"}], "]"}], 
   ",", 
   RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"704a1be5-c475-44f6-8987-f5adca69b06e"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink/OpenCascadeLink.m\"\>"], "Output",
 CellLabel->"Out[11]=",ExpressionUUID->"8c89f15c-05cf-40a8-be8c-d8d9b05043a6"]
}, Open  ]],

Cell["Copy the PacletInfo.m file:", "Text",ExpressionUUID->"073fa7c7-5e7a-42e7-9129-e4c33035745e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CopyFile", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "baseDir", ",", "\"\<OpenCascadeLink\>\"", ",", "\"\<PacletInfo.m\>\""}],
      "}"}], "]"}], ",", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"pacletDir", ",", "\"\<PacletInfo.m\>\""}], "}"}], "]"}], ",", 
   RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellLabel->"In[12]:=",ExpressionUUID->"d7b697c0-482d-4e4e-8563-fcbc91610247"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink/PacletInfo.m\"\>"], "Output",
 CellLabel->"Out[12]=",ExpressionUUID->"be097af1-c02b-49bf-8ca9-9965e2580a89"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Build the OpenCascadeLink Documentation", "Subsubsection",ExpressionUUID->"1fb53ba5-f5fe-4be3-a17d-58f25b5d6ceb"],

Cell["To build the documentation load the paclet tools:", "Text",ExpressionUUID->"db5515a5-7e04-46c9-b6c4-52db86fa062f"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<PacletTools`\>\"", "]"}]], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"3685fdd8-6086-4f9f-bf52-7ef19ac0dea3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PacletDocumentationBuild", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"baseDir", ",", "\"\<OpenCascadeLink\>\""}], "}"}], "]"}], ",", 
   "buildDir"}], "]"}]], "Input",
 CellLabel->"In[14]:=",ExpressionUUID->"560e0ffd-e50c-4ed7-87d3-ed2bc57c39f3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["Success",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            FrameBox[
             StyleBox["\"\[Checkmark]\"", 
              Directive[
               RGBColor[
               0.3607843137254902, 0.596078431372549, 0.3803921568627451], 
               25], StripOnInput -> False], ContentPadding -> False, 
             FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, 
             StripOnInput -> False], 
            GridBox[{{
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                  "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox[
                 "\"Documentation build completed successfully.\"", 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"TotalTime\"", "\": \""}, "RowDefault"], 
                  "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "11.815279`", "\"s\"", "seconds", "\"Seconds\""}, 
                   "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            FrameBox[
             StyleBox["\"\[Checkmark]\"", 
              Directive[
               RGBColor[
               0.3607843137254902, 0.596078431372549, 0.3803921568627451], 
               25], StripOnInput -> False], ContentPadding -> False, 
             FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, 
             StripOnInput -> False], 
            GridBox[{{
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                  "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox[
                 "\"Documentation build completed successfully.\"", 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"TotalTime\"", "\": \""}, "RowDefault"], 
                  "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "11.815279`", "\"s\"", "seconds", "\"Seconds\""}, 
                   "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"MaximumFileTime\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{
                    
                    TemplateBox[{
                    "6.667533`", "\"s\"", "seconds", "\"Seconds\""}, 
                    "Quantity", SyntaxForm -> Mod], ",", 
                    
                    "\"/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/\
Documentation/English/Tutorials/UsingOpenCascadeLink.nb\""}], "}"}], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"ProcessedFiles\"", "\": \""}, "RowDefault"],
                   "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"\[LeftAssociation]", 
                    RowBox[{
                    
                    RowBox[{
                    "\"/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/\
Documentation/English/Tutorials/BookShelfBracket.nb\"", "\[Rule]", 
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"0.887828`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"0.887828`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success[
                    "BuildDocumentationNotebook", <|
                    "Time" -> Quantity[0.887828, "Seconds"]|>], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]}], 
                    ",", 
                    
                    RowBox[{
                    "\"/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/\
Documentation/English/Tutorials/HelicalBevelGear.nb\"", "\[Rule]", 
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"3.826176`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"3.826176`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success[
                    "BuildDocumentationNotebook", <|
                    "Time" -> Quantity[3.826176, "Seconds"]|>], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]}], 
                    ",", 
                    
                    RowBox[{
                    "\"/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/\
Documentation/English/Tutorials/UsingOpenCascadeLink.nb\"", "\[Rule]", 
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"6.667533`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Time\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{"6.667533`", "\"s\"", "seconds", 
                    "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"BuildDocumentationNotebook\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success[
                    "BuildDocumentationNotebook", <|
                    "Time" -> Quantity[6.667533, "Seconds"]|>], Selectable -> 
                    False, Editable -> False, SelectWithContents -> True]}]}],
                     "\[RightAssociation]"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"FailedFilesCount\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"PercentSucceeded\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{"100.`", "\"%\"", "percent", "\"Percent\""}, 
                   "QuantityPostfix", SyntaxForm -> Mod], "SummaryItem"]}]}, {
              
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"ProcessedFilesCount\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"SuccessfulFilesCount\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  
                  TemplateBox[{"\"SkippedFilesCount\"", "\": \""}, 
                   "RowDefault"], "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox[
                  TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                  "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                 TagBox["\"DocumentationBuild\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  Success[
  "DocumentationBuild", <|
   "TotalTime" -> Quantity[11.815279, "Seconds"], "MaximumFileTime" -> {
      Quantity[6.667533, "Seconds"], 
      "/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/Documentation/\
English/Tutorials/UsingOpenCascadeLink.nb"}, 
    "ProcessedFiles" -> <|
     "/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/Documentation/\
English/Tutorials/BookShelfBracket.nb" -> 
      Success["BuildDocumentationNotebook", <|
        "Time" -> Quantity[0.887828, "Seconds"]|>], 
      "/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/Documentation/\
English/Tutorials/HelicalBevelGear.nb" -> 
      Success["BuildDocumentationNotebook", <|
        "Time" -> Quantity[3.826176, "Seconds"]|>], 
      "/home/ruebenko/wri_git/OpenCascadeLink/OpenCascadeLink/Documentation/\
English/Tutorials/UsingOpenCascadeLink.nb" -> 
      Success["BuildDocumentationNotebook", <|
        "Time" -> Quantity[6.667533, "Seconds"]|>]|>, "FailedFilesCount" -> 0,
     "PercentSucceeded" -> Quantity[100., "Percent"], "ProcessedFilesCount" -> 
    3, "SuccessfulFilesCount" -> 3, "SkippedFilesCount" -> 0, 
    "MessageTemplate" -> "Documentation build completed successfully."|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[14]=",ExpressionUUID->"7986f712-037a-4428-b9af-f90c172978e6"]
}, Open  ]],

Cell["\<\
This will create the documentation and put it in the OpenCascade folder i the \
folder named build.\
\>", "Text",ExpressionUUID->"04a008e2-f1ba-4275-9cc9-42c3404fd267"]
}, Closed]],

Cell[CellGroupData[{

Cell["Build the OpenCascadeLink Paclet", "Subsubsection",ExpressionUUID->"c8ab5b56-b2c1-4f79-be2e-1e7d87abc227"],

Cell["Next we create the OpenCascadeLink-X.Y.Z.paclet.", "Text",ExpressionUUID->"08f6297e-0175-418d-a615-cfdce1d8b2c4"],

Cell["Load the paclet manager to create the paclet", "Text",ExpressionUUID->"74ecbd42-5f55-43cc-a593-f4a0c257a6a2"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<PacletManager`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.732945903851519*^9, 3.732945916339141*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"0faf7db5-2f0e-46bf-a9e6-1b9a2212b2a1"],

Cell["Check that the OpenCascadeLink directory is there:", "Text",ExpressionUUID->"02dfa579-ff87-44ac-b061-3f4ca122f816"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FileNames", "[", 
  RowBox[{"All", ",", "buildDir"}], "]"}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"64b18ca9-49ac-487d-b48a-495f6d8fd8b1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/incremental\"\>", 
   ",", "\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/OpenCascadeLink\"\>\
"}], "}"}]], "Output",
 CellLabel->"Out[16]=",ExpressionUUID->"6427c854-bbda-4b1a-9f6a-a1733a8d557d"]
}, Open  ]],

Cell["\<\
Add the paclet directory. This is convenient for development as \
PacletDirectoryAdd wins ties if the paclet version is the same as the paclet \
the Wolfram language ships with:\
\>", "Text",ExpressionUUID->"fda6454b-195a-4b34-b1c5-a7963f0c2a90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PacletDirectoryAdd", "[", "pacletDir", "]"}]], "Input",
 CellLabel->"In[17]:=",ExpressionUUID->"d12b597f-8f33-4c92-b0d6-12b60d5fb449"],

Cell[BoxData[
 RowBox[{"{", \
"\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/OpenCascadeLink\"\>", 
  "}"}]], "Output",
 CellLabel->"Out[17]=",ExpressionUUID->"63b7a168-ef8d-4eb2-9331-5168ebdde886"]
}, Open  ]],

Cell["If you like you can create the paclet:", "Text",ExpressionUUID->"d0a94687-6a60-48d2-8fa9-2c69e0a8d395"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"paclet", "=", 
  RowBox[{"PackPaclet", "[", "pacletDir", "]"}]}]], "Input",
 CellLabel->"In[18]:=",ExpressionUUID->"263402d4-9eb2-4f2f-9d5b-4c46bbdb3569"],

Cell[BoxData["\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/\
OpenCascadeLink-0.4.0.paclet\"\>"], "Output",
 CellLabel->"Out[18]=",ExpressionUUID->"7a3985f4-e10d-49fc-8c8c-7fe9ad619120"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Load the new OpenCascadeLink Paclet", "Subsubsection",ExpressionUUID->"db5330f1-ad02-4660-96a3-f9da5a8b4ca4"],

Cell["\<\
You can load the newly created paclet with out installing it. \
\>", "Text",ExpressionUUID->"17ec6fe5-c335-4a0b-8158-62421b03129c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PacletDirectoryLoad", "[", "pacletDir", "]"}]], "Input",
 CellLabel->"In[19]:=",ExpressionUUID->"cc166fd1-4353-441d-be91-cc95f5d4f27e"],

Cell[BoxData[
 RowBox[{"{", \
"\<\"/home/ruebenko/wri_git/OpenCascadeLink/build/OpenCascadeLink\"\>", 
  "}"}]], "Output",
 CellLabel->"Out[19]=",ExpressionUUID->"a3b6d248-3280-4d14-ba09-12e0a434a9be"]
}, Open  ]],

Cell["Load the paclet and check the version", "Text",ExpressionUUID->"5628d5cd-e635-4742-b9ab-41231f72d924"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<OpenCascadeLink`\>\"", "]"}]], "Input",
 CellLabel->"In[20]:=",ExpressionUUID->"0d5da820-91de-4cab-ab78-66869c70cf0a"],

Cell[CellGroupData[{

Cell[BoxData["$OpenCascadeVersion"], "Input",
 CellLabel->"In[21]:=",ExpressionUUID->"c6bd01dd-3c26-4b80-8dd0-5cf0ae447158"],

Cell[BoxData["\<\"7.6.3\"\>"], "Output",
 CellLabel->"Out[21]=",ExpressionUUID->"537af6aa-271d-4a2c-9511-eba7d34ae01b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Build a debug version of  OpenCascadeLink", "Subsubsection",ExpressionUUID->"b437757f-5b61-48c5-b963-5a18c409fc8f"],

Cell["\<\
If you wish to build a debug version of the link open the file \
\>", "Text",ExpressionUUID->"2832ab4c-4450-4532-a309-d073e178598d"],

Cell[BoxData[
 RowBox[{"FileNameJoin", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<scripts\>\"", ",", 
    "\"\<BuildOpenCascadeLink.wl\>\""}], "}"}], "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"97d9e24d-f028-438d-9609-649c61d97148"],

Cell["\<\
and remove the comments around the following lines in the call to \
CreateLibrary:\
\>", "Text",ExpressionUUID->"c9af4357-8880-45ec-95dc-f565a3194766"],

Cell["\<\
\[OpenCurlyDoubleQuote]Debug\[CloseCurlyDoubleQuote]\[Rule]True
\[OpenCurlyDoubleQuote]ShellOutputFunction\[CloseCurlyDoubleQuote]\[Rule]\
Print
\[CloseCurlyDoubleQuote]ShellCommandFunction\[CloseCurlyDoubleQuote]\[Rule]\
Print\
\>", "Text",ExpressionUUID->"3a456ec6-010b-44ae-b9f4-a04ee7d32caf"],

Cell["\<\
Compile the link. In your Wolfram Desktop layout find the OpenCascadeLink \
library binary openCascadeWolframDLL and save that to another location for \
later. Put the newly compiled debug version in it\[CloseCurlyQuote]s place. \
When you run an application you whish to debug start the Wolfram language as \
usual. Then evaluate\
\>", "Text",ExpressionUUID->"c5b36d48-bb9e-4163-b537-2b6040c0304c"],

Cell[CellGroupData[{

Cell[BoxData["$ProcessID"], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"7b128005-ba0a-4b88-92bc-628975cf7968"],

Cell[BoxData["9085"], "Output",
 CellLabel->"Out[5]=",ExpressionUUID->"7bbc5525-b6a6-4b8a-8944-e44948320c0f"]
}, Open  ]],

Cell["\<\
You can now attach a debugger to that process ID. Set a break point at the \
function you wish to inspect and call the function. The debugger should now \
stop at the requested break point.\
\>", "Text",ExpressionUUID->"4743dd77-3517-4b8c-bd9c-8c69f09e6333"]
}, Closed]],

Cell[CellGroupData[{

Cell["Development setup", "Subsubsection",ExpressionUUID->"15f26c59-6d19-4abb-8b3a-929d6494e0fc"],

Cell["\<\
To quickly develop an test new OpenCascadeLink functionality two steps are \
most important. First, copy a modified OpenCascadeLink.m file into the paclet \
and second recompile the LibraryLink binary. You may omit this last step if \
no changes to the C code were made.
To do so the following set up seems useful:\
\>", "Text",
 CellChangeTimes->{{3.815470443246541*^9, 
  3.815470465121809*^9}},ExpressionUUID->"df904a15-942d-4fd6-b8a9-\
646909e176f6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"baseDir", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"buildDir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"baseDir", ",", "\"\<build\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pacletDir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"buildDir", ",", "\"\<OpenCascadeLink\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", " ", 
   RowBox[{
    RowBox[{"$VersionNumber", "\[GreaterEqual]", "12.2"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"PacletDirectoryLoad", "[", "pacletDir", "]"}], ";"}], 
    "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"PacletDirectoryAdd", "[", "pacletDir", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CopyFile", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "baseDir", ",", "\"\<OpenCascadeLink\>\"", ",", 
       "\"\<OpenCascadeLink.m\>\""}], "}"}], "]"}], ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"pacletDir", ",", "\"\<OpenCascadeLink.m\>\""}], "}"}], "]"}], 
    ",", 
    RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}], ";"}], "\n", 
 RowBox[{"Get", "[", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "baseDir", ",", "\"\<scripts\>\"", ",", 
     "\"\<BuildOpenCascadeLink.wl\>\""}], "}"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{"setup", "=", 
   RowBox[{"Association", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<BaseDirectory\>\"", "\[Rule]", "baseDir"}], ",", 
      RowBox[{"\"\<BuildDirectory\>\"", "\[Rule]", "buildDir"}]}], "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"BuildOpenCascadeLink", "[", "setup", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.815385316781541*^9, 3.815385356822381*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"5495cc52-950c-4795-90dc-4d3e2b722627"],

Cell["\<\
If the C code was changes and a new library build then the kernel needs to be \
quit and restarted in order to load the changes otherwise a reloading the \
\[OpenCurlyDoubleQuote]OpenCascadeLink.m\[CloseCurlyDoubleQuote] file is \
sufficient.\
\>", "Text",ExpressionUUID->"e02e80c6-332e-4b84-b5ad-309fb2b94771"],

Cell[BoxData["Quit"], "Input",
 CellLabel->"In[4]:=",ExpressionUUID->"29027f99-4065-427d-a57c-28fb15456f1b"],

Cell[BoxData[
 RowBox[{"Get", "[", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<build\>\"", ",", 
     "\"\<OpenCascadeLink\>\"", ",", "\"\<OpenCascadeLink.m\>\""}], "}"}], 
   "]"}], "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"3255c058-aca5-465c-b567-9b51c0b53e7c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inst", "=", 
  RowBox[{"OpenCascadeShapeCreate", "[", "]"}]}]], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"e281ad8c-bfab-4e5a-aa80-5d3e982e9ccd"],

Cell[BoxData[
 RowBox[{"OpenCascadeShapeExpression", "[", "1", "]"}]], "Output",
 CellLabel->"Out[2]=",ExpressionUUID->"49d72166-a29c-4420-923e-d19788de14e2"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Basics Tests", "Subsubsection",ExpressionUUID->"fc7167bb-4fc5-4e85-a613-33f5b4ead6a6"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<OpenCascadeLink`\>\"", "]"}]], "Input",
 CellLabel->"In[22]:=",ExpressionUUID->"1c5134cd-1298-4e20-81a2-7ba2522a2ac3"],

Cell[CellGroupData[{

Cell[BoxData["$OpenCascadeVersion"], "Input",
 CellChangeTimes->{{3.821846019198658*^9, 3.821846054492506*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"4891fc0e-e483-414c-9037-1eb43a25ca28"],

Cell[BoxData["\<\"7.6.0\"\>"], "Output",
 CellLabel->"Out[23]=",ExpressionUUID->"04b4fe08-b8df-4d2b-8c14-3a1b8d9b3063"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inst", "=", 
  RowBox[{"OpenCascadeShapeCreate", "[", "]"}]}]], "Input",
 CellLabel->"In[24]:=",ExpressionUUID->"203492d9-8576-4ae4-82c6-8a9c7ca2e53c"],

Cell[BoxData[
 RowBox[{"OpenCascadeShapeExpression", "[", "1", "]"}]], "Output",
 CellLabel->"Out[24]=",ExpressionUUID->"d4b9d9e4-f26e-4a7b-a625-b5214ab5b101"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OpenCascadeShapeExpressionQ", "[", "inst", "]"}]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"05def6ba-91a0-4e69-92bb-ffae9b68a1cb"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[25]=",ExpressionUUID->"96e3513a-b454-4290-9beb-2ccae40b39f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"oce", "=", 
  RowBox[{"OpenCascadeShapeExpressions", "[", "]"}]}]], "Input",
 CellLabel->"In[26]:=",ExpressionUUID->"0ed5ab37-9075-4dc7-8d7c-520c5d1e783e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"OpenCascadeShapeExpression", "[", "1", "]"}], "}"}]], "Output",
 CellLabel->"Out[26]=",ExpressionUUID->"7e407160-2f9f-44f4-98ab-dde571f18452"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OpenCascadeShapeDelete", "[", 
  RowBox[{"oce", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellLabel->"In[27]:=",ExpressionUUID->"33c9e9bb-130a-4a08-84b4-d582f6157ab1"],

Cell[BoxData["0"], "Output",
 CellLabel->"Out[27]=",ExpressionUUID->"acef1292-3fa2-4209-982b-c80fc662a5b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OpenCascadeShapeExpressions", "[", "]"}]], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"df18c87f-76a7-432a-970b-a8333cf21d36"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellLabel->"Out[28]=",ExpressionUUID->"df8021fb-3712-4b04-8b37-c09b78c1b590"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s1", "=", 
  RowBox[{"OpenCascadeShape", "[", 
   RowBox[{"Ball", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0"}], "}"}], "]"}], "]"}]}]], "Input",
 CellLabel->"In[29]:=",ExpressionUUID->"b8b5a512-4e15-4e4f-ad99-13b555b1ad95"],

Cell[BoxData[
 RowBox[{"OpenCascadeShapeExpression", "[", "2", "]"}]], "Output",
 CellLabel->"Out[29]=",ExpressionUUID->"321db9e4-d8d1-4490-b05a-921605f26e15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bmesh1", "=", 
  RowBox[{
  "OpenCascadeShapeSurfaceMeshToBoundaryMesh", "[", "s1", "]"}]}]], "Input",
 CellLabel->"In[30]:=",ExpressionUUID->"be8ec323-b075-4811-9207-b242f9d1ebc0"],

Cell[BoxData[
 TagBox[
  RowBox[{"NDSolve`FEM`ElementMesh", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.`", ",", "2.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}]}], "}"}], ",", 
    "Automatic"}], "]"}],
  False,
  Editable->False,
  SelectWithContents->True]], "Output",
 CellLabel->"Out[30]=",ExpressionUUID->"0b222640-a95f-4767-96c5-9444b992d182"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bmesh1", "[", "\"\<Wireframe\>\"", "]"}]], "Input",
 CellLabel->"In[31]:=",ExpressionUUID->"eaf9a799-5635-4822-b6b7-c76a8d5f1385"],

Cell[BoxData[
 Graphics3DBox[
  {EdgeForm[GrayLevel[0]], FaceForm[None, None], 
   GraphicsComplex3DBox[CompressedData["
1:eJx1WntYjekW3x2DGoPD6NBg0hmkmZiIkUvn5zYmBuU+jaEZIZvjqCdU1DSN
uxhSbofccqlBGGYw9thFQ5lQLl2OmnYydqWodqVUOnP61vd69ttZ/ePxPfv5
vrXWu9Zv/dZvvXZzl06Z/xeNRlNsodG0+PPfby10da5dTfhp2em0pKhInPni
xZ1dc5/rrw7c0rqzrQk3HTpkRIaH69Tnmqa/MmjM/sr0nt+fiAu0rcbxg796
Wr+xV/fJlgF3Fm8r1feOsPWLr69A7LDV2x+8OinevyPSp4UuoQLaz5PiW4Rf
EM+tfJL8z2sr8K/Q3/s3xuvF88iBA6Z8blGNQSWH917vdg7q+18Yu5uevyyH
m8t7+2MmXhO/r7x9YI99bBUWbrBwvnblqvj98Y9Lhp4JLEfsvuFdDS2vi99b
tgtpNalzFdKMEY6XPvpN/D7XJupktbEMAzbWb/D/44b4PXqP9o3NqkGY82zn
qPwTiDnUzmHB3mL9goGZ+6ILalBkHT9/wr4Y3SF6XhgNZ3ePOmR/1+LKwapY
XfKw0AX7Dz7R29+u3j9nWiV2uDxctXJyuvjuvV9GvT11Uhk6vmXIfZ6dLL57
tvaA4WBYDSx7rPTedyRJfLd2+PZemQtMsHOptHGZfV+8Z9aaldme3s/xtvSe
9iEjK4oyXsDq+1ut866mife07f/lgqyZFbjTZF+GeM/Y1MxjHZ2ewVmKQ6Zr
mu3bedWImb5g86bvMsR7rvX7WZvavxwT7ia7aVtmiffsHXX6s9gudfjRL+H3
6bGJSKU4nFtmv+lAu1LESeei3WETczimCjNfjAidEPxQvF/Nw3lx8ccehbx+
f2jgYbdM/5cinur7Ozol2fR4swSfSHkStsiUeMGpEoMrW6Ycn5Un3h90ONzR
Z19pM/u3+CUF9F9Yi76mnARtz2zx/mf9A7rscnyKRVLeWoxZujkyqgJfmZA4
skW+eL/r8l6ZE1wbkL/pbz075p5H8sL4IcNu5Ovve6zvdG5iAxqmb5m+0POU
7io9Pz52j3FQ8iss+6FVwpBJZ3Qeit96Y1NePW12Xkp8aqhODcLOB1lOteu/
LsaXUt3tK/r3obfyyhA0YZ3B4+xrO0vvmt5te7keq7ZOO/7y8W1hZ9t1D89P
HlCE96R8Sx0+2PedcdWwKdjwfG7ao9fnm5vQPaZVMbZLOJDieFP3ZOQzrJK+
26FPVfutl+vwwfo6myvW2eK7F7w7Xh0104hdUr2odVRfNiYi3vhYfLeufr3l
mpQiBEr41hhgZ8zKKIa3dC4ODbf7HXF7CacfenXumm8Q331e0NLknf5HM3wY
3C7r8puDKjB47ZyzHv2fiO9Gho78OjT0FcJf2U9/p+MNeNN5NZA9jYo9etWe
+vdtgrftN8JFysMu2dvDt/jWYNrL6NluEY+FPTZzE1LPnH4Mbwnf1Lq4pdgh
7DE14WEDPc8Q9qjnclc5F2FP3wepl36++BhTpbpLzf963dKPq2HnUWz7boBR
2JO9c++sTxsKYC/hc2SB+4biHU+bxcfLT3t12fh6RKzt1O3mPw3CnizKz1Al
P4U909Z4JWSPfISDEs6URRRPO5BjQtZRo+s7K4qEPQn3j14xRTeiyntno8u+
i7A6ph1+sSZZ7xlfZ/z0bCOGRn8YMd39rC7nqPKcGtmI1l90cu597KyusXCo
/4qdD4e7n4g92S6xAO5Vy+u8uv8o+pqah3K+qfhTR89Vv8oIH1Yr+CD8ym8Z
0tVxigEWEg6fXjjy7+kTyxFYPD5+z8ri1/kfOK2XxxuNOHR2g3+My13hlxp/
DyX+etVO7boI29+WFKCrVI8po95sN/+jGuge3V1TFFUo7LQmnJyi4KSw08Xm
m5Dg2lzU2Jr3naP9Qi7PnleKIMnOT9JX+JZlNMCz1H949c5cYWdXytsAJW/1
5nn7ZxwkvFL7uIpzqp0/Ub84o/QL/Wv+YPrHnOgcOEh92S7n/RmJYwuRLeVJ
/orDa7V29fhw3ObVnYsKhJ3lVO/5Sr0LO28NedZjqNd/muF/euOR8aMfVcCh
8dv6V69KhJ2fUb7RewVvGk/91EXpp8L+tmR/kWK/XrVfO/wvph7LC5rV3e6e
1xPDK2uRVDqmzb1RhcL+S5SfBxScFPa3fndF7mGnDERI/VHFDfqdsD+G+g79
X9g/h3iFtcIrhP0jKE/sFX4i7I/eez49xfV3TJVwbGZdt62/zH+BLYdLDYZT
T4X9Hai/9FH6i7A/ompU9Jzoe4iV+IOX5qdFQcOKm8U/nfopfU/Y/4D4VQfJ
/kKqxy5KPQr7p7VJGrM0NwN9pb6gdXyU0+e7Siwujx1/0PKZsJ/BH8ygfBhM
+ONGzw9SnJdQfw+jeJdS3t9TcFvEwaepfu6iPOXKpOKwazo1DmpfkOvFSPyT
fifiYCB+6yjl4SzC23MK3oo4XPT6IOFah3TYSX15xILardc2liM07tMQ47Dn
Ig4MXiGM+JW7wq+EX7vofO8o56tX/cqrzLixuHce9BJezSO+TfYJv+KI50dL
+DCY+pq30teEX7sXfmW5y/4mvpJ4zmrntobAkhJ8I/nF4BveMOelwq/2VHcx
VI+qX1b0vF7qF+o8pdaj6lctzTsuEj63/kDhD6MV/iD86jLj/tg91tdxSOKZ
TseHjY0veIIlUt4yeIhk4vNu0nllEh66Kngo/Gq7/HyJ58lbzfp7Is2VZLfw
i+FLaEPz4Gipb1oFKvzNR+Fvwt+e5K9TeJO/etXfqVbX89cMzMdWCWcY/EQH
moNuSHXXmvqTpfKv8Hce8bAbEr8yn5dfz80MH8Mumos/kvhPJvHkYIUnC39P
Ud7GKnkr/D2wxFiT1jcLiVJfYPAWjTQ/Wkt460f8oYfCH4S/Z1oVdrW0vIgg
id+G7vyjLD2xqNn5MnwP9qQPDJL45xHzeUT4m0L4M1rBH+FvoVvJ3XOVt+Eo
9XEGn8HMX0ilflFK81c2Pc8j/LxB83sO4agDzR1rpT6bSP3XoryprkXc0nYs
Xnco+BziDE5eucEpOjVuKs+U653hk1hNus1Ff/M5wormTS+pLrTUv4Yp/UvE
Tbd8XHCwWyLcJZ7G4DmYeRBvkX4SK/GlQ8T/hyj8X8QhmfLnhJI/ejUO/v1i
Nm/0y8FRCc8ZvoqNNL/bS7h3ifiGl8I3hL89inyn1y0/jSiJPzM4D2YOxQvi
pS4Sj7U0n7+Ev4GED3mEJ6q/C6mP35L6MsN74Ut6CKT+FUT80EHhh8Jfw51N
M/66ejdipTmIwX8w8y+iSH9LeWo+X4Dm3/7S+fYh/I9W6l346xv06yyf7b82
42MMfwajFyGHdKe1Ej8ZSDw/T+H5Ig4j0pQ4TJ7XFAe9GgemL4CZu/Eh1XtV
mXldd6M+3pLqXfU3mep9tsSfGb4NRr9CB9LrHseZ89JLNH+tUuYv4e82yvNf
lDwX/jJ9Acxcj/uk57SX8N9EfCxJqUfhr0HbyaLVqUi8OGo+7zD8HIyehvOk
c16wNZ8jLtFcHCD5W0g45q/gmPCX6QtgdAMwui4+J56ZRrruGXruTjxtKene
HnSeCg7UIL/xf395Im4OxM+J1+vNeYJGo+gOv+nU/zN8nuLaTN8T9tsMMJ8f
68jfdKkuuo9T4uOqxEfEjekLYHQJMLo0ouh8rSR+6Ev50FfJBxGHEYuU/Ol7
zEyX0TD8H4zeiEzKZ2sJDxMo/+8o+S/8ZfoCGH0DjH6OMKpfrczzzetd+FtG
+BAg5QEzF4DROWFHeDVa6nc+hG+7FHwT/jJ9AYxOAkbnxwHC58nSvJZDeN5L
Ot9thP/3yD7VX2ZeAKOvgtkHwZn6l43Ec8ZQv/NT+p2IA9MXwOgtYPYRaKR+
nSvVdTD190wznUWjYeYFMSdI+i2YfRa6ED+pWmfOh/cQnwlT+Izwl+kLYPQZ
MPsR3Cc+dkrC/43E306Z7Wk0GmZeAKMPg9nHoZz4p0aadyYSXw2R/GX6Ahg9
B8y+BsyeFOdpnp1Ke9IfzeaeZntSbCB8KCwz5wlfEv+faKaHajTMvABGfwaz
TwRo3rm/0XwuDqD5yFuqC6YvgNF/wOyPwOx/4UPzYJDEDyNofjxntm/WaJh5
AYy+DWYfink0/4ZKeMj0BTC6EJi9FZi9Nmpp3o+Q+H8bszwpE/4y84Lo95JO
DmZvixjSN05L/Y7pC2D0IjD7MjD7euwmPcdKmu9uUb2ckM6XmRfA6O1g9sso
Jf2qk8RnGPwHoxeB2ceBuW+A+cQDXaX6ZeYCMDq8wA1prw130httJH7L4DwY
XQjMXg/MvQj4Eu+NlPCc4f9g9Hkw+3RcJn3YU5pTGDwHo/+A2Q+Cub+BctJz
Lkh9meHnYPR2MPt3JJL+f2Gu+bzJ4C0YfQbMfhDM/RBkk351WuJXDN8Go7eD
2e9z+AlGbwGzNwRzLwVxtAfpKfPh/8+fwejqYO4JcHgIRj8Bs08Ecx8Gs2m/
E2q+V9YwfBiMfg7mvgGHb2B0DzD7RDD3bTgeC0b3BnMPgcMrMHoFmL0hmHs7
HP8Eo1eDuZ/A4Q8YnQHMfhDM/R+O74HRh8HcN+DwBMxcD2Z/B+b+D8fHwOi3
YO4bcHM3mL0bmHtBHF8Co6+CuVfAzcVg9mVg7gtxfAaM/gnm/gA3n4LZZ4G5
L8TpkGD2/tycCGavBOZeEKcHgtnXc/MamP0OmPs/nJ7G7ce5eQfMfgTM/RxO
v+L219w+Asy9Gk4v4vbInP4P5j4Mp89w+1xOVwdzX4Xbk3J6NZh7I9z+kdOB
wdzf4PZxnC4K5v4Dt88Cc6+A2weB2ddz+xRu383thbn9KbcfxH8BJsMy+g==

    "], Polygon3DBox[CompressedData["
1:eJw12XeUVuXZxeE5qIA0kRZ6h4g06XGQJoKADEVK6B2kD1JVQJAZQKpAwCAi
VXovAtJEUXqvIkVRemI+lRi/RI3hybmyFrPOb5/zvs+9977P/DMU6Zb84sA0
CQkJpx5KSHjwLyF68BP0//hh+hE63E9LB05HB07v8xGOfO5RnwufyeDZI/gR
38/oc+EzmdxLhzPQmX0ufCbLg5/HzAuclc7iXpjxuO+nw+nMyOascE5230mP
05uXw2cz4sfpnL4fvpvLdzLgDOb9zvcy4xx0bt8P383jO5lwJjPy+k5mnNm8
fDJmwVnMzu/ccGYBZ+TAeeiCzsqGs/FRyFnZcXaeCjs3nFnEWTlwDv6KOisn
zslHMWflwrn4KO7ccGYJZ+TFReiSD35+L2fgJ+iS7gWvpczLjXPz+qQ5BXAx
urTZYW4Z8/LivDKUdXYhXJIu5+zCuBRd3pwi+En6KfPCrArOLorL0BXNKYbL
0pXMKY7L0ZXNKYHL01XMC7OqmlMKV6CrmfMkrkj/wYziuDjfT5tRApfgO9Eu
SuKSfFfnI3h4xvxyuCpdw/zyuBpd0+zSuLQ8tcwug8vIU9vssrisPHX4CB6e
NbscLidnXbPL4/JyPmdmFVyTrmdmVVyLrm92RVxRnuf5CB4amF0JV5KzodmV
cWU5Gz34eUG/gRvTjdwLmZN4rI6fo5vw+AyuRzflrxquJn8zXoPP5nzVxA3o
F/mqhRvSLXipjRvRLfmqg5PoVnw9i5vQrXmpi5vSf+QveGvDU01cU+a2PNXC
tWRux1NtXFv+9jzVwXXk78BXA9yK7shXQ9ya7sRf8NaZlyTchu7CUz1cT+au
PNXH9WXuxksz3J7uzlMD3EAXPXhqiBvqoqddtMCN6V58B88v8ZqEk/TSm9cm
uIku+vDaFDfVRV9em+FmeunHa3PcXC/9eWyLe9ADeG2BW+hoIN/BczKvLXFL
HQ3itRVupa+XeeyI+9CDeeyE+9JDeG2D2+hoKL9dcH96GK/tcDsdDec7eB7B
YzecTL/CY3c8iH6V3x74Zfo1e+yJR9KBR9GjZeqFB9Ovy9MZd9bjGJl646H0
WHm64q66e0O2kGucTH3xCDpFpn74FTpVpv74VXq8DD1xT51OkGMgHk1P5D0Z
v06/KUNv3Funk2Tog/vodLI8IcsUOQbjcfRUOYbgFHqaDP1xf91Nl2EAHqDH
t+QYjifQM2RIxsl6nCnDIDxIj7N4fxVPov8kT8gyW47ReAo9R4YheIju3uZ9
DJ5G/1mGYXiYHufKMBwP1+M7MozAI/Q4j/cUPJN+V45UPIuenxC/D+PxKPo9
OUPGBfJNwLPphTJNxHPoRfK9id+mF8s2Fo/V6RKZJuO59FKZpuB36PdlS8Ep
ul4mWypO1e9y+abj+fQKOUPGlbJNwBP0vkq+GXghvVq+mXgRvUamWXgxvVa2
yXiyftfJNxsvpdfLNhVP1e8G2abhafrdKNt0PF3Xm+QMGTfLNBevpLfINgPP
0PVW2WbimXr/QLZZeJbetz342Z4Qv0OBd9Db3Au9fyj3e3gtvVMHC/A6epfc
C/F6erfci/AGeo/ci/FGeq8O0uBwfRhv8uwj3SzBm+l9+liKt9Af62Uenmdn
n+hjGf6A3q+D5Xgb/ak+VuAP6c90sQAvsLMDuliIF9rfQX2sxrvpQ/pYg/fQ
h2Vdiz+ij8i6Du+jj8q3Hn9MH5NzGV5mH8dl3Yj30yfkXIFX2MFJOVfilXZw
Sr4t+AB9Wtat+CB9Rs41eI0dnJVzLV6r63NyrsPr9H5ezvV4vd4vyLkBb9D1
RTk34o26/lzOTTi8cw/jTfQlmTfjzfbxhdz78Cn6ssxb8Vb7uCLrJ/gMfTUh
ft/24x30NR18is/SX+piJ95pN1/pYhfeZR/XdbEb77aPr3WxB++xm2/kO4wv
0TdkPYK/oG/KdxRfpm/JegxfoW/Lehxfpe/IegJfo+/KdxJ/Sd+T8wA+YAd/
kfMgPmgff5XzED5kB9/KeRgf1vXfZD2Hb9D/J+dRfFTv38l6Ad+iv5f1Ir5N
/yDnCRyu4b27L+dJfNIO/i7nKXzKDn6U8zQ+bQf/kPMMPmMHPz34+f+E+D0L
/E/6J/fCPv6li7P4rH38rItz+Jx9/KKL8/i83fyqiwv4gt38WxcX8UW7+S0h
/v17DIdrVvyDfn5zDZ8Lf0S9r5/Al+wyiuJubuC/6ypNFHdzE/+oq4eiuKMr
+Ir9PRzFfdzGP+nnkSju4w7+l37SRnEfd/HP+kkXxX3cw7/oJ30U93IdX7fL
R6O4j7/if+snQxTn+xYn0BmjOOvfcERniuKcN/FNe8ocxTlv4Vv2lCWKc97G
t+3psSjOeQffsY+sUZz1Pk5LPx7FOe/hcA07yBbF+X7E6ensUZz1H/hROkcU
5/wWf+t9zBnFWX/GGelcUZzvF5yJ/l0U5/wOf+d9zB3FOb/H33sf80Rxzh/w
b97DPO4FnTeKM9/H972D+aI4c8ibzzXsI38UZw7Z87uG3RSI4swhewHXsJuC
Ufy7Gd65gt69sJtCUdxF6KGQa9hNYe9bWpyTLuJ9C/sInIsuGsVd/Ip/9Q4W
8749inPTxb1vYR+B89IlZI5wZB8lZU6D09jH72V+CD9kN09497LggnQp795j
uBD9pJxpcVr7KC1nOpzOPsp437LhonRZ71t2XIwuJ2cGnEHv5eXMiDPq+in5
cuGSdAU5M+PMeq8oa278BF1J1jy4FF1Zzqw4qx1UkS8fLk1XlTMbzmYf1eTM
jrPbxx+i+H0riJ+mAyfS1XVQCJejn9FFTpzTbmroIhfOZTc1dVAUV6Br6SI3
zm0ftaP49y/8f0dt3WTF4d4TuJJndXSUF+e1y2d1lA/ns8u6OsqP89vfczoq
gAvYZT0dFcSJdD33wi7r66kUrk4/r6PCuLC9NtBNaVyDbqijoriovTbSUTFc
zF5fkLk4Lm5PjWUtj5+lk2R9Ctelm8haAT9HN5WvIq5HN9VD0M3kroTr081l
rYyfp1+UuTQubU8tZK2KG9ItZa2GG9GtZK2OX6Bby/0Mbkz/Ue4aOIluI3MF
XMEO2spdCzel28oedDuZK+HwXob3s517QbeXvzKubGcd5K+Cq9hTRx3UxS3o
TvJXw9XsqbP81XF1O+iig+dxa7qr/DVwDfvoJn9NXNMOusvbFrfVSXfXsI8e
stXBdeyjp0yNcQe6l3xJuCP9kkxNcCe6t0zNcGe6j3zNcRe6r2wNcANd95Op
Be5G95exO+4uV3/X0PsAmVrhHvRA+VrjnnSybEk4Se+DZGuCm+j9Zfna4d70
YNma4+a6HiJTB9yXHipfR9yPHiZPS9xSv8NkD8+Gy9YKt9L1CPm64IH0KzJ1
xcn0qzJ1w4Po16L49yP8v17gcG2M23n2mvxBj5S5PW6v91Eyd8Ad9D5a5o64
ox28Lmcn3MkOXpc9PBsjc2fc2Q7Gyt0Hj6DfkLkr7moH42TuhrvZQQrvA/BI
OpX3gXgUPV6GXriXfifw/RJ+Sb8TZAnPJvL+Mh5DvynHYDyWniRDX9xXv5Nl
6If76XeKHMNxCj1VjhE4lZ4mQzJO1t10vgfhRHq6e6HHt6L4nQjvyVsyveb+
RHqGPIPxYP3OlGMUnkTPkmcoHqrrP8kzHA/X3WyZxuKp9Bw53sDT6Ld5H4cT
ZXrbNTz7M68j8Ug9zuU3Fc+k3+F1NB6t03m8jsFj9PIur2PxWB3N53cSnkO/
x984PE5H7/Efni3gNQWn6Gshr6k4VUeLeB2Px+toMa8T8UT7XMLjDPwuvZTf
mXg+/T6Ps3Aiv++7hmfLeJ2Cp+hrOa9T8VR9reBxDl5Er4zidzD8n2PgcB2F
F/O/0jV8bpUcoa9V8gS9Wo65eCm9hv/38SzdrXEv6LW8z8PL6HUyzMazdbde
jvl4Bb2BrwV4Fb2Rp7l4ro428bIIJ/K1yTU828zTPDxPL1t4WYLX0Vt5mo/n
6+IDnhbgBXJu42U53khv52sFTuRru2t4toOnxTjsKexuh3tBf8jfErxELzv5
W4qX6mgXf8vwMvl387ccL5d5D2/b8Qr597gX9F6zV+FVuvjI7NV4tfz7zF6L
18r5sZlb8G76Ex724D08fOIacu438wO8l/7U7I14o5yfmbkD76MPmL0Fb5Ht
oDk7caL5B13Ds0Pm78L76cNmb8PbZDtiftjpET52uB/ubXc/XMPfPY/yErId
5S/oY3x9hA/Sx/gM+jhf+/Ah+gQvH+PD9Ekz9uK98pwy51N8jD5lVtCnzfkM
H6fPmHMAn6DPOvsQPkmfM+cwPkWfMyvo8+Ycwf/tNCHm055dMO8APiDbRTOP
47P0584/hw/z+rl7QV9y1lF8lO8vnHUcH+fjsu+fwIn0ZfeCvyvOOIsv0Ved
cR5/QV9zzmV82TnXXIO/L513EV+hv9JT+Lt64HD9J75q1leu4XPXnRc8XTf3
Gr7m2ddmXMQXef3G56/jS3x8417QN3z2Kv6avumzX+Jv6JvODPqW71zFwXfI
csu9oG8742uc6IzbruHZHc9v4ETP77iGZ3c9v4Xv0Hd9Puh75j+Nn/bsnu+F
Z/fcu+v+Xc/+A0uvcYs=
     "]]]},
  Boxed->False]], "Output",
 CellLabel->"Out[31]=",ExpressionUUID->"198cd35f-59e0-4929-94f7-0312fe48163d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Running the test suite", "Subsubsection",
 CellChangeTimes->{{3.815792020841206*^9, 
  3.815792025821005*^9}},ExpressionUUID->"fe3eb117-ee5c-495e-873d-\
0e583133b946"],

Cell[TextData[{
 StyleBox["OpenCascadeLink",
  FontSlant->"Italic"],
 " comes with a test suite to check that changes made are compatible with \
previous versions of the link."
}], "Text",
 CellChangeTimes->{{3.8166589577107277`*^9, 
  3.816659005332267*^9}},ExpressionUUID->"23ccc69e-92f7-4964-acb9-\
f33751953da7"],

Cell[TextData[{
 "Load the test suite functionality provided by ",
 StyleBox["MUnit",
  FontSlant->"Italic"],
 "."
}], "Text",ExpressionUUID->"b8e595c5-1086-49cb-b726-853c46473db9"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<MUnit`\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"243a98e9-d819-4688-bffc-e3d8ab688be3"],

Cell["\<\
Run the test suite with the new paclet and store the results.\
\>", "Text",ExpressionUUID->"44d56105-93e4-4a36-9ce2-8612beef2c1b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"testResults", "=", 
  RowBox[{"TestSuiteReport", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Tests\>\""}], "}"}],
      "]"}], ",", 
    RowBox[{"Initialization", ":>", 
     RowBox[{"PacletDirectoryLoad", "[", "pacletDir", "]"}]}]}], 
   "]"}]}]], "Input",ExpressionUUID->"1226e2bf-ea85-43ca-a9ef-49d46611ac16"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["TestSuiteReportObject", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{
       Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
       TemplateBox[{
         TemplateBox[{
           PaneSelectorBox[{False -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxOpener"]], 
                   ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                   None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                   "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                 GraphicsBox[{
                   InsetBox[
                    BoxData[
                    FormBox[
                    PaneBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "MUnitExpressions", "TestFailureIcon"]], Alignment -> 
                    Center, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], TraditionalForm]]]}, 
                  PlotRange -> {{0, 1}, {0, 1}}, Background -> 
                  GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                  FrameStyle -> Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.55]]], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Success rate: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"98", "\"%\""}, "RowDefault"], 
                    "SummaryItem"]}], 
                    RowBox[{
                    TagBox["\"Tests run : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["619", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Test files : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["7", "SummaryItem"]}], ""}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
                AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 PaneBox[
                  ButtonBox[
                   DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxCloser"]], 
                   ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                   None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                   "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                 GraphicsBox[{
                   InsetBox[
                    BoxData[
                    FormBox[
                    PaneBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "MUnitExpressions", "TestFailureIcon"]], Alignment -> 
                    Center, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], TraditionalForm]]]}, 
                  PlotRange -> {{0, 1}, {0, 1}}, Background -> 
                  GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                  FrameStyle -> Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.55]]], 
                 GridBox[{{
                    RowBox[{
                    TagBox["\"Success rate: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"98", "\"%\""}, "RowDefault"], 
                    "SummaryItem"]}], 
                    RowBox[{
                    TagBox["\"Tests run : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["619", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Test files : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["7", "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Succeeded : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["607", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Failed : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["12", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox[
                    "\"Failed with wrong result : \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["12", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox[
                    "\"Failed with messages : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox[
                    "\"Failed with errors : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["0", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Time elapsed : \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"1", "33.4`", 
                    RowBox[{"\[ThinSpace]", "\"min\""}], 
                    RowBox[{"\[ThinSpace]", "\"s\""}], "minutes,seconds", 
                    RowBox[{"{", 
                    RowBox[{"\"Minutes\"", ",", "\"Seconds\""}], "}"}]}, 
                    "QuantityMixedUnit2"], "SummaryItem"]}], 
                    "\[SpanFromLeft]"}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
                AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
          "SummaryPanel"], 
         ButtonBox[
          DynamicBox[
           ToBoxes[
            If[
             
             Or[$VersionNumber < 11.2, CurrentValue["RunningEvaluator"] =!= 
              "Local"], 
             Style["This object cannot be used as input.", "SummaryEmbed"], 
             BoxForm`EmbedSummaryLabel[
             MUnit`TestSuiteReportObject, 10809952, 
              Dynamic[Typeset`embedState$$], Automatic]], StandardForm]], 
          ButtonFunction :> 
          BoxForm`EmbedSummaryInterpretation[
           "Choose", MUnit`TestSuiteReportObject, 10809952, 
            11565335673849227496779197956417208480509917914138321354448, 
            EvaluationBox[], 
            Dynamic[Typeset`embedState$$], StandardForm, 
            ElisionsDump`embedSummaryBoxes], DefaultBaseStyle -> 
          "SummaryEmbedButton", ImageSize -> Inherited, 
          BaseStyle -> {"DialogStyle"}, Enabled -> Dynamic[
            
            And[$VersionNumber >= 11.2, CurrentValue["RunningEvaluator"] === 
             "Local", Typeset`embedState$$ === "Ready"]], Appearance -> 
          Inherited, Method -> Inherited, Evaluator -> Automatic]}, 
        "SummaryEmbedGrid"], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->(
    "TestSuiteReportObject[<|Results -> \
<|/home/ruebenko/wri_git/OpenCascadeLink/Tests/OpenCascadeLink_Bugs.mt -> \
TestReportObject[<|Title -> Test Report: OpenCascadeLink_Bugs.mt, Aborted -> \
False, TestResults -> <|5515008055287376487 -> TestResultObject[<|TestKey -> \
5515008055287376487, <<16>>|>], <<9>>|>, <<3>>, TestsFailedWithErrorsKeys -> \
{}|>], <<6>>|>, TotalTimeElapsed -> <<16>>s|>]"& )],
  False,
  BoxID -> 11565335673849227496779197956417208480509917914138321354448,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[5]=",ExpressionUUID->"ae8a15a6-cebc-42df-ad52-b8f89c41d3e6"]
}, Open  ]],

Cell["Inspect the number of failed tests.", "Text",
 CellChangeTimes->{{3.816659169069784*^9, 
  3.816659177639926*^9}},ExpressionUUID->"f3e6600d-9fcf-446e-b62f-\
9bb2d24e7464"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"testResults", "[", "\"\<TotalTestsFailedCount\>\"", "]"}]], "Input",\

 CellLabel->"In[27]:=",ExpressionUUID->"0aa55af7-295d-435a-b028-92da4a18524f"],

Cell[BoxData["12"], "Output",
 CellLabel->"Out[27]=",ExpressionUUID->"da012aa9-5eec-416b-8cd4-1ccc49bd1017"]
}, Open  ]],

Cell["\<\
Define a utility function to easily extract a failed test from the test \
results.\
\>", "Text",
 CellChangeTimes->{{3.816659195559901*^9, 
  3.816659228602191*^9}},ExpressionUUID->"b4bb07a5-fe72-4516-988a-\
ec4ab0ca2bee"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetFailedTest", "[", "testsuitereport_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"testsFailed", "=", 
       RowBox[{"Cases", "[", 
        RowBox[{
         RowBox[{"testsuitereport", "[", "\"\<TestsFailed\>\"", "]"}], ",", 
         "_TestResultObject", ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     "testsFailed"}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GetFailedTest", "[", 
   RowBox[{"testsuitereport_", ",", "index_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "failedTests", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"failedTests", "=", 
      RowBox[{"GetFailedTest", "[", "testsuitereport", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Max", "[", "index", "]"}], ">", 
        RowBox[{"Length", "[", "failedTests", "]"}]}], ",", 
       RowBox[{"Return", "[", 
        RowBox[{"$Failed", ",", "Module"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"failedTests", "[", 
      RowBox[{"[", "index", "]"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"e7f887ee-5d1f-4df3-80f3-55dfa0ac0f2f"],

Cell["Get the first failed test.", "Text",
 CellChangeTimes->{{3.8166592553015747`*^9, 
  3.816659267722282*^9}},ExpressionUUID->"dfc2878e-3c61-4bff-bc99-\
8c58b17381e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"failedTest", "=", 
  RowBox[{"GetFailedTest", "[", 
   RowBox[{"testResults", ",", "1"}], "]"}]}]], "Input",
 CellLabel->"In[30]:=",ExpressionUUID->"462a49ca-f68d-4de3-bbbb-eacf790769c6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["TestResultObject",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              InsetBox[
               BoxData[
                FormBox[
                 PaneBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "MUnitExpressions", "TestFailureIcon"]], Alignment -> 
                  Center, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], TraditionalForm]]]}, 
             PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], 
             Axes -> False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], Frame -> True, FrameTicks -> None, 
             FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Outcome: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Failure\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Test ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  PaneSelectorBox[{
                   False -> TagBox[
                    "\"OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674\"",
                     HoldForm], True -> StyleBox[
                    TagBox[
                    TagBox[
                    TooltipBox[
                    TagBox[
                    "\"OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674\"",
                     HoldForm], "\"Copy to clipboard.\"", LabelStyle -> 
                    "TextStyling"], 
                    Annotation[#, "Copy to clipboard.", "Tooltip"]& ], 
                    EventHandlerTag[{"MouseClicked" :> CopyToClipboard[
                    Unevaluated[
                    "OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674"]],
                     Method -> "Preemptive", PassEventsDown -> Automatic, 
                    PassEventsUp -> True}]], Background -> GrayLevel[0.85], 
                    StripOnInput -> False]}, 
                   Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                   FrameMargins -> 0], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              InsetBox[
               BoxData[
                FormBox[
                 PaneBox[
                  DynamicBox[
                   FEPrivate`FrontEndResource[
                   "MUnitExpressions", "TestFailureIcon"]], Alignment -> 
                  Center, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], TraditionalForm]]]}, 
             PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], 
             Axes -> False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}], Frame -> True, FrameTicks -> None, 
             FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Outcome: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Failure\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Test ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  PaneSelectorBox[{
                   False -> TagBox[
                    "\"OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674\"",
                     HoldForm], True -> StyleBox[
                    TagBox[
                    TagBox[
                    TooltipBox[
                    TagBox[
                    "\"OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674\"",
                     HoldForm], "\"Copy to clipboard.\"", LabelStyle -> 
                    "TextStyling"], 
                    Annotation[#, "Copy to clipboard.", "Tooltip"]& ], 
                    EventHandlerTag[{"MouseClicked" :> CopyToClipboard[
                    Unevaluated[
                    "OpenCascadeLink_Docs_BooleanOperations-20200311-\
Difference-ShapeType-regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674"]],
                     Method -> "Preemptive", PassEventsDown -> Automatic, 
                    PassEventsUp -> True}]], Background -> GrayLevel[0.85], 
                    StripOnInput -> False]}, 
                   Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                   FrameMargins -> 0], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Input: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  PaneBox[
                   TagBox[
                    PaneSelectorBox[{False -> RowBox[{
                    RowBox[{"shape", "=", 
                    RowBox[{"OpenCascadeShapeDifference", "@@", 
                    RowBox[{"OpenCascadeShape", "/@", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"regionUnionPolyhedron", "\[Rule]", 
                    InterpretationBox[
                    RowBox[{
                    TagBox["Polyhedron", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{Typeset`open$$ = False, 
                    Typeset`embedState$$ = "Ready", Typeset`spolyhedron$$ = 
                    Quiet[
                    Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]]}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource["FEBitmaps", 
                    "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = 
                    True), Appearance -> None, BaseStyle -> {}, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> Dynamic[{5.25, 3.5} (
                    CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])], Boxed -> False, Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Top}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], 
                    True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxCloser"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                    "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> Dynamic[{5.25, 3.5} (
                    CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])], Boxed -> False, Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Embedding dimension: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Quiet[
                    Apply[Region`PolyhedronDump`polyhedronType, 
                    Region`PolyhedronDump`computeType[
                    Typeset`spolyhedron$$]]], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> AnimatorBox[0, {0, Infinity}, 
                    AppearanceElements -> "ProgressSlider", ImageSize -> 20]],
                     "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Bounds: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iRegionBounds[
                    Typeset`spolyhedron$$], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> AnimatorBox[0, {0, Infinity}, 
                    AppearanceElements -> "ProgressSlider", ImageSize -> 20]],
                     "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Volume: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iVolume[Typeset`spolyhedron$$], 
                    StandardForm], SynchronousUpdating -> False, 
                    TrackedSymbols :> {}, CachedValue :> AnimatorBox[
                    0, {0, Infinity}, AppearanceElements -> "ProgressSlider", 
                    ImageSize -> 20]], "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Top}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}], Selectable -> False, Editable -> False, 
                    SelectWithContents -> True]}], ",", 
                    RowBox[{"Ellipsoid", "\[Rule]", 
                    RowBox[{"Ellipsoid", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"5", ",", "2", ",", "3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], "}"}]}], 
                    "]"}]}]}], "]"}]}]}]}], ";", 
                    RowBox[{"numOfSolids", "=", 
                    
                    RowBox[{"OpenCascadeShapeNumberOfSolids", "[", "shape", 
                    "]"}]}], ";", 
                    RowBox[{"solids", "=", 
                    RowBox[{"OpenCascadeShapeSolids", "[", "shape", "]"}]}], 
                    ";", 
                    RowBox[{"bmesh", "=", 
                    
                    RowBox[{"OpenCascadeShapeSurfaceMeshToBoundaryMesh", "[", 
                    "shape", "]"}]}], ";", 
                    RowBox[{"result", "=", 
                    RowBox[{"Association", "[", "]"}]}], ";", 
                    RowBox[{
                    RowBox[{"result", "[", "\"CompoundQ\"", "]"}], "=", 
                    RowBox[{
                    RowBox[{"OpenCascadeShapeType", "[", "shape", "]"}], 
                    "===", "\"Compound\""}]}], ";", 
                    RowBox[{
                    
                    RowBox[{"result", "[", 
                    "\"OpenCascadeShapeNumberOfSolids\"", "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"3", "\[LessEqual]", "2"}], "]"}], "||", 
                    "False"}], ",", 
                    RowBox[{
                    RowBox[{"numOfSolids", "===", "0"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "numOfSolids"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "0"}]}], "]"}]}], ",", 
                    
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"numOfSolids", ">", "0"}], "]"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "numOfSolids"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"Greater than 0\""}]}], "]"}]}]}], "]"}]}], ";", 
                    RowBox[{
                    
                    RowBox[{"result", "[", "\"OpenCascadeShapeSolids\"", 
                    "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"3", "\[LessEqual]", "2"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"solids", "===", 
                    RowBox[{"{", "}"}]}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "solids"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    RowBox[{"{", "}"}]}]}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"AllTrue", "[", 
                    RowBox[{"solids", ",", "OpenCascadeShapeExpressionQ"}], 
                    "]"}], "===", "True"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "solids"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"AllTrue[solids, OpenCascadeShapeExpressionQ]\""}]}], 
                    "]"}]}]}], "]"}]}], ";", 
                    RowBox[{
                    RowBox[{"result", "[", "\"ElementMesh\"", "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{"False", ",", 
                    RowBox[{
                    RowBox[{"bmesh", "===", "$Failed"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "bmesh"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "$Failed"}]}], "]"}]}],
                     ",", 
                    RowBox[{
                    RowBox[{"groups", "=", 
                    
                    RowBox[{"bmesh", "[", "\"BoundaryElementMarkerUnion\"", 
                    "]"}]}], ";", 
                    RowBox[{"temp", "=", 
                    RowBox[{"Most", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"0", ",", "1", ",", 
                    FractionBox["1", 
                    RowBox[{"Length", "[", "groups", "]"}]]}], "]"}], "]"}]}],
                     ";", 
                    RowBox[{"colors", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"BrightBands\"", "]"}], "[", 
                    "#1", "]"}], "&"}], ")"}], "/@", "temp"}]}], ";", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"head", "=", 
                    RowBox[{"Head", "[", 
                    RowBox[{"bmesh", "[", 
                    RowBox[{"\"Wireframe\"", "[", 
                    RowBox[{"\"MeshElementStyle\"", "\[Rule]", 
                    RowBox[{"FaceForm", "/@", "colors"}]}], "]"}], "]"}], 
                    "]"}]}], ")"}], "===", "Graphics3D"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "head"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "Graphics3D"}]}], 
                    "]"}]}]}]}], "]"}]}], ";", "result"}], True -> StyleBox[
                    TagBox[
                    TagBox[
                    TooltipBox[
                    RowBox[{
                    RowBox[{"shape", "=", 
                    RowBox[{"OpenCascadeShapeDifference", "@@", 
                    RowBox[{"OpenCascadeShape", "/@", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"regionUnionPolyhedron", "\[Rule]", 
                    InterpretationBox[
                    RowBox[{
                    TagBox["Polyhedron", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{Typeset`open$$ = False, 
                    Typeset`embedState$$ = "Ready", Typeset`spolyhedron$$ = 
                    Quiet[
                    Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]]}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (
                    Typeset`open$$ = True), Appearance -> None, 
                    BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                    "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> Dynamic[{5.25, 3.5} (
                    CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])], Boxed -> False, Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Top}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], 
                    True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (
                    Typeset`open$$ = False), Appearance -> None, 
                    BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                    "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> Dynamic[{5.25, 3.5} (
                    CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])], Boxed -> False, Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Embedding dimension: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Quiet[
                    Apply[Region`PolyhedronDump`polyhedronType, 
                    Region`PolyhedronDump`computeType[
                    Typeset`spolyhedron$$]]], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> AnimatorBox[0, {0, Infinity}, 
                    AppearanceElements -> "ProgressSlider", ImageSize -> 20]],
                     "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Bounds: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iRegionBounds[
                    Typeset`spolyhedron$$], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> AnimatorBox[0, {0, Infinity}, 
                    AppearanceElements -> "ProgressSlider", ImageSize -> 20]],
                     "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Volume: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iVolume[Typeset`spolyhedron$$], 
                    StandardForm], SynchronousUpdating -> False, 
                    TrackedSymbols :> {}, CachedValue :> AnimatorBox[
                    0, {0, Infinity}, AppearanceElements -> "ProgressSlider", 
                    ImageSize -> 20]], "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Top}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}], Selectable -> False, Editable -> False, 
                    SelectWithContents -> True]}], ",", 
                    RowBox[{"Ellipsoid", "\[Rule]", 
                    RowBox[{"Ellipsoid", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"5", ",", "2", ",", "3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], "}"}]}], 
                    "]"}]}]}], "]"}]}]}]}], ";", 
                    RowBox[{"numOfSolids", "=", 
                    
                    RowBox[{"OpenCascadeShapeNumberOfSolids", "[", "shape", 
                    "]"}]}], ";", 
                    RowBox[{"solids", "=", 
                    RowBox[{"OpenCascadeShapeSolids", "[", "shape", "]"}]}], 
                    ";", 
                    RowBox[{"bmesh", "=", 
                    
                    RowBox[{"OpenCascadeShapeSurfaceMeshToBoundaryMesh", "[", 
                    "shape", "]"}]}], ";", 
                    RowBox[{"result", "=", 
                    RowBox[{"Association", "[", "]"}]}], ";", 
                    RowBox[{
                    RowBox[{"result", "[", "\"CompoundQ\"", "]"}], "=", 
                    RowBox[{
                    RowBox[{"OpenCascadeShapeType", "[", "shape", "]"}], 
                    "===", "\"Compound\""}]}], ";", 
                    RowBox[{
                    
                    RowBox[{"result", "[", 
                    "\"OpenCascadeShapeNumberOfSolids\"", "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"3", "\[LessEqual]", "2"}], "]"}], "||", 
                    "False"}], ",", 
                    RowBox[{
                    RowBox[{"numOfSolids", "===", "0"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "numOfSolids"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "0"}]}], "]"}]}], ",", 
                    
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"numOfSolids", ">", "0"}], "]"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "numOfSolids"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"Greater than 0\""}]}], "]"}]}]}], "]"}]}], ";", 
                    RowBox[{
                    
                    RowBox[{"result", "[", "\"OpenCascadeShapeSolids\"", 
                    "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"TrueQ", "[", 
                    RowBox[{"3", "\[LessEqual]", "2"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"solids", "===", 
                    RowBox[{"{", "}"}]}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "solids"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    RowBox[{"{", "}"}]}]}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"AllTrue", "[", 
                    RowBox[{"solids", ",", "OpenCascadeShapeExpressionQ"}], 
                    "]"}], "===", "True"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "solids"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"AllTrue[solids, OpenCascadeShapeExpressionQ]\""}]}], 
                    "]"}]}]}], "]"}]}], ";", 
                    RowBox[{
                    RowBox[{"result", "[", "\"ElementMesh\"", "]"}], "=", 
                    RowBox[{"If", "[", 
                    RowBox[{"False", ",", 
                    RowBox[{
                    RowBox[{"bmesh", "===", "$Failed"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "bmesh"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "$Failed"}]}], "]"}]}],
                     ",", 
                    RowBox[{
                    RowBox[{"groups", "=", 
                    
                    RowBox[{"bmesh", "[", "\"BoundaryElementMarkerUnion\"", 
                    "]"}]}], ";", 
                    RowBox[{"temp", "=", 
                    RowBox[{"Most", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"0", ",", "1", ",", 
                    FractionBox["1", 
                    RowBox[{"Length", "[", "groups", "]"}]]}], "]"}], "]"}]}],
                     ";", 
                    RowBox[{"colors", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ColorData", "[", "\"BrightBands\"", "]"}], "[", 
                    "#1", "]"}], "&"}], ")"}], "/@", "temp"}]}], ";", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"head", "=", 
                    RowBox[{"Head", "[", 
                    RowBox[{"bmesh", "[", 
                    RowBox[{"\"Wireframe\"", "[", 
                    RowBox[{"\"MeshElementStyle\"", "\[Rule]", 
                    RowBox[{"FaceForm", "/@", "colors"}]}], "]"}], "]"}], 
                    "]"}]}], ")"}], "===", "Graphics3D"}], "||", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "head"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "Graphics3D"}]}], 
                    "]"}]}]}]}], "]"}]}], ";", "result"}], 
                    "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], 
                    Annotation[#, "Copy to clipboard.", "Tooltip"]& ], 
                    EventHandlerTag[{"MouseClicked" :> CopyToClipboard[
                    
                    Unevaluated[$CellContext`shape = 
                    Apply[OpenCascadeLink`OpenCascadeShapeDifference, 
                    Map[
                    OpenCascadeLink`OpenCascadeShape, \
<|$CellContext`regionUnionPolyhedron -> Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}], Ellipsoid -> 
                    Ellipsoid[{0, 0, 0}, {{5, 2, 3}, {2, 3, 2}, {3, 2, 
                    5}}]|>]]; $CellContext`numOfSolids = 
                    OpenCascadeLink`OpenCascadeShapeNumberOfSolids[$\
CellContext`shape]; $CellContext`solids = 
                    OpenCascadeLink`OpenCascadeShapeSolids[$CellContext`shape]\
; $CellContext`bmesh = 
                    OpenCascadeLink`OpenCascadeShapeSurfaceMeshToBoundaryMesh[\
$CellContext`shape]; $CellContext`result = <||>; $CellContext`result[
                    "CompoundQ"] = 
                    OpenCascadeLink`OpenCascadeShapeType[$CellContext`shape] === 
                    "Compound"; $CellContext`result[
                    "OpenCascadeShapeNumberOfSolids"] = If[
                    Or[
                    TrueQ[3 <= 2], False], 
                    
                    Or[$CellContext`numOfSolids === 0, <|
                    "Actual" -> $CellContext`numOfSolids, "Expected" -> 0|>], 
                    
                    Or[
                    TrueQ[$CellContext`numOfSolids > 0], <|
                    "Actual" -> $CellContext`numOfSolids, "Expected" -> 
                    "Greater than 0"|>]]; $CellContext`result[
                    "OpenCascadeShapeSolids"] = If[
                    TrueQ[3 <= 2], 
                    
                    Or[$CellContext`solids === {}, <|
                    "Actual" -> $CellContext`solids, "Expected" -> {}|>], 
                    Or[
                    AllTrue[$CellContext`solids, 
                    OpenCascadeLink`OpenCascadeShapeExpressionQ] === True, <|
                    "Actual" -> $CellContext`solids, "Expected" -> 
                    "AllTrue[solids, OpenCascadeShapeExpressionQ]"|>]]; \
$CellContext`result["ElementMesh"] = If[False, 
                    
                    Or[$CellContext`bmesh === $Failed, <|
                    "Actual" -> $CellContext`bmesh, 
                    "Expected" -> $Failed|>], $CellContext`groups = \
$CellContext`bmesh["BoundaryElementMarkerUnion"]; $CellContext`temp = Most[
                    Range[
                    0, 1, 1/
                    Length[$CellContext`groups]]]; $CellContext`colors = 
                    Map[ColorData["BrightBands"][#]& , $CellContext`temp]; 
                    Or[($CellContext`head = Head[
                    $CellContext`bmesh[
                    "Wireframe"[
                    "MeshElementStyle" -> Map[
                    FaceForm, $CellContext`colors]]]]) === Graphics3D, <|
                    "Actual" -> $CellContext`head, "Expected" -> 
                    Graphics3D|>]]; $CellContext`result]], Method -> 
                    "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> 
                    True}]], Background -> GrayLevel[0.85], StripOnInput -> 
                    False]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], Short[#, 
                    Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, 
                   BaselinePosition -> Baseline, ContentPadding -> False, 
                   FrameMargins -> 0, StripOnInput -> True], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Expected output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  PaneBox[
                   TagBox[
                    PaneSelectorBox[{False -> RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"CompoundQ\"", "\[Rule]", "True"}], ",", 
                    
                    RowBox[{"\"OpenCascadeShapeNumberOfSolids\"", "\[Rule]", 
                    "True"}], ",", 
                    RowBox[{"\"OpenCascadeShapeSolids\"", "\[Rule]", "True"}],
                     ",", 
                    RowBox[{"\"ElementMesh\"", "\[Rule]", "True"}]}], "]"}], 
                    True -> StyleBox[
                    TagBox[
                    TagBox[
                    TooltipBox[
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"CompoundQ\"", "\[Rule]", "True"}], ",", 
                    
                    RowBox[{"\"OpenCascadeShapeNumberOfSolids\"", "\[Rule]", 
                    "True"}], ",", 
                    RowBox[{"\"OpenCascadeShapeSolids\"", "\[Rule]", "True"}],
                     ",", 
                    RowBox[{"\"ElementMesh\"", "\[Rule]", "True"}]}], "]"}], 
                    "\"Copy to clipboard.\"", LabelStyle -> "TextStyling"], 
                    Annotation[#, "Copy to clipboard.", "Tooltip"]& ], 
                    EventHandlerTag[{"MouseClicked" :> CopyToClipboard[
                    
                    Unevaluated[<|
                    "CompoundQ" -> True, "OpenCascadeShapeNumberOfSolids" -> 
                    True, "OpenCascadeShapeSolids" -> True, "ElementMesh" -> 
                    True|>]], Method -> "Preemptive", PassEventsDown -> 
                    Automatic, PassEventsUp -> True}]], Background -> 
                    GrayLevel[0.85], StripOnInput -> False]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], Short[#, 
                    Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, 
                   BaselinePosition -> Baseline, ContentPadding -> False, 
                   FrameMargins -> 0, StripOnInput -> True], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Actual output: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  PaneBox[
                   TagBox[
                    PaneSelectorBox[{False -> RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"CompoundQ\"", "\[Rule]", "True"}], ",", 
                    RowBox[{"\"OpenCascadeShapeNumberOfSolids\"", "\[Rule]", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "0"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"Greater than 0\""}]}], "]"}]}], ",", 
                    RowBox[{"\"OpenCascadeShapeSolids\"", "\[Rule]", "True"}],
                     ",", 
                    RowBox[{"\"ElementMesh\"", "\[Rule]", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "$Failed"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "Graphics3D"}]}], 
                    "]"}]}]}], "]"}], True -> StyleBox[
                    TagBox[
                    TagBox[
                    TooltipBox[
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"CompoundQ\"", "\[Rule]", "True"}], ",", 
                    RowBox[{"\"OpenCascadeShapeNumberOfSolids\"", "\[Rule]", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "0"}], ",", 
                    
                    RowBox[{"\"Expected\"", "\[Rule]", 
                    "\"Greater than 0\""}]}], "]"}]}], ",", 
                    RowBox[{"\"OpenCascadeShapeSolids\"", "\[Rule]", "True"}],
                     ",", 
                    RowBox[{"\"ElementMesh\"", "\[Rule]", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Actual\"", "\[Rule]", "$Failed"}], ",", 
                    RowBox[{"\"Expected\"", "\[Rule]", "Graphics3D"}]}], 
                    "]"}]}]}], "]"}], "\"Copy to clipboard.\"", LabelStyle -> 
                    "TextStyling"], 
                    Annotation[#, "Copy to clipboard.", "Tooltip"]& ], 
                    EventHandlerTag[{"MouseClicked" :> CopyToClipboard[
                    
                    Unevaluated[<|
                    "CompoundQ" -> True, 
                    "OpenCascadeShapeNumberOfSolids" -> <|
                    "Actual" -> 0, "Expected" -> "Greater than 0"|>, 
                    "OpenCascadeShapeSolids" -> True, 
                    "ElementMesh" -> <|
                    "Actual" -> $Failed, "Expected" -> Graphics3D|>|>]], 
                    Method -> "Preemptive", PassEventsDown -> Automatic, 
                    PassEventsUp -> True}]], Background -> GrayLevel[0.85], 
                    StripOnInput -> False]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], Short[#, 
                    Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, 
                   BaselinePosition -> Baseline, ContentPadding -> False, 
                   FrameMargins -> 0, StripOnInput -> True], 
                  "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  TestResultObject[<|
   "TestKey" -> 1256327358133750789, "TestID" -> 
    "OpenCascadeLink_Docs_BooleanOperations-20200311-Difference-ShapeType-\
regionUnionPolyhedron-Ellipsoid-bug-401678-bug-392674", "TestFileName" -> 
    "/home/ruebenko/wri_git/OpenCascadeLink/Tests/OpenCascadeLink_Docs_\
BooleanOperations-Difference.mt", "SameTest" -> SameQ, "SameMessages" -> 
    Testing`MessageMatchQ, "MemoryConstraint" -> DirectedInfinity[1], 
    "TimeConstraint" -> DirectedInfinity[1], "Outcome" -> "Failure", "Input" -> 
    HoldForm[$CellContext`shape = 
       Apply[OpenCascadeLink`OpenCascadeShapeDifference, 
         Map[
         OpenCascadeLink`OpenCascadeShape, \
<|$CellContext`regionUnionPolyhedron -> Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
             
             "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 5, 
              4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17, 18, 
              12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23, 2}, {23, 
              22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 3}, {25, 3, 2, 
              23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4, 5, 6, 7, 8}, {1, 3, 
              9, 8, 11}, {11, 7, 6, 12, 13}, {12, 6, 5, 14, 16}, {18, 21, 22, 
              13, 12}, {27, 26, 24, 20, 19}}], Ellipsoid -> 
           Ellipsoid[{0, 0, 0}, {{5, 2, 3}, {2, 3, 2}, {3, 2, 
             5}}]|>]]; $CellContext`numOfSolids = 
       OpenCascadeLink`OpenCascadeShapeNumberOfSolids[$CellContext`shape]; \
$CellContext`solids = 
       OpenCascadeLink`OpenCascadeShapeSolids[$CellContext`shape]; \
$CellContext`bmesh = 
       OpenCascadeLink`OpenCascadeShapeSurfaceMeshToBoundaryMesh[$CellContext`\
shape]; $CellContext`result = <||>; $CellContext`result["CompoundQ"] = 
       OpenCascadeLink`OpenCascadeShapeType[$CellContext`shape] === 
        "Compound"; $CellContext`result["OpenCascadeShapeNumberOfSolids"] = If[
         Or[
          TrueQ[3 <= 2], False], 
         Or[$CellContext`numOfSolids === 0, <|
          "Actual" -> $CellContext`numOfSolids, "Expected" -> 0|>], 
         Or[
          TrueQ[$CellContext`numOfSolids > 0], <|
          "Actual" -> $CellContext`numOfSolids, "Expected" -> 
           "Greater than 0"|>]]; $CellContext`result[
        "OpenCascadeShapeSolids"] = If[
         TrueQ[3 <= 2], 
         Or[$CellContext`solids === {}, <|
          "Actual" -> $CellContext`solids, "Expected" -> {}|>], 
         Or[
         AllTrue[$CellContext`solids, 
            OpenCascadeLink`OpenCascadeShapeExpressionQ] === True, <|
          "Actual" -> $CellContext`solids, "Expected" -> 
           "AllTrue[solids, OpenCascadeShapeExpressionQ]"|>]]; \
$CellContext`result["ElementMesh"] = If[False, 
         Or[$CellContext`bmesh === $Failed, <|
          "Actual" -> $CellContext`bmesh, 
           "Expected" -> $Failed|>], $CellContext`groups = $CellContext`bmesh[
           "BoundaryElementMarkerUnion"]; $CellContext`temp = Most[
            Range[0, 1, 1/Length[$CellContext`groups]]]; $CellContext`colors = 
          Map[ColorData["BrightBands"][#]& , $CellContext`temp]; 
         Or[($CellContext`head = Head[
              $CellContext`bmesh[
               "Wireframe"[
               "MeshElementStyle" -> Map[FaceForm, $CellContext`colors]]]]) === 
           Graphics3D, <|
           "Actual" -> $CellContext`head, "Expected" -> 
            Graphics3D|>]]; $CellContext`result], "ExpectedOutput" -> 
    HoldForm[<|
      "CompoundQ" -> True, "OpenCascadeShapeNumberOfSolids" -> True, 
       "OpenCascadeShapeSolids" -> True, "ElementMesh" -> True|>], 
    "ActualOutput" -> 
    HoldForm[<|
      "CompoundQ" -> True, 
       "OpenCascadeShapeNumberOfSolids" -> <|
        "Actual" -> 0, "Expected" -> "Greater than 0"|>, 
       "OpenCascadeShapeSolids" -> True, 
       "ElementMesh" -> <|"Actual" -> $Failed, "Expected" -> Graphics3D|>|>], 
    "ExpectedMessages" -> HoldForm[{}], "ActualMessages" -> {}, 
    "AbsoluteTime" -> 3.8715288632805414`*^9, "AbsoluteTimeUsed" -> 
    0.489298`5.8400884384218115, "CPUTimeUsed" -> 0.4910460000000114, 
    "MemoryUsed" -> 17456|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[30]=",ExpressionUUID->"97a012bd-b0d5-4333-9e71-e4d50668ac4c"]
}, Open  ]],

Cell["Inspect the input of the failed test.", "Text",
 CellChangeTimes->{{3.8166592850204906`*^9, 
  3.816659296182186*^9}},ExpressionUUID->"c45033d9-83b4-46f1-b48d-\
817919148a52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"failedTest", "[", "\"\<Input\>\"", "]"}]], "Input",
 CellLabel->"In[31]:=",ExpressionUUID->"b797b04b-3bc9-4f3a-b0fd-d9522bd732dd"],

Cell[BoxData[
 TagBox[
  RowBox[{
   RowBox[{"shape", "=", 
    RowBox[{"OpenCascadeShapeDifference", "@@", 
     RowBox[{"OpenCascadeShape", "/@", 
      RowBox[{"Association", "[", 
       RowBox[{
        RowBox[{"regionUnionPolyhedron", "\[Rule]", 
         InterpretationBox[
          RowBox[{
           TagBox["Polyhedron",
            "SummaryHead"], "[", 
           
           DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
            "Ready", Typeset`spolyhedron$$ = Quiet[
             Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
              
              "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 5, 
               4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17, 18, 
               12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23, 2}, {23, 
               22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 3}, {25, 3, 2, 
               23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4, 5, 6, 7, 8}, {1, 3,
                9, 8, 11}, {11, 7, 6, 12, 13}, {12, 6, 5, 14, 16}, {18, 21, 
               22, 13, 12}, {27, 26, 24, 20, 19}}]]}, 
            TemplateBox[{
              PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxOpener"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                    "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> 
                    Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])], Boxed -> False, 
                    Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SummaryBoxCloser"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                    "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    Graphics3DBox[{
                    Directive[
                    Hue[0.58, 0.4, 1], 
                    Opacity[0.5], 
                    EdgeForm[
                    GrayLevel[1]]], 
                    PolyhedronBox[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
                    
                    "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 
                    5, 4}, {3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17,
                     18, 12}, {18, 17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23,
                     2}, {23, 22, 21, 24}, {24, 21, 18, 20}, {25, 26, 27, 
                    3}, {25, 3, 2, 23}, {26, 25, 23, 24}, {3, 27, 19, 15}, {4,
                     5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 7, 6, 12, 13}, {12, 
                    6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 24, 20, 
                    19}}]}, ImageSize -> 
                    Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])], Boxed -> False, 
                    Lighting -> {{"Ambient", 
                    RGBColor[0.4, 0.45, 0.5]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 0, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{2, 2, 2}]}, {"Directional", 
                    RGBColor[0.24, 0.27, 0.3], 
                    ImageScaled[{0, 2, 2}]}}, 
                    Method -> {"ShrinkWrap" -> True}], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Number of points: \"", "SummaryItemAnnotation"],
                     "\[InvisibleSpace]", 
                    TagBox["27", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Number of faces: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["24", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Embedding dimension: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Quiet[
                    Apply[Region`PolyhedronDump`polyhedronType, 
                    Region`PolyhedronDump`computeType[
                    Typeset`spolyhedron$$]]], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> 
                    AnimatorBox[
                    0, {0, Infinity}, AppearanceElements -> "ProgressSlider", 
                    ImageSize -> 20]], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Bounds: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iRegionBounds[
                    Typeset`spolyhedron$$], StandardForm], 
                    SynchronousUpdating -> False, TrackedSymbols :> {}, 
                    CachedValue :> 
                    AnimatorBox[
                    0, {0, Infinity}, AppearanceElements -> "ProgressSlider", 
                    ImageSize -> 20]], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Volume: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    DynamicBox[
                    ToBoxes[
                    Region`PolyhedronDump`iVolume[Typeset`spolyhedron$$], 
                    StandardForm], SynchronousUpdating -> False, 
                    TrackedSymbols :> {}, CachedValue :> 
                    AnimatorBox[
                    0, {0, Infinity}, AppearanceElements -> "ProgressSlider", 
                    ImageSize -> 20]], "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  BaselinePosition -> {1, 1}]}, 
               Dynamic[Typeset`open$$], ImageSize -> Automatic]},
             "SummaryPanel"],
            DynamicModuleValues:>{}], "]"}],
          Polyhedron[CompressedData["
1:eJxTTMoPSmViYGCQBmJmBgRw6zU6nz3hrX3yynXLHtXesO/r51+k4nXEHl2c
AQeAyUPp/TB9ENkPOMWnWNyurgp8aP/ng8vEdc+/wM3HJQ4BG2ymguU/2qPZ
j2Y+DEzYg66+B+y/J/ao4h/soxcIcaw+/tJ+ws/tWjsSn8L9XS4Tv4Q55Zk9
uvvnLHS/P3nbxf0w9TBx7KGEEIepJ+TvGIbHZ3rKXsPDCd0fMNCuJSuw/9Zn
jPhCNR8R3qjx+QGuz9yZZ4bkt6NwcaP3f2ZWNt2y/3PgzjpbAYQ5xlBxXP4j
Lv4R8QYAmVvsJg==
           
           "], {{1, 2, 3}, {9, 4, 8}, {8, 7, 11}, {15, 16, 14}, {14, 5, 4}, {
            3, 4, 9}, {2, 1, 11, 13}, {3, 15, 14, 4}, {16, 17, 18, 12}, {18, 
            17, 19, 20}, {15, 19, 17, 16}, {13, 22, 23, 2}, {23, 22, 21, 
            24}, {24, 21, 18, 20}, {25, 26, 27, 3}, {25, 3, 2, 23}, {26, 25, 
            23, 24}, {3, 27, 19, 15}, {4, 5, 6, 7, 8}, {1, 3, 9, 8, 11}, {11, 
            7, 6, 12, 13}, {12, 6, 5, 14, 16}, {18, 21, 22, 13, 12}, {27, 26, 
            24, 20, 19}}],
          Editable->False,
          SelectWithContents->True,
          Selectable->False]}], ",", 
        RowBox[{"Ellipsoid", "\[Rule]", 
         RowBox[{"Ellipsoid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"5", ",", "2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], "}"}]}], "]"}]}]}], 
       "]"}]}]}]}], ";", 
   RowBox[{"numOfSolids", "=", 
    RowBox[{"OpenCascadeShapeNumberOfSolids", "[", "shape", "]"}]}], ";", 
   RowBox[{"solids", "=", 
    RowBox[{"OpenCascadeShapeSolids", "[", "shape", "]"}]}], ";", 
   RowBox[{"bmesh", "=", 
    RowBox[{
    "OpenCascadeShapeSurfaceMeshToBoundaryMesh", "[", "shape", "]"}]}], ";", 
   RowBox[{"result", "=", 
    RowBox[{"Association", "[", "]"}]}], ";", 
   RowBox[{
    RowBox[{"result", "[", "\<\"CompoundQ\"\>", "]"}], "=", 
    RowBox[{
     RowBox[{"OpenCascadeShapeType", "[", "shape", "]"}], 
     "===", "\<\"Compound\"\>"}]}], ";", 
   RowBox[{
    RowBox[{"result", "[", "\<\"OpenCascadeShapeNumberOfSolids\"\>", "]"}], 
    "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"TrueQ", "[", 
        RowBox[{"3", "\[LessEqual]", "2"}], "]"}], "||", "False"}], ",", 
      RowBox[{
       RowBox[{"numOfSolids", "===", "0"}], "||", 
       RowBox[{"Association", "[", 
        RowBox[{
         RowBox[{"\<\"Actual\"\>", "\[Rule]", "numOfSolids"}], ",", 
         RowBox[{"\<\"Expected\"\>", "\[Rule]", "0"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"TrueQ", "[", 
        RowBox[{"numOfSolids", ">", "0"}], "]"}], "||", 
       RowBox[{"Association", "[", 
        RowBox[{
         RowBox[{"\<\"Actual\"\>", "\[Rule]", "numOfSolids"}], ",", 
         RowBox[{"\<\"Expected\"\>", "\[Rule]", "\<\"Greater than 0\"\>"}]}], 
        "]"}]}]}], "]"}]}], ";", 
   RowBox[{
    RowBox[{"result", "[", "\<\"OpenCascadeShapeSolids\"\>", "]"}], "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"TrueQ", "[", 
       RowBox[{"3", "\[LessEqual]", "2"}], "]"}], ",", 
      RowBox[{
       RowBox[{"solids", "===", 
        RowBox[{"{", "}"}]}], "||", 
       RowBox[{"Association", "[", 
        RowBox[{
         RowBox[{"\<\"Actual\"\>", "\[Rule]", "solids"}], ",", 
         RowBox[{"\<\"Expected\"\>", "\[Rule]", 
          RowBox[{"{", "}"}]}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"AllTrue", "[", 
         RowBox[{"solids", ",", "OpenCascadeShapeExpressionQ"}], "]"}], "===",
         "True"}], "||", 
       RowBox[{"Association", "[", 
        RowBox[{
         RowBox[{"\<\"Actual\"\>", "\[Rule]", "solids"}], ",", 
         RowBox[{"\<\"Expected\"\>", 
          "\[Rule]", "\<\"AllTrue[solids, \
OpenCascadeShapeExpressionQ]\"\>"}]}], "]"}]}]}], "]"}]}], ";", 
   RowBox[{
    RowBox[{"result", "[", "\<\"ElementMesh\"\>", "]"}], "=", 
    RowBox[{"If", "[", 
     RowBox[{"False", ",", 
      RowBox[{
       RowBox[{"bmesh", "===", "$Failed"}], "||", 
       RowBox[{"Association", "[", 
        RowBox[{
         RowBox[{"\<\"Actual\"\>", "\[Rule]", "bmesh"}], ",", 
         RowBox[{"\<\"Expected\"\>", "\[Rule]", "$Failed"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"groups", "=", 
        RowBox[{"bmesh", "[", "\<\"BoundaryElementMarkerUnion\"\>", "]"}]}], 
       ";", 
       RowBox[{"temp", "=", 
        RowBox[{"Most", "[", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "1", ",", 
           FractionBox["1", 
            RowBox[{"Length", "[", "groups", "]"}]]}], "]"}], "]"}]}], ";", 
       RowBox[{"colors", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", "\<\"BrightBands\"\>", "]"}], "[", "#1",
             "]"}], "&"}], ")"}], "/@", "temp"}]}], ";", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"head", "=", 
           RowBox[{"Head", "[", 
            RowBox[{"bmesh", "[", 
             RowBox[{"\<\"Wireframe\"\>", "[", 
              RowBox[{"\<\"MeshElementStyle\"\>", "\[Rule]", 
               RowBox[{"FaceForm", "/@", "colors"}]}], "]"}], "]"}], "]"}]}], 
          ")"}], "===", "Graphics3D"}], "||", 
        RowBox[{"Association", "[", 
         RowBox[{
          RowBox[{"\<\"Actual\"\>", "\[Rule]", "head"}], ",", 
          RowBox[{"\<\"Expected\"\>", "\[Rule]", "Graphics3D"}]}], 
         "]"}]}]}]}], "]"}]}], ";", "result"}],
  HoldForm]], "Output",
 CellLabel->"Out[31]=",ExpressionUUID->"8e6a124d-196e-4307-bc66-79c59b1dbcb6"]
}, Open  ]],

Cell["Run the test.", "Text",
 CellChangeTimes->{{3.816659384351672*^9, 
  3.816659394922123*^9}},ExpressionUUID->"f8fb2889-3dce-4d31-9c58-\
2e8d901f69f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"failedTest", "[", "\"\<Input\>\"", "]"}], "//", 
  "ReleaseHold"}]], "Input",
 CellLabel->"In[32]:=",ExpressionUUID->"5b37734f-0f61-41cd-a4d1-33f06b2b1897"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"CompoundQ\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"OpenCascadeShapeNumberOfSolids\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"Actual\"\>", "\[Rule]", "0"}], ",", 
      RowBox[{"\<\"Expected\"\>", "\[Rule]", "\<\"Greater than 0\"\>"}]}], 
     "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"OpenCascadeShapeSolids\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"ElementMesh\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"Actual\"\>", "\[Rule]", "$Failed"}], ",", 
      RowBox[{"\<\"Expected\"\>", "\[Rule]", "Graphics3D"}]}], 
     "\[RightAssociation]"}]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[32]=",ExpressionUUID->"4617d20a-a571-4be7-8680-28121b6c371d"]
}, Open  ]],

Cell["Compare to the expected output.", "Text",
 CellChangeTimes->{{3.816659421481389*^9, 
  3.8166594314423227`*^9}},ExpressionUUID->"58e8f075-53dc-452e-b294-\
3720eaa61c73"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"failedTest", "[", "\"\<ExpectedOutput\>\"", "]"}]], "Input",
 CellLabel->"In[33]:=",ExpressionUUID->"3e50934a-501c-4fe4-9ab9-6cf5b927942b"],

Cell[BoxData[
 TagBox[
  RowBox[{"Association", "[", 
   RowBox[{
    RowBox[{"\<\"CompoundQ\"\>", "\[Rule]", "True"}], ",", 
    RowBox[{"\<\"OpenCascadeShapeNumberOfSolids\"\>", "\[Rule]", "True"}], 
    ",", 
    RowBox[{"\<\"OpenCascadeShapeSolids\"\>", "\[Rule]", "True"}], ",", 
    RowBox[{"\<\"ElementMesh\"\>", "\[Rule]", "True"}]}], "]"}],
  HoldForm]], "Output",
 CellLabel->"Out[33]=",ExpressionUUID->"9af14c4a-b698-4f60-8a60-794f9b7575f0"]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{477, 780},
WindowMargins->{{0, Automatic}, {Automatic, 13.5}},
TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"13.3 for Linux x86 (64-bit) (July 24, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7edc8073-c067-4d3d-b40a-daac57e462d0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 101, 0, 67, "Subsection",ExpressionUUID->"a128afc6-35b7-43fd-8da5-175a71c0b21d"],
Cell[684, 24, 200, 3, 101, "Text",ExpressionUUID->"c9b067a2-feea-4117-b6e3-e6f4a3bf44eb"],
Cell[887, 29, 791, 14, 360, "Text",ExpressionUUID->"52a6be59-d057-4dff-ac5f-649bbd860d2f"],
Cell[1681, 45, 500, 9, 273, "Text",ExpressionUUID->"e21568a7-49e2-4d72-9316-e293ea9ac070"],
Cell[2184, 56, 327, 8, 115, "Input",ExpressionUUID->"f126382f-88f0-41bc-835d-be6655701752"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2548, 69, 109, 0, 67, "Subsection",ExpressionUUID->"f3c0c75c-ee3f-4fef-b526-60aa215398a4"],
Cell[2660, 71, 472, 9, 158, "Text",ExpressionUUID->"45ba7a1a-0dd1-4d3d-9e58-efa067427bf2"],
Cell[3135, 82, 140, 2, 101, "Text",ExpressionUUID->"89a9b201-6610-40b9-b8cc-b10b5092de0c"],
Cell[3278, 86, 122, 0, 72, "Text",ExpressionUUID->"d73ac2d7-2199-42f4-a532-f4312a8fcc3c"],
Cell[CellGroupData[{
Cell[3425, 90, 109, 0, 56, "Subsubsection",ExpressionUUID->"01eb8fd8-c499-4c8f-9e67-9ddeddada0a2"],
Cell[3537, 92, 103, 0, 43, "Text",ExpressionUUID->"e8ed6464-ce1e-4767-945a-c42b4dbc23b1"],
Cell[3643, 94, 351, 5, 130, "Text",ExpressionUUID->"7972f68a-5bed-4af1-93a7-67f10e8776c8"],
Cell[3997, 101, 337, 9, 245, "Text",ExpressionUUID->"5df075dc-faef-49cf-9440-19389036420e"],
Cell[4337, 112, 251, 4, 101, "Text",ExpressionUUID->"4b9ff5b1-d045-4dc5-a18d-d6bb421ab6c6"],
Cell[4591, 118, 234, 5, 43, "Text",ExpressionUUID->"09ab2ace-c0f4-42f9-842b-14a39797767f"],
Cell[CellGroupData[{
Cell[4850, 127, 298, 6, 62, "Input",ExpressionUUID->"851031e9-9744-4464-9523-84716ed41ee9"],
Cell[5151, 135, 188, 2, 67, "Output",ExpressionUUID->"c8ba4637-e64a-4974-b70c-9f58d8a8e3f0"]
}, Open  ]],
Cell[5354, 140, 169, 3, 72, "Text",ExpressionUUID->"7503b866-b0a4-4acb-b2fd-393b92fe8d25"],
Cell[5526, 145, 162, 3, 35, "Text",ExpressionUUID->"f2372ca8-68b3-47dd-9683-d0b99a6c4a83"],
Cell[CellGroupData[{
Cell[5713, 152, 462, 9, 52, "Input",ExpressionUUID->"4b45cbfd-12f1-4d76-af5e-a9ae56397082"],
Cell[6178, 163, 203, 2, 56, "Output",ExpressionUUID->"b20fa54f-e4eb-4443-bb8a-4163fe2f87dd"]
}, Open  ]],
Cell[6396, 168, 245, 6, 58, "Text",ExpressionUUID->"2f4bc48d-d7ec-4cff-81dd-90723c2476ee"]
}, Closed]],
Cell[CellGroupData[{
Cell[6678, 179, 226, 4, 45, "Subsubsection",ExpressionUUID->"908f8e5f-bc54-4208-8a69-ecf9579b2f53"],
Cell[6907, 185, 759, 18, 311, "Text",ExpressionUUID->"1a4193e5-fb63-400b-8691-792a6c097d32"],
Cell[7669, 205, 108, 0, 35, "Text",ExpressionUUID->"e796235c-e110-4cb9-91dd-c87fb18d02b4"],
Cell[7780, 207, 277, 6, 30, "Input",ExpressionUUID->"1c71c351-07cb-41af-8594-77304b03d5a9"],
Cell[8060, 215, 175, 3, 35, "Text",ExpressionUUID->"ca8e8830-c482-40f1-bc33-430e79381ac6"]
}, Closed]],
Cell[CellGroupData[{
Cell[8272, 223, 276, 4, 77, "Subsubsection",ExpressionUUID->"63e1cb79-991c-436b-82ec-1ff2cdd2dbb1"],
Cell[8551, 229, 636, 15, 265, "Text",ExpressionUUID->"db0d407a-2da6-41d0-9b86-662594e6a593"],
Cell[9190, 246, 537, 12, 150, "Text",ExpressionUUID->"6aa9c6d4-a8cb-4393-aadc-f9301cab6d50"],
Cell[9730, 260, 252, 6, 35, "Text",ExpressionUUID->"cf597b56-bf0f-4364-80dc-96c6dd295f41"],
Cell[9985, 268, 280, 6, 30, "Input",ExpressionUUID->"f515f3a3-5269-47e9-871c-254a6f157d3c"],
Cell[10268, 276, 205, 4, 58, "Text",ExpressionUUID->"a179c6c5-1f8f-46f4-b65a-193df61f6870"],
Cell[10476, 282, 277, 6, 30, "Input",ExpressionUUID->"f6b15d5f-b417-42f4-9cfa-a6ffb2c95ed0"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10802, 294, 112, 0, 67, "Subsection",ExpressionUUID->"7ebee21d-a78d-44c7-9310-cb1f4df76ef7"],
Cell[CellGroupData[{
Cell[10939, 298, 105, 0, 56, "Subsubsection",ExpressionUUID->"7ab88f83-cbf5-4b2c-adf6-aaf116615d3f"],
Cell[11047, 300, 199, 3, 72, "Text",ExpressionUUID->"dd56c300-38a3-4d24-8475-fd6a3a22ed23"],
Cell[11249, 305, 380, 10, 62, "Input",ExpressionUUID->"1d7cb5b8-b9ef-4d83-b69e-7e6d9aa1bf6c"],
Cell[11632, 317, 103, 0, 43, "Text",ExpressionUUID->"42559dad-2c76-4949-9747-fb96754b651c"],
Cell[CellGroupData[{
Cell[11760, 321, 390, 8, 94, "Input",ExpressionUUID->"405c7967-b349-47b1-8e27-5e028c8719f1"],
Cell[12153, 331, 157, 1, 41, "Output",ExpressionUUID->"da1ec6b6-fd72-419a-a791-8f8b2a8b61a0"]
}, Open  ]],
Cell[12325, 335, 93, 0, 43, "Text",ExpressionUUID->"ed0f6cd1-df62-4727-8f52-b94ea7934eaa"],
Cell[12421, 337, 293, 7, 88, "Input",ExpressionUUID->"e32adc6d-106e-4512-8755-767bbbbc4792"],
Cell[12717, 346, 105, 0, 43, "Text",ExpressionUUID->"6bd89636-53d6-4318-894e-63ddefce951a"],
Cell[12825, 348, 364, 9, 62, "Input",ExpressionUUID->"1053d118-7213-4dbb-b4dc-8e215810c459"],
Cell[13192, 359, 100, 0, 43, "Text",ExpressionUUID->"3a3d1bd2-9121-4f36-ba0e-1cf44a925878"],
Cell[CellGroupData[{
Cell[13317, 363, 155, 2, 36, "Input",ExpressionUUID->"3ab5f839-05ca-4d29-9724-761dd7084782"],
Cell[13475, 367, 232, 3, 67, "Output",ExpressionUUID->"90396202-e3d9-4734-98e9-f1987868295c"]
}, Open  ]],
Cell[13722, 373, 333, 5, 101, "Text",ExpressionUUID->"dba0cf0d-4a87-46b1-bae5-194367ed0493"]
}, Closed]],
Cell[CellGroupData[{
Cell[14092, 383, 119, 0, 77, "Subsubsection",ExpressionUUID->"34ed6358-b785-4f7b-af0d-f08c986028cd"],
Cell[14214, 385, 177, 3, 72, "Text",ExpressionUUID->"d79707bb-c1b2-4b2e-b3f9-07448c83f563"],
Cell[14394, 390, 99, 0, 43, "Text",ExpressionUUID->"4a6b0479-b5d2-4c39-82f2-96ebfc40847f"],
Cell[14496, 392, 276, 7, 36, "Input",ExpressionUUID->"2d65b802-6846-4d06-8c24-7927a619ad36"],
Cell[14775, 401, 93, 0, 43, "Text",ExpressionUUID->"559e7e0d-04e8-4844-932a-aaba0ab44de9"],
Cell[CellGroupData[{
Cell[14893, 405, 436, 12, 88, "Input",ExpressionUUID->"389119e3-c06d-4348-a14c-18c1dff54203"],
Cell[15332, 419, 182, 2, 67, "Output",ExpressionUUID->"9a9d6f8a-f578-4dd3-bc02-1eb7837e7d46"]
}, Open  ]],
Cell[15529, 424, 99, 0, 43, "Text",ExpressionUUID->"4c134813-261d-4d20-a011-4b67af6f9bc1"],
Cell[CellGroupData[{
Cell[15653, 428, 447, 12, 88, "Input",ExpressionUUID->"34f8c02e-b928-48f8-8523-f821fb0aada1"],
Cell[16103, 442, 188, 2, 67, "Output",ExpressionUUID->"40ae23d7-13cd-46ba-ab56-b64809974541"]
}, Open  ]],
Cell[16306, 447, 103, 0, 43, "Text",ExpressionUUID->"a322e256-7cf3-4bbc-8dec-88c9225a13fb"],
Cell[CellGroupData[{
Cell[16434, 451, 513, 13, 138, "Input",ExpressionUUID->"704a1be5-c475-44f6-8987-f5adca69b06e"],
Cell[16950, 466, 194, 2, 67, "Output",ExpressionUUID->"8c89f15c-05cf-40a8-be8c-d8d9b05043a6"]
}, Open  ]],
Cell[17159, 471, 98, 0, 43, "Text",ExpressionUUID->"073fa7c7-5e7a-42e7-9129-e4c33035745e"],
Cell[CellGroupData[{
Cell[17282, 475, 498, 12, 113, "Input",ExpressionUUID->"d7b697c0-482d-4e4e-8563-fcbc91610247"],
Cell[17783, 489, 189, 2, 67, "Output",ExpressionUUID->"be097af1-c02b-49bf-8ca9-9965e2580a89"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[18021, 497, 119, 0, 77, "Subsubsection",ExpressionUUID->"1fb53ba5-f5fe-4be3-a17d-58f25b5d6ceb"],
Cell[18143, 499, 120, 0, 43, "Text",ExpressionUUID->"db5515a5-7e04-46c9-b6c4-52db86fa062f"],
Cell[18266, 501, 156, 2, 36, "Input",ExpressionUUID->"3685fdd8-6086-4f9f-bf52-7ef19ac0dea3"],
Cell[CellGroupData[{
Cell[18447, 507, 309, 7, 62, "Input",ExpressionUUID->"560e0ffd-e50c-4ed7-87d3-ed2bc57c39f3"],
Cell[18759, 516, 24458, 494, 91, "Output",ExpressionUUID->"7986f712-037a-4428-b9af-f90c172978e6"]
}, Open  ]],
Cell[43232, 1013, 178, 3, 72, "Text",ExpressionUUID->"04a008e2-f1ba-4275-9cc9-42c3404fd267"]
}, Closed]],
Cell[CellGroupData[{
Cell[43447, 1021, 112, 0, 77, "Subsubsection",ExpressionUUID->"c8ab5b56-b2c1-4f79-be2e-1e7d87abc227"],
Cell[43562, 1023, 119, 0, 43, "Text",ExpressionUUID->"08f6297e-0175-418d-a615-cfdce1d8b2c4"],
Cell[43684, 1025, 115, 0, 43, "Text",ExpressionUUID->"74ecbd42-5f55-43cc-a593-f4a0c257a6a2"],
Cell[43802, 1027, 224, 3, 36, "Input",ExpressionUUID->"0faf7db5-2f0e-46bf-a9e6-1b9a2212b2a1"],
Cell[44029, 1032, 121, 0, 43, "Text",ExpressionUUID->"02dfa579-ff87-44ac-b061-3f4ca122f816"],
Cell[CellGroupData[{
Cell[44175, 1036, 173, 3, 36, "Input",ExpressionUUID->"64b18ca9-49ac-487d-b48a-495f6d8fd8b1"],
Cell[44351, 1041, 288, 5, 93, "Output",ExpressionUUID->"6427c854-bbda-4b1a-9f6a-a1733a8d557d"]
}, Open  ]],
Cell[44654, 1049, 256, 4, 101, "Text",ExpressionUUID->"fda6454b-195a-4b34-b1c5-a7963f0c2a90"],
Cell[CellGroupData[{
Cell[44935, 1057, 158, 2, 36, "Input",ExpressionUUID->"d12b597f-8f33-4c92-b0d6-12b60d5fb449"],
Cell[45096, 1061, 201, 4, 67, "Output",ExpressionUUID->"63b7a168-ef8d-4eb2-9331-5168ebdde886"]
}, Open  ]],
Cell[45312, 1068, 109, 0, 43, "Text",ExpressionUUID->"d0a94687-6a60-48d2-8fa9-2c69e0a8d395"],
Cell[CellGroupData[{
Cell[45446, 1072, 178, 3, 36, "Input",ExpressionUUID->"263402d4-9eb2-4f2f-9d5b-4c46bbdb3569"],
Cell[45627, 1077, 189, 2, 67, "Output",ExpressionUUID->"7a3985f4-e10d-49fc-8c8c-7fe9ad619120"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[45865, 1085, 115, 0, 77, "Subsubsection",ExpressionUUID->"db5330f1-ad02-4660-96a3-f9da5a8b4ca4"],
Cell[45983, 1087, 141, 2, 43, "Text",ExpressionUUID->"17ec6fe5-c335-4a0b-8158-62421b03129c"],
Cell[CellGroupData[{
Cell[46149, 1093, 159, 2, 36, "Input",ExpressionUUID->"cc166fd1-4353-441d-be91-cc95f5d4f27e"],
Cell[46311, 1097, 201, 4, 67, "Output",ExpressionUUID->"a3b6d248-3280-4d14-ba09-12e0a434a9be"]
}, Open  ]],
Cell[46527, 1104, 108, 0, 43, "Text",ExpressionUUID->"5628d5cd-e635-4742-b9ab-41231f72d924"],
Cell[46638, 1106, 160, 2, 36, "Input",ExpressionUUID->"0d5da820-91de-4cab-ab78-66869c70cf0a"],
Cell[CellGroupData[{
Cell[46823, 1112, 124, 1, 36, "Input",ExpressionUUID->"c6bd01dd-3c26-4b80-8dd0-5cf0ae447158"],
Cell[46950, 1115, 119, 1, 41, "Output",ExpressionUUID->"537af6aa-271d-4a2c-9511-eba7d34ae01b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[47118, 1122, 121, 0, 77, "Subsubsection",ExpressionUUID->"b437757f-5b61-48c5-b963-5a18c409fc8f"],
Cell[47242, 1124, 142, 2, 43, "Text",ExpressionUUID->"2832ab4c-4450-4532-a309-d073e178598d"],
Cell[47387, 1128, 290, 6, 62, "Input",ExpressionUUID->"97d9e24d-f028-438d-9609-649c61d97148"],
Cell[47680, 1136, 161, 3, 72, "Text",ExpressionUUID->"c9af4357-8880-45ec-95dc-f565a3194766"],
Cell[47844, 1141, 306, 6, 101, "Text",ExpressionUUID->"3a456ec6-010b-44ae-b9f4-a04ee7d32caf"],
Cell[48153, 1149, 409, 6, 158, "Text",ExpressionUUID->"c5b36d48-bb9e-4163-b537-2b6040c0304c"],
Cell[CellGroupData[{
Cell[48587, 1159, 114, 1, 36, "Input",ExpressionUUID->"7b128005-ba0a-4b88-92bc-628975cf7968"],
Cell[48704, 1162, 109, 1, 41, "Output",ExpressionUUID->"7bbc5525-b6a6-4b8a-8944-e44948320c0f"]
}, Open  ]],
Cell[48828, 1166, 268, 4, 101, "Text",ExpressionUUID->"4743dd77-3517-4b8c-bd9c-8c69f09e6333"]
}, Closed]],
Cell[CellGroupData[{
Cell[49133, 1175, 97, 0, 45, "Subsubsection",ExpressionUUID->"15f26c59-6d19-4abb-8b3a-929d6494e0fc"],
Cell[49233, 1177, 464, 9, 245, "Text",ExpressionUUID->"df904a15-942d-4fd6-b8a9-646909e176f6"],
Cell[49700, 1188, 2084, 57, 639, "Input",ExpressionUUID->"5495cc52-950c-4795-90dc-4d3e2b722627"],
Cell[51787, 1247, 321, 5, 158, "Text",ExpressionUUID->"e02e80c6-332e-4b84-b5ad-309fb2b94771"],
Cell[52111, 1254, 108, 1, 36, "Input",ExpressionUUID->"29027f99-4065-427d-a57c-28fb15456f1b"],
Cell[52222, 1257, 352, 8, 115, "Input",ExpressionUUID->"3255c058-aca5-465c-b567-9b51c0b53e7c"],
Cell[CellGroupData[{
Cell[52599, 1269, 174, 3, 36, "Input",ExpressionUUID->"e281ad8c-bfab-4e5a-aa80-5d3e982e9ccd"],
Cell[52776, 1274, 158, 2, 41, "Output",ExpressionUUID->"49d72166-a29c-4420-923e-d19788de14e2"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[52983, 1282, 92, 0, 45, "Subsubsection",ExpressionUUID->"fc7167bb-4fc5-4e85-a613-33f5b4ead6a6"],
Cell[53078, 1284, 160, 2, 36, "Input",ExpressionUUID->"1c5134cd-1298-4e20-81a2-7ba2522a2ac3"],
Cell[CellGroupData[{
Cell[53263, 1290, 190, 2, 36, "Input",ExpressionUUID->"4891fc0e-e483-414c-9037-1eb43a25ca28"],
Cell[53456, 1294, 119, 1, 41, "Output",ExpressionUUID->"04b4fe08-b8df-4d2b-8c14-3a1b8d9b3063"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53612, 1300, 175, 3, 36, "Input",ExpressionUUID->"203492d9-8576-4ae4-82c6-8a9c7ca2e53c"],
Cell[53790, 1305, 159, 2, 41, "Output",ExpressionUUID->"d4b9d9e4-f26e-4a7b-a625-b5214ab5b101"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53986, 1312, 162, 2, 36, "Input",ExpressionUUID->"05def6ba-91a0-4e69-92bb-ffae9b68a1cb"],
Cell[54151, 1316, 110, 1, 41, "Output",ExpressionUUID->"96e3513a-b454-4290-9beb-2ccae40b39f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54298, 1322, 179, 3, 36, "Input",ExpressionUUID->"0ed5ab37-9075-4dc7-8d7c-520c5d1e783e"],
Cell[54480, 1327, 182, 3, 41, "Output",ExpressionUUID->"7e407160-2f9f-44f4-98ab-dde571f18452"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54699, 1335, 208, 4, 36, "Input",ExpressionUUID->"33c9e9bb-130a-4a08-84b4-d582f6157ab1"],
Cell[54910, 1341, 107, 1, 41, "Output",ExpressionUUID->"acef1292-3fa2-4209-982b-c80fc662a5b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55054, 1347, 154, 2, 36, "Input",ExpressionUUID->"df18c87f-76a7-432a-970b-a8333cf21d36"],
Cell[55211, 1351, 124, 2, 41, "Output",ExpressionUUID->"df8021fb-3712-4b04-8b37-c09b78c1b590"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55372, 1358, 265, 6, 36, "Input",ExpressionUUID->"b8b5a512-4e15-4e4f-ad99-13b555b1ad95"],
Cell[55640, 1366, 159, 2, 41, "Output",ExpressionUUID->"321db9e4-d8d1-4490-b05a-921605f26e15"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55836, 1373, 205, 4, 36, "Input",ExpressionUUID->"be8ec323-b075-4811-9207-b242f9d1ebc0"],
Cell[56044, 1379, 546, 18, 67, "Output",ExpressionUUID->"0b222640-a95f-4767-96c5-9444b992d182"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56627, 1402, 154, 2, 36, "Input",ExpressionUUID->"eaf9a799-5635-4822-b6b7-c76a8d5f1385"],
Cell[56784, 1406, 9819, 165, 474, "Output",ExpressionUUID->"198cd35f-59e0-4929-94f7-0312fe48163d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[66652, 1577, 173, 3, 45, "Subsubsection",ExpressionUUID->"fe3eb117-ee5c-495e-873d-0e583133b946"],
Cell[66828, 1582, 316, 8, 72, "Text",ExpressionUUID->"23ccc69e-92f7-4964-acb9-f33751953da7"],
Cell[67147, 1592, 181, 5, 43, "Text",ExpressionUUID->"b8e595c5-1086-49cb-b726-853c46473db9"],
Cell[67331, 1599, 149, 2, 36, "Input",ExpressionUUID->"243a98e9-d819-4688-bffc-e3d8ab688be3"],
Cell[67483, 1603, 140, 2, 43, "Text",ExpressionUUID->"44d56105-93e4-4a36-9ce2-8612beef2c1b"],
Cell[CellGroupData[{
Cell[67648, 1609, 436, 11, 113, "Input",ExpressionUUID->"1226e2bf-ea85-43ca-a9ef-49d46611ac16"],
Cell[68087, 1622, 10534, 217, 111, "Output",ExpressionUUID->"ae8a15a6-cebc-42df-ad52-b8f89c41d3e6"]
}, Open  ]],
Cell[78636, 1842, 177, 3, 43, "Text",ExpressionUUID->"f3e6600d-9fcf-446e-b62f-9bb2d24e7464"],
Cell[CellGroupData[{
Cell[78838, 1849, 173, 3, 36, "Input",ExpressionUUID->"0aa55af7-295d-435a-b028-92da4a18524f"],
Cell[79014, 1854, 108, 1, 41, "Output",ExpressionUUID->"da012aa9-5eec-416b-8cd4-1ccc49bd1017"]
}, Open  ]],
Cell[79137, 1858, 232, 6, 43, "Text",ExpressionUUID->"b4bb07a5-fe72-4516-988a-ec4ab0ca2bee"],
Cell[79372, 1866, 1402, 37, 341, "Input",ExpressionUUID->"e7f887ee-5d1f-4df3-80f3-55dfa0ac0f2f"],
Cell[80777, 1905, 170, 3, 43, "Text",ExpressionUUID->"dfc2878e-3c61-4bff-bc99-8c58b17381e1"],
Cell[CellGroupData[{
Cell[80972, 1912, 211, 4, 36, "Input",ExpressionUUID->"462a49ca-f68d-4de3-bbbb-eacf790769c6"],
Cell[81186, 1918, 60395, 1157, 125, "Output",ExpressionUUID->"97a012bd-b0d5-4333-9e71-e4d50668ac4c"]
}, Open  ]],
Cell[141596, 3078, 181, 3, 43, "Text",ExpressionUUID->"c45033d9-83b4-46f1-b48d-817919148a52"],
Cell[CellGroupData[{
Cell[141802, 3085, 154, 2, 36, "Input",ExpressionUUID->"b797b04b-3bc9-4f3a-b0fd-d9522bd732dd"],
Cell[141959, 3089, 16865, 355, 840, "Output",ExpressionUUID->"8e6a124d-196e-4307-bc66-79c59b1dbcb6"]
}, Open  ]],
Cell[158839, 3447, 155, 3, 43, "Text",ExpressionUUID->"f8fb2889-3dce-4d31-9c58-2e8d901f69f8"],
Cell[CellGroupData[{
Cell[159019, 3454, 191, 4, 36, "Input",ExpressionUUID->"5b37734f-0f61-41cd-a4d1-33f06b2b1897"],
Cell[159213, 3460, 841, 17, 133, "Output",ExpressionUUID->"4617d20a-a571-4be7-8680-28121b6c371d"]
}, Open  ]],
Cell[160069, 3480, 175, 3, 43, "Text",ExpressionUUID->"58e8f075-53dc-452e-b294-3720eaa61c73"],
Cell[CellGroupData[{
Cell[160269, 3487, 163, 2, 36, "Input",ExpressionUUID->"3e50934a-501c-4fe4-9ab9-6cf5b927942b"],
Cell[160435, 3491, 452, 10, 93, "Output",ExpressionUUID->"9af14c4a-b698-4f60-8a60-794f9b7575f0"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)