let pix_type = create_pix "type"
    (Filename.concat Cam_installation.pixmaps_dir "type.png")
    "types"