new function gfxdevice_record_flush()
[swftools.git] / lib / devices / record.c
1 /* gfxdevice_record.cc
2
3    Part of the swftools package.
4
5    Copyright (c) 2005 Matthias Kramm <kramm@quiss.org> 
6  
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 2 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
20
21 #include <stdlib.h>
22 #include <stdio.h>
23 #include <math.h>
24 #include "../../config.h"
25 #ifdef HAVE_UNISTD_H
26 #include <unistd.h>
27 #endif
28 #include <memory.h>
29 #ifdef HAVE_IO_H
30 #include <io.h>
31 #endif
32 #include <string.h>
33 #include "../gfxdevice.h"
34 #include "../gfxtools.h"
35 #include "../types.h"
36 #include "../bitio.h"
37 #include "../log.h"
38 #include "record.h"
39
40 typedef struct _internal {
41     gfxfontlist_t* fontlist;
42     writer_t w;
43 } internal_t;
44
45 typedef struct _internal_result {
46     void*data;
47     int length;
48 } internal_result_t;
49
50 #define OP_END 0x00
51 #define OP_SETPARAM 0x01
52 #define OP_STROKE 0x02
53 #define OP_STARTCLIP 0x03
54 #define OP_ENDCLIP 0x04
55 #define OP_FILL 0x05
56 #define OP_FILLBITMAP 0x06
57 #define OP_FILLGRADIENT 0x07
58 #define OP_ADDFONT 0x08
59 #define OP_DRAWCHAR 0x09
60 #define OP_DRAWLINK 0x0a
61 #define OP_STARTPAGE 0x0b
62 #define OP_ENDPAGE 0x0c
63 #define OP_FINISH 0x0d
64
65 #define OP_MOVETO 0x0e
66 #define OP_LINETO 0x0f
67 #define OP_SPLINETO 0x10
68
69 static int record_setparameter(struct _gfxdevice*dev, const char*key, const char*value)
70 {
71     internal_t*i = (internal_t*)dev->internal;
72     msg("<trace> record: SETPARAM %s %s\n", key, value);
73     writer_writeU8(&i->w, OP_SETPARAM);
74     writer_writeString(&i->w, key);
75     writer_writeString(&i->w, value);
76     return 1;
77 }
78
79 static void dumpLine(writer_t*w, gfxline_t*line)
80 {
81     while(line) {
82         if(line->type == gfx_moveTo) {
83             writer_writeU8(w, OP_MOVETO);
84             writer_writeDouble(w, line->x);
85             writer_writeDouble(w, line->y);
86         } else if(line->type == gfx_lineTo) {
87             writer_writeU8(w, OP_LINETO);
88             writer_writeDouble(w, line->x);
89             writer_writeDouble(w, line->y);
90         } else if(line->type == gfx_splineTo) {
91             writer_writeU8(w, OP_SPLINETO);
92             writer_writeDouble(w, line->x);
93             writer_writeDouble(w, line->y);
94             writer_writeDouble(w, line->sx);
95             writer_writeDouble(w, line->sy);
96         }
97         line = line->next;
98     }
99     writer_writeU8(w, OP_END);
100 }
101 static gfxline_t* readLine(reader_t*r)
102 {
103     gfxline_t*start = 0, *pos = 0;
104     while(1) {
105         unsigned char op = reader_readU8(r);
106         if(op == OP_END)
107             break;
108         gfxline_t*line = (gfxline_t*)rfx_calloc(sizeof(gfxline_t));
109         if(!start) {
110             start = pos = line;
111         } else {
112             pos->next = line;
113             pos = line;
114         }
115         if(op == OP_MOVETO) {
116             line->type = gfx_moveTo;
117             line->x = reader_readDouble(r);
118             line->y = reader_readDouble(r);
119         } else if(op == OP_LINETO) {
120             line->type = gfx_lineTo;
121             line->x = reader_readDouble(r);
122             line->y = reader_readDouble(r);
123         } else if(op == OP_SPLINETO) {
124             line->type = gfx_splineTo;
125             line->x = reader_readDouble(r);
126             line->y = reader_readDouble(r);
127             line->sx = reader_readDouble(r);
128             line->sy = reader_readDouble(r);
129         }
130     }
131     return start;
132 }
133 static gfximage_t readImage(reader_t*r)
134 {
135     gfximage_t img;
136     img.width = reader_readU16(r);
137     img.height = reader_readU16(r);
138     img.data = (gfxcolor_t*)rfx_alloc(img.width*img.height*4);
139     r->read(r, img.data, img.width*img.height*4);
140     return img;
141 }
142 static gfxmatrix_t readMatrix(reader_t*r)
143 {
144     gfxmatrix_t matrix;
145     matrix.m00 = reader_readDouble(r);
146     matrix.m01 = reader_readDouble(r);
147     matrix.m10 = reader_readDouble(r);
148     matrix.m11 = reader_readDouble(r);
149     matrix.tx = reader_readDouble(r);
150     matrix.ty = reader_readDouble(r);
151     return matrix;
152 }
153 static gfxcolor_t readColor(reader_t*r)
154 {
155     gfxcolor_t col;
156     col.r = reader_readU8(r);
157     col.g = reader_readU8(r);
158     col.b = reader_readU8(r);
159     col.a = reader_readU8(r);
160     return col;
161 }
162 static gfxgradient_t* readGradient(reader_t*r)
163 {
164     gfxgradient_t*start = 0, *pos = 0;
165     while(1) {
166         U8 op = reader_readU8(r);
167         if(!op)
168             break;
169         gfxgradient_t*g = (gfxgradient_t*)rfx_calloc(sizeof(gfxgradient_t));
170         if(!start) {
171             start = pos = g;
172         } else {
173             pos->next = g;
174             pos = g;
175         }
176         g->color = readColor(r);
177         g->pos = reader_readFloat(r);
178     }
179     return start;
180 }
181 static gfxcxform_t* readCXForm(reader_t*r)
182 {
183     U8 type = reader_readU8(r);
184     if(!type)
185         return 0;
186     gfxcxform_t* c = (gfxcxform_t*)rfx_calloc(sizeof(gfxcxform_t));
187     c->rr = reader_readFloat(r); c->rg = reader_readFloat(r); c->rb = reader_readFloat(r); c->ra = reader_readFloat(r);
188     c->gr = reader_readFloat(r); c->gg = reader_readFloat(r); c->gb = reader_readFloat(r); c->ga = reader_readFloat(r);
189     c->br = reader_readFloat(r); c->bg = reader_readFloat(r); c->bb = reader_readFloat(r); c->ba = reader_readFloat(r);
190     c->ar = reader_readFloat(r); c->ag = reader_readFloat(r); c->ab = reader_readFloat(r); c->aa = reader_readFloat(r);
191     return c;
192 }
193
194 static void dumpColor(writer_t*w, gfxcolor_t*color)
195 {
196     writer_writeU8(w, color->r);
197     writer_writeU8(w, color->g);
198     writer_writeU8(w, color->b);
199     writer_writeU8(w, color->a);
200 }
201 static void dumpMatrix(writer_t*w, gfxmatrix_t*matrix)
202 {
203     writer_writeDouble(w, matrix->m00);
204     writer_writeDouble(w, matrix->m01);
205     writer_writeDouble(w, matrix->m10);
206     writer_writeDouble(w, matrix->m11);
207     writer_writeDouble(w, matrix->tx);
208     writer_writeDouble(w, matrix->ty);
209 }
210 static void dumpGradient(writer_t*w, gfxgradient_t*gradient)
211 {
212     while(gradient) {
213         writer_writeU8(w, 1);
214         dumpColor(w, &gradient->color);
215         writer_writeFloat(w, gradient->pos);
216         gradient = gradient->next;
217     }
218     writer_writeU8(w, 0);
219 }
220 static void dumpImage(writer_t*w, gfximage_t*image)
221 {
222     writer_writeU16(w, image->width);
223     writer_writeU16(w, image->height);
224     w->write(w, image->data, image->width*image->height*4);
225 }
226 static void dumpCXForm(writer_t*w, gfxcxform_t*c)
227 {
228     if(!c) {
229         writer_writeU8(w, 0);
230     } else {
231         writer_writeU8(w, 1);
232         writer_writeFloat(w, c->rr); writer_writeFloat(w, c->rg); writer_writeFloat(w, c->rb); writer_writeFloat(w, c->ra);
233         writer_writeFloat(w, c->gr); writer_writeFloat(w, c->gg); writer_writeFloat(w, c->gb); writer_writeFloat(w, c->ga);
234         writer_writeFloat(w, c->br); writer_writeFloat(w, c->bg); writer_writeFloat(w, c->bb); writer_writeFloat(w, c->ba);
235         writer_writeFloat(w, c->ar); writer_writeFloat(w, c->ag); writer_writeFloat(w, c->ab); writer_writeFloat(w, c->aa);
236     }
237 }
238 static void dumpFont(writer_t*w, gfxfont_t*font)
239 {
240     writer_writeString(w, font->id);
241     writer_writeU32(w, font->num_glyphs);
242     writer_writeU32(w, font->max_unicode);
243     int t;
244     for(t=0;t<font->num_glyphs;t++) {
245         dumpLine(w, font->glyphs[t].line);
246         writer_writeDouble(w, font->glyphs[t].advance);
247         writer_writeU32(w, font->glyphs[t].unicode);
248         if(font->glyphs[t].name) {
249             writer_writeString(w,font->glyphs[t].name);
250         } else {
251             writer_writeU8(w,0);
252         }
253     }
254     for(t=0;t<font->max_unicode;t++) {
255         writer_writeU32(w, font->unicode2glyph[t]);
256     }
257 }
258 static gfxfont_t*readFont(reader_t*r)
259 {
260     gfxfont_t* font = (gfxfont_t*)rfx_calloc(sizeof(gfxfont_t));
261     font->id = reader_readString(r);
262     font->num_glyphs = reader_readU32(r);
263     font->max_unicode = reader_readU32(r);
264     font->glyphs = (gfxglyph_t*)rfx_calloc(sizeof(gfxglyph_t)*font->num_glyphs);
265     font->unicode2glyph = (int*)rfx_calloc(sizeof(font->unicode2glyph[0])*font->max_unicode);
266     int t;
267     for(t=0;t<font->num_glyphs;t++) {
268         font->glyphs[t].line = readLine(r);
269         font->glyphs[t].advance = reader_readDouble(r);
270         font->glyphs[t].unicode = reader_readU32(r);
271         font->glyphs[t].name = reader_readString(r);
272         if(!font->glyphs[t].name[0]) {
273             free((void*)(font->glyphs[t].name));
274             font->glyphs[t].name = 0;
275         }
276     }
277     for(t=0;t<font->max_unicode;t++) {
278         font->unicode2glyph[t] = reader_readU32(r);
279     }
280     return font;
281 }
282
283 static void record_stroke(struct _gfxdevice*dev, gfxline_t*line, gfxcoord_t width, gfxcolor_t*color, gfx_capType cap_style, gfx_joinType joint_style, gfxcoord_t miterLimit)
284 {
285     internal_t*i = (internal_t*)dev->internal;
286     msg("<trace> record: STROKE\n");
287     writer_writeU8(&i->w, OP_STROKE);
288     writer_writeDouble(&i->w, width);
289     writer_writeDouble(&i->w, miterLimit);
290     dumpColor(&i->w, color);
291     writer_writeU8(&i->w, cap_style);
292     writer_writeU8(&i->w, joint_style);
293     dumpLine(&i->w, line);
294 }
295
296 static void record_startclip(struct _gfxdevice*dev, gfxline_t*line)
297 {
298     internal_t*i = (internal_t*)dev->internal;
299     msg("<trace> record: STARTCLIP\n");
300     writer_writeU8(&i->w, OP_STARTCLIP);
301     dumpLine(&i->w, line);
302 }
303
304 static void record_endclip(struct _gfxdevice*dev)
305 {
306     internal_t*i = (internal_t*)dev->internal;
307     msg("<trace> record: ENDCLIP\n");
308     writer_writeU8(&i->w, OP_ENDCLIP);
309 }
310
311 static void record_fill(struct _gfxdevice*dev, gfxline_t*line, gfxcolor_t*color)
312 {
313     internal_t*i = (internal_t*)dev->internal;
314     msg("<trace> record: FILL\n");
315     writer_writeU8(&i->w, OP_FILL);
316     dumpColor(&i->w, color);
317     dumpLine(&i->w, line);
318 }
319
320 static void record_fillbitmap(struct _gfxdevice*dev, gfxline_t*line, gfximage_t*img, gfxmatrix_t*matrix, gfxcxform_t*cxform)
321 {
322     internal_t*i = (internal_t*)dev->internal;
323     msg("<trace> record: FILLBITMAP\n");
324     writer_writeU8(&i->w, OP_FILLBITMAP);
325     dumpImage(&i->w, img);
326     dumpMatrix(&i->w, matrix);
327     dumpLine(&i->w, line);
328     dumpCXForm(&i->w, cxform);
329 }
330
331 static void record_fillgradient(struct _gfxdevice*dev, gfxline_t*line, gfxgradient_t*gradient, gfxgradienttype_t type, gfxmatrix_t*matrix)
332 {
333     internal_t*i = (internal_t*)dev->internal;
334     msg("<trace> record: FILLGRADIENT\n");
335     writer_writeU8(&i->w, OP_FILLGRADIENT);
336     writer_writeU8(&i->w, type);
337     dumpGradient(&i->w, gradient);
338     dumpMatrix(&i->w, matrix);
339     dumpLine(&i->w, line);
340 }
341
342 static void record_addfont(struct _gfxdevice*dev, gfxfont_t*font)
343 {
344     internal_t*i = (internal_t*)dev->internal;
345     msg("<trace> record: ADDFONT\n");
346     writer_writeU8(&i->w, OP_ADDFONT);
347     dumpFont(&i->w, font);
348     i->fontlist = gfxfontlist_addfont(i->fontlist, font);
349 }
350
351 static void record_drawchar(struct _gfxdevice*dev, gfxfont_t*font, int glyphnr, gfxcolor_t*color, gfxmatrix_t*matrix)
352 {
353     internal_t*i = (internal_t*)dev->internal;
354     if(font && !gfxfontlist_hasfont(i->fontlist, font)) {
355         record_addfont(dev, font);
356         i->fontlist = gfxfontlist_addfont(i->fontlist, font);
357     }
358
359     msg("<trace> record: DRAWCHAR %d\n", glyphnr);
360     writer_writeU8(&i->w, OP_DRAWCHAR);
361     if(font) 
362         writer_writeString(&i->w, font->id);
363     else
364         writer_writeString(&i->w, "*NULL*");
365     writer_writeU32(&i->w, glyphnr);
366     dumpColor(&i->w, color);
367     dumpMatrix(&i->w, matrix);
368 }
369
370 static void record_startpage(struct _gfxdevice*dev, int width, int height)
371 {
372     internal_t*i = (internal_t*)dev->internal;
373     msg("<trace> record: STARTPAGE\n");
374     writer_writeU8(&i->w, OP_STARTPAGE);
375     writer_writeU16(&i->w, width);
376     writer_writeU16(&i->w, height);
377 }
378
379 static void record_endpage(struct _gfxdevice*dev)
380 {
381     internal_t*i = (internal_t*)dev->internal;
382     msg("<trace> record: ENDPAGE\n");
383     writer_writeU8(&i->w, OP_ENDPAGE);
384 }
385
386 static void record_drawlink(struct _gfxdevice*dev, gfxline_t*line, const char*action)
387 {
388     internal_t*i = (internal_t*)dev->internal;
389     msg("<trace> record: DRAWLINK\n");
390     writer_writeU8(&i->w, OP_DRAWLINK);
391     dumpLine(&i->w, line);
392     writer_writeString(&i->w, action);
393 }
394
395 static void replay(struct _gfxdevice*recorddev, gfxdevice_t*device, void*data, int length)
396 {
397     internal_t*i = 0;
398     if(recorddev) {
399         i = (internal_t*)recorddev->internal;
400     }
401
402     reader_t r2;
403     reader_t*r = &r2;
404     reader_init_memreader(r, data, length);
405     gfxfontlist_t* fontlist = gfxfontlist_create();
406
407     while(r->pos < length) {
408         unsigned char op = reader_readU8(r);
409         switch(op) {
410             case OP_END:
411                 msg("<trace> replay: END");
412                 return;
413             case OP_SETPARAM: {
414                 msg("<trace> replay: SETPARAM");
415                 char*key;
416                 char*value;
417                 key = reader_readString(r);
418                 value = reader_readString(r);
419                 device->setparameter(device, key, value);
420                 free(key);
421                 free(value);
422                 break;
423             }
424             case OP_STARTPAGE: {
425                 msg("<trace> replay: STARTPAGE");
426                 U16 width = reader_readU16(r);
427                 U16 height = reader_readU16(r);
428                 device->startpage(device, width, height);
429                 break;
430             }
431             case OP_ENDPAGE: {
432                 msg("<trace> replay: ENDPAGE");
433                 break;
434             }
435             case OP_FINISH: {
436                 msg("<trace> replay: FINISH");
437                 break;
438             }
439             case OP_STROKE: {
440                 msg("<trace> replay: STROKE");
441                 double width = reader_readDouble(r);
442                 double miterlimit = reader_readDouble(r);
443                 gfxcolor_t color = readColor(r);
444                 gfx_capType captype;
445                 int v = reader_readU8(r);
446                 switch (v) {
447                     case 0: captype = gfx_capButt; break;
448                     case 1: captype = gfx_capRound; break;
449                     case 2: captype = gfx_capSquare; break;
450                 }
451                 gfx_joinType jointtype;
452                 v = reader_readU8(r);
453                 switch (v) {
454                     case 0: jointtype = gfx_joinMiter; break;
455                     case 1: jointtype = gfx_joinRound; break;
456                     case 2: jointtype = gfx_joinBevel; break;
457                 }
458                 gfxline_t* line = readLine(r);
459                 device->stroke(device, line, width, &color, captype, jointtype,miterlimit);
460                 gfxline_free(line);
461                 break;
462             }
463             case OP_STARTCLIP: {
464                 msg("<trace> replay: STARTCLIP");
465                 gfxline_t* line = readLine(r);
466                 device->startclip(device, line);
467                 gfxline_free(line);
468                 break;
469             }
470             case OP_ENDCLIP: {
471                 msg("<trace> replay: ENDCLIP");
472                 device->endclip(device);
473                 break;
474             }
475             case OP_FILL: {
476                 msg("<trace> replay: FILL");
477                 gfxcolor_t color = readColor(r);
478                 gfxline_t* line = readLine(r);
479                 device->fill(device, line, &color);
480                 gfxline_free(line);
481                 break;
482             }
483             case OP_FILLBITMAP: {
484                 msg("<trace> replay: FILLBITMAP");
485                 gfximage_t img = readImage(r);
486                 gfxmatrix_t matrix = readMatrix(r);
487                 gfxline_t* line = readLine(r);
488                 gfxcxform_t* cxform = readCXForm(r);
489                 device->fillbitmap(device, line, &img, &matrix, cxform);
490                 if(cxform)
491                     free(cxform);
492                 break;
493             }
494             case OP_FILLGRADIENT: {
495                 msg("<trace> replay: FILLGRADIENT");
496                 gfxgradienttype_t type;
497                 int v = reader_readU8(r);
498                 switch (v) {
499                     case 0: 
500                       type = gfxgradient_radial; break;
501                     case 1:
502                       type = gfxgradient_linear; break;
503                 }  
504                 gfxgradient_t*gradient = readGradient(r);
505                 gfxmatrix_t matrix = readMatrix(r);
506                 gfxline_t* line = readLine(r);
507                 device->fillgradient(device, line, gradient, type, &matrix);
508                 break;
509             }
510             case OP_DRAWLINK: {
511                 msg("<trace> replay: DRAWLINK");
512                 gfxline_t* line = readLine(r);
513                 char* s = reader_readString(r);
514                 device->drawlink(device,line,s);
515                 gfxline_free(line);
516                 free(s);
517                 break;
518             }
519             case OP_ADDFONT: {
520                 msg("<trace> replay: ADDFONT");
521                 gfxfont_t*font = readFont(r);
522                 fontlist = gfxfontlist_addfont(fontlist, font);
523                 device->addfont(device, font);
524                 break;
525             }
526             case OP_DRAWCHAR: {
527                 char* id = reader_readString(r);
528                 gfxfont_t*font = id?gfxfontlist_findfont(fontlist, id):0;
529                 if(i && !font) {
530                     font = gfxfontlist_findfont(i->fontlist, id);
531                 }
532                 U32 glyph = reader_readU32(r);
533                 msg("<trace> replay: DRAWCHAR font=%s glyph=%d", id, glyph);
534                 gfxcolor_t color = readColor(r);
535                 gfxmatrix_t matrix = readMatrix(r);
536                 device->drawchar(device, font, glyph, &color, &matrix);
537                 free(id);
538                 break;
539             }
540         }
541     }
542     gfxfontlist_free(fontlist, 1);
543 }
544 void gfxresult_record_replay(gfxresult_t*result, gfxdevice_t*device)
545 {
546     internal_result_t*i = (internal_result_t*)result->internal;
547     replay(0, device, i->data, i->length);
548 }
549
550 static void record_result_write(gfxresult_t*r, int filedesc)
551 {
552     internal_result_t*i = (internal_result_t*)r->internal;
553     write(filedesc, i->data, i->length);
554 }
555 static int record_result_save(gfxresult_t*r, const char*filename)
556 {
557     internal_result_t*i = (internal_result_t*)r->internal;
558     FILE*fi = fopen(filename, "wb");
559     if(!fi) {
560         fprintf(stderr, "Couldn't open file %s for writing\n", filename);
561         return -1;
562     }
563     fwrite(i->data, i->length, 1, fi);
564     fclose(fi);
565     return 0;
566 }
567 static void*record_result_get(gfxresult_t*r, const char*name)
568 {
569     internal_result_t*i = (internal_result_t*)r->internal;
570     if(!strcmp(name, "data")) {
571         return i->data;
572     } else if(!strcmp(name, "length")) {
573         return &i->length;
574     }
575     return 0;
576 }
577 static void record_result_destroy(gfxresult_t*r)
578 {
579     internal_result_t*i = (internal_result_t*)r->internal;
580     if(i->data) {
581         free(i->data);i->data = 0;
582     }
583     free(r->internal);r->internal = 0;
584     free(r);
585 }
586
587 void gfxdevice_record_flush(gfxdevice_t*dev, gfxdevice_t*out)
588 {
589     internal_t*i = (internal_t*)dev->internal;
590     if(out) {
591         int len=0;
592         void*data = writer_growmemwrite_memptr(&i->w, &len);
593         replay(dev, out, data, len);
594     }
595     writer_growmemwrite_reset(&i->w);
596 }
597
598 static gfxresult_t* record_finish(struct _gfxdevice*dev)
599 {
600     internal_t*i = (internal_t*)dev->internal;
601     msg("<trace> record: END\n");
602     
603     writer_writeU8(&i->w, OP_END);
604    
605     internal_result_t*ir = (internal_result_t*)rfx_calloc(sizeof(gfxresult_t));
606     ir->data = writer_growmemwrite_getmem(&i->w);
607     ir->length = i->w.pos;
608     i->w.finish(&i->w);
609
610     gfxresult_t*result= (gfxresult_t*)rfx_calloc(sizeof(gfxresult_t));
611     result->save = record_result_save;
612     result->get = record_result_get;
613     result->destroy = record_result_destroy;
614     result->internal = ir;
615
616     free(dev->internal);memset(dev, 0, sizeof(gfxdevice_t));
617     
618     return result;
619 }
620 void gfxdevice_record_init(gfxdevice_t*dev)
621 {
622     internal_t*i = (internal_t*)rfx_calloc(sizeof(internal_t));
623     memset(dev, 0, sizeof(gfxdevice_t));
624     
625     dev->name = "record";
626
627     dev->internal = i;
628     
629     writer_init_growingmemwriter(&i->w, 1048576);
630     i->fontlist = gfxfontlist_create();
631
632     dev->setparameter = record_setparameter;
633     dev->startpage = record_startpage;
634     dev->startclip = record_startclip;
635     dev->endclip = record_endclip;
636     dev->stroke = record_stroke;
637     dev->fill = record_fill;
638     dev->fillbitmap = record_fillbitmap;
639     dev->fillgradient = record_fillgradient;
640     dev->addfont = record_addfont;
641     dev->drawchar = record_drawchar;
642     dev->drawlink = record_drawlink;
643     dev->endpage = record_endpage;
644     dev->finish = record_finish;
645 }
646