Sorry your browser is not supported!

Rem Project: AATest_renderTargets
Rem Created: Thursday, January 23, 2014

Rem ***** Main Source File *****


global scrw = 1280
global scrh = 800

set display mode scrw, scrh, 32
sync on : sync rate 0 : sync

make memblock 1, 16 : write memblock dword 1,0,1 : write memblock dword 1,4,1 : write memblock dword 1,8,32 : write memblock dword 1,12,0xFFFFFFFF
make image from memblock 99, 1 : delete memblock 1
sprite 1, 0,0, 99 : hide sprite 1 : set sprite 1, 0, 1

ik create render target 1, 2*scrw, 2*scrh
ik create render target 2, 4*scrw, 4*scrh
set current bitmap 0
ik set filters 3,1,1

global trg = 0
angoff# = 0.0

set text font "Verdana"
set text size 20

do
    rem Mode Selection
    if keystate(2) then trg = 0 : set text size 20
    if keystate(3) then trg = 1 : set text size 40
    if keystate(4) then trg = 2 : set text size 80
    
    t_old = t_new
    t_new = timer()
    t_dif = t_new - t_old
    if shiftkey() then inc angoff#, t_dif*0.01
    
    rem Draw
    select trg
        case 1
            size sprite 1, 1024,20
            offset sprite 1, 512,10
            draw to image 1
                cls 0xFF000000
                for ang = 0 to 359 step 5
                    rotate sprite 1, ang+angoff#
                    paste sprite 1, scrw,scrh
                next 
                output()
            set current bitmap 0
            cls
            ik paste image 1, 0,0,scrw,scrh
        endcase
        case 2
            size sprite 1, 2048,40
            offset sprite 1, 1024,20
            draw to image 2
                cls 0xFF000000
                for ang = 0 to 359 step 5
                    rotate sprite 1, ang+angoff#
                    paste sprite 1, scrw*2,scrh*2
                next 
                output()
            set current bitmap 0
            cls
            ik paste image on image 2, 1, 0,0,scrw*2,scrh*2
            ik paste image 1, 0,0,scrw,scrh
        endcase
        case default
            size sprite 1, 512,10
            offset sprite 1, 256,5
            cls
            for ang = 0 to 359 step 5
                rotate sprite 1, ang+angoff#
                paste sprite 1, scrw*0.5,scrh*0.5
            next 
            output()
        endcase
    endselect
    
    
    sync
loop

function output()
    print "Press 1,2,3 to select AA Mode"
    print "Press Shift to Rotate"
    print
    print "FPS: ", screen fps()
    print "AA x", 2^trg
endfunction

remstart
  From the MS SDK DX9 docs:
  
  typedef enum D3DMULTISAMPLE_TYPE {
  D3DMULTISAMPLE_NONE           = 0,
  D3DMULTISAMPLE_NONMASKABLE    = 1,
  D3DMULTISAMPLE_2_SAMPLES      = 2,
  D3DMULTISAMPLE_3_SAMPLES      = 3,
  D3DMULTISAMPLE_4_SAMPLES      = 4,
  D3DMULTISAMPLE_5_SAMPLES      = 5,
  D3DMULTISAMPLE_6_SAMPLES      = 6,
  D3DMULTISAMPLE_7_SAMPLES      = 7,
  D3DMULTISAMPLE_8_SAMPLES      = 8,
  D3DMULTISAMPLE_9_SAMPLES      = 9,
  D3DMULTISAMPLE_10_SAMPLES     = 10,
  D3DMULTISAMPLE_11_SAMPLES     = 11,
  D3DMULTISAMPLE_12_SAMPLES     = 12,
  D3DMULTISAMPLE_13_SAMPLES     = 13,
  D3DMULTISAMPLE_14_SAMPLES     = 14,
  D3DMULTISAMPLE_15_SAMPLES     = 15,
  D3DMULTISAMPLE_16_SAMPLES     = 16,
  D3DMULTISAMPLE_FORCE_DWORD    = 0xffffffff 
} D3DMULTISAMPLE_TYPE, *LPD3DMULTISAMPLE_TYPE;

remend

` sadly, the antialiasing modes seem to have no effect even when the GFX card setting says "application controlled"

set display mode 640, 480, 32, 1, 16, 0 ` the final unused zero flag seems to be necessary
sync on : sync rate 60 : sync

load image "test.dds", 1

sprite 1, 320, 240, 1
scale sprite 1, 8000

repeat
  cls rgb(0, 255, 0)
  paste sprite 1, 320, 240
  if inkey$() = "r" then rotate sprite 1, sprite angle(1)+1
  sync
until spacekey()

end

set display mode 640, 480, 32, 1, 4, 0 ` the final unused zero flag seems to be necessary
sync on : sync rate 60 : sync : sync

make object cube 1, 10


repeat
  if inkey$() = "r" then yrotate object 1, object angle y(1)+0.1
  sync
until spacekey()

end