_NEWIMAGE can't accept variables as dimensions?

[bplus]

Yeah Ok sorry maybe I am the one confused.

Update: BUT it still works for me! @bobalooie

Code: (Select All)

Option _Explicit
Type object
    As Long img, wide, high
End Type

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
Dim test(4, 4) As object, A, B
A = 1: B = 2
testNewImage test(), A, B
Print test(A, B).img, test(A, B).wide, test(A, B).high


Sub testNewImage (outputObj() As object, A, B)
    Dim SCR&
    SCR& = _ScreenImage
    outputObj(A, B).wide = _Width(SCR&) / 2
    outputObj(A, B).high = _Height(SCR&) / 2

    outputObj(A, B).img = _NewImage(outputObj(A, B).wide, outputObj(A, B).high, 32)

    _PutImage , SCR&, outputObj(A, B).img, (0, 0)-(outputObj(A, B).wide - 1, outputObj(A, B).high - 1)
    Cls
    _PutImage , outputObj(A, B).img, 0
End Sub