support 8bit bitmaps

db4
Doug Coleman 2008-09-04 13:22:35 -05:00
parent fcdb772713
commit ac8075f30e
1 changed files with 2 additions and 1 deletions

View File

@ -20,7 +20,7 @@ TUPLE: bitmap magic size reserved offset header-length width
{ 32 [ "32bit" throw ] }
{ 24 [ ] }
{ 16 [ "16bit" throw ] }
{ 8 [ "8bit" throw ] }
{ 8 [ ] }
{ 4 [ "4bit" throw ] }
{ 2 [ "2bit" throw ] }
{ 1 [ "1bit" throw ] }
@ -110,6 +110,7 @@ M: bitmap draw-image ( bitmap -- )
bit-count>> {
! { 32 [ GL_BGRA GL_UNSIGNED_INT_8_8_8_8 ] } ! broken
{ 24 [ GL_BGR GL_UNSIGNED_BYTE ] }
{ 8 [ GL_LUMINANCE GL_UNSIGNED_BYTE ] }
} case
] keep array>> glDrawPixels ;