fn traffic_signal_body(
    ctx: &mut EventCtx<'_>,
    app: &App,
    id: IntersectionID
) -> Widget