basket.scm 457 B

1234567891011121314151617181920
  1. (define-module (basket)
  2. #:use-module (cairo))
  3. (export
  4. curry
  5. render-image
  6. save-ctx)
  7. (map (lambda (x)
  8. (module-use! (module-public-interface (current-module)) (resolve-interface x)))
  9. (list '(basket vec)
  10. '(basket poly)
  11. '(basket line)
  12. '(basket path)
  13. '(basket rect)
  14. '(basket color)
  15. '(basket cairo)))
  16. (define (curry f . a) (lambda (. b) (apply f (append a b))))