test1   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/drawing.xtm

Implementation

;; 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)))


Back to Index

Similar Entries

  • global_var_test1    xtlang
  • global_var_test1b    xtlang
  • hl_test1a    xtlang
  • hl_test1b    xtlang
  • my-test14    xtlang
  • my-test15    xtlang
  • my-test16    xtlang
  • my-test17    xtlang
  • my-test18    xtlang
  • my-test19    xtlang