rem
rem AGK Application
rem
rem A Wizard Did It!
setvsync(1)
setvirtualresolution(1280,720)
aButton1=1
aButton2=2
aButton3=3
aLight1=1
aCam1=1
//aShader1=LoadShader("vertex.vs","pixel.ps")
rem Landscape App
//SetDisplayAspect( 16.0/9.0 )
//SetVirtualResolution(1280,720)
//SetResolutionMode(1)
clearlightdirectionals()
CreateLightDirectional( 1, 0, 0, 0, 255,255,255 )
SetLightDirectionalDirection( 1, -25, -50,-25 )
aBox1=CreateObjectBox(100,100,100)
setobjectposition(aBox1,0,0,0)
setobjectlightmode(abox1,1)
setobjectcolor(abox1,255,0,0,255)
rem aBox1= LoadObject( "Cube.obj" )
//SetObjectShader( aBox1, aShader1 )
//CreateLightPoint( aLight1, 0, 200,400 , 20, 255, 255, 255 )
SetCameraPosition(aCam1,0,0,-500)
SetCameraRotation(aCam1,0,0,0)
setcameralookat(aCam1,0,0,0,0)
AddVirtualButton(aButton1,100,500,50)
AddVirtualButton(aButton2,100,560,50)
AddVirtualButton(aButton3,100,620,50)
AddVirtualJoystick(1,100,100,100)
WHILE GetPointerPressed()=0
//Sync ( )
a=a+(GetVirtualJoystickX(1))
b=b+(GetVirtualJoystickY(1))
if GetVirtualJoystickY(1)>0.5 then MovecameraLocalZ(aCam1,-2.5)
if GetVirtualJoystickY(1)<-0.5 then MovecameraLocalZ(aCam1,2.5)
if GetVirtualJoystickX(1)>0.5
RotateCameraLocalY(1,0.8)
yrot=yrot+1.7
endif
if GetVirtualJoystickX(1)< -0.5
RotateCameraLocalY(1,-0.8)
yrot=yrot-1.7
endif
SetCameraPosition(aCam1,GetCameraX(1),100,GetCameraZ(1))
if GetVirtualButtonState(aButton2)=1 and aer > -93
aer = aer - 0.8
RotateCameraLocalX(1,-0.8)
turning=0
endif
if GetVirtualButtonState(aButton3)=1 and aer < 49
aer = aer + 0.8
RotateCameraLocalX(1,0.8)
turning=0
endif
sync()
ENDWHILE
END
and just make sure your setup file uses same resolution so it doesn't look chopped off
now just play with the light directional direction to get the correct shading you want
