|
- {$PROC 'CalcColor' 'vec4' 'seed' 'out vec4' 'color' $INLINE}
- {$UNIFORM 'sampler2D' 'uTexture0'}
- {$UNIFORM 'sampler2D' 'uTexture1'}
- color =
- texture2D(uTexture0, texCoord) *
- texture2D(uTexture1, texCoord) *
- uColor;
- {$END}
-
- {$MAIN}
- {$UNIFORM 'vec4' 'uColor'}
- vec4 color;
- {$CALL CalcColor 'uColor' 'color'}
- gl_FragColor = color;
- {$END}
|