voxel-demo.rkt

#lang racket/gui
(require plot)
(define voxel-model2
  (vector
   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #t #t #t #f) ;
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #t #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #t #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #t #t #t #f) ;
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))

   (vector
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #t #f #f #f #f #f #f #t #f #f #f #f)
    (vector #f #f #t #t #t #t #t #t #f #f #f #f #f)
    (vector #f #f #f #f #f #f #f #f #f #f #f #f #f))))

(define (voxel-model->plot-rectangles vm)
  (for/list ([(zs z) (in-indexed vm)] #:when zs
             [(ys y) (in-indexed zs)] #:when ys
             [(xs x) (in-indexed ys)] #:when xs)
    (vector (ivl x (add1 x))
            (ivl y (add1 y))
            (ivl z (add1 z)))))

(plot-new-window? #t)
(plot3d (rectangles3d (voxel-model->plot-rectangles voxel-model2)))