#
# NEED_PARMS classset
#

DECLARE string $classset
DECLARE struct $moments,$fmath,$fvector

CECHO ${$fmath=$root.func.math}
CECHO ${$fvector=$root.func.vector}

IF ${$argv[1]==(void)0} QUIT

CECHO ${$classset= (string)$argv[1]}

FIND_MOMENTS -c ${$classset}
CECHO ${$moments=$root.rc}

# normalize the vectors, so that the big diameter vector points down
{ IF1 ${$moments.eigen[2].vector.y<0}
	CECHO ${$moments.eigen[2].vector=$fvector.scale($moments.eigen[2].vector,-1.0)}
} IF1 0 0

CECHO ${$parent.AxisAngle=$fmath.atan2(-$moments.eigen[2].vector.x,$moments.eigen[2].vector.y)*180.0/$fmath.const.pi}
