Вот как я написал, но чет запутался, гружу картинку, создаю дополнительную текстуру, в которую рисую, считываю картинку поблочно, добавляю черные прямоугольники, и сохраняю готовую,
(Спасибо H@non) , только вот нефурычит чегото, запутался я и прошу помощи:
; CopyRect Example
; Turn on graphics mode
Graphics 1024,768,16
;SetBuffer FrontBuffer()
; create a blank image
image2=LoadImage ("IMG_2743.jpg")
image=CreateImage (ImageWidth(image2),ImageHeight(image2),1)
Dim pix(ImageWidth(image2),ImageHeight(image2))
SetBuffer ImageBuffer(image2)
LockBuffer ImageBuffer(image2)
y2 = 0
For y = 0 To ImageHeight(image2)
;копируем строки пикселей
If y Mod 2 = 0 Then
Rect 0, y2,ImageWidth(image2), 4
y2 = y2 + 4
EndIf
y2 = y2 + 1
Next
For y=0 To ImageHeight(image2)
For x=0 To ImageWidth(image2)
pix(x,y)=ReadPixel(x,y)
Next
Next
; Wait a couple of seconds so the user can see it
;Delay 2000
If KeyHit(2) Then
For y=0 To ImageHeight(image)
For x=0 To ImageWidth(image)
;pix(x,y)=ReadPixel(x,y)
WritePixel x,y,pix(ImageWidth(image2),ImageHeight(image2)-y)
Next
Next
ok=SaveImage (pix(ImageWidth(image2),ImageHeight(image2)),"rezan.bmp")
End If
Cls
;DrawImage gfxBlank,0,0
WaitKey