anchor.diff:  	       ))
         ;(print (+ baseline 1))
         (let ((s :type size))
  -	(setf (member s width) max-width-reached)
  -	(setf (member s height) (cast baseline i64))
  +	(setf (member s width) (+ max-width-reached 10))
  +	(setf (member s height) (cast (+ baseline 10) i64))
   	s))))
   
   (defun size-area (i64 (s size))
  
positive.code: 		   (shift-x f32) (shift-y f32) (ix0 (ptr i32)) (iy0 (ptr i32)) 
  		   (ix1 (ptr i32)) (iy1 (ptr i32))))
  
  
  ;stbtt_MakeCodepointBitmapSubpixel
  ;stbtt_GetCodepointKernAdvance
  
  
negative.code:       		   (y0 :type i32)
        		   (y1 :type i32)
        		   (x-shift (the 0.0 f32))
  		   (codepoint (cast (deref (+ text it)) i32))		   
  		   )
  	       
  	       (tt:get-codepoint-h-metrics font codepoint (addrof advance) (addrof lsb))
  	       (tt:get-codepoint-bitmap-box-subpixel font codepoint 
  						     scale scale x-shift 0 (addrof x0) (addrof y0)
  						     (addrof x1)
  						     (addrof y1))
  	       (let ((buffer-pt (ptr+ buffer (cast (+ (cast xpos i32) x0
  						      (* (+ y0 baseline) (cast (member s width) i32))
  						      ) i64))))
  					;)))
  		     
  		 (tt:make-codepoint-bitmap-subpixel font buffer-pt (- x1 x0) (- y1 y0) (cast (member s width) i32)
  						    scale scale x-shift 0 codepoint)
  		 )
  						      
  						      
  	       (when (> (cast (+ xpos (* scale (cast advance f32))) i32) max-width)
  		 (setf xpos 0)
  		 (incr baseline (cast (* (cast ascent f32) scale) i32))
  	       )
         	     (setf xpos (+ xpos (* scale (cast advance f32))))
  	       )))
  