пишу в браузере так-что х.з.
во первых есть 5 полосок, или скока там, напримекр
Global pls[5]
главная картинка на которой надо рисовать
global mainpict
предположим все они 100 на 20 пикселей, черный цвет-прозрачный.
вот функция которая будет рисовать на картинке одну полосу.
нужна кстати будет еще пустая полоса.
в качестве src передается та картинка КОТОРУЮ нужно нарисовать.
function CopyFastEx(src,x,y)
buff=imagebuffer(src)
sbuff=imagebuffer(mainpict)
w=imagewidth(sbuff)
h=imageheight(sbuff)
lockbuffer buff
lockbuffer sbuff
for i=1 to 100
for j=1 to 20
if i+x>0 and i+x<w and j+y>0 and j+y<h
c=readpixelfast(buff,i,j)
if c<>0
writepixelfast(sbuff,i,j,c)
endif
endif
next
next
unlockbuffer buff
unlockbuffer sbuff
end function
дальше думаю догадаешся.
да, это будет работать довольно медленно, но она использоваться часто похоже и не должна.
если будет вылетать попробуй заменить read/write pixelfast на просто read/write pixel и убрать все блокировки.