Sorry your browser is not supported!

Global Aspect As Float
sync on
sync rate 0
set display mode 640,480,32,0,2,0
make object box 1,1,1,1
A#=640
B#=480
Aspect=(A#/B#)
Do
	X#=Get Window Client Width()
	Y#=Get Window Client Height()
	Aspect=X#/Y#
	Set Camera Aspect Aspect
	If Get Window Client Width()<>Screen Width() Or Get Window Client Height()<>Screen Height()
		Set Display Mode Get Window Client Width(),Get Window Client Height(),32,0,2,0
		`make object box 1,1,1,1
		`Sync
	EndIf
	Set Cursor 10,10
	print "Width ",Get Window Client Width()
	print "Height ",Get Window Client Height()
	print "Object ",Object exist(1)
	print "Aspect "+STR$(Aspect)
	if mouseclick()=1
		rotate object 1,0,object angle y(1)+(Old#-MouseX()),0		
	EndIf
	Old#=MouseX()	
	sync

	If MouseClick()=0 Then SYNC SLEEP 1
Loop

print x#;"  ";Screen Width()
print y#;"  ";Screen height()

Global Aspect As Float
sync on
sync rate 0
make object box 1,1,1,1
Do
	X#=Get Window Client Width()
	Y#=Get Window Client Height()
	`X=X#
	`Y=Y#
	
	If (X#<>Screen Width() Or Y#<>Screen Height()) And Is Maximised()=0
		Set Display Mode X#,Y#,Display Depth(),0,2,0
		Aspect=X#/Y#
		Set Camera Aspect Aspect
		make object box 1,1,1,1
		MaxActive=0
	EndIf
	
	If Is Maximised()=1 And MaxActive=0
		Set Display Mode Display Width(),Display Height(),Display Depth(),0,2,0
		make object box 1,1,1,1
		M=M+1
		Print "Maximised"
		MaxActive=1
	EndIf
	
	Set Cursor 10,10
	print "-Display-"
	print "Width ",Display Width()
	print "Height ",Display Height()
	print "-Screen-"
	print "Width ",Screen Width()
	print "Height ",Screen Height()
	print "Object ",Object exist(1)
	Print "-Window-"
	print "Width ",X#
	print "Height ",Y#
	print "Aspect ",Aspect
	print M
	print ObjY#
	
	if mouseclick()=1
		ObjY#=WrapValue(ObjY#+(Old#-MouseX()))	
	EndIf
	
	rotate object 1,0,ObjY#,0	
	Old#=MouseX()	
	sync

	Sync Sleep 1
Loop