Y-Wing Video

createMover is joyName acName axName value movef = do
	action <- createAnalogAxisAction is (-1.0) 1.0 acName
	isJoy <- isJoystickAvailable is joyName
	if isJoy then do
		bindJoystickAxis action joyName axName
		return (Mover value action movef)
		else return (Mover value action movef)

setNewCameraPosition vs ywing newhist = do
 
		wingpos <- getPosition ywing
		let (pos, quat) = newhist !! 70
		-- this points towards nose
		let vdir = rotateVQ zv quat
		let newcampos = (scaleV3  (-70.0) vdir) + wingpos + (vector3 0.0 20.0 0.0)
 
		setCameraPos vs newcampos
		setCameraLookAt vs wingpos
		return ()
 

createGates es thickness freespace depth cubeT r = do
 
	-- parameters horizontal bars
	let hl = freespace + thickness  -- length horizontal bar
	let hw = thickness/2.0		    -- width horizontal bar
	let hpt = vector3 0.0 (freespace + thickness/2.0) 0.0 -- horizontal bar, position top
	let hpb = vector3 0.0 (-1.0 * (freespace + thickness/2.0)) 0.0 -- horizontal bar, position bottom
 
	-- create top and bottom cube
	top <-  createMesh es cubeT
	bottom <-  createMesh es cubeT
	setScale top (vector3 hl hw depth)
	setScale bottom (vector3 hl hw depth)
	setPosition top hpt
	setPosition bottom hpb
 
	-- parameters vertical bars
	let vl = freespace						-- vertical bar, length
	let vw = thickness/2.0						-- vertical bar, width
	let vpr = vector3 (freespace + thickness/2.0) 0.0 0.0    -- vertical bar, position right
	let vpl = vector3 (-1.0 * (freespace + thickness/2.0)) 0.0 0.0
 
	-- create left and right cube
	left <-  createMesh es cubeT
	right <-  createMesh es cubeT
	setScale left (vector3 vw vl depth)
	setScale right (vector3 vw vl depth)
	setPosition left vpl
	setPosition right vpr
 
	gate <- combineGraphicsObjects es [top, bottom, left, right]
	translate gate (vector3 0.0 0.0 r) TsParent
 
	return gate