root/trunk/orca/gl/demo/fps.r

ORCA [
    Purpose: {Provides average frames per second counter}
]

fps: context [
    times: make list! 30

    init: does [
        loop 30 [insert times now/time]
        times: head times
    ]

    ; Currently this provides the time elapsed for the last 30 frames.
    update: func [/local t] [
        t: now/time
        times: remove times
        insert tail times t
        t: t - first times
        ;t / 30
    ]
]

;eof