Paper Cup
Paper Cup
This paper cup is used practically!
Load Eos
Load Eos
In[]:=
<<Eos`
Paper Cup
Paper Cup
In[]:=
EosSession[];
In[]:=
MarkOn[];Inexact[];
In[]:=
SetView[Top];
In[]:=
NewOrigami[4]
Step 1
Out[]=
In[]:=
HO["B","D"]
Step 2
Out[]=
In[]:=
HO["B","AC","C"]
Step 2
Out[]=
,
In[]:=
HO[FoldLine1]
Step 3
Out[]=
In[]:=
Unfold[]
Step 4
Out[]=
In[]:=
HO["B","AC","A"]
Step 4
Out[]=
,
In[]:=
HO[FoldLine1,Mark"BC"]
Step 5
Out[]=
In[]:=
Unfold[]
Step 6
Out[]=
In[]:=
HO["C","E"]
Step 7
Out[]=
In[]:=
HO["A","F",MarkFalse]
Step 8
Out[]=
In[]:=
HO["AE",Handle"B"]
Step 9
Out[]=
In[]:=
TurnOver["DB"]
Step 10
Out[]=
In[]:=
HO["EG",Handle"D"]