turtle-r7rs/canvas.sld

(define-library (turtle canvas)
  (import
    (scheme base)
    (scheme inexact)

;;; for guile-web
    (web client)
    (only (guile) usleep)
    (scheme case-lambda)
    (scheme write)

;;;   for kawa-web
;;    (kawa base)
;;    (class java.net.http HttpClient HttpRequest HttpResponse)

;;;   for gauche-web
;;    (rfc http)
;;    (gauche threads)
;;    (scheme case-lambda)
;;    (scheme write)

;;;   for gauche-tk
;;    (gauche process)
;;    (tk)
    )
  (export draw-line canvas-line-color canvas-bg-color canvas-line-width
          canvas-image-rotate draw-turtle-line clear-screen canvas-hide-turtle
          canvas-show-turtle make-canvas canvas? set-canvas!)
  (include "canvas.guile-web.scm")
;;  (include "canvas.gauche-web.scm")
;;  (include "canvas.kawa-web.scm")
;;  (include "canvas.gauche-tk.scm")
  )