/*
 * This software is licensed under the terms of the MIT-License
 * See COPYING for further information.
 * ---
 * Copyright (c) 2011-2018, Lukas Weber <laochailan@web.de>.
 * Copyright (c) 2012-2018, Andrei Alexeyev <akari@alienslab.net>.
 */

#include "taisei.h"

#include "aniplayer.h"
#include "list.h"
#include "global.h"
#include "stageobjects.h"
#include "objectpool_util.h"

void aniplayer_create(AniPlayer *plr, Animation *ani) {
	memset(plr,0,sizeof(AniPlayer));
	plr->ani = ani;
}

int aniplayer_get_frame(AniPlayer *plr) {
	int col = (plr->clock/plr->ani->speed) % plr->ani->cols;
	int row = plr->stdrow;
	int speed = plr->ani->speed;
	bool mirror = plr->mirrored;
	if(plr->queue) {
		AniSequence *s = plr->queue;
		if(s->speed > 0)
			speed = s->speed;
		col = (s->clock/speed) % plr->ani->cols;
		if(s->backwards)
			col = ((s->duration-s->clock)/speed) % plr->ani->cols;
		row = s->row;

		mirror = s->mirrored;
	}

	return plr->ani->rows*plr->ani->cols*mirror+row*plr->ani->cols+col;
}

void aniplayer_free(AniPlayer *plr) {
	plr->queuesize = 0; // prevent aniplayer_reset from messing with the queue, since we're going to wipe all of it anyway
	list_free_all(&plr->queue);
	aniplayer_reset(plr);
}

void aniplayer_reset(AniPlayer *plr) { // resets to a neutral state with empty queue.
	plr->stdrow = 0;
	if(plr->queuesize > 0) { // abort the animation in the fastest fluent way.
		list_free_all(&plr->queue->next);
		plr->queuesize = 1;
		plr->queue->delay = 0;
	}
}

AniSequence *aniplayer_queue(AniPlayer *plr, int row, int loops, int delay) {
	AniSequence *s = calloc(1, sizeof(AniSequence));
	list_append(&plr->queue, s);
	plr->queuesize++;
	s->row = row;

	if(loops < 0)
		log_fatal("Negative number of loops passed: %d",loops);

	s->duration = (loops+1)*plr->ani->cols*plr->ani->speed;
	s->delay = delay;
	s->mirrored = plr->mirrored;

	return s;
}

AniSequence *aniplayer_queue_pro(AniPlayer *plr, int row, int start, int end, int delay, int speed) {
	AniSequence *s = aniplayer_queue(plr,row,0,delay);
	// i bet you didn’t expect the _pro function calling the plain one
	s->speed = speed;

	if(speed <= 0)
		speed = plr->ani->speed;
	s->duration = end*speed;
	s->clock = start*speed;
	return s;
}

void aniplayer_update(AniPlayer *plr) {
	plr->clock++;
	if(plr->queue) {
		AniSequence *s = plr->queue;
		if(s->clock < s->duration) {
			s->clock++;
		} else if(s->delay > 0) {
			s->delay--;
		} else {
			free(list_pop(&plr->queue));
			plr->queuesize--;
			plr->clock = 0;
		}
	}
}

void play_animation_frame(Animation *ani, float x, float y, int frame) {
	int mirror = frame/(ani->cols*ani->rows);
	frame = frame%(ani->cols*ani->rows);

	if(mirror) {
		glPushMatrix();
		glCullFace(GL_FRONT);
		glTranslatef(x,y,0);
		x = y = 0;
		glScalef(-1,1,1);
	}

	draw_animation_p(x,y,frame%ani->cols,frame/ani->cols,ani);

	if(mirror) {
		glCullFace(GL_BACK);
		glPopMatrix();
	}
}

void aniplayer_play(AniPlayer *plr, float x, float y) {
	int frame = aniplayer_get_frame(plr);
	play_animation_frame(plr->ani,x,y,frame); // or as my grandpa always said: rather write 100 lines of new code than one old line twice.
}

void play_animation(Animation *ani, float x, float y, int row) { // the old way to draw animations without AniPlayer
	draw_animation_p(x,y,(global.frames/ani->speed)%ani->cols,row,ani);
}