Example 01 - Mathematica
Last update: 09.03.2026(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 50130, 1385]
NotebookOptionsPosition[ 42915, 1199]
NotebookOutlinePosition[ 43260, 1214]
CellTagsIndexPosition[ 43217, 1211]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Mathematica Standalone Example 01", "Title",
CellChangeTimes->{{3.839688029061371*^9, 3.839688029333041*^9}, {
3.839688063060649*^9, 3.839688078509552*^9}, {3.8396914797351103`*^9,
3.839691482944421*^9}},ExpressionUUID->"a08b22cf-f99a-42ff-ad2d-\
e999221be01b"],
Cell[CellGroupData[{
Cell["New file and Quick Focus", "Chapter",
CellChangeTimes->{{3.8396881035725594`*^9, 3.839688112297448*^9}, {
3.8396914862400026`*^9,
3.8396914901911945`*^9}},ExpressionUUID->"f9c0b5e2-1985-4710-a48c-\
30ae38fbdeaa"],
Cell["\<\
New lens file is created and saved in samples directory.
Changes are made to aperture value, field point is added, and wavelength \
preset for FdC is selected. Comments, thicknesses, and radii are changed in \
the LDE; an F# solve is placed on the last surface\[CloseCurlyQuote]s radius. \
Finally, the quick focus tool is opened, executed, and closed.\
\>", "Text",
CellChangeTimes->{{3.8396881291975994`*^9, 3.8396881300308065`*^9}, {
3.839688228998783*^9, 3.839688243597742*^9},
3.839691532616377*^9},ExpressionUUID->"505e9e76-8b58-4850-93c8-\
549e8ef99217"],
Cell[CellGroupData[{
Cell["1. Set up the interface", "Section",
CellChangeTimes->{{3.8396882595581264`*^9,
3.8396882638859687`*^9}},ExpressionUUID->"d787219d-85f8-49b4-84c1-\
c39773cd44b7"],
Cell[CellGroupData[{
Cell["Install Mathematica\[CloseCurlyQuote]s NETLink context", "Subsection",
CellChangeTimes->{{3.8396882777989693`*^9,
3.8396882855614657`*^9}},ExpressionUUID->"fe7d1dca-805e-4f95-9d0e-\
25602c735a7d"],
Cell[BoxData[
RowBox[{"Needs", "[", "\"\<NETLink`\>\"", "]"}]], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.839688289624405*^9, 3.8396883024261284`*^9}},
Background->GrayLevel[
0.85],ExpressionUUID->"b2e11d2a-f5bb-4a79-b7eb-6f7ecd56203d"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Set a default directory and define the path to the ZOS-API libraries\
\>", "Subsection",
CellChangeTimes->{{3.8396883515947313`*^9,
3.839688361481258*^9}},ExpressionUUID->"417c9345-bda1-412d-b836-\
64afc6b8148e"],
Cell[BoxData[{
RowBox[{
RowBox[{"LoadNETType", "[", "\"\<Microsoft.Win32.Registry\>\"", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"zemaxData", " ", "=", " ",
RowBox[{"Registry`GetValue", "[",
RowBox[{
"\"\<HKEY_CURRENT_USER\\\\Software\\\\Zemax\>\"", ",", " ",
"\"\<ZemaxRoot\>\"", ",", " ",
RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"samplesDir", "=",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{"zemaxData", ",", " ", "\"\<\\\\Samples\>\""}], "}"}], "]"}]}],
";"}]}], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.839688289624405*^9, 3.8396883024261284`*^9},
3.8396886173866596`*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"af68f627-4bd9-4558-9d67-8667918e6be3"]
}, Open ]],
Cell[CellGroupData[{
Cell["Initialize the connection", "Subsection",
CellChangeTimes->{{3.839688395302744*^9,
3.8396883991473007`*^9}},ExpressionUUID->"fcec0d3b-8461-4dbe-8e29-\
a2488947bb06"],
Cell[BoxData[{
RowBox[{
RowBox[{"netHelper", " ", "=", " ",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{
"zemaxData", ",", " ",
"\"\<\\\\ZOS-API\\\\Libraries\\\\ZOSAPI_NetHelper.dll\>\""}], "}"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"LoadNETAssembly", "[", "netHelper", "]"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
"LoadNETType", "[", "\"\<ZOSAPI_NetHelper.ZOSAPI_Initializer\>\"", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"success", " ", "=", " ",
RowBox[{"ZOSAPIUInitializer`Initialize", "[", "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"Note", " ", "--"}], " ", "uncomment", " ", "the", " ",
"following", " ", "line", " ", "to", " ", "use", " ", "a", " ", "custom",
" ", "initialization", " ", "path"}], "*)"}]}], "\n",
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"success", " ", "=", " ",
RowBox[{
"ZOSAPIUInitializer`Initialize", "[",
"\"\<C:\\\\Program Files\\\\OpticStudio\>\"", "]"}]}], ";"}],
"*)"}]}]}], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->CompressedData["
1:eJwdzlkowwEAx/FNjkc5XiTHyrQHWv5W7mPI/isNf4Y8TMyRTITQHDmSuaXF
CLmfPIwHuYqtSSZXItKMeKD+I+SI/uX/+z98+7x+BUVVVIkTj8fzZ4POklfJ
oDstTffQxMMYFbk/501L7X5KK6z+aSi4Zn0ibZzhanFYQxAtrcvdS4T8neEU
OLYQI4M7F8898NBN2Qejhm7eYL1G9gkV/pZfqBOMeDeyZtTeCWH+5UowTDOO
jMIQp+NJaPG0LED+y9YSPA1q3oDZJv4mvLW7XEBdU4QNTrsW3kNf5fIjHDPE
0pAQTDlg+dniO4zMa/6C3zelPlpWayETAFcPHMEw1ZAugsWmjjCo7PchoIhg
EqC50pgMeUw7CVt7JxSQ6K7Mgx8nKjUMFK6WteHz8YhzoPOhZZZVq/JqhVTS
YBdsjF7nrGkaN0NTzjanXkzoKSEtvdIy8/BdvrYB62d2tyH1lxmaxbpL9sdB
fdS5DGoqdHL4DxfM5Zo=
"],
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"d08d2fb7-67ba-4c5c-8b0e-8b9e4ba6dc72"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{"success", " ", "\[Equal]", " ", "True"}], ",",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"found", "=", "\"\<Found OpticStudio at: \>\""}], ";",
"\[IndentingNewLine]",
RowBox[{"location", "=",
RowBox[{"ToString", "[",
RowBox[{"ZOSAPIUInitializer`GetZemaxDirectory", "[", "]"}], "]"}]}],
";", "\[IndentingNewLine]",
RowBox[{"found", "<>", "location"}]}], "\[IndentingNewLine]", "}"}], ",",
" ", "\"\<Failed to connect!\>\""}], "]"}]], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.766252021260979*^9, 3.76625203846459*^9}, {
3.7689155751212254`*^9, 3.7689156132860904`*^9}, {3.7690273461510496`*^9,
3.7690273494975615`*^9}, 3.769032225376509*^9, {3.7776643069851527`*^9,
3.7776644478785586`*^9}, {3.777664478956308*^9, 3.7776645110639772`*^9}, {
3.7776645846413746`*^9, 3.7776645987933607`*^9}, {3.777664639080394*^9,
3.77766475072039*^9}, {3.777664890569967*^9, 3.777664899544757*^9}},
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"535dd54b-4517-4c27-988b-3e38692c8424"],
Cell[BoxData[
RowBox[{"{", "\<\"Found OpticStudio at: c:\\\\program files\\\\zemax \
opticstudio 21.3.1\"\>", "}"}]], "Output",
CellChangeTimes->{
3.843920769793024*^9, 3.84392085119652*^9, 3.8439212906899757`*^9,
3.84392137334933*^9, {3.8439217596654644`*^9, 3.84392178265172*^9},
3.845734172402504*^9},ExpressionUUID->"6f23adab-51a8-4bc4-adf6-\
a45bc16806b8"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Load assemblies", "Subsection",
CellChangeTimes->{{3.8396884196575794`*^9,
3.839688422125188*^9}},ExpressionUUID->"81680ac0-d3f6-4dd9-9322-\
57db8a8e4700"],
Cell[BoxData[{
RowBox[{
RowBox[{"zosapi", "=",
RowBox[{"LoadNETAssembly", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{"location", ",", " ", "\"\<\\\\ZOSAPI.dll\>\""}], "}"}], "]"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"interfaces", "=",
RowBox[{"LoadNETAssembly", "[",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{"location", ",", " ", "\"\<\\\\ZOSAPI_Interfaces.dll\>\""}],
"}"}], "]"}], "]"}]}], ";"}]}], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.766252021260979*^9, 3.76625203846459*^9}, {
3.7689155751212254`*^9, 3.7689156132860904`*^9}, {3.7690273461510496`*^9,
3.7690273494975615`*^9}, 3.769032225376509*^9, {3.7776647722745123`*^9,
3.777664779816164*^9}, {3.7776648220254173`*^9, 3.7776648750010605`*^9}, {
3.777664906297093*^9, 3.77766495188325*^9}, {3.7776650686907253`*^9,
3.777665069416005*^9}, {3.7776652098156643`*^9, 3.777665266344265*^9}, {
3.7776655899029236`*^9, 3.7776655942636356`*^9}},
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"869de14f-800d-497b-8184-7a9725dda15b"]
}, Open ]],
Cell[CellGroupData[{
Cell["Open connection and create the application", "Subsection",
CellChangeTimes->{{3.839688440804923*^9,
3.839688449586424*^9}},ExpressionUUID->"a3ee36a0-dfa3-4bee-8ecc-\
7b8d6d3c4eab"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Open", " ", "connection", " ", "and", " ", "create", " ", "an", " ",
"application"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"theConnection", "=",
RowBox[{"NETNew", "[", "\"\<ZOSAPI.ZOSAPI_Connection\>\"", "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"theApplication", "=",
RowBox[{"theConnection", "@",
RowBox[{"CreateNewApplication", "[", "]"}]}]}], ";"}]}]}]], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.7662520483944936`*^9, 3.7662520734968863`*^9}, {
3.768915627725685*^9, 3.768915643519889*^9}, {3.7772185086530094`*^9,
3.777218518629236*^9}, {3.7772294462356577`*^9, 3.777229452653195*^9}, {
3.77730155688553*^9, 3.7773015575657034`*^9}, {3.7773020419798145`*^9,
3.777302042756255*^9}, {3.777664956463653*^9, 3.7776649571358194`*^9}, {
3.777665070624301*^9, 3.777665071288994*^9}},
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"790d336e-bfee-4dc5-8d6b-f78966400f5d"]
}, Open ]],
Cell[CellGroupData[{
Cell["Perform final checks regarding the connection", "Subsection",
CellChangeTimes->{{3.839688440804923*^9, 3.839688449586424*^9}, {
3.843920456492786*^9,
3.84392046597336*^9}},ExpressionUUID->"7fccc460-e2d5-464d-b47e-\
ee7ee2a49357"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Check", " ", "that", " ", "a", " ", "connection", " ", "was", " ",
"established"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"NETObjectQ", "[", "theApplication", "]"}], " ", "\[Equal]",
" ", "False"}], ",", " ",
"\"\<An unknown connection error occurred!\>\"", ",", " ",
RowBox[{"\"\<\>\"", ";"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Check", " ", "license", " ", "status"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"theApplication", "@", "IsValidLicenseForAPI"}], "\[Equal]",
" ", "False"}], ",", " ",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"theApplication", "@",
RowBox[{"CloseApplication", "[", "]"}]}], ";",
"\[IndentingNewLine]", "\"\<License check failed!\>\""}], "}"}], ",",
" ", "\"\<\>\""}], "]"}], ";"}]}]}]], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {15, 0}},
CellChangeTimes->{{3.7662520483944936`*^9, 3.7662520734968863`*^9}, {
3.768915627725685*^9, 3.768915643519889*^9}, {3.7772185086530094`*^9,
3.777218518629236*^9}, {3.7772294462356577`*^9, 3.777229452653195*^9}, {
3.77730155688553*^9, 3.7773015575657034`*^9}, {3.7773020419798145`*^9,
3.777302042756255*^9}, {3.777664956463653*^9, 3.7776649571358194`*^9}, {
3.777665070624301*^9, 3.777665071288994*^9}, {3.843920470808078*^9,
3.843920479987147*^9}, {3.843920675890939*^9, 3.8439207507653284`*^9}, {
3.843920860815098*^9, 3.8439208866187506`*^9}, {3.843920930850752*^9,
3.8439209876787605`*^9}, {3.84392132838673*^9, 3.8439213378825197`*^9}, {
3.8439213956365037`*^9, 3.8439214804519625`*^9}, {3.8439215543612347`*^9,
3.8439215970057573`*^9}, {3.843921738136207*^9, 3.843921739947053*^9}},
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"0f555edb-630b-4daf-85aa-4e366485e387"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["2. Import Modules", "Section",
CellChangeTimes->{{3.8396886714301157`*^9,
3.8396886750288715`*^9}},ExpressionUUID->"35d9530a-8a27-4d91-a844-\
e88e593606d6"],
Cell[CellGroupData[{
Cell["Module to view the LDE information", "Subsection",
CellChangeTimes->{{3.8396886879175005`*^9,
3.8396887081567287`*^9}},ExpressionUUID->"f6e9a53a-a89d-42d5-b3a4-\
b1483f62b928"],
Cell[BoxData[
RowBox[{"displayLDE", ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"numberofsurfaces", ",", "LDEdata", ",", "tempsurf"}], "}"}],
",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"numberofsurfaces", "=",
RowBox[{"theLDE", "@", "NumberOfSurfaces"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"LDEdata", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{",",
RowBox[{"{",
RowBox[{"a", ",", "1", ",", "numberofsurfaces"}], "}"}], ",",
RowBox[{"{",
RowBox[{"b", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Do", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"tempsurf", " ", "=", " ",
RowBox[{"theLDE", "@",
RowBox[{"GetSurfaceAt", "[", "j", "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "1"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "SurfaceNumber"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "2"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@",
RowBox[{"Type", "@",
RowBox[{"ToString", "[", "\"\<\>\"", "]"}]}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "3"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Comment"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "4"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Radius"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "5"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Conic"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "6"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Thickness"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "7"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Material"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "8"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "Coating"}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LDEdata", "[",
RowBox[{"[",
RowBox[{
RowBox[{"j", "+", "1"}], ",", "9"}], "]"}], "]"}], "=",
RowBox[{"tempsurf", "@", "SemiDiameter"}]}]}], "\[IndentingNewLine]",
",",
RowBox[{"{",
RowBox[{"j", ",", "0", ",",
RowBox[{"numberofsurfaces", "-", "1"}], ",", "1"}], "}"}]}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"TableForm", "[",
RowBox[{"LDEdata", ",",
RowBox[{"TableHeadings", "\[Rule]",
RowBox[{"{",
RowBox[{"None", ",",
RowBox[{"{",
RowBox[{
"\"\<surface #\>\"", ",", "\"\<surface type\>\"", ",",
"\"\<comment\>\"", ",", "\"\<ROC\>\"", ",", "\"\<conic\>\"", ",",
"\"\<thickness\>\"", ",", "\"\<material\>\"", ",",
"\"\<coating\>\"", ",", "\"\<semi-diameter\>\""}], "}"}]}],
"}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
CellFrame->True,
CellMargins->{{30, 0}, {0, 0}},
TextAlignment->AlignmentMarker,
Background->GrayLevel[
0.85],ExpressionUUID->"512f86a9-0c42-4d1a-9527-e9e488a606a5"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["3. Create and set up a new file", "Section",
CellChangeTimes->{{3.8396888508724346`*^9,
3.8396888548861465`*^9}},ExpressionUUID->"64ea51cc-4c74-4406-ae9d-\
64d35d9e7216"],
Cell[CellGroupData[{
Cell["Generate a Mathematica API folder", "Subsection",
CellMargins->{{30, 0}, {5, 15}},
CellChangeTimes->{{3.8396888641435747`*^9, 3.839688869745624*^9}, {
3.8396889610022497`*^9,
3.8396889687134495`*^9}},ExpressionUUID->"c373aec0-97d3-497f-9e76-\
be8d5eb6f1ac"],
Cell[BoxData[{
RowBox[{
RowBox[{"apiDir", "=",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{"samplesDir", ",", " ", "\"\<\\\\API\\\\Mathematica\>\""}],
"}"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"DirectoryQ", "[", "apiDir", "]"}], "\[Equal]", "False"}], ",",
" ",
RowBox[{"CreateDirectory", "[", "apiDir", "]"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.839689080870589*^9,
3.8396890811783457`*^9}},ExpressionUUID->"aa9a9577-60a3-4812-aae0-\
8b73f3a3f0f6"]
}, Open ]],
Cell[CellGroupData[{
Cell["Set up a primary optical system and make a new file", "Subsection",
CellMargins->{{30, 0}, {5, 15}},
CellChangeTimes->{{3.8396888641435747`*^9, 3.839688869745624*^9}, {
3.8396889610022497`*^9, 3.8396889687134495`*^9}, {3.8396890878719964`*^9,
3.8396890894900384`*^9}, {3.839690855879406*^9, 3.8396908593155165`*^9}, {
3.839690922242832*^9,
3.839690925937853*^9}},ExpressionUUID->"0077a9be-88d0-4b46-8459-\
742cebf90032"],
Cell[BoxData[{
RowBox[{
RowBox[{"theSystem", "=",
RowBox[{"theApplication", "@",
RowBox[{"PrimarySystem", "[", "]"}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"lensname", "=", "\"\<e01_new_file_and_quickfocus.zmx\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"lensFile", "=",
RowBox[{"FileNameJoin", "[",
RowBox[{"{",
RowBox[{"apiDir", ",", "lensname"}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"theSystem", "@",
RowBox[{"New", "[", "False", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"theSystem", "@",
RowBox[{"SaveAs", "[", "lensFile", "]"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.8396908848720417`*^9, 3.8396908861659174`*^9}, {
3.8396909473655686`*^9,
3.839691003955614*^9}},ExpressionUUID->"68669788-9684-44df-8297-\
135b7acb23d7"]
}, Open ]],
Cell[CellGroupData[{
Cell["Set up system preferences", "Subsection",
CellMargins->{{30, 0}, {5, 15}},
CellChangeTimes->{{3.8396888641435747`*^9, 3.839688869745624*^9}, {
3.8396889610022497`*^9, 3.8396889687134495`*^9}, {3.8396890878719964`*^9,
3.839689106316992*^9}},ExpressionUUID->"5e64f9ce-6f9d-4104-b619-\
e45c7f4629ee"],
Cell[BoxData[
RowBox[{
RowBox[{"systemData", "=",
RowBox[{"theSystem", "@", "SystemData"}]}], ";"}]], "Input",ExpressionUUID-\
>"18076e36-faee-4dcb-b7d5-7f3cb659c959"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Add", " ", "a", " ", "Material", " ", "Catalog"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"systemData", "@",
RowBox[{"MaterialCatalogs", "@",
RowBox[{"AddCatalog", "[", "\"\<SCHOTT\>\"", "]"}]}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.8396910294605474`*^9,
3.8396910948451557`*^9}},ExpressionUUID->"a75f5db4-6a46-44b2-888d-\
6dc84dc93e53"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Change", " ", "the", " ", "system", " ", "aperture", " ", "to", " ", "40",
" ", "lens", " ", "units"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"systemData", "@",
RowBox[{"Aperture", "@", "ApertureValue"}]}], "=", "40"}],
";"}]}]], "Input",
CellChangeTimes->{{3.83968982201978*^9, 3.8396898323865814`*^9}, {
3.839691078298629*^9,
3.8396910811086397`*^9}},ExpressionUUID->"baed72ba-c8cc-42d7-80fe-\
26a48e27d987"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"Add", " ", "one", " ", "off"}], "-",
RowBox[{"axis", " ", "field"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"field1", "=",
RowBox[{"systemData", "@",
RowBox[{"Fields", "@",
RowBox[{"GetField", "[", "1", "]"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"newField2", "=",
RowBox[{"systemData", "@",
RowBox[{"Fields", "@",
RowBox[{"AddField", "[",
RowBox[{"0", ",", " ", "5.0", ",", " ", "1.0"}], "]"}]}]}]}],
";"}]}]}]], "Input",ExpressionUUID->"2e7595d7-a64b-4994-8c1a-\
a44099862bc9"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"Define", " ", "the", " ", "d"}], "-",
RowBox[{
"line", " ", "as", " ", "the", " ", "system", " ", "wavelength"}]}],
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"primaryWavelength", "=",
RowBox[{"systemData", "@",
RowBox[{"Wavelengths", "@",
RowBox[{"SelectWavelengthPreset", "[",
RowBox[{
RowBox[{"ZOSAPI", "@",
RowBox[{"SystemData", "@",
RowBox[{"WavelengthPreset", "@", "d_"}]}]}], "0", "p587"}],
"]"}]}]}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.77489565797472*^9,
3.7748956779473944`*^9}},ExpressionUUID->"24ff3cb8-9156-4b9c-99b2-\
32f39b5a566b"]
}, Open ]],
Cell[CellGroupData[{
Cell["Display the current LDE", "Subsection",
CellChangeTimes->{{3.8396901353915668`*^9,
3.8396901392957335`*^9}},ExpressionUUID->"1e7dfad2-4eae-4dc7-8ce4-\
dbc4b7291c99"],
Cell[BoxData[
RowBox[{
RowBox[{"theLDE", " ", "=", " ",
RowBox[{"theSystem", "@", "LDE"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8396901413018456`*^9, 3.8396901467099113`*^9}, {
3.839691142068884*^9,
3.8396911467489195`*^9}},ExpressionUUID->"053d9d58-bf8c-41b0-bf57-\
a6171a795ce8"],
Cell[CellGroupData[{
Cell[BoxData["displayLDE"], "Input",
CellFrame->True,
CellMargins->{{66, 10}, {0, 8}},
CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}},
TextAlignment->
AlignmentMarker,ExpressionUUID->"0d903506-c0f1-4b00-9e38-ae62d5b597a4"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
TagBox["\<\"surface #\"\>",
HoldForm],
TagBox["\<\"surface type\"\>",
HoldForm],
TagBox["\<\"comment\"\>",
HoldForm],
TagBox["\<\"ROC\"\>",
HoldForm],
TagBox["\<\"conic\"\>",
HoldForm],
TagBox["\<\"thickness\"\>",
HoldForm],
TagBox["\<\"material\"\>",
HoldForm],
TagBox["\<\"coating\"\>",
HoldForm],
TagBox["\<\"semi-diameter\"\>",
HoldForm]},
{"0", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "\[Infinity]"},
{"1", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"0.`", "\<\"\"\>", "\<\"\"\>", "20.`"},
{"2", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "20.`"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxDividers->{
"Columns" -> {{False}}, "ColumnsIndexed" -> {},
"Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
{None, OutputFormsDump`HeadedColumns}],
Function[BoxForm`e$,
TableForm[
BoxForm`e$,
TableHeadings -> {
None, {"surface #", "surface type", "comment", "ROC", "conic",
"thickness", "material", "coating", "semi-diameter"}}]]]], "Output",
CellFrame->True,
CellMargins->{{66, 10}, {12, 0}},
CellChangeTimes->{3.768743266989798*^9, 3.7687452099422946`*^9,
3.7687452660911894`*^9, 3.7690318506843057`*^9, 3.7690381241115108`*^9,
3.7690381894261456`*^9, 3.7690383002104435`*^9, 3.7691074530834055`*^9,
3.76910832773925*^9, 3.769108505428296*^9, 3.769108965218915*^9,
3.7691093645549984`*^9, 3.7691095158535037`*^9, 3.769109658819937*^9,
3.769111013477272*^9, 3.7691143191602373`*^9, 3.769114625776077*^9,
3.7748958287705812`*^9, 3.7748959627118645`*^9, 3.7748961368826046`*^9,
3.778438620134506*^9, 3.7784386727747736`*^9, 3.8396905446298037`*^9,
3.839691163500985*^9, 3.8396922541366854`*^9, 3.839692295872362*^9,
3.8396945691331325`*^9, 3.8454066496131697`*^9, 3.8457323722432985`*^9,
3.8457341775826974`*^9},
TextAlignment->AlignmentMarker,
Background->RGBColor[
0.854902, 0.85098,
0.843137],ExpressionUUID->"4881ce8b-c17a-4efe-bdb0-597a3b5393b3"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Add the singlet", "Subsection",
CellChangeTimes->{{3.839691177088766*^9,
3.839691178862774*^9}},ExpressionUUID->"7ea3a12e-bb83-46ed-8f3b-\
b0ccfa3d554e"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Add", " ", "two", " ", "new", " ", "surfaces"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"theLDE", "@",
RowBox[{"InsertNewSurfaceAt", "[", "2", "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"theLDE", "@",
RowBox[{"InsertNewSurfaceAt", "[", "2", "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"surf0", "=",
RowBox[{"theLDE", "@",
RowBox[{"GetSurfaceAt", "[", "0", "]"}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"surf1", "=",
RowBox[{"theLDE", "@",
RowBox[{"GetSurfaceAt", "[", "1", "]"}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"surf2", "=",
RowBox[{"theLDE", "@",
RowBox[{"GetSurfaceAt", "[", "2", "]"}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"surf3", "=",
RowBox[{"theLDE", "@",
RowBox[{"GetSurfaceAt", "[", "3", "]"}]}]}], ";"}]}]}]], "Input",Express\
ionUUID->"b0185e74-c061-4c8a-abfd-f882352619cc"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Edit", " ", "the", " ", "surface", " ", "parameters"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"surf1", "@", "Thickness"}], "=", "50.0"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf1", "@", "Comment"}], "=", "\"\<Stop is free to move\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf2", "@", "Radius"}], "=", "100.0"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf2", "@", "Thickness"}], "=", "10.0"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf2", "@", "Comment"}], "=", "\"\<Front of lens\>\""}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf2", "@", "Material"}], "=", "\"\<N-BK7\>\""}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"surf3", "@", "Comment"}], "=", "\"\<Rear of lens\>\""}],
";"}]}]}]], "Input",
CellChangeTimes->{
3.839691231397273*^9, {3.8396912658369083`*^9,
3.8396912943911333`*^9}},ExpressionUUID->"852b83a1-97fa-461f-a3fd-\
c1a344de560f"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{"View", " ", "the", " ", "updated", " ", "LDE"}], "*)"}]], "Input",
CellChangeTimes->{{3.8396912380741444`*^9,
3.839691243038931*^9}},ExpressionUUID->"8eaab1d9-9662-4ab8-ad32-\
dab95116f727"],
Cell[CellGroupData[{
Cell[BoxData["displayLDE"], "Input",
CellFrame->True,
CellMargins->{{66, 10}, {0, 8}},
CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}},
TextAlignment->
AlignmentMarker,ExpressionUUID->"3b2cbddd-ce81-43a9-980a-f3bf276d7c8a"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
TagBox["\<\"surface #\"\>",
HoldForm],
TagBox["\<\"surface type\"\>",
HoldForm],
TagBox["\<\"comment\"\>",
HoldForm],
TagBox["\<\"ROC\"\>",
HoldForm],
TagBox["\<\"conic\"\>",
HoldForm],
TagBox["\<\"thickness\"\>",
HoldForm],
TagBox["\<\"material\"\>",
HoldForm],
TagBox["\<\"coating\"\>",
HoldForm],
TagBox["\<\"semi-diameter\"\>",
HoldForm]},
{"0", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "\[Infinity]"},
{"1", "\<\"Standard\"\>", "\<\"Stop is free to move\"\>", "\[Infinity]",
"0.`", "50.`", "\<\"\"\>", "\<\"\"\>", "20.`"},
{"2", "\<\"Standard\"\>", "\<\"Front of lens\"\>", "100.`", "0.`",
"10.`", "\<\"N-BK7\"\>", "\<\"\"\>", "24.644271308340777`"},
{"3", "\<\"Standard\"\>", "\<\"Rear of lens\"\>", "\[Infinity]", "0.`",
"0.`", "\<\"\"\>", "\<\"\"\>", "24.44127332845521`"},
{"4", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "24.44127332845521`"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxDividers->{
"Columns" -> {{False}}, "ColumnsIndexed" -> {},
"Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
{None, OutputFormsDump`HeadedColumns}],
Function[BoxForm`e$,
TableForm[
BoxForm`e$,
TableHeadings -> {
None, {"surface #", "surface type", "comment", "ROC", "conic",
"thickness", "material", "coating", "semi-diameter"}}]]]], "Output",
CellFrame->True,
CellMargins->{{66, 10}, {12, 0}},
CellChangeTimes->{
3.768743266989798*^9, 3.7687452099422946`*^9, 3.7687452660911894`*^9,
3.7690318506843057`*^9, 3.7690381241115108`*^9, 3.7690381894261456`*^9,
3.7690383002104435`*^9, 3.7691074530834055`*^9, 3.76910832773925*^9,
3.769108505428296*^9, 3.769108965218915*^9, 3.7691093645549984`*^9,
3.7691095158535037`*^9, 3.769109658819937*^9, 3.769111013477272*^9,
3.7691143191602373`*^9, 3.769114625776077*^9, 3.7748959883268623`*^9,
3.774896153221017*^9, 3.778438620355625*^9, 3.778438672984215*^9,
3.8396905448018465`*^9, {3.8396912495887184`*^9, 3.8396912992020993`*^9},
3.8396922542104855`*^9, 3.8396922959505043`*^9, 3.839694569197633*^9,
3.8454066496774716`*^9, 3.8457323723051357`*^9, 3.845734177658432*^9},
TextAlignment->AlignmentMarker,
Background->RGBColor[
0.854902, 0.85098,
0.843137],ExpressionUUID->"b536e038-7c17-45b0-a1c6-bd138dca59ba"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Apply a solve in the LDE", "Subsection",
CellChangeTimes->{{3.8396913167036676`*^9,
3.839691326709589*^9}},ExpressionUUID->"2b44b6d5-374e-4d12-a27c-\
aa5fb7f569c2"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Load", " ", "enumeration", " ", "data", " ", "to", " ", "help", " ", "us",
" ", "pick", " ", "the", " ", "solve", " ", "type"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"LoadNETType", "[", "\"\<ZOSAPI.Editors.SolveType\>\"", "]"}],
";"}]}]], "Input",
CellChangeTimes->{{3.774896189734271*^9, 3.774896208968252*^9}, {
3.8396913350121346`*^9,
3.8396913613740745`*^9}},ExpressionUUID->"aa4ff7c2-1e25-4250-b151-\
75ad3376f90d"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"Apply", " ", "F"}], "-",
RowBox[{"Number", " ", "solve", " ", "to", " ", "surface", " ", "3"}]}],
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"solver", "=",
RowBox[{"surf3", "@",
RowBox[{"RadiusCell", "@",
RowBox[{"CreateSolveType", "[", "SolveType`FNumber", "]"}]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"solver", "@", "FNumber"}], "=", "10"}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"surf3", "@",
RowBox[{"RadiusCell", "@",
RowBox[{"SetSolveData", "[", "solver", "]"}]}]}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.774896232629739*^9,
3.7748962333860507`*^9}},ExpressionUUID->"377eef02-e723-4975-87c3-\
c9fe0bb53af2"],
Cell[CellGroupData[{
Cell[BoxData["displayLDE"], "Input",
CellFrame->True,
CellMargins->{{66, 10}, {0, 8}},
CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}},
TextAlignment->
AlignmentMarker,ExpressionUUID->"1394d985-1615-4fd0-aeff-b6be8b743d5a"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
TagBox["\<\"surface #\"\>",
HoldForm],
TagBox["\<\"surface type\"\>",
HoldForm],
TagBox["\<\"comment\"\>",
HoldForm],
TagBox["\<\"ROC\"\>",
HoldForm],
TagBox["\<\"conic\"\>",
HoldForm],
TagBox["\<\"thickness\"\>",
HoldForm],
TagBox["\<\"material\"\>",
HoldForm],
TagBox["\<\"coating\"\>",
HoldForm],
TagBox["\<\"semi-diameter\"\>",
HoldForm]},
{"0", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "\[Infinity]"},
{"1", "\<\"Standard\"\>", "\<\"Stop is free to move\"\>", "\[Infinity]",
"0.`", "50.`", "\<\"\"\>", "\<\"\"\>", "20.`"},
{"2", "\<\"Standard\"\>", "\<\"Front of lens\"\>", "100.`", "0.`",
"10.`", "\<\"N-BK7\"\>", "\<\"\"\>", "24.644271308340777`"},
{"3", "\<\"Standard\"\>", "\<\"Rear of lens\"\>", "187.10333506602882`",
"0.`", "0.`", "\<\"\"\>", "\<\"\"\>", "24.39439421910087`"},
{"4", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "24.35740724758031`"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxDividers->{
"Columns" -> {{False}}, "ColumnsIndexed" -> {},
"Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
{None, OutputFormsDump`HeadedColumns}],
Function[BoxForm`e$,
TableForm[
BoxForm`e$,
TableHeadings -> {
None, {"surface #", "surface type", "comment", "ROC", "conic",
"thickness", "material", "coating", "semi-diameter"}}]]]], "Output",
CellFrame->True,
CellMargins->{{66, 10}, {12, 0}},
CellChangeTimes->{
3.768743266989798*^9, 3.7687452099422946`*^9, 3.7687452660911894`*^9,
3.7690318506843057`*^9, 3.7690381241115108`*^9, 3.7690381894261456`*^9,
3.7690383002104435`*^9, 3.7691074530834055`*^9, 3.76910832773925*^9,
3.769108505428296*^9, 3.769108965218915*^9, 3.7691093645549984`*^9,
3.7691095158535037`*^9, 3.769109658819937*^9, 3.769111013477272*^9,
3.7691143191602373`*^9, 3.769114625776077*^9, 3.7748959883268623`*^9,
3.774896153221017*^9, 3.778438620355625*^9, 3.778438672984215*^9,
3.8396905448018465`*^9, {3.8396912495887184`*^9, 3.8396912992020993`*^9}, {
3.8396913559609113`*^9, 3.8396913665035257`*^9}, 3.839692254282161*^9,
3.8396922960329075`*^9, 3.8396945692765617`*^9, 3.8454066497592883`*^9,
3.845732372386998*^9, 3.845734177731671*^9},
TextAlignment->AlignmentMarker,
Background->RGBColor[
0.854902, 0.85098,
0.843137],ExpressionUUID->"dba68860-fa68-4e98-a896-033cedfd1bf4"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["4. Run Quick Focus", "Section",
CellChangeTimes->{{3.8396913783685584`*^9,
3.8396913811518064`*^9}},ExpressionUUID->"4639fbd7-b719-4908-9121-\
fb481da3ddbf"],
Cell[CellGroupData[{
Cell["Apply settings and run the tool", "Subsection",
CellChangeTimes->{{3.8396913924204903`*^9,
3.839691398927729*^9}},ExpressionUUID->"685728dd-0ceb-4fc3-ab01-\
04502810bf12"],
Cell[BoxData[
RowBox[{
RowBox[{
"LoadNETType", "[", "\"\<ZOSAPI.Tools.General.QuickFocusCriterion\>\"",
"]"}], ";"}]], "Input",
CellChangeTimes->{{3.7643435404135647`*^9, 3.76434359553121*^9}, {
3.764344601758454*^9, 3.764344616254414*^9}, {3.7643447294962826`*^9,
3.7643447298862724`*^9},
3.774896298430417*^9},ExpressionUUID->"c09fa931-5be7-4c06-9552-\
77e917985260"],
Cell[BoxData[{
RowBox[{
RowBox[{"quickFocus", "=",
RowBox[{"theSystem", "@",
RowBox[{"Tools", "@",
RowBox[{"OpenQuickFocus", "[", "]"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"quickFocus", "@", "Criterion"}], "=",
"QuickFocusCriterion`SpotSizeRadial"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"quickFocus", "@", "UseCentroid"}], "=", "True"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"runQF", ":=",
RowBox[{"quickFocus", "@",
RowBox[{"RunAndWaitForCompletion", "[", "]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"runQF", ";"}]}], "Input",
CellChangeTimes->{{3.7748963131647725`*^9,
3.774896316284902*^9}},ExpressionUUID->"81cd5505-04fb-4567-9a10-\
259695001680"],
Cell[BoxData[
RowBox[{
RowBox[{"quickFocus", "@",
RowBox[{"Close", "[", "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.839692703549769*^9,
3.8396927078733873`*^9}},ExpressionUUID->"ff19e0a8-c16e-400e-b297-\
ddd89216149d"]
}, Open ]],
Cell[CellGroupData[{
Cell["Confirm the tool has run by observing LDE", "Subsection",
CellChangeTimes->{{3.8396914363504896`*^9,
3.8396914511630774`*^9}},ExpressionUUID->"57218785-fb5a-4d59-a82a-\
51da3757329f"],
Cell[CellGroupData[{
Cell[BoxData["displayLDE"], "Input",
CellFrame->True,
CellMargins->{{66, 10}, {0, 8}},
CellChangeTimes->{{3.7687432644016266`*^9, 3.7687432659112825`*^9}},
TextAlignment->
AlignmentMarker,ExpressionUUID->"94fc1bd8-c114-4928-bdfc-d74e61411446"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
TagBox["\<\"surface #\"\>",
HoldForm],
TagBox["\<\"surface type\"\>",
HoldForm],
TagBox["\<\"comment\"\>",
HoldForm],
TagBox["\<\"ROC\"\>",
HoldForm],
TagBox["\<\"conic\"\>",
HoldForm],
TagBox["\<\"thickness\"\>",
HoldForm],
TagBox["\<\"material\"\>",
HoldForm],
TagBox["\<\"coating\"\>",
HoldForm],
TagBox["\<\"semi-diameter\"\>",
HoldForm]},
{"0", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "\[Infinity]"},
{"1", "\<\"Standard\"\>", "\<\"Stop is free to move\"\>", "\[Infinity]",
"0.`", "50.`", "\<\"\"\>", "\<\"\"\>", "20.`"},
{"2", "\<\"Standard\"\>", "\<\"Front of lens\"\>", "100.`", "0.`",
"10.`", "\<\"N-BK7\"\>", "\<\"\"\>", "24.644271308340777`"},
{"3", "\<\"Standard\"\>", "\<\"Rear of lens\"\>", "187.10333506602882`",
"0.`", "376.8096884835882`", "\<\"\"\>", "\<\"\"\>",
"24.39439421910087`"},
{"4", "\<\"Standard\"\>", "\<\"\"\>", "\[Infinity]", "0.`",
"\[Infinity]", "\<\"\"\>", "\<\"\"\>", "34.03848404004736`"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxDividers->{
"Columns" -> {{False}}, "ColumnsIndexed" -> {},
"Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
{None, OutputFormsDump`HeadedColumns}],
Function[BoxForm`e$,
TableForm[
BoxForm`e$,
TableHeadings -> {
None, {
"surface #", "surface type", "comment", "ROC", "conic", "thickness",
"material", "coating", "semi-diameter"}}]]]], "Output",
CellFrame->True,
CellMargins->{{66, 10}, {12, 0}},
CellChangeTimes->{
3.768743266989798*^9, 3.7687452099422946`*^9, 3.7687452660911894`*^9,
3.7690318506843057`*^9, 3.7690381241115108`*^9, 3.7690381894261456`*^9,
3.7690383002104435`*^9, 3.7691074530834055`*^9, 3.76910832773925*^9,
3.769108505428296*^9, 3.769108965218915*^9, 3.7691093645549984`*^9,
3.7691095158535037`*^9, 3.769109658819937*^9, 3.769111013477272*^9,
3.7691143191602373`*^9, 3.769114625776077*^9, 3.7748959883268623`*^9,
3.774896153221017*^9, 3.778438620355625*^9, 3.778438672984215*^9,
3.8396905448018465`*^9, {3.8396912495887184`*^9, 3.8396912992020993`*^9}, {
3.8396913559609113`*^9, 3.8396913665035257`*^9}, 3.839691457444555*^9,
3.839692254330844*^9, 3.8396922960957384`*^9, 3.8396945693345113`*^9,
3.84540664982857*^9, 3.845732372455301*^9, 3.845734177808395*^9},
TextAlignment->AlignmentMarker,
Background->RGBColor[
0.854902, 0.85098,
0.843137],ExpressionUUID->"a296c151-5756-4bcf-a7c1-02e676f469cb"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["5. Save the file", "Section",
CellChangeTimes->{{3.8396922140012035`*^9,
3.8396922157735577`*^9}},ExpressionUUID->"fc2c83cc-04c0-43e8-a5a2-\
8a24bb26d936"],
Cell[BoxData[
RowBox[{
RowBox[{"theSystem", "@",
RowBox[{"Save", "[", "]"}]}], ";"}]], "Input",
CellMargins->{{66, 10}, {5, 10}},
CellChangeTimes->{{3.768744844841243*^9, 3.7687448592927485`*^9}, {
3.769024012012724*^9, 3.769024021137352*^9}, {3.769031995005757*^9,
3.7690319962188597`*^9}, {3.7690391527312164`*^9, 3.769039153363533*^9}, {
3.839696104375512*^9, 3.8396961061321416`*^9}},
TextAlignment->
AlignmentMarker,ExpressionUUID->"5ebdd5a6-2bc9-45ee-8ae5-10b05690b075"]
}, Open ]],
Cell[CellGroupData[{
Cell["Close the application", "Section",
CellChangeTimes->{{3.839688474058258*^9,
3.8396884761375017`*^9}},ExpressionUUID->"57164ee3-d71d-43df-97af-\
c2c8107e09ac"],
Cell[BoxData[
RowBox[{
RowBox[{"theApplication", "@",
RowBox[{"CloseApplication", "[", "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.839688478377141*^9,
3.8396884894719977`*^9}},ExpressionUUID->"b4cd7c5a-6e7e-4eb5-8e83-\
bbaf9cf79b2f"]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{958, 988},
WindowMargins->{{Automatic, -3024}, {Automatic, 0}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 273, 4, 101, "Title", "ExpressionUUID" -> \
"a08b22cf-f99a-42ff-ad2d-e999221be01b"],
Cell[CellGroupData[{
Cell[878, 30, 224, 4, 72, "Chapter", "ExpressionUUID" -> \
"f9c0b5e2-1985-4710-a48c-30ae38fbdeaa"],
Cell[1105, 36, 580, 11, 106, "Text", "ExpressionUUID" -> \
"505e9e76-8b58-4850-93c8-549e8ef99217"],
Cell[CellGroupData[{
Cell[1710, 51, 172, 3, 70, "Section", "ExpressionUUID" -> \
"d787219d-85f8-49b4-84c1-c39773cd44b7"],
Cell[CellGroupData[{
Cell[1907, 58, 206, 3, 49, "Subsection", "ExpressionUUID" -> \
"fe7d1dca-805e-4f95-9d0e-25602c735a7d"],
Cell[2116, 63, 281, 6, 48, "Input", "ExpressionUUID" -> \
"b2e11d2a-f5bb-4a79-b7eb-6f7ecd56203d"]
}, Open ]],
Cell[CellGroupData[{
Cell[2434, 74, 226, 5, 49, "Subsection", "ExpressionUUID" -> \
"417c9345-bda1-412d-b836-64afc6b8148e"],
Cell[2663, 81, 825, 22, 87, "Input", "ExpressionUUID" -> \
"af68f627-4bd9-4558-9d67-8667918e6be3"]
}, Open ]],
Cell[CellGroupData[{
Cell[3525, 108, 175, 3, 49, "Subsection", "ExpressionUUID" -> \
"fcec0d3b-8461-4dbe-8e29-a2488947bb06"],
Cell[3703, 113, 1885, 50, 163, "Input", "ExpressionUUID" -> \
"d08d2fb7-67ba-4c5c-8b0e-8b9e4ba6dc72"],
Cell[CellGroupData[{
Cell[5613, 167, 1186, 24, 125, "Input", "ExpressionUUID" -> \
"535dd54b-4517-4c27-988b-3e38692c8424"],
Cell[6802, 193, 373, 7, 30, "Output", "ExpressionUUID" -> \
"6f23adab-51a8-4bc4-adf6-a45bc16806b8"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[7224, 206, 165, 3, 49, "Subsection", "ExpressionUUID" -> \
"81680ac0-d3f6-4dd9-9322-57db8a8e4700"],
Cell[7392, 211, 1187, 26, 68, "Input", "ExpressionUUID" -> \
"869de14f-800d-497b-8184-7a9725dda15b"]
}, Open ]],
Cell[CellGroupData[{
Cell[8616, 242, 190, 3, 49, "Subsection", "ExpressionUUID" -> \
"a3ee36a0-dfa3-4bee-8ecc-7b8d6d3c4eab"],
Cell[8809, 247, 1094, 25, 87, "Input", "ExpressionUUID" -> \
"790d336e-bfee-4dc5-8d6b-f78966400f5d"]
}, Open ]],
Cell[CellGroupData[{
Cell[9940, 277, 241, 4, 49, "Subsection", "ExpressionUUID" -> \
"7fccc460-e2d5-464d-b47e-ee7ee2a49357"],
Cell[10184, 283, 2036, 44, 144, "Input", "ExpressionUUID" -> \
"0f555edb-630b-4daf-85aa-4e366485e387"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[12269, 333, 166, 3, 70, "Section", "ExpressionUUID" -> \
"35d9530a-8a27-4d91-a844-e88e593606d6"],
Cell[CellGroupData[{
Cell[12460, 340, 186, 3, 49, "Subsection", "ExpressionUUID" -> \
"f6e9a53a-a89d-42d5-b3a4-b1483f62b928"],
Cell[12649, 345, 4098, 105, 376, "Input", "ExpressionUUID" -> \
"512f86a9-0c42-4d1a-9527-e9e488a606a5"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[16796, 456, 180, 3, 70, "Section", "ExpressionUUID" -> \
"64ea51cc-4c74-4406-ae9d-64d35d9e7216"],
Cell[CellGroupData[{
Cell[17001, 463, 270, 5, 49, "Subsection", "ExpressionUUID" -> \
"c373aec0-97d3-497f-9e76-be8d5eb6f1ac"],
Cell[17274, 470, 557, 15, 50, "Input", "ExpressionUUID" -> \
"aa9a9577-60a3-4812-aae0-8b73f3a3f0f6"]
}, Open ]],
Cell[CellGroupData[{
Cell[17868, 490, 438, 7, 49, "Subsection", "ExpressionUUID" -> \
"0077a9be-88d0-4b46-8459-742cebf90032"],
Cell[18309, 499, 840, 23, 107, "Input", "ExpressionUUID" -> \
"68669788-9684-44df-8297-135b7acb23d7"]
}, Open ]],
Cell[CellGroupData[{
Cell[19186, 527, 310, 5, 49, "Subsection", "ExpressionUUID" -> \
"5e64f9ce-6f9d-4104-b619-e45c7f4629ee"],
Cell[19499, 534, 174, 4, 30, "Input", "ExpressionUUID" -> \
"18076e36-faee-4dcb-b7d5-7f3cb659c959"],
Cell[19676, 540, 428, 11, 50, "Input", "ExpressionUUID" -> \
"a75f5db4-6a46-44b2-888d-6dc84dc93e53"],
Cell[20107, 553, 517, 14, 50, "Input", "ExpressionUUID" -> \
"baed72ba-c8cc-42d7-80fe-26a48e27d987"],
Cell[20627, 569, 664, 20, 69, "Input", "ExpressionUUID" -> \
"2e7595d7-a64b-4994-8c1a-a44099862bc9"],
Cell[21294, 591, 709, 20, 50, "Input", "ExpressionUUID" -> \
"24ff3cb8-9156-4b9c-99b2-32f39b5a566b"]
}, Open ]],
Cell[CellGroupData[{
Cell[22040, 616, 175, 3, 49, "Subsection", "ExpressionUUID" -> \
"1e7dfad2-4eae-4dc7-8ce4-dbc4b7291c99"],
Cell[22218, 621, 297, 7, 30, "Input", "ExpressionUUID" -> \
"053d9d58-bf8c-41b0-bf57-a6171a795ce8"],
Cell[CellGroupData[{
Cell[22540, 632, 249, 5, 41, "Input", "ExpressionUUID" -> \
"0d903506-c0f1-4b00-9e38-ae62d5b597a4"],
Cell[22792, 639, 2655, 65, 96, "Output", "ExpressionUUID" -> \
"4881ce8b-c17a-4efe-bdb0-597a3b5393b3"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[25496, 710, 163, 3, 49, "Subsection", "ExpressionUUID" -> \
"7ea3a12e-bb83-46ed-8f3b-b0ccfa3d554e"],
Cell[25662, 715, 1064, 33, 145, "Input", "ExpressionUUID" -> \
"b0185e74-c061-4c8a-abfd-f882352619cc"],
Cell[26729, 750, 1178, 37, 164, "Input", "ExpressionUUID" -> \
"852b83a1-97fa-461f-a3fd-c1a344de560f"],
Cell[27910, 789, 235, 5, 30, "Input", "ExpressionUUID" -> \
"8eaab1d9-9662-4ab8-ad32-dab95116f727"],
Cell[CellGroupData[{
Cell[28170, 798, 249, 5, 41, "Input", "ExpressionUUID" -> \
"3b2cbddd-ce81-43a9-980a-f3bf276d7c8a"],
Cell[28422, 805, 2975, 69, 130, "Output", "ExpressionUUID" -> \
"b536e038-7c17-45b0-a1c6-bd138dca59ba"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[31446, 880, 174, 3, 49, "Subsection", "ExpressionUUID" -> \
"2b44b6d5-374e-4d12-a27c-aa5fb7f569c2"],
Cell[31623, 885, 512, 13, 50, "Input", "ExpressionUUID" -> \
"aa4ff7c2-1e25-4250-b151-75ad3376f90d"],
Cell[32138, 900, 817, 24, 88, "Input", "ExpressionUUID" -> \
"377eef02-e723-4975-87c3-c9fe0bb53af2"],
Cell[CellGroupData[{
Cell[32980, 928, 249, 5, 41, "Input", "ExpressionUUID" -> \
"1394d985-1615-4fd0-aeff-b6be8b743d5a"],
Cell[33232, 935, 3035, 70, 130, "Output", "ExpressionUUID" -> \
"dba68860-fa68-4e98-a896-033cedfd1bf4"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[36328, 1012, 167, 3, 70, "Section", "ExpressionUUID" -> \
"4639fbd7-b719-4908-9121-fb481da3ddbf"],
Cell[CellGroupData[{
Cell[36520, 1019, 181, 3, 49, "Subsection", "ExpressionUUID" -> \
"685728dd-0ceb-4fc3-ab01-04502810bf12"],
Cell[36704, 1024, 390, 9, 30, "Input", "ExpressionUUID" -> \
"c09fa931-5be7-4c06-9552-77e917985260"],
Cell[37097, 1035, 774, 22, 107, "Input", "ExpressionUUID" -> \
"81cd5505-04fb-4567-9a10-259695001680"],
Cell[37874, 1059, 232, 6, 30, "Input", "ExpressionUUID" -> \
"ff19e0a8-c16e-400e-b297-ddd89216149d"]
}, Open ]],
Cell[CellGroupData[{
Cell[38143, 1070, 193, 3, 49, "Subsection", "ExpressionUUID" -> \
"57218785-fb5a-4d59-a82a-51da3757329f"],
Cell[CellGroupData[{
Cell[38361, 1077, 249, 5, 41, "Input", "ExpressionUUID" -> \
"94fc1bd8-c114-4928-bdfc-d74e61411446"],
Cell[38613, 1084, 3083, 72, 130, "Output", "ExpressionUUID" -> \
"a296c151-5756-4bcf-a7c1-02e676f469cb"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[41757, 1163, 165, 3, 70, "Section", "ExpressionUUID" -> \
"fc2c83cc-04c0-43e8-a5a2-8a24bb26d936"],
Cell[41925, 1168, 495, 10, 30, "Input", "ExpressionUUID" -> \
"5ebdd5a6-2bc9-45ee-8ae5-10b05690b075"]
}, Open ]],
Cell[CellGroupData[{
Cell[42457, 1183, 168, 3, 70, "Section", "ExpressionUUID" -> \
"57164ee3-d71d-43df-97af-c2c8107e09ac"],
Cell[42628, 1188, 247, 6, 30, "Input", "ExpressionUUID" -> \
"b4cd7c5a-6e7e-4eb5-8e83-bbaf9cf79b2f"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
