InsideCrimpPleatFold
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 16:43:32.
This version is effective until June 30,2024.

Extra


InsideCrimpPleatFold - left-side

InsideCrimpPleat Fold

Example 1

In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["C","A"]
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[]:=
InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];

Example 2

In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["C","A"]
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[]:=
InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
ShowOrigami[ShowFaceIdAll]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
ShowOrigami[ShowFaceIdTop]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
ShowLayers[HingeTrue,Gap1,MarkPoints->{}]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];

InsideCrimpPleatFold - 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},


Example 4

Example 5