Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 12:23:23 +08:00
Code Issues Actions 27 Packages Projects Releases Wiki Activity

last (?) commit before MAV05

Browse Source
This commit is contained in:
Pascal Brisset
2005-09-17 10:16:49 +00:00
parent e3fb8a4e00
commit f9f69e0c6f
8 changed files with 37 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/fp_proc.ml
+6 -2
View File
@@ -84,7 +84,6 @@ let subst_expression = fun env e ->
let transform_expression = fun affine env e ->
let e = parse_expression e in
let e' = rotate_expression affine.angle e in
let e'' = subst_expression env e' in
Fp_syntax.sprint_expression e''
@@ -93,10 +92,15 @@ let transform_expression = fun affine env e ->
let transform_values = fun attribs_not_modified affine env attribs ->
List.map
(fun (a, v) ->
let e = parse_expression v in
let e' =
if String.lowercase a = "course"
then CallOperator("+", [e; Float affine.angle])
else e in
let v' =
if List.mem (String.lowercase a) attribs_not_modified
then v
else transform_expression affine env v in
else transform_expression affine env e' in
(a, v'))
attribs