Sorry your browser is not supported!

type _img 
	id as integer 
	image as integer 
endtype 
global group as _img[]

//add image to group
newGroupImage("1.png")
newGroupImage("2.png")

//---------------------
//result
myPic = newGroup(group)
SetSpriteX(myPic, 100)
SetSpriteY(myPic, 100)
//---------------------

do
	sync()
loop


function newGroupImage( _filename as string ) 
	_obj as _img
	_obj.image = LoadImage(_filename)
	_obj.id = CreateSprite(_obj.image)
	SetSpritePositionByOffset(_obj.id, GetDeviceWidth()/2, GetDeviceHeight()/2 )
	group.insert(_obj)  
endfunction 

function newGroup( _obj ref as _img[]) 
	ClearScreen()
	for i=0 to _obj.length 
		DrawSprite(_obj[i].id) 
	next i
	
	_image = GetImage(GetSpriteX(_obj[0].id),GetSpriteY(_obj[0].id), GetSpriteWidth(_obj[0].id),GetSpriteHeight(_obj[0].id))
	
	ClearScreen()
	
	for i=0 to _obj.length 
		DeleteSprite(_obj[i].id) 
		DeleteImage(_obj[i].image) 
	next i
	
	for i=_obj.length  to 0
		_obj.remove(i)
	next i
	
	_picture=CreateSprite(_image)
endfunction _picture

// Project: test60 
// Created: 2019-07-10

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "test60" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

button = CreateSprite(LoadImage("button.png"))
SetSpritePositionByOffset(button, GetWindowWidth() * 0.5, GetWindowHeight() * 0.5)


chain = CreateTweenChain()

up = CreateTweenSprite(1)
SetTweenSpriteYByOffset(up, GetWindowHeight() * 0.5, GetWindowHeight() * 0.4, TweenEaseOut1())
AddTweenChainSprite(chain, up, button, 0)

down = CreateTweenSprite(1)
SetTweenSpriteYByOffset(down, GetWindowHeight() * 0.4, GetWindowHeight() * 0.5, TweenEaseIn1())
AddTweenChainSprite(chain, down, button, 0)

PlayTweenChain(chain)


text = CreateText("TEXT")
SetTextSize(text, 28)
SetTextAlignment(text, 1)
SetTextColor(text, 0xff,  0xff,  0xff, 0xff)
SetTextBold(text, 1)
do
    
	UpdateAllTweens(GetFrameTime())
	PinTextToSprite(button, text)
    Print( ScreenFPS() )
    Sync()
loop


function	PinTextToSprite(sprite as integer, text as integer)
	x as float
	y as float
	x = GetWorldXFromSprite(sprite, 0, 0)
	y = GetWorldYFromSprite(sprite, 0, -(GetSpriteHeight(sprite) - GetTextTotalHeight(text)) )	
	SetTextPosition(text, x, y)
endfunction