Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-07 00:53:41 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

-boot & -launch options

Browse Source
This commit is contained in:
Pascal Brisset
2006-07-31 15:36:10 +00:00
parent e3cb31a476
commit 1b370b2203
1 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/simulator/sim.ml
+17 -4
View File
@@ -67,8 +67,13 @@ let ivy_bus = ref "127.255.255.255:2010"
let fg_client = ref ""
let autoboot = ref false
let autolaunch = ref false
let common_options = [
"-b", Arg.Set_string ivy_bus, "Bus\tDefault is 127.255.255.25:2010";
"-boot", Arg.Set autoboot, "Boot the A/C on start";
"-launch", Arg.Set autolaunch, "Launch the A/C on start";
"-fg", Arg.Set_string fg_client, "Flight gear client address"
]
@@ -232,10 +237,18 @@ module Make(AircraftItl : AIRCRAFT_ITL) = struct
let take_off = fun () -> FlightModel.set_air_speed !state FM.nominal_airspeed in
let hbox = GPack.hbox ~packing:vbox#pack () in
let s = GButton.button ~label:"Boot" ~packing:(hbox#pack ~padding:5) () in
ignore (s#connect#clicked ~callback:boot);
let t = GButton.button ~label:"Launch" ~packing:hbox#pack () in
ignore (t#connect#clicked ~callback:take_off);
if not !autoboot then begin
let s = GButton.button ~label:"Boot" ~packing:(hbox#pack ~padding:5) () in
ignore (s#connect#clicked ~callback:boot)
end else
boot ();
if not !autolaunch then begin
let t = GButton.button ~label:"Launch" ~packing:hbox#pack () in
ignore (t#connect#clicked ~callback:take_off)
end else
take_off ();
let ir_srtm_button = GButton.toggle_button ~label:"IR/srtm" ~packing:hbox#pack () in
ignore (ir_srtm_button#connect#toggled (fun () -> ir_srtm := not !ir_srtm));
let s = GButton.button ~label:"Set Pos" ~packing:hbox#pack () in