islands = [];

for( northings=-50:5:50 )
  for( eastings=-50:5:50)
    for( z = 0:-5:-100 )
      islands( end+1,: ) = [eastings     northings+300 z];
    end
  end
end

for( northings=-50:5:50 )
  for( eastings=-50:5:50)
    for( z = 0:-5:-100 )
      islands( end+1,: ) = [eastings+600 northings z];
    end
  end
end

for( northings=-50:5:50 )
  for( eastings=-50:5:50)
    for( z = 0:-5:-100 )
      islands( end+1,: ) = [eastings-600 northings z];
    end
  end
end

csvwrite('islands.csv',islands);
