Апликация с битмапами

[ARToman]

Помогите написать скрипт, который склеивает 2 битмапа в один (пример см. на картинках)
Заранее за помощь спасибо

 

[ARToman]

Более понятный вариант примеров (с белым фоном неудачно получилось)

 

[Savin Denis]

Сделай новый битмап нужной ширины и наложи свои функцией pasteBitmap

Для чего это ? в общем макс скрипт не предназначен для пост обработки, это задача уже другого софта.

 

[Protactinium]

Че-то я не нашел функцию pasteBitmap...
Может имелась ввиду функция copy?

Впрочем можно сделать такой скрипт влоб, перебирая изображения построчно.
Так например:

dir = sysInfo.currentdir
bmp1 = openBitMap (dir + "\bmp1.bmp")
bmp2 = openBitMap (dir + "\bmp2.bmp")
bmp3 = bitmap (bmp1.width+bmp2.width) bmp1.height filenamedir + "\bmp3.bmp")
for y=1 to bmp1.height do (
bmp3_line = getPixels bmp1 [0,y-1] bmp1.width
bmp2_line = getPixels bmp2 [0,y-1] bmp2.width
join bmp3_line bmp2_line
setPixels bmp3 [0,y-1] bmp3_line
) -- end for
save bmp3
close bmp1
close bmp2
close bmp3

p.s. Скрипт не проверяет соответствие размеров битмапов.

 

[Savin Denis]

Че-то я не нашел функцию pasteBitmap...
Может имелась ввиду функция copy?

Значит у тебя макс еще младше чем 2008, в этом случае ставим AVG.

 

[Protactinium]

Ага, смотрел в справке 7-ого)
в 2008 нашел...

 

[ARToman]

Я уже пытался тож через цикл по пикселю, а нет ли чего-нить попроще? картинки с большим разрешением кушают много времени