krpano拖拽图层和热点

拖拽热点：

<action name="draghotspot">
	spheretoscreen(ath, atv, hotspotcenterx, hotspotcentery, 'l');
	sub(drag_adjustx, mouse.stagex, hotspotcenterx);
	sub(drag_adjusty, mouse.stagey, hotspotcentery);
	asyncloop(pressed,
		sub(dx, mouse.stagex, drag_adjustx);
		sub(dy, mouse.stagey, drag_adjusty);
		screentosphere(dx, dy, ath, atv);
	  );
</action>

调用：
ondown="draghotspot();"
拖拽图层：

创建图层：
<layer name="box1" type="container" align="lefttop" x="10" y="10" width="250" height="250" bgcolor="0x000000" bgalpha="0.5" bgcapture="true" maskchildren="true" ondown="draglayer();">
	<layer name="box2" type="container" align="center" x="0" y="0" width="100" height="100" bgcolor="0x44AADD" bgalpha="1.0" bgcapture="true" ondown="draglayer();" />
</layer>
方法：
<action name="draglayer">
	copy(drag_currentx, x);
	copy(drag_currenty, y);
	copy(drag_stagex, mouse.stagex);
	copy(drag_stagey, mouse.stagey);
	indexoftxt(align_contains_right, get(align), 'right');
	indexoftxt(align_contains_bottom, get(align), 'bottom');
	calc(drag_align_x, align_contains_right GE 0 ? -1 : +1);
	calc(drag_align_y, align_contains_bottom GE 0 ? -1 : +1);
	asyncloop(pressed,
		calc(x, drag_currentx + (mouse.stagex - drag_stagex)*drag_align_x);
		calc(y, drag_currenty + (mouse.stagey - drag_stagey)*drag_align_y);
	  );
</action>

Links: 30