Sorry your browser is not supported!

#option_explicit

// AGK 2017.09.25 (Tier1 Basic) 
// Android Player Sep 22 2017
// MR 12.11.2017
 
rem get image from camera by dialog

//needs camera & memory permissions at android 6. 
 
SetDisplayAspect( 4.0/3.0 )
SetVirtualResolution( 1024, 768 )
SetResolutionMode( 1 )
SetSyncRate( 60, 0 )
SetOrientationAllowed( 1,1,1,1 )

Main()
end

Function Main()

	local image as integer 
	local idsprite as integer
	local sx# as float,sy# as float
	local ende as Integer

	image=0
	 
		if GETCAMERAEXISTS() =1 
			if SHOWIMAGECAPTURESCREEN() =1
				while ISCAPTURINGIMAGE() =1
					sync()
				endwhile
				image=GETCAPTUREDIMAGE()
				if image=0 then end
				idsprite = CreateSprite ( image )
				sx#=1024.0/getimagewidth(image)
				sy#= 768.0/getimageheight(image)
				SetSpriteScale( idsprite, sx#, sy# )
			endif
		else
				message("no cam")
		endif
	 
	ClearScreen()
	setclearcolor(128,128,128)
	ende=1
	AddVirtualButton( ende,32, 32, 64 )
	SetVirtualButtonText( ende, "Ende" )
	SetVirtualButtonAlpha( ende, 192 )
	 
	do
	 
	  if GetVirtualButtonPressed( ende ) then exit
	 
	  Sync()
	loop
	
EndFunction 

#option_explicit

rem AGK 2017.9.25
rem MR 14.11.2017
rem Test for Windows PC

local img as Integer
local cam as integer
local spr as integer

img=1

cam=0

SetDeviceCameraToImage(cam,img) //cam input goto image, image for id will created

spr=CreateSprite(img)                   //image output into a sprite
setspritesize(spr,GetVirtualWidth(),GetVirtualHeight()) //full size

do
        print("click to exit")
        if GetPointerPressed() then exit
        sync()
        
loop
end