let something_visible cm =
    some_visible_out cm || some_visible_in cm || ctrl_visible cm