/*
 * filter_watermark.c -- watermark filter
 * Copyright (C) 2003-2014 Meltytech, LLC
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include <framework/mlt_factory.h>
#include <framework/mlt_filter.h>
#include <framework/mlt_frame.h>
#include <framework/mlt_producer.h>
#include <framework/mlt_transition.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

/** Do it :-).
*/

static int filter_get_image(mlt_frame frame,
                            uint8_t **image,
                            mlt_image_format *format,
                            int *width,
                            int *height,
                            int writable)
{
    // Error we will return
    int error = 0;

    // Get the watermark filter object
    mlt_filter filter = mlt_frame_pop_service(frame);

    // Get the properties of the filter
    mlt_properties properties = MLT_FILTER_PROPERTIES(filter);

    mlt_service_lock(MLT_FILTER_SERVICE(filter));

    // Get the producer from the filter
    mlt_producer producer = mlt_properties_get_data(properties, "producer", NULL);

    // Get the composite from the filter
    mlt_transition composite = mlt_properties_get_data(properties, "composite", NULL);

    // Get the resource to use
    char *resource = mlt_properties_get(properties, "resource");

    // Get the old resource
    char *old_resource = mlt_properties_get(properties, "_old_resource");

    // Create a composite if we don't have one
    if (composite == NULL) {
        // Create composite via the factory
        mlt_profile profile = mlt_service_profile(MLT_FILTER_SERVICE(filter));
        composite = mlt_factory_transition(profile, "composite", NULL);

        // Register the composite for reuse/destruction
        if (composite != NULL)
            mlt_properties_set_data(properties,
                                    "composite",
                                    composite,
                                    0,
                                    (mlt_destructor) mlt_transition_close,
                                    NULL);
    }

    // If we have one
    if (composite != NULL) {
        // Get the properties
        mlt_properties composite_properties = MLT_TRANSITION_PROPERTIES(composite);

        // Pass all the composite. properties on the filter down
        mlt_properties_pass(composite_properties, properties, "composite.");

        if (mlt_properties_get(properties, "composite.out") == NULL)
            mlt_properties_set_int(composite_properties,
                                   "out",
                                   mlt_properties_get_int(properties, "_out"));

        // Force a refresh
        mlt_properties_set_int(composite_properties, "refresh", 1);
    }

    // Create a producer if don't have one
    if (producer == NULL || (old_resource != NULL && strcmp(resource, old_resource))) {
        // Get the factory producer service
        char *factory = mlt_properties_get(properties, "factory");

        // Create the producer
        mlt_profile profile = mlt_service_profile(MLT_FILTER_SERVICE(filter));
        producer = mlt_factory_producer(profile, factory, resource);

        // If we have one
        if (producer != NULL) {
            // Register the producer for reuse/destruction
            mlt_properties_set_data(properties,
                                    "producer",
                                    producer,
                                    0,
                                    (mlt_destructor) mlt_producer_close,
                                    NULL);

            // Ensure that we loop
            mlt_properties_set(MLT_PRODUCER_PROPERTIES(producer), "eof", "loop");

            // Set the old resource
            mlt_properties_set(properties, "_old_resource", resource);
        }
    }

    if (producer != NULL) {
        // Get the producer properties
        mlt_properties producer_properties = MLT_PRODUCER_PROPERTIES(producer);

        // Now pass all producer. properties on the filter down
        mlt_properties_pass(producer_properties, properties, "producer.");
    }

    mlt_service_unlock(MLT_FILTER_SERVICE(filter));

    // Process all remaining filters first
    *format = mlt_image_yuv422;
    error = mlt_frame_get_image(frame, image, format, width, height, 0);

    // Only continue if we have both producer and composite
    if (!error && composite != NULL && producer != NULL) {
        // Get the service of the producer
        mlt_service service = MLT_PRODUCER_SERVICE(producer);

        // Create a temporary frame so the original stays in tact.
        mlt_frame a_frame = mlt_frame_clone(frame, 0);

        // We will get the 'b frame' from the producer
        mlt_frame b_frame = NULL;

        // Get the original producer position
        mlt_position position = mlt_filter_get_position(filter, frame);

        // Make sure the producer is in the correct position
        mlt_producer_seek(producer, position);

        // Resetting position to appease the composite transition
        mlt_frame_set_position(a_frame, position);

        // Get the b frame and process with composite if successful
        if (mlt_service_get_frame(service, &b_frame, 0) == 0) {
            // Get the a and b frame properties
            mlt_properties a_props = MLT_FRAME_PROPERTIES(a_frame);
            mlt_properties b_props = MLT_FRAME_PROPERTIES(b_frame);
            mlt_profile profile = mlt_service_profile(service);

            // Set the b frame to be in the same position and have same consumer requirements
            mlt_frame_set_position(b_frame, position);
            mlt_properties_set_int(b_props,
                                   "consumer.progressive",
                                   mlt_properties_get_int(a_props, "consumer.progressive")
                                       || mlt_properties_get_int(properties, "deinterlace"));

            // Check for the special case - no aspect ratio means no problem :-)
            if (mlt_frame_get_aspect_ratio(b_frame) == 0)
                mlt_frame_set_aspect_ratio(b_frame, mlt_profile_sar(profile));
            if (mlt_frame_get_aspect_ratio(a_frame) == 0)
                mlt_frame_set_aspect_ratio(a_frame, mlt_profile_sar(profile));

            if (mlt_properties_get_int(properties, "distort")) {
                mlt_properties_set_int(MLT_TRANSITION_PROPERTIES(composite), "distort", 1);
                mlt_properties_set_int(a_props, "distort", 1);
                mlt_properties_set_int(b_props, "distort", 1);
            }

            *format = mlt_image_yuv422;
            if (mlt_properties_get_int(properties, "reverse") == 0) {
                // Apply all filters that are attached to this filter to the b frame
                mlt_service_apply_filters(MLT_FILTER_SERVICE(filter), b_frame, 0);

                // Process the frame
                mlt_transition_process(composite, a_frame, b_frame);

                // Get the image
                error = mlt_frame_get_image(a_frame, image, format, width, height, 1);
            } else {
                char temp[132];
                int count = 0;
                uint8_t *alpha = NULL;
                const char *rescale = mlt_properties_get(a_props, "consumer.rescale");
                if (rescale == NULL || !strcmp(rescale, "none"))
                    rescale = "hyper";
                mlt_transition_process(composite, b_frame, a_frame);
                mlt_properties_set_int(a_props, "consumer.progressive", 1);
                mlt_properties_set_int(b_props, "consumer.progressive", 1);
                mlt_properties_set(a_props, "consumer.rescale", rescale);
                mlt_properties_set(b_props, "consumer.rescale", rescale);
                mlt_service_apply_filters(MLT_FILTER_SERVICE(filter), b_frame, 0);
                error = mlt_frame_get_image(b_frame, image, format, width, height, 1);
                alpha = mlt_frame_get_alpha(b_frame);
                mlt_frame_set_image(frame, *image, *width * *height * 2, NULL);
                if (alpha)
                    mlt_frame_set_alpha(frame, alpha, *width * *height, NULL);
                mlt_properties_set_int(a_props, "width", *width);
                mlt_properties_set_int(a_props, "height", *height);
                mlt_properties_set_int(a_props, "progressive", 1);
                mlt_properties_inc_ref(b_props);
                strcpy(temp, "_b_frame");
                while (mlt_properties_get_data(a_props, temp, NULL) != NULL)
                    sprintf(temp, "_b_frame%d", count++);
                mlt_properties_set_data(a_props,
                                        temp,
                                        b_frame,
                                        0,
                                        (mlt_destructor) mlt_frame_close,
                                        NULL);
            }
        }

        // Close the temporary frames
        mlt_frame_close(a_frame);
        mlt_frame_close(b_frame);
    }

    return error;
}

/** Filter processing.
*/

static mlt_frame filter_process(mlt_filter filter, mlt_frame frame)
{
    // Get the properties of the frame
    mlt_properties properties = MLT_FRAME_PROPERTIES(frame);

    // Assign the frame out point to the filter (just in case we need it later)
    mlt_properties_set_int(MLT_FILTER_PROPERTIES(filter),
                           "_out",
                           mlt_properties_get_int(properties, "out"));

    // Push the filter on to the stack
    mlt_frame_push_service(frame, filter);

    // Push the get_image on to the stack
    mlt_frame_push_get_image(frame, filter_get_image);

    return frame;
}

/** Constructor for the filter.
*/

mlt_filter filter_watermark_init(mlt_profile profile,
                                 mlt_service_type type,
                                 const char *id,
                                 char *arg)
{
    mlt_filter filter = mlt_filter_new();
    if (filter != NULL) {
        mlt_properties properties = MLT_FILTER_PROPERTIES(filter);
        filter->process = filter_process;
        mlt_properties_set(properties, "factory", mlt_environment("MLT_PRODUCER"));
        if (arg != NULL)
            mlt_properties_set(properties, "resource", arg);
        // Ensure that attached filters are handled privately
        mlt_properties_set_int(properties, "_filter_private", 1);
    }
    return filter;
}
