On Fri, Jul 5, 2019 at 8:08 PM Ryan Joseph <[email protected]> wrote:
> ah! Your code works but mine doesn’t! maybe the line ending are messing it
> up? I get "String constant too long while ansistrings are disabled”.\
>
No, that makes no sense whatsoever.
Another example:
{$mode objfpc}
{ explicitly set H- ! }
{$H-}
{ using CRLF while my file is actually LF, just for fun }
{$MULTILINESTRINGLINEENDING CRLF}
program test;
var 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;
}
}
}`;
begin
WriteLn(lines);
end.
I'm not even sure which code (that is actually a complete program with a
begin and end) you're talking about.
_______________________________________________
fpc-devel maillist - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
