
c=0.1;

i1 = newp;
Point (i1) =  {0,0,0, c};
i2 = newp;
Point (i2) =  {0,1,0, c};
i3 = newp;
Point (i3) =  {0,2,1, c};
i4 = newp;
Point (i4) =  {0,2,2, c};

r1 = newl;
BSpline (r1) = {i1,i2,i3,i4};



j1 = newp;
Point (j1) =  {5,0,0, c};
j2 = newp;
Point (j2) =  {5,1,0, c};
j3 = newp;
Point (j3) =  {5,2,1, c};
j4 = newp;
Point (j4) =  {5,2,2, c};

r2 = newl;
BSpline (r2) = {j1,j2,j3,j4};

r3 = newl;
Line (r3) = {i4,j4};

r4 = newl;
Line (r4) = {i1,j1};

ll = newll;
Line Loop (ll) = {r3,-r2,-r4,r1};
s = news;
Ruled Surface (s) = {ll};


