RabbitEarFold: Basic Example

TsumamiOri

RabbitEarFold

In[]:=
EosSession["Rabbit Ear Fold"];
In[]:=
NewOrigami[10]
Rabbit Ear Fold: Step 1
Out[]=
In[]:=
HO["B","D"]!
Rabbit Ear Fold: Step 3
Out[]=
In[]:=
HO["A","C",Mark->{{"AC","G"}}]!
Rabbit Ear Fold: Step 5
Out[]=
In[]:=
HO["CD","CA",Mark->{{"AD","Q"}},FoldLine1]
Rabbit Ear Fold: Step 6
Out[]=
In[]:=
HO["AQ","AC",Mark->{{"QC","P"}},FoldLine1]
Rabbit Ear Fold: Step 7
Out[]=
In[]:=
ShowLayeredFace[]
Rabbit Ear Fold: Step 7
Out[]=
1,{21},
,2,{23},
,3,{9,22},
,4,{6,7,8,20},

{23,21} is used as the argument to RabbitEarFold
In[]:=
Block[{$probeFold=True},RabbitEarFold[{23,21},{Ray["P","A"],Ray["P","Q"],Ray["P","G"],Ray["P","D"]}]]
«
TaniOri[23,Ray[A,P]]
»
«
CutEdges[{{23,21}}]
»
«
HO[Ray[P,G],HandleD]
»
«
HO[Ray[D,P],HandleQ]
»
«
TaniOri[Ray[P,A]]
»
«
GlueEdges[$cutEdges]
»
Rabbit Ear Fold: Step 13
Out[]=
In[]:=
ShowLayers[Hinge{"Arc",0.5},Gap0.6,ViewPoint$viewPoint3D,ShowFrameFalse]

Load Eos