'''
by Dealga McArdle, july 2011.

BEGIN GPL LICENSE BLOCK

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,
Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

END GPL LICENCE BLOCK
'''

bl_info = {
    'name': 'Normalize Spline',
    'author': 'Dealga McArdle (zeffii)',
    'version': (0, 0, 1),
    'blender': (2, 6, 7),
    'location': '3d view > Tool properties > Normalize Spline',
    'description': 'select a spline/curve, drag the slidersit will fillet the edge.',
    'wiki_url': '',
    'tracker_url': '',
    'category': 'Mesh'}


'''
[ ] force to be in object mode with curve selected.
[ ] take total_resolution = segments ...
[ ] segment_length = (tota_length/total_res)

[ ] consume algorithm, for each edge in temporary polyline

    current_position = 0.0
    current_node = 0

    for point in polyline[1:]:
        if current_position + polyline
        if edge < segment_length:
        if edge longer than segment_length consume

'''



import math

import bpy
import bgl
import blf
import mathutils
import bpy_extras

from mathutils import Vector
from mathutils.geometry import interpolate_bezier
from bpy_extras.view3d_utils import location_3d_to_region_2d as loc3d2d

def get_points(spline, clean=True, res=False):
    cyclic = True
    knots = spline.bezier_points

    if len(knots) < 2:
        return

    r = (res if res else spline.resolution_u) + 1
    segments = len(knots)

    if not spline.use_cyclic_u:
        cyclic = False
        segments -= 1

    master_point_list = []
    for i in range(segments):
        inext = (i + 1) % len(knots)

        knot1 = knots[i].co
        handle1 = knots[i].handle_right
        handle2 = knots[inext].handle_left
        knot2 = knots[inext].co

        bezier = knot1, handle1, handle2, knot2, r
        points = interpolate_bezier(*bezier)
        master_point_list.extend(points)

    # some clean up to remove consecutive doubles, this could be smarter...
    if clean:
        old = master_point_list
        good = [v for i, v in enumerate(old[:-1]) if not old[i] == old[i+1]]
        good.append(old[-1])
        return good, cyclic

    return master_point_list, cyclic

def get_edge_keys(points, cyclic):
    num_points = len(points)
    edges = [[i, i+1] for i in range(num_points-1)]
    if cyclic:
        edges[-1][1] = edges[0][0]

    return edges

def get_total_length(points, edge_keys):
    edge_length = 0
    for edge in edge_keys:
        vert0 = points[edge[0]]
        vert1 = points[edge[1]]
        edge_length += (vert0-vert1).length
    return edge_length


def draw_points(context, points, size, gl_col):
    region = context.region
    rv3d = context.space_data.region_3d

    this_object = context.active_object
    matrix_world = this_object.matrix_world

    # needed for adjusting the size of gl_points
    bgl.glEnable(bgl.GL_POINT_SMOOTH)
    bgl.glPointSize(size)
    bgl.glBlendFunc(bgl.GL_SRC_ALPHA, bgl.GL_ONE_MINUS_SRC_ALPHA)

    bgl.glBegin(bgl.GL_POINTS)
    bgl.glColor4f(*gl_col)
    for coord in points:
        # vector3d = matrix_world * (coord.x, coord.y, coord.z)
        vector3d = matrix_world * coord
        vector2d = loc3d2d(region, rv3d, vector3d)
        bgl.glVertex2f(*vector2d)
    bgl.glEnd()

    bgl.glDisable(bgl.GL_POINT_SMOOTH)
    bgl.glDisable(bgl.GL_POINTS)
    return

def draw_callback_px(self, context):

    region = context.region
    rv3d = context.space_data.region_3d

    spline = context.active_object.data.splines[0]
    points, cyclic = get_points(spline, clean=True, res=False)
    #edge_keys = get_edge_keys(points, cyclic)
    #total_length = get_total_length(points, edge_keys)

    draw_points(context, points, 4.2, (0.2, 0.9, 0.9, .2))

    # restore opengl defaults
    bgl.glLineWidth(1)
    bgl.glDisable(bgl.GL_BLEND)
    bgl.glColor4f(0.0, 0.0, 0.0, 1.0)
    return



# create 4 verts, string them together to make 4 edges.
if False:
    Verts, Edges = [], []

    profile_mesh = bpy.data.meshes.new("Base_Profile_Data")
    profile_mesh.from_pydata(Verts, Edges, [])
    profile_mesh.update()

    profile_object = bpy.data.objects.new("Base_Profile", profile_mesh)
    profile_object.data = profile_mesh

    scene = bpy.context.scene
    scene.objects.link(profile_object)
    profile_object.select = True


class OBJECT_OT_draw_fillet(bpy.types.Operator):
    bl_idname = "dynamic.normalize"
    bl_label = "Draw Normalized"
    bl_description = "Allows the user to dynamically set curve resolution"
    bl_options = {'REGISTER', 'UNDO'}

    # i understand that a lot of these ifs are redundant, scheduled for
    # deletion. is 'RELEASE' redundant for keys?

    def modal(self, context, event):
        context.area.tag_redraw()
        return {'PASS_THROUGH'}

    def invoke(self, context, event):

        if context.area.type == 'VIEW_3D':
            context.area.tag_redraw()
            context.window_manager.modal_handler_add(self)

            # Add the region OpenGL drawing callback
            # draw in view space with 'POST_VIEW' and 'PRE_VIEW'
            self._handle = context.region.callback_add(
                            draw_callback_px,
                            (self, context),
                            'POST_PIXEL')

            return {'RUNNING_MODAL'}
        else:
            self.report({'WARNING'},
            "View3D not found, cannot run operator")
            context.area.tag_redraw()
            return {'CANCELLED'}



class UIPanel(bpy.types.Panel):
    bl_label = "Spline Normalize"
    bl_space_type = "VIEW_3D"
    bl_region_type = "TOOL_PROPS"

    scn = bpy.types.Scene

    scn.NumVerts = bpy.props.IntProperty(min=2, max=64, default=12,
                                            name="number of verts")

    #scn.SplineResolution = bpy.props.IntProperty(min=2, max=64, default=12,
    #                                        name="number of verts")

    @classmethod
    def poll(self, context):
        # i don't really care if this is in editmode or object mode
        return context.object.type == 'CURVE'


    def draw(self, context):
        layout = self.layout
        scn = context.scene

        row1 = layout.row(align=True)
        row1.prop(scn, "NumVerts", expand = True)

        row2 = layout.row(align=True)
        row2.operator("dynamic.normalize")


# boilerplate register stuff

def register():
    bpy.utils.register_module(__name__)

def unregister():
    bpy.utils.unregister_module(__name__)

if __name__ == "__main__":
    register()