FUNCTION triangule, maskentree, REGULIER = regulier, _extra = ex
@common
   if keyword_set(regulier) then return, triangule_c(maskentree, REGULIER = regulier, _extra = ex)
   if n_elements(key_gridtype) EQ 0 then key_gridtype = 'c'
   if n_elements(maskentree) EQ 0 then maskentree = tmask[*, *, 0]
   case key_gridtype of
      'e':res = triangule_e(maskentree, _extra = ex)
      'c':res = triangule_c(maskentree, REGULIER = regulier, _extra = ex)
   endcase
   return, res
end