require 'RMagick'
include Magick

rowsize=135
colsize=135

img = ImageList.new("foo.png")

raise "Row size #{rowsize} is not a multiple of image height #{img.rows}" unless img.rows%rowsize==0
raise "Column size #{rowsize} is not a multiple of image width #{img.columns}" unless img.rows%colsize==0

rows=img.rows/rowsize
cols=img.columns/colsize

puts <<EOS
<?xml version="1.0"?>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"
     version="1.2"  baseProfile="tiny">
EOS

cols.times do |colindex|
  rows.times do |rowindex|
    subimg=img.crop(rowindex*rowsize,colindex*colsize,colsize,rowsize)
    print "<image x=\"#{rowindex*rowsize}\" y=\"#{colindex*colsize}\" width=\"#{colsize}\" height=\"#{rowsize}\" type=\"image/png\" xlink:href=\"#{colindex}-#{rowindex}.png\" />"
    subimg.write("#{colindex}-#{rowindex}.png")
  end
  puts
end


puts "</svg>"