#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
rem AGK 2.0.21 rem MR 08.09.2016 rem Test for Android Device SetImmersiveMode(1) //docu said from 4.4 up 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