for i:=0 to pred(largeur) do
        begin
        case d_reso_prop.memo_redim of
          TTR_Proportion:
            i_position:=round(i/proportion);
          TTR_Horizontal,TTR_vertical,TTR_Elise_redimentionne:
            i_position:=round(i*un_tbitmap.Width/d_reso_prop.memo_horizontal);
          end; {case}
        if largeur<>0 then
          haide.Show_horloge_curseur(100*i div largeur);
        for j:=0 to pred(hauteur) do
          begin
          case d_reso_prop.memo_redim of
            TTR_Proportion:
              j_position:=round(j/proportion);
            TTR_Horizontal,TTR_vertical,TTR_Elise_redimentionne:
              j_position:=round(j*un_tbitmap.height/d_reso_prop.memo_vertical);
            end; {case}
          if d_reso_prop.bool_correspondance_des_pixels then
            begin
            li_nombre_de_pixels:=1;
            with point_calculer do
              un_pixel:=wformebm.une_image_tres_rapide.GetPixel(i_position,j_position);
            un_pixel_rouge:=getrvalue(un_pixel);
            un_pixel_vert:=getgvalue(un_pixel);
            un_pixel_bleu:=getbvalue(un_pixel);
            end
          else
            begin
            un_pixel_rouge:=0;
            un_pixel_vert:=0;
            un_pixel_bleu:=0;
            li_nombre_de_pixels:=0;
            {Permet de faire la moyenne des points sous-jacent}
            for k:=0 to li_variation do
              for l:=0 to li_variation do
                begin
				point_calculer.x:=i_position+k;
                point_calculer.y:=j_position+l;
                if (point_calculer.x0 then
            begin
            wformebm.une_image_a_obtenir.SetPixel(i,j,rgb(
              un_pixel_rouge div li_nombre_de_pixels,
              un_pixel_vert div li_nombre_de_pixels,
              un_pixel_bleu div li_nombre_de_pixels));
            end;
          end;
        end;