test1   xtlang

;; write hello world to a png file
(bind-func test1
  (lambda ()
    (let ((surface (cairo_image_surface_create CAIRO_FORMAT_ARGB32 300 200))
    (cr (cairo_create surface)))
      (cairo_select_font_face cr "serif" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_BOLD)
      (cairo_set_font_size cr 32.0)
      (cairo_set_source_rgb cr 0.0 0.0 1.0)
      (cairo_move_to cr 10.0 50.0)
      (cairo_show_text cr "Hello, world")
      (cairo_destroy cr)
      (cairo_surface_write_to_png surface "/tmp/hello.png")
      (cairo_surface_destroy surface)
      void)))