ecmascript:

function initialize()
{
	// invoke trace routines, if enabled
	set_buoyType (buoyType, timestamp);
	set_directionalTransmission (directionalTransmission);
	process_position_updates ();
	initializeTextLabel ();
	tracePrint('====================== initialize() complete ======================');
}
function initializeTextLabel ()
{
	TextLabelNode.string = new MFString (description, 'location (' + position + ')');
	tracePrint('TextLabelNode.string=' + TextLabelNode.string);
}
function set_buoyType(stringValue, timestamp)
{
	buoyType = stringValue;
	tracePrint ('buoyType = ' + buoyType);
	if      (buoyType=='Racom')
    {
		geometrySwitch.whichChoice = 0;
	}
	else if (buoyType== 'Telesonar')
    {
		geometrySwitch.whichChoice = 1;
	}
    else
    {
		alwaysPrint ('unrecognized buoyType=' + buoyType + ' [allowed choices:  Racom Telesonar]');
		geometrySwitch.whichChoice = -1; // none
	}
	updateSeaWebBuoyViewpointDescription ();
}
function updateSeaWebBuoyViewpointDescription ()
{
	SeaWebBuoyViewpointNode.description = description + ' (' + position + ')';
}
function set_soundSpeedInWater(value, timestamp)
{
	soundSpeedInWater = value;
	tracePrint('soundSpeedInWater = ' + soundSpeedInWater);
	process_position_updates ();
}
function set_position(positionValue, timestamp)
{
	position = positionValue;
	tracePrint('position = ' + position);
	process_position_updates();
	updateSeaWebBuoyViewpointDescription ();
}
function set_targetPosition(positionValue, timestamp)
{
	targetPosition = positionValue;
	tracePrint('targetPosition = ' + targetPosition);
	process_position_updates();
}
function set_transmissionDuration(value, timestamp)
{
	transmissionDuration = value;
	tracePrint('transmissionDuration     = ' + transmissionDuration);
	process_position_updates ();
}
function set_description(value, timestamp)
{
	tracePrint('new description = ' + value);
	description = value;
	updateSeaWebBuoyViewpointDescription ();
}
function process_position_updates(timestamp)
{
	tracePrint('process_position_updates()...');
	tracePrint('transmissionTimeDelay    = ' + transmissionTimeDelay);
	relativeTargetPosition = new SFVec3f();
	relativeTargetPosition.x = targetPosition.x - position.x;
	relativeTargetPosition.y = targetPosition.y - position.y;
	relativeTargetPosition.z = targetPosition.z - position.z;
	tracePrint('relativeTargetPosition = ' + relativeTargetPosition);

	// propagationDistance also sets range for AcousticTransmissionCylinderInstance
	propagationDistance = 	Math.sqrt(
				(relativeTargetPosition.x) * (relativeTargetPosition.x) +
				(relativeTargetPosition.y) * (relativeTargetPosition.y) +
				(relativeTargetPosition.z) * (relativeTargetPosition.z));
	tracePrint('propagationDistance = ' + propagationDistance);

	propagationDuration = propagationDistance / soundSpeedInWater;
	tracePrint('propagationDuration    = ' + propagationDuration);
	activeDuration = propagationDuration + transmissionDuration;
	totalDuration = transmissionTimeDelay + propagationDuration + transmissionDuration;
	tracePrint('totalDuration    = ' + totalDuration);

	beamCylinderInterpolator.key = new MFFloat (0, transmissionTimeDelay/totalDuration,
		(transmissionTimeDelay + propagationDuration)/totalDuration, 0.99, 1);
	beamCylinderInterpolator.keyValue = new MFFloat (0, 0, propagationDistance, propagationDistance, 0);
	tracePrint('beamCylinderInterpolator.key = ' + beamCylinderInterpolator.key);
	tracePrint('beamCylinderInterpolator.keyValue = ' + beamCylinderInterpolator.keyValue);
	beamRotation = new SFRotation (new SFVec3f (1, 0, 0), relativeTargetPosition.normalize());

	flyingText.timeIntervals = new MFTime(transmissionTimeDelay, propagationDuration + transmissionDuration);
	tracePrint('flyingText.timeIntervals = ' + flyingText.timeIntervals);
	// popup text without motion during transmissionTimeDelay
	flyingText.waypoints = new MFVec3f(new SFVec3f(0,0,0), new SFVec3f(0,0,0), relativeTargetPosition);
	tracePrint('flyingText.waypoints = ' + flyingText.waypoints);
	tracePrint('...process_position_updates() complete.');
}
function set_enabled(value, timestamp)
{
	enabled = value;
	tracePrint('enabled = ' + enabled);
}
function set_activated(value, timestamp)
{
	if (enabled)
	{
		process_position_updates(); // ensure up to date
		if (directionalTransmission)
		{
		//	beamCylinder.contact = true;
		}
		else
		{
			// start delay timer, which will later trigger acousticTransmissionCylinder
		//	acousticTransmissionCylinder.startTransmission = true;
		}

		if (value == true)
		{
			delayTimer.delayInterval = transmissionTimeDelay;
			tracePrint('delayTimer.delayInterval = ' + delayTimer.delayInterval);
			activationTime = timestamp; // start DelayTimer, BeamCylinderAnimation, FlyingText startTime
			tracePrint('activated at ' + activationTime);
		}
	}
}
function set_targetIdNumber(value, timestamp)
{
	targetIdNumber = value;
	tracePrint('targetIdNumber = ' + targetIdNumber);
}
function set_directionalTransmission(value, timestamp)
{
	directionalTransmission = value;
	tracePrint('directionalTransmission = ' + directionalTransmission);

	if (directionalTransmission)
	{
		transmissionGeometrySwitch.whichChoice = 1;
	}
	else
	{
		transmissionGeometrySwitch.whichChoice = 0;
	}
}
function set_transmissionTimeDelay(value, timestamp)
{
	if (value < 0.0)
	{
		alwaysPrint('error, illegal transmissionTimeDelay = ' + transmissionTimeDelay +
			', reset to 0');
		transmissionTimeDelay = 0.0;
	}
	else
	{
		transmissionTimeDelay = value;
	}
	tracePrint('transmissionTimeDelay = ' + transmissionTimeDelay);
	process_position_updates ();
}
function delayCompleted(value, timestamp)
{
	if (directionalTransmission)
	{
	//	beamCylinder.range = 0;
	}
	else
	{
		acousticTransmissionCylinder.startTransmission = true;
	}
	tracePrint('delayTimer delayCompleted at ' + timestamp);
}
function alwaysPrint(string)
{
	Browser.println ('[SeaWebBuoyPrototype ' + description + '] ' + string);
}
function tracePrint(string)
{
	if (traceEnabled)
		Browser.println ('[SeaWebBuoyPrototype ' + description + '] ' + string);
}