diff options
| -rw-r--r-- | examples/03-font-render.lisp | 16 |
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) |