//
//    - (obj) ,    1,1;  2,2;   ,.
//  [x1;y1][cx;cy]  [x2;y2][cx;cy]     .       . 
//    clr -    ,      (obj)  . ( QBasic   CSR (Clean Screen))
//        ,    ,       .

function curve(obj, x1, y1, x2, y2, cx, cy, clr) {
	//
	with (obj) {
		//	
		if (clr)clear();
		lineStyle(0, 0x000000, 100);
		moveTo(x1, y1);
		curveTo(cx, cy, x2, y2);
		//
	}
	//
}
//
//       (obj)   ,   r.
//  ,      :{  ;   4 ;       ; - ()     }
//  k    .     " ",    ""       k.  =1,    ,   ,    " ".
// k     , ..  k(r)    :-(
//
function circle(obj, x, y, r, k) {
	//
	with (obj) {
		//
		moveTo(x-r, y);
		beginFill(0xEFBF00);
		lineStyle(0, 0x000000, 100);
		curveTo(x-r*k, y-r*k, x, y-r);
		curveTo(x+r*k, y-r*k, x+r, y);
		curveTo(x+r*k, y+r*k, x, y+r);
		curveTo(x-r*k, y+r*k, x-r, y);
		endFill();
		//	
	}
	//
}
//
//   ,     onMouseUp -   .
//  ,   drag_obj   _root.ctrl   0. 
//    _root.ctrl,    ""  .
// 
ml = new Object();
ml.onMouseUp = function(){
	_root.ctrl.drag_obj = 0;
	
};
Mouse.addListener(ml);
//
