DeclareGlobalImage macro

#macro DeclareGlobalImage( _N , _W , _H , _P... )
    type _N##_Data
        as ulong I,B,W,H,P,R(2)
        M((_W*_H)-1) as ubyte
    end type
    static shared as _N##_Data __##_N = type( 7,1,_W,_H,_W,{0,0,0}, { _P } )
    #define _N @__##_N
#endmacro