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 static VALUE doc_prepare(VALUE cls, VALUE device)
 634 {
 635     Get_Doc(doc,cls);
 636
 637     gfxdevice_t dev;
 638     device_internal_t i;
 639     i.v = device;
 640     i.doc = doc;
 641
 642     dev.internal = &i;
 643     dev.setparameter = rb_setparameter;
 644     dev.startpage = rb_startpage;
 645     dev.startclip = rb_startclip;
 646     dev.endclip = rb_endclip;
 647     dev.stroke = rb_stroke;
 648     dev.fill = rb_fill;
 649     dev.fillbitmap = rb_fillbitmap;
 650     dev.fillgradient = rb_fillgradient;
 651     dev.addfont = rb_addfont;
 652     dev.drawchar = rb_drawchar;
 653     dev.drawlink = rb_drawlink;
 654     dev.endpage = rb_endpage;
 655     dev.finish = rb_finish;
 656
 657     doc->doc->prepare(doc->doc, &dev);
 658     return cls;
 659 }
 660
 661
 662 // ---------------------- global functions ----------------------------------
 663
 664 VALUE gfx_setparameter(VALUE module, VALUE _key, VALUE _value)
 665 {
 666     Check_Type(_key, T_STRING);
 667     Check_Type(_value, T_STRING);
 668     const char*key = StringValuePtr(_key);
 669     const char*value = StringValuePtr(_value);
 670     pdfdriver->setparameter(pdfdriver, key, value);
 671     swfdriver->setparameter(swfdriver, key, value);
 672     imagedriver->setparameter(imagedriver, key, value);
 673     return GFX;
 674 }
 675
 676 // --------------------------------------------------------------------------
 677
 678 void Init_gfx()
 679 {
 680     initLog(0,0,0,0,0,2);
 681     pdfdriver = gfxsource_pdf_create();
 682     swfdriver = gfxsource_swf_create();
 683     imagedriver = gfxsource_image_create();
 684
 685     GFX = rb_define_module("GFX");
 686
 687     rb_define_module_function(GFX, "setparameter", gfx_setparameter, 2);
 688
 689     DocumentPage = rb_define_class_under(GFX, "DocumentPage", rb_cObject);
 690     rb_define_method(DocumentPage, "width", page_width, 0);
 691     rb_define_method(DocumentPage, "height", page_height, 0);
 692     rb_define_method(DocumentPage, "nr", page_nr, 0);
 693     rb_define_method(DocumentPage, "render", page_render, 1);
 694
 695     Document = rb_define_class_under(GFX, "Document", rb_cObject);
 696     rb_define_method(Document, "initialize", doc_initialize, 1);
 697     rb_define_method(Document, "page", doc_get_page, 1);
 698     rb_define_method(Document, "each_page", doc_each_page, 0);
 699     rb_define_method(Document, "prepare", doc_prepare, 1);
 700
 701     Bitmap = rb_define_class_under(GFX, "Bitmap", rb_cObject);
 702     rb_define_method(Bitmap, "save_jpeg", image_save_jpeg, 2);
 703     rb_define_method(Bitmap, "save_png", image_save_png, 1);
 704     rb_define_method(Bitmap, "width", image_width, 0);
 705     rb_define_method(Bitmap, "height", image_height, 0);
 706     rb_define_method(Bitmap, "rescale", image_rescale, 2);
 707
 708     Glyph = rb_define_class_under(GFX, "Glyph", rb_cObject);
 709     rb_define_method(Glyph, "polygon", glyph_polygon, 0);
 710     rb_define_method(Glyph, "unicode", glyph_unicode, 0);
 711     rb_define_method(Glyph, "advance", glyph_advance, 0);
 712     rb_define_method(Glyph, "bbox", glyph_bbox, 0);
 713
 714     Font = rb_define_class_under(GFX, "Font", rb_cObject);
 715     rb_define_method(Font, "name", font_name, 0);
 716     rb_define_method(Font, "ascent", font_ascent, 0);
 717     rb_define_method(Font, "descent", font_descent, 0);
 718     rb_define_method(Font, "glyphs", font_glyphs, 0);
 719     rb_define_method(Font, "kerning", font_kerning, 0);
 720     rb_define_method(Font, "get_kerning_table", font_kerning, 0);
 721
 722     Device = rb_define_class_under(GFX, "Device", rb_cObject);
 723     rb_define_method(Device, "startpage", noop, -1);
 724     rb_define_method(Device, "endpage", noop, -1);
 725     rb_define_method(Device, "startclip", noop, -1);
 726     rb_define_method(Device, "endclip", noop, -1);
 727     rb_define_method(Device, "stroke", noop, -1);
 728     rb_define_method(Device, "fill", noop, -1);
 729     rb_define_method(Device, "fillbitmap", noop, -1);
 730     rb_define_method(Device, "fillgradient", noop, -1);
 731     rb_define_method(Device, "addfont", noop, -1);
 732     rb_define_method(Device, "drawchar", noop, -1);
 733     rb_define_method(Device, "drawlink", noop, -1);
 734     rb_define_method(Device, "endpage", noop, -1);
 735
 736     PDFClass = rb_define_class_under(GFX, "PDF", Document);
 737     rb_define_alloc_func(PDFClass, pdf_allocate);
 738
 739     SWFClass = rb_define_class_under(GFX, "SWF", Document);
 740     rb_define_alloc_func(SWFClass, swf_allocate);
 741
 742     ImageClass = rb_define_class_under(GFX, "ImageRead", Document);
 743     rb_define_alloc_func(ImageClass, imgdrv_allocate);
 744
 745     id_setparameter = rb_intern("setparameter");
 746     id_startpage = rb_intern("startpage") ;
 747     id_startclip = rb_intern("startclip") ;
 748     id_endclip = rb_intern("endclip") ;
 749     id_stroke = rb_intern("stroke") ;
 750     id_fill = rb_intern("fill") ;
 751     id_fillbitmap = rb_intern("fillbitmap") ;
 752     id_fillgradient = rb_intern("fillgradient") ;
 753     id_addfont = rb_intern("addfont") ;
 754     id_drawchar = rb_intern("drawchar") ;
 755     id_drawlink = rb_intern("drawlink") ;
 756     id_endpage = rb_intern("endpage") ;
 757     id_geterror = rb_intern("geterror") ;
 758     id_finish = rb_intern("finish") ;
 759     id_butt = rb_intern("butt");
 760     id_round = rb_intern("round");
 761     id_square = rb_intern("square");
 762     id_miter = rb_intern("miter");
 763     id_bevel = rb_intern("bevel");
 764     id_move = rb_intern("move");
 765     id_line = rb_intern("line");
 766     id_spline = rb_intern("spline");
 767     id_radial = rb_intern("radial");
 768     id_linear = rb_intern("linear");
 769 }
 770