Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-04 13:55:40 +08:00
Code Issues Actions 28 Packages Projects Releases Wiki Activity

hide the cam target point at gcs startup

Browse Source
This commit is contained in:
Gautier Hattenberger
2012-02-23 17:56:17 +01:00
parent fc71cc70e1
commit ecbb88ac3a
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/mapTrack.ml
+7 -3
View File
@@ -75,13 +75,15 @@ class track = fun ?(name="Noname") ?(size = 500) ?(color="red") (geomap:MapCanva
(** rectangle representing the field covered by the cam *) (** rectangle representing the field covered by the cam *)
let _ac_cam_targeted = let _ac_cam_targeted =
ignore ( GnoCanvas.ellipse ~x1: (-. 2.5) ~y1: (-. 2.5 ) ~x2: 2.5 ~y2: 2.5 ~fill_color:color ~props:[`WIDTH_UNITS 1.; `OUTLINE_COLOR color; `FILL_STIPPLE (Gdk.Bitmap.create_from_data ~width:2 ~height:2 "\002\001")] cam) in ignore ( GnoCanvas.ellipse ~x1: (-. 2.5) ~y1: (-. 2.5 ) ~x2: 2.5 ~y2: 2.5 ~fill_color:color ~props:[`WIDTH_UNITS 1.; `OUTLINE_COLOR color; `FILL_STIPPLE (Gdk.Bitmap.create_from_data ~width:2 ~height:2 "\002\001")] cam) in
let _ = cam#hide () in
let mission_target = GnoCanvas.group group in let mission_target = GnoCanvas.group group in
(** red circle : target of the mission *) (** red circle : target of the mission *)
let ac_mission_target = let _ac_mission_target =
GnoCanvas.ellipse ~x1: (-5.) ~y1: (-5.) ~x2: 5. ~y2: 5. ~fill_color:"red" ~props:[`WIDTH_UNITS 1.; `OUTLINE_COLOR "red"; `FILL_STIPPLE (Gdk.Bitmap.create_from_data ~width:2 ~height:2 "\002\001")] mission_target in ignore ( GnoCanvas.ellipse ~x1: (-5.) ~y1: (-5.) ~x2: 5. ~y2: 5. ~fill_color:"red" ~props:[`WIDTH_UNITS 1.; `OUTLINE_COLOR "red"; `FILL_STIPPLE (Gdk.Bitmap.create_from_data ~width:2 ~height:2 "\002\001")] mission_target) in
let _ = ac_mission_target#hide () in (*let _ = ac_mission_target#hide () in*)
let _ = mission_target#hide () in
(** data at map scale *) (** data at map scale *)
let max_cam_half_height_scaled = 10000.0 in let max_cam_half_height_scaled = 10000.0 in
@@ -92,6 +94,8 @@ class track = fun ?(name="Noname") ?(size = 500) ?(color="red") (geomap:MapCanva
let _desired_circle = GnoCanvas.ellipse group let _desired_circle = GnoCanvas.ellipse group
and _desired_segment = GnoCanvas.line group in and _desired_segment = GnoCanvas.line group in
let _ = aircraft#raise_to_top () in
object (self) object (self)
val mutable top = 0 val mutable top = 0
val mutable color = color val mutable color = color