Lesson 3/11 and moved eigenfaces folder from 29/9 lesson folder

11-3/readyjalefaces_to_tensor.jl

@@ -0,0 +1,39 @@
+using Images, GIFImages
+
+function readyalefaces_to_tensor(str::String="all")::Tuple{Array, Array{String}}
+    # output (F, descr)
+
+    nindividuals = 15
+
+    if str == "easy"
+        extensions = ["happy", "normal", "sad", "sleepy", "surprised", "wink"]
+    elseif str == "easy-nowink"
+        extensions = ["happy", "normal", "sad", "sleepy", "surprised"]
+    elseif str == "nowink"
+        extensions = ["centerlight", "glasses", "happy", "leftlight", "noglasses", "normal", "rightlight", "sad", "sleepy", "surprised"]
+    elseif str == "hard" || str == "all"
+        extensions = ["centerlight", "glasses", "happy", "leftlight", "noglasses", "normal", "rightlight", "sad", "sleepy", "surprised", "wink"]
+    else
+        throw(ArgumentError("unknown selector"))
+    end
+
+    F = Array{Float32}(undef, (243, 320, length(extensions), nindividuals))
+    
+    for i ∈ 1:nindividuals
+        basename = "yalefaces/subject"
+        if i < 10
+            basename *= "0" * string(i)
+        else
+            basename *= string(i)
+        end
+    
+        for j = 1:length(extensions)
+            fullname = basename * "." * extensions[j] * ".gif"
+            X = Gray.(gif_decode(fullname))
+            F[:, :, j, i] = X[:,:,1] # just the first frame of the gif (should have only one in total)
+        end
+    end
+    descr = extensions
+
+    (F, descr)
+end

11-3/showyalefaces.jl

@@ -0,0 +1,27 @@
+include("readyjalefaces_to_tensor.jl")
+using Plots, Plots.PlotMeasures, ColorSchemes
+
+(X, _) = readyalefaces_to_tensor()
+# X = X[:,:,1:4,[12,9,6,1]]; # filters out only some faces
+(w, h, expr, ind) = size(X)
+
+function showyalefaces()::Plots.Plot
+    plts = Array{Plots.Plot}(undef, expr, ind)
+
+    for i ∈ 1:expr
+        for j ∈ 1:ind
+            plts[i, j] = heatmap(X[:, :, i, j],
+                leg = false,
+                ticks = nothing,
+                yflip=true,
+                c = cgrad(:dense, rev = true)
+            )
+        end
+    end
+
+    l = @layout [
+        grid(ind, expr)
+    ]
+
+    plot(plts..., layout = l, margin = -2mm)
+end