Yacht

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[]=
In[]:=
OutsideReverseFold[{11,27},Ray["K","F"]]

Load Eos