IDG-A32X/Nasal/icing.nas

# A3XX Icing System
# Jonathan Redpath (legoboyvdlp)

# Copyright (c) 2019 Joshua Davidson (it0uchpods)

var dewpoint = 0;
var temperature = 0;
var speed = 0;
var visibility = 0;
var visibLclWx = 0;
var severity = 0;
var factor = 0;
var maxSpread = 0;
var icingCond = 0;
var pause = 0;
var melt = 0;
var windowprobe = 0;
var wingBtn = 0;
var wingFault = 0;
var wingAnti = 0;
var PSI = 0;
var wowl = 0;
var wowr = 0;
var PitotIcing = 0;
var PitotFailed = 0;
var lengBtn = 0;
var lengFault = 0;
var rengBtn = 0;
var rengFault = 0;
var lengAnti = 0;
var rengAnti = 0;
var WingHasBeenTurnedOff = 0;
var GroundModeFinished = 0;
var icing1 = 0;
var sensitive1 = 0;
var v = 0;
var a = 0;
var icing2 = 0;
var sensitive2 = 0;
var u = 0;
var b = 0;
var icing3 = 0;
var sensitive3 = 0;
var t = 0;
var c = 0;
var icing4 = 0;
var sensitive4 = 0;
var s = 0;
var d = 0;
var icing5 = 0;
var sensitive5 = 0;
var r = 0;
var icing6 = 0;
var sensitive6 = 0;
var q = 0;
var e = 0;
var spread = 0;
var windowprb = 0;
var stateL = 0;
var stateR = 0;

var icingInit = func {
	setprop("/systems/icing/severity", "0"); # maximum severity: we will make it random
	setprop("/systems/icing/factor", 0.0); # the factor is how many inches we add per second
	setprop("/systems/icing/max-spread-degc", 0.0);
	setprop("/systems/icing/melt-w-heat-factor", -0.00005000);
	setprop("/systems/icing/icingcond", 0);
	setprop("/controls/switches/windowprobeheat", 0);
	setprop("/controls/switches/wing", 0);
	setprop("/controls/switches/wingfault", 0);
	setprop("/controls/switches/leng", 0);
	setprop("/controls/switches/lengfault", 0);
	setprop("/controls/switches/reng", 0);
	setprop("/controls/switches/rengfault", 0);
	setprop("/controls/deice/wing", 0);
	setprop("/controls/deice/lengine", 0);
	setprop("/controls/deice/rengine", 0);
	setprop("/controls/deice/windowprobeheat", 0);
	setprop("/systems/pitot/icing", 0.0);
	setprop("/systems/pitot/failed", 1);
	setprop("/controls/deice/WingHasBeenTurnedOff", 0);
	setprop("/controls/deice/GroundModeFinished", 0);
	icing_timer.start();
}

var icingModel = func {
	dewpoint = getprop("/environment/dewpoint-degc");
	temperature = getprop("/environment/temperature-degc");
	speed = getprop("/velocities/airspeed-kt");
	visibility = getprop("/environment/effective-visibility-m");
	visibLclWx = getprop("/environment/visibility-m");
	severity = getprop("/systems/icing/severity");
	factor = getprop("/systems/icing/factor");
	maxSpread = getprop("/systems/icing/max-spread-degc");
	icingCond = getprop("/systems/icing/icingcond");
	pause = getprop("/sim/freeze/master");
	melt = getprop("/systems/icing/melt-w-heat-factor");
	windowprobe = getprop("/controls/deice/windowprobeheat");
	wingBtn = getprop("/controls/switches/wing");
	wingFault = getprop("/controls/switches/wingfault");
	wingAnti = getprop("/controls/deice/wing");
	PSI = getprop("/systems/pneumatic/total-psi");
	wowl = getprop("/gear/gear[1]/wow");
	wowr = getprop("/gear/gear[2]/wow");
	PitotIcing = getprop("/systems/pitot/icing");
	PitotFailed = getprop("/systems/pitot/failed");
	lengBtn = getprop("/controls/switches/leng");
	lengFault = getprop("/controls/switches/lengfault");
	rengBtn = getprop("/controls/switches/reng");
	rengFault = getprop("/controls/switches/rengfault");
	lengAnti = getprop("/controls/deice/lengine");
	rengAnti = getprop("/controls/deice/rengine");
	WingHasBeenTurnedOff = getprop("/controls/deice/WingHasBeenTurnedOff");
	GroundModeFinished = getprop("/controls/deice/GroundModeFinished");
	
	if (temperature >= 0 or !icingCond) {
		setprop("/systems/icing/severity", "0");
	} else if (temperature < 0 and temperature >= -2 and icingCond) {
		setprop("/systems/icing/severity", "1");
	} else if (temperature < -2 and temperature >= -12 and icingCond) {
		setprop("/systems/icing/severity", "3");
	} else if (temperature < -12 and temperature >= -30 and icingCond) {
		setprop("/systems/icing/severity", "5");
	} else if (temperature < -30 and temperature >= -40 and icingCond) {
		setprop("/systems/icing/severity", "3");
	} else if (temperature < -40 and temperature >= -99 and icingCond) {
		setprop("/systems/icing/severity", "1");
	}
	
	icing1 = getprop("/sim/model/icing/iceable[0]/ice-inches");
	sensitive1 = getprop("/sim/model/icing/iceable[0]/sensitivity");
	v = icing1 + (factor * sensitive1);
	a = icing1 + melt;
	if (icing1 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[0]/ice-inches", 0.0);
	} else if (wingAnti) {
		setprop("/sim/model/icing/iceable[0]/ice-inches", a);
	} else if (!pause and !wingAnti) {
		setprop("/sim/model/icing/iceable[0]/ice-inches", v);
	}
	
	icing2 = getprop("/sim/model/icing/iceable[1]/ice-inches");
	sensitive2 = getprop("/sim/model/icing/iceable[1]/sensitivity");
	u = icing2 + (factor * sensitive2);
	b = icing2 + melt;
	if (icing2 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[1]/ice-inches", 0.0);
	} else if (lengAnti) {
		setprop("/sim/model/icing/iceable[1]/ice-inches", b);
	} else if (!pause and !lengAnti) {
		setprop("/sim/model/icing/iceable[1]/ice-inches", u);
	}
	
	icing3 = getprop("/sim/model/icing/iceable[2]/ice-inches");
	sensitive3 = getprop("/sim/model/icing/iceable[2]/sensitivity");
	t = icing3 + (factor * sensitive3);
	c = icing3 + melt;
	if (icing3 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[2]/ice-inches", 0.0);
	} else if (rengAnti) {
		setprop("/sim/model/icing/iceable[2]/ice-inches", c);
	} else if (!pause and !rengAnti) {
		setprop("/sim/model/icing/iceable[2]/ice-inches", t);
	}
	
	icing4 = getprop("/sim/model/icing/iceable[3]/ice-inches");
	sensitive4 = getprop("/sim/model/icing/iceable[3]/sensitivity");
	s = icing4 + (factor * sensitive4);
	d = icing4 + melt;
	if (icing4 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[3]/ice-inches", 0.0);
	} else if (windowprobe) {
		setprop("/sim/model/icing/iceable[3]/ice-inches", d);
	} else if (!pause and !windowprobe) {
		setprop("/sim/model/icing/iceable[3]/ice-inches", s);
	}
	
	icing5 = getprop("/sim/model/icing/iceable[4]/ice-inches");
	sensitive5 = getprop("/sim/model/icing/iceable[4]/sensitivity");
	r = icing5 + (factor * sensitive5);
	if (icing5 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[4]/ice-inches", 0.0);
	} else if (!pause) {
		setprop("/sim/model/icing/iceable[4]/ice-inches", r);
	}
	
	icing6 = getprop("/sim/model/icing/iceable[5]/ice-inches");
	sensitive6 = getprop("/sim/model/icing/iceable[5]/sensitivity");
	q = icing6 + (factor * sensitive6);
	e = icing6 + melt;
	if (icing6 < 0.0 and !pause) {
		setprop("/sim/model/icing/iceable[5]/ice-inches", 0.0);
	} else if (windowprobe) {
		setprop("/sim/model/icing/iceable[5]/ice-inches", e);
	} else if (!pause and !windowprobe) {
		setprop("/sim/model/icing/iceable[5]/ice-inches", q);
	}
	
	# Do we create ice?
	spread = temperature - dewpoint;
	# freezing fog or low temp and below dp or in advanced wx cloud
	if ((spread < maxSpread and temperature < 0) or (temperature < 0 and visibility < 1000) or (visibLclWx < 5000 and temperature < 0)) { 
		setprop("/systems/icing/icingcond", 1);
	} else {
		setprop("/systems/icing/icingcond", 0);
	}
	
	if (WingHasBeenTurnedOff and !wowl and !wowr and GroundModeFinished) {
		setprop("/controls/deice/wing", 1);
		setprop("/controls/switches/WingHasBeenTurnedOff", 0);
	}
		
	# If we have low pressure we have a fault
	if (PSI < 10) {
		setprop("/controls/switches/wingfault", 1);
		setprop("/controls/deice/wing", 0);
	} 
	
	if (PSI > 10 and wingFault) {
		setprop("/controls/switches/wingfault", 0);
		if (wingBtn) { 
			setprop("/controls/deice/wing", 1);
		}
	}
	
	if (PitotIcing > 0.03) {
		if (!PitotFailed) {
			setprop("/systems/pitot/failed", 1);
		}
	} else if (PitotIcing < 0.03) {
		if (PitotFailed) {
			setprop("/systems/pitot/failed", 0);
		}
	}
	
	if ((getprop("/systems/electrical/bus/dc1") == 0 or getprop("/systems/electrical/bus/dc2") == 0) and getprop("/fdm/jsbsim/position/wow") == 0) {
		setprop("/controls/switches/leng", 1);
		setprop("/controls/switches/reng", 1);
	}
	
	if (getprop("/systems/electrical/bus/dc-ess-shed") == 0) {
		setprop("/controls/switches/wing", 0);
	}
}

#################
# LEng Anti-Ice #
#################

setlistener("/controls/switches/leng", func {
	if (getprop("/controls/switches/leng") == 1 and getprop("/engines/engine[0]/state") == 3) {
		setprop("/controls/switches/lengfault", 1);
		settimer(func() {
			setprop("/controls/switches/lengfault", 0);
			setprop("/controls/deice/lengine", 1);
		}, 0.5);
	} else if (getprop("/controls/switches/leng") == 0) {
		setprop("/controls/switches/lengfault", 1);
		settimer(func() {
			setprop("/controls/switches/lengfault", 0);
			setprop("/controls/deice/lengine", 0);
		}, 0.5);
	}
});

setlistener("/engines/engine[0]/state", func {
	if (getprop("/engines/engine[0]/state") != 3) {
		setprop("/controls/switches/leng", 0);
	}
});

#################
# REng Anti-Ice #
#################

setlistener("/controls/switches/reng", func {
	if (getprop("/controls/switches/reng") == 1 and getprop("/engines/engine[1]/state") == 3) {
		setprop("/controls/switches/rengfault", 1);
		settimer(func() {
			setprop("/controls/switches/rengfault", 0);
			setprop("/controls/deice/rengine", 1);
		}, 0.5);
	} else if (getprop("/controls/switches/reng") == 0) {
		setprop("/controls/switches/rengfault", 1);
		settimer(func() {
			setprop("/controls/switches/rengfault", 0);
			setprop("/controls/deice/rengine", 0);
		}, 0.5);
	}
});

setlistener("/engines/engine[1]/state", func {
	if (getprop("/engines/engine[1]/state") != 3) {
		setprop("/controls/switches/reng", 0);
	}
});

##################
# Probe Anti-Ice #
##################

setlistener("/controls/switches/windowprobeheat", func {
	windowprb = getprop("/controls/switches/windowprobeheat");
	if (windowprb == 0.5) { # if in auto 
		wowl = getprop("/gear/gear[1]/wow");
		wowr = getprop("/gear/gear[2]/wow");
		stateL = getprop("/engines/engine[0]/state");
		stateR = getprop("/engines/engine[1]/state");
		if (!wowl or !wowr) {
			setprop("/controls/deice/windowprobeheat", 1);
		} else if (stateL == 3 or stateR == 3) {
			setprop("/controls/deice/windowprobeheat", 1);
		}
	} else if (windowprb == 1) { # if in ON
		setprop("/controls/deice/windowprobeheat", 1);
	} else {
		setprop("/controls/deice/windowprobeheat", 0);
	}
});	

#################
# Wing Anti-Ice #
#################

# Switching on the wing anti-ice
setlistener("/controls/switches/wing", func {
	wowl = getprop("/gear/gear[1]/wow");
	wowr = getprop("/gear/gear[2]/wow");
	wingBtn = getprop("/controls/switches/wing");
	if (wowl and wowr and wingBtn) {
		setprop("/controls/switches/wingfault", 1);
		settimer(func() {
			setprop("/controls/switches/wingfault", 0);
			setprop("/controls/deice/wing", 1);
		}, 0.5);
		settimer(func() {
			setprop("/controls/deice/WingHasBeenTurnedOff", 1);
			setprop("/controls/deice/wing", 0);
		}, 30.5);
		settimer(func() {
			setprop("/controls/deice/GroundModeFinished", 1);
		}, 31);
	} else if (wingBtn and !wowl and !wowr) { # In the air
		setprop("/controls/switches/wingfault", 1);
		settimer(func() {
			setprop("/controls/switches/wingfault", 0);
			setprop("/controls/deice/wing", 1);
		}, 0.5);
	} else if (!wingBtn) {
		setprop("/controls/switches/wingfault", 1);
		settimer(func() {
			setprop("/controls/switches/wingfault", 0);
			setprop("/controls/deice/wing", 0);
		}, 0.5);
	}
});

###################
# Update Function #
###################

var update_Icing = func {
	icingModel();
}

var icing_timer = maketimer(0.2, update_Icing);