Implement text rendering using geometry shader

2021-02-15 14:03:15 +01:00
parent 9747b5b876
commit 9f4497fb39
4 changed files with 27 additions and 12 deletions
@@ -78,7 +78,7 @@ renderPicture' pdata (Scene posTri colTri posChar colChar texChar) = do
    bindBuffer ArrayBuffer $= Just (_texVBO pdata)
    pokeArray (_ptrTexVBO pdata) $ mapFlat flat2 texChar
    bufferData ArrayBuffer $= (fromIntegral (2 * numVertices' * vertexSize'), _ptrTexVBO pdata, StreamDraw)
-    drawArrays Triangles (fromIntegral firstIndex) (fromIntegral $ numVertices')
+    drawArrays Points (fromIntegral firstIndex) (fromIntegral $ numVertices')