You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
OutsideReverseFold Basic Example
OutsideReverseFold Basic Example
OutsideReverse Fold
OutsideReverse Fold
In[]:=
EosSession["Outside Reverse Fold"];
In[]:=
NewOrigami[10];
In[]:=
ValleyFold[Ray["C","A"]]
Outside Reverse Fold: Step 2
Out[]=
In[]:=
NewPoint[{"E"{7,7},"F"{10,3}}]
Outside Reverse Fold: Step 2
Out[]=
In[]:=
HO["EF",Handle"C"]!
Outside Reverse Fold: Step 4
Out[]=
In[]:=
Block[{$probeFold=True},OutsideReverseFold[{5,7},Ray["F","E"]]]
CutEdges[{{5,7}}]
YamaOri[5,Ray[F,E],InsertFace0]
TaniOri[7,Ray[F,E],InsertFace0]
GlueEdges[$cutEdges]
Outside Reverse Fold: Step 8
Out[]=
In[]:=
ShowLayers[Hinge{"Arc",0.5},Gap0.5,ShowFaceIdAll,ViewPoint$viewPoint3D]
Outside Reverse Fold: Step 8
Out[]=
In[]:=
ShowLayeredFace[]
Outside Reverse Fold: Step 8
Out[]=
1,{7},
,2,{6},
,3,{4},
,4,{5},
In[]:=
AdjacencyOGraph[]
Outside Reverse Fold: Step 8
Out[]=
In[]:=
SuperpositionOGraph[]
Outside Reverse Fold: Step 8
Out[]=
In[]:=
Unfold[ShowFaceIdAll];
In[]:=
UnfoldAll[ShowFaceIdAll];
