Sorry. Missed one thing in setting the transform for the text, being a (identity).
Fixed code is below. Sorry if this caused any disappointments or confusion. Kas. > > > (define debug-print #f) > (define debug-colour (vector 1 1 1 .7)) > > > (define (to-string msg) > (let ((output "unknown type")) > (when (string? msg) (set! output msg)) > (when (symbol? msg) (set! output (symbol->string msg))) > (when (number? msg) (set! output (number->string msg))) > (when (boolean? msg) (set! output (if msg "#t" "#f"))) > > (when (list? msg) > (set! output "( ") > (for ((x (in-range 0 (length msg)))) > (set! output (string-append output (to-string (list-ref > msg x)) " "))) > (set! output (string-append output ")"))) > (when (vector? msg) > (set! output "#( ") > (for ((x (in-range 0 (vector-length msg)))) > (set! output (string-append output (to-string > (vector-ref msg x)) " "))) > (set! output (string-append output ")"))) > > output)) > > > (define (clear-print) > (when (number? debug-print) (destroy debug-print)) > (set! debug-print #f)) > > (define (print msg) > (let*( > ( output (to-string msg)) > (s (min 1 (/ 6 (string-length output))))) > (with-state > (identity) > (concat (minverse (get-camera-transform))) > (hint-ignore-depth) > (hint-depth-sort) > (hint-unlit) > (colour debug-colour) > > (texture (load-texture "font.png")) > > (translate (vector -1.05 (* .7 s) -1.1)) > > (scale s) > (when (number? debug-print) (destroy debug-print)) > (set! debug-print (build-text output))))) > > > ;let's test! > (clear) > (build-cube) > > (print (list 1 (list 2 3) #f "fluxus" 'test (time) time (vector 4 5))) > >
