diff options
author | Charles Forsyth <charles.forsyth@gmail.com> | 2018-12-10 01:05:54 +0000 |
---|---|---|
committer | Charles Forsyth <charles.forsyth@gmail.com> | 2018-12-10 01:05:54 +0000 |
commit | 9a6abc0c151869394091363dde0ecc082ad3ca65 (patch) | |
tree | 77405d43bb8c0df70481e7eaf9e08698ff5cf8df | |
parent | 9df64b6929aab6efb23911c20fd1ff7d1a4394d2 (diff) |
correct bizarre definition of RGBA32 [clasp126hfsp645io@icebubble.org]
-rw-r--r-- | module/draw.m | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/draw.m b/module/draw.m index 730e62ac..a9dabd8f 100644 --- a/module/draw.m +++ b/module/draw.m @@ -91,7 +91,7 @@ Draw: module RGB15: con Chans(((CIgnore<<4)|1)<<24 | ((CRed<<4)|5)<<16 | ((CGreen<<4)|5)<<8 | ((CBlue<<4)|5)); RGB16: con Chans(((CRed<<4)|5)<<16 | ((CGreen<<4)|6)<<8 | ((CBlue<<4)|5)); RGB24: con Chans(((CRed<<4)|8)<<16 | ((CGreen<<4)|8)<<8 | ((CBlue<<4)|8)); - RGBA32: con Chans((((CRed<<4)|8)<<16 | ((CGreen<<4)|8)<<8 | ((CBlue<<4)|8))<<8 | ((CAlpha<<4)|8)); + RGBA32: con Chans((((CRed<<4)|8)<<24 | ((CGreen<<4)|8)<<16 | ((CBlue<<4)|8))<<8 | ((CAlpha<<4)|8)); ARGB32: con Chans(((CAlpha<<4)|8)<<24 | ((CRed<<4)|8)<<16 | ((CGreen<<4)|8)<<8 | ((CBlue<<4)|8)); # stupid VGAs XRGB32: con Chans(((CIgnore<<4)|8)<<24 | ((CRed<<4)|8)<<16 | ((CGreen<<4)|8)<<8 | ((CBlue<<4)|8)); # stupid VGAs |