Texture Creator

; ========================================================================================================
; multiply x2 example.
; ========================================================================================================

; some globals need to be set up for the get_rgb function to work...
Global got_red=0
Global got_green=0
Global got_blue=0

; ========================================================================================================
; source = file to be applied to the output
; output = the current image created thus far
;
; there's also a strength variable 0-255 that can be passed if necessary.
; ========================================================================================================


Function multiplyx2(source,output)
	
	LockBuffer ImageBuffer(source)
	LockBuffer ImageBuffer(output)
	
	For x=0 To 255
	
	; ========================================================================================================
	; Just the working bar so you can check the progress
	;	
	; working(400,320,"Multiply X2",x,255)
	; Flip False
	; ========================================================================================================
	
	For y=0 To 255
	
	get_rgb(source,x,y)
	sr#=2-(Float(255-got_red)/128)
	sg#=2-(Float(255-got_green)/128)
	sb#=2-(Float(255-got_blue)/128)
	
	get_rgb(output,x,y)
	r#=cap(Float(got_red)*sr)
	g#=cap(Float(got_green)*sg)
	b#=cap(Float(got_blue)*sb)
	
	write_rgb(output,x,y,r,g,b)
	
	Next
	Next
	
	UnlockBuffer ImageBuffer(source)
	UnlockBuffer ImageBuffer(output)

	Return output

End Function




; ========================================================================================================
; additional functions needed to make it work
; these just get the rgb bits from images and put rgb bits to images, also stop numbers getting beyond 0-255
; ========================================================================================================


Function get_rgb(image_name,x,y)
argb=ReadPixelFast(x,y,ImageBuffer(image_name))
got_red=(ARGB Shr 16) And $ff 
got_green=(ARGB Shr 8) And $ff 
got_blue=ARGB And $ff
End Function

Function write_rgb(image_name,x,y,red,green,blue)
argb=(blue Or (green Shl 8) Or (red Shl 16) Or ($ff000000))
WritePixelFast x,y,argb,ImageBuffer(image_name)
End Function

Function cap(x)
If x<0 Then x=0
If x>255 Then x=255
Return x
End Function

; Blur Script
red = (x-1,y-1) + (x+1,y-1) + (x+1,y+1) + (x-1,y+1) + (x,y+1) + (x,y-1) + (x+1,y) + (x-1,y) + (x,y)
red = red/9
green = (x-1,y-1) + (x+1,y-1) + (x+1,y+1) + (x-1,y+1) + (x,y+1) + (x,y-1) + (x+1,y) + (x-1,y) + (x,y)
green = green/9
blue = (x-1,y-1) + (x+1,y-1) + (x+1,y+1) + (x-1,y+1) + (x,y+1) + (x,y-1) + (x+1,y) + (x-1,y) + (x,y)
blue = blue/9