Indiepath's TexturedPoly and color/alpha?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Raph

I posted about this over on his support forums, but I figured I'd ask here too, since it looked likely that was I missing something obvious about texture formats.

I am getting behavior I don't understand when using this module (which works beautifully otherwise, btw, so many thanks!).


Import indiepath.texturedpoly
SetGraphicsDriver GLMax2DDriver()
graphics 640, 480, 0
Cls

img = LoadImage("testtext.jpg")

c1# = Float($88888888)
Local xyuv:Float[] = [ 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, c1, 0.0, 0.0, ..
                     128.0, 0.0, 0.0, 0.0, 0.0, 1.0, c1, 1.0, 0.0, ..
                      128.0,128.0, 0.0, 0.0, 0.0, 1.0, c1, 1.0, 1.0, ..
                      0.0,128.0, 0.0, 0.0, 0.0, 1.0, c1, 0.0, 1.0 ]

c2# = Float($FFFFFFFF)
Local xyuv2:Float[] = [ 128.0, 0.0, 0.0, 0.0, 0.0, 1.0, c2, 0.0, 0.0, ..
                     256.0, 0.0, 0.0, 0.0, 0.0, 1.0, c2, 1.0, 0.0, ..
                      256.0,128.0, 0.0, 0.0, 0.0, 1.0, c2, 1.0, 1.0, ..
                      128.0,128.0, 0.0, 0.0, 0.0, 1.0, c2, 0.0, 1.0 ]

c3# = Float($333333FF)
Local xyuv3:Float[] = [ 256.0, 0.0, 0.0, 0.0, 0.0, 1.0, c3, 0.0, 0.0, ..
                     384.0, 0.0, 0.0, 0.0, 0.0, 1.0, c3, 1.0, 0.0, ..
                      384.0,128.0, 0.0, 0.0, 0.0, 1.0, c3, 1.0, 1.0, ..
                      256.0,128.0, 0.0, 0.0, 0.0, 1.0, c3, 0.0, 1.0 ]

c4# = Float($88888844)
Local xyuv4:Float[] = [ 384.0, 0.0, 0.0, 0.0, 0.0, 1.0, c4, 0.0, 0.0, ..
                     512.0, 0.0, 0.0, 0.0, 0.0, 1.0, c4, 1.0, 0.0, ..
                      512.0,128.0, 0.0, 0.0, 0.0, 1.0, c4, 1.0, 1.0, ..
                      384.0,128.0, 0.0, 0.0, 0.0, 1.0, c4, 0.0, 1.0 ]                     
                     
TPoly.Initialise()

TPoly._Begin
TPoly.Draw(img, 0, xyuv)
TPoly._End

TPoly._Begin
TPoly.Draw(img, 0, xyuv2)
TPoly._End

TPoly._Begin
TPoly.Draw(img, 0, xyuv3)
TPoly._End

TPoly._Begin
TPoly.Draw(img, 0, xyuv4)
TPoly._End

SetColor 255, 255, 255
DrawText "$88888888", 0, 0 ' why is this full bright?
DrawText "$FFFFFFFF", 128, 0 ' why is this red?
DrawText "$333333FF", 256, 0 ' why is this missing?
DrawText "$88888844", 384, 0 ' why isn't this alpha?

Flip

While not KeyHit(KEY_ESCAPE)
   
Wend

End

I expected $FFFFFFFF to give me the normal image, not $88888888. Instead, it's brick red. And the alpha bits seem to just not work.

Am I clueless or missing something?