     
     #! 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

        ] unless
    ] ignore-errors

    #! Only 24-bit uncompressed RGB and 32-bit uncompressed ARGB 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

        [ dim>> second 2 >le write ]
        [ component-order>>
          {
              {  BGR [ B{ 24 } write ] }
              { BGRA [ B{ 32 } write ] }
          } case
        ]
        [
            dup component-order>>
            {
                {  BGR [ 0 ] }
                { BGRA [ 8 ] }
            } case swap
            upside-down?>> [ 0 ] [ 2 ] if 3 shift bitor
            1 >le write
