#
# NEED_PARMS value color amplify steps
#

DECLARE int $i,$value,$steps
DECLARE struct $math
DECLARE double $pi,$ang,$amplify
DECLARE string $color

CECHO ${$pi=3.14159256}
CECHO ${$math=$root.func.math}

CECHO ${$value = ($argv[1]!=(void)0) ? (int)$argv[1] : 0 } 
CECHO ${$color = ($argv[2]!=(void)0) ? (string)$argv[2] : "ffff ffff ffff" }
CECHO ${$amplify = ($argv[3]!=(void)0) ? (double)$argv[3] : 1.0 }
CECHO ${$steps = ($argv[4]!=(void)0) ? (int)$argv[4] : 36 }

# First make a few nice circles
MESH_DEL ${$value}
MESH_ADD ${$value} ${$steps} ${$steps+1}
MESH_SET ${$value}
MESH_COLOR ${$color} ${$value}

CECHO ${$i=0}
{ ANG2 ${$i<$steps}
	CECHO ${$ang=$i*360.0/$steps}
	MESH_SETPOINT ${$i} ${$parent.mvec.x-$value*$math.sin($ang*$pi/180.0)*$amplify} ${$parent.mvec.y+$value*$math.cos($ang*$pi/180.0)*$amplify} ${$parent.mvec.z}
	MESH_SETLINE ${$i} ${$i}
} ANG2 ${$i++} 1
MESH_SETLINE ${$steps} 0
