Point(1) = {-0.3, 0.5, 0, 1.0};
Point(2) = {-0.3, 0.2, 0, 1.0};
Point(3) = {-0.6, -0.2, 0, 1.0};
Point(4) = {-0.1, -0.1, 0, 1.0};
Point(5) = {0.0, 0.0, 0, 1.0};
Point(6) = {0.14, 0.1, 0.0, 1.0};
BSpline(1) = {1, 2, 3};
BSpline(2) = {3, 4};
BSpline(3) = {4, 5, 6};
BSpline(4) = {6, 1};

// Transfinite Line {1, 2, 3} = 10 Using Progression 1; // works
Transfinite Line {1, 3} = 50; // looks strange
Transfinite Line {2, 4} = 50; // looks strange

Line Loop(4) = {1, 2, 3, 4};
Ruled Surface(5) = {4};
Transfinite Surface {5} = {3, 1, 6, 4};
Recombine Surface {5};
Coherence;
Coherence;
Coherence;
