WOLFRAM NOTEBOOK

Sink Fold
Examples

Load Eos

In[]:=
<<EosLoader.wl
Eos3.7.4 (December 16,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Sun 17 Dec 2023 17:56:47.
This version is effective until June 30,2024.

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"}},FoldLine1]
Sink Fold/Origami: Step 6
Out[]=
In[]:=
HO["AQ","AC",Mark->{{"QC","P"}},FoldLine1]!
Sink Fold/Origami: Step 8
Out[]=
In[]:=
ShowLayeredFace[];
In[]:=
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[]=

Cut

New folds

GlueEdges and finish

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.