#
# HELP: SYNOPSIS:
# HELP:     register/mouse/curvelen
# HELP:
# HELP: DESCRIPTION:
# HELP:     Point to two voxel, then get curve length between them.
#
DECLARE string $output
DECLARE double $sx
DECLARE double $sy
DECLARE double $sz
DECLARE double $ex
DECLARE double $ey
DECLARE double $ez
CECHO ${$output=""}
{ IF ${$root.register.mouse.curvelen.state==0}
	CECHO ${$root.register.mouse.curvelen.state=1}
	CECHO ${$sx=$root.register.mouse.curvelen.sx=$root.global.pointer.midcoord.x}
	CECHO ${$sy=$root.register.mouse.curvelen.sy=$root.global.pointer.midcoord.y}
	CECHO ${$sz=$root.register.mouse.curvelen.sz=$root.global.pointer.midcoord.z}
	CECHO ${$output="Start point set."}
	GOTO end
} IF 0 0
{ IF2 ${$root.register.mouse.curvelen.state==1}
	CECHO ${$root.register.mouse.curvelen.state=0}
	CECHO ${$sx=$root.register.mouse.curvelen.sx}
	CECHO ${$sy=$root.register.mouse.curvelen.sy}
	CECHO ${$sz=$root.register.mouse.curvelen.sz}
	CECHO ${$ex=$root.global.pointer.midcoord.x}
	CECHO ${$ey=$root.global.pointer.midcoord.y}
	CECHO ${$ez=$root.global.pointer.midcoord.z}
	MEASURE_CURVELEN ${$sx} ${$sy} ${$sz} ${$ex} ${$ey} ${$ez} ${$root.register.mouse.curvelen.buckets} ${$root.register.mouse.curvelen.target}
	CECHO ${$output="Length: "+$root.rc}
	RESFLAGS Curvelen V MOUSE &~7
	UNREGISTER Curvelen V MOUSE Curvelen
} IF2 0 0
:end
CECHO ${$root.view[current].dodisp|=3}
CAPTION ${$output}
