1 2out vec4 sk_FragColor; 3uniform vec4 colorGreen; 4uniform vec4 colorRed; 5vec4 main() { 6 vec4 value = vec4(2.5, -2.5, 8.0, -0.125); 7 const vec4 expectedWhole = vec4(2.0, -2.0, 8.0, 0.0); 8 const vec4 expectedFraction = vec4(0.5, -0.5, 0.0, -0.125); 9 bvec4 ok = bvec4(false); 10 vec4 whole; 11 vec4 fraction; 12 fraction.x = modf(value.x, whole.x); 13 ok.x = whole.x == 2.0 && fraction.x == 0.5; 14 fraction.xy = modf(value.xy, whole.xy); 15 ok.y = whole.xy == vec2(2.0, -2.0) && fraction.xy == vec2(0.5, -0.5); 16 fraction.xyz = modf(value.xyz, whole.xyz); 17 ok.z = whole.xyz == vec3(2.0, -2.0, 8.0) && fraction.xyz == vec3(0.5, -0.5, 0.0); 18 fraction = modf(value, whole); 19 ok.w = whole == expectedWhole && fraction == expectedFraction; 20 return all(ok) ? colorGreen : colorRed; 21} 22