On Sat, Jul 6, 2019 at 10:52 AM Ryan Joseph <generic...@gmail.com> wrote:
> {$mode objfpc}
>
> program test;
>
> const lines: ansistring = `
> #version 150
>
> uniform sampler2D textures[8];
> in vec2 vertexTexCoord;
> in vec4 vertexColor;
> in float vertexUVMap;
> out vec4 fragColor;
>
> void main()
> {
> if (vertexUVMap == 255) {
> fragColor = vertexColor;
> } else {
> fragColor = texture(textures[int(vertexUVMap)], vertexTexCoord.st);
> if (vertexColor.a < fragColor.a) {
> fragColor.a = vertexColor.a;
> }
> }
>
> // TODO: testing
> fragColor = vec4(1,0,0,1);
> }
> `;
>
> var
> s: ansistring;
> begin
> writeln(b);
> end.
>
> Regards,
> Ryan Joseph
>
Yep. I was actually just writing a couple of tests that directly look at
how errors are handled, so this might prove as a good case for one of them
once I get it remedied.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
