Spawn ghost gems where gems used to be.

This commit is contained in:
David Thompson 2024-05-22 18:34:29 -04:00
parent 2dc354229d
commit 111eb33429
6 changed files with 37 additions and 6 deletions

View file

@ -23,6 +23,7 @@
#:use-module (scheme base)
#:use-module (hoot ffi)
#:export (get-context
set-global-alpha!
set-fill-color!
set-font!
set-text-align!
@ -40,6 +41,9 @@
(ref extern) (ref string) -> (ref extern))
;; CanvasRenderingContext2D
(define-foreign set-global-alpha!
"canvas" "setGlobalAlpha"
(ref extern) f64 -> none)
(define-foreign set-fill-color!
"canvas" "setFillColor"
(ref extern) (ref string) -> none)