Load Eos

In[]:=
<<"EosLoader.m"
Eos3.7.3 (October 1,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Sun 1 Oct 2023 21:41:45.
This version is effective until March 31,2024.

EosNotations


Extra


Sink Fold

Sizume Ori
In[]:=
EosSession["Sink Fold"];

Rabbit Ear Base

In[]:=
DiagonalBase[Center->"O"]
Sink Fold/Origami: Step 5
Out[]=
In[]:=
HO["CD","CA",Mark->{{"AD","Q"}},FoldLine1]
Sink Fold/Origami: Step 6
Out[]=
In[]:=
HO["AQ","AC",Mark->{{"QC","P"}},FoldLine1]!
Sink Fold/Origami: Step 8
Out[]=
In[]:=
ShowLayeredFace[];
In[]:=
Block[{$probeFold=False},RabbitEarFold[{21,23},{"PA","PQ","PO","PD"}]]
Sink Fold/Origami: Step 13
Out[]=

Fold in half

In[]:=
ShowOrigami[]
Sink Fold/Origami: Step 13
Out[]=
In[]:=
HO["D","P",Mark->{{"DP","H"}},Handle->"D"]!
Sink Fold/Origami: Step 15
Out[]=
In[]:=
HO["P","E",Mark->{{"PA","G"}(*,{"PB","H","I"}*),{"PC","F"}}]
Sink Fold/Origami: Step 16
Out[]=
In[]:=
UnfoldAll[ShowStep->False]//Column
Sink Fold/Origami: Step 23
Out[]=

nfoldAll

Cut

New folds

GlueEdges and finish