#!BPY

""" Registration info for Blender menus: <- these words are ignored
Name: 'KMZ/KML import''
Blender: 241
Group: 'Import'
Tip: 'Import geometry of short google earth 3D models'
"""

__author__ = "Jean-Michel Soler (jms)"
__url__ = ("Script's homepage, http://jmsoler.free.fr/didacticiel/blender/tutor/py_import_kml-kmz.htm",
"Communicate problems and errors, http://www.zoo-logique.org/3D.Blender/newsportal/thread.php?group=3D.Blender")
__version__ = "0.1.0, 15 Mail 2006"

__bpydoc__ = """\
       To open .kmz file this script needs zipfile.py from the complete python 
"""
# --------------------------------------------------------------------------
# ***** BEGIN GPL LICENSE BLOCK *****
#
# Copyright (C) 2006: jm soler, jmsoler_at_free.fr
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# --------------------------------------------------------------------------

import Blender
from Blender  import Window
import sys
from Blender import Mathutils
BLversion=Blender.Get('version')
SHIFT=Blender.Window.Qual.LSHIFT

try:
    import nt
    os=nt
    os.sep='\\'

except: 
    import posix
    os=posix
    os.sep='/'

def isdir(path):
    try:
        st = os.stat(path)
        return 1 
    except:
        return 0

def split(pathname):
         if pathname.find(os.sep)!=-1:
             k0=pathname.split(os.sep)
         else:
            if os.sep=='/':
                k0=pathname.split('\\')
            else:
                k0=pathname.split('/') 

         directory=pathname.replace(k0[len(k0)-1],'')
         Name=k0[len(k0)-1]
         return directory, Name

def join(l0,l1): 
     return  l0+os.sep+l1

os.isdir=isdir
os.split=split
os.join=join

def fonctionSELECT(nom):
    scan_FILE(nom)

def filtreFICHIER(nom):
     """
     Function  filtreFICHIER
     in  : string  nom , filename
     out : string  t   , if correct filecontaint 
     """
     if nom.upper().find('.KMZ')!=-1:
             #from zipfile import ZipFile, ZIP_DEFLATED
             tz=ZipFile(nom,'r',ZIP_DEFLATED)
             t = tz.read(tz.namelist()[0])
             tz.close()
             return t
     elif nom.upper().find('.KML')!=-1:
             tz=open(nom,'r')
             t = tz.read()
             tz.close()
             return t
     else : 
        return None

OB = Blender.Object.New('Mesh')  # link mesh to an object
SC = Blender.Scene.GetCurrent()          # link object to current scene
SC.link(OB)
ME=OB.getData(mesh=1)
OB.select(1)	

UPDATE_V=[]
UPDATE_F=[]
POS=0
DOCUMENTORIGINE=[]

eps=0.0000001
npoly=0
gt1=Blender.sys.time()



def cree_POLYGON(ME,TESSEL):
   global  OB, npoly, UPDATE_V, UPDATE_F, POS
   npoly+=1 
   del TESSEL[-1]
   if npoly %10 == 1 : print 'Pgon: ', npoly, 'vert:',len(TESSEL)
   if npoly %250 == 1 : 
      Blender.Window.RedrawAll()
      print Blender.sys.time()-gt1

   if len(TESSEL) in [3,4] :
       if UPDATE_F==[]:
          POS=len(ME.verts)

       for VE in TESSEL:
           UPDATE_V.append(VE)
       if len(TESSEL)==3:
          UPDATE_F.append([POS,POS+1,POS+2])
          POS+=3
       else :
          UPDATE_F.append([POS,POS+1,POS+2,POS+3])
          POS+=4
   else :
      ME.verts.extend(UPDATE_V)
      FACES=[]
      for FE in UPDATE_F:
           if len(FE)==3:
              FACES.append([ME.verts[FE[0]],ME.verts[FE[1]],ME.verts[FE[2]]])               
           else :
              FACES.append([ME.verts[FE[0]],ME.verts[FE[1]],ME.verts[FE[2]],ME.verts[FE[3]]])
      if FACES!=[]:
              ME.faces.extend(FACES)
      UPDATE_F=[]
      UPDATE_V=[]
      EDGES=[]

      ME.verts.extend(TESSEL)
      for t in range(len(TESSEL),1,-1):
          ME.verts[-t].sel=1
          EDGES.append([ME.verts[-t],ME.verts[-t+1]])
      ME.verts[-1].sel=1
      EDGES.append([ME.verts[-1],ME.verts[-len(TESSEL)]])
      ME.edges.extend(EDGES)
      ME.fill()
      if npoly %500 == 1 :
        for v in ME.verts:
          v.sel=1
        ME.remDoubles(0.0)
        for v in ME.verts:
          v.sel=0
      else :
          for t in range(1,len(TESSEL)+1):
             ME.verts[-t].sel=0

   TESSEL=[]   
   return ME,TESSEL

def cree_FORME(v,TESSEL):
    if 1 :
       VE=[(v[0]-DOCUMENTORIGINE[0])* 85331.2,
           (v[1]-DOCUMENTORIGINE[1])* 110976.0,
           (v[2]-DOCUMENTORIGINE[2])  ]
       TESSEL.append(VE)
    return TESSEL 

def active_FORME():
    global ME, UPDATE_V, UPDATE_F, POS, OB
    ME.verts.extend(UPDATE_V)
    FACES=[]
    for FE in UPDATE_F:
           if len(FE)==3:
              FACES.append([ME.verts[FE[0]],ME.verts[FE[1]],ME.verts[FE[2]]])               
           else :
              FACES.append([ME.verts[FE[0]],ME.verts[FE[1]],ME.verts[FE[2]],ME.verts[FE[3]]])
           if len(ME.faces)%200==1 : print len(ME.faces)    
    if FACES!=[]:
              ME.faces.extend(FACES)

    for v in ME.verts:
       v.sel=1
    ME.remDoubles(0.0)

def wash_DATA(ndata):
   if ndata!='':
       ndata=ndata.replace('\n',',')
       ndata=ndata.replace('\r','') 
       while ndata[-1]=='  ': 
         ndata=ndata.replace('  ',' ')
       while ndata[0]==' ':  
         ndata=ndata[1:]
       while ndata[-1]==' ': 
         ndata=ndata[:-1]	
       if ndata[0]==',':ndata=ndata[1:]
       if ndata[-1]==',':ndata=ndata[:-1]
       #if ndata.find('-')!=-1 and ndata[ndata.find('-')-1] not in [' ', ',', 'e']:
       #   ndata=ndata.replace('-',',-')
       ndata=ndata.replace(',,',',')    
       ndata=ndata.replace(' ',',')
       ndata=ndata.split(',')
       for n in ndata :
          if n=='' : ndata.remove(n)	
   return  ndata 

def collecte_ATTRIBUTS(data):
    data=data.replace('  ',' ')
    ELEM={'TYPE':data[1:data.find(' ')]}
    t1=len(data)
    t2=0
    ct=data.count('="')
    while ct>0:
        t0=data.find('="',t2)
        t2=data.find(' ',t2)+1
        id=data[t2:t0]
        t2=data.find('"',t0+2)
        if id!='d':
           exec "ELEM[id]=\"\"\"%s\"\"\""%(data[t0+2:t2].replace('\\','/'))
        else:
              exec "ELEM[id]=[%s,%s]"%(t0+2,t2) 
        ct=data.count('="',t2)
    return ELEM

def contruit_HIERARCHIE(t):
    global DOCUMENTORIGINE, OB , ME
    vv=[]
    TESSEL=[]

    t=t.replace('\t',' ')
    while t.find('  ')!=-1:
          t=t.replace('  ',' ')
    n0=0 
    t0=t1=0
    baliste=[]
    balisetype=['?','?','/','/','!','!']
    BALISES=['D',  #DECL_TEXTE',
             'D',  #DECL_TEXTE',
             'F',  #FERMANTE',
             'E',  #ELEM_VIDE',
             'd',  #DOC',
             'R',  #REMARQUES',
             'C',  #CONTENU',
             'O'   #OUVRANTE'
             ]

    TAGS = ['kml','Document','description','DocumentSource',
        'DocumentOrigin','visibility','LookAt',
       'Folder','name','heading','tilt','latitude',
       'longitude','range','Style','LineStyle','color',
       'Placemark','styleUrl','GeometryCollection',
       'Polygon','LinearRing','outerBoundaryIs',
       'altitudeMode','coordinates','LineString',
        'fill','PolyStyle','outline','innerBoundaryIs',
        'IconStyle', 'Icon', 'x','y' ,'w','href','h'
        ]

    STACK=[]
    latitude = float(t[t.find('<latitude>')+len('<latitude>'):t.find('</latitude>')])
    longitude = float(t[t.find('<longitude>')+len('<longitude>'):t.find('</longitude>')])
    DOCUMENTORIGINE=[longitude,latitude,0 ]

    while t1<len(t) and t0>-1:
      t0=t.find('<',t0)
      t1=t.find('>',t0)
      ouvrante=0
      if t0>-1 and t1>-1:
          if t[t0+1] in balisetype:
             b=balisetype.index(t[t0+1])
             if t[t0+2]=='-': 
               b=balisetype.index(t[t0+1])+1
             balise=BALISES[b]
             if b==2 and t[t0:t1].find(STACK[-1])>-1:
                 parent=STACK.pop(-1)
          elif t[t1-1] in balisetype:
            balise=BALISES[balisetype.index(t[t1-1])+1]
          else:
            t2=t.find(' ',t0) 
            if t2>t1: t2=t1
            ouvrante=1
            NOM=t[t0+1:t2]
            if t.find('</'+NOM)>-1:
               balise=BALISES[-1]
            else:
               balise=BALISES[-2]
          if balise=='E' or balise=='O':
             if NOM not in TAGS and NOM!='a':
               TAGS.append(NOM)
             proprietes=collecte_ATTRIBUTS(t[t0:t1+ouvrante])
             if  balise=='O' and NOM in TAGS: 
                 STACK.append(NOM)
                 if NOM.find('coordinates')>-1:
                    VAL=t[t2+2:t.find('</coordinates',t2)]
                    if STACK[-2]=='DocumentOrigin' :
                       DOCUMENTORIGINE=[float(V) for V in  VAL.replace(' ','').replace('\n','').split(',')]
                    if STACK[-2]=='LinearRing'  :
                       VAL=wash_DATA(VAL) #VAL.split('\n')
                       #print VAL, len(VAL)
                       vv=[]
                       for a in range(0,len(VAL),3):
                          #print a, VAL[a], VAL[a+1], VAL[a+2]
                          #if v!='': 
                          vv.append([float(VAL[a]),float(VAL[a+1]), float(VAL[a+2])])##vv=[float(V) for V in  v.replace(' ','').replace('\n','').split(',') if V !='']
                       #print len(vv) 
                       if vv!=[] : 
                          for v in vv : 
                               TESSEL=cree_FORME(v,TESSEL)
                       del VAL
                       if len(TESSEL)>2 :
                          ME,TESSEL=cree_POLYGON(ME,TESSEL)
                       else :
                         TESSEL=[]
	  
             elif balise=='O' : 
                 STACK.append(None)
             proprietes['stack']=STACK[:]
             D=[] 
      else:
         break
      t1+=1
      t0=t1 

def scan_FILE(nom):
  dir,name=split(nom)
  name=name.split('.')
  result=0
  t=filtreFICHIER(nom)
  POLYGON_NUMBER=t.count('<Polygon>')
  print 'Number of Polygons :  ', POLYGON_NUMBER,'\n\n'
  [O.select(0) for O in Blender.Object.Get()]
  if t!='false':
     contruit_HIERARCHIE(t)
     active_FORME()
  print Blender.sys.time()-gt1
	
if __name__=='__main__':
   Blender.Window.FileSelector (fonctionSELECT, 'SELECT a .KMZ FILE')