Bug fix on distance threshold

This commit is contained in:
Pascal Brisset
2008-02-05 03:01:55 +00:00
parent 14cc8350ca
commit 6f461bb27f
+1 -1
View File
@@ -51,7 +51,7 @@ let draw = fun da desired_course course distance ->
let translate = fun (x, y) -> (4*s+x, 4*s-y) in
(* Arrow *)
if distance < 5. then
if distance > 5. then
let points = List.map (fun (x, y) -> translate (rotation (x*s/2,y*s/2))) arrow in
dr#set_foreground fore;
dr#polygon ~filled:true points;