canvas.sld 483 B

12345678910111213141516171819202122
  1. (define-library (turtle canvas)
  2. (import
  3. (scheme base)
  4. (scheme inexact)
  5. (gauche process)
  6. (tk)
  7. ;; (kawa base)
  8. ;; (class java.net.http HttpClient HttpRequest HttpResponse)
  9. )
  10. (export draw-line canvas-line-color canvas-bg-color canvas-line-width
  11. canvas-image-rotate draw-turtle-line clear-screen canvas-hide-turtle
  12. canvas-show-turtle)
  13. (include "canvas.gauche.scm")
  14. ;; (include "canvas.js")
  15. ;; (include "canvas.kawa.scm")
  16. )