SwivelFold: examples
SwivelFold: examples
Collection of basic examples of swivel folds. Swivel fold is called Hikiyose Ori (meaning pull left / pull right fold) in Japanese.
SwivelFold[āRā]
SwivelFold[āRā]
Preparation 1
Preparation 1
In[ļ]:=
EosSession["Swivel Fold"];
In[ļ]:=
MarkOff[];
In[ļ]:=
NewOrigami[15];
In[ļ]:=
NewPoint[{"E"ļ¢{0,8},"F"ļ¢{0,12}}]
Swivel Fold/Origami: Step 1
Out[ļ]=
In[ļ]:=
HO["AC"]!
Swivel Fold/Origami: Step 3
Out[ļ]=
In[ļ]:=
HO["AC","E",Markļ¢{{"AB","G"}}]!
Swivel Fold/Origami: Step 5
Out[ļ]=
In[ļ]:=
HO["AC","F",Markļ¢{{"AB","H"}}]
Swivel Fold/Origami: Step 6
Out[ļ]=
In[ļ]:=
ShowOrigami[ShowFaceId->All]
Swivel Fold/Origami: Step 6
Out[ļ]=
In[ļ]:=
ValleyFold[{5,7},"GE"]
Swivel Fold/Origami: Step 7
Out[ļ]=
In[ļ]:=
ShowLayeredFace[]
Swivel Fold/Origami: Step 7
Out[ļ]=
ļļ1,{5,7},
ļØ,ļ2,{9,13},
ļØ,ļ3,{8,12},
ļØļØ
function call
function call
In[ļ]:=
Block[{$probeFold=True},SwivelFold["R"][{"FH","EG"},{"A",5}]]
HO[F-E,F-H,Caseļ¢2,Markļ¢{{E-G,I},{E-A,k,l0$}}]
CutEdges[{{10,11}}]
FO[-Ļ][F-l0$]
NewPoints[k2$ļ¢l0$]
FO[-Ļ][11,E-I]
NewPoints[k3$ļ¢k]
FO[-Ļ][10,I-A]
Compare with left swivel
Preparation 2
Preparation 2
function call
function call
Preparation 3
Preparation 3
Inline call
Inline call
SwivelFold[āLā]
SwivelFold[āLā]
Preparation 1
Preparation 1
function call 1
function call 1
function call 2
function call 2
UnfoldAll 2
UnfoldAll 2
Load Eos
Load Eos