let create shaders =
  let p = create' () in
    List.iter (add_shader p) shaders;
    to_state_attribute p