Cicada
Cicada
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 20:10:51.
Cicada
Cicada
In[]:=
EosSession[];
In[]:=
NewOrigami[]
Step 1
Out[]=
In[]:=
ValleyFold["DB"]
Step 2
Out[]=
In[]:=
HO["B","C"]
Step 3
Out[]=
In[]:=
HO["D","B"]
Step 4
Out[]=
In[]:=
NewVec["R"->CurryNewVec[{"G","B"}][0.4]];
In[]:=
ShowLayeredFace[Level->Top]
Step 4
Out[]=
1,{5,9},
In[]:=
ValleyFold[5,"ER"]
Step 5
Out[]=
In[]:=
(*P=Point[2,4];Q=Point[11/4,11/4];QP=Ray[Q,P];*)ValleyFold[9,"RH"]
Step 6
Out[]=
In[]:=
NewVec["X1"->CurryNewVec[{"F","A"}][1/4]];
In[]:=
NewVec["X2"->CurryNewVec[{"I","A"}][1/4]];
In[]:=
ShowLayeredFace[]
Step 6
Out[]=
1,{15,27},
,2,{11,19},
,3,{10,18},
,4,{14,26},
,5,{12},
,6,{8},
In[]:=
ValleyFold[12,"X1X2",Mark->{{"FC","Y1"},{"IC","Y2"}}]
Step 7
Out[]=
In[]:=
ShowLayeredFace[Level->Top]
Step 7
Out[]=
1,{25},
In[]:=
ValleyFold[25,"FI"]
Step 8
Out[]=