Simple Pleat Fold: Examples

Dan Ori

Load Eos

<<EosLoader.wl

EosNotations


Extra

In[]:=
$pointLabelSize=10;​​$pointLabelStyle=Style[FontSize->$pointLabelSize,FontWeight"Bold"];​​$gap=0.001;​​$foldLineStyle={Blue,Thickness[0.02]};Off[Ori::select];

Simple Pleat Fold (1)

Dan Ori
In[]:=
MarkOff[];
In[]:=
EosSession["Simple Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
NewPoints[{"E"{0,7},"F"{8,2.5}}]
Simple Pleat Fold/Origami: Step 1
Out[]=
In[]:=
FO[-π]["EF"]
Simple Pleat Fold/Origami: Step 2
Out[]=
In[]:=
FO[-π]["BD"]
Simple Pleat Fold/Origami: Step 3
Out[]=
In[]:=
ShowLayers[Gap0.5,HingeTrue]
Simple Pleat Fold/Origami: Step 3
Out[]=
In[]:=
UnfoldAll[ShowFaceIdAll];
In[]:=
EndSession[];

Simple Pleat Fold (2)

This is one- line pleat fold using logical formulas .
In[]:=
EosSession["Simple Pleat Fold 2"];
In[]:=
NewOrigami[10];
In[]:=
NewPoints[{"E"{3,10}}]
Simple Pleat Fold 2/Origami: Step 1
Out[]=
In[]:=
HO
∃
m,l∈Lines,y∈Reals,f∈Points
(LineEqual[l,Segment[
m
"E"
,
m
f
]]∧LineEqual[m,"DB"]∧Point[10,y]==f∧ParallelQ[l,m]),Handle->{"C","C"},MarkAt->"F"
Solve
:Equations may not give solutions for all "solve" variables.
Simple Pleat Fold 2/Origami: Step 3
Out[]=

,
,

In[]:=
ShowLayers[Gap0.5,HingeTrue]
Simple Pleat Fold 2/Origami: Step 3
Out[]=
In[]:=
EndSession[];

Simple Pleat Fold (3)

In[]:=
EosSession["Simple Pleat Fold 3"];
In[]:=
NewOrigami[10];
In[]:=
NewPoint[{"E"{0,6}}]
Simple Pleat Fold 3/Origami: Step 1
Out[]=
In[]:=
Oru["BD",-π]​​
Simple Pleat Fold 3/Origami: Step 2
Out[]=