> On Jul 5, 2019, at 1:36 PM, Ben Grasset <operato...@gmail.com> wrote: > > {$push} > {$H+} > var Ansi: String; > {$pop}
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 _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel