rem
rem AGK Application 1.08 19
rem MR

setdisplayaspect(320/480.0)
setvirtualresolution(320,480)
setclearcolor(0,0,125)

createlightdirectional(1,0,-1,1,255,255,255)

CreateObjectcone( 1, 3,3,3 )
setobjectcolor(1,125,125,0,255)
SetObjectposition( 1,0,0,5 )

setcameraposition(1,0,0,-5)
setcameralookat(1,0,0,5,0)

do

    //axis
    ax#=0.0
    ay#=1.0
    az#=0.0

    //angle in degree
    theta# = theta# + 1.0
    w#   =   cos(theta#)
    x#   =   ax# * sin(theta#)
    y#   =   ay# * sin(theta#)
    z#   =   az# * sin(theta#)

    SetObjectRotationQuat( 1, w#,x#,y#,z# )

    sync()
loop