Permalink
Browse files

Fix tga pixel type

  • Loading branch information...
Shinmera committed Aug 28, 2018
1 parent a4e25cc commit b3a77e654588050a4c80e1ab5d204f31f22d12c6
Showing with 3 additions and 1 deletion.
  1. +3 −1 assets/image.lisp
View
@@ -19,7 +19,9 @@
(values buffer
(tga:image-width tga)
(tga:image-height tga)
(infer-pixel-type (tga:image-bpp tga) :unsigned)
(infer-pixel-type (/ (tga:image-bpp tga)
(tga:image-channels tga))
:unsigned)
(ecase (tga:image-channels tga)
(3 :bgr)
(4 :bgra))))))

0 comments on commit b3a77e6

Please sign in to comment.