Made with the following Perl code:

use strict;use warnings;use GD;package Automaton {    sub new {        my $class = shift;        my $rule = [ reverse split //, sprintf "%08b", shift ];        return bless { rule => $rule, cells => [ @_ ] }, $class;    }    sub next {        my $this = shift;        my @previous = @{$this->{cells}};        $this->{cells} = [            @{$this->{rule}}[                map {                    4 * $previous[($_ - 1) % @previous]                    + 2 * $previous[$_]                    + $previous[($_ + 1) % @previous]                } 0 .. @previous - 1            ]        ];        return $this;    }    use overload        q{""} => sub {            my $this = shift;            join '', map { $_ ? '#' : ' ' } @{$this->{cells}}        };    sub to_image {        my ($this, $width, $height) = @_;        my $image = GD::Image->new($width, $height);        my $black = $image->colorAllocate(0, 0, 0);        my $white = $image->colorAllocate(255, 255, 255);        my $x = 0;        my $y = 0;        foreach my $cell (@{$this->{cells}}) {            if ($cell) {                $image->setPixel($x, $y, $black);            } else {                $image->setPixel($x, $y, $white);            }            $x++;            if ($x >= $width) {                $x = 0;                $y++;                last if $y >= $height;            }        }        return $image;    }}my ($width, $height) = (10**4, 10**4);my @a = map 0, 1 .. $width;$a[$width - 1] = 1;my $a = Automaton->new(110, @a);# Save to fileopen(my $out, '>', 'output.png') or die "Cannot open file: $!";binmode $out;print $out "P1\n$width $height\n";for (1 .. $height) {    print $out join(' ', @{$a->{cells}}) . "\n";    $a->next;}close $out;