Sub Affiche_les_routes
    LogColor ("Affiche_les_routes ", Colors.Magenta)
    Load_Polypoints 'from DB
    For x=0 To polyPoints.Size-1
        drawDirections(x)
    Next
End Sub
Sub drawDirections (numeroRoute As Int)
'    LogColor("drawDirections ",Colors.Blue)
    Dim jo As JavaObject
    Dim Points As List
    Points.Initialize
    jo.InitializeContext
    Points = jo.RunMethod("decodePoly", Array(polyPoints.Get(numeroRoute)))
    If Points.Size > 0 And Gmap.IsInitialized Then
        pline = Gmap.AddPolyline
        pline.Points = Points
'        pline.Color = Colors.red
    End If
End Sub