lib/ruby/gfx.c

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