Airplane

Load Eos

In[]:=
Needs["Eos`","EosLoader`"]
Eos3.7.1 (March 5,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Wed 15 Mar 2023 17:33:17.

Airplane

In[]:=
EosSession["Airplane"];
In[]:=
$gap=0.005;
In[]:=
SetView["3D"];
In[]:=
NewOrigami[]
Airplane: Step 1
Out[]=
In[]:=
HO["A","B"]!
Airplane: Step 3
Out[]=
In[]:=
HO["A","D"]!
Airplane: Step 5
Out[]=
In[]:=
ValleyFold["HE"]
Airplane: Step 6
Out[]=
In[]:=
ValleyFold["FH"]
Airplane: Step 7
Out[]=
In[]:=
ValleyFold["DH"]
Airplane: Step 8
Out[]=
In[]:=
t=0.6;(*parameterchangethisasyoulike*)
In[]:=
NewVec["X1"->CurryNewVec[{"G","C"}][t]];
In[]:=
DuplicatePoints["X1"->"X2"];
In[]:=
HO["HX1"]!
Airplane: Step 10
Out[]=
In[]:=
ShowLayeredFace[]
Airplane: Step 10
Out[]=
1,{8,9,24,25},
,2,{26,27},
,3,{30,31},
,4,{10,11,28,29},
