/**
 * $Id:
 *
 * ***** 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.
 *
 * The Original Code is Copyright (C) 2005 Blender Foundation.
 * All rights reserved.
 *
 * The Original Code is: all of this file.
 *
 * Contributor(s): none yet.
 *
 * ***** END GPL LICENSE BLOCK *****
 */

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

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include "BLI_blenlib.h"
#include "BLI_arithb.h"

#include "DNA_action_types.h"
#include "DNA_curve_types.h"
#include "DNA_ipo_types.h"
#include "DNA_object_types.h"
#include "DNA_material_types.h"
#include "DNA_scene_types.h"
#include "DNA_space_types.h"
#include "DNA_screen_types.h"
#include "DNA_sound_types.h"
#include "DNA_view2d_types.h"

#include "BKE_ipo.h"
#include "BKE_object.h"
#include "BKE_material.h"
#include "BKE_utildefines.h"
#include "BKE_global.h"

#include "BIF_editaction.h"
#include "BIF_gl.h"
#include "BIF_interface.h"
#include "BIF_interface_icons.h"
#include "BIF_mywindow.h"
#include "BIF_screen.h"
#include "BIF_resources.h"
#include "BIF_language.h"

#include "BSE_drawipo.h"
#include "BSE_time.h"
#include "BSE_view.h"

#include "blendef.h"
#include "interface.h"	/* for ui_rasterpos_safe */

#define TIMELINE_STIPPLE \
{ \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0, \
	136,136,136,136,0,0,0,0,34,34,34,34,0,0,0,0 \
}

/* ---- prototypes ------ */
void drawtimespace(ScrArea *, void *);

/* draws a current frame indicator for the TimeLine */
static void draw_cfra_time(SpaceTime *stime)
{
	float vec[2];
	
	vec[0]=  (G.scene->r.cfra);
	vec[0]*= G.scene->r.framelen;

	vec[1]= G.v2d->cur.ymin;
	BIF_ThemeColor(TH_CFRAME);	// no theme, should be global color once...
	glLineWidth(3.0);

	glBegin(GL_LINES);
		glVertex2fv(vec);
		vec[1]= G.v2d->cur.ymax;
		glVertex2fv(vec);
	glEnd();
	
	glLineWidth(1.0);
	
	if(stime->flag & TIME_CFRA_NUM) {
		short mval[2];
		float x,  y;
		float xscale, yscale;
		char str[32];
		
		/* little box with frame drawn beside */
		
		glFlush();	// huhh... without this glColor won't work for the text...
		getmouseco_areawin(mval);
		
		if(mval[1]>curarea->winy-10) mval[1]= curarea->winy - 13;
		
		if (curarea->winy < 25) {	
			if (mval[1]<17) mval[1]= 17;
		} else if (mval[1]<22) mval[1]= 22;
		
		areamouseco_to_ipoco(G.v2d, mval, &x, &y);
		
		if(stime->flag & TIME_DRAWFRAMES) 
			sprintf(str, "   %d", CFRA);
		else sprintf(str, "   %.2f", FRA2TIME(CFRA));
		
		/* HACK! somehow the green color won't go away... */
		glColor4ub(0, 0, 0, 0);
		BIF_ThemeColor(TH_TEXT);
		
		view2d_getscale(G.v2d, &xscale, &yscale);
		
		/* because the frame number text is subject to the same scaling as the contents of the view */
		glScalef( 1.0/xscale, 1.0/yscale, 1.0);
		
		ui_rasterpos_safe(x * xscale, y * yscale, 1.0);
		BIF_DrawString(G.fonts, str, 0);
		glScalef(xscale, yscale, 1.0);
	}
}

/* ---------- */

/* function to draw markers */
static void draw_marker(TimeMarker *marker, int flag)
{
	float xpos, ypixels, xscale, yscale;
	int icon_id= 0;

	xpos = marker->frame;
	/* no time correction for framelen! space is drawn with old values */
	
	ypixels= G.v2d->mask.ymax-G.v2d->mask.ymin;
	view2d_getscale(G.v2d, &xscale, &yscale);
	
	glScalef( 1.0/xscale, 1.0/yscale, 1.0);
	
	glEnable(GL_BLEND);
	glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);			
	
	/* verticle line */
	if (flag & DRAW_MARKERS_LINES) {
		setlinestyle(3);
		if(marker->flag & SELECT)
			glColor4ub(255,255,255, 96);
		else
			glColor4ub(0,0,0, 96);
		
		glBegin(GL_LINES);
		glVertex2f((xpos*xscale)+0.5, 12);
		glVertex2f((xpos*xscale)+0.5, 34*yscale); /* a bit lazy but we know it cant be greater then 34 strips high*/
		glEnd();
		setlinestyle(0);
	}
	
	/* 5 px to offset icon to align properly, space / pixels corrects for zoom */
	if (flag & DRAW_MARKERS_LOCAL) {
		icon_id= (marker->flag & ACTIVE) ? ICON_PMARKER_ACT : 
				 (marker->flag & SELECT) ? ICON_PMARKER_SEL : 
				 ICON_PMARKER;
	}
	else {
		icon_id= (marker->flag & SELECT) ? ICON_MARKER_HLT : 
				 ICON_MARKER;
	}
	BIF_icon_draw(xpos*xscale-5.0, 12.0, icon_id);
	
	glBlendFunc(GL_ONE, GL_ZERO);
	glDisable(GL_BLEND);
		
	/* and the marker name too, shifted slightly to the top-right */
	if(marker->name && marker->name[0]) {
		if(marker->flag & SELECT) {
			BIF_ThemeColor(TH_TEXT_HI);
			ui_rasterpos_safe(xpos*xscale+4.0, (ypixels<=39.0)?(ypixels-10.0):29.0, 1.0);
		}
		else {
			BIF_ThemeColor(TH_TEXT);
			if((marker->frame <= G.scene->r.cfra) && (marker->frame+5 > G.scene->r.cfra))
				ui_rasterpos_safe(xpos*xscale+4.0, (ypixels<=39.0)?(ypixels-10.0):29.0, 1.0);
			else
				ui_rasterpos_safe(xpos*xscale+4.0, 17.0, 1.0);
		}
		BIF_DrawString(G.font, marker->name, 0);
	}
	glScalef(xscale, yscale, 1.0);
}

/* Draw Scene-Markers for the TimeLine */
static void draw_markers_time(int flag)
{
	TimeMarker *marker;

	/* unselected markers are drawn at the first time */
	for (marker= G.scene->markers.first; marker; marker= marker->next) {
		if (!(marker->flag & SELECT)) draw_marker(marker, flag);
	}

	/* selected markers are drawn later ... selected markers have to cover unselected
	 * markers laying at the same position as selected markers
	 * (jiri: it is hack, it could be solved better) 
	 */
	for (marker= G.scene->markers.first; marker; marker= marker->next) {
		if (marker->flag & SELECT) draw_marker(marker, flag);
	}
}

/* Draw specified set of markers for Animation Editors */
void draw_markers_timespace(ListBase *markers, int flag)
{
	TimeMarker *marker;
	float yspace, ypixels;
	
	/* move ortho view to align with slider in bottom */
	glTranslatef(0.0f, G.v2d->cur.ymin, 0.0f);
	
	/* bad hacks in drawing markers... inverse correct that as well */
	yspace= G.v2d->cur.ymax - G.v2d->cur.ymin;
	ypixels= G.v2d->mask.ymax - G.v2d->mask.ymin;
	glTranslatef(0.0f, -11.0*yspace/ypixels, 0.0f);
		
	/* unselected markers are drawn at the first time */
	for (marker= markers->first; marker; marker= marker->next) {
		if (!(marker->flag & SELECT)) draw_marker(marker, flag);
	}
	
	/* selected markers are drawn later ... selected markers have to cover unselected
		* markers laying at the same position as selected markers */
	for (marker= markers->first; marker; marker= marker->next) {
		if (marker->flag & SELECT) draw_marker(marker, flag);
	}

	glTranslatef(0.0f, -G.v2d->cur.ymin, 0.0f);
	glTranslatef(0.0f, 11.0*yspace/ypixels, 0.0f);
}


void draw_anim_preview_timespace()
{
	/* only draw this if preview range is set */
	if (G.scene->r.psfra) {
		glBlendFunc( GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA );
		glEnable(GL_BLEND);
		glColor4f(0, 0, 0, 0.4);
	
		if (PSFRA < PEFRA) {
			glRectf(G.v2d->cur.xmin, G.v2d->cur.ymin, PSFRA, G.v2d->cur.ymax);
			glRectf(PEFRA, G.v2d->cur.ymin, G.v2d->cur.xmax, G.v2d->cur.ymax);	
		} 
		else {
			glRectf(G.v2d->cur.xmin, G.v2d->cur.ymin, G.v2d->cur.xmax, G.v2d->cur.ymax);
		}
		
		glDisable(GL_BLEND);
	}
}

static void draw_sfra_efra()
{
	BIF_ThemeColorShade(TH_BACK, -25);
	
	if (PSFRA < PEFRA) {
		glRectf(G.v2d->cur.xmin, G.v2d->cur.ymin, PSFRA, G.v2d->cur.ymax);
		glRectf(PEFRA, G.v2d->cur.ymin, G.v2d->cur.xmax, G.v2d->cur.ymax);	
	} 
	else {
		glRectf(G.v2d->cur.xmin, G.v2d->cur.ymin, G.v2d->cur.xmax, G.v2d->cur.ymax);
	}
	
	BIF_ThemeColorShade(TH_BACK, -60);
	/* thin lines where the actual frames are */
	fdrawline(PSFRA, G.v2d->cur.ymin, PSFRA, G.v2d->cur.ymax);
	fdrawline(PEFRA, G.v2d->cur.ymin, PEFRA, G.v2d->cur.ymax);
	
	glDisable(GL_BLEND);
}

static void draw_mapoldnew()
{
	float anim_end;	/* the end of the blender frames that are actually animated (map old)*/
	float frames_end;	/* the end of the frames that get rendered and saved to disk (map new) */
	GLubyte timeline_stipple[32*32/8] = TIMELINE_STIPPLE;
	
	if (G.scene->r.framelen == 1.0) return;
	
	anim_end = PEFRA * G.scene->r.framelen;
	frames_end = PEFRA;
	
	glEnable(GL_POLYGON_STIPPLE);
	glPolygonStipple(timeline_stipple);
	BIF_ThemeColorShade(TH_BACK, -65);
	
	if (anim_end < frames_end)
		glRectf(anim_end, G.v2d->cur.ymin, frames_end, G.v2d->cur.ymax);

	glDisable(GL_POLYGON_STIPPLE);
}


static void draw_ipo_keys(Ipo *ipo, char col[3])
{
	IpoCurve *icu;
	int nvert;
	int i;
	int lbound, ubound;
	int idx;
	int diff;
	float t;
	float drawnext; /* next time to begin drawing new keyframes */
	
	float space = G.v2d->cur.xmax - G.v2d->cur.xmin;
	float pixels = G.v2d->mask.xmax-G.v2d->mask.xmin;
	float spaceperpix = 1; /* amount of time occupied per pixel */
	
	if (pixels > 0) 
		spaceperpix = space / pixels;
	
	glColor3ub(col[0], col[1], col[2]);
	glBegin(GL_LINES);
	
	for (icu= ipo->curve.first; icu; icu= icu->next) {
		if (icu->flag & IPO_VISIBLE) {
			if (icu->bezt) {
				nvert= icu->totvert;
				
				if (nvert > 0)
					drawnext = icu->bezt[0].vec[1][0];
				else
					continue;
				
				/* binary search for beginning of the visible keys */
				lbound = 0;
				ubound = nvert;
				while (ubound - lbound > 1) {
					diff = (ubound - lbound) / 2;
					idx = lbound + diff;
					t= icu->bezt[idx].vec[1][0];
					if (t < G.v2d->cur.xmin)
						lbound += diff;
					else
						ubound = lbound + diff;
				}
				
				for (i = lbound; i < nvert; i++) {
					t= icu->bezt[i].vec[1][0];
					
					/* dont do anymore draw tests after we draw the last visible key */
					if (t > G.v2d->cur.xmax)
						break;
					/* avoid repeatedly drawing lines on the same pixel */
					if (t < drawnext)
						continue;
					
					glVertex2f(t, G.v2d->cur.ymin);
					glVertex2f(t, G.v2d->cur.ymax);
					
					drawnext = t + spaceperpix;
				}
			}
		}
	}
	
	glEnd();
}


/* This function draws keyframes that the active object has (as long as
 * it is not in EditMode). Some filters are available to optimise the
 * drawing efficiency.
 */
static void draw_ob_keys()
{
	/* mostly copied from drawobject.c, draw_object() */
	SpaceTime *stime= curarea->spacedata.first;
	
	Object *ob= OBACT;
	short filter, ok;
	char col[3];
	int a;

	if (ob && ob!=G.obedit) {
		/* Object's IPO block - show all keys */
		if (ob->ipo) {
			/* draw the list of current frame elements */
			col[0] = 0xDD; col[1] = 0xD7; col[2] = 0x00;
			draw_ipo_keys(ob->ipo, col);
		}
		
		/* Object's Action block - may be filtered in some cases */
		if (ob->action) {
			bAction *act = ob->action;
			bActionChannel *achan;
			
			/* only apply filter if action is likely to be for pose channels + filter is on */
			filter= ((stime->flag & TIME_ONLYACTSEL) && 
					 (ob->pose) && (ob->flag & OB_POSEMODE));
			
			/* go through each channel in the action */
			for (achan=act->chanbase.first; achan; achan=achan->next) {
				/* if filtering, check if this channel passes */
				if (filter) {
					ok= (SEL_ACHAN(achan))? 1 : 0;
				}
				else ok= 1;
				
				/* convert the ipo to a list of 'current frame elements' */
				if (achan->ipo && ok) {
					col[0] = 0x00; col[1] = 0x82; col[2] = 0x8B;
					draw_ipo_keys(achan->ipo, col);
				}
			}
		}
		
		/* Materials (only relevant for geometry objects) - some filtering might occur */
		// err... is this ok?
		filter= (stime->flag & TIME_ONLYACTSEL);
		if (filter) {
			Material *ma= give_current_material(ob, (ob->actcol + 1));
			
			/* we only retrieve the active material... */
			if (ma && ma->ipo) {
				col[0] = 0xDD; col[1] = 0xA7; col[2] = 0x00;
				draw_ipo_keys(ma->ipo, col);
			}
		}
		else {
			for (a=0; a<ob->totcol; a++) {
				Material *ma= give_current_material(ob, a+1);
				
				if (ma && ma->ipo) {
					col[0] = 0xDD; col[1] = 0xA7; col[2] = 0x00;
					draw_ipo_keys(ma->ipo, col);
				}
			}
		}
	}
}

void drawtimespace(ScrArea *sa, void *spacedata)
{
	SpaceTime *stime= sa->spacedata.first;
	float col[3];
	
	BIF_GetThemeColor3fv(TH_BACK, col);
	glClearColor(col[0], col[1], col[2], 0.0);
	glClear(GL_COLOR_BUFFER_BIT);

	calc_scrollrcts(sa, &(stime->v2d), curarea->winx, curarea->winy);
	
	myortho2(stime->v2d.cur.xmin, stime->v2d.cur.xmax, stime->v2d.cur.ymin, stime->v2d.cur.ymax);

	/* draw darkened area outside of active timeline 
	 *	frame range used is preview range or scene range
	 */
	draw_sfra_efra();
	draw_mapoldnew();
	
	/* boundbox_seq(); */
	calc_ipogrid();	
	draw_ipogrid();

	draw_cfra_time(spacedata);
	draw_ob_keys();
	draw_markers_time(0);

	/* restore viewport */
	mywinset(curarea->win);

	/* ortho at pixel level curarea */
	myortho2(-0.375, curarea->winx-0.375, -0.375, curarea->winy-0.375);
	
	/* the bottom with time values */
	BIF_ThemeColor(TH_HEADER);
	glRectf(0.0f, 0.0f, (float)curarea->winx, 12.0f);
	BIF_ThemeColorShade(TH_HEADER, 50);
	fdrawline(0.0f, 12.0f, (float)curarea->winx, 12.0f);
	draw_view2d_numbers_horiz(stime->flag & TIME_DRAWFRAMES);
	
	draw_area_emboss(sa);
	curarea->win_swap= WIN_BACK_OK;
}