macroScript shader
    category:"xrShader"
    toolTip:"XR"

(    
      Mtl = medit.getcurmtl()
      if classof Mtl != Multimaterial then Mtl = #(Mtl)
      for m in Mtl where classof m == Standardmaterial do
       if not (xrToolsUtil.HasShadersCA m) then custAttributes.add m xrShadersDataCA
     )
     
fn HasShadersCA Mtl =   -----------------------------------------------------------------------------
    (
  if Mtl != undefined then
  (
   local i, ca
   
   for i = 1 to (custAttributes.count Mtl) do
   (
    ca = custAttributes.get Mtl i
    if ca.name == "xrShadersData" then return true
   )
  )
  return false
    )