OutsideReverseFold: Examples

Load Eos

In[]:=
<<EosLoader.wl
Eos3.7.4 (December 12,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Sat 16 Dec 2023 20:22:45.
This version is effective until June 30,2024.

OutsideReverse Fold (1)


OutsideReverse Fold (2)


OutsideReverse Fold (3)

This is a more general case of OutsideReverseFold
In[]:=
EosSession["OutsideReverse"];
In[]:=
NewOrigami[10];
In[]:=
NewPoint[{"A1"{0,1},"D1"{10,8}}]
OutsideReverse/Origami: Step 1
Out[]=
In[]:=
HO["A1D1",Handle->"D"]
OutsideReverse/Origami: Step 2
Out[]=
In[]:=
NewPointBetween["E"->{0.5,{"A1","D1"}}]
OutsideReverse/Origami: Step 2
Out[]=
In[]:=
NewPoint["F"{10,6}]
OutsideReverse/Origami: Step 2
Out[]=
In[]:=
HO["FE",Handle"D1"]!
OutsideReverse/Origami: Step 4
Out[]=
In[]:=
ShowLayeredFace[]
OutsideReverse/Origami: Step 4
Out[]=
1,{6,7},
,2,{4,5},

In[]:=
OutsideReverseFold[{5,7},"HE"]
OutsideReverse/Origami: Step 8
Out[]=
In[]:=
ShowLayers[ShowFaceIdTrue,Gap1,HingeTrue]
OutsideReverse/Origami: Step 8
Out[]=
In[]:=
ShowLayers[Hinge{"Arc",0.5},Gap0.5,(*HingeColor->{Magenta,Yellow},*)ViewPoint$viewPoint3D(*,ImageSize->300*)]
OutsideReverse/Origami: Step 8
Out[]=
In[]:=
EndSession[];

OutsideReverse Fold (4)

In[]:=
EosSession["Outside Reverse"];
In[]:=
MarkOn[];
In[]:=
NewOrigami[];
In[]:=
HO["D","A"]
Outside Reverse/Origami: Step 2
Out[]=
In[]:=
HO["D","C"]!
Outside Reverse/Origami: Step 4
Out[]=
In[]:=
NewPointBetween["X"->{0.2,{"H","C"}}]
Outside Reverse/Origami: Step 4
Out[]=
In[]:=
HO["IX"]!
Outside Reverse/Origami: Step 6
Out[]=
In[]:=
ShowLayeredFace[]
Outside Reverse/Origami: Step 6
Out[]=
1,{7,12,13},
,2,{5,8,9},
