#include "clutter-perl-private.h"

MODULE = Clutter::Behaviour::Ellipse    PACKAGE = Clutter::Behaviour::Ellipse   PREFIX = clutter_behaviour_ellipse_

=for object Clutter::Behaviour::Ellipse - A behaviour interpolating position along an ellipse
=cut

=for position DESCRIPTION

=head1 SYNOPSIS

    my $behaviour = Clutter::Behaviour::Ellipse->new(
        Clutter::Alpha->new($timeline, 'linear'),
        [ 100, 100 ],   # center of the ellipse
        [ 250, 250 ],   # width and height of the ellipse
        [   0, 360 ],   # initial and final angle
    );

    $behaviour->apply($icon_group);

=head1 DESCRIPTION

B<Clutter::Behaviour::Ellipse> interpolates actors along a path defined by
an ellipse.

B<Note>: When applying an ellipse behaviour to an actor, the behaviour will
update the actor's position and depth and set them to what is dictated by
the ellipses initial position.

=cut

=for position SEE_ALSO

=head1 SEE ALSO

L<Clutter::Behaviour>, L<Clutter::Alpha>

=cut

=for apidoc
=for arg center an array reference containing the x and y coordinates
=for arg size an array reference containing the width and height of the ellipse
=for arg angles an array reference containing the initial and final angles
=cut
ClutterBehaviour_noinc *
clutter_behaviour_ellipse_new (class, alpha=NULL, center, size, direction, angles)
        ClutterAlpha_ornull *alpha
        SV *center
        SV *size
        ClutterRotateDirection direction
        SV *angles
    PREINIT:
        gint x, y, width, height;
        gdouble start, end;
        AV *av;
        SV **svp;
    CODE:
#define AV_FETCH_IV(_av,_index)                                         \
        (((svp = av_fetch ((_av), (_index), FALSE)) && SvOK (*svp))     \
         ? SvIV (*svp)                                                  \
         : 0)
#define AV_FETCH_NV(_av,_index)                                         \
        (((svp = av_fetch ((_av), (_index), FALSE)) && SvOK (*svp))     \
         ? SvNV (*svp)                                                  \
         : 0.0)

        if ((!SvRV (center)) || (SvTYPE (SvRV (center))) != SVt_PVAV)
                croak("Invalid center, expecting an array of two integers");
        if ((!SvRV (size)) || (SvTYPE (SvRV (size))) != SVt_PVAV)
                croak("Invalid size, expecting an array of two integers");
        if ((!SvRV (angles)) || (SvTYPE (SvRV (angles))) != SVt_PVAV)
                croak("Invalid angles, expecting an array of two floats");
        av = (AV *) SvRV (center);
        x = AV_FETCH_IV (av, 0); y = AV_FETCH_IV (av, 1);
        av = (AV *) SvRV (size);
        width = AV_FETCH_IV (av, 0); height = AV_FETCH_IV (av, 1);
        av = (AV *) SvRV (angles);
        start = AV_FETCH_NV (av, 0); end = AV_FETCH_NV (av, 1);
#undef AV_FETCH_IV
#undef AV_FETCH_NV
        RETVAL = clutter_behaviour_ellipse_new (alpha,
                                                x, y, width, height,
                                                direction,
                                                start, end);
    OUTPUT:
        RETVAL

void
clutter_behaviour_ellipse_set_center (ellipse, x, y)
        ClutterBehaviourEllipse *ellipse
        gint x
        gint y

void
clutter_behaviour_ellipse_set_width (ellipse, width)
        ClutterBehaviourEllipse *ellipse
        gint width

void
clutter_behaviour_ellipse_set_height (ellipse, height)
        ClutterBehaviourEllipse *ellipse
        gint height

void
clutter_behaviour_ellipse_set_size (ellipse, width, height)
        ClutterBehaviourEllipse *ellipse
        gint width
        gint height
    CODE:
        g_object_set (G_OBJECT (ellipse),
                      "width", width,
                      "height", height,
                      NULL);

void
clutter_behaviour_ellipse_set_angle_start (ellipse, start)
        ClutterBehaviourEllipse *ellipse
        gdouble start

void
clutter_behaviour_ellipse_set_angle_end (ellipse, end)
        ClutterBehaviourEllipse *ellipse
        gdouble end

void
clutter_behaviour_ellipse_set_angles (ellipse, start, end)
        ClutterBehaviourEllipse *ellipse
        gdouble start
        gdouble end
    CODE:
        g_object_set (G_OBJECT (ellipse),
                      "angle-start", start,
                      "angle-end", end,
                      NULL);

void
clutter_behaviour_ellipse_set_angle_tilt (ellipse, axis, tilt)
        ClutterBehaviourEllipse *ellipse
        ClutterRotateAxis axis
        gdouble tilt

void
clutter_behaviour_ellipse_set_tilt (ellipse, tilt_x, tilt_y, tilt_z)
        ClutterBehaviourEllipse *ellipse
        gdouble tilt_x
        gdouble tilt_y
        gdouble tilt_z

void
clutter_behaviour_ellipse_set_direction (ellipse, direction)
        ClutterBehaviourEllipse *ellipse
        ClutterRotateDirection direction

=for apidoc
=for signature (x, y) = $ellipse->get_center
=cut
void
clutter_behaviour_ellipse_get_center (ClutterBehaviourEllipse *ellipse)
    PREINIT:
        gint x, y;
    PPCODE:
        clutter_behaviour_ellipse_get_center (ellipse, &x, &y);
        EXTEND (SP, 2);
        mPUSHi (x);
        mPUSHi (y);

gint
clutter_behaviour_ellipse_get_width (ClutterBehaviourEllipse *ellipse)

gint
clutter_behaviour_ellipse_get_height (ClutterBehaviourEllipse *ellipse)

=for apidoc
=for signature (width, height) = $ellipse->get_size
=cut
void
clutter_behaviour_ellipse_get_size (ClutterBehaviourEllipse *ellipse)
    PREINIT:
        gint width, height;
    PPCODE:
        width = height = 0;
        g_object_get (G_OBJECT (ellipse),
                      "width", &width,
                      "height", &height,
                      NULL);
        EXTEND (SP, 2);
        mPUSHi (width);
        mPUSHi (height);

gdouble
clutter_behaviour_ellipse_get_angle_start (ClutterBehaviourEllipse *ellipse)

gdouble
clutter_behaviour_ellipse_get_angle_end (ClutterBehaviourEllipse *ellipse)

=for apidoc
=for signature (start, end) = $behaviour->get_angles
=cut
void
clutter_behaviour_ellipse_get_angles (ClutterBehaviourEllipse *ellipse)
    PREINIT:
        gdouble start, end;
    PPCODE:
        start = end = 0;
        g_object_get (G_OBJECT (ellipse),
                      "angle-start", &start,
                      "angle-end", &end,
                      NULL);
        EXTEND (SP, 2);
        mPUSHn (start);
        mPUSHn (end);

gdouble
clutter_behaviour_ellipse_get_angle_tilt (ellipse, axis)
        ClutterBehaviourEllipse *ellipse
        ClutterRotateAxis axis

=for apidoc
=for signature (tilt_x, tilt_y, tilt_z) = $ellipse->get_tilt
=cut
void
clutter_behaviour_ellipse_get_tilt (ClutterBehaviourEllipse *ellipse)
    PREINIT:
        gdouble tilt_x, tilt_y, tilt_z;
    PPCODE:
        tilt_x = tilt_y = tilt_z = 0.0;
        clutter_behaviour_ellipse_get_tilt (ellipse, &tilt_x, &tilt_y, &tilt_z);
        EXTEND (SP, 3);
        mPUSHn (tilt_x);
        mPUSHn (tilt_y);
        mPUSHn (tilt_z);

ClutterRotateDirection
clutter_behaviour_ellipse_get_direction (ClutterBehaviourEllipse *ellipse)