I think thats also possible(nothing testet):
glColor4fv ( Float Ptr(Byte Ptr(v1)) )
or simply:
Type TVec4
Field d:float[4]
EndType
glColor4fv(v1.d[0])
glColor4fv ( Float Ptr(Byte Ptr(v1)) )
or simply:
Type TVec4
Field d:float[4]
EndType
glColor4fv(v1.d[0])