Skip to content

Instantly share code, notes, and snippets.

@pborreli
Last active December 5, 2019 17:59
Show Gist options
  • Star 5 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save pborreli/5449721 to your computer and use it in GitHub Desktop.
Save pborreli/5449721 to your computer and use it in GitHub Desktop.
All you need to generate timelapse video of a github project development activity like : http://www.youtube.com/watch?v=nY1j3O4nWDI&hd=1
brew install gource
brew install ffmpeg
#!/usr/bin/perl
#fetch Gravatars
use strict;
use warnings;
use LWP::Simple;
use Digest::MD5 qw(md5_hex);
my $size = 90;
my $output_dir = '.git/avatar';
die("no .git/ directory found in current path\n") unless -d '.git';
mkdir($output_dir) unless -d $output_dir;
open(GITLOG, q/git log --pretty=format:"%ae|%an" |/) or die("failed to read git-log: $!\n");
my %processed_authors;
while(<GITLOG>) {
chomp;
my($email, $author) = split(/\|/, $_);
next if $processed_authors{$author}++;
my $author_image_file = $output_dir . '/' . $author . '.png';
#skip images we have
next if -e $author_image_file;
#try and fetch image
my $grav_url = "http://www.gravatar.com/avatar/".md5_hex(lc $email)."?d=404&size=".$size;
warn "fetching image for '$author' $email ($grav_url)...\n";
my $rc = getstore($grav_url, $author_image_file);
sleep(1);
if($rc != 200) {
unlink($author_image_file);
next;
}
}
close GITLOG;
cd symfony
../gource_avatar.pl .
git log --pretty=format:user:%aN%n%ct --reverse --raw --encoding=UTF-8 --no-renames --no-merges --after=2013-03-31 > avril.log
gource --disable-bloom --logo logo.png --font-colour FFFFFF --disable-progress --hide filenames --user-image-dir .git/avatar/ --auto-skip-seconds 1 --background 000000 -1280x720 --stop-at-end -o gource.ppm avril.log
ffmpeg -y -r 60 -f image2pipe -vcodec ppm -i gource.ppm -vcodec libx264 -preset ultrafast -pix_fmt yuv420p -crf 1 -threads 0 -bf 0 gource.mp4
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment