vol-package.lisp

   1 (declaim (optimize (speed 2) (debug 3) (safety 3)))
   2 ;#.(require :alexandria)
   3 ;#.(require :vector)
   4
   5 ;; only in the lab
   6 #+x86-64 (require :cuda-fft)
   7
   8
   9 (defpackage :vol
  10   (:use :cl :sb-alien :sb-c-call :vector
  11         #+x86-64 :cuda-fft)
  12   (:export
  13
  14     #:read-pgm
  15     #:write-pgm
  16     #:histogram
  17     #:read-stack
  18     #:linear-regression
  19     #:clamp
  20
  21     #:do-region
  22     #:with-slice
  23
  24     #:save-stack-ub8
  25
  26
  27     #:resample-half
  28     #:cross-section-xz
  29
  30     #:count-non-zero-ub8
  31
  32     #:bbox
  33     #:make-bbox
  34     #:bbox-start
  35     #:bbox-end
  36
  37     #:mean
  38
  39     #:with-arrays
  40
  41     #:draw-disk
  42     #:draw-unit-intensity-disk-precise
  43     #:draw-unit-energy-disk-precise
  44     #:draw-sphere-ub8
  45     #:draw-oval-ub8
  46
  47     #:format-symbol))
  48
  49 ;; for i in `cat vol.lisp|grep defconst|cut -d " " -f 2`;do echo \#:$i ;done