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

ugly type specification to fix dynamic type returned by new zips

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-24 12:29:28 -06:00
parent 02b27490a4
commit 18124c71d2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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