Clipping Origami

By Hidekazu Takahashi and Tetsuo Ida

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

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

In[]:=
EosSession[];
In[]:=
NewOrigami[]
Step 1
Out[]=
In[]:=
HO["A","C"]
Step 2
Out[]=