Skip to content
Permalink
Browse files

Fix bad package refs

  • Loading branch information
Shinmera committed Feb 21, 2020
1 parent c70af06 commit fb4a3c5203625a5c33ad3dc291070f5d73cc8942
Showing with 6 additions and 6 deletions.
  1. +6 −6 assets/image.lisp
@@ -41,12 +41,12 @@
(4 :bgra))))))

(defmethod load-image (path (type (eql :png)) &key)
(let ((png (pngload:load-file path :flatten T :flip-y T)))
(values (pngload:data png)
(pngload:width png)
(pngload:height png)
(infer-pixel-type (pngload:bit-depth png) :unsigned)
(ecase (pngload:color-type png)
(let ((png (pngload-fast:load-file path :flatten T :flip-y T)))
(values (pngload-fast:data png)
(pngload-fast:width png)
(pngload-fast:height png)
(infer-pixel-type (pngload-fast:bit-depth png) :unsigned)
(ecase (pngload-fast:color-type png)
(:greyscale :red)
(:greyscale-alpha :rg)
(:truecolour :rgb)

0 comments on commit fb4a3c5

Please sign in to comment.
You can’t perform that action at this time.