//+
SetFactory("OpenCASCADE");
Rectangle(1) = {-0.7, -0.2, 0, 1, 0.5, 0.1};
//+
Point(9) = {-0.39, 0.21, 0, 1.0};
//+
Point(10) = {-0.25, 0.14, 0, 1.0};
//+
Point(11) = {-0.12, -0.05, 0, 1.0};
//+
Point(12) = {-0.03, 0.12, 0, 1.0};
//+
Point(13) = {0.14, 0.12, 0, 1.0};
//+
Spline(9) = {9, 10, 11, 12, 13};
//+

BooleanFragments{ Surface{1}; Delete; }{ Curve{9}; Delete; }
//+
//+
//+
//Transfinite Curve {9} = 100 Using Progression 1;

Characteristic Length {9,10,11,12,13} = 0.001;
