Clipping Origami

By Hidekazu Takahashi and Tetsuo Ida

Load Eos

In[]:=
<<EosLoader.wl
Eos3.7.4 (December 12,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Fri 15 Dec 2023 12:05:07.
This version is effective until June 30,2024.

One-side clip

In[]:=
EosSession["Clip"];
In[]:=
NewOrigami[10,Context->"OneSide`"];
In[]:=
HO["A","C"]!
Clip/OneSide: Step 3
Out[]=
In[]:=
Clip["BD"]
Clip/OneSide: Step 4
Out[]=

Clip by removing 4 corner squares

In[]:=
NewOrigami[18,Context->"Remove4Corners`"];
In[]:=
HO["A","C"]
Clip/Remove4Corners: Step 2
Out[]=
In[]:=
HO["B","D"]
Clip/Remove4Corners: Step 3
Out[]=
In[]:=
HO["C","B"]
Clip/Remove4Corners: Step 4
Out[]=
In[]:=
HO["E","C"]
Clip/Remove4Corners: Step 5
Out[]=
In[]:=
HO["EG","M"]
Clip/Remove4Corners: Step 6
Out[]=
In[]:=
(*Clip["QM"]or*)​​Clip[Ray["Q","M"]]
Clip/Remove4Corners: Step 7
Out[]=
In[]:=
UnfoldAll[];