stepping

[carveJwlIkooP6JGAAIwe30JlM.git] / blender_export.py

import bpy, math, gpu, os
import cProfile
from ctypes import *
from mathutils import *
from gpu_extras.batch import batch_for_shader

bl_info = {
   "name":"Skaterift .mdl exporter",
   "author": "Harry Godden (hgn)",
   "version": (0,2),
   "blender":(3,1,0),
   "location":"Export",
   "description":"",
   "warning":"",
   "wiki_url":"",
   "category":"Import/Export",
}

class mdl_vert(Structure):              # 48 bytes. Quite large. Could compress
#{                                      # the normals and uvs to i16s. Not an
   _pack_ = 1                           # real issue, yet.
   _fields_ = [("co",c_float*3),
               ("norm",c_float*3),
               ("uv",c_float*2),
               ("colour",c_uint8*4),
               ("weights",c_uint16*4),
               ("groups",c_uint8*4)]
#}

class mdl_transform(Structure):
#{
   _fields_ = [("co",c_float*3),
               ( "s",c_float*3),
               ( "q",c_float*4)]
#}

class mdl_submesh(Structure):
#{
   _fields_ = [("indice_start",c_uint32),
               ("indice_count",c_uint32),
               ("vertex_start",c_uint32),
               ("vertex_count",c_uint32),
               ("bbx",(c_float*3)*2),
               ("material_id",c_uint32)]        # index into the material array
#}

class mdl_material(Structure):
#{
   _fields_ = [("pstr_name",c_uint32),
               ("shader",c_uint32),
               ("flags",c_uint32),
               ("surface_prop",c_uint32),
               ("colour",c_float*4),
               ("colour1",c_float*4),
               ("tex_diffuse",c_uint32),
               ("tex_none0",c_uint32),
               ("tex_none1",c_uint32)]
#}

class mdl_bone(Structure):
#{
   _fields_ = [("co",c_float*3),("end",c_float*3),
               ("parent",c_uint32),
               ("collider",c_uint32),
               ("ik_target",c_uint32),
               ("ik_pole",c_uint32),
               ("flags",c_uint32),
               ("pstr_name",c_uint32),
               ("hitbox",(c_float*3)*2),
               ("conevx",c_float*3),("conevy",c_float*3),("coneva",c_float*3),
               ("conet",c_float)]
#}

class mdl_armature(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("bone_start",c_uint32),
               ("bone_count",c_uint32),
               ("anim_start",c_uint32),
               ("anim_count",c_uint32)]
#}

class mdl_animation(Structure):
#{
   _fields_ = [("pstr_name",c_uint32),
               ("length",c_uint32),
               ("rate",c_float),
               ("keyframe_start",c_uint32)]
#}

class mdl_mesh(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("submesh_start",c_uint32),
               ("submesh_count",c_uint32),
               ("pstr_name",c_uint32),
               ("flags",c_uint32),
               ("armature_id",c_uint32)]
#}

class mdl_file(Structure):
#{
   _fields_ = [("path",c_uint32),
               ("pack_offset",c_uint32),
               ("pack_size",c_uint32)]
#}

class mdl_texture(Structure):
#{
   _fields_ = [("file",mdl_file),
               ("type",c_uint32)]
#}

class mdl_array(Structure):
#{
   _fields_ = [("file_offset",c_uint32),
               ("item_count",c_uint32),
               ("item_size",c_uint32),
               ("name",c_byte*16)]
#}

class mdl_header(Structure):
#{
   _fields_ = [("version",c_uint32),
               ("arrays",mdl_array)]
#}

class ent_spawn(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("pstr_name",c_uint32)]
#}

class ent_light(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("daytime",c_uint32),
               ("type",c_uint32),
               ("colour",c_float*4),
               ("angle",c_float),
               ("range",c_float),
               ("inverse_world",(c_float*3)*4),  # Runtime
               ("angle_sin_cos",(c_float*2))]    # Runtime
#}

class version_refcount_union(Union):
#{
   _fields_ = [("timing_version",c_uint32),
               ("ref_count",c_uint8)]
#}

class ent_gate(Structure):
#{
   _fields_ = [("type",c_uint32),
               ("target", c_uint32),
               ("dimensions", c_float*3),
               ("co", (c_float*3)*2),
               ("q", (c_float*4)*2),
               ("to_world",(c_float*3)*4),
               ("transport",(c_float*3)*4),
               ("_anonymous_union",version_refcount_union),
               ("timing_time",c_double),
               ("routes",c_uint16*4)]
#}

class ent_route_node(Structure):
#{
   _fields_ = [("co",c_float*3),
               ("ref_count",c_uint8),
               ("ref_total",c_uint8)]
#}

class ent_path_index(Structure):
#{
   _fields_ = [("index",c_uint16)]
#}

class ent_checkpoint(Structure):
#{
   _fields_ = [("gate_index",c_uint16),
               ("path_start",c_uint16),
               ("path_count",c_uint16)]
#}

class ent_route(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("pstr_name",c_uint32),
               ("checkpoints_start",c_uint16),
               ("checkpoints_count",c_uint16),
               ("colour",c_float*4),
               ("active",c_uint32), #runtime
               ("factive",c_float),
               ("board_transform",(c_float*3)*4),
               ("sm",mdl_submesh),
               ("latest_pass",c_double)]
#}

class ent_water(Structure):
#{
   _fields_ = [("transform",mdl_transform),
               ("max_dist",c_float),
               ("reserved0",c_uint32),
               ("reserved1",c_uint32)]
#}

def obj_ent_type( obj ):
#{
   if obj.type == 'ARMATURE': return 'mdl_armature'
   elif obj.type == 'LIGHT': return 'ent_light'
   else: return obj.SR_data.ent_type
#}

def sr_filter_ent_type( obj, ent_type ):
#{
   if obj == bpy.context.active_object: return False

   for c0 in obj.users_collection:#{
      for c1 in bpy.context.active_object.users_collection:#{
         if c0 == c1:#{
            return ent_type == obj_ent_type( obj )
         #}
      #}
   #}

   return False
#}

def compile_obj_transform( obj, transform ):
#{
   co = obj.matrix_world @ Vector((0,0,0))
   q = obj.matrix_local.to_quaternion()
   s = obj.scale
   
   # Setup transform
   #
   transform.co[0] =  co[0]
   transform.co[1] =  co[2]
   transform.co[2] = -co[1]
   transform.q[0] =  q[1]
   transform.q[1] =  q[3]
   transform.q[2] = -q[2]
   transform.q[3] =  q[0]
   transform.s[0] = s[0]
   transform.s[1] = s[2]
   transform.s[2] = s[1]
#}

def int_align_to( v, align ):
#{
   while(v%align)!=0: v += 1
   return v
#}

def bytearray_align_to( buffer, align, w=b'\xaa' ):
#{
   while (len(buffer) % align) != 0: buffer.extend(w)
   return buffer
#}

def bytearray_print_hex( s, w=16 ):
#{
   for r in range((len(s)+(w-1))//w):#{
      i0=(r+0)*w
      i1=min((r+1)*w,len(s))
      print( F'{r*w:06x}| \x1B[31m', end='')
      print( F"{' '.join('{:02x}'.format(x) for x in s[i0:i1]):<48}",end='' )
      print( "\x1B[0m", end='')
      print( ''.join(chr(x) if (x>=33 and x<=126) else '.' for x in s[i0:i1] ) )
   #}
#}

def sr_compile_string( s ):
#{
   if s in sr_compile.string_cache: return sr_compile.string_cache[s]
   
   index = len( sr_compile.string_data )
   sr_compile.string_cache[s] = index
   sr_compile.string_data.extend( s.encode('utf-8') )
   sr_compile.string_data.extend( b'\0' )

   bytearray_align_to( sr_compile.string_data, 4 )
   return index
#}

def material_tex_image(v):
#{
    return {
       "Image Texture":
       {
          "image": F"{v}"
       }
    }
#}

cxr_graph_mapping = \
{
   # Default shader setup 
   "Principled BSDF":
   {
      "Base Color":
      {
         "Image Texture":
         {
            "image": "tex_diffuse"
         },
         "Mix":
         {
            "A": material_tex_image("tex_diffuse"),
            "B": material_tex_image("tex_decal")
         },
      },
      "Normal":
      {
         "Normal Map":
         {
            "Color": material_tex_image("tex_normal")
         }
      }
   }
}

# https://harrygodden.com/git/?p=convexer.git;a=blob;f=__init__.py;#l1164
#
def material_info(mat):
#{
   info = {}

   # Using the cxr_graph_mapping as a reference, go through the shader
   # graph and gather all $props from it.
   #
   def _graph_read( node_def, node=None, depth=0 ):#{
      nonlocal mat
      nonlocal info
      
      # Find rootnodes
      #
      if node == None:#{
         _graph_read.extracted = []

         for node_idname in node_def:#{
            for n in mat.node_tree.nodes:#{
               if n.name == node_idname:#{
                  node_def = node_def[node_idname]
                  node = n
                  break
               #}
            #}
         #}
      #}

      for link in node_def:#{
         link_def = node_def[link]

         if isinstance( link_def, dict ):#{
            node_link = None
            for x in node.inputs:#{
               if isinstance( x, bpy.types.NodeSocketColor ):#{
                  if link == x.name:#{
                     node_link = x
                     break
                  #}
               #}
            #}

            if node_link and node_link.is_linked:#{
               # look for definitions for the connected node type
               #
               from_node = node_link.links[0].from_node
               
               node_name = from_node.name.split('.')[0]
               if node_name in link_def:#{
                  from_node_def = link_def[ node_name ]

                  _graph_read( from_node_def, from_node, depth+1 )
               #}
            #}
            else:#{
               if "default" in link_def:#{
                  prop = link_def['default']
                  info[prop] = node_link.default_value
               #}
            #}
         #}
         else:#{
            prop = link_def
            info[prop] = getattr( node, link )
         #}
      #}
   #}

   _graph_read( cxr_graph_mapping )
   return info
#}

def sr_pack_file( file, path, data ):
#{
   file.path = sr_compile_string( path )
   file.pack_offset = len( sr_compile.pack_data )
   file.pack_size = len( data )

   sr_compile.pack_data.extend( data )
   bytearray_align_to( sr_compile.pack_data, 16 )
#}

def sr_compile_texture( img ):
#{
   if img == None:
      return 0

   name = os.path.splitext( img.name )[0]

   if name in sr_compile.texture_cache:
      return sr_compile.texture_cache[name]

   texture_index = (len(sr_compile.texture_data)//sizeof(mdl_texture)) +1

   tex = mdl_texture()
   tex.type = 0

   if sr_compile.pack_textures:#{
      filedata = qoi_encode( img )
      sr_pack_file( tex.file, name, filedata )
   #}

   sr_compile.texture_cache[name] = texture_index
   sr_compile.texture_data.extend( bytearray(tex) )
   return texture_index
#}

def sr_compile_material( mat ):
#{
   if mat == None: 
      return 0
   if mat.name in sr_compile.material_cache: 
      return sr_compile.material_cache[mat.name]

   index = (len(sr_compile.material_data)//sizeof(mdl_material))+1
   sr_compile.material_cache[mat.name] = index

   m = mdl_material()
   m.pstr_name = sr_compile_string( mat.name )
   
   flags = 0x00
   if mat.SR_data.collision:#{
      flags |= 0x2
      if mat.SR_data.skate_surface: flags |= 0x1
      if mat.SR_data.grind_surface: flags |= (0x8|0x1)
   #}

   if mat.SR_data.grow_grass: flags |= 0x4
   m.flags = flags

   m.surface_prop = int(mat.SR_data.surface_prop)

   if mat.SR_data.shader == 'standard': m.shader = 0
   if mat.SR_data.shader == 'standard_cutout': m.shader = 1
   if mat.SR_data.shader == 'terrain_blend':#{
      m.shader = 2

      m.colour[0] = pow( mat.SR_data.sand_colour[0], 1.0/2.2 )
      m.colour[1] = pow( mat.SR_data.sand_colour[1], 1.0/2.2 )
      m.colour[2] = pow( mat.SR_data.sand_colour[2], 1.0/2.2 )
      m.colour[3] = 1.0

      m.colour1[0] = mat.SR_data.blend_offset[0]
      m.colour1[1] = mat.SR_data.blend_offset[1]
   #}

   if mat.SR_data.shader == 'vertex_blend':#{
      m.shader = 3

      m.colour1[0] = mat.SR_data.blend_offset[0]
      m.colour1[1] = mat.SR_data.blend_offset[1]
   #}

   if mat.SR_data.shader == 'water':#{
      m.shader = 4

      m.colour[0]  = pow( mat.SR_data.shore_colour[0], 1.0/2.2 )
      m.colour[1]  = pow( mat.SR_data.shore_colour[1], 1.0/2.2 )
      m.colour[2]  = pow( mat.SR_data.shore_colour[2], 1.0/2.2 )
      m.colour[3]  = 1.0
      m.colour1[0] = pow( mat.SR_data.ocean_colour[0], 1.0/2.2 )
      m.colour1[1] = pow( mat.SR_data.ocean_colour[1], 1.0/2.2 )
      m.colour1[2] = pow( mat.SR_data.ocean_colour[2], 1.0/2.2 )
      m.colour1[3] = 1.0
   #}
   
   inf = material_info( mat )

   if mat.SR_data.shader == 'standard' or \
      mat.SR_data.shader == 'standard_cutout' or \
      mat.SR_data.shader == 'terrain_blend' or \
      mat.SR_data.shader == 'vertex_blend':
   #{
      if 'tex_diffuse' in inf: 
         m.tex_diffuse = sr_compile_texture(inf['tex_diffuse'])
   #}

   sr_compile.material_data.extend( bytearray(m) )
   return index
#}

def sr_armature_bones( armature ):
#{
   def _recurse_bone( b ):
   #{
      yield b
      for c in b.children: yield from _recurse_bone( c )
   #}

   for b in armature.data.bones:
      if not b.parent:
         yield from _recurse_bone( b )
#}

def sr_compile_mesh( obj ):
#{
   node=mdl_mesh()
   compile_obj_transform(obj, node.transform)
   node.pstr_name = sr_compile_string(obj.name)
   node.flags = 0

   can_use_cache = True
   armature = None

   for mod in obj.modifiers:#{
      if mod.type == 'DATA_TRANSFER' or mod.type == 'SHRINKWRAP' or \
         mod.type == 'BOOLEAN' or mod.type == 'CURVE' or \
         mod.type == 'ARRAY':
      #{
         can_use_cache = False
      #}

      if mod.type == 'ARMATURE': #{
         node.flags = 1
         armature = mod.object
         rig_weight_groups = \
               ['0 [ROOT]']+[_.name for _ in sr_armature_bones(mod.object)]
         node.armature_id = sr_compile.entity_ids[armature.name]

         POSE_OR_REST_CACHE = armature.data.pose_position
         armature.data.pose_position = 'REST'
      #}
   #}

   # Check the cache first
   #
   if can_use_cache and (obj.data.name in sr_compile.mesh_cache):#{
      ref = sr_compile.mesh_cache[obj.data.name]
      node.submesh_start = ref[0]
      node.submesh_count = ref[1]
      sr_compile.mesh_data.extend(bytearray(node))
      return
   #}

   # Compile a whole new mesh
   #
   node.submesh_start = len(sr_compile.submesh_data)//sizeof(mdl_submesh)
   node.submesh_count = 0

   dgraph = bpy.context.evaluated_depsgraph_get()
   data = obj.evaluated_get(dgraph).data
   data.calc_loop_triangles()
   data.calc_normals_split()
   
   # Mesh is split into submeshes based on their material
   #
   mat_list = data.materials if len(data.materials) > 0 else [None]
   for material_id, mat in enumerate(mat_list): #{
      mref = {}

      sm = mdl_submesh()
      sm.indice_start = len(sr_compile.indice_data)//sizeof(c_uint32)
      sm.vertex_start = len(sr_compile.vertex_data)//sizeof(mdl_vert)
      sm.vertex_count = 0
      sm.indice_count = 0
      sm.material_id = sr_compile_material( mat )

      INF=99999999.99999999
      for i in range(3):#{
         sm.bbx[0][i] =  INF
         sm.bbx[1][i] = -INF
      #}
      
      # Keep a reference to very very very similar vertices
      # i have no idea how to speed it up.
      #
      vertex_reference = {}

      # Write the vertex / indice data
      #
      for tri_index, tri in enumerate(data.loop_triangles):#{
         if tri.material_index != material_id:
            continue

         for j in range(3):#{
            vert = data.vertices[tri.vertices[j]]
            li = tri.loops[j]
            vi = data.loops[li].vertex_index
            
            # Gather vertex information
            #
            co      = vert.co
            norm    = data.loops[li].normal
            uv      = (0,0)
            colour  = (255,255,255,255)
            groups  = [0,0,0,0]
            weights = [0,0,0,0]

            # Uvs
            #
            if data.uv_layers:
               uv = data.uv_layers.active.data[li].uv
            
            # Vertex Colours
            #
            if data.vertex_colors:#{
               colour = data.vertex_colors.active.data[li].color
               colour = (int(colour[0]*255.0),\
                         int(colour[1]*255.0),\
                         int(colour[2]*255.0),\
                         int(colour[3]*255.0))
            #}
            
            # Weight groups: truncates to the 3 with the most influence. The
            #                fourth bone ID is never used by the shader so it 
            #                is always 0
            #
            if armature:#{
               src_groups = [_ for _ in data.vertices[vi].groups \
                              if obj.vertex_groups[_.group].name in \
                                 rig_weight_groups ]

               weight_groups = sorted( src_groups, key = \
                                       lambda a: a.weight, reverse=True )
               tot = 0.0
               for ml in range(3):#{
                  if len(weight_groups) > ml:#{
                     g = weight_groups[ml]
                     name = obj.vertex_groups[g.group].name
                     weight = g.weight
                     weights[ml] = weight
                     groups[ml] = rig_weight_groups.index(name)
                     tot += weight
                  #}
               #}
            
               if len(weight_groups) > 0:#{
                  inv_norm = (1.0/tot) * 65535.0
                  for ml in range(3):#{
                     weights[ml] = int( weights[ml] * inv_norm )
                     weights[ml] = min( weights[ml], 65535 )
                     weights[ml] = max( weights[ml], 0 )
                  #}
               #}
            #}
            else:#{
               li1 = tri.loops[(j+1)%3]
               vi1 = data.loops[li1].vertex_index
               e0 = data.edges[ data.loops[li].edge_index ]

               if e0.use_freestyle_mark and \
                     ((e0.vertices[0] == vi and e0.vertices[1] == vi1) or \
                      (e0.vertices[0] == vi1 and e0.vertices[1] == vi)):
               #{
                  weights[0] = 1
               #}
            #}

            TOLERENCE = float(10**4)
            key = (int(co[0]*TOLERENCE+0.5),
                   int(co[1]*TOLERENCE+0.5),
                   int(co[2]*TOLERENCE+0.5),
                   int(norm[0]*TOLERENCE+0.5),
                   int(norm[1]*TOLERENCE+0.5),
                   int(norm[2]*TOLERENCE+0.5),
                   int(uv[0]*TOLERENCE+0.5),
                   int(uv[1]*TOLERENCE+0.5),
                   colour[0],  # these guys are already quantized
                   colour[1],  # .
                   colour[2],  # .
                   colour[3],  # .
                   weights[0], # v
                   weights[1],
                   weights[2],
                   weights[3],
                   groups[0],
                   groups[1],
                   groups[2],
                   groups[3])

            if key in vertex_reference:
               index = vertex_reference[key]
            else:#{
               index = bytearray(c_uint32(sm.vertex_count))
               sm.vertex_count+=1
               
               vertex_reference[key] = index
               v = mdl_vert()
               v.co[0]      =  co[0]
               v.co[1]      =  co[2]
               v.co[2]      = -co[1]
               v.norm[0]    =  norm[0]
               v.norm[1]    =  norm[2]
               v.norm[2]    = -norm[1]
               v.uv[0]      =  uv[0]
               v.uv[1]      =  uv[1]
               v.colour[0]  =  colour[0]
               v.colour[1]  =  colour[1]
               v.colour[2]  =  colour[2]
               v.colour[3]  =  colour[3]
               v.weights[0] =  weights[0]
               v.weights[1] =  weights[1]
               v.weights[2] =  weights[2]
               v.weights[3] =  weights[3]
               v.groups[0]  =  groups[0]
               v.groups[1]  =  groups[1]
               v.groups[2]  =  groups[2]
               v.groups[3]  =  groups[3]
               
               for i in range(3):#{
                  sm.bbx[0][i] = min( sm.bbx[0][i], v.co[i] )
                  sm.bbx[1][i] = max( sm.bbx[1][i], v.co[i] )
               #}

               sr_compile.vertex_data.extend(bytearray(v))
            #}
            
            sm.indice_count += 1
            sr_compile.indice_data.extend( index )
         #}
      #}
      
      # Make sure bounding box isn't -inf -> inf if no vertices
      #
      if sm.vertex_count == 0:
         for j in range(2):
            for i in range(3):
               sm.bbx[j][i] = 0

      # Add submesh to encoder
      #
      sr_compile.submesh_data.extend( bytearray(sm) )
      node.submesh_count += 1
   #}

   if armature:#{
      armature.data.pose_position = POSE_OR_REST_CACHE
   #}

   # Save a reference to this node since we want to reuse the submesh indices
   # later.
   sr_compile.mesh_cache[obj.data.name]=(node.submesh_start,node.submesh_count)
   sr_compile.mesh_data.extend(bytearray(node))
#}

def sr_compile_armature( obj ):
#{
   node = mdl_armature()
   node.bone_start = len(sr_compile.bone_data)//sizeof(mdl_bone)
   node.bone_count = 0
   node.anim_start = len(sr_compile.anim_data)//sizeof(mdl_animation)
   node.anim_count = 0
   
   bones = [_ for _ in sr_armature_bones(obj)]
   bones_names = [None]+[_.name for _ in bones]

   for b in bones:#{
      bone = mdl_bone()
      if b.use_deform: bone.flags = 0x1
      if b.parent: bone.parent = bones_names.index(b.parent.name)

      bone.collider = int(b.SR_data.collider)

      if bone.collider>0:#{
         bone.hitbox[0][0] =  b.SR_data.collider_min[0]
         bone.hitbox[0][1] =  b.SR_data.collider_min[2]
         bone.hitbox[0][2] = -b.SR_data.collider_max[1]
         bone.hitbox[1][0] =  b.SR_data.collider_max[0]
         bone.hitbox[1][1] =  b.SR_data.collider_max[2]
         bone.hitbox[1][2] = -b.SR_data.collider_min[1]
      #}
  
      if b.SR_data.cone_constraint:#{
         bone.flags |= 0x4
         bone.conevx[0] =  b.SR_data.conevx[0]
         bone.conevx[1] =  b.SR_data.conevx[2]
         bone.conevx[2] = -b.SR_data.conevx[1]
         bone.conevy[0] =  b.SR_data.conevy[0]
         bone.conevy[1] =  b.SR_data.conevy[2]
         bone.conevy[2] = -b.SR_data.conevy[1]
         bone.coneva[0] =  b.SR_data.coneva[0]
         bone.coneva[1] =  b.SR_data.coneva[2]
         bone.coneva[2] = -b.SR_data.coneva[1]
         bone.conet     =  b.SR_data.conet
      #}

      bone.co[0] =  b.head_local[0]
      bone.co[1] =  b.head_local[2]
      bone.co[2] = -b.head_local[1]
      bone.end[0] =  b.tail_local[0] - bone.co[0]
      bone.end[1] =  b.tail_local[2] - bone.co[1]
      bone.end[2] = -b.tail_local[1] - bone.co[2]
      bone.pstr_name = sr_compile_string( b.name )

      for c in obj.pose.bones[b.name].constraints:#{
         if c.type == 'IK':#{
            bone.flags |= 0x2
            bone.ik_target = bones_names.index(c.subtarget)
            bone.ik_pole = bones_names.index(c.pole_subtarget)
         #}
      #}

      node.bone_count += 1
      sr_compile.bone_data.extend(bytearray(bone))
   #}

   # Compile anims
   #
   if obj.animation_data and sr_compile.pack_animations: #{
      # So we can restore later
      #
      previous_frame  = bpy.context.scene.frame_current
      previous_action = obj.animation_data.action
      POSE_OR_REST_CACHE = obj.data.pose_position
      obj.data.pose_position = 'POSE'

      for NLALayer in obj.animation_data.nla_tracks:#{
         for NLAStrip in NLALayer.strips:#{
            # set active
            #
            for a in bpy.data.actions:#{
               if a.name == NLAStrip.name:#{
                  obj.animation_data.action = a
                  break
               #}
            #}
            
            # Clip to NLA settings
            #
            anim_start = int(NLAStrip.action_frame_start)
            anim_end   = int(NLAStrip.action_frame_end)

            # Export strips
            #
            anim = mdl_animation()
            anim.pstr_name = sr_compile_string( NLAStrip.action.name )
            anim.rate = 30.0
            anim.keyframe_start = len(sr_compile.keyframe_data)//\
                                      sizeof(mdl_transform)
            anim.length = anim_end-anim_start
            
            i = 0
            # Export the keyframes
            for frame in range(anim_start,anim_end):#{
               bpy.context.scene.frame_set(frame)
               
               for rb in bones:#{
                  pb = obj.pose.bones[rb.name]
                  
                  # relative bone matrix
                  if rb.parent is not None:#{
                     offset_mtx = rb.parent.matrix_local
                     offset_mtx = offset_mtx.inverted_safe() @ \
                                  rb.matrix_local

                     inv_parent = pb.parent.matrix @ offset_mtx
                     inv_parent.invert_safe()
                     fpm = inv_parent @ pb.matrix 
                  #}
                  else:#{
                     bone_mtx = rb.matrix.to_4x4()
                     local_inv = rb.matrix_local.inverted_safe()
                     fpm = bone_mtx @ local_inv @ pb.matrix
                  #}

                  loc, rot, sca = fpm.decompose()
                  
                  # rotation
                  lc_m = pb.matrix_channel.to_3x3()
                  if pb.parent is not None:#{
                     smtx = pb.parent.matrix_channel.to_3x3()
                     lc_m = smtx.inverted() @ lc_m
                  #}
                  rq = lc_m.to_quaternion()

                  kf = mdl_transform()
                  kf.co[0] =  loc[0]
                  kf.co[1] =  loc[2]
                  kf.co[2] = -loc[1]
                  kf.q[0]  =  rq[1]
                  kf.q[1]  =  rq[3]
                  kf.q[2]  = -rq[2]
                  kf.q[3]  =  rq[0]
                  kf.s[0]  = sca[0]
                  kf.s[1]  = sca[1]
                  kf.s[2]  = sca[2]
                  sr_compile.keyframe_data.extend(bytearray(kf))
                  
                  i+=1
               #}
            #}
            
            # Add to animation buffer
            #
            sr_compile.anim_data.extend(bytearray(anim))
            node.anim_count += 1

            # Report progress
            #
            print( F"[SR]    | anim( {NLAStrip.action.name} )" )
         #}
      #}
      
      # Restore context to how it was before
      #
      bpy.context.scene.frame_set( previous_frame )
      obj.animation_data.action = previous_action
      obj.data.pose_position = POSE_OR_REST_CACHE
   #}

   sr_compile.armature_data.extend(bytearray(node))
#}

def sr_ent_push( struct ):
#{
   clase = type(struct).__name__

   if clase not in sr_compile.entity_data:#{
      sr_compile.entity_data[ clase ] = bytearray()
      sr_compile.entity_info[ clase ] = { 'size': sizeof(struct) }
   #}

   index = len(sr_compile.entity_data[ clase ])//sizeof(struct)
   sr_compile.entity_data[ clase ].extend( bytearray(struct) )
   return index
#}

def sr_array_title( arr, name, count, size, offset ):
#{
   for i in range(len(name)):#{
      arr.name[i] = ord(name[i])
   #}
   arr.file_offset = offset
   arr.item_count = count
   arr.item_size = size
#}

def sr_compile( collection ):
#{
   print( F"[SR] compiler begin ({collection.name}.mdl)" )

   #settings
   sr_compile.pack_textures = collection.SR_data.pack_textures
   sr_compile.pack_animations = collection.SR_data.animations

   # caches
   sr_compile.string_cache = {}
   sr_compile.mesh_cache = {}
   sr_compile.material_cache = {}
   sr_compile.texture_cache = {}
   
   # compiled data
   sr_compile.mesh_data = bytearray()
   sr_compile.submesh_data = bytearray()
   sr_compile.vertex_data = bytearray()
   sr_compile.indice_data = bytearray()
   sr_compile.bone_data = bytearray()
   sr_compile.material_data = bytearray()
   sr_compile.armature_data = bytearray()
   sr_compile.anim_data = bytearray()
   sr_compile.keyframe_data = bytearray()
   sr_compile.texture_data = bytearray()
   
   # just bytes not structures
   sr_compile.string_data = bytearray()
   sr_compile.pack_data = bytearray()

   # variable
   sr_compile.entity_data = {}
   sr_compile.entity_info = {}

   print( F"[SR] assign entity ID's" )
   sr_compile.entities = {}
   sr_compile.entity_ids = {}

   mesh_count = 0
   for obj in collection.all_objects: #{
      if obj.type == 'MESH': mesh_count += 1

      ent_type = obj_ent_type( obj )
      if ent_type == 'none': continue

      if ent_type not in sr_compile.entities: sr_compile.entities[ent_type] = []
      sr_compile.entity_ids[obj.name] = len( sr_compile.entities[ent_type] )
      sr_compile.entities[ent_type] += [obj]
   #}

   print( F"[SR] Compiling geometry" )
   i=0
   for obj in collection.all_objects:#{
      if obj.type == 'MESH':#{
         i+=1
         print( F'[SR] {i: 3}/{mesh_count} {obj.name:<40}', end='\r' )
         sr_compile_mesh( obj )
      #}
   #}

   checkpoint_count = 0
   pathindice_count = 0

   for ent_type, arr in sr_compile.entities.items():#{
      print(F"[SR] Compiling {len(arr)} {ent_type}{'s' if len(arr)>1 else ''}")

      for i in range(len(arr)):#{
         obj = arr[i]

         print( F"[SR] {i+1: 3}/{len(arr)} {obj.name:<40} ",end='\r' )

         if ent_type == 'mdl_armature': sr_compile_armature(obj)
         elif ent_type == 'ent_light': #{
            light = ent_light()
            compile_obj_transform( obj, light.transform )
            light.daytime = obj.data.SR_data.daytime
            if obj.data.type == 'POINT':#{
               light.type = 0
            #}
            elif obj.data.type == 'SPOT':#{
               light.type = 1
               light.angle = obj.data.spot_size*0.5
            #}
            light.range = obj.data.cutoff_distance
            light.colour[0] = obj.data.color[0]
            light.colour[1] = obj.data.color[1]
            light.colour[2] = obj.data.color[2]
            light.colour[3] = obj.data.energy
            sr_ent_push( light )
         #}
         elif ent_type == 'ent_gate': #{
            gate = ent_gate()
            gate.type = 0
            obj_data = obj.SR_data.ent_gate[0]
            mesh_data = obj.data.SR_data.ent_gate[0]
            if obj_data.target:#{
               gate.target = sr_compile.entity_ids[obj_data.target.name]
               gate.type = 1
            #}
            gate.dimensions[0] = mesh_data.dimensions[0]
            gate.dimensions[1] = mesh_data.dimensions[1]
            gate.dimensions[2] = mesh_data.dimensions[2]

            q  = [obj.matrix_local.to_quaternion(), (0,0,0,1)]
            co = [obj.matrix_world @ Vector((0,0,0)), (0,0,0)]

            if obj_data.target:#{
               q[1] = obj_data.target.matrix_local.to_quaternion()
               co[1]= obj_data.target.matrix_world @ Vector((0,0,0))
            #}
            
            # Setup transform
            #
            for x in range(2):#{
               gate.co[x][0] =  co[x][0]
               gate.co[x][1] =  co[x][2]
               gate.co[x][2] = -co[x][1]
               gate.q[x][0]  =  q[x][1]
               gate.q[x][1]  =  q[x][3]
               gate.q[x][2]  = -q[x][2]
               gate.q[x][3]  =  q[x][0]
            #}

            sr_ent_push( gate )
         #}
         elif ent_type == 'ent_spawn': #{
            spawn = ent_spawn()
            compile_obj_transform( obj, spawn.transform )
            obj_data = obj.SR_data.ent_spawn[0]
            spawn.pstr_name = sr_compile_string( obj_data.name )
            sr_ent_push( spawn )
         #}
         elif ent_type == 'ent_route': #{
            obj_data = obj.SR_data.ent_route[0]
            route = ent_route()
            route.pstr_name = sr_compile_string( obj_data.alias )
            route.checkpoints_start = checkpoint_count
            route.checkpoints_count = 0

            for ci in range(3):
               route.colour[ci] = obj_data.colour[ci]
            route.colour[3] = 1.0

            compile_obj_transform( obj, route.transform )

            checkpoints = obj_data.gates
            route_nodes = []

            for uc in obj.users_collection[0].objects:#{
               uc_type = obj_ent_type( uc )
               if uc_type == 'ent_gate' or uc_type == 'ent_route_node':
                  route_nodes += [uc]
            #}
            graph = node_graph( route_nodes )

            for i in range(len(checkpoints)):#{
               gi = checkpoints[i].target
               gj = checkpoints[(i+1)%len(checkpoints)].target
               gate = gi

               if gi:#{
                  dest = gi.SR_data.ent_gate[0].target
                  gi = dest
               #}

               if gi==gj: continue # error?
               if not gi or not gj: continue

               checkpoint = ent_checkpoint()
               checkpoint.gate_index = sr_compile.entity_ids[gate.name]
               checkpoint.path_start = pathindice_count
               checkpoint.path_count = 0
               
               path = dijkstra( graph, gj.name, gi.name )
               if path:#{
                  for pi in range(1,len(path)-1):#{
                     pathindice = ent_path_index()
                     pathindice.index = sr_compile.entity_ids[path[pi]]
                     sr_ent_push( pathindice )

                     checkpoint.path_count += 1
                     pathindice_count += 1
                  #}
               #}
               
               sr_ent_push( checkpoint )
               route.checkpoints_count += 1
               checkpoint_count += 1
            #}

            sr_ent_push( route )
         #}
         elif ent_type == 'ent_route_node':#{
            rn = ent_route_node()
            rn.co[0] =  obj.location[0]
            rn.co[1] =  obj.location[2]
            rn.co[2] = -obj.location[1]
            sr_ent_push( rn )
         #}
         elif ent_type == 'ent_water':#{
            water = ent_water()
            compile_obj_transform( obj, water.transform )
            water.max_dist = 0.0
            sr_ent_push( water )
         #}
      #}
   #}
   
   print( F"[SR] Writing file" )

   file_array_instructions = {}
   file_offset = 0

   def _write_array( name, item_size, data ):#{
      nonlocal file_array_instructions, file_offset

      count = len(data)//item_size
      file_array_instructions[name] = {'count':count, 'size':item_size,\
                                       'data':data, 'offset': file_offset}
      file_offset += len(data)
      file_offset = int_align_to( file_offset, 8 )
   #}

   _write_array( 'strings', 1, sr_compile.string_data )
   _write_array( 'mdl_mesh', sizeof(mdl_mesh), sr_compile.mesh_data )
   _write_array( 'mdl_submesh', sizeof(mdl_submesh), sr_compile.submesh_data )
   _write_array( 'mdl_material', sizeof(mdl_material), sr_compile.material_data)
   _write_array( 'mdl_texture', sizeof(mdl_texture), sr_compile.texture_data)
   _write_array( 'mdl_armature', sizeof(mdl_armature), sr_compile.armature_data)
   _write_array( 'mdl_bone', sizeof(mdl_bone), sr_compile.bone_data )

   for name, buffer in sr_compile.entity_data.items():#{
      _write_array( name, sr_compile.entity_info[name]['size'], buffer )
   #}

   _write_array( 'mdl_animation', sizeof(mdl_animation), sr_compile.anim_data)
   _write_array( 'mdl_keyframe', sizeof(mdl_transform),sr_compile.keyframe_data)
   _write_array( 'mdl_vert', sizeof(mdl_vert), sr_compile.vertex_data )
   _write_array( 'mdl_indice', sizeof(c_uint32), sr_compile.indice_data )
   _write_array( 'pack', 1, sr_compile.pack_data )

   header_size = int_align_to( sizeof(mdl_header), 8 )
   index_size = int_align_to( sizeof(mdl_array)*len(file_array_instructions),8 )

   folder = bpy.path.abspath(bpy.context.scene.SR_data.export_dir)
   path = F"{folder}{collection.name}.mdl"
   print( path )

   fp = open( path, "wb" )
   header = mdl_header()
   header.version = 40
   sr_array_title( header.arrays, \
                   'index', len(file_array_instructions), \
                   sizeof(mdl_array), header_size )

   fp.write( bytearray_align_to( bytearray(header), 8 ) )

   print( F'[SR] {"name":>16}|    count | offset' )
   index = bytearray()
   for name,info in file_array_instructions.items():#{
      arr = mdl_array()
      offset = info['offset'] + header_size + index_size
      sr_array_title( arr, name, info['count'], info['size'], offset )
      index.extend( bytearray(arr) )

      print( F'[SR] {name:>16}| {info["count"]: 8} '+\
             F'  0x{info["offset"]:02x}' )
   #}
   fp.write( bytearray_align_to( index, 8 ) )
   #bytearray_print_hex( index )

   for name,info in file_array_instructions.items():#{
      fp.write( bytearray_align_to( info['data'], 8 ) )
   #}

   fp.close()

   print( '[SR] done' )
#}

class SR_SCENE_SETTINGS(bpy.types.PropertyGroup):
#{
   use_hidden: bpy.props.BoolProperty( name="use hidden", default=False )
   export_dir: bpy.props.StringProperty( name="Export Dir", subtype='DIR_PATH' )
   gizmos: bpy.props.BoolProperty( name="Draw Gizmos", default=True )

   panel: bpy.props.EnumProperty(
        name='Panel',
        description='',
        items=[
            ('EXPORT', 'Export', '', 'MOD_BUILD',0),
            ('ENTITY', 'Entity', '', 'MONKEY',1),
            ('SETTINGS', 'Settings', 'Settings', 'PREFERENCES',2),
        ],
    )
#}

class SR_COLLECTION_SETTINGS(bpy.types.PropertyGroup):
#{
   pack_textures: bpy.props.BoolProperty( name="Pack Textures", default=False )
   animations:    bpy.props.BoolProperty( name="Export animation", default=True)
#}

def sr_get_mirror_bone( bones ):
#{
   side = bones.active.name[-1:]
   other_name = bones.active.name[:-1]
   if side == 'L': other_name += 'R'
   elif side == 'R': other_name += 'L'
   else: return None

   for b in bones:#{
      if b.name == other_name:
         return b
   #}
   
   return None
#}

class SR_MIRROR_BONE_X(bpy.types.Operator):
#{
   bl_idname="skaterift.mirror_bone"
   bl_label="Mirror bone attributes - SkateRift"

   def execute(_,context):
   #{
      active_object = context.active_object
      bones = active_object.data.bones
      a = bones.active
      b = sr_get_mirror_bone( bones )

      if not b: return {'FINISHED'}

      b.SR_data.collider = a.SR_data.collider

      def _v3copyflipy( a, b ):#{
         b[0] =  a[0]
         b[1] = -a[1]
         b[2] =  a[2]
      #}

      _v3copyflipy( a.SR_data.collider_min, b.SR_data.collider_min )
      _v3copyflipy( a.SR_data.collider_max, b.SR_data.collider_max )
      b.SR_data.collider_min[1] = -a.SR_data.collider_max[1]
      b.SR_data.collider_max[1] = -a.SR_data.collider_min[1]

      b.SR_data.cone_constraint = a.SR_data.cone_constraint

      _v3copyflipy( a.SR_data.conevx, b.SR_data.conevy )
      _v3copyflipy( a.SR_data.conevy, b.SR_data.conevx )
      _v3copyflipy( a.SR_data.coneva, b.SR_data.coneva )

      b.SR_data.conet = a.SR_data.conet

      # redraw
      ob = bpy.context.scene.objects[0]
      ob.hide_render = ob.hide_render
      return {'FINISHED'}
   #}
#}

class SR_COMPILE(bpy.types.Operator):
#{
   bl_idname="skaterift.compile_all"
   bl_label="Compile All"

   def execute(_,context):
   #{
      view_layer = bpy.context.view_layer
      for col in view_layer.layer_collection.children["export"].children:
         if not col.hide_viewport or bpy.context.scene.SR_data.use_hidden:
            sr_compile( bpy.data.collections[col.name] )

      return {'FINISHED'}
   #}
#}

class SR_COMPILE_THIS(bpy.types.Operator):
#{
   bl_idname="skaterift.compile_this"
   bl_label="Compile This collection"

   def execute(_,context):
   #{
      col = bpy.context.collection
      sr_compile( col )

      return {'FINISHED'}
   #}
#}

class SR_INTERFACE(bpy.types.Panel):
#{
   bl_idname = "VIEW3D_PT_skate_rift"
   bl_label = "Skate Rift"
   bl_space_type = 'VIEW_3D'
   bl_region_type = 'UI'
   bl_category = "Skate Rift"

   def draw(_, context):
   #{
      # Compiler section

      row = _.layout.row()
      row.scale_y = 1.75
      row.prop( context.scene.SR_data, 'panel', expand=True )

      if context.scene.SR_data.panel == 'SETTINGS': #{
         _.layout.prop( context.scene.SR_data, 'gizmos' )
      #}
      elif context.scene.SR_data.panel == 'EXPORT': #{
         _.layout.prop( context.scene.SR_data, "export_dir" )
         col = bpy.context.collection

         found_in_export = False
         export_count = 0
         view_layer = bpy.context.view_layer
         for c1 in view_layer.layer_collection.children["export"].children: #{
            if not c1.hide_viewport or bpy.context.scene.SR_data.use_hidden:
               export_count += 1

            if c1.name == col.name: #{
               found_in_export = True
            #}
         #}

         box = _.layout.box()
         row = box.row()
         row.alignment = 'CENTER'
         row.scale_y = 1.5

         if found_in_export: #{
            row.label( text=col.name + ".mdl" )
            box.prop( col.SR_data, "pack_textures" )
            box.prop( col.SR_data, "animations" )
            box.operator( "skaterift.compile_this" )
         #}
         else: #{
            row.enabled=False
            row.label( text=col.name )

            row = box.row()
            row.enabled=False
            row.alignment = 'CENTER'
            row.scale_y = 1.5
            row.label( text="This collection is not in the export group" )
         #}

         box = _.layout.box()
         row = box.row()

         split = row.split( factor=0.3, align=True )
         split.prop( context.scene.SR_data, "use_hidden", text="hidden" )
         
         row1 = split.row()
         if export_count == 0:
            row1.enabled=False
         row1.operator( "skaterift.compile_all", \
                           text=F"Compile all ({export_count} collections)" )
      #}
      elif context.scene.SR_data.panel == 'ENTITY': #{
         active_object = context.active_object
         if not active_object: return

         box = _.layout.box()
         row = box.row()
         row.alignment = 'CENTER'
         row.label( text=active_object.name )
         row.scale_y = 1.5

         def _draw_prop_collection( data ): #{
            nonlocal box
            row = box.row()
            row.alignment = 'CENTER'
            row.enabled = False
            row.scale_y = 1.5
            row.label( text=F'{data[0]}' )
            
            if hasattr(type(data[0]),'sr_inspector'):#{
               type(data[0]).sr_inspector( box, data )
            #}
            else:#{
               for a in data[0].__annotations__:
                  box.prop( data[0], a )
            #}
         #}

         if active_object.type == 'ARMATURE': #{
            if active_object.mode == 'POSE': #{
               bones = active_object.data.bones
               mb = sr_get_mirror_bone( bones )
               if mb:#{
                  box.operator( "skaterift.mirror_bone", \
                                 text=F'Mirror attributes to {mb.name}' )
               #}

               _draw_prop_collection( [bones.active.SR_data ] )
            #}
            else: #{
               row = box.row()
               row.alignment='CENTER'
               row.scale_y=2.0
               row.enabled=False
               row.label( text="Enter pose mode to modify bone properties" )
            #}
         #}
         elif active_object.type == 'LIGHT': #{
            _draw_prop_collection( [active_object.data.SR_data] )
         #}
         elif active_object.type == 'EMPTY' or active_object.type == 'MESH': #{
            box.prop( active_object.SR_data, "ent_type" )
            ent_type = active_object.SR_data.ent_type
            
            col = getattr( active_object.SR_data, ent_type, None )
            if col != None and len(col)!=0: _draw_prop_collection( col )

            if active_object.type == 'MESH':#{
               col = getattr( active_object.data.SR_data, ent_type, None )
               if col != None and len(col)!=0: _draw_prop_collection( col )
            #}
         #}
      #}
   #}
#}

class SR_MATERIAL_PANEL(bpy.types.Panel):
#{
   bl_label="Skate Rift material"
   bl_idname="MATERIAL_PT_sr_material"
   bl_space_type='PROPERTIES'
   bl_region_type='WINDOW'
   bl_context="material"
   
   def draw(_,context):
   #{
      active_object = bpy.context.active_object
      if active_object == None: return
      active_mat = active_object.active_material
      if active_mat == None: return

      info = material_info( active_mat )

      if 'tex_diffuse' in info:#{
         _.layout.label( icon='INFO', \
            text=F"{info['tex_diffuse'].name} will be compiled" )
      #}

      _.layout.prop( active_mat.SR_data, "shader" )
      _.layout.prop( active_mat.SR_data, "surface_prop" )
      _.layout.prop( active_mat.SR_data, "collision" )

      if active_mat.SR_data.collision:#{
         _.layout.prop( active_mat.SR_data, "skate_surface" )
         _.layout.prop( active_mat.SR_data, "grind_surface" )
         _.layout.prop( active_mat.SR_data, "grow_grass" )
      #}

      if active_mat.SR_data.shader == "terrain_blend":#{
         box = _.layout.box()
         box.prop( active_mat.SR_data, "blend_offset" )
         box.prop( active_mat.SR_data, "sand_colour" )
      #}
      elif active_mat.SR_data.shader == "vertex_blend":#{
         box = _.layout.box()
         box.label( icon='INFO', text="Uses vertex colours, the R channel" )
         box.prop( active_mat.SR_data, "blend_offset" )
      #}
      elif active_mat.SR_data.shader == "water":#{
         box = _.layout.box()
         box.label( icon='INFO', text="Depth scale of 16 meters" )
         box.prop( active_mat.SR_data, "shore_colour" )
         box.prop( active_mat.SR_data, "ocean_colour" )
      #}
   #}
#}

def sr_get_type_enum( scene, context ):
#{
   items = [('none','None',"")]
   mesh_entities=['ent_gate','ent_water']
   point_entities=['ent_spawn','ent_route_node','ent_route']

   for e in point_entities: items += [(e,e,'')]

   if context.scene.SR_data.panel == 'ENTITY': #{
      if context.active_object.type == 'MESH': #{
         for e in mesh_entities: items += [(e,e,'')]
      #}
   #}
   else: #{
      for e in mesh_entities: items += [(e,e,'')]
   #}

   return items
#}

def sr_on_type_change( _, context ):
#{
   obj = context.active_object
   ent_type = obj.SR_data.ent_type
   if ent_type == 'none': return
   if obj.type == 'MESH':#{
      col = getattr( obj.data.SR_data, ent_type, None )
      if col != None and len(col)==0: col.add()
   #}
   
   col = getattr( obj.SR_data, ent_type, None )
   if col != None and len(col)==0: col.add()
#}

class SR_OBJECT_ENT_SPAWN(bpy.types.PropertyGroup):
#{
   alias: bpy.props.StringProperty( name='alias' )
#}

class SR_OBJECT_ENT_GATE(bpy.types.PropertyGroup):
#{
   target: bpy.props.PointerProperty( \
               type=bpy.types.Object, name="destination", \
               poll=lambda self,obj: sr_filter_ent_type(obj,'ent_gate'))
#}

class SR_MESH_ENT_GATE(bpy.types.PropertyGroup):
#{
   dimensions: bpy.props.FloatVectorProperty(name="dimensions",size=3)
#}

class SR_OBJECT_ENT_ROUTE_ENTRY(bpy.types.PropertyGroup):
#{
   target: bpy.props.PointerProperty( \
               type=bpy.types.Object, name='target', \
               poll=lambda self,obj: sr_filter_ent_type(obj,'ent_gate'))
#}

class SR_UL_ROUTE_NODE_LIST(bpy.types.UIList):
#{
   bl_idname = 'SR_UL_ROUTE_NODE_LIST'

   def draw_item(_,context,layout,data,item,icon,active_data,active_propname):
   #{
      layout.prop( item, 'target', text='', emboss=False )
   #}
#}

class SR_OT_ROUTE_LIST_NEW_ITEM(bpy.types.Operator):
#{
   bl_idname = "skaterift.new_entry"
   bl_label = "Add gate"
   
   def execute(self, context):#{
      active_object = context.active_object
      active_object.SR_data.ent_route[0].gates.add()
      return{'FINISHED'}
   #}
#}

class SR_OT_ROUTE_LIST_DEL_ITEM(bpy.types.Operator):
#{
   bl_idname = "skaterift.del_entry"
   bl_label = "Remove gate"

   @classmethod 
   def poll(cls, context):#{
      active_object = context.active_object
      if obj_ent_type == 'ent_gate':#{
         return active_object.SR_data.ent_route[0].gates
      #}
      else: return False
   #}
   
   def execute(self, context):#{
      active_object = context.active_object
      lista = active_object.SR_data.ent_route[0].gates
      index = active_object.SR_data.ent_route[0].gates_index
      lista.remove(index) 
      active_object.SR_data.ent_route[0].gates_index = \
            min(max(0, index-1), len(lista) - 1)
      return{'FINISHED'}
   #}
#}

class SR_OBJECT_ENT_ROUTE(bpy.types.PropertyGroup):
#{
   gates: bpy.props.CollectionProperty(type=SR_OBJECT_ENT_ROUTE_ENTRY)
   gates_index: bpy.props.IntProperty()

   colour: bpy.props.FloatVectorProperty( \
         name="Colour",\
         subtype='COLOR',\
         min=0.0,max=1.0,\
         default=Vector((0.79,0.63,0.48)),\
         description="Route colour"\
   )

   alias: bpy.props.StringProperty(\
          name="Alias",\
          default="Untitled Course")

   @staticmethod
   def sr_inspector( layout, data ):
   #{
      layout.prop( data[0], 'alias' )
      layout.prop( data[0], 'colour' )

      layout.label( text='Checkpoints' )
      layout.template_list('SR_UL_ROUTE_NODE_LIST', 'Checkpoints', \
                            data[0], 'gates', data[0], 'gates_index', rows=5)

      row = layout.row()
      row.operator( 'skaterift.new_entry', text='Add' )
      row.operator( 'skaterift.del_entry', text='Remove' )
   #}
#}

class SR_OBJECT_PROPERTIES(bpy.types.PropertyGroup):
#{
   ent_gate: bpy.props.CollectionProperty(type=SR_OBJECT_ENT_GATE)
   ent_spawn: bpy.props.CollectionProperty(type=SR_OBJECT_ENT_SPAWN)
   ent_route: bpy.props.CollectionProperty(type=SR_OBJECT_ENT_ROUTE)

   ent_type: bpy.props.EnumProperty(
      name="Type",
      items=[('none', 'None', '', 0),
             ('ent_gate','Gate','', 1),
             ('ent_spawn','Spawn','', 2),
             ('ent_route_node', 'Route Node', '', 3 ),
             ('ent_route', 'Route', '', 4),
             ('ent_water', 'Water Surface', '', 5)],
      update=sr_on_type_change
   )
#}

class SR_MESH_PROPERTIES(bpy.types.PropertyGroup):
#{
   ent_gate: bpy.props.CollectionProperty(type=SR_MESH_ENT_GATE)
#}

class SR_LIGHT_PROPERTIES(bpy.types.PropertyGroup):
#{
   daytime: bpy.props.BoolProperty( name='Daytime' )
#}

class SR_BONE_PROPERTIES(bpy.types.PropertyGroup):
#{
   collider: bpy.props.EnumProperty( name='Collider Type',
                                     items=[('0','none',''),
                                            ('1','box',''),
                                            ('2','capsule','')])

   collider_min: bpy.props.FloatVectorProperty( name='Collider Min', size=3 )
   collider_max: bpy.props.FloatVectorProperty( name='Collider Max', size=3 )

   cone_constraint: bpy.props.BoolProperty( name='Cone constraint' )

   conevx: bpy.props.FloatVectorProperty( name='vx' )
   conevy: bpy.props.FloatVectorProperty( name='vy' )
   coneva: bpy.props.FloatVectorProperty( name='va' )
   conet:  bpy.props.FloatProperty( name='t' )

   @staticmethod
   def sr_inspector( layout, data ):
   #{
      data = data[0]
      box = layout.box()
      box.prop( data, 'collider' )

      if int(data.collider)>0:#{
         row = box.row()
         row.prop( data, 'collider_min' )
         row = box.row()
         row.prop( data, 'collider_max' )
      #}
      
      box = layout.box()
      box.prop( data, 'cone_constraint' )
      if data.cone_constraint:#{
         row = box.row()
         row.prop( data, 'conevx' )
         row = box.row()
         row.prop( data, 'conevy' )
         row = box.row()
         row.prop( data, 'coneva' )
         box.prop( data, 'conet' )
      #}
   #}
#}

class SR_MATERIAL_PROPERTIES(bpy.types.PropertyGroup):
#{
   shader: bpy.props.EnumProperty( 
      name="Format", 
      items = [
      ('standard',"standard",''),
      ('standard_cutout', "standard_cutout", ''),
      ('terrain_blend', "terrain_blend", ''),
      ('vertex_blend', "vertex_blend", ''),
      ('water',"water",'')
      ])

   surface_prop: bpy.props.EnumProperty(
      name="Surface Property",
      items = [
      ('0','concrete',''),
      ('1','wood',''),
      ('2','grass',''),
      ('3','tiles',''),
      ('4','metal','')
      ])
   
   collision: bpy.props.BoolProperty( \
         name="Collisions Enabled",\
         default=True,\
         description = "Can the player collide with this material"\
   )
   skate_surface: bpy.props.BoolProperty( \
         name="Skate Surface", \
         default=True,\
         description = "Should the game try to target this surface?" \
   )
   grind_surface: bpy.props.BoolProperty( \
         name="Grind Surface", \
         default=False,\
         description = "Grind face?" \
   )
   grow_grass: bpy.props.BoolProperty( \
         name="Grow Grass", \
         default=False,\
         description = "Spawn grass sprites on this surface?" \
   )
   blend_offset: bpy.props.FloatVectorProperty( \
         name="Blend Offset", \
         size=2, \
         default=Vector((0.5,0.0)),\
         description="When surface is more than 45 degrees, add this vector " +\
                     "to the UVs" \
   )
   sand_colour: bpy.props.FloatVectorProperty( \
         name="Sand Colour",\
         subtype='COLOR',\
         min=0.0,max=1.0,\
         default=Vector((0.79,0.63,0.48)),\
         description="Blend to this colour near the 0 coordinate on UP axis"\
   )
   shore_colour: bpy.props.FloatVectorProperty( \
         name="Shore Colour",\
         subtype='COLOR',\
         min=0.0,max=1.0,\
         default=Vector((0.03,0.32,0.61)),\
         description="Water colour at the shoreline"\
   )
   ocean_colour: bpy.props.FloatVectorProperty( \
         name="Ocean Colour",\
         subtype='COLOR',\
         min=0.0,max=1.0,\
         default=Vector((0.0,0.006,0.03)),\
         description="Water colour in the deep bits"\
   )
#}

# ---------------------------------------------------------------------------- #
#                                                                              #
#                                 GUI section                                  #
#                                                                              #
# ---------------------------------------------------------------------------- #

cv_view_draw_handler = None
cv_view_shader = gpu.shader.from_builtin('3D_SMOOTH_COLOR')
cv_view_verts = []
cv_view_colours = []
cv_view_course_i = 0

# Draw axis alligned sphere at position with radius
#
def cv_draw_sphere( pos, radius, colour ):
#{
   global cv_view_verts, cv_view_colours
   
   ly = pos + Vector((0,0,radius))
   lx = pos + Vector((0,radius,0))
   lz = pos + Vector((0,0,radius))
   
   pi = 3.14159265358979323846264

   for i in range(16):
   #{
      t = ((i+1.0) * 1.0/16.0) * pi * 2.0
      s = math.sin(t)
      c = math.cos(t)

      py = pos + Vector((s*radius,0.0,c*radius))
      px = pos + Vector((s*radius,c*radius,0.0))
      pz = pos + Vector((0.0,s*radius,c*radius))

      cv_view_verts += [ px, lx ]
      cv_view_verts += [ py, ly ]
      cv_view_verts += [ pz, lz ]

      cv_view_colours += [ colour, colour, colour, colour, colour, colour ]

      ly = py
      lx = px
      lz = pz
   #}
   cv_draw_lines()
#}

# Draw axis alligned sphere at position with radius
#
def cv_draw_halfsphere( pos, tx, ty, tz, radius, colour ):
#{
   global cv_view_verts, cv_view_colours
   
   ly = pos + tz*radius
   lx = pos + ty*radius
   lz = pos + tz*radius
   
   pi = 3.14159265358979323846264

   for i in range(16):
   #{
      t = ((i+1.0) * 1.0/16.0) * pi
      s = math.sin(t)
      c = math.cos(t)

      s1 = math.sin(t*2.0)
      c1 = math.cos(t*2.0)

      py = pos + s*tx*radius +                c *tz*radius
      px = pos + s*tx*radius + c *ty*radius 
      pz = pos +               s1*ty*radius + c1*tz*radius

      cv_view_verts += [ px, lx ]
      cv_view_verts += [ py, ly ]
      cv_view_verts += [ pz, lz ]

      cv_view_colours += [ colour, colour, colour, colour, colour, colour ]

      ly = py
      lx = px
      lz = pz
   #}
   cv_draw_lines()
#}

# Draw transformed -1 -> 1 cube
#
def cv_draw_ucube( transform, colour, s=Vector((1,1,1)), o=Vector((0,0,0)) ):
#{
   global cv_view_verts, cv_view_colours

   a = o + -1.0 * s
   b = o +  1.0 * s
   
   vs = [None]*8
   vs[0] = transform @ Vector((a[0], a[1], a[2]))
   vs[1] = transform @ Vector((a[0], b[1], a[2]))
   vs[2] = transform @ Vector((b[0], b[1], a[2]))
   vs[3] = transform @ Vector((b[0], a[1], a[2]))
   vs[4] = transform @ Vector((a[0], a[1], b[2]))
   vs[5] = transform @ Vector((a[0], b[1], b[2]))
   vs[6] = transform @ Vector((b[0], b[1], b[2]))
   vs[7] = transform @ Vector((b[0], a[1], b[2]))

   indices = [(0,1),(1,2),(2,3),(3,0),(4,5),(5,6),(6,7),(7,4),\
              (0,4),(1,5),(2,6),(3,7)]

   for l in indices:
   #{
      v0 = vs[l[0]]
      v1 = vs[l[1]]
      cv_view_verts += [(v0[0],v0[1],v0[2])]
      cv_view_verts += [(v1[0],v1[1],v1[2])]
      cv_view_colours += [colour, colour]
   #}
   cv_draw_lines()
#}

# Draw line with colour
#
def cv_draw_line( p0, p1, colour ):
#{
   global cv_view_verts, cv_view_colours

   cv_view_verts += [p0,p1]
   cv_view_colours += [colour, colour]
   cv_draw_lines()
#}

# Draw line with colour(s)
#
def cv_draw_line2( p0, p1, c0, c1 ):
#{
   global cv_view_verts, cv_view_colours

   cv_view_verts += [p0,p1]
   cv_view_colours += [c0,c1]
   cv_draw_lines()
#}

# 
#
def cv_tangent_basis( n, tx, ty ):
#{
   if abs( n[0] ) >= 0.57735027:
   #{
      tx[0] =  n[1]
      tx[1] = -n[0]
      tx[2] =  0.0
   #}
   else:
   #{
      tx[0] =  0.0
      tx[1] =  n[2]
      tx[2] = -n[1]
   #}

   tx.normalize()
   _ty = n.cross( tx )

   ty[0] = _ty[0]
   ty[1] = _ty[1]
   ty[2] = _ty[2]
#}

# Draw coloured arrow
#
def cv_draw_arrow( p0, p1, c0, size=0.15 ):
#{
   global cv_view_verts, cv_view_colours

   n = p1-p0
   midpt = p0 + n*0.5
   n.normalize()

   tx = Vector((1,0,0))
   ty = Vector((1,0,0))
   cv_tangent_basis( n, tx, ty )
   
   cv_view_verts += [p0,p1, midpt+(tx-n)*size,midpt, midpt+(-tx-n)*size,midpt ]
   cv_view_colours += [c0,c0,c0,c0,c0,c0]
   cv_draw_lines()
#}

def cv_draw_line_dotted( p0, p1, c0, dots=10 ):
#{
   global cv_view_verts, cv_view_colours

   for i in range(dots):#{
      t0 = i/dots
      t1 = (i+0.25)/dots

      p2 = p0*(1.0-t0)+p1*t0
      p3 = p0*(1.0-t1)+p1*t1

      cv_view_verts += [p2,p3]
      cv_view_colours += [c0,c0]
   #}
   cv_draw_lines()
#}

# Drawhandles of a bezier control point
#
def cv_draw_bhandle( obj, direction, colour ):
#{
   global cv_view_verts, cv_view_colours

   p0 = obj.location
   h0 = obj.matrix_world @ Vector((0,direction,0))

   cv_view_verts += [p0]
   cv_view_verts += [h0]
   cv_view_colours += [colour,colour]
   cv_draw_lines()
#}

# Draw a bezier curve (at fixed resolution 10)
#
def cv_draw_bezier( p0,h0,p1,h1,c0,c1 ):
#{
   global cv_view_verts, cv_view_colours

   last = p0
   for i in range(10):
   #{
      t = (i+1)/10
      a0 = 1-t

      tt = t*t
      ttt = tt*t
      p=ttt*p1+(3*tt-3*ttt)*h1+(3*ttt-6*tt+3*t)*h0+(3*tt-ttt-3*t+1)*p0

      cv_view_verts += [(last[0],last[1],last[2])]
      cv_view_verts += [(p[0],p[1],p[2])]
      cv_view_colours += [c0*a0+c1*(1-a0),c0*a0+c1*(1-a0)]

      last = p
   #}
   cv_draw_lines()
#}

# I think this one extends the handles of the bezier otwards......
#
def cv_draw_sbpath( o0,o1,c0,c1,s0,s1 ):
#{
   global cv_view_course_i
   
   offs = ((cv_view_course_i % 2)*2-1) * cv_view_course_i * 0.02

   p0 = o0.matrix_world @ Vector((offs,  0,0))
   h0 = o0.matrix_world @ Vector((offs, s0,0))
   p1 = o1.matrix_world @ Vector((offs,  0,0))
   h1 = o1.matrix_world @ Vector((offs,-s1,0))

   cv_draw_bezier( p0,h0,p1,h1,c0,c1 )
   cv_draw_lines()
#}

# Flush the lines buffers. This is called often because god help you if you want
# to do fixed, fast buffers in this catastrophic programming language.
#
def cv_draw_lines():
#{
   global cv_view_shader, cv_view_verts, cv_view_colours

   if len(cv_view_verts) < 2:
      return

   lines = batch_for_shader(\
         cv_view_shader, 'LINES', \
         { "pos":cv_view_verts, "color":cv_view_colours })

   lines.draw( cv_view_shader )

   cv_view_verts = []
   cv_view_colours = []
#}

# I dont remember what this does exactly
#
def cv_draw_bpath( o0,o1,c0,c1 ):
#{
   cv_draw_sbpath( o0,o1,c0,c1,1.0,1.0 )
#}

# Semi circle to show the limit. and some lines
#
def draw_limit( obj, center, major, minor, amin, amax, colour ):
#{
   global cv_view_verts, cv_view_colours
   f = 0.05
   ay = major*f
   ax = minor*f

   for x in range(16):#{
      t0 = x/16
      t1 = (x+1)/16
      a0 = amin*(1.0-t0)+amax*t0
      a1 = amin*(1.0-t1)+amax*t1

      p0 = center + major*f*math.cos(a0) + minor*f*math.sin(a0)
      p1 = center + major*f*math.cos(a1) + minor*f*math.sin(a1)

      p0=obj.matrix_world @ p0
      p1=obj.matrix_world @ p1
      cv_view_verts += [p0,p1]
      cv_view_colours += [colour,colour]

      if x == 0:#{
         cv_view_verts += [p0,center]
         cv_view_colours += [colour,colour]
      #}
      if x == 15:#{
         cv_view_verts += [p1,center]
         cv_view_colours += [colour,colour]
      #}
   #}

   cv_view_verts += [center+major*1.2*f,center+major*f*0.8]
   cv_view_colours += [colour,colour]

   cv_draw_lines()
#}

# Cone and twist limit
#
def draw_cone_twist( center, vx, vy, va ):
#{
   global cv_view_verts, cv_view_colours
   axis = vy.cross( vx )
   axis.normalize()

   size = 0.12

   cv_view_verts += [center, center+va*size]
   cv_view_colours += [ (1,1,1,1), (1,1,1,1) ]

   for x in range(32):#{
      t0 = (x/32) * math.tau
      t1 = ((x+1)/32) * math.tau

      c0 = math.cos(t0)
      s0 = math.sin(t0)
      c1 = math.cos(t1)
      s1 = math.sin(t1)
      
      p0 = center + (axis + vx*c0 + vy*s0).normalized() * size
      p1 = center + (axis + vx*c1 + vy*s1).normalized() * size

      col0 = ( abs(c0), abs(s0), 0.0, 1.0 )
      col1 = ( abs(c1), abs(s1), 0.0, 1.0 )

      cv_view_verts += [center, p0, p0, p1]
      cv_view_colours += [ (0,0,0,0), col0, col0, col1 ]
   #}

   cv_draw_lines()
#}

# Draws constraints and stuff for the skeleton. This isnt documented and wont be
#
def draw_skeleton_helpers( obj ):
#{
   global cv_view_verts, cv_view_colours

   if obj.data.pose_position != 'REST':#{
      return
   #}

   for bone in obj.data.bones:#{
      c = bone.head_local
      a = Vector((bone.SR_data.collider_min[0], 
                  bone.SR_data.collider_min[1], 
                  bone.SR_data.collider_min[2]))
      b = Vector((bone.SR_data.collider_max[0], 
                  bone.SR_data.collider_max[1], 
                  bone.SR_data.collider_max[2]))

      if bone.SR_data.collider == '1':#{
         vs = [None]*8
         vs[0]=obj.matrix_world@Vector((c[0]+a[0],c[1]+a[1],c[2]+a[2]))
         vs[1]=obj.matrix_world@Vector((c[0]+a[0],c[1]+b[1],c[2]+a[2]))
         vs[2]=obj.matrix_world@Vector((c[0]+b[0],c[1]+b[1],c[2]+a[2]))
         vs[3]=obj.matrix_world@Vector((c[0]+b[0],c[1]+a[1],c[2]+a[2]))
         vs[4]=obj.matrix_world@Vector((c[0]+a[0],c[1]+a[1],c[2]+b[2]))
         vs[5]=obj.matrix_world@Vector((c[0]+a[0],c[1]+b[1],c[2]+b[2]))
         vs[6]=obj.matrix_world@Vector((c[0]+b[0],c[1]+b[1],c[2]+b[2]))
         vs[7]=obj.matrix_world@Vector((c[0]+b[0],c[1]+a[1],c[2]+b[2]))

         indices = [(0,1),(1,2),(2,3),(3,0),(4,5),(5,6),(6,7),(7,4),\
                    (0,4),(1,5),(2,6),(3,7)]

         for l in indices:#{
            v0 = vs[l[0]]
            v1 = vs[l[1]]

            cv_view_verts += [(v0[0],v0[1],v0[2])]
            cv_view_verts += [(v1[0],v1[1],v1[2])]
            cv_view_colours += [(0.5,0.5,0.5,0.5),(0.5,0.5,0.5,0.5)]
         #}
      #}
      elif bone.SR_data.collider == '2':#{
         v0 = b-a
         major_axis = 0
         largest = -1.0

         for i in range(3):#{
            if abs(v0[i]) > largest:#{
               largest = abs(v0[i])
               major_axis = i
            #}
         #}

         v1 = Vector((0,0,0))
         v1[major_axis] = 1.0

         tx = Vector((0,0,0))
         ty = Vector((0,0,0))

         cv_tangent_basis( v1, tx, ty )
         r = (abs(tx.dot( v0 )) + abs(ty.dot( v0 ))) * 0.25
         l = v0[ major_axis ] - r*2

         p0 = obj.matrix_world@Vector( c + (a+b)*0.5 + v1*l*-0.5 )
         p1 = obj.matrix_world@Vector( c + (a+b)*0.5 + v1*l* 0.5 )

         colour = [0.2,0.2,0.2,1.0]
         colour[major_axis] = 0.5

         cv_draw_halfsphere( p0, -v1, ty, tx, r, colour )
         cv_draw_halfsphere( p1,  v1, ty, tx, r, colour )
         cv_draw_line( p0+tx* r, p1+tx* r, colour )
         cv_draw_line( p0+tx*-r, p1+tx*-r, colour )
         cv_draw_line( p0+ty* r, p1+ty* r, colour )
         cv_draw_line( p0+ty*-r, p1+ty*-r, colour )
      #}
      else:#{
         continue
      #}

      center = obj.matrix_world @ c
      if bone.SR_data.cone_constraint:#{
         vx = Vector([bone.SR_data.conevx[_] for _ in range(3)])
         vy = Vector([bone.SR_data.conevy[_] for _ in range(3)])
         va = Vector([bone.SR_data.coneva[_] for _ in range(3)])
         draw_cone_twist( center, vx, vy, va )
      #}
   #}
#}

def cv_ent_gate( obj ):
#{
   global cv_view_verts, cv_view_colours

   if obj.type != 'MESH': return

   mesh_data = obj.data.SR_data.ent_gate[0]
   data = obj.SR_data.ent_gate[0]
   dims = mesh_data.dimensions

   vs = [None]*9
   c = Vector((0,0,dims[2]))

   vs[0] = obj.matrix_world @ Vector((-dims[0],0.0,-dims[1]+dims[2]))
   vs[1] = obj.matrix_world @ Vector((-dims[0],0.0, dims[1]+dims[2]))
   vs[2] = obj.matrix_world @ Vector(( dims[0],0.0, dims[1]+dims[2]))
   vs[3] = obj.matrix_world @ Vector(( dims[0],0.0,-dims[1]+dims[2]))
   vs[4] = obj.matrix_world @ (c+Vector((-1,0,-2)))
   vs[5] = obj.matrix_world @ (c+Vector((-1,0, 2)))
   vs[6] = obj.matrix_world @ (c+Vector(( 1,0, 2)))
   vs[7] = obj.matrix_world @ (c+Vector((-1,0, 0)))
   vs[8] = obj.matrix_world @ (c+Vector(( 1,0, 0)))

   indices = [(0,1),(1,2),(2,3),(3,0),(4,5),(5,6),(7,8)]

   for l in indices:#{
      v0 = vs[l[0]]
      v1 = vs[l[1]]
      cv_view_verts += [(v0[0],v0[1],v0[2])]
      cv_view_verts += [(v1[0],v1[1],v1[2])]
      cv_view_colours += [(1,1,0,1),(1,1,0,1)]
   #}

   sw = (0.4,0.4,0.4,0.2)
   if data.target != None:
      cv_draw_arrow( obj.location, data.target.location, sw )
#}

def dijkstra( graph, start_node, target_node ):
#{
   unvisited = [_ for _ in graph]
   shortest_path = {}
   previous_nodes = {}
   
   for n in unvisited:
      shortest_path[n] = 9999999.999999
   shortest_path[start_node] = 0

   while unvisited:#{
      current_min_node = None
      for n in unvisited:#{
         if current_min_node == None:
            current_min_node = n
         elif shortest_path[n] < shortest_path[current_min_node]:
            current_min_node = n
      #}

      for branch in graph[current_min_node]:#{
         tentative_value = shortest_path[current_min_node]
         tentative_value += graph[current_min_node][branch]
         if tentative_value < shortest_path[branch]:#{
            shortest_path[branch] = tentative_value
            previous_nodes[branch] = current_min_node
         #}
      #}

      unvisited.remove(current_min_node)
   #}
   
   path = []
   node = target_node
   while node != start_node:#{
      path.append(node)

      if node not in previous_nodes: return None
      node = previous_nodes[node]
   #}

   # Add the start node manually
   path.append(start_node)
   return path
#}

def node_graph( route_nodes ):
#{
   graph = {}
   for n in route_nodes:
      graph[n.name] = {}

   for i in range(len(route_nodes)-1):#{
      for j in range(i+1, len(route_nodes)):#{
         ni = route_nodes[i]
         nj = route_nodes[j]

         v0 = ni.location - nj.location

         gate = None

         if ni.SR_data.ent_type == 'ent_gate':
            gate = ni

         if nj.SR_data.ent_type == 'ent_gate':#{
            if gate: continue
            gate = nj
         #}

         if gate:#{
            v1 = gate.matrix_world.to_3x3() @ Vector((0,-1,0))
            if gate.SR_data.ent_gate[0].target:
               if v1.dot(v0) > 0.0: continue
            else:
               if v1.dot(v0) < 0.0: continue
         #}

         dist = v0.magnitude

         if dist > 25.0: continue
         graph[route_nodes[i].name][route_nodes[j].name] = dist
         graph[route_nodes[j].name][route_nodes[i].name] = dist
      #}
   #}

   return graph
#}

def cv_draw_route( route, route_nodes ):
#{
   pole = Vector((0.2,0.2,10))
   hat = Vector((1,8,0.2))
   cc = route.SR_data.ent_route[0].colour

   cv_draw_ucube(route.matrix_world,cc,Vector((0.5,-7.5,6)),\
                                       Vector((0,-6.5,5.5)))
   cv_draw_ucube(route.matrix_world,cc,pole, Vector(( 0.5, 0.5,0)) )
   cv_draw_ucube(route.matrix_world,cc,pole, Vector(( 0.5,-13.5,0)) )
   cv_draw_ucube(route.matrix_world,cc,hat, Vector((-0.5,-6.5, 12)) )
   cv_draw_ucube(route.matrix_world,cc,hat, Vector((-0.5,-6.5,-1)) )

   checkpoints = route.SR_data.ent_route[0].gates
   graph = node_graph( route_nodes )

   for i in range(len(checkpoints)):#{
      gi = checkpoints[i].target
      gj = checkpoints[(i+1)%len(checkpoints)].target

      if gi:#{
         dest = gi.SR_data.ent_gate[0].target
         if dest:
            cv_draw_line_dotted( gi.location, dest.location, cc )
         gi = dest
      #}

      if gi==gj: continue # error?
      if not gi or not gj: continue

      path = dijkstra( graph, gj.name, gi.name )

      if path:#{
         for sj in range(len(path)-1):#{
            o0 = bpy.data.objects[ path[sj] ]
            o1 = bpy.data.objects[ path[sj+1] ]
            cv_draw_arrow(o0.location,o1.location,cc,1.5)
         #}
      #}
      else:#{
         cv_draw_line_dotted( gi.location, gj.location, cc )
      #}
   #}
#}

def cv_draw():
#{
   global cv_view_shader
   global cv_view_verts
   global cv_view_colours
   global cv_view_course_i

   cv_view_course_i = 0
   cv_view_verts = []
   cv_view_colours = []

   cv_view_shader.bind()
   gpu.state.depth_mask_set(False)
   gpu.state.line_width_set(2.0)
   gpu.state.face_culling_set('BACK')
   gpu.state.depth_test_set('LESS')
   gpu.state.blend_set('NONE')

   route_nodes = []
   routes = []

   for obj in bpy.context.collection.objects:#{
      if obj.type == 'ARMATURE':#{
         if obj.data.pose_position == 'REST':
            draw_skeleton_helpers( obj )
      #}
      else:#{
         ent_type = obj_ent_type( obj )

         if ent_type == 'ent_gate':#{
            cv_ent_gate( obj )
            route_nodes += [obj]
         #}
         elif ent_type == 'ent_route_node':
            route_nodes += [obj]
         elif ent_type == 'ent_route':
            routes += [obj]
      #}
   #}
   
   #cv_draw_route_map( route_nodes )
   for route in routes:#{
      cv_draw_route( route, route_nodes )
   #}

   cv_draw_lines()
   return
#}

classes = [ SR_INTERFACE, SR_MATERIAL_PANEL,\
            SR_COLLECTION_SETTINGS, SR_SCENE_SETTINGS, \
            SR_COMPILE, SR_COMPILE_THIS, SR_MIRROR_BONE_X,\
            \
            SR_OBJECT_ENT_GATE, SR_MESH_ENT_GATE, SR_OBJECT_ENT_SPAWN, \
            SR_OBJECT_ENT_ROUTE_ENTRY, SR_UL_ROUTE_NODE_LIST, \
            SR_OBJECT_ENT_ROUTE, SR_OT_ROUTE_LIST_NEW_ITEM,
            SR_OT_ROUTE_LIST_DEL_ITEM,\
            \
            SR_OBJECT_PROPERTIES, SR_LIGHT_PROPERTIES, SR_BONE_PROPERTIES, 
            SR_MESH_PROPERTIES, SR_MATERIAL_PROPERTIES \
           ]

def register():
#{
   for c in classes:
      bpy.utils.register_class(c)

   bpy.types.Scene.SR_data = \
         bpy.props.PointerProperty(type=SR_SCENE_SETTINGS)
   bpy.types.Collection.SR_data = \
         bpy.props.PointerProperty(type=SR_COLLECTION_SETTINGS)

   bpy.types.Object.SR_data = \
         bpy.props.PointerProperty(type=SR_OBJECT_PROPERTIES)
   bpy.types.Light.SR_data = \
         bpy.props.PointerProperty(type=SR_LIGHT_PROPERTIES)
   bpy.types.Bone.SR_data = \
         bpy.props.PointerProperty(type=SR_BONE_PROPERTIES)
   bpy.types.Mesh.SR_data = \
         bpy.props.PointerProperty(type=SR_MESH_PROPERTIES)
   bpy.types.Material.SR_data = \
         bpy.props.PointerProperty(type=SR_MATERIAL_PROPERTIES)

   global cv_view_draw_handler
   cv_view_draw_handler = bpy.types.SpaceView3D.draw_handler_add(\
      cv_draw,(),'WINDOW','POST_VIEW')
#}

def unregister():
#{
   for c in classes:
      bpy.utils.unregister_class(c)

   global cv_view_draw_handler
   bpy.types.SpaceView3D.draw_handler_remove(cv_view_draw_handler,'WINDOW')
#}

# ---------------------------------------------------------------------------- #
#                                                                              #
#                                 QOI encoder                                  #
#                                                                              #
# ---------------------------------------------------------------------------- #
#                                                                              #
# Transliteration of:                                                          #
#    https://github.com/phoboslab/qoi/blob/master/qoi.h                        #
#                                                                              #
# Copyright (c) 2021, Dominic Szablewski - https://phoboslab.org               #
# SPDX-License-Identifier: MIT                                                 #
# QOI - The "Quite OK Image" format for fast, lossless image compression       #
#                                                                              #
# ---------------------------------------------------------------------------- #

class qoi_rgba_t(Structure):
#{
   _pack_ = 1
   _fields_ = [("r",c_uint8),
               ("g",c_uint8),
               ("b",c_uint8),
               ("a",c_uint8)]
#}

QOI_OP_INDEX  = 0x00 # 00xxxxxx
QOI_OP_DIFF   = 0x40 # 01xxxxxx
QOI_OP_LUMA   = 0x80 # 10xxxxxx
QOI_OP_RUN    = 0xc0 # 11xxxxxx
QOI_OP_RGB    = 0xfe # 11111110
QOI_OP_RGBA   = 0xff # 11111111

QOI_MASK_2    = 0xc0 # 11000000

def qoi_colour_hash( c ):
#{
   return c.r*3 + c.g*5 + c.b*7 + c.a*11
#}

def qoi_eq( a, b ):
#{
   return (a.r==b.r) and (a.g==b.g) and (a.b==b.b) and (a.a==b.a)
#}

def qoi_32bit( v ):
#{
   return bytearray([ (0xff000000 & v) >> 24, \
                      (0x00ff0000 & v) >> 16, \
                      (0x0000ff00 & v) >> 8, \
                      (0x000000ff & v) ])
#}

def qoi_encode( img ):
#{
   data = bytearray()
   
   print(F"{' ':<30}",end='\r')
   print(F"[QOI] Encoding {img.name}.qoi[{img.size[0]},{img.size[1]}]",end='\r')

   index = [ qoi_rgba_t() for _ in range(64) ]

   # Header
   #
   data.extend( bytearray(c_uint32(0x66696f71)) )
   data.extend( qoi_32bit( img.size[0] ) )
   data.extend( qoi_32bit( img.size[1] ) )
   data.extend( bytearray(c_uint8(4)) )
   data.extend( bytearray(c_uint8(0)) )

   run = 0
   px_prev = qoi_rgba_t()
   px_prev.r = c_uint8(0)
   px_prev.g = c_uint8(0)
   px_prev.b = c_uint8(0)
   px_prev.a = c_uint8(255)

   px = qoi_rgba_t()
   px.r = c_uint8(0)
   px.g = c_uint8(0)
   px.b = c_uint8(0)
   px.a = c_uint8(255)

   px_len = img.size[0] * img.size[1]
   paxels = [ int(min(max(_,0),1)*255) for _ in img.pixels ]

   for px_pos in range( px_len ): #{
      idx = px_pos * img.channels
      nc = img.channels-1

      px.r = paxels[idx+min(0,nc)]
      px.g = paxels[idx+min(1,nc)]
      px.b = paxels[idx+min(2,nc)]
      px.a = paxels[idx+min(3,nc)]

      if qoi_eq( px, px_prev ): #{
         run += 1

         if (run == 62) or (px_pos == px_len-1): #{
            data.extend( bytearray( c_uint8(QOI_OP_RUN | (run-1))) )
            run = 0
         #}
      #}
      else: #{
         if run > 0: #{
            data.extend( bytearray( c_uint8(QOI_OP_RUN | (run-1))) )
            run = 0
         #}

         index_pos = qoi_colour_hash(px) % 64

         if qoi_eq( index[index_pos], px ): #{
            data.extend( bytearray( c_uint8(QOI_OP_INDEX | index_pos)) )
         #}
         else: #{
            index[ index_pos ].r = px.r
            index[ index_pos ].g = px.g
            index[ index_pos ].b = px.b
            index[ index_pos ].a = px.a

            if px.a == px_prev.a: #{
               vr = int(px.r) - int(px_prev.r)
               vg = int(px.g) - int(px_prev.g)
               vb = int(px.b) - int(px_prev.b)

               vg_r = vr - vg
               vg_b = vb - vg

               if (vr > -3) and (vr < 2) and\
                  (vg > -3) and (vg < 2) and\
                  (vb > -3) and (vb < 2):
               #{
                  op = QOI_OP_DIFF | (vr+2) << 4 | (vg+2) << 2 | (vb+2)
                  data.extend( bytearray( c_uint8(op) ))
               #}
               elif (vg_r > -9) and (vg_r < 8) and\
                    (vg  > -33) and (vg < 32 ) and\
                    (vg_b > -9) and (vg_b < 8):
               #{
                  op = QOI_OP_LUMA | (vg+32)
                  delta = (vg_r+8) << 4 | (vg_b + 8)
                  data.extend( bytearray( c_uint8(op) ) )
                  data.extend( bytearray( c_uint8(delta) ))
               #}
               else: #{
                  data.extend( bytearray( c_uint8(QOI_OP_RGB) ) )
                  data.extend( bytearray( c_uint8(px.r) ))
                  data.extend( bytearray( c_uint8(px.g) ))
                  data.extend( bytearray( c_uint8(px.b) ))
               #}
            #}
            else: #{
               data.extend( bytearray( c_uint8(QOI_OP_RGBA) ) )
               data.extend( bytearray( c_uint8(px.r) ))
               data.extend( bytearray( c_uint8(px.g) ))
               data.extend( bytearray( c_uint8(px.b) ))
               data.extend( bytearray( c_uint8(px.a) ))
            #}
         #}
      #}

      px_prev.r = px.r
      px_prev.g = px.g
      px_prev.b = px.b
      px_prev.a = px.a
   #}
   
   # Padding
   for i in range(7):
      data.extend( bytearray( c_uint8(0) ))
   data.extend( bytearray( c_uint8(1) ))
   bytearray_align_to( data, 16, b'\x00' )

   return data
#}