Для начала попрошу не писать нах тебе виста и все такое...
Вопрос заключается в том что код тупо не работает под ней...
вот код:
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 прекрасно сохраняет в файл...