(library (strigoform canvas)
  (export get-context
          set-fill-color!
          set-font!
          set-text-align!
          clear-rect
          fill-rect
          fill-text
          draw-image
          set-scale!
          set-transform!
          set-image-smoothing-enabled!)
  (import (scheme base)
          (hoot ffi))

  (define-foreign get-context
    "canvas" "getContext"
    (ref null extern) (ref string) -> (ref null extern))
  (define-foreign set-fill-color!
    "canvas" "setFillColor"
    (ref null extern) (ref string) -> none)
  (define-foreign set-font!
    "canvas" "setFont"
    (ref null extern) (ref string) -> none)
  (define-foreign set-text-align!
    "canvas" "setTextAlign"
    (ref null extern) (ref string) -> none)
  (define-foreign clear-rect
    "canvas" "clearRect"
    (ref null extern) f64 f64 f64 f64 -> none)
  (define-foreign fill-rect
    "canvas" "fillRect"
    (ref null extern) f64 f64 f64 f64 -> none)
  (define-foreign fill-text
    "canvas" "fillText"
    (ref null extern) (ref string) f64 f64 -> none)
  (define-foreign draw-image
    "canvas" "drawImage"
    (ref null extern) (ref null extern) f64 f64 f64 f64 f64 f64 f64 f64 -> none)
  (define-foreign set-scale!
    "canvas" "setScale"
    (ref null extern) f64 f64 -> none)
  (define-foreign set-transform!
    "canvas" "setTransform"
    (ref null extern) f64 f64 f64 f64 f64 f64 -> none)
  (define-foreign set-image-smoothing-enabled!
    "canvas" "setImageSmoothingEnabled"
    (ref null extern) i32 -> none))