/*
    Ming, an SWF output library
    Copyright (C) 2001  Opaque Industries - http://www.opaque.net/

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

#include <stdlib.h>
#include <math.h>

#include "libming.h"
#include "position.h"

void destroySWFPosition(SWFPosition position)
{
  /* something else owns the matrix, so don't free it. */
  free(position);
}

/* position wraps a matrix */
SWFPosition newSWFPosition(SWFMatrix matrix)
{
  SWFPosition p = calloc(1, SWFPOSITION_SIZE);

  p->xScale = 1.0;
  p->yScale = 1.0;
  p->matrix = matrix;

  return p;
}

extern float Ming_scale;

/* x-skew, then y-skew, then rot and scale, then xlate */
static inline void updateMatrix(SWFPosition p)
{
  float cRot = cos(p->rot*M_PI/180), sRot = sin(p->rot*M_PI/180);
  float xS = p->xSkew, yS = p->ySkew;
  SWFMatrix m = p->matrix;

  SWFMatrix_set(m, p->xScale * (cRot - xS*sRot),
		p->xScale * (yS*cRot - (xS*yS+1)*sRot),
		p->yScale * (sRot + xS*cRot),
		p->yScale * (yS*sRot + (xS*yS+1)*cRot),
		(int)rint(Ming_scale*p->x),
		(int)rint(Ming_scale*p->y));
}

void SWFPosition_skewX(SWFPosition p, float x)
{
  p->xSkew += x;
  updateMatrix(p);
}
void SWFPosition_skewXTo(SWFPosition p, float x)
{
  p->xSkew = x;
  updateMatrix(p);
}
void SWFPosition_skewY(SWFPosition p, float y)
{
  p->ySkew += y;
  updateMatrix(p);
}
void SWFPosition_skewYTo(SWFPosition p, float y)
{
  p->ySkew = y;
  updateMatrix(p);
}
void SWFPosition_scaleX(SWFPosition p, float x)
{
  p->xScale *= x;
  updateMatrix(p);
}
void SWFPosition_scaleXTo(SWFPosition p, float x)
{
  p->xScale = x;
  updateMatrix(p);
}
void SWFPosition_scaleY(SWFPosition p, float y)
{
  p->yScale *= y;
  updateMatrix(p);
}
void SWFPosition_scaleYTo(SWFPosition p, float y)
{
  p->yScale = y;
  updateMatrix(p);
}
void SWFPosition_rotate(SWFPosition p, float degrees)
{
  p->rot += degrees;
  updateMatrix(p);
}
void SWFPosition_rotateTo(SWFPosition p, float degrees)
{
  p->rot = degrees;
  updateMatrix(p);
}
void SWFPosition_move(SWFPosition p, float x, float y)
{
  p->x += x;
  p->y += y;
  updateMatrix(p);
}
void SWFPosition_moveTo(SWFPosition p, float x, float y)
{
  p->x = x;
  p->y = y;
  updateMatrix(p);
}
void SWFPosition_scaleXY(SWFPosition p, float x, float y)
{
  p->xScale *= x;
  p->yScale *= y;
  updateMatrix(p);
}
void SWFPosition_scaleXYTo(SWFPosition p, float x, float y)
{
  p->xScale = x;
  p->yScale = y;
  updateMatrix(p);
}
void SWFPosition_setMatrix(SWFPosition p, float a, float b, float c, float d,
			   float x, float y)
{
  /* set the transform matrix, but don't touch the position properties-
     you won't want to use the two in conjunction, anyway */

  SWFMatrix_set(p->matrix, a, b, c, d,
		(int)rint(Ming_scale*x), (int)rint(Ming_scale*y));
}