Sorry your browser is not supported!

sync on
sync rate 60
backdrop on
color backdrop rgb(0,0,0)

    aaing$="no"
    gosub antialias

    make object sphere 1,10,100,100

    load image "1_earth_8k.jpg",1,1
    texture object 1,1

do

text 0,0,"Antialiasing? = "+aaing$
text 0,10,"at level: "+str$(aalevel#)
if aaing$="yes" then text 0,25,"Anisotropic filtering also on."
position object 1,0,object position y(1)+0.1,0
    
sync
loop

`------------

antialias:
    if antialias available()=1
        aalevel#=get maximum antialias level()
        aslevel#=get maximum anisotropy level()
        aaing$="yes"
        
        set antialias level aalevel#
        set anisotropy level aslevel#
    endif
return

set display mode 640,480,32,1
sync on
sync rate 60
autocam on

max_aa=get maximum antialias level()
one=0
two=0

`=======
repeat
    text 0,0,"What AA level would you like?"
    text 0,35,"1. None"
    text 0,55,"2. Max supported by hardware"
    
    if scancode()=2 then one=1
    if scancode()=3 then two=1

    if one=1 then aachoice=0
    if two=1 then aachoice=max_aa
    sync
until one=1 or two=1
cls
`=======
    
    set antialias level aachoice
    
    make object cube 900,10

do

    yrotate object 900,object angle y(900)+1
    
    gosub print_info

sync
loop

print_info:
    text 0,0,"FPS: "+str$(screen fps())
    text 0,10,"AA Level: "+str$(get antialias level())
return