Ketinit();
//Setparent(Cdyname()+"fig");
Setketcindyjs(["Nol=all"]);//no ketjs on
Ketcindyjsbody(["<p,f10>Oshima spline and Movable point"],[]);
//no ketjs off
pL=apply([A,B,C,D,E,A],Ptpos(#));
Ospline("1",pL);
Putoncurve("G","bzo1");
Letter(G,"nw","P");
Pointdata("1",G.xy,["Size=3","Color=blue"]);

//Figpdf();
Windispg();