#include <cairo.h>
#include <cairo-ps.h>
#include <stdio.h>
 cairo_status_t
stream_cairo_write (void		*closure,
	    const unsigned char	*data,
	    unsigned int	 length)
{
  FILE	*fp = closure;
  int i;
  for(i=0;i<length;i++){
    fputc( data[i],fp);
  }
  return CAIRO_STATUS_SUCCESS;
};
int main(){
cairo_surface_t *surface;
cairo_t *cr;
cairo_pattern_t *pattern=NULL;
cairo_surface_t *image=NULL;
cairo_t *cr2=NULL;
double dashes[4];
int ndashes;
cairo_matrix_t matrix;
char achar[2];
FILE *fp;
fp = fopen("test.pdf","w");
surface = cairo_pdf_surface_create_for_stream(stream_cairo_write,fp,792, 612);
cr = cairo_create (surface);
cairo_save(cr);
cairo_restore(cr);
cairo_save(cr);
cairo_rectangle(cr,0.000000,612.000000,792.000000,-807.000000);
cairo_clip(cr);
ndashes=0;
cairo_set_dash(cr,dashes,ndashes,0.);
cairo_set_line_width(cr,1.000000*.5);
cairo_set_source_rgb (cr, 0.000000, 0.000000, 0.000000 );
cairo_set_source_rgb (cr, 1.000000, 0.000000, 0.000000 );
ndashes=0;
cairo_set_dash(cr,dashes,ndashes,0.);
cairo_set_line_width(cr,1.000000*.5);
cairo_set_source_rgb (cr, 0.000000, 0.000000, 0.000000 );
cairo_set_source_rgb (cr, 1.000000, 0.000000, 0.000000 );
cairo_restore(cr);
cairo_save(cr);
cairo_rectangle(cr,0.000000,612.000000,792.000000,-624.000000);
cairo_clip(cr);
cairo_set_source_rgb (cr, 1.000000, 0.000000, 0.000000 );
cairo_move_to(cr,158.000000,487.000000);
cairo_line_to(cr,158.000000,50.000000);
cairo_line_to(cr,712.000000,50.000000);
cairo_line_to(cr,712.000000,487.000000);
cairo_fill(cr);
cairo_restore(cr);
cairo_save(cr);
cairo_rectangle(cr,0.000000,612.000000,792.000000,-807.000000);
cairo_clip(cr);
ndashes=0;
cairo_set_dash(cr,dashes,ndashes,0.);
cairo_set_line_width(cr,1.000000*.5);
cairo_set_source_rgb (cr, 0.000000, 0.000000, 0.000000 );
cairo_set_source_rgb (cr, 1.000000, 0.000000, 0.000000 );
cairo_restore(cr);
cairo_save(cr);
cairo_rectangle(cr,0.000000,612.000000,792.000000,-624.000000);
cairo_clip(cr);
cairo_move_to(cr,396.000000,299.000000);
cairo_set_source_rgb (cr, 0.000000, 0.000000, 0.000000 );
cairo_rel_move_to(cr,0.000000,4.506000);
cairo_rotate(cr,0.000000);
achar[0] = 'h';
achar[1] = '\0';
cairo_rel_move_to(cr,0.000000,0.000000);
cairo_show_text (cr, achar);
achar[0] = 'i';
achar[1] = '\0';
cairo_rel_move_to(cr,0.000000,0.000000);
cairo_show_text (cr, achar);
cairo_rotate(cr,-0.000000);
cairo_restore(cr);
cairo_save(cr);
cairo_rectangle(cr,0.000000,612.000000,792.000000,-807.000000);
cairo_clip(cr);
cairo_destroy (cr);
cairo_surface_flush(surface);
cairo_surface_finish(surface);
cairo_surface_destroy (surface);
}