Flying Crane

​
(c) 2023- Tetsuo Ida
​
​

Load Eos

In[]:=
<<EosLoader.wl
Eos3.7.4 (December 16,2023) running under Mathematica 13.3.1 for Linux x86 (64-bit) (July 24, 2023) on 21/12/2023 7:17 pm.
This version is effective until June 30,2024.

Extra

In[]:=
$pointLabelSize=10;​​(*$gap=0.001;*)​​$foldLineStyle={Blue,Thickness[(*0.02*)0.01]};​​MarkOff[];
In[]:=
Off[Ori::select];
In[]:=
SetOptions[ShowOrigami,ShowFrameTrue];
In[]:=
SetOptions[ShowLayeredFace,BaseView->False];
In[]:=
Inexact[];​​

Flying crane

Start of construction

In[]:=
EosSession["Flying crane"];
In[]:=
$displacement=0;Inexact[];​​LabelDisplacement=True;​​$probeFold=False;​​$showLayeredFace=True;
In[]:=
textureY=Graphics[{Yellow,Rectangle[{0,0},{16,16}]}];
In[]:=
texturePattern=$chiyogami[[8]];
In[]:=
SetOptions[ShowOrigami,Lighting"Neutral",FrameFalse,Texture{textureY,texturePattern}];​​
In[]:=
$gap=0.05;
In[]:=
NewOrigami[16]
Flying crane/Origami: Step 1
Out[]=

Petal fold

Preparation for a petal fold

In[]:=
VFold["DB"]
Flying crane/Origami: Step 2
Out[]=
In[]:=
HO["D","B",Mark->{{"DB","E"}}]
Flying crane/Origami: Step 3
Out[]=
In[]:=
HO["B","C",Mark->{{"DC","F4","F3","F2","F1"}}]!
Flying crane/Origami: Step 5
Out[]=
In[]:=
ShowLayeredFace[]
Flying crane/Origami: Step 5
Out[]=
1,{10,11},
,2,{14,15},
,3,{12,13},
,4,{8,9},


Squash fold rightwards on the front side

In[]:=
SquashFold["R"]["Square"][{10,11},{"EC","DE"}]
Flying crane/Origami: Step 10
Out[]=
In[]:=
TurnOver["EF3"]
Flying crane/Origami: Step 11
Out[]=
In[]:=
ShowLayeredFace[Level->{1}]
Flying crane/Origami: Step 11
Out[]=
1,{8,9,10},


Squash fold leftwards on the back side

Preparation for constructing legs

Left leg by inside reverse fold

Right leg by inside reverse fold

Leg construction

Head-side

Tail-side

Right leg

Left leg

Bill construction

Preparation for bill construction

NewVec[P-> V], where P is a point name and V is a 1-vector that associates P with V.

Wing construction

The above graphics of flying crane is copy - righted . (C) 2003 - , Tetsuo ImageData