Sorry your browser is not supported!

function IMG_MAKE(width as integer, height as integer, colour as dword)
   mem = FREE_MEMBLOCK()
   
   pixels = width*height
   bytes = 4+4+4+(pixels*4) //width+height+depth+data
   bytePos = 0
   
   make memblock mem,bytes
   width = (0<<24) + (0<<16) + (0<<8) + width
   height = (0<<24) + (0<<16) + (0<<8) + height
   depth = (0<<24) + (0<<16) + (0<<8) + 32
   
   //write image info
   write memblock dword mem,bytePos,width : inc bytePos,4
   write memblock dword mem,bytePos,height : inc bytePos,4
   write memblock dword mem,bytePos,depth : inc bytePos,4
   
   //set every pixel in the image to the specified colour
   for pixel = 1 to pixels
      write memblock dword mem,bytePos,colour : inc bytePos,4 //set all pixels to the specified 'colour'
   next pixel
endfunction mem

remstart
	This example shows how to use the image copy functions to take images (from DBP images or memblock images) 
	and paste them into another image
remend

Set display Mode 800,600,32
Sync On : Sync Rate 60
Backdrop On
Color Backdrop 0
Autocam off

//create a red 512x512 empty texture
memblock = IMG_MAKE(512, 512, IMG_RGBA(255,0,0,255))

//load a test image/texture (metal grating for now)
Load image "images/smokenew1.png",1

//paste the loaded image directly into our red memblock texture we created
IMG_PASTE_IMAGE(memblock, 1, 0, 0) //paste it at pixel 0,0 (starting top left)

//turn the image into a memblock
srcMem = IMG_CONVERT(1, 1) //A 2nd parameter of 1 deletes the used image afterwards (but keeps the memblock version of it)
//paste the bottom right quarter of the test image into our own memblock texture
IMG_PASTE_MEMBLOCK_PART(memblock, srcMem, 300, 300, 127, 127, 255, 255)

//you can also paste a whole memblock image into another memblock image (doesn't have to be the same size either)
IMG_PASTE_MEMBLOCK(memblock, srcMem, 256, 0)

remstart
   create image out of memblock image data - don't forget to call this once your finished modifying 
   a memblock image to update/create the image version of the memblock (which can be applied to objects, sprites, etc)
remend
IMG_UPDATE(memblock,1)


//position camera
position camera 0, 0, 0, -20
point camera 0, 0, 0, 0

//create a plain and texture it with our newly created image
make object plain 1, 10, 10
texture object 1,1

Do
   //rotate  plain
   turn object left 1, 0.5
   
   text 0,0,"FPS: "+STR$(SCREEN FPS())
   
   Sync
loop

remstart
=====FULL COMMAND LIST================================
Creates a new memblock image filled with the specified colour.
IMG_MAKE(width, height, depth, colour)

Sets the colour of the specified pixel on a memblock image
IMG_SET_PIXEL(memblock, x, y, colour)   

Does the same as IMAGE_SET_PIXEL except the memblock image width and height have to be entered. 
This speeds things up a little if you have many pixels to write and already know the image width/height)
IMG_SET_PIXEL2(memblock, x, y, width, height, colour)

returns the colour of the specified pixel as a dword
IMG_GET_PIXEL(memblock , x , y )

Does the same as IMAGE_GET_PIXEL except the width and height have to be entered. 
This speeds things up a little if you have many pixels to read and already know the image width/height)
IMG_GET_PIXEL2(memblock, x, y, width, height)

creates or updates a DBP image with the contents of a memblock image
IMG_UPDATE(memblock, img)

Pastes a normal image into a memblock image.
IMG_PASTE_IMAGE(mem , pasteImg , x , y )

paste a memblock image into another memblock image at the specified coords. Also create a to paste part of one memblock image into another memblock image.
IMG_PASTE_MEMBLOCK(mem , pasteMem , x , y )

copies the specified area of one memblock image (source) into another memblock image (destination)
IMG_PASTE_MEMBLOCK_PART(mem , pasteMem , x , y , sourceStartX , sourceStartY , sourceEndX , sourceEndY )

draws a solid colour rectangle inside a memblock image
IMG_DRAW_RECTANGLE(mem , x , y , width , height , colour )

draws an outline of a rectangle with the given line thickness
IMG_DRAW_RECTANGLE_OUTLINE(memblock, X, Y, Width, Height, Thickness, Colour)

draws a line - memblock, x1, y1, x2, y2, line width/thickness, red, green, blue
IMG_DRAW_LINE(mem , x1 , y1 , x2 , y2 , colour )

draws a filled circle
IMG_DRAW_CIRCLE(mem , x , y , radius , colour )

draws a circle outline
IMG_DRAW_CIRCLE_OUTLINE(mem , x , y , radius , dotRate , thickness , colour)

draws part of a circle
IMG_DRAW_CIRCLE_PART(mem , x , y , radius , fillPercent , cFill as boolean, angle as float, colour)

clears an image to the given color
IMG_CLEAR( memblock, colour)

flips a memblock image horizontally
IMG_FLIP_HORIZONTAL( memblock )

flips a memblock image vertically
IMG_FLIP_VERTICAL( memblock )

tints an image using the given color
IMG_TINT( memblock, colour)

deletes a memblock image; does exactly the same as DELETE MEMBLOCK
IMG_DELETE( memblock)

creates a memblock image from a DBP image
IMG_CONVERT( image, delete )

combines 4 colour channel values (bytes) into a single dword - for use with the colour parameter on most IMG functions.
IMG_RGBA(red, green, blue, alpha)

converts a memblock image to a greyscale memblock image
Added IMG_GREYSCALE( memblock )

Finds an unused memblock - used internally by the Memblock Image Library
   FREE_MEMBLOCK()

remend

rem ----------------------------------------------------------------------------
rem GetImage function with alpha channel support
rem ----------------------------------------------------------------------------
rem Syntax 			: CometGetImage( <Source Image> , <TargetImage> , <StartX> , <StartY> , <EndX> , <EndY> )
rem 
rem Description 	: Will extract a region from a source image and store it in the target image.
rem 					  The source image must exist or the function will fail.
rem 					  The target image must not exist or the function will fail.
rem 					  If StartX or StartY is larger than EndX or EndY, respectively, the function will freeze up.
rem 
rem Author			: TheComet
rem ----------------------------------------------------------------------------

rem load the image
load image "image.png" , 1

rem get section of image and store in image 2
CometGetImage( 1 , 2 , 19 , 19 , 128 , 64 )

rem display both images
paste image 1 , 0 , 0 , 1
paste image 2 , 0 , 130 , 1

rem end
wait key
end

function CometGetImage( SourceImage , TargetImage , sx , sy , ex , ey )
	
	rem local variables
	local SourceMem as integer
	local TargetMem as integer
	local TargetWidth as dword
	local TargetHeight as dword
	local SourceWidth as dword
	local SourceHeight as dword
	local x as integer
	local y as integer
	local TargetPtr as integer
	local SourcePtr as integer
	
	rem compute width and height
	TargetWidth = ex - sx
	TargetHeight = ey - sy
	
	rem make memblock from source image
	SourceMem = find free memblock()
	make memblock from image SourceMem , SourceImage
	
	rem create target memblock
	TargetMem = find free memblock()
	make memblock TargetMem , TargetWidth * TargetHeight * 32 + 12
	
	rem write header
	write memblock dword TargetMem , 0 , TargetWidth
	write memblock dword TargetMem , 4 , TargetHeight
	write memblock dword TargetMem , 8 , 32
	
	rem read source header
	SourceWidth = memblock dword( SourceMem , 0 )
	SourceHeight = memblock dword( SourceMem , 4 )
	
	rem setup pointers
	TargetPtr = 12
	
	rem copy data from source image to target image
	for y = sy to ey-1
		SourcePtr = (y*SourceWidth*4) + (sx*4) + 12
		for x = sx to ex-1
			write memblock dword TargetMem , TargetPtr , memblock dword( SourceMem , SourcePtr )
			inc TargetPtr , 4
			inc SourcePtr , 4
		next x
	next y
	
	rem finish image
	make image from memblock TargetImage , TargetMem
	
	rem clean up
	delete memblock SourceMem
	delete memblock TargetMem
	
endfunction

find free memblock()

FindFreeMemblock()

function FindFreeMemblock()

   rem look for free memblock
   for n = 1 to 255
      if memblock exist( n ) = 0 then exitfunction n
   next n

endfunction -1