#!/usr/bin/perl

open FHAND, ">simonmaze.data";

print FHAND <<STUFF;
digraph G {
node [style=filled,color="#C0C0C0"]
Start -> Ag;
STUFF

#  The layout is:
#
#  G   I   K
#    H J L
#  E F   N M
#    D B P
#  C   A   O
#

@red = ("AC","CE","EG","GI","IK","KL","LM","LN","LJ",
        "IJ","JH","HF","FJ","FB","FD","BD","BN","NP",
        "BP","PM","MO");
@green = ("AO","OP","PA","AB","AD","DC","DE","EF","EH",
          "HG","HI","IL","KM","MN","NJ");

foreach (@red) {
  ($first,$second) = split '';
  print FHAND "${first}g -> ${second}r; \n";
  print FHAND "${second}g -> ${first}r; \n";
}

foreach (@green) {
  ($first,$second) = split '';
  print FHAND "${first}r -> ${second}g; \n";
  print FHAND "${second}r -> ${first}g; \n";
}

print FHAND "Bg -> Goal; }\n";
close FHAND;

system "dot -Tgif simonmaze.data > simonmaze.gif";