[Flightgear-cvslogs] CVS: data/Aircraft/S-51-Dragonfly/System rescue_operation.nas, NONE, 1.1 terrain.nas, NONE, 1.1

[Gerard R. <ge...@ba...>]

Update of /var/cvs/FlightGear-0.9/data/Aircraft/S-51-Dragonfly/System
In directory baron.flightgear.org:/tmp/cvs-serv12265/System

Added Files:
	rescue_operation.nas terrain.nas 
Log Message:
Improve (first stage) the rescue operation with terrain, the rescued person won't dig the ground

--- NEW FILE ---
#Rescue Op  Gérard Robin  Copyright GPL v2
#Au sol 0.07 => Agl ft 3.27
# Alt 1 => Agl ft 33.51

var AGL_REF = 33.51;
print (AGL_REF);
setprop ("/sim/model/rescue-lift",0.00);
setprop ("/position/altitude-agl-ft",0.01);


rope_size = func {
	var rescue = getprop("/sim/model/rescue");
	if ( rescue == 1) {
	var agl = getprop("/position/altitude-agl-ft");
	var rope = getprop("/sim/model/rescue-lift");
	var terrain = getprop("/environment/terrain");
	
	var agl_low = agl - 1;
		if (( rope * AGL_REF  > agl_low ) and (terrain == 1 )) {
		var rescue_lift = agl_low / AGL_REF;
			if (rescue_lift < 0) {
			rescue_lift = 0;
			}
		setprop ("/sim/model/rescue-lift", rescue_lift );
		}
		}
	settimer(rope_size, 0.05);
	}



rope_size();
--- NEW FILE ---
terrain_under = func {

var lat = getprop("/position/latitude-deg");
var lon = getprop("/position/longitude-deg");
var info = geodinfo(lat, lon);

    if (info != nil) {
    if (info[1] != nil)
        setprop("/environment/terrain",info[1].solid);
       #print("and it is ", info[1].solid ? "solid ground" : "covered by water");
       #debug.dump(geodinfo(lat, lon));
    }else {
    setprop("/environment/terrain",1);
    }
settimer (terrain_under, 0.1);
}


terrain_under();