Yacht

Load Eos

In[]:=
<<EosLoader.wl
Eos3.8.2 (February 11,2025) running under Mathematica 14.2.1 for Linux x86 (64-bit) (March 16, 2025) on 25/05/2025 9:01 pm.
This version is effective until December 31,2025.

Construction

In[]:=
SetOptions[ShowOrigami,Gap->0.5];
In[]:=
EosSession["Yacht"];
In[]:=
NewOrigami[4];
In[]:=
HO["D","B"]
Yacht/Ori: Step 2
Out[]=
In[]:=
Unfold[]
Yacht/Ori: Step 3
Out[]=
In[]:=
HO["D","CA","C"]
Yacht/Ori: Step 3
Out[]=

,

In[]:=
HO[FoldLine1]
Yacht/Ori: Step 4
Out[]=
In[]:=
Unfold[]
Yacht/Ori: Step 5
Out[]=
In[]:=
HO["D","CE","C"]
Yacht/Ori: Step 5
Out[]=

,

In[]:=
HO[FoldLine1]
Yacht/Ori: Step 6
Out[]=
In[]:=
HO["CA",Handle"F"]
Yacht/Ori: Step 7
Out[]=
In[]:=
HO["AC","F",Handle"A"]
Yacht/Ori: Step 8
Out[]=
In[]:=
Unfold[]
Yacht/Ori: Step 9
Out[]=
In[]:=
HO["AF","IF"]
Yacht/Ori: Step 9
Out[]=

,

In[]:=
HO["AF","IF",FoldLine2]
Yacht/Ori: Step 10
Out[]=
In[]:=
Unfold[]
Yacht/Ori: Step 11
Out[]=