function [result_dble] = jp2codec_degrade(Isrc, comp_ratio, bit_depth, Isrc_dble)%% Attention: a) no rounding operation; it should be performed beforehand%            b) returns uint32 matrix; convert it to double for further%            processing%% See also:%    jp2_codec, TestJP2, MakePlainImage%2 voies d'entree-sortie.% voie classique :  entree de l'image dans la chaine de compression/ sortie de l'image apres degradation% voie d'insertion dans le codeur : entree de la transformee inseree directement dans la chaine en lieu et place de% 				   la transformee normalement calculee a partir de l'image.la sortie se fait avant%				   la phase normale d'inversion de la transformee.% utilit? de garder l'image en entree. L'encodeur jp2k peut se baser sur l'image originale pour definir des strategies% optimales de codage qu'il appliquera ensuite au codage de la transformee (decoupage en tuile ...) et a son decodage.% Dans l'utilisation qu'il est ici faite de jpeg2k, l'image d'entree n'a aucune incidence quant au codage de la transformee% (peut etre dans une version future ?)x_size = size(Isrc,2);y_size = size(Isrc,1);I_cropped = int16(Isrc);header_size_in_bytes = 0;                                                                   % for large images, it is not importanttarget_size = header_size_in_bytes + (x_size * y_size * bit_depth) / (comp_ratio * 8);      % 8 for bytes instead of bits% MakePlainImage(I_cropped)[comp_data] = jp2_codec_encod(I_cropped, target_size, bit_depth+1, Isrc_dble);[decoded,result_dble] = jp2_codec_encod(comp_data, 0, 0, 0);result_dble = result_dble;