Dog
Dog
Load Eos
Load Eos
In[]:=
<<EosLoader`
Eos3.7.1.1 (March 21,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Thu 30 Mar 2023 14:49:47.
Dog
Dog
In[]:=
SetOptions[ShowOrigami,ShowFrameFalse];
In[]:=
EosSession[];
In[]:=
SetView["2D"];$gap=0.1;
In[]:=
NewOrigami[10]
Step 1
Out[]=
In[]:=
HO["C","A"]
Step 2
Out[]=
In[]:=
NewVec["X1"->CurryNewVec[{"C","B"}][1/8]];
In[]:=
NewVec["X2"->CurryNewVec[{"C","D"}][1/8]];
In[]:=
ValleyFold["X2X1"]
Step 3
Out[]=
In[]:=
NewVec["Y1"->CurryNewVec[{"B","X1"}][0.4]];
In[]:=
NewVec["Y2"->CurryNewVec[{"B","D"}][0.5]];
In[]:=
MountainFold["Y1Y2"]
Step 4
Out[]=
In[]:=
NewVec["Z1"->CurryNewVec[{"D","X2"}][0.4]];
In[]:=
MountainFold["Y2Z1"]
Step 5
Out[]=
In[]:=
NewVec["O"->CurryNewVec[{"Y2","A"}][0.3]];
In[]:=
HO["Y2A","O"]
Step 6
Out[]=
In[]:=
TurnOver["OA"]
Step 7
Out[]=
In[]:=
NewVec["E1"->CurryNewVec[{"G","X2"}][0.5]];
In[]:=
NewVec["E2"->CurryNewVec[{"E","X1"}][0.5]];
In[]:=
ShowOrigami[]
Step 7
Out[]=
In[]:=
eyesMouth={Black,PointSize[0.1],Point[Append[List2@@ToPoint["E1"],0.1]],Point[Append[List2@@ToPoint["E2"],0.1]],PointSize[0.08],Point[Append[List2@@ToPoint["C"],0.1]]};
In[]:=
ShowOrigami[MoreeyesMouth,Gap0.001]
Step 7
Out[]=
In[]:=
ShowOrigami[MarkPoints->{},More->eyesMouth,Gap0.02]
Step 7
Out[]=
In[]:=
EndSession[];