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

Addax(0);

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


Mkbezierptcrv([A,B,C,D,E,F,G,H,A],["Color=black"]); 
Mkbezierptcrv([B,K,L,M,N,O,P,Q,G],["Color=cyan"]);
Partcrv("1",A,B,"bza",["nodisp"]);
Partcrv("2",G,A,"bza",["nodisp"]);
Shade(["part1","bzb","part2"],["Color=cyan"]); 

Figpdf();
Windispg();

//Help("Enclos");