cam pointing handling

This commit is contained in:
Pascal Brisset
2005-11-22 07:10:43 +00:00
parent 519a9b4c6f
commit 42b19bb7f3
8 changed files with 47 additions and 27 deletions
+7 -3
View File
@@ -153,6 +153,9 @@ let output_cam_mode = fun x index_of_waypoints ->
with _ ->
lprintf "cam_manual_target();\n"
end
| "follow" ->
let i = ExtXml.attrib x "cam_ac_target" in
lprintf "cam_ac_target(%s);\n" i
| _ -> failwith (sprintf "Error: unknown '%s' cam mode" m)
let output_vmode x wp last_wp =
@@ -292,9 +295,10 @@ let rec print_stage = fun index_of_waypoints x ->
lprintf "return;\n"
| "follow" ->
stage ();
let id = ExtXml.attrib x "ac_id" in
let d = ExtXml.attrib x "distance" in
lprintf "Follow(%s, %s);\n" id d;
let id = ExtXml.attrib x "ac_id"
and d = ExtXml.attrib x "distance"
and h = ExtXml.attrib x "height" in
lprintf "Follow(%s, %s, %s);\n" id d h;
output_cam_mode x index_of_waypoints;
lprintf "return;\n"
| "attitude" ->