Image Manipulation Module

Monkey Archive Forums/Monkey Projects/Image Manipulation Module

chrisc2977 (Posted 2013) [#1]

I have created a simple image manipulation module :) (this can be used (for example) to get the user to draw their own character, and then apply effects to it) Download Here Example HERE All functions return a new image (the new returned image retains the originals smooth alpha) Tested working on HTML5 and Flash, but should work on all platforms. It currently has the following functions: HFlip() VFlip() ColorImage() Desaturate() ResizeImage() RotateImageContents() ApplyImageMask() CombineImages() AddCircle() AddSquare() Invert() CopyImage() Pretty self explanitory, Howto code below. Import imagemanipulation 'FOLLOWING CODE NEEDS TO BE WITHIN THE RENDER METHOD 'Horizontal Flip NewImage = ImageManip.HFlip(OriginalImage) 'Vertical Flip NewImage = ImageManip.VFlip(OriginalImage) 'Desaturate Image NewImage = ImageManip.Desaturate(OriginalImage) 'Colour Image NewImage = ImageManip.ColorImage(OriginalImage,Red,Green,Blue) 'Resize Image NewImage = ImageManip.ResizeImage(OriginalImage,NewWidth,NewHeight) 'Rotate Image within original bounds NewImage = ImageManip.RotateImageContents(OriginalImage,ClockwiseRotation) 'Apply an Image mask * NewImage = ImageManip.ApplyImageMsak(OriginalImage,MaskImage) 'Blur Image NewImage = ImageManip.BlurImage(Image,Amount) 'Combine Images NewImage = ImageManip.CombineImages(Image1,Image2,OffsetX,OffsetY 'AddCircle NewImage = ImageManip.AddCircle(Image,X,Y,Diameter,Red,Green,Blue) 'AddSquare NewImage = ImageManip.AddSquare(Image,X,Y,Width,Red,Green,Blue) 'Invert NewImage = ImageManip.Invert(Image) 'CopyImage NewImage = ImageManip.CopyImage(Image) 'Note for ApplyImageMask: The mask image is auto resized to fit the original, converted to greyscale 'then an alpha level is taken dependant on color Black being most visible fading to white being fully transparent. 'The original image alpha is also takin into account Any requests and Ill try :)

Beaker (Posted 2013) [#2]

Probably worth linking this here: http://www.monkeycoder.co.nz/Community/posts.php?topic=4344

chrisc2977 (Posted 2013) [#3]

Example added: Example Here New Features Added: Image Blur - you can set the amount Comine Images - you can set an offset and it auto enlarges if needed Add Circle to Image - you can set colour and location Add Square to Image - as above Download module Code for the example is as simple as: 'at top import imagemanipulation 'In OnCreate() Original = LoadImage("cat.png") 'In OnRender() If MouseDown() And MouseX < 203 And MouseY < 203 Then Original = ImageManip.BlurImage(Original, 2) Original = ImageManip.AddCircle(Original, MouseX() -20, MouseY() -20, 40, 255, 255, 0) End If

Sammy (Posted 2013) [#4]

Handy stuff, thank you! :)

Snader (Posted 2013) [#5]

Nice work!

Raz (Posted 2013) [#6]

Fantastic :D I will very much use the image blur thingy.

Raul (Posted 2013) [#7]

that blur could be interesting. I need to test it ASAP :D thanks,

chrisc2977 (Posted 2013) [#8]

New Things Added: Invert CopyImage Addeed a new example showing all effects - please check out! Download Here Example HERE

RENGAC (Posted 2013) [#9]

Very useful! The first use I see for this is for a scene-changer routine, taking a "snapshot" of the game screen and blurring it to the new scene.

nikoniko (Posted 2014) [#10]

297chrisc No working example.

CopperCircle (Posted 2014) [#11]

The domain is down, does anyone have this code?

nikoniko (Posted 2014) [#12]

I have.

CopperCircle (Posted 2014) [#13]

Thanks, could you post it?

nikoniko (Posted 2014) [#14]

http://www.softexe.com/files/imagemanipulation.zip

nikoniko (Posted 2014) [#15]

BTW I did some changes in the module for my real project

CopperCircle (Posted 2014) [#16]

Great, thanks.