1 /* ====================================================================
2  * Copyright (c) 2008 by Klaus Rechert. All rights reserved.
3  * This program is free software; you can redistribute it and/or modify
4  * it under the same terms as Perl itself.
5  * ====================================================================
6  *
7  * $Author$
8  */
9 
10 
11 #include "EXTERN.h"
12 #include "perl.h"
13 #include "XSUB.h"
14 
15 #include "SWF.h"
16 #include "perl_swf.h"
17 
18 
19 MODULE = SWF::Matrix    PACKAGE = SWF::Matrix     PREFIX = SWFMatrix_
20 PROTOTYPES: ENABLE
21 
22 
23 void
24 SWFMatrix_DESTROY(m)
25 	SWF::Matrix	m
26 	CODE:
27         S_DEBUG(2, fprintf(stderr, "Matrix DESTROY CALLED\n"));
28         /* currently no destroy(m) call here,
29         see destroySWFPlaceObject2Block() in placeobject.c */
30 
31 double
32 SWFMatrix_getScaleX(m)
33 	SWF::Matrix m
34 
35 double
36 SWFMatrix_getScaleY(m)
37 	SWF::Matrix m
38 
39 double
40 SWFMatrix_getRotate0(m)
41 	SWF::Matrix m
42 
43 double
44 SWFMatrix_getRotate1(m)
45 	SWF::Matrix m
46 
47 int
48 SWFMatrix_getTranslateX(m)
49 	SWF::Matrix m
50 
51 int
52 SWFMatrix_getTranslateY(m)
53 	SWF::Matrix m
54