SquashFold: Examples

This file is a collection of SquashFold examples

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 Mon 2 Oct 2023 10:06:23.
This version is effective until March 31,2024.

Extra

In[]:=
$pointLabelSize=10;​​$pointLabelStyle=Style[FontSize->$pointLabelSize,FontWeight"Bold"];​​$gap=0.001;​​$foldLineStyle={Blue,Thickness[0.015]};(*SetOptions[ShowOrigami,PlotRangeFull];​​SetOptions[GraphicsOrigami,PlotRangeAutomatic];*)​​Off[Ori::select];

SquashFold using the new definition

SquashFold (1) Basic example

In[]:=
$probeFold=True;
In[]:=
EosSession["SquashFold"];
In[]:=
NewOrigami[10];
In[]:=
ValleyFold[Ray["C","A"]]
SquashFold/Origami: Step 2
Out[]=
In[]:=
NewPoint[{"E"{4,4},"F"{10,7}}]
SquashFold/Origami: Step 2
Out[]=
In[]:=
HO["FE",Handle"C"]!
SquashFold/Origami: Step 4
Out[]=
In[]:=
ShowLayeredFace[]
SquashFold/Origami: Step 4
Out[]=
1,{6,7},
,2,{4,5},

In[]:=
SquashFold[{5,7},{Ray["C","E"],Ray["F","E"]}]
«
CutEdges[{{5,7}}]
»
«
TaniOri[5,Ray[F,E],InsertFace7]
»
«
YamaOri[7,Ray[F,E],InsertFace5]
»
«
GlueEdges[$cutEdges]
»
SquashFold/Origami: Step 9
Out[]=
In[]:=
ShowLayeredFace[]
SquashFold/Origami: Step 9
Out[]=
1,{5,7},
,2,{13},
,3,{12},
,4,{4},

In[]:=
ShowLayers[Hinge{"Arc",0.5},Gap0.5,(*HingeColor->{Magenta,Yellow},*)ViewPoint$viewPoint3D(*,ImageSize->300*)]
SquashFold/Origami: Step 9
Out[]=
In[]:=
AdjacencyOGraph[]
SquashFold/Origami: Step 9
Out[]=

SquashFold (2)

SquashFold (3)

SquashFold (3) TriangleLeft

SquashFold (4) TriangleRight

SquashFold (5) SquareUp

SquashFold (6) SquareDown