Airplane
Airplane
Load Eos
Load Eos
In[]:=
<<EosLoader.wl
Eos3.7.4 (December 16,2023) running under Mathematica 13.3.1 for Linux x86 (64-bit) (July 24, 2023) on 21/12/2023 7:13 pm.
This version is effective until June 30,2024.
Airplane
Airplane
In[]:=
EosSession["Airplane"];
In[]:=
$gap=0.005;
In[]:=
SetView["3D"];
In[]:=
NewOrigami[]
Airplane/Origami: Step 1
Out[]=
In[]:=
HO["A","B"]!
Airplane/Origami: Step 3
Out[]=
In[]:=
HO["A","D"]!
Airplane/Origami: Step 5
Out[]=
In[]:=
ValleyFold["HE"]
Airplane/Origami: Step 6
Out[]=
In[]:=
ValleyFold["FH"]
Airplane/Origami: Step 7
Out[]=
In[]:=
ValleyFold["DH"]
Airplane/Origami: Step 8
Out[]=
In[]:=
t=0.6;(*parameterchangethisasyoulike*)
In[]:=
NewPointBetween["X1"->{t,{"G","C"}}];
In[]:=
(*NewVec["X1"->CurryNewVec[{"G","C"}][t]];*)
In[]:=
DuplicatePoints["X1"->"X2"];
In[]:=
HO["HX1"]!
Airplane/Origami: Step 10
Out[]=
In[]:=
ShowLayeredFace[]
Airplane/Origami: Step 10
Out[]=
1,{8,9,24,25},,2,{26,27},,3,{30,31},,4,{10,11,28,29},