eufon

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

texture.fnl (352B)

      1 (local { : GdkPixbuf } (require :lgi))
      2 
      3 (fn from-file [renderer filename]
      4   (let [pixels
      5         (let [(buf err) (GdkPixbuf.Pixbuf.new_from_file filename)]
      6           (if (not buf) (print :err err))
      7           buf)]
      8     (renderer:texture_from_pixels
      9      pixels.rowstride
     10      pixels.width
     11      pixels.height
     12      (pixels:get_pixels))))
     13 
     14 { : from-file }