Clipping Origami
Clipping Origami
By Hidekazu Takahashi and Tetsuo Ida
Load Eos
Load Eos
In[]:=
<<EosLoader`
Eos3.7.1.1 (March 21,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Thu 30 Mar 2023 14:51:18.
One-side clip
One-side clip
Clip by removing 4 corner squares
Clip by removing 4 corner squares
In[]:=
EosSession[];
In[]:=
NewOrigami[8];
In[]:=
HO["A","C"]
Step 2
Out[]=
In[]:=
HO["B","D"]
Step 3
Out[]=
In[]:=
HO["C","B"]
Step 4
Out[]=
In[]:=
HO["E","C"]
Step 5
Out[]=
In[]:=
HO["EG","M"]
Step 6
Out[]=
In[]:=
(*Clip["QM"]or*)Clip[Ray["Q","M"]]
Step 7
Out[]=
In[]:=
UnfoldAll[];
In[]:=
EndSession[];
Clip by removing 4 inner squares
Clip by removing 4 inner squares
In[]:=
EosSession[];
In[]:=
NewOrigami[]
Step 1
Out[]=
In[]:=
HO["A","C"]
Step 2
Out[]=