Piano

Load Eos

In[]:=
Needs["Eos`","EosLoader`"]

Piano by InsideReverseFold

In[]:=
EosSession[];
In[]:=
SetView["3D"];
In[]:=
NewOrigami[]
Step 1
Out[]=
In[]:=
HO["D","A"]
Step 2
Out[]=
In[]:=
HO["D","C"]!
Step 4
Out[]=
In[]:=
HO["H","C"]!
Step 6
Out[]=
In[]:=
HO["D","H"]!
Step 8
Out[]=
In[]:=
HO["E","D"]!
Step 10
Out[]=
In[]:=
HO["LR"]!
Step 12
Out[]=
In[]:=
HO["OS"]!
Step 14
Out[]=
In[]:=
ShowLayeredFace[]
Step 14
Out[]=
1,{24,26,27,28,29,30,50,51,62,63},
,2,{16,18,19,20,21,22,34,35,46,47},

In[]:=
​​InsideReverseFold[{34,50},"RL"]