#
# NEED_PARMS fd classset name id color
#

DECLARE int $fd
DECLARE struct $mvec,$file
DECLARE double $average
DECLARE string $color,$classset,$id,$name

CECHO ${$file=$root.func.file}

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

CECHO ${$fd      = (int)$argv[1]}
CECHO ${$classset= (string)$argv[2]}
CECHO ${$name    = ($argv[3]!=(void)0) ? $argv[3] : "Unknown" } 
CECHO ${$id      = ($argv[4]!=(void)0) ? $argv[4] : "Unknown" } 
CECHO ${$color   = ($argv[5]!=(void)0) ? $argv[5] : "0000 ffff ffff" } 

GETSTATS ${$classset}
CECHO ${$average=$root.rc.average}
{ IFFD ${$fd>=0}
	CECHO ${$file.puts($fd,$name+";"+(string)$average+"\n")}
} IFFD 0 0
! angiotux2d/helper/GetCOG "${$classset}"
MARKER_DEL_ID ${$id}
MARKER_ADD ${$root.func.math.tostring($average,5,1)} ${$mvec.x} ${$mvec.y} ${$mvec.z} ${$color} ${$id}
