anchor.diff:    (+ (noise x)
        (let ((x (rotate-y x 0.833)))
          (/ (noise (* x 4s0)) 4s0))))
  -
  -(defmacro-g saturate (x)
  -  `(clamp ,x 0s0 1s0))
   
   (defun-g sphere ((p :vec3) (pos :vec3) (radius :float))
     (- (length (- p pos)) radius))
  
positive.code:    (mix (specular-color mat-a) (specular-color mat-b) amount)
     (mix (specular-exponent mat-a) (specular-exponent mat-b) amount)
     (mix (background-ammount mat-a) (background-ammount mat-b) amount)))
  
  
  (defun-g rotate-x ((vec :vec3) (angle :float))
    (let ((c (cos angle))
  
negative.code: (defstruct-g scene-result ()
    (d :float :accessor s-r-d)
    (material material :accessor s-r-material))
  
  (defmacro-g saturate (x)
    `(clamp ,x 0s0 1s0))
  
  (defun-g mix-materials ((mat-a material) (mat-b material) (amount :float))
    (make-material
  