[example] fiddling with font display example

1 files changed, 7 insertions, 9 deletions

diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp
index c73db4d..f26f0d0 100644
--- a/examples/03-font-render.lisp
+++ b/examples/03-font-render.lisp
@@ -4,16 +4,14 @@
    '(:vertex
      ((vert :vec2) (col :vec2))
      ()
-     (
-      (let ((extent (vari:vec4 1.0))) 
-        (values
-         (vari:vec4
-          (* 0.01 vert) 0.0 1.0)
-         col))))
+     ((values
+       (vari:vec4
+        (* 0.008 vert) 0.0 1.0)
+       col)))
    '(:fragment
      ((tc :vec2))
      ((tex :sampler-2d))
-     ((+ (vari:vec4 0.0 1.0 1.0 1.0) (vari:texture tex tc))))))
+     ((* (vari:vec4 1.0 1.0 1.0 1.0) (aref (vari:texture tex tc) 0))))))
 
 (defun start ()
   (sdl2:with-init (:everything)
@@ -31,7 +29,7 @@
         (gl:enable :depth-test)
         (let* ((font
                  (cl-fond:make-font
-                  #P"~/sites/hyperthings.garden/css/fonts/LibreCaslonDisplay-Regular.ttf"
+                  #P"~/projects/INACTIVE/wwb-haxe/Assets/Ticketing.ttf"
                   "ABCDEFGHJIJKLMNOPQRSTUVWXYZabcdefhgjijklmnopqrstuvwxyz0123456789 ,.!?:;-+/\\"))
                (shader
                  (make-shader)))
@@ -40,7 +38,7 @@
             (print (list :vao vao :elems elems))
             (sdl2:with-event-loop (:method :poll)
               (:idle ()
-                     (gl:clear-color 0.0 0.5 0.5 1.0)
+                     (gl:clear-color 0.0 0.0 0.0 1.0)
                      (gl:clear :depth-buffer-bit :color-buffer-bit)
                      (gl:use-program shader)
                      (gl:active-texture 0)