Sorry your browser is not supported!

create bitmap 1,19200,height_size
paste image 1,0,0
paste image 2,641,0
paste image 3,1280,0
and so no...
when all loaded
get image 1000,19200,height_size

function copyPart(fMemblock, tMemblock,fx,fy,fw,fh,tx,ty)
	`copies the part of image fmemblock in a box defined by (fx,fy),(fx+fw,fy+fh)  and pastes it to image tMemblock starting at tx,ty
	for x=0 to fw-1
		for y=0 to fh-1
			setPixel(tMemblock,tx+x,ty+y,getPixel(fMemblock,fx+x,fy+y))
		next y
	next x
endfunction
function getPixel(memblock,x,y)
	color as dword
	color=memblock dword(memblock,memgridnum(x,y,memblock dword(memblock,0),4,12))
endfunction color
function setPixel(memblock,x,y,color as dword)
	write memblock dword memblock,memgridnum(x,y,memblock dword(memblock,0),4,12),color
endfunction
function memgridnum(x,y,width,multiplier,base)
	n=((y-1)*width+x-1)*multiplier+base
endfunction base

make memblock 10,(((640*30)*200)*4)+12

if l > 640 or pos >= length
	p=pos
	
	get image 2,0,0,640,200 
	 sync
	 make memblock from image 9,2
	 bytes = get memblock size(9)
	 index=(bytes*x)-i 	  	   	 
	 copy memblock 9,10,0,index,bytes
	 delete memblock 9
	 delete image 2
	 x=x+1:i=12
	cls
ENDIF

sync on
sync rate 0

mainwidth=640*10
make memblock 10,(((mainwidth)*200)*4)+12
write memblock dword 10,0,mainwidth
write memblock dword 10,4,200
write memblock dword 10,8,32

for n=0 to 100

text rnd(640),rnd(200),"Test"

next n

sync
get image 2,0,0,640,200


`Make memblock from source image
    make memblock from image 9,2
    `1 scanline = 640 * 4 bytes
    bytecount=640*4


    for x=0 to mainwidth-1 step 640
       `start chunk after header
       chunk=12

       cls
       text 0,0,"Chunk "+str$(x/640)+" / "+str$(mainwidth/640)
       sync

       for y=0 to 199
          index=12+(((y*mainwidth)+x)*4)
          copy memblock 9,10,chunk,index,bytecount
          inc chunk,bytecount
       next y
    next x

    delete memblock 9
    delete image 2

       cls
       text 0,0,"Creating Image..."
       sync

    make image from memblock 10,10

       cls
       text 0,0,"Created Image..."
       sync

    scrollx#=0
    do
      cls 64
      inc scrollx#,mousemovex()
      paste image 10,scrollx#,0,0
      sync
    loop

if l > 640 or pos >= length
	p=pos
	inc index,1
	get image index,0,0,640,200 
	 sync
	cls
ENDIF


ENDWHILE

print "FINNISHED...."
print index
index=1
i=320
do		
		if leftkey() then i=i-1
		if rightkey() then i=i+1
		if i < 1 then inc index,1:i=640
		if i > 640 then dec index,1:i=1
		
				
		paste image index,i,240
		sync
loop

function Media_MergeImage(MyImage, MergeImage, Width)
   If MyImage < 1 then ExitFunction
   If Image Exist(MyImage) = 0 then ExitFunction
   If MergeImage < 1 then ExitFunction
   If Image Exist(MergeImage) = 0 then ExitFunction


   `Find unused memblocks
   Memblock1 = 1
   repeat
      inc Memblock1
   until memblock exist(Memblock1) = 0
   Memblock2 = 2
   repeat
      inc Memblock2
   until memblock exist(Memblock2) = 0

   `Set up variables
   Width as Dword
   Height as Dword
   Depth as Dword
   Red as Byte
   Green as Byte
   Blue as Byte
   Alpha as Byte

   `Do it!
   make memblock from image Memblock1, MyImage
   Width = memblock dword(Memblock1,0)
   Height = memblock dword(Memblock1,4)
   Depth = memblock dword(Memblock1,8)
   make memblock from image Memblock2, MergeImage
   Width2 = memblock dword(Memblock2,0)
   Height2 = memblock dword(Memblock2,4)

   If Width = 0 then ExitFunction
   If Width2 = 0 then ExitFunction
   If Height = 0 then ExitFunction
   If Height2 = 0 then ExitFunction

   w1# = Width
   w2# = Width2
   h1# = Height
   h2# = Height2

   xMod# = w2# / w1#
   yMod# = h2# / h1#

   Position = 12 `skip header
   NewPosition = 12

   mCounter = 1
   for y = 1 to Height `Height
      for x = 1 to Width`Width
         uBlue# = 0
         uGreen# = 0
         uRed# = 0

         xPos = Int(x * xMod#)
         yPos = Int(y * yMod#)

         If xPos < 1 then xPos = 1
         If yPos < 1 then yPos = 1
         If xPos > Width2 then xPos = Width2
         If yPos > Height2 then yPos = Height2

         mPosition = (((yPos - 1) * Width2) * 4) + ((xPos - 1) * 4) + 12

         Blue = memblock byte(Memblock1,Position)
         Green = memblock byte(Memblock1,Position+1)
         Red = memblock byte(Memblock1,Position+2)
         Alpha = memblock byte(Memblock1, Position+3)

         oBlue = memblock byte(Memblock2,mPosition)
         oGreen = memblock byte(Memblock2,mPosition+1)
         oRed = memblock byte(Memblock2,mPosition+2)
         oAlpha# = memblock byte(Memblock2, mPosition+3)

         If oAlpha# > 0
            uBlue# =Int((oAlpha# * (oBlue - Blue)) / 255.0)
            uGreen# =Int((oAlpha# * (oGreen - Green)) / 255.0)
            uRed# =Int((oAlpha# * (oRed - Red)) / 255.0)
         EndIf

         Blue = Blue + uBlue#
         Green = Green + uGreen#
         Red = Red + uRed#
         Alpha = Alpha + oAlpha#

         If Blue > 255 then Blue = 255
         If Green > 255 then Green = 255
         If Red > 255 then Red = 255
         If Alpha > 255 then Alpha = 255
         If Blue < 0 then Blue = 0
         If Green < 0 then Green = 0
         If Red < 0 then Red = 0
         If Alpha < 0 then Alpha = 0

         write memblock byte Memblock1,NewPosition,Blue
         write memblock byte Memblock1,NewPosition+1,Green
         write memblock byte Memblock1,NewPosition+2,Red
         write memblock byte Memblock1,NewPosition+3,Alpha

         inc Position,4
         Inc NewPosition,4
      next x
   next y

   make image from memblock MyImage,Memblock1
   delete memblock Memblock1
   delete memblock Memblock2
endfunction