let enveloppe = fun (forme:float array) (decalage:float) (nervosite:float) (remanence:float) (age:float) ->
 if age <= 0. then
  0.
 else
  begin
   let u = age *. nervosite in
    let position_debut = ( u <= max_de_forme ) in
     let t = if position_debut then u else age +. decalage in
      let ii = int_of_float t in
       let i = min pred_taille_de_forme ii
       and z = t -. ( float ii ) in
        let x = forme.(i)
        and j = min pred_taille_de_forme ( succ i ) in
         let y = forme.(j) in
          remanence +. ( 1. -. remanence ) *. ( z *. y +. ( 1. -. z ) *. x )
  end