Outside Crimp Pleat Fold Examples

Load Eos

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

Extra


OutsideCrimpPleatFold - left-side

Pleat and Outside Crimp Fold

Example 1

In[]:=
EosSession["Outside Crimp Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["BD",Handle->"C"]
Outside Crimp Pleat Fold/Origami: Step 2
Out[]=
In[]:=
NewPoints[{"E"{0,6.0},"F"{0,4.5},"G"{6,4}}]
Outside Crimp Pleat Fold/Origami: Step 2
Out[]=
In[]:=
​
In[]:=
OutsideCrimpPleatFold[{4,6},Ray["G","D"],{"E","F"}]
Outside Crimp Pleat Fold/Origami: Step 14
Out[]=

Example 2

In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["BD",Handle->"C"]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
NewPoints[{"E"{0,6.0},"F"{0,4.5},"G"{6,4}}]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
OutsideCrimpPleatFold[{4,6},Ray["G","D"],{"E","F"}]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
ShowLayers[HingeTrue,Gap0.5,MarkPoints->{},ShowFrame->False]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];

OutsideCrimpPleatFold - right-side

Example 3

In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["D","B"]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
NewPoints[{"E"{10,6.0},"F"{10,4.5},"G"{4,4}}]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
ShowLayeredFace[]
Pleat Fold/Origami: Step 2
Out[]=
1,{3},
,2,{2},

In[]:=
IsLeftTurn[ToPoint["G"],ToPoint["C"],ToPoint["E"]]
Pleat Fold/Origami: Step 2
Out[]=
-1
In[]:=
OutsideCrimpPleatFold[{4,6},Ray["G","C"],{"E","F"}]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];

Example 4

Example 5