[paparazzi-commits] [4025] add color to sectors

[Pascal Brisset]

Revision: 4025
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4025
Author:   hecto
Date:     2009-08-30 19:34:32 +0000 (Sun, 30 Aug 2009)
Log Message:
-----------
 add color to sectors

Modified Paths:
--------------
    paparazzi3/trunk/sw/lib/ocaml/mapFP.ml

Modified: paparazzi3/trunk/sw/lib/ocaml/mapFP.ml
===================================================================
--- paparazzi3/trunk/sw/lib/ocaml/mapFP.ml      2009-08-30 19:32:58 UTC (rev 
4024)
+++ paparazzi3/trunk/sw/lib/ocaml/mapFP.ml      2009-08-30 19:34:32 UTC (rev 
4025)
@@ -272,7 +272,8 @@
            geo_of_xml utm0 (float_attr wp) in
          let points = List.map wgs84 (Xml.children x) in
          let points = Array.of_list points in
-         display_lines ~group:wpts_group#group color geomap points
+         let color_sector = ExtXml.attrib_or_default x "color" color in
+         display_lines ~group:wpts_group#group color_sector geomap points
        | _ -> failwith "Unknown sectors child")
        (Xml.children (ExtXml.child xml "sectors"))
     with Not_found -> () in