(bind-func ai_color4_to_float4 (lambda (colour:aiColor4D* dat:float*) (pset! dat 0 (tref colour 0)) (pset! dat 1 (tref colour 1)) (pset! dat 2 (tref colour 2)) (pset! dat 3 (tref colour 3))))