(define (shade value)
  (inexact->exact (floor (* 256.0 value))))

(define (color_to_int color)
  (let
    ((x (shade (vector-ref color _X)))
     (y (shade (vector-ref color _Y)))
     (z (shade (vector-ref color _Z))))
    (+ (* (+ (* z 256) y) 256) x)))

(define (plot j i color)
  (display (color_to_int color)) (newline))