#!/usr/bin/ruby

i = ARGV
z = [i[0] && i[0].to_i - 3 || 18, 14].max
Z = [i[1] && i[1].to_i - 2 || 64, 32].max / 16
z = (z - (z + 2) % 4) / 2
if i[2]
   srand i[2].to_i
end

$p = {}
$o = []
$q = {}

def s(d, b)
   p = [d, b]
   while $p[p] && $p[p] != p
      p = $p[p]
   end
   return p
end

def y(d, i, b, q)
   p = s(d, i)
   q = s(b, q)
   if p != q
      $p[p] = $p[q] = [p, q].min

      if d == b
         4.times{|l| $o[d + l][i + 8, 2] = "'  ."[l] * 2}
      else
         o = [d, b].max
         if $q[p] && $q[q]
            2.times{|l| $o[o + l][i + 2, 6] = " " * 6}
         else
            $o[o][i + 4, 2] = " , "[(i % 16 / 8) ^ (o % 4 / 2), 2]
            $o[o + 1][i + 4, 2] = "  "
         end
      end
   end
end


I =
[
   "; .;;;. ",
   ";;' ; ';",
   ";;. ; .;",
   "; ';;;' ",
   "';. ; .;",
   "  ';;;' ",
   "    '   "
].map{|l| l.split(//).map{|i| i * 2}.join}
(z * 2).times{|l| $o += [I[l % 4] * Z]}

$o[0] = $o[0].gsub(/;; /, "   ")
$o[1] = $o[1].gsub(/;;;;''/, "..;;''")

3.times{|l| $o += [I[l + 4] * Z]}

$o.size.times{|l| $o[l] += " .' "[l % 4] * 2}

z.times{|l|
   (Z * 2).times{|i|
      p = [l * 2, i * 8]
      $p[p] = p
   }
}

O = (Z * 2) * z + 1
O.times{
   if $q.size < O * 0.4
      i = rand(z - 5) * 2
      j = rand(Z - 2) * 16 + (i % 4 < 2 ? 16 : 8)

      g = 0
      f = rand(2) > 0 ? 2 : -2
      while (g < 1 || rand(5) > 0) &&
            (p = j + 8 * g) < Z * 16 - 24 &&
            (q = i + f * g) < z * 2 - 7 &&
            q > 1 &&
            (0..2).all?{|l| !$q[[q + l * 2, p]] &&
                            !$q[[q + l * 2, p + 8]]}
         g += 1
      end
      if g > 0
         g.times{|l|
            3.times{|u|
               [0, 8].each{|v|
                  $q[[i + l * f + u * 2, j + l * 8 + v]] = 1
               }
            }
         }

         h = rand(2) * 2 - 1
         e = h * f < 0
         u = v = w = x = nil
         g.times{|l|
            y(d = i + l * f + (h > 0 ? 0 : 4),
              b = j + l * 8,
              p = d,
              q = b + 8)
            y(m = d + (e ? -2 * f : f),
              n = b + (e ? 8 : 0),
              r = m + f,
              s = n)

            if u
               y(u, v, d, b)
               y(w, x, m, n)
            end
            u = p
            v = q
            w = r
            x = s
         }
         y(u = e ? i + 2 : w,
           v = e ? j : x + 8,
           u - f,
           v)
      end
   end
}

w = []
z.times{|l|
   Z.times{|i|
      y(q = l * 2,
        p = i * 16 - l % 2 * 8,
        q,
        p + (!$q[[q, p]] && !$q[[q, p + 8]] ? 8 : 0))
   }
   (1..Z * 2 - 2).each{|i|
      w += l > 0 ? [[q = l * 2, p = i * 8, q - 2, p]] : []
   }
}
w = w.shuffle

2.times{|l|
   w.each{|p, d, q, b|
      if (l < 1 ||
          s(0, 0) != s(z * 2 - 2, Z * 16 - 8)) &&
         !$q[[p, d]] &&
         !$q[[q, b]]
         y(p, d, q, b)
      end
   }
   $q = {}
}

y(-2, 0, 0, 0)
y(p = z * 2,
  q = Z * 16 - 8,
  p - 2,
  q)

$o.each{|l| puts l}