#!/usr/bin/perl

open REP,">fastnoise.tex";

print REP "\\section{Fast Noise}\n";


for $file (`ls fastnoise/*.png`) {

    chop $file;

    if ($file =~ /fastnoise\/(\d\d\d\d)(\d\d)(\d\d)-(\d\d)(\d\d)\.png/) {
	$date = sprintf("%d.%d.%d %d:%02d",$3,$2,$1,$4,$5);
    }

    print REP "\\subsection{$date}\n";
    print REP "\\begin{center}\n";
    print REP "\\includegraphics[width=0.8\\textwidth]{$file}\n";
    print REP "\\end{center}\n";


}

close REP;
