[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[paparazzi-commits] [4025] add color to sectors
From: |
Pascal Brisset |
Subject: |
[paparazzi-commits] [4025] add color to sectors |
Date: |
Sun, 30 Aug 2009 19:34:32 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [paparazzi-commits] [4025] add color to sectors,
Pascal Brisset <=