vol-package.lisp

   1 (declaim (optimize (speed 2) (debug 3) (safety 3)))
   2
   3 #.(require :alexandria)
   4 #.(require :vector)
   5
   6 ;; only in the lab
   7 #+x86-64 (require :cuda-fft)
   8
   9
  10 (defpackage :vol
  11   (:use :cl :sb-alien :sb-c-call :vector :cuda-fft)
  12   (:export
  13    #:fftshift2
  14    #:convolve2-circ
  15
  16     #:fftshift3
  17     #:read-pgm
  18     #:write-pgm
  19     #:histogram
  20     #:get-linear-array
  21     #:read-stack
  22     #:square
  23     #:linear-regression
  24     #:clamp
  25     #:interp1
  26     #:interpolate2
  27
  28     #:+forward+
  29     #:+backward+
  30     #:+estimate+
  31
  32     #:do-rectangle
  33     #:do-box
  34     #:with-slice
  35
  36     #:save-stack
  37     #:save-stack-ub8
  38     #:.*
  39     #:.+
  40     #:s*
  41     #:.*2
  42     #:.+2
  43     #:s*2
  44     #:convolve3-circ
  45     #:convolve3-nocrop
  46     #:convolve3
  47
  48     #:resample-half
  49     #:cross-section-xz
  50
  51     #:convert3-cdf/df-imagpart
  52     #:convert3-df/ub8-floor
  53     #:convert2-ub8/cdf-complex
  54     #:convert2-cdf/df-realpart
  55     #:convert2-cdf/df-imagpart
  56     #:convert2-df/cdf-complex
  57     #:convert3-ub8/cdf-complex
  58     #:convert2-cdf/ub8-realpart
  59     #:convert3-cdf/df-phase
  60     #:convert2-cdf/ub8-abs
  61     #:convert3-cdf/df-realpart
  62     #:convert3-cdf/df-imagpart
  63     #:convert3-df/cdf-complex
  64     #:convert2-cdf/ub8-phase
  65     #:convert3-cdf/df-abs
  66     #:convert2-cdf/df-imagpart
  67     #:convert3-cdf/ub8-abs
  68     #:convert2-cdf/df-phase
  69     #:convert2-cdf/df-abs
  70     #:convert3-cdf/ub8-phase
  71     #:convert2-df/ub8-floor
  72     #:convert3-cdf/ub8-realpart
  73     #:convert3-cdf/ub8-imagpart
  74
  75     #:convert3-ub8/csf-complex
  76     #:convert2-ub8/csf-complex
  77     #:convert1-ub8/csf-complex
  78
  79     #:convert3-csf/cdf-coerce
  80     #:convert2-csf/cdf-coerce
  81     #:convert1-csf/cdf-coerce
  82
  83     #:normalize2-cdf/ub8-phase
  84     #:normalize3-cdf/ub8-phase
  85     #:normalize2-cdf/ub8-realpart
  86     #:normalize2-cdf/ub8-imagpart
  87     #:normalize2-df/ub8-floor
  88     #:normalize2-cdf/ub8-abs
  89     #:normalize3-df/ub8-realpart
  90     #:normalize3-cdf/ub8-abs
  91     #:normalize3-cdf/ub8-realpart
  92     #:normalize3-cdf/ub8-imagpart
  93     #:normalize3-df/ub8-floor
  94     #:normalize-ub8
  95
  96     #:normalize2-csf/ub8-realpart
  97     #:normalize2-sf/ub8-floor
  98     #:normalize2-csf/ub8-imagpart
  99     #:normalize3-sf/ub8-floor
 100     #:normalize1-df/ub8-floor
 101     #:normalize3-csf/ub8-abs
 102     #:normalize3-csf/ub8-realpart
 103     #:normalize3-csf/ub8-imagpart
 104     #:normalize1-sf/ub8-floor
 105     #:normalize3-csf/ub8-phase
 106     #:normalize2-csf/ub8-abs
 107     #:normalize2-csf/ub8-phase
 108     #:normalize1-cdf/ub8-realpart
 109     #:normalize1-csf/ub8-realpart
 110
 111     #:count-non-zero-ub8
 112     #:decimate-xy-ub8
 113
 114     #:bbox
 115     #:make-bbox
 116     #:bbox-start
 117     #:bbox-end
 118     #:extract-bbox2-ub8
 119     #:replace-bbox2-ub8
 120     #:find-bbox2-ub8
 121     #:find-bbox3-ub8
 122     #:extract-bbox3-ub8
 123     #:extract-bbox3-cdf
 124     #:extract-bbox3-df
 125     #:replace-bbox3-ub8
 126
 127     #:mean-realpart
 128     #:normalize2-df/df
 129     #:with-arrays
 130     #:normalize->ub8
 131     #:draw-disk
 132     #:draw-unit-intensity-disk-precise
 133     #:draw-unit-energy-disk-precise
 134     #:draw-sphere-ub8
 135     #:draw-oval-ub8
 136     #:resample3-cdf
 137     #:interpolate3-cdf
 138     #:.-
 139     #:cross-section-xz-csf
 140     #:cross-section-xz-cdf))
 141
 142 ;; for i in `cat vol.lisp|grep defconst|cut -d " " -f 2`;do echo \#:$i ;done