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

Addax(0);

drawimage([0,0],"dogwalk.png",scale->2,alpha->0.5);

Mkbezierptcrv([A,B,C,D,E,F,G,H,A]); 

tmp1=Findlength("bza")*200/(L.x-K.x);
tmp2=Findarea("bza")*(200/(L.x-K.x))^2;
Expr([-4,4],"e","L="+Sprintf(tmp1,2),["Size=1.6"]);
Expr([-4,3],"e","S="+Sprintf(tmp2,2),["Size=1.6"]);

Figpdf();
Windispg();

//Help("Mkb");