#!/usr/bin/env python3

import os
import sys
from optparse import OptionParser

import numpy as np

import damask

scriptName = os.path.splitext(os.path.basename(__file__))[0]
scriptID   = ' '.join([scriptName,damask.version])

# --------------------------------------------------------------------
#                                MAIN
# --------------------------------------------------------------------

parser = OptionParser(option_class=damask.extendableOption, usage='%prog options [file[s]]', description = """
Create seeds file by poking at 45 degree through given geom file.
Mimics APS Beamline 34-ID-E DAXM poking.

""", version = scriptID)

parser.add_option('-N', '--points',
                  dest = 'N',
                  type = 'int', metavar = 'int',
                  help = 'number of poking locations [%default]')
parser.add_option('-b', '--box',
                  dest = 'box',
                  type = 'float', nargs = 6, metavar = ' '.join(['float']*6),
                  help = 'bounding box as fraction in x, y, and z directions')
parser.add_option('-x',
                  action = 'store_true',
                  dest   = 'x', 
                  help   = 'poke 45 deg along x')
parser.add_option('-y',
                  action = 'store_true',
                  dest   = 'y',
                  help   = 'poke 45 deg along y')

parser.set_defaults(x = False,
                    y = False,
                    box = [0.0,1.0,0.0,1.0,0.0,1.0],
                    N = 16,
                   )

(options,filenames) = parser.parse_args()
if filenames == []: filenames = [None]

options.box = np.array(options.box).reshape(3,2)

for name in filenames:
  damask.util.report(scriptName,name)
  geom = damask.Geom.from_file(StringIO(''.join(sys.stdin.read())) if name is None else name)
  
  table = damask.ASCIItable(name = name,
                            outname = os.path.splitext(name)[-2]+'_poked_{}.seeds'.format(options.N) if name else name,
                            buffered = False, labeled = False)

  table.head_read()
  info,extra_header = table.head_getGeom()
 
  grid = info['grid']
  size = info['size']

  offset =(np.amin(options.box, axis=1)*geom.grid/geom.size).astype(int)
  box    = np.amax(options.box, axis=1) \
         - np.amin(options.box, axis=1)

  Nx = int(options.N/np.sqrt(options.N*geom.size[1]*box[1]/geom.size[0]/box[0]))
  Ny = int(options.N/np.sqrt(options.N*geom.size[0]*box[0]/geom.size[1]/box[1]))
  Nz = int(box[2]*geom.grid[2])

  damask.util.croak('poking {} x {} x {} in box {} {} {}...'.format(Nx,Ny,Nz,*box))

  seeds = np.zeros((Nx*Ny*Nz,4),'d')
  g     = np.zeros(3,'i')

  n = 0
  for i in range(Nx):
    for j in range(Ny):
      g[0] = round((i+0.5)*box[0]*grid[0]/Nx-0.5)+offset[0]
      g[1] = round((j+0.5)*box[1]*grid[1]/Ny-0.5)+offset[1]
      for k in range(Nz):
        g[2] = k + offset[2]
        g %= grid
        seeds[n,0:3] = (g+0.5)/grid                                                     # normalize coordinates to box
        seeds[n,  3] = geom.microstructure[g[0],g[1],g[2]]
        if options.x: g[0] += 1
        if options.y: g[1] += 1
        n += 1
      

# ------------------------------------------ assemble header ---------------------------------------
  table.info_clear()
  table.info_append(geom.comments+[
    scriptID + ' ' + ' '.join(sys.argv[1:]),
    "poking\ta {}\tb {}\tc {}".format(Nx,Ny,Nz),
    "grid\ta {}\tb {}\tc {}".format(*geom.grid),
    "size\tx {}\ty {}\tz {}".format(*geom.size),
    "origin\tx {}\ty {}\tz {}".format(*geom.origin),
    "homogenization\t{}".format(info['homogenization']),
    ])
  table.labels_clear()
  table.labels_append(['{dim}_{label}'.format(dim = 1+i,label = 'pos') for i in range(3)]+['microstructure'])
  table.head_write()
  table.output_flush()
  
# --- write seeds information ------------------------------------------------------------

  table.data = seeds
  table.data_writeArray()
    
# --- output finalization --------------------------------------------------------------------------

  table.close()                                                                                     # close ASCII table