SquashFold: Examples

This file is a collection of SquashFold examples

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 Sat 16 Dec 2023 21:00:11.
This version is effective until June 30,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

SquashFold (1)

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"]}]
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[]:=
EndSession[];

SquashFold (2)

In[]:=
EosSession["SquashFold"];
In[]:=
$probeFold=False;
In[]:=
NewOrigami[10,Context->"General`"];
In[]:=
ValleyFold[Ray["C","A"]]
SquashFold/General: Step 2
Out[]=
In[]:=
NewPoint[{"E"{4,4},"F"{10,7}}]
SquashFold/General: Step 2
Out[]=
In[]:=
HO["FE",Handle"C"]!
SquashFold/General: Step 4
Out[]=
In[]:=
ShowLayeredFace[]
SquashFold/General: Step 4
Out[]=
1,{6,7},
,2,{4,5},


SquashFold (3)

SquashFold (3) TriangleLeft

SquashFold (4) TriangleRight

SquashFold (5) SquareUp

SquashFold (6) SquareDown