вопрос по нарезке картинки

[Артем Валерьевич]

Ребята, подскажите, как нарезать картинку на полоски заданной ширины, а затем раздвинуть их на такую же ширину?

Очень нужно

[ABTOMAT]

CopyRect не помогает?

[Артем Валерьевич]

попробую

[Артем Валерьевич]

ковырял, но похоже суть функции CopyRect ускользает от меня

[moka]

Набросай в шопе, и покажи, как это должно быть...

[Артем Валерьевич]

вот так нужно чтобы резало:

[moka]

Быстрый - биллбоарды, с разными текстурными координатами. Тут можно и в реалтайме сделать, будут менять.
Медленный но точный - работа с чтением/записью пикселей.

[Артем Валерьевич]

Вот вот второй самое оно, но как

[IGR]

Артем Валерьевич, сорри, я чет непойму... У тебя картинка-результат сплющенная по горизонтали относительно исходной должна быть или как ?? (или эт ее мобильный браузер исказил 0_о )
Если ненада нмчего плющить то:
Решаеш на скок частей будеш резать (переменная Р) !!
Потом читаешь пиксели по горизонтали все а по вертикали Р !!
Пишеш их в другую картинку !!
И так Р раз !!
Еще оффсеты (пустые или черные пиксели между) этими полосками !!

А если нада плющить то я хз-че... Немного положнее задача !!

[moka]

Это весьма простая логическая задачка, делается не изощрёнными циклами..

[Артем Валерьевич]

Вот как я написал, но чет запутался, гружу картинку, создаю дополнительную текстуру, в которую рисую, считываю картинку поблочно, добавляю черные прямоугольники, и сохраняю готовую,
(Спасибо 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

[H@NON]

вот держи

Graphics 800, 600, 32, 2

Local img_source = CreateImage(256,256)
SetBuffer ImageBuffer(img_source)
    Color 255,255,0
    Oval 4, 4, 248, 248, 1
    Color 255,0,0
    Oval 50, 80, 30, 30, 1
    Oval 176, 80, 30, 30, 1
    Rect 50, 180, 156, 20, 1

Local img = DeformImage(img_source)

DrawImage img, 0, 0
DrawImage img_source, 400, 0

WaitKey()
End

Function DeformImage(source, height=40, count=7)
    Local x, y, y2
    Local pix
    Local w = ImageWidth(source)
    Local h = ImageHeight(source)
    Local img_deform = CreateImage(w, h+height*count)
    Local buff = ImageBuffer(img_deform)
    Local buff_source = ImageBuffer(source)
    
    Local Aspect = h / count
    
    SetBuffer buff
    LockBuffer(buff)
    LockBuffer(buff_source)
        For y = 0 To h
            If (y Mod Aspect) = 0 Then
                Color 0, 0, 0
                Rect 0, y2, w, height
                y2 = y2 + height
            EndIf
            For x = 0 To w
                pix = ReadPixel(x, y, buff_source)
                WritePixel x, y2, pix
            Next
            y2 = y2 + 1
        Next
    UnlockBuffer(buff)
    UnlockBuffer(buff_source)
    SetBuffer FrontBuffer()
    
    Return img_deform
End Function

[Артем Валерьевич]

H@NON спасибо, H@NON спасибо, ура виват

[Артем Валерьевич]

Да здравствует стереофотография, H@non, я в долгу перед тобой