wait-for-bunny ( window -- )

Vocabulary

demos.smoke-test

Inputs

window

an object

Outputs

None

Definition

USING: accessors calendar gpu.demos.bunny kernel math threads ;

IN: demos.smoke-test

:: wait-for-bunny ( window -- )
    300 [
        drop window bunny>> bunny-loaded?
        [ window bunny>> bunny-state-filled? ] [ f ] if
        [ t ] [ 100 milliseconds sleep f ] if
    ] find-integer
    [ drop ] [ "Bunny model did not finish loading" throw ] if*
    ;