#
# NEED_PARMS maxvalue color amplify angoff
#

DECLARE int $i,$maxvalue
DECLARE struct $math
DECLARE double $pi,$amplify,$angoff,$msin,$mcos
DECLARE string $color

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

CECHO ${$maxvalue = ($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 ${$angoff  =(double)$argv[4]}
CECHO ${$angoff*=$math.const.pi/180.0}
CECHO ${$msin=$math.sin($angoff)*$maxvalue*$amplify}
CECHO ${$mcos=$math.cos($angoff)*$maxvalue*$amplify}

MESH_DEL 0
MESH_ADD 0 5 5
MESH_COLOR ${$color} 0

# set up the center cross
MESH_SET 0
MESH_SETPOINT 0 ${$parent.mvec.x} ${$parent.mvec.y} ${$parent.mvec.z}
MESH_SETPOINT 1 ${$parent.mvec.x+$mcos} ${$parent.mvec.y+$msin} ${$parent.mvec.z}
MESH_SETPOINT 2 ${$parent.mvec.x-$mcos} ${$parent.mvec.y-$msin} ${$parent.mvec.z}
MESH_SETPOINT 3 ${$parent.mvec.x+$msin} ${$parent.mvec.y-$mcos} ${$parent.mvec.z}
MESH_SETPOINT 4 ${$parent.mvec.x-$msin} ${$parent.mvec.y+$mcos} ${$parent.mvec.z}
MESH_SETLINE 0 1
MESH_SETLINE 1 2
MESH_SETLINE 3 3
MESH_SETLINE 4 4

