Turtle
Turtle
Load Eos
Load Eos
In[]:=
Needs["Eos`","EosLoader`"]
Eos3.7.1 (March 5,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Wed 15 Mar 2023 18:28:20.
Turtle
Turtle
t, t2, t3 and t4 are parameters that you may change their values : they are between 0 and 1.
In[]:=
EosSession["Turtle"];
In[]:=
NewOrigami[]
Turtle: Step 1
Out[]=
In[]:=
HO["A","B"]!;HO["A","D"]!
Turtle: Step 5
Out[]=
In[]:=
t=7/8;
In[]:=
NewVec["X1"->CurryNewVec[{"C","B"}][t]];
In[]:=
NewVec["Y1"->CurryNewVec[{"A","B"}][t]];
In[]:=
MountainFold["GF"]
Turtle: Step 6
Out[]=
In[]:=
ValleyFold["Y1X1"]
Turtle: Step 7
Out[]=
In[]:=
HO["Y1F",Handle->"G",Mark->{"HG"}]
Turtle: Step 8
Out[]=
In[]:=
ShowLayeredFace[]
Turtle: Step 8
Out[]=
1,{19},
,2,{17,21},
,3,{11},
,4,{6,7,16,20},
,5,{18},
In[]:=
MountainFold[18,"FY1"]
Turtle: Step 9
Out[]=
In[]:=
MountainFold[6,"FH"]
Turtle: Step 10
Out[]=
In[]:=
t2=3/4;
In[]:=
NewVec["X2"->CurryNewVec[{"H","A"}][t2]];
In[]:=
NewVec["Y2"->CurryNewVec[{"E","A"}][t2]];
In[]:=
ValleyFold["X2Y2"]
Turtle: Step 11
Out[]=
In[]:=
HO["Y2F",Handle->"H",Mark->{"HK"}]
Turtle: Step 12
Out[]=
In[]:=
ShowLayeredFace[]
Turtle: Step 12
Out[]=
1,{27},
,2,{25,29},
,3,{18,19},
,4,{17,21},,5,{11,15},
,6,{16,20,24,28},
,7,{26},