#!/usr/local/bin/perl -w

use strict;

sub Main ();
sub Plot ($);

Main;

sub Main () {
  for my $n (1..27) {
    Plot $n;
    }
  }

sub Plot ($) {
  my $n = shift;
  my $x = 3*2**$n;
  my $y = 2*2**$n;
  my $n1 = sprintf("%02d", $n);
  my $x1 = $x+1;
  my $y1 = $x*2;
  my $y2 = $y*2/3;
  my $s = "bin/hofstadter $x1 $y1 | translate -$x -$y2 | scale 200/$x 200/$y | gifplot -o /www/jjchew/private/hof/$n1.gif";
  print $s, "\n";
  system $s;
  }