package require java
set ellipsoidView [java::new com.surpac.gui.VisualiserForm 0]
set buffer [GuidoExecServer GetAnisotropyEllipsoid {} ]
set status [GuidoGetParamBufferValue $buffer status]
if {$status >= 0} {
$ellipsoidView setMaxDistance [format "%.3f" [GuidoGetParamBufferValue $buffer range]]
$ellipsoidView setMajorSemi [format "%.3f" [GuidoGetParamBufferValue $buffer ellipse_major_semi_major]]
$ellipsoidView setMajorMinor [format "%.3f" [GuidoGetParamBufferValue $buffer ellipse_major_minor]]
$ellipsoidView setBearing [format "%.4f" [GuidoGetParamBufferValue $buffer ellipse_rotation]]
$ellipsoidView setDip [format "%.4f" [GuidoGetParamBufferValue $buffer ellipse_tilt]]
$ellipsoidView setPlunge [format "%.4f" [GuidoGetParamBufferValue $buffer ellipse_dip]]
$ellipsoidView interactFrame
}
