# Gaussian Models for Texture Synthesis¶


This numerical tour explores texture synthesis using Gaussian random fields. Image synthesis is obtained by drawing an image at random from a random distribution that is learned from an input texture exemplar.

We use here the spot noise model developped in

B. Galerne, Y. Gousseau and J.-M. Morel, Random Phase Textures: Theory and Synthesis, IEEE Transactions on Image Processing, 20(1), pp. 257-267, 2011.

We derive this model as being a Maximamu Likelihood Estimate (MLE) of a stationary Gaussian vector parameters from a single input texture. Although this is not the original derivation of the model, it is stricly equivalent to the method of Galerne et al.

In [2]:
options(warn=-1) # turns off warnings, to turn on: "options(warn=0)"

library(imager)
library(png)

for (f in list.files(path="nt_toolbox/toolbox_general/", pattern="*.R")) {
source(paste("nt_toolbox/toolbox_general/", f, sep=""))
}

for (f in list.files(path="nt_toolbox/toolbox_signal/", pattern="*.R")) {
source(paste("nt_toolbox/toolbox_signal/", f, sep=""))
}

source("nt_toolbox/toolbox_wavelet_meshes/meshgrid.R")
options(repr.plot.width=3.5, repr.plot.height=3.5)

## Gaussian Modeling of Textures¶

We consider the modeling of textures $f \in \RR^N$ of $N$ pixels using a Gaussian random vector $X \sim \Nn(\mu,\Si)$. Here $\mu \in \RR^N$ is the mean of the distribution and $\Si \in \RR^{N \times N}$ is a symmetric semi-definite positive covariance matrix.

We recall that formally a random vector is a mapping $X : \Om \rightarrow \RR^N$ where $\Om$ is a probalized space.

Texture analysis corresponds to learning both $\mu$ and $\Si$ from a single exemplar texture $f_0 \in \RR^N$. For this learning to be feasible, since the number of free parameters is enormous, additional assumptions on the distribution are required. We suppose here that the texture model is stationary, i.e. all translates $X(\cdot+\tau)$ have the same distribition for all $\tau \in \ZZ^2$ (we assume here periodic boundary conditions for simplicity).

Texture synthesis corresponds to computing a realization $f = X(\xi) \in \RR^N$ where $\xi \in \Om$, from the random vector $X$. Since $X$ is Gaussian distributed, this can be achieved by computing $f = U w+\mu$ where $U \in \RR^{N \times N}$ is any matrix that factorize the covariance as $\Si = UU^*$ and $w$ is a realisation of a random vector of distribution $\Nn(0,\text{Id}_N)$, which is a Gaussian white noise. In the following, this computation is caried over very easily because the factorization of the covariance is explicitely given during the estimation step.

Load a color textured image $f$.

In [2]:
n <- 512

Display it.

In [3]:
imageplot(f)

## Periodic + Smooth Image Decomposition¶

To avoid boundary artifact, we replace the original image $f$ by its periodic component $p$, which is computed as detailed in:

L. Moisan, Periodic plus Smooth Image Decomposition, Journal of Mathematical Imaging and Vision, vol 39:2, pp. 161-179, 2011.

The periodic component $p$ is the solution of the folowing linear system

$$\choice{ \Delta p = \Delta_i f \\ \sum_k p(k) = \sum_k f(k) }$$

where $\Delta$ is a finite difference Laplacian with periodic boundary conditions, and $\Delta_i$ is the same Laplacian but with reflecting boundary conditions.

We first extend the original input image by symmetry to obtain $f_e \in \RR^{(n+2) \times (n+2)}$. Note that the extension of a color image is obtained by extending each channel.

In [4]:
z <- array(0, c(1,1,1,dim(f)[4]))

fe_high <- array(0, c(1,n+2,1,dim(f)[4]))
fe_high[1,2:(n+1),1,] <- f[1,,,]

fe_middle <- array(0, c(n,n+2,1,dim(f)[4]))
fe_middle[,1,,] <- f[,1,,]
fe_middle[,2:(n+1),,] <- f
fe_middle[,n+2,,] <- f[,n,,]

fe_low <- array(0, c(1,n+2,1,dim(f)[4]))
fe_low[1,2:(n+1),1,] <- f[n,,,]

fe <- array(0, c(n+2,n+2,1,dim(f)[4]))
fe[1,,,] <- fe_high
fe[2:(n+1),,,] <- fe_middle
fe[n+2,,,] <- fe_low

Compute the inner-Laplacian $d = \Delta_i f$ as the usual Laplacian of the extended image $\Delta f_e$.

In [5]:
circshift <- function(x,v){
x <- roll(x, v[1], axis=1)
x <- roll(x, v[2], axis=2)
return(x)
}

laplacian <- function(x){
return( 4*x - (circshift(x, c(0,1)) + circshift(x, c(1,0)) + circshift(x, c(-1,0)) + circshift(x, c(0,-1))) )
}

d <- laplacian(fe)
d <- d[2:(n+1),2:(n+1),,,drop=F]

We solve the linear system $\Delta p = d$ (assuming now periodic boundary conditions for the Laplacian) using the Fourier transform $$\forall \om \neq 0, \quad \hat p(\om) = \frac{\hat d(\om)}{ \hat U(\om) } \qwhereq \hat U(\om) = 4 - 2\cos\pa{\frac{2 \om_1 \pi}{n}} - 2\cos\pa{\frac{2 \om_2 \pi}{n}},$$ together with the conservation of the mean constraint $$\hat p(0) = \sum_k f(k).$$

Here, the discrete Fourier transform of an image $f \in \RR^{n \times n}$ is defined as $$\forall (\om_1,\om_2) \in \{0,\ldots,n\}^2, \quad \hat p(\om) = \sum_{k_1=0}^{n-1} \sum_{k_2=0}^{n-1} p(k) e^{\frac{2 i \pi}{n} (k_1 \om_1 + k_2 \om_2) }$$ Note that for a color image, this coefficient is a vector in $\RR^3$ obtained by transforming each channel. The Fourier transform is computed in $O(N\log(N))$ operations with the FFT algorithm (for 2-D image, use the fft2 command).

Compute the Laplacian transform map $\hat U(\om)$.

In [6]:
grid <- meshgrid_2d(0:(n-1),0:(n-1))
X <- grid$X ; Y <- grid$Y
U <- 4 - 2*cos(2*X*pi/n) - 2*cos(2*Y*pi/n)

Inverse the Laplacian.

In [7]:
U_extended <- array(0, c(n,n,1,dim(f)[4]))
for (i in 1:dim(f)[4]){
U_extended[,,,i] <- U
}

FFT <- apply(d, c(3,4), fft)
P <- array(0, dim(f))
for (i in 1:n){ for (j in 1:n){ P[i,j,,] <- FFT[(i-1)*n + j,,] } }
P <- P / U_extended

P[1,1,1,] <- apply(f, 4, sum)

IFFT <- apply(P, c(3,4), fft, inverse=TRUE) / (n*n)
p <- array(0, dim(f))
for (i in 1:n){ for (j in 1:n){ p[i,j,,] <- Re(IFFT[(i-1)*n + j,,]) } }

Compare the periodic tilings of $f_0$ and $f$.

In [8]:
mydisp <- function(x){
x_4 <- array(0, c(2*dim(x)[1], 2*dim(x)[2], dim(x)[3:length(dim(x))]))
x_4[1:dim(x)[1],1:dim(x)[2],,] <- x
x_4[(dim(x)[1]+1):dim(x_4)[1],1:dim(x)[2],,] <- x
x_4[1:dim(x)[1],(dim(x)[2]+1):dim(x_4)[2],,] <- x
x_4[(dim(x)[1]+1):dim(x_4)[1],(dim(x)[2]+1):dim(x_4)[2],,] <- x
return(x_4)
}

options(repr.plot.width=7, repr.plot.height=3.5)

imageplot(as.cimg(mydisp(f)), 'Original, periodized', c(1,2,1))
imageplot(as.cimg(mydisp(p)), 'Periodic layer, periodized', c(1,2,2))

Exercise 1

Compare the log of the modulus of the Fourier transforms of the input image $f$ and its periodic component $p$. What do you observe ?

In [9]:
options(repr.plot.width=7, repr.plot.height=3.5)

source("nt_solutions/graphics_1_synthesis_gaussian/exo1.R")
In [10]:

## Spot Noise Texture Synthesis¶

In the spot noise Gaussian texture model, the covariance $\Si$ is learned as the empirical covariance of the texture input $f_0$.

Assign $f_0$ to the be the intensity of the periodic component of the input exemplar.

In [11]:
f0 <- apply(p, c(2,1), mean)

Display it.

In [12]:
u <- f0
u[1,1] <- 0
u[2,1] <- 1

options(repr.plot.width=3.5, repr.plot.height=3.5)
imageplot(clamp(u))

Exploiting the stationarity of the model, the empirical covariance is computed as $$\forall i,j, \quad \Si_{i,j} = \frac{1}{N} \sum_k f_0(i+k) f_0(j+k),$$ Using such an empirical covariance can be understood as using a maximum likelihood estimator (MLE) of the covariance.

This defines a cyclic covariance matrix. It means that $\Si$ is a convolution operator $$\forall h \in \RR^N, \quad \Si h = s \star h$$ where $\star$ denotes the periodic convolution $$\forall a, b \in \RR^N, \quad a \star b(k) = \sum_{\ell} a(\ell) b(k-\ell)$$ (remember that the indexes $k,\ell$ are actually 2-D indexes) where the filter $s \in \RR^N$ is the auto-correlation of the input exemplar $$s = \frac{1}{N} f_0 \star \tilde f_0 \qwhereq \tilde a(k)=a(-k).$$

Since the model is stationary, the mean $\mu \in \RR^N$ is a constant image $$\mu = \frac{1}{N} \sum_k f_0(k).$$

This model can be expressed using the Fourier transform, using the power spectrum which is the Fourier transform of the covariance filter $$\hat s(\om) = \frac{1}{N} \abs{\hat f_0(\om)}^2~.$$

Since the covariance $\Si$ is defined in a factored form $s = f_0 \star \tilde f_0$, sampling a realization from this Gaussian distribution is straightforward, since it only requires computing $$f = f_0 \star w$$ where $w$ is a realization of a Gaussian white noise of distribution $\Nn(N^{-1},N^{-1/2}\text{Id}_N)$.

Generate a realization $w$ of this white noise.

In [13]:
w <- array(rnorm(n*n), c(n,n)) / n
w <- w - mean(w) + 1/n**2

Compute the convolution $f_0 \star w$, which defines the synthesized result.

In [14]:
f <- Re( fft(fft(f0)*fft(w), inverse=TRUE)/length(f0) )

Display the result.

In [15]:
options(repr.plot.width=7, repr.plot.height=3.5)

u <- f0
u[1,1] <- 0
u[2,1] <- 1
imageplot(clamp(u), 'Input', c(1,2,1))

u <- f
u[1,1] <- 0
u[2,1] <- 1
imageplot(clamp(u), 'Synthesized', c(1,2,2))

Exercise 2

Compare the histograms of the input and synthesized textures pixel empirical distributions.

In [16]:
options(repr.plot.width=7, repr.plot.height=6)

source("nt_solutions/graphics_1_synthesis_gaussian/exo2.R")
In [17]:

## Color Spot Noise Texture Synthesis¶

Synthesis of color textures is obtained by extending the previous Gaussian model to vector valued images.

Assign $f_0$ to the be the periodic component of the color input exemplar.

In [18]:
f0 <- p

A color image is a vector valued image $f_0 \in \RR^{N \times d}$, where here $d=3$.

A Gaussian field $\Nn(\mu,\Si)$ to model color textures makes use of a covariance $\Si \in \RR^{ (Nd) \times (Nd) }$. Equivalently, it can be thought as a collection $(\Si_{i,j})_{i,j=0}^{N-1}$ of small covariances matrices $\Si_{i,j} \in \RR^{d \times d}$ that encode the cross-correlations between the $d$ channels of pixels $i$ and $j$.

The maximum likelihood estimation (MLE) of $\Si$ from a single exemplar $f_0 \in \RR^{N \times d}$ is $$\Si_{i,j} = \frac{1}{N} \sum_k f(i+k) f(j+k)^* \in \RR^{d \times d}$$ where $f(j+k)^*$ denotes the transposed-conjugated vector. Note that each entry of the matrix field $(\Si_{i,j})_{i,j}$ is a convolution mapping.

Since the model is assumed to be stationary, this covariance operates in a block-diagonal way over the Fourier transform, which means that for any vector-valued image $f \in \RR^{N \times d}$ $$y = \Si f \quad\text{ is computed as }\quad \hat y(\om) = \hat \Si(\om) \hat f(\om)$$ where $\hat f(\om) \in \CC^d$ is the 2-D Fourier transform of each channel, and $\hat \Si(\om) \in \RR^{d \times d}$ encodes the cross-correlation of the different channels at some frequency $\om$.

In the special case where $\Si$ is defined as the MLE from an input exemplar $f_0$, each of these matrices is actually a rank-1 matrix $$\hat \Si(\om) = \hat f_0(\om)\hat f_0(\om)^*.$$

This property is crucial, because it defines the covariance in a factored form. Using the fact that $\hat f_0(\om) \in \CC^d$ is the leading eigenvector of $\hat \Si(\om)$ and that there is only a single non zero eigenvalue, this allows one to draw a realization $f \in \RR^{N \times d}$ from a random vector distributed according to $\Nn(\mu,\Si)$ as $$\hat f(\om) = \hat w(\om) \hat f_0(\om),$$ where $\hat w(\om) \in \CC$, $\hat f_0(\om) \in \CC^d$, with $w \in \RR^N$ being a realization of a Gaussian white noise $\Nn(N^{-1},N^{-1/2}\text{Id}_N)$.

Equivalently, if one denotes $f_0 = (f_0^{[j]})_{j=0}^{d-1}$ the different channels $f_0^{[j]} \in \RR^N$, this corresponds to convolving each channel with the same white noise realization $$\forall j=0,\ldots,d-1, \quad f^{[j]} = f_0^{[j]} \star w.$$

Exercise 3

Perform the color texture synthesis.

In [19]:
options(repr.plot.width=7, repr.plot.height=3.5)

source("nt_solutions/graphics_1_synthesis_gaussian/exo3.R")
In [20]: