An example of using SetImageMask to create a window

Author

Message

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 28th May 2012 22:22 Edited at: 28th May 2012 22:25

Link

This code shows how SetImageMask may be used to create a window for showing stuff.

SetPhysicsDebugOn() is used so that you can 'see' the hidden image.

I set the restitution over 1 so that the moving object gains energy.

SetVirtualResolution(800, 800)

// load the images
img_msk = LoadImage("mask.png")
img_frnt = LoadImage("simple.png")
img_back = LoadImage("simple.png")
img_sun = LoadImage("bluesun.png")

// now cut the hole
SetImageMask(img_frnt,img_msk,4,4,200,200)

// create the front screen
i_frnt = CreateSprite(img_frnt)
SetSpriteSize(i_frnt,800, 800)
SetSpriteColor(i_frnt,127,0,0,255)
SetSpritePosition(i_frnt,0,0)
SetSpriteDepth(i_frnt,10)

// create the background
i_back = CreateSprite(img_back)
SetSpriteSize(i_back,400, 800)
SetSpriteColor(i_back,255,255,0,255)
SetSpritePosition(i_back,200,0)
SetSpriteDepth(i_back,20)

// add a moving object between the two
i_sun = CreateSprite(img_sun)
SetSpriteSize(i_sun,72,72)
SetSpritePhysicsOn(i_sun,2)
SetSpriteShape(i_sun,1)
SetSpritePosition(i_sun,338,0)
SetSpriteDepth(i_sun,15)
SetSpritePhysicsDamping(i_sun,0)
SetSpritePhysicsRestitution(i_sun,1.5)
SetPhysicsDebugOn()

// and play
do
	// check for done
	if getPointerPressed()=1 then end
	Print("Touch anywhere to exit")

Sync()
loop

// clean up
DeleteSprite(i_frnt)
DeleteSprite(i_back)
DeleteSprite(i_sun)
DeleteImage(img_msk)
DeleteImage(img_frnt)
DeleteImage(img_back)
DeleteImage(img_sun)

+ Code Snippet

SetVirtualResolution(800, 800)

// load the images
img_msk = LoadImage("mask.png")
img_frnt = LoadImage("simple.png")
img_back = LoadImage("simple.png")
img_sun = LoadImage("bluesun.png")

// now cut the hole
SetImageMask(img_frnt,img_msk,4,4,200,200)

// create the front screen
i_frnt = CreateSprite(img_frnt)
SetSpriteSize(i_frnt,800, 800)
SetSpriteColor(i_frnt,127,0,0,255)
SetSpritePosition(i_frnt,0,0)
SetSpriteDepth(i_frnt,10)

// create the background
i_back = CreateSprite(img_back)
SetSpriteSize(i_back,400, 800)
SetSpriteColor(i_back,255,255,0,255)
SetSpritePosition(i_back,200,0)
SetSpriteDepth(i_back,20)

// add a moving object between the two
i_sun = CreateSprite(img_sun)
SetSpriteSize(i_sun,72,72)
SetSpritePhysicsOn(i_sun,2)
SetSpriteShape(i_sun,1)
SetSpritePosition(i_sun,338,0)
SetSpriteDepth(i_sun,15)
SetSpritePhysicsDamping(i_sun,0)
SetSpritePhysicsRestitution(i_sun,1.5)
SetPhysicsDebugOn()

// and play
do
	// check for done
	if getPointerPressed()=1 then end
	Print("Touch anywhere to exit")

	Sync()
loop

// clean up
DeleteSprite(i_frnt)
DeleteSprite(i_back)
DeleteSprite(i_sun)
DeleteImage(img_msk)
DeleteImage(img_frnt)
DeleteImage(img_back)
DeleteImage(img_sun)

Here are the images:
simple.png -

bluesun.png -

EDIT: the mask file is 'invisible', so use the download to get it.

Cheers,
Ancient Lady

Attachments

Login to view attachments

Back to top

Profile PM

Rich Dersheimer

AGK Developer

15

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 29th May 2012 05:39

Link

Say, if you END your program inside the loop, does it even do the cleanup code?

Back to top

Profile PM Email

Marl

13

Years of Service

User Offline

Joined: 19th Nov 2011

Location: Bradford, UK

Posted: 29th May 2012 06:16 Edited at: 29th May 2012 06:18

Link

Quote: "Say, if you END your program inside the loop, does it even do the cleanup code?"

Well spotted Rich.

She did a Switch (obscure Matrix reference) (http://en.wikipedia.org/wiki/List_of_minor_characters_in_the_Matrix_series#Switch)

She got an end when what she needed was an exit

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

15

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 29th May 2012 07:27 Edited at: 29th May 2012 07:30

Link

Good one, Marl!

Here's another example of using SetImageMask()

Save this image as MyImg.png in the media folder. (It includes the mask AND the bricks together, the code splits them)

SetVirtualResolution(800, 600)

` load in and separate the
` bullethole and bricks
MyImg = LoadImage("MyImg.png")
BulletImg = CopyImage(MyImg, 0, 0, 64, 64)
BrickImg = CopyImage(MyImg, 64, 0, 64, 64)
SetImageWrapU(BrickImg, 1)
SetImageWrapV(BrickImg, 1)

` make the brick background
backSpr = CreateSprite(BrickImg)
SetSpriteSize(backSpr, 800, 600)
SetSpriteUVScale(backSpr, .2, .2)

` this just makes a big white
` image using no external graphics
tempSprite = CreateSprite(0)
SetSpriteSize(tempSprite, 800, 600)
Render()
WallImg = GetImage(0, 0, 640, 550)
BlankWallImg = CopyImage(WallImg, 0, 0, 640, 550)
DeleteSprite(tempSprite)
WallSprite = CreateSprite(WallImg)
SetSpritePositionByOffset(WallSprite, 400, 350)

Do
    Print("Tap to shoot")

If GetPointerPressed()
        ` clear the bulletholes
        DeleteImage(WallImg)
        CopyImage(WallImg, BlankWallImg, 0, 0, 640, 550)

` make more bulletholes
        For x = 0 to 576 Step 64
            SetImageMask(WallImg, BulletImg, 4, 4, x, Random(100, 300))
            Sync()
            t# = Timer()
            While Timer() < t# + .05
            Endwhile
        Next x
    Endif
    Sync()
Loop

+ Code Snippet

SetVirtualResolution(800, 600)

` load in and separate the
` bullethole and bricks
MyImg = LoadImage("MyImg.png")
BulletImg = CopyImage(MyImg, 0, 0, 64, 64)
BrickImg = CopyImage(MyImg, 64, 0, 64, 64)
SetImageWrapU(BrickImg, 1)
SetImageWrapV(BrickImg, 1)

` make the brick background
backSpr = CreateSprite(BrickImg)
SetSpriteSize(backSpr, 800, 600)
SetSpriteUVScale(backSpr, .2, .2)

` this just makes a big white
` image using no external graphics
tempSprite = CreateSprite(0)
SetSpriteSize(tempSprite, 800, 600)
Render()
WallImg = GetImage(0, 0, 640, 550)
BlankWallImg = CopyImage(WallImg, 0, 0, 640, 550)
DeleteSprite(tempSprite)
WallSprite = CreateSprite(WallImg)
SetSpritePositionByOffset(WallSprite, 400, 350)

Do
    Print("Tap to shoot")

    If GetPointerPressed()
        ` clear the bulletholes
        DeleteImage(WallImg)
        CopyImage(WallImg, BlankWallImg, 0, 0, 640, 550)

        ` make more bulletholes
        For x = 0 to 576 Step 64
            SetImageMask(WallImg, BulletImg, 4, 4, x, Random(100, 300))
            Sync()
            t# = Timer()
            While Timer() < t# + .05
            Endwhile
        Next x
    Endif
    Sync()
Loop

Attachments

Login to view attachments

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 29th May 2012 10:38

Link

Some great examples guys, thanks for sharing!

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 29th May 2012 17:39

Link

You are so right Rich.

Yup, Marl, it should have been 'exit'.

I had grabbed the print/touch bits from another piece of test code that used no media and didn't think to change it.

'Copy/Paste/Edit' can be our friend, if your remember the 'edit' part.

Cheers,
Ancient Lady

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / An example of using SetImageMask to create a window

Attachments

Attachments