Airplane
Airplane
Airplane
Airplane
Manipulate by hand the graphics, e.g., rotate and magnify) to get the best desired view.
In[]:=
EosSession["Airplane"];
In[]:=
NewOrigami[]
Airplane/Ori: Step 1
Out[]=
In[]:=
HO["A","B"]!
Airplane/Ori: Step 3
Out[]=
In[]:=
HO["A","D"]!
Airplane/Ori: Step 5
Out[]=
In[]:=
ValleyFold["HE"]
Airplane/Ori: Step 6
Out[]=
In[]:=
ValleyFold["FH"]
Airplane/Ori: Step 7
Out[]=
In[]:=
ValleyFold["DH"]
Airplane/Ori: Step 8
Out[]=
In[]:=
t=0.6;(*parameterchangethisasyoulike*)
In[]:=
NewVec["X1"->CurryNewVec[{"G","C"}][t]];
In[]:=
DuplicatePoints["X1"->"X2"];
In[]:=
HO["HX1"]!
Airplane/Ori: Step 10
Out[]=
In[]:=
ShowFaces[]
Airplane/Ori: Step 10
Out[]=
1,{8,9,24,25},
,2,{26,27},
,3,{30,31},
,4,{10,11,28,29},
In[]:=
FO[-π/2][{9,25,26},"HX1"]
Airplane/Ori: Step 11
Out[]=
In[]:=
FO[π/2][{31,11,29},"HX2"]
Airplane/Ori: Step 12
Out[]=
In[]:=
FO[-π/12][{8,24,27},"HG"]
Airplane/Ori: Step 13
Out[]=
