kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

fix zip type error in asciilib

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-05-09 15:16:59 -04:00
parent 7abb624565
commit 3e6649b0be
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
projects/asciilib/src/asciilib/Surface.kiss
View File

@@ -35,9 +35,9 @@
// TODO rectangle type
// TODO optional source rectangle argument
(method blitSurface [:Surface surface x y]
(doFor [srcX destX] (the kiss.List<kiss.List<Int>> (zipDrop (range surface.width) (range x (+ x surface.width))))
(doFor [srcX destX] (zipDrop (range surface.width) (range x (+ x surface.width)))
(when (< -1 destX width)
(doFor [srcY destY] (the kiss.List<kiss.List<Int>> (zipDrop (range 0 surface.height) (range y (+ y surface.height))))
(doFor [srcY destY] (zipDrop (range 0 surface.height) (range y (+ y surface.height)))
(when (< -1 destY height)
(when (surface.isCellOpaque srcX srcY)
(setBackgroundColor destX destY (surface.getBackgroundColor srcX srcY))