Sorry your browser is not supported!

rem
rem AGK Application 1.08B9
rem MR
rem Borderless

rem Landscape App
SetDisplayAspect( getdevicewidth()/getdeviceheight() )

if getdevicewidth()>getdeviceheight()
    w#=getdevicewidth()
    h#=getdeviceheight()
    x#=(w#/h#)*100.0
    setvirtualresolution(x#,100)
endif
if getdeviceheight()>getdevicewidth()
    w#=getdevicewidth()
    h#=getdeviceheight()
    y#=(h#/w#)*100.0
    setvirtualresolution(100,y#)
endif
if getdevicewidth()=getdeviceheight()
    setvirtualresolution(100,100)
endif

imgback=GridImage()
sprback=createsprite(imgback)
setspritesize(sprback,getvirtualwidth(),getvirtualheight())

do
 Print("hello window")
    print(x#)
    print(y#)
    print(str(getdevicewidth()))
    print(str(getdeviceheight()))
 Sync()
loop

function GridImage()

    setclearcolor(128,128,128)
    clearscreen()

    for x#=0.0 to getvirtualwidth() step 10.0
        drawline(x#,0.0,x#,getvirtualheight(),255,255,255)
    next
    for y#=0.0 to getvirtualheight() step 10.0
        drawline(0.0,y#,getvirtualwidth(),y#,255,255,255)
    next

    img=GetImage(0,0,getvirtualwidth(),getvirtualheight())

endfunction img

	// set the virtual world size
	scrn_wid = <your desired virtual width>;
	scrn_hih = <your desired virtual height>;

	// get the actual display paramaters
	the_disp_wid = (float)agk::GetDeviceWidth();
	the_disp_hih = (float)agk::GetDeviceHeight();

	// assume no offsets
	the_disp_brX = the_disp_ulX = the_disp_brY = the_disp_ulY = 0.0;

	// get the ratios
	rat_vir = scrn_wid / scrn_hih;
	rat_dsp = the_disp_wid / the_disp_hih ;

	// check to see if there is any real difference
	if (agk::Abs(rat_dsp-rat_vir)>0.001f)
	{
		// if the actual ratio is below virtual, we fill to left/right and 'black bar' above/below
		// if the actual ratio is above virtual, we fill to above/below and 'black bar' left/right

		// which way are we going?
		if (rat_dsp > rat_vir)
		{
			// we fill to above/below and 'black bar' left/right
			// calculate the 'real' width based on the real ratio and the desired height
			the_disp_wid = (float)agk::Floor(scrn_hih*rat_dsp);

			// set the 'real' height to the virtual one
			the_disp_hih = scrn_hih;

			// set the offsets for left/write
			the_disp_brX = (the_disp_wid>scrn_wid ? ((the_disp_wid - scrn_wid)/2.0f) : 0.0f);	// the amount to the right
			the_disp_ulX = (the_disp_brX>0.0f ? (-1.0f * the_disp_brX) : 0.0f);						// the amount to the left
		} else {
			// we fill to left/right and 'black bar' above/below
			// make sure that 
			// calculate the 'height' width based on the real ratio and the desired width
			the_disp_hih = (float)agk::Floor(scrn_wid/rat_dsp);

			// set the 'real' width to the virtual one
			the_disp_wid = scrn_wid;

			// set the offsets for above/below
			the_disp_brY = (the_disp_hih>scrn_hih ? ((the_disp_hih - scrn_hih)/2.0f) : 0.0f);	// the amount below the display
			the_disp_ulY = (the_disp_brY>0.0f ? (-1.0f * the_disp_brY) : 0.0f);						// the amount above the top
		}
	} else {
		// set the actual size to be the same as the virtual size
		the_disp_wid = scrn_wid;
		the_disp_hih = scrn_hih;
	}