InsideCrimpPleatFold: examples

Load Eos

In[]:=
<<EosLoader.m
Eos3.7.3 (October 1,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Mon 2 Oct 2023 09:31:47.
This version is effective until March 31,2024.

EosNotations


Extra


InsideCrimpPleatFold - left-side

InsideCrimpPleat Fold

Example1

Preparation

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[]=

Function call

In[]:=
Block[{$probeFold=False},InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];

Example2

Preparation

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[]=

Function call 2

In[]:=
Block[{$probeFold=True},InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]]
«
DuplicatePoints[{Ee2$,Ff2$}]
»
〈e2$,f2$〉
«
HO[G-E]
»
«
Unfold[]
»
«
HO[G-F]
»
«
Unfold[]
»
«
FO[-π][{6,14,15},D-G]
»
«
CutEdges[{{4,6}}]
»
«
FO[-π][10,G-f2$]
»

InsideCrimpPleatFold - right-side

InsideCrimpPleat Fold

Example1

Preparation

Function call

Example3

Function call 3