mirror of
https://github.com/paparazzi/paparazzi.git
synced 2026-06-04 22:17:01 +08:00
[supervision] force color format to #rrrrggggbbbb
This commit is contained in:
@@ -32,7 +32,7 @@ let gcs = Env.paparazzi_src // "sw/ground_segment/cockpit/gcs"
|
|||||||
let regexp_space = Str.regexp "[ ]+"
|
let regexp_space = Str.regexp "[ ]+"
|
||||||
|
|
||||||
let string_of_gdkcolor = fun c ->
|
let string_of_gdkcolor = fun c ->
|
||||||
sprintf "#%2x%2x%2x" (Gdk.Color.red c) (Gdk.Color.green c) (Gdk.Color.blue c)
|
sprintf "#%04x%04x%04x" (Gdk.Color.red c) (Gdk.Color.green c) (Gdk.Color.blue c)
|
||||||
|
|
||||||
let aircraft_sample = fun name ac_id ->
|
let aircraft_sample = fun name ac_id ->
|
||||||
Xml.Element ("aircraft",
|
Xml.Element ("aircraft",
|
||||||
|
|||||||
Reference in New Issue
Block a user