_NEWIMAGE can't accept variables as dimensions?

[bplus]

Works fine for me _NewImage with variables in a sub:

Code: (Select All)

Option _Explicit

Screen _NewImage(800, 600, 32): _ScreenMove 280, 60

Dim I

For I = 1 To 100

    Line (Rnd * _Width, Rnd * _Height)-(Rnd * _Width, Rnd * _Height), _RGB32(Rnd * 255), BF

Next

Sleep

testNewImage





Sub testNewImage

    Dim SCR&, W, H, SQUARTER&

    SCR& = _ScreenImage

    W = _Width(SCR&) / 2

    H = _Height(SCR&) / 2



    SQUARTER& = _NewImage(W, H, 32)



    _PutImage , SCR&, SQUARTER&, (0, 0)-(W - 1, H - 1)

    Cls

    _PutImage , SQUARTER&, 0

    Print SCR&, W, H, SQUARTER&

End Sub