More event work.
[ruby-evas.git] / src / rb_gradient.c
1 /*
2  * $Id: rb_gradient.c 58 2004-08-10 14:10:02Z tilman $
3  *
4  * Copyright (C) 2004 Tilman Sauerbeck (tilman at code-monkey de)
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include <ruby.h>
22
23 #include <Evas.h>
24
25 #include "rb_evas_main.h"
26 #include "rb_evas.h"
27 #include "rb_evas_object.h"
28
29 static void c_free (RbEvasObject *e)
30 {
31         c_evas_object_free (e, true);
32 }
33
34 /*
35  * call-seq:
36  *  Evas::Gradient.new(evas) => gradient
37  *
38  * Creates an Evas::Gradient object.
39  */
40 static VALUE c_new (VALUE klass, VALUE evas)
41 {
42         VALUE self, argv[1];
43         RbEvasObject *rect;
44
45         CHECK_CLASS (evas, cEvas);
46         GET_OBJ (evas, RbEvas, e);
47
48         self = Data_Make_Struct (klass, RbEvasObject, c_evas_object_mark,
49                                  c_free, rect);
50         rect->real = evas_object_gradient_add (e->real);
51
52         argv[0] = evas;
53         rb_obj_call_init (self, 1, argv);
54
55         return self;
56 }
57
58 /*
59  * call-seq:
60  *  gradient.add_color(r, g, b, a, distance) => nil
61  *
62  * Adds a color to <i>gradient</i>.
63  */
64 static VALUE c_add_color (VALUE self, VALUE r, VALUE g, VALUE b,
65                           VALUE a, VALUE distance)
66 {
67         GET_OBJ (self, RbEvasObject, e);
68
69         Check_Type (r, T_FIXNUM);
70         Check_Type (g, T_FIXNUM);
71         Check_Type (b, T_FIXNUM);
72         Check_Type (a, T_FIXNUM);
73         Check_Type (distance, T_FIXNUM);
74
75         evas_object_gradient_color_add (e->real, FIX2INT (r), FIX2INT (g),
76                                         FIX2INT (b), FIX2INT (a),
77                                         FIX2INT (distance));
78
79         return Qnil;
80 }
81
82 /*
83  * call-seq:
84  *  gradient.clear_colors => nil
85  *
86  * Clears the colors of <i>gradient</i>.
87  */
88 static VALUE c_clear_colors (VALUE self)
89 {
90         GET_OBJ (self, RbEvasObject, e);
91
92         evas_object_gradient_colors_clear (e->real);
93
94         return Qnil;
95 }
96
97 /*
98  * call-seq:
99  *  gradient.angle => fixnum
100  *
101  * Returns the angle of <i>gradient</i>.
102  */
103 static VALUE c_angle_get (VALUE self)
104 {
105         GET_OBJ (self, RbEvasObject, e);
106
107         return INT2FIX (evas_object_gradient_angle_get (e->real));
108 }
109
110 /*
111  * call-seq:
112  *  gradient.angle(fixnum)
113  *
114  * Sets the angle of <i>gradient</i>.
115  */
116 static VALUE c_angle_set (VALUE self, VALUE val)
117 {
118         GET_OBJ (self, RbEvasObject, e);
119
120         Check_Type (val, T_FIXNUM);
121
122         evas_object_gradient_angle_set (e->real, FIX2INT (val));
123
124         return Qnil;
125 }
126
127 void Init_Gradient (void)
128 {
129         VALUE c = rb_define_class_under (mEvas, "Gradient", cEvasObject);
130
131         rb_define_singleton_method (c, "new", c_new, 1);
132         rb_define_method (c, "add_color", c_add_color, 5);
133         rb_define_method (c, "clear_colors", c_clear_colors, 0);
134         rb_define_method (c, "angle", c_angle_get, 0);
135         rb_define_method (c, "angle=", c_angle_set, 1);
136 }