fn draw_drop_position(app: &App, r: RoadID, from: usize, to: usize) -> GeomBatch