{$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}