diff --git a/basis/images/tga/tga.factor b/basis/images/tga/tga.factor index c24fd5f5bd..7a3a400197 100644 --- a/basis/images/tga/tga.factor +++ b/basis/images/tga/tga.factor @@ -238,7 +238,7 @@ ERROR: bad-tga-unsupported ; ] unless ] ignore-errors - #! Only 24-bit uncompressed RGB and 32-bit uncompressed ARGB are supported. + #! Only 24-bit uncompressed BGR and 32-bit uncompressed BGRA are supported. #! Other formats would need to be converted to work within the image class. map-type 0 = [ bad-tga-unsupported ] unless image-type 2 = [ bad-tga-unsupported ] unless @@ -247,7 +247,7 @@ ERROR: bad-tga-unsupported ; #! Create image instance image new - alpha-bits 0 = [ RGB ] [ ARGB ] if >>component-order + alpha-bits 0 = [ BGR ] [ BGRA ] if >>component-order { image-width image-height } >>dim pixel-order 0 = >>upside-down? image-data >>bitmap @@ -259,7 +259,7 @@ M: tga-image stream>image M: tga-image image>stream drop [ - component-order>> { RGB ARGB } member? [ bad-tga-unsupported ] unless + component-order>> { BGRA BGRA } member? [ bad-tga-unsupported ] unless ] keep B{ 0 } write #! id-length @@ -272,15 +272,15 @@ M: tga-image image>stream [ dim>> second 2 >le write ] [ component-order>> { - { RGB [ B{ 24 } write ] } - { ARGB [ B{ 32 } write ] } + { BGR [ B{ 24 } write ] } + { BGRA [ B{ 32 } write ] } } case ] [ dup component-order>> { - { RGB [ 0 ] } - { ARGB [ 8 ] } + { BGR [ 0 ] } + { BGRA [ 8 ] } } case swap upside-down?>> [ 0 ] [ 2 ] if 3 shift bitor 1 >le write