forum.boolean.name - Blitzmax и Vista 64x

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=109)

- - Blitzmax и Vista 64x (http://forum.boolean.name/showthread.php?t=7401)

Blitzmax и Vista 64x

Для начала попрошу не писать нах тебе виста и все такое...
Вопрос заключается в том что код тупо не работает под ней...
вот код:

Код:

Graphics 800, 600

Local LinePixmap:TPixmap

 LinePixmap = CreateGridLine() ;

'SavePixmapPNG LinePixmap, "c:\1.png"

 For i = 1 To 9

    DrawPixmap LinePixmap, I * 62, 0

 Next

 

  

  Flip

WaitKey

Function CreateGridLine:TPixmap() 

  Border = 2

  Fill = 4

  Length = 548

  W = Border * 2 + Fill

  SetColor (127, 113, 50) 

    DrawRect(0, 0, W, Length) 

  SetColor (242, 216, 109) 

    DrawRect(Border, 0, Fill, Length) 

    

  Flip

WaitKey



Local NewPixmap:TPixmap = CreatePixmap(W, Length, PF_RGBA8888) 

Local Colors:TPixmap = GrabPixmap(0, 0, W, Length) 

For X:Int = 0 Until W

 For Y:Int = 0 Until Length

  WritePixel NewPixmap, X, Y, (ReadPixel(Colors, X, Y) & $FFFFFF) 

 Next

Next

Cls

Return NewPixmap

End Function

хотелось бы понять почему не работает и как это исправить.
P.S. Значит рисуется 1 линия сбоку а потом она "размножается" еще на 8 штук так вот "размножения" не происходит... причем SavePixmapPNG прекрасно сохраняет в файл...