… | |
… | |
8 | #include <gtk2perl.h> |
8 | #include <gtk2perl.h> |
9 | |
9 | |
10 | #define IW 80 |
10 | #define IW 80 |
11 | |
11 | |
12 | #define RAND (seed = (seed + 7141) * 54773 % 134456) |
12 | #define RAND (seed = (seed + 7141) * 54773 % 134456) |
|
|
13 | |
|
|
14 | #define ELLIPSIS "\xe2\x80\xa6" |
13 | |
15 | |
14 | static guint32 a85_val; |
16 | static guint32 a85_val; |
15 | static guint a85_cnt; |
17 | static guint a85_cnt; |
16 | static guchar a85_buf[80], *a85_ptr; |
18 | static guchar a85_buf[80], *a85_ptr; |
17 | |
19 | |
… | |
… | |
63 | *a85_ptr++ = '\n'; |
65 | *a85_ptr++ = '\n'; |
64 | |
66 | |
65 | PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); |
67 | PerlIO_write (fp, a85_buf, a85_ptr - a85_buf); |
66 | } |
68 | } |
67 | |
69 | |
|
|
70 | ///////////////////////////////////////////////////////////////////////////// |
|
|
71 | |
68 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow |
72 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow |
69 | |
73 | |
70 | PROTOTYPES: ENABLE |
74 | PROTOTYPES: ENABLE |
71 | |
75 | |
72 | GdkPixbuf_noinc * |
76 | GdkPixbuf_noinc * |
… | |
… | |
114 | for (i = 0; i < bpp; i++) |
118 | for (i = 0; i < bpp; i++) |
115 | dst[(w - 1 - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i]; |
119 | dst[(w - 1 - x) * bpp + y * dstr + i] = src[x * bpp + y * sstr + i]; |
116 | } |
120 | } |
117 | OUTPUT: |
121 | OUTPUT: |
118 | RETVAL |
122 | RETVAL |
|
|
123 | |
|
|
124 | ############################################################################# |
119 | |
125 | |
120 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer |
126 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer |
121 | |
127 | |
122 | GdkPixbuf_noinc * |
128 | GdkPixbuf_noinc * |
123 | p7_to_pb (int w, int h, guchar *src) |
129 | p7_to_pb (int w, int h, guchar *src) |
… | |
… | |
200 | } |
206 | } |
201 | } |
207 | } |
202 | OUTPUT: |
208 | OUTPUT: |
203 | RETVAL |
209 | RETVAL |
204 | |
210 | |
|
|
211 | ############################################################################# |
|
|
212 | |
205 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript |
213 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV::PostScript |
206 | |
214 | |
207 | void |
215 | void |
208 | dump_pb (PerlIO *fp, GdkPixbuf *pb) |
216 | dump_pb (PerlIO *fp, GdkPixbuf *pb) |
209 | CODE: |
217 | CODE: |