removed annoying bfchar warnings
[swftools.git] / lib / ruby / gfx.c
1 #include <ruby.h>
2 #include "../gfxdevice.h"
3 #include "../gfxsource.h"
4 #include "../gfxtools.h"
5 #include "../gfximage.h"
6 #include "../devices/pdf.h"
7 #include "../readers/swf.h"
8 #include "../readers/image.h"
9 #include "../pdf/pdf.h"
10 #include "../mem.h"
11 #include "../types.h"
12
13 #define RUBY_GFX_VERSION  "0.9.0"
14
15 static VALUE GFX;
16 static VALUE Font, Glyph, Bitmap, Document, DocumentPage, PDFClass, SWFClass, ImageClass, Device;
17 static ID id_doc;
18
19 typedef struct doc_internal {
20     VALUE self;
21     gfxsource_t*driver; // filled by alloc
22     gfxdocument_t*doc;
23     gfxfontlist_t*fontlist;
24 } doc_internal_t;
25
26 typedef struct page_internal {
27     doc_internal_t*doc;
28     gfxpage_t*page;
29 } page_internal_t;
30
31 typedef struct image_internal {
32     doc_internal_t*doc;
33     gfximage_t*image;
34 } image_internal_t;
35
36 typedef struct font_internal {
37     VALUE self;
38     VALUE glyph_array;
39     gfxfont_t*font;
40 } font_internal_t;
41
42 typedef struct glyph_internal {
43     font_internal_t*font;
44     int nr;
45 } glyph_internal_t;
46
47 static gfxsource_t* pdfdriver = 0;
48 static gfxsource_t* imagedriver = 0;
49 static gfxsource_t* swfdriver = 0;
50
51 #define Get_Doc(doc,cls) doc_internal_t*doc=0;Data_Get_Struct(cls, doc_internal_t, doc);
52 #define Get_Page(page,cls) page_internal_t*page=0;Data_Get_Struct(cls, page_internal_t, page);
53
54 static VALUE doc_allocate(VALUE cls, gfxsource_t*driver);
55 static VALUE page_allocate(VALUE cls);
56
57 // ------------------------ documents ---------------------------------------
58
59 static VALUE doc_initialize(VALUE cls, VALUE _filename)
60 {
61     Check_Type(_filename, T_STRING);
62     Get_Doc(doc,cls);
63     const char*filename = StringValuePtr(_filename);
64     doc->fontlist = gfxfontlist_create();
65     doc->doc = pdfdriver->open(pdfdriver, filename);
66     if(!doc->doc) {
67         rb_raise(rb_eIOError, "couldn't open %s", filename);
68     }
69     return cls;
70 }
71
72 static VALUE doc_num_pages(VALUE cls)
73 {
74     Get_Doc(doc,cls)
75     return INT2FIX(doc->doc->num_pages);
76 }
77
78 static VALUE doc_get_page(VALUE cls, VALUE _nr)
79 {
80     Check_Type(_nr, T_FIXNUM);
81     int nr = FIX2INT(_nr);
82     Get_Doc(doc,cls);
83
84     VALUE v = page_allocate(DocumentPage);
85     Get_Page(page,v)
86     page->page = doc->doc->getpage(doc->doc, nr);
87     page->doc = doc;
88     if(!page->page) {
89         rb_raise(rb_eArgError, "No page %d in document", nr);
90         return;
91     }
92     return v;
93 }
94
95 static VALUE doc_each_page(VALUE cls)
96 {
97     Get_Doc(doc,cls);
98     int t;
99     for(t=1;t<=doc->doc->num_pages;t++) {
100         VALUE v = page_allocate(DocumentPage);
101         Get_Page(page,v)
102         page->page = doc->doc->getpage(doc->doc, t);
103         page->doc = doc;
104         rb_yield(v);
105     }
106     return cls;
107 }
108
109 static void doc_mark(doc_internal_t*doc)
110 {
111     gfxfontlist_t*l = doc->fontlist;
112     while(l) {
113         if(l->user) 
114             rb_gc_mark((VALUE)l->user);
115         l = l->next;
116     }
117 }
118
119 static void doc_free(doc_internal_t*doc)
120 {
121     gfxfontlist_free(doc->fontlist, 0);
122     doc->doc->destroy(doc->doc);
123     free(doc);
124 }
125
126 static VALUE doc_allocate(VALUE cls, gfxsource_t*driver)
127 {
128     doc_internal_t*doc = 0;
129     VALUE v = Data_Make_Struct(cls, doc_internal_t, doc_mark, doc_free, doc);
130     doc->self = v;
131     memset(doc, 0, sizeof(doc_internal_t));
132     doc->driver = driver;
133     return v;
134 }
135
136 static VALUE pdf_allocate(VALUE cls) {return doc_allocate(cls, pdfdriver);}
137 static VALUE swf_allocate(VALUE cls) {return doc_allocate(cls, swfdriver);}
138 static VALUE imgdrv_allocate(VALUE cls) {return doc_allocate(cls, imagedriver);}
139
140 // ------------------------ doc pages ---------------------------------------
141
142 static void page_free(page_internal_t*page)
143 {
144     if(!page) return;
145     if(page->page) {
146         page->page->destroy(page->page);
147         page->page = 0;
148     }
149     free(page);
150 }
151 static void page_mark(page_internal_t*page)
152 {
153     rb_gc_mark(page->doc->self);
154 }
155 static VALUE page_allocate(VALUE cls)
156 {
157     page_internal_t*page = 0;
158     VALUE v = Data_Make_Struct(cls, page_internal_t, page_mark, page_free, page);
159     memset(page, 0, sizeof(page_internal_t));
160     return v;
161 }
162 static VALUE page_nr(VALUE cls)
163 {
164     Get_Page(page,cls)
165     return INT2FIX(page->page->nr);
166 }
167 static VALUE page_width(VALUE cls)
168 {
169     Get_Page(page,cls)
170     return INT2FIX(page->page->width);
171 }
172 static VALUE page_height(VALUE cls)
173 {
174     Get_Page(page,cls)
175     return INT2FIX(page->page->height);
176 }
177
178 // ------------------------ image -------------------------------------------
179
180 #define Get_Image(image,cls) image_internal_t*image=0;Data_Get_Struct(cls, image_internal_t, image);
181
182 static void image_free(image_internal_t*image)
183 {
184     free(image);
185 }
186 static void image_mark(image_internal_t*image)
187 {
188     rb_gc_mark(image->doc->self);
189 }
190 static VALUE image_allocate(VALUE cls)
191 {
192     image_internal_t*image = 0;
193     VALUE v = Data_Make_Struct(cls, image_internal_t, image_mark, image_free, image);
194     memset(image, 0, sizeof(image_internal_t));
195     return v;
196 }
197 static VALUE image_width(VALUE cls)
198 {
199     Get_Image(image,cls)
200     return INT2FIX(image->image->width);
201 }
202 static VALUE image_height(VALUE cls)
203 {
204     Get_Image(image,cls)
205     return INT2FIX(image->image->height);
206 }
207 static VALUE image_rescale(VALUE cls, VALUE _width, VALUE _height)
208 {
209     Get_Image(image,cls)
210     Check_Type(_width, T_FIXNUM);
211     Check_Type(_height, T_FIXNUM);
212     int width = FIX2INT(_width);
213     int height = FIX2INT(_height);
214     volatile VALUE v_image2 = image_allocate(Bitmap);
215     Get_Image(image2,v_image2)
216     image2->doc = image->doc;
217     image2->image = gfximage_rescale(image->image, width, height);
218     if(!image2->image) {
219         rb_raise(rb_eArgError, "Can't rescale to size %dx%d", width, height);
220     }
221     return v_image2;
222 }
223 static VALUE image_save_jpeg(VALUE cls, VALUE _filename, VALUE quality)
224 {
225     Get_Image(image,cls)
226     Check_Type(_filename, T_STRING);
227     Check_Type(quality, T_FIXNUM);
228     const char*filename = StringValuePtr(_filename);
229     gfximage_save_jpeg(image->image, filename, FIX2INT(quality));
230     return cls;
231 }
232 static VALUE image_save_png(VALUE cls, VALUE _filename)
233 {
234     Get_Image(image,cls)
235     Check_Type(_filename, T_STRING);
236     const char*filename = StringValuePtr(_filename);
237     gfximage_save_png(image->image, filename);
238     return cls;
239 }
240 VALUE convert_image(doc_internal_t*doc,gfximage_t*_image)
241 {
242     VALUE v = image_allocate(Bitmap);
243     Get_Image(image,v)
244     image->image = _image;
245     image->doc = doc;
246     return v;
247 }
248 void invalidate_image(VALUE v)
249 {
250     Get_Image(image,v)
251     image->image = 0;
252 }
253
254 // ------------------------ glyphs ------------------------------------------
255
256 static VALUE convert_line(gfxline_t*line);
257
258 #define Get_Glyph(glyph,cls) glyph_internal_t*glyph=0;Data_Get_Struct(cls, glyph_internal_t, glyph);
259
260 static void glyph_free(glyph_internal_t*glyph)
261 {
262     free(glyph);
263 }
264
265 static void glyph_mark(glyph_internal_t*glyph)
266 {
267     rb_gc_mark(glyph->font->self);
268 }
269
270 static VALUE glyph_allocate(VALUE cls)
271 {
272     glyph_internal_t*glyph = 0;
273     VALUE v = Data_Make_Struct(cls, glyph_internal_t, glyph_mark, glyph_free, glyph);
274     memset(glyph, 0, sizeof(glyph_internal_t));
275     return v;
276 }
277
278 static VALUE glyph_polygon(VALUE cls)
279 {
280     Get_Glyph(glyph,cls);
281     return convert_line(glyph->font->font->glyphs[glyph->nr].line);
282 }
283
284 static VALUE glyph_advance(VALUE cls)
285 {
286     Get_Glyph(glyph,cls);
287     return rb_float_new(glyph->font->font->glyphs[glyph->nr].advance);
288 }
289
290 static VALUE glyph_bbox(VALUE cls)
291 {
292     Get_Glyph(glyph,cls);
293     gfxbbox_t bbox = gfxline_getbbox(glyph->font->font->glyphs[glyph->nr].line);
294     return rb_ary_new3(4, rb_float_new(bbox.xmin), 
295                           rb_float_new(bbox.ymin), 
296                           rb_float_new(bbox.xmax), 
297                           rb_float_new(bbox.ymax));
298 }
299
300 static VALUE glyph_unicode(VALUE cls)
301 {
302     Get_Glyph(glyph,cls);
303     return INT2FIX(glyph->font->font->glyphs[glyph->nr].unicode);
304 }
305
306 // ------------------------ font --------------------------------------------
307
308 #define Get_Font(font,cls) font_internal_t*font=0;Data_Get_Struct(cls, font_internal_t, font);
309
310 static void font_mark(font_internal_t*font)
311 {
312     rb_gc_mark(font->glyph_array);
313 }
314
315 static void font_free(font_internal_t*font)
316 {
317     free(font);
318 }
319
320 static VALUE font_allocate(VALUE cls)
321 {
322     font_internal_t*font = 0;
323     VALUE v = Data_Make_Struct(cls, font_internal_t, font_mark, font_free, font);
324     memset(font, 0, sizeof(font_internal_t));
325     font->self = v;
326     return v;
327 }
328
329 static VALUE font_ascent(VALUE cls)
330 {
331     Get_Font(font,cls);
332     return rb_float_new(font->font->ascent);
333 }
334
335 static VALUE font_descent(VALUE cls)
336 {
337     Get_Font(font,cls);
338     return rb_float_new(font->font->descent);
339 }
340
341 static VALUE font_name(VALUE cls)
342 {
343     Get_Font(font,cls);
344     return rb_tainted_str_new2(font->font->id);
345 }
346
347 static VALUE font_glyphs(VALUE cls)
348 {
349     Get_Font(font,cls);
350     return font->glyph_array;
351 }
352
353 static VALUE font_kerning(VALUE cls)
354 {
355     Get_Font(font,cls);
356     gfxkerning_t*kerning = font->font->kerning;
357     int kerning_size = font->font->kerning_size;
358     volatile VALUE a = rb_ary_new2(kerning_size);
359     int t;
360     for(t=0;t<kerning_size;t++) {
361         volatile VALUE tuple = rb_ary_new2(3);
362         rb_ary_store(tuple, 0, INT2FIX(kerning[t].c1));
363         rb_ary_store(tuple, 1, INT2FIX(kerning[t].c2));
364         rb_ary_store(tuple, 2, INT2FIX(kerning[t].advance));
365         rb_ary_store(a, t, tuple);
366     }
367     return a;
368 }
369
370 // ------------------------ gfx device --------------------------------------
371
372 typedef struct device_internal {
373     doc_internal_t*doc;
374     VALUE v;
375 } device_internal_t;
376
377 static ID id_setparameter = 0;
378 static ID id_startpage = 0;
379 static ID id_startclip = 0;
380 static ID id_endclip = 0;
381 static ID id_stroke = 0;
382 static ID id_fill = 0;
383 static ID id_fillbitmap = 0;
384 static ID id_fillgradient = 0;
385 static ID id_addfont = 0;
386 static ID id_drawchar = 0;
387 static ID id_drawlink = 0;
388 static ID id_endpage = 0;
389 static ID id_geterror = 0;
390 static ID id_finish = 0;
391 static ID id_butt = 0;
392 static ID id_round = 0;
393 static ID id_square = 0;
394 static ID id_bevel = 0;
395 static ID id_miter = 0;
396 static ID id_move = 0;
397 static ID id_line = 0;
398 static ID id_spline = 0;
399 static ID id_radial = 0;
400 static ID id_linear = 0;
401
402 static VALUE noop(int argc, VALUE *argv, VALUE obj) {return obj;}
403
404 #define forward(v,id,args...) rb_respond_to((v), (id))?rb_funcall((v), (id), args):0
405
406 VALUE convert_line(gfxline_t*line)
407 {
408     int len = 0;
409     gfxline_t*l = line;
410     while(l) {l=l->next;len++;}
411
412     volatile VALUE array = rb_ary_new2(len);
413
414     int pos = 0;
415     l = line;
416     while(l) {
417         volatile VALUE e;
418         if(l->type == gfx_moveTo) {
419             e = rb_ary_new3(3, ID2SYM(id_move), Qfalse, Qfalse);
420             rb_ary_store(array, pos, e);
421             rb_ary_store(e, 1, rb_float_new(l->x));
422             rb_ary_store(e, 2, rb_float_new(l->y));
423         } else if(l->type == gfx_lineTo) {
424             e = rb_ary_new3(3, ID2SYM(id_line), Qfalse, Qfalse);
425             rb_ary_store(array, pos, e);
426             rb_ary_store(e, 1, rb_float_new(l->x));
427             rb_ary_store(e, 2, rb_float_new(l->y));
428         } else {
429             e = rb_ary_new3(5, ID2SYM(id_spline), Qfalse, Qfalse, Qfalse, Qfalse);
430             rb_ary_store(array, pos, e);
431             rb_ary_store(e, 1, rb_float_new(l->x));
432             rb_ary_store(e, 2, rb_float_new(l->y));
433             rb_ary_store(e, 3, rb_float_new(l->sx));
434             rb_ary_store(e, 4, rb_float_new(l->sy));
435         }
436         pos++;
437         l=l->next;
438     }
439     return array;
440 }
441 VALUE convert_color(gfxcolor_t*color)
442 {
443     return rb_ary_new3(4, INT2FIX(color->a), INT2FIX(color->r), INT2FIX(color->g), INT2FIX(color->b));
444 }
445 VALUE convert_matrix(gfxmatrix_t*matrix)
446 {
447     volatile VALUE array = rb_ary_new2(3);
448     volatile VALUE a = rb_ary_new2(2);
449     rb_ary_store(array, 0, a);
450     rb_ary_store(a, 0, rb_float_new(matrix->m00));
451     rb_ary_store(a, 1, rb_float_new(matrix->m01));
452     a = rb_ary_new2(2);
453     rb_ary_store(array, 1, a);
454     rb_ary_store(a, 0, rb_float_new(matrix->m10));
455     rb_ary_store(a, 1, rb_float_new(matrix->m11));
456     a = rb_ary_new2(2);
457     rb_ary_store(array, 2, a);
458     rb_ary_store(a, 0, rb_float_new(matrix->tx));
459     rb_ary_store(a, 1, rb_float_new(matrix->ty));
460     return array;
461 }
462 static VALUE font_is_cached(device_internal_t*i, gfxfont_t*font)
463 {
464     return (VALUE)gfxfontlist_getuserdata(i->doc->fontlist, font->id);
465 }
466 static void cache_font(device_internal_t*i, gfxfont_t*font, VALUE v)
467 {
468     i->doc->fontlist = gfxfontlist_addfont2(i->doc->fontlist, font, (void*)v);
469 }
470 static VALUE convert_font(gfxfont_t*font)
471 {
472     volatile VALUE v2 = font_allocate(Font);
473     Get_Font(f, v2);
474     f->font = font;
475     f->glyph_array = rb_ary_new2(font->num_glyphs);
476
477     int t;
478     for(t=0;t<font->num_glyphs;t++) {
479         volatile VALUE a = glyph_allocate(Glyph);
480         rb_ary_store(f->glyph_array, t, a);
481         Get_Glyph(g, a);
482         g->font = f;
483         g->nr = t;
484     }
485     return v2;
486 }
487 #define HEAD \
488     device_internal_t*i = (device_internal_t*)dev->internal; \
489     VALUE v = i->v;
490 int rb_setparameter(gfxdevice_t*dev, const char*key, const char*value)
491 {
492     HEAD
493     volatile VALUE v_key = rb_tainted_str_new2(key);
494     volatile VALUE v_value = rb_tainted_str_new2(value);
495     VALUE ret = forward(v,id_setparameter,2,v_key,v_value);
496     return 0;
497 }
498 void rb_startpage(gfxdevice_t*dev, int width, int height)
499 {
500     HEAD
501     VALUE ret = forward(v,id_startpage,2,INT2FIX(width),INT2FIX(height));
502 }
503 void rb_startclip(gfxdevice_t*dev, gfxline_t*line)
504 {
505     HEAD
506     volatile VALUE v_line = convert_line(line);
507     VALUE ret = forward(v,id_startclip,1,v_line);
508 }
509 void rb_endclip(gfxdevice_t*dev)
510 {
511     HEAD
512     VALUE ret = forward(v,id_endclip,0);
513 }
514 void rb_stroke(gfxdevice_t*dev, gfxline_t*line, gfxcoord_t width, gfxcolor_t*color, gfx_capType cap_style, gfx_joinType joint_style, gfxcoord_t miterLimit)
515 {
516     HEAD
517     
518     ID cap = 0;
519     if(cap_style == gfx_capButt) cap = id_butt;
520     else if(cap_style == gfx_capRound) cap = id_round;
521     else if(cap_style == gfx_capSquare) cap = id_square;
522     
523     ID joint = 0;
524     if(joint_style == gfx_joinRound) joint = id_round;
525     else if(joint_style == gfx_joinMiter) joint = id_miter;
526     else if(joint_style == gfx_joinBevel) joint = id_bevel;
527
528     volatile VALUE v_line = convert_line(line);
529     volatile VALUE v_width = rb_float_new(width);
530     volatile VALUE v_color = convert_color(color);
531     volatile VALUE v_miter = rb_float_new(miterLimit);
532     forward(v, id_stroke, 6, v_line, v_width, v_color, ID2SYM(cap), ID2SYM(joint), v_miter);
533 }
534 void rb_fill(gfxdevice_t*dev, gfxline_t*line, gfxcolor_t*color)
535 {
536     HEAD
537     
538     volatile VALUE v_line = convert_line(line);
539     volatile VALUE v_color = convert_color(color);
540     forward(v, id_fill, 2, v_line, v_color);
541 }
542 void rb_fillbitmap(gfxdevice_t*dev, gfxline_t*line, gfximage_t*img, gfxmatrix_t*matrix, gfxcxform_t*cxform)
543 {
544     HEAD
545     volatile VALUE v_image = convert_image(i->doc, img);
546     volatile VALUE v_line = convert_line(line);
547     volatile VALUE v_matrix = convert_matrix(matrix);
548     forward(v, id_fillbitmap, 4, v_line, v_image, v_matrix, Qnil);
549     invalidate_image(v_image);
550 }
551 void rb_fillgradient(gfxdevice_t*dev, gfxline_t*line, gfxgradient_t*gradient, gfxgradienttype_t type, gfxmatrix_t*matrix)
552 {
553     HEAD
554     ID typeid = (type == gfxgradient_linear)? id_linear : id_radial;
555     
556     volatile VALUE v_line = convert_line(line);
557     volatile VALUE v_matrix = convert_matrix(matrix);
558     volatile VALUE v_gradient = convert_gradient(gradient);
559     forward(v, id_fillgradient, 4, v_line, v_gradient, ID2SYM(typeid), v_matrix);
560 }
561 void rb_addfont(gfxdevice_t*dev, gfxfont_t*font)
562 {
563     HEAD
564
565     volatile VALUE f = font_is_cached(i, font);
566     if(!f) {f=convert_font(font);cache_font(i,font,f);}
567
568     forward(v, id_addfont, 1, f);
569 }
570 void rb_drawchar(gfxdevice_t*dev, gfxfont_t*font, int glyphnr, gfxcolor_t*color, gfxmatrix_t*matrix)
571 {
572     HEAD
573     volatile VALUE f = font_is_cached(i, font);
574     if(!f) {f=convert_font(font);cache_font(i,font,f);}
575
576     volatile VALUE v_color = convert_color(color);
577     volatile VALUE v_matrix = convert_matrix(matrix);
578     forward(v, id_drawchar, 4, f, INT2FIX(glyphnr), v_color, v_matrix);
579 }
580 void rb_drawlink(gfxdevice_t*dev, gfxline_t*line, const char*action)
581 {
582     HEAD
583     volatile VALUE v_line = convert_line(line);
584     volatile VALUE v_action = rb_tainted_str_new2(action);
585     forward(v, id_drawlink, v_line, v_action);
586 }
587 void rb_endpage(gfxdevice_t*dev)
588 {
589     HEAD
590     forward(v, id_endpage, 0);
591 }
592 gfxresult_t* rb_finish(gfxdevice_t*dev)
593 {
594     HEAD
595     VALUE ret = forward(v, id_endpage, 0);
596     gfxresult_t*r = (gfxresult_t*)rfx_calloc(sizeof(gfxresult_t));
597     r->internal = (void*)(ptroff_t)ret;
598     return r;
599 }
600
601 static VALUE page_render(VALUE cls, VALUE device)
602 {
603     Check_Type(device, T_OBJECT);
604     Get_Page(page,cls)
605
606     gfxdevice_t dev;
607     device_internal_t i;
608     i.v = device;
609     i.doc = page->doc;
610
611     dev.internal = &i;
612     dev.setparameter = rb_setparameter;
613     dev.startpage = rb_startpage;
614     dev.startclip = rb_startclip;
615     dev.endclip = rb_endclip;
616     dev.stroke = rb_stroke;
617     dev.fill = rb_fill;
618     dev.fillbitmap = rb_fillbitmap;
619     dev.fillgradient = rb_fillgradient;
620     dev.addfont = rb_addfont;
621     dev.drawchar = rb_drawchar;
622     dev.drawlink = rb_drawlink;
623     dev.endpage = rb_endpage;
624     dev.finish = rb_finish;
625
626     dev.startpage(&dev, page->page->width, page->page->height);
627     page->page->render(page->page, &dev);
628     dev.endpage(&dev);
629
630     return cls;
631 }
632
633 // ---------------------- global functions ----------------------------------
634
635 VALUE gfx_setparameter(VALUE module, VALUE _key, VALUE _value)
636 {
637     Check_Type(_key, T_STRING);
638     Check_Type(_value, T_STRING);
639     const char*key = StringValuePtr(_key);
640     const char*value = StringValuePtr(_value);
641     pdfdriver->setparameter(pdfdriver, key, value);
642     swfdriver->setparameter(swfdriver, key, value);
643     imagedriver->setparameter(imagedriver, key, value);
644     return GFX;
645 }
646
647 // --------------------------------------------------------------------------
648
649 void Init_gfx()
650 {
651     initLog(0,0,0,0,0,2);
652     pdfdriver = gfxsource_pdf_create();
653     swfdriver = gfxsource_swf_create();
654     imagedriver = gfxsource_image_create();
655
656     GFX = rb_define_module("GFX");
657     
658     rb_define_module_function(GFX, "setparameter", gfx_setparameter, 2);
659     
660     DocumentPage = rb_define_class_under(GFX, "DocumentPage", rb_cObject);
661     rb_define_method(DocumentPage, "width", page_width, 0);
662     rb_define_method(DocumentPage, "height", page_height, 0);
663     rb_define_method(DocumentPage, "nr", page_nr, 0);
664     rb_define_method(DocumentPage, "render", page_render, 1);
665
666     Document = rb_define_class_under(GFX, "Document", rb_cObject);
667     rb_define_method(Document, "initialize", doc_initialize, 1);
668     rb_define_method(Document, "page", doc_get_page, 1);
669     rb_define_method(Document, "each_page", doc_each_page, 0);
670     
671     Bitmap = rb_define_class_under(GFX, "Bitmap", rb_cObject);
672     rb_define_method(Bitmap, "save_jpeg", image_save_jpeg, 2);
673     rb_define_method(Bitmap, "save_png", image_save_png, 1);
674     rb_define_method(Bitmap, "width", image_width, 0);
675     rb_define_method(Bitmap, "height", image_height, 0);
676     rb_define_method(Bitmap, "rescale", image_rescale, 2);
677     
678     Glyph = rb_define_class_under(GFX, "Glyph", rb_cObject);
679     rb_define_method(Glyph, "polygon", glyph_polygon, 0);
680     rb_define_method(Glyph, "unicode", glyph_unicode, 0);
681     rb_define_method(Glyph, "advance", glyph_advance, 0);
682     rb_define_method(Glyph, "bbox", glyph_bbox, 0);
683     
684     Font = rb_define_class_under(GFX, "Font", rb_cObject);
685     rb_define_method(Font, "name", font_name, 0);
686     rb_define_method(Font, "ascent", font_ascent, 0);
687     rb_define_method(Font, "descent", font_descent, 0);
688     rb_define_method(Font, "glyphs", font_glyphs, 0);
689     rb_define_method(Font, "kerning", font_kerning, 0);
690     rb_define_method(Font, "get_kerning_table", font_kerning, 0);
691     
692     Device = rb_define_class_under(GFX, "Device", rb_cObject);
693     rb_define_method(Device, "startpage", noop, -1);
694     rb_define_method(Device, "endpage", noop, -1);
695     rb_define_method(Device, "startclip", noop, -1);
696     rb_define_method(Device, "endclip", noop, -1);
697     rb_define_method(Device, "stroke", noop, -1);
698     rb_define_method(Device, "fill", noop, -1);
699     rb_define_method(Device, "fillbitmap", noop, -1);
700     rb_define_method(Device, "fillgradient", noop, -1);
701     rb_define_method(Device, "addfont", noop, -1);
702     rb_define_method(Device, "drawchar", noop, -1);
703     rb_define_method(Device, "drawlink", noop, -1);
704     rb_define_method(Device, "endpage", noop, -1);
705
706     PDFClass = rb_define_class_under(GFX, "PDF", Document);
707     rb_define_alloc_func(PDFClass, pdf_allocate);
708     
709     SWFClass = rb_define_class_under(GFX, "SWF", Document);
710     rb_define_alloc_func(SWFClass, swf_allocate);
711     
712     ImageClass = rb_define_class_under(GFX, "ImageRead", Document);
713     rb_define_alloc_func(ImageClass, imgdrv_allocate);
714
715     id_setparameter = rb_intern("setparameter");
716     id_startpage = rb_intern("startpage") ;
717     id_startclip = rb_intern("startclip") ;
718     id_endclip = rb_intern("endclip") ;
719     id_stroke = rb_intern("stroke") ;
720     id_fill = rb_intern("fill") ;
721     id_fillbitmap = rb_intern("fillbitmap") ;
722     id_fillgradient = rb_intern("fillgradient") ;
723     id_addfont = rb_intern("addfont") ;
724     id_drawchar = rb_intern("drawchar") ;
725     id_drawlink = rb_intern("drawlink") ;
726     id_endpage = rb_intern("endpage") ;
727     id_geterror = rb_intern("geterror") ;
728     id_finish = rb_intern("finish") ;
729     id_butt = rb_intern("butt");
730     id_round = rb_intern("round");
731     id_square = rb_intern("square");
732     id_miter = rb_intern("miter");
733     id_bevel = rb_intern("bevel");
734     id_move = rb_intern("move");
735     id_line = rb_intern("line");
736     id_spline = rb_intern("spline");
737     id_radial = rb_intern("radial");
738     id_linear = rb_intern("linear");
739 }
740