TakeV/lisp-game-jam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix parameters passed to draw-image in html-canvas-renderer

Browse source
This commit is contained in:
TakeV 2024-05-25 04:47:23 -04:00
parent c19d67de6c
commit 72908f7c1a
Signed by: TakeV
GPG key ID: A64F41345C7400AF
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
modules/ces/system/html-canvas-renderer.scm
View file

@ -29,9 +29,9 @@
definition, so everything must specify a width."
(case-lambda
((image x y width height)
(draw-image canvas-context 0 0 width height x y width height))
(draw-image canvas-context image 0 0 width height x y width height))
((image sx sy swidth sheight x y width height)
(draw-image canvas-context sx sy swidth sheight x y width height))))
(draw-image canvas-context image sx sy swidth sheight x y width height))))
(define (%make-rendering-systems canvas-context)
"Returns a list of rendering systems."