<div class="gmail_quote"><div>Sorry. Missed one thing in setting the transform for the text, being a (identity).</div><div><br></div><div>Fixed code is below. Sorry if this caused any disappointments or confusion. </div><div>
<br></div><div>Kas.</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div></div><div><div><div><br></div><div><br></div><div>(define debug-print #f)</div>
<div>(define debug-colour (vector 1 1 1 .7))</div><div><br></div><div><br></div><div>(define (to-string msg)</div><div>    (let ((output "unknown type"))</div>
<div>        (when (string? msg) (set! output msg))</div><div>        (when (symbol? msg) (set! output (symbol->string msg)))</div><div>        (when (number? msg) (set! output (number->string msg)))</div><div>        (when (boolean? msg) (set! output (if msg "#t" "#f")))</div>

<div>        </div><div>        (when (list? msg)</div><div>            (set! output "( ")</div><div>                (for ((x (in-range 0 (length msg))))</div><div>                    (set! output (string-append output (to-string (list-ref msg x)) " ")))</div>

<div>                (set! output (string-append output ")")))</div><div>        (when (vector? msg)</div><div>            (set! output "#( ")</div><div>                (for ((x (in-range 0 (vector-length msg))))</div>

<div>                    (set! output (string-append output (to-string (vector-ref msg x)) " ")))</div><div>                (set! output (string-append output ")")))</div><div><br></div><div>        output))</div>

<div><br></div><div><br></div><div>(define (clear-print)</div><div>    (when (number? debug-print) (destroy debug-print))</div><div>    (set! debug-print #f))</div><div><br></div><div>(define (print msg)</div><div>    (let*(</div>

<div>            ( output (to-string msg))</div><div>            (s (min 1 (/ 6 (string-length output))))) </div><div>    (with-state</div><div>        (identity)</div><div>        (concat (minverse (get-camera-transform)))</div>
<div>
        (hint-ignore-depth)</div><div>        (hint-depth-sort)</div><div>        (hint-unlit)        </div><div>        (colour debug-colour)</div><div>        </div><div>        (texture (load-texture "font.png"))</div>

<div>        </div><div>        (translate (vector -1.05 (* .7 s) -1.1))</div><div>        </div><div>        (scale s)</div><div>        (when (number? debug-print) (destroy debug-print))</div><div>        (set! debug-print (build-text output)))))</div>

<div><br></div><div><br></div><div>;let's test!</div><div>(clear)</div><div>(build-cube)</div><div><br></div><div>(print (list 1 (list 2 3) #f "fluxus" 'test (time) time (vector 4 5)))</div></div></div>
<div>
<br></div>
</blockquote></div><br>