TP-traitement-audio-visuel/TP2/sequence_flammes.m

43 lines
1.6 KiB
Mathematica
Raw Normal View History

2023-06-22 18:47:16 +00:00
clear;
close all;
load exercice_4;
load texture;
figure('Name','Simulation d''une flamme de bougie','Position',[0.4*L,0.05*H,0.6*L,0.7*H]);
% Estimation des lois normales :
[moyennes,ecarts_types] = estimation_lois_n(X);
% Simulation de flammes :
I_max = 255;
[nb_lignes_texture,nb_colonnes_texture] = size(texture);
largeur = 1000; % Largeur de l'image
echelle_en_largeur = 0.5*largeur/(limites(4)-limites(3));
hauteur = 1000; % Hauteur de l'image
h = round(0.85*hauteur); % Hauteur de la flamme
y = 0:1/(h-1):1; % Ordonnées normalisées entre 0 et 1
x_centre = (beta_0+gamma_0)/2; % Abscisse du centre de la flamme
N = 40; % Longueur de la séquence
for r = 1:N
I = zeros(hauteur,largeur);
[x_gauche,x_droite] = simulation(y,beta_0,gamma_0,moyennes,ecarts_types,d);
if length(find(x_gauche>x_droite))==0
for j = 1:h
num_ligne_texture = round((nb_lignes_texture*(h-j)+j-1)/(h-1));
num_colonne_image_min = floor(largeur/2+echelle_en_largeur*(x_gauche(j)-x_centre));
num_colonne_image_max = ceil(largeur/2+echelle_en_largeur*(x_droite(j)-x_centre));
largeur_flamme = num_colonne_image_max-num_colonne_image_min;
for num_colonne_image = max(num_colonne_image_min,1):min(num_colonne_image_max,largeur)
colonne_texture = round((num_colonne_image-num_colonne_image_min)*(nb_colonnes_texture-1)/largeur_flamme+1);
I(j,num_colonne_image) = round(texture(num_ligne_texture,colonne_texture)*I_max);
end
end
imagesc(I);
axis xy;
axis off;
colormap(hot); % Table de couleurs donnant des couleurs chaudes (doc colormap)
pause(0.1);
end
end