view release on metacpan or  search on metacpan

Shape.xs  view on Meta::CPAN

 */


#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "SWF.h"
#include "perl_swf.h"


MODULE = SWF::Shape	PACKAGE = SWF::Shape		PREFIX = SWFShape_

PROTOTYPES: ENABLE

SWF::Shape
SWFShape_new(package="SWF::Shape")
     	char *package
	CODE:
        RETVAL = newSWFShape();
        ST(0) = sv_newmortal();
        sv_setref_pv(ST(0), package, (void*)RETVAL);

void
destroySWFShape(shape)
	SWF::Shape 	shape
        ALIAS:
        SWF::Shape::DESTROY = 1
        CODE:
        S_DEBUG(2, fprintf(stderr, "Shape DESTROY CALLED\n"));
	swf_stash_refcnt_dec((SV*)SvRV(ST(0)));
        destroySWFShape(shape);

void
SWFShape_movePenTo(shape, x, y)
	SWF::Shape	shape
	float	x
	float	y

void 
SWFShape_movePen(shape, x, y)
        SWF::Shape shape
        float x
        float y

float
SWFShape_getPenX(shape)
        SWF::Shape shape

float
SWFShape_getPenY(shape)
        SWF::Shape shape


void
SWFShape_getPen(shape)
        SWF::Shape shape
        PREINIT:
        float           x;
        float           y;
        PPCODE:
        SWFShape_getPen(shape, &x, &y);
        EXTEND(SP, 2);
        PUSHs(sv_2mortal(newSVnv((double)x)));
        PUSHs(sv_2mortal(newSVnv((double)y)));

void
SWFShape_drawLineTo(shape, x, y)
	SWF::Shape	shape
	float	x
	float	y

void
SWFShape_drawLine(shape, dx, dy)
	SWF::Shape	shape
	float	dx
	float	dy

void
SWFShape_drawCurveTo(shape, controlx, controly, anchorx, anchory)
	SWF::Shape	shape
	float		controlx
	float		controly
	float		anchorx
	float		anchory

void
SWFShape_drawCurve(shape, controldx, controldy, anchordx, anchordy)
	SWF::Shape	shape
	float		controldx
	float		controldy
	float		anchordx
	float		anchordy


void
SWFShape_drawCubicTo(shape, bx, by, cx, cy, dx, dy)
        SWF::Shape      shape
        float           bx
        float           by
        float           cx
        float           cy
        float           dx
        float           dy

void
SWFShape_drawCubic(shape, bx, by, cx, cy, dx, dy)
        SWF::Shape      shape
        float           bx
        float           by
        float           cx
        float           cy
        float           dx
        float           dy

void
SWFShape_end(shape)
	SWF::Shape	shape

void
SWFShape_setLineStyle(shape, width, r, g, b, a=0xff)