Add files via upload

amplify_blood_circulation_changes.m

@@ -0,0 +1,65 @@
+clear ;
+close all;
+clc;
+
+% Step 
+% This code applies spatial Gdown temporal function in order to amplify the
+% color changes that blood circulation create on the face, so to make it
+% visible.
+
+% Define video paths
+%video_path = '..\Forehead_Att\Forehead\';
+%video_path = '..\Left_Cheek_Att\Left_Cheek\';
+video_path = '..\Right_Cheek_Att\Right_Cheek\';
+
+%day_subfolders = ['Day1\'; 'Day2\'; 'Day3\'];
+day_subfolders = ['Right_out\'];
+
+day_len = size(day_subfolders, 1);
+person_subfolders = ['01\';'02\';'03\';'04\';'05\';'06\';'07\';'08\';'09\';'10\';'11\';'12\';'13\'];
+
+person_len = size(person_subfolders, 1);
+
+% Define out video path
+%out_video_path = '..\Forehead_Amp\Forehead\';
+%out_video_path = '..\Left_Cheek_Amp\Left_Cheek\';
+out_video_path = '..\Right_Cheek_Amp\Right_Cheek\';
+
+alpha = 120;
+level = 4;
+chromAttenuation = 1;
+fl = 0.4;
+fh = 4.0;
+
+% For every day 
+for i=1:day_len
+
+    % For every person
+    for j=1:person_len
+
+        % Define video path
+        vpath = [video_path day_subfolders(i, :) person_subfolders(j, :)];
+        files = dir(vpath);
+
+        % For every video in vpath
+        for k=3:length(files)
+
+            % Load video
+            vfilename = [vpath files(k).name];
+            v = VideoReader(vfilename);
+            samplingRate = v.FrameRate;
+
+            % Construct video writer
+            [fpath, name, ext] = fileparts(files(k).name);
+            out_vfilename = [out_video_path day_subfolders(i, :) person_subfolders(j, :)];
+
+            tic
+
+            amplify_spatial_Gdown_temporal_ideal_Only_Amplification(vfilename,out_vfilename,alpha,level, ...
+                     fl,fh,samplingRate, chromAttenuation);
+
+            toc
+
+        end
+    end
+end