Revert "support 8bit bitmaps"

This reverts commit ac8075f30e.
db4
Doug Coleman 2008-09-04 17:31:22 -05:00
parent a596626947
commit ca1e6f1f3f
1 changed files with 1 additions and 2 deletions

View File

@ -20,7 +20,7 @@ TUPLE: bitmap magic size reserved offset header-length width
{ 32 [ "32bit" throw ] }
{ 24 [ ] }
{ 16 [ "16bit" throw ] }
{ 8 [ ] }
{ 8 [ "8bit" throw ] }
{ 4 [ "4bit" throw ] }
{ 2 [ "2bit" throw ] }
{ 1 [ "1bit" throw ] }
@ -110,7 +110,6 @@ 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 ;