/* veejay - Linux VeeJay
 *       (C) 2002-2004 Niels Elburg <nwelburg@gmail.com> 
 *
 *
 * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#include <libvje/effects/common.h>
#include <veejaycore/vjmem.h>
#include "transop.h"
#include "wipe.h"

typedef struct {
    double g_wipe_width;
    double g_wipe_height;
} fx_wipe_t;

vj_effect *wipe_init(int w,int h)
{
    vj_effect *ve = (vj_effect *) vj_calloc(sizeof(vj_effect));
    ve->num_params = 2;
    ve->defaults = (int *) vj_calloc(sizeof(int) * ve->num_params);
    ve->limits[0] = (int *) vj_calloc(sizeof(int) * ve->num_params);
    ve->limits[1] = (int *) vj_calloc(sizeof(int) * ve->num_params);
    ve->defaults[0] = 0;
    ve->defaults[1] = 0;

    ve->limits[0][0] = 0;
    ve->limits[1][0] = (w > h ? w: h);
    ve->limits[0][1] = 0;
    ve->limits[1][1] = 1;
    ve->description = "Transition Wipe";
    ve->sub_format = 1;
    ve->extra_frame = 1;
    ve->has_user = 0;
    ve->param_description = vje_build_param_list(ve->num_params, "Speed", "Restart" );
    ve->is_transition_ready_func = wipe_ready;
    return ve;

}

typedef struct {
    double g_wipe_width;
    double g_wipe_height;
} wipe_t;

int  wipe_ready(void *ptr, int width, int height) { 
    wipe_t *w = (wipe_t*) ptr;
    if (w->g_wipe_width == width && w->g_wipe_height == height)
	    return TRANSITION_COMPLETED;
    return TRANSITION_RUNNING;
}

void *wipe_malloc( int w, int h )
{
    fx_wipe_t *prv = (fx_wipe_t*) vj_calloc(sizeof(fx_wipe_t));
    return prv;
}

void wipe_free(void *ptr)
{
    free(ptr);
}


void wipe_apply( void *ptr, VJFrame *frame, VJFrame *frame2, int *args ) {
    int inc = args[0];
    int restart = args[1];

    const unsigned int width = frame->width;
    const unsigned int height = frame->height;
    double ratio = (double) width / (double) height;
    wipe_t *w = (wipe_t*) ptr;

  
    int transop_args[6] = { (int) w->g_wipe_width,(int) w->g_wipe_height, 0,0,0,0 };

    transop_apply(NULL, frame, frame2,transop_args );
    
    w->g_wipe_width += ratio * ((double ) inc);
    w->g_wipe_height += ((double) inc);

    if(w->g_wipe_width > width && w->g_wipe_height > height) {
        w->g_wipe_width = width;
        w->g_wipe_height = height;
    }
    if(restart) {
        w->g_wipe_width = 0;
        w->g_wipe_height = 0;
    }
}