From 642c0c594a8abe05be1cb887110ed3e602cd0e48 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 30 Jun 2022 07:57:54 -0500
Subject: [structure] renamed some asd modules

---
 src/interactive-units/text.lisp | 91 -----------------------------------------
 1 file changed, 91 deletions(-)
 delete mode 100644 src/interactive-units/text.lisp

(limited to 'src/interactive-units/text.lisp')

diff --git a/src/interactive-units/text.lisp b/src/interactive-units/text.lisp
deleted file mode 100644
index caba48e..0000000
--- a/src/interactive-units/text.lisp
+++ /dev/null
@@ -1,91 +0,0 @@
-;;;; units/text.lisp
-
-(in-package #:wheelwork)
-
-(defclass/std text (affine interactive)
-  ((font :with :ri :std (error "A font is required") :type font)
-   (content :with :ri :std "")
-   (color :with :std #(1.0 1.0 1.0 1.0))
-   (vao elem-count newlines :r)
-   (shader :with :static :r)))
-
-(defmethod model-matrix ((text text))
-  (let ((m (mat:meye 4)))
-    (with-slots (font newlines x y base-width base-height scale-x scale-y rotation) text 
-      (let* ((text-height
-               (cl-fond:text-height (font-object font)))
-             (baseline-offset
-              (* newlines text-height))
-             (rotation-baseline-offset
-               (* 2 newlines text-height )))
-        (mat:nmtranslate m (vec:vec x
-                                    (+ y
-                                       (*
-                                        scale-y
-                                        baseline-offset))
-                                    0.0))
-
-        (mat:nmtranslate m (vec:v* 0.5 (vec:vec (* scale-x base-width)
-                                                (* scale-y (- base-height rotation-baseline-offset) )
-                                                0.0)))
-        (mat:nmrotate  m vec:+vz+ rotation)
-        (mat:nmtranslate m (vec:v* -0.5 (vec:vec (* scale-x base-width )
-                                                 (* scale-y (- base-height rotation-baseline-offset))
-                                                 0.0))))
-      
-      (mat:nmscale m (vec:vec scale-x scale-y 1.0))
-      m)))
-
-(defmethod initialize-instance :after ((text text) &key)
-  (with-slots (content newlines font vao elem-count shader base-width base-height scale-x scale-y) text
-    (unless shader
-      (setf shader
-            (create-shader
-             '(:vertex
-               ((vert :vec2) (col :vec2))
-               ((transform :mat4))
-               ((values
-                 (* transform (vari:vec4 vert 0.0 1.0))
-                 col)))
-             '(:fragment
-               ((tc :vec2))
-               ((tex :sampler-2d)
-                (color :vec4))
-               ((* color (aref (vari:texture tex tc) 0)))))))
-    (multiple-value-bind (vao% count%) (cl-fond:compute-text (font-object font) content)
-      (setf vao vao%
-            elem-count count%))
-    (setf newlines (count #\newline content))
-    (hq:with-plist ((l :l) (r :r)) (cl-fond:compute-extent (font-object font) content)
-      (setf base-width (- r l)
-            base-height (* (cl-fond:text-height (font-object font))
-                           (1+ newlines))))))
-
-(defmethod cleanup ((text text))
-  (with-slots (vao shader) text
-    (gl:delete-vertex-arrays (list vao))
-    (when shader
-      (gl:delete-program shader))
-    (setf vao nil
-          shader nil)))
-
-(defmethod render ((text text))
-  (with-slots (shader font vao elem-count color) text
-    (gl:use-program shader)
-    (gl:active-texture 0)
-    (gl:bind-texture :texture-2d (cl-fond:texture (font-object font)))
-    (gl:program-uniform-matrix-4fv
-     shader
-     (gl:get-uniform-location shader "TRANSFORM")
-     (projected-matrix text))
-    (gl:program-uniformi
-     shader
-     (gl:get-uniform-location shader "TEX")
-     0)
-    (gl:program-uniformfv
-     shader
-     (gl:get-uniform-location shader "COLOR")
-     color)
-    (gl:bind-vertex-array vao)
-    (%gl:draw-elements :triangles elem-count :unsigned-int 0)
-    (gl:bind-vertex-array 0)))
-- 
cgit v1.2.3