Ketinit();
Setparent(Cdyname()+"fig");

p0=[-3,0];
p1=[-1,0];
p2=[-3,2];
p3=[-5,0];
p4=[-3,-2];
q0=[3,0];
q1=[1,0];
q2=[3,2];
q3=[5,0];
q4=[3,-2];

Circledata("1",[p0,p1]);
Pointdata("1",[p1,p2,p3,p4],["Size=3"]);
Circledata("2",[q0,q1]);
Pointdata("2",[q1,q2,q3,q4],["Size=3"]);

Ch=[1];
if(contains(Ch,1),
 Ospline("1",[p1,p2,p3,p4,p1],["Color=red"]);
 CRspline("1",[q1,q2,q3,q4,q1],["Color=red"]);
 Letter([p0+[0,3],"n","Ospline",q0+[0,3],"n","CRspline"]);
);

Figpdf();
Windispg();