On Fri, Jul 5, 2019 at 1:41 PM Ryan Joseph <[email protected]> wrote:
> This doesn’t work either.
>
> {$push}
> {$h+}
> 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;
> }
> }
> }`;
> {$pop}
>
> Regards,
> Ryan Joseph
>
Doesn't work in what regard? You wouldn't even need {$H+} there, as you're
explicitly using an ansistring.
Does something like the following not work for you:
program Example;
{$push}
{$H+}
const ReallyLongConstant = `
imagine
this
was
really
long
`;
{$pop}
var Short: String;
begin
WriteLn(GetTypeKind(ReallyLongConstant));
WriteLn(GetTypeKind(Short));
end.
_______________________________________________
fpc-devel maillist - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
