external/clem/src/defpackage.lisp

   1
   2 (in-package #:cl-user)
   3
   4 (eval-when (:compile-toplevel :load-toplevel :execute)
   5   #+sbcl
   6   (if (find-package 'sb-mop)
   7       (pushnew :clem-sbcl-mop cl:*features*)
   8       (pushnew :clem-sbcl-pcl cl:*features*)))
   9
  10
  11 (defpackage #:clem
  12   (:use #:cl #:asdf
  13         #+clem-sbcl-mop #:sb-mop
  14         #+(and cmu pcl) #:clos-mop)
  15   (:export
  16    #:matrix
  17    #:dim
  18    #:rows
  19    #:cols
  20    #:val
  21    #:set-val
  22    #:mref
  23
  24    #:mat-equal
  25    #:print-range
  26    #:print-matrix
  27    #:transpose
  28    #:mat-mult
  29    #:mat-hprod
  30    #:mat-hprod!
  31    #:mat-copy-into
  32    #:mat-add
  33    #:mat-subtr
  34    #:swap-rows
  35    #:swap-cols
  36    #:map-col
  37    #:map-row
  38    #:invert-matrix
  39
  40    #:horzcat
  41    #:vertcat
  42    #:pad-matrix
  43
  44    #:scalar-divide
  45    #:scalar-mult-col
  46    #:scalar-mult-row
  47    #:scalar-divide-col
  48    #:scalar-divide-row
  49    #:scalar-double-float-divide-col
  50    #:scalar-double-float-divide-row
  51    #:scalar-single-float-divide-col
  52    #:scalar-single-float-divide-row
  53
  54    #:random-matrix
  55    #:zero-matrix
  56    #:identity-matrix
  57
  58    #:mat-square
  59    #:mat-square!
  60    #:mat-sqrt
  61    #:mat-sqrt!
  62
  63    #:normalize
  64    #:norm-0-255
  65    #:norm-0-1
  66
  67    #:map-matrix
  68
  69    #:sum-range
  70    #:sum
  71    #:sum-square-range
  72    #:sum-square
  73
  74    #:max-val
  75    #:min-val
  76
  77    #:mat-copy-proto
  78
  79    ;;; temporary (maybe) matrix conversion utility functions
  80    #:copy-to-ub8-matrix
  81    #:copy-to-ub16-matrix
  82    #:copy-to-ub32-matrix
  83    #:copy-to-double-float-matrix
  84    #:copy-to-fixnum-matrix
  85    #:copy-to-bit-matrix
  86
  87
  88    ;;; matrix operations
  89
  90    #:discrete-convolve
  91    #:separable-discrete-convolve
  92
  93    #:gaussian-blur
  94    #:gaussian-blur-word
  95
  96    #:gaussian-kernel
  97
  98    #:dilate
  99    #:erode
 100
 101    #:threshold
 102    #:binary-threshold
 103
 104    #:x-derivative
 105    #:y-derivative
 106    #:gradmag
 107    #:laplacian
 108
 109    #:variance-window
 110    #:sample-variance-window
 111
 112    ;;; from matrixutils.cl
 113    #:array->matrix
 114    #:mat-trim
 115
 116    ;;; typed-matrix stuff
 117    #:typed-matrix
 118    #:map-matrix-fit
 119
 120    #:defmatrixtype
 121
 122    #:sb8-matrix
 123    #:sb8-scalar
 124    #:array->sb8-matrix
 125    #:random-sb8-matrix
 126
 127    #:unsigned-byte-matrix
 128    #:ub8-matrix
 129    #:ub8-scalar
 130    #:array->ub8-matrix
 131    #:random-ub8-matrix
 132
 133    #:sb16-matrix
 134    #:array->sb16-matrix
 135    #:random-sb16-matrix
 136
 137    #:ub16-matrix
 138    #:array->ub16-matrix
 139    #:random-ub16-matrix
 140
 141    #:sb32-matrix
 142    #:array->sb32-matrix
 143    #:random-sb32-matrix
 144
 145    #:ub32-matrix
 146    #:array->ub32-matrix
 147    #:random-ub32-matrix
 148
 149    #:fixnum-matrix
 150    #:array->fixnum-matrix
 151    #:random-fixnum-matrix
 152
 153    #:float-matrix
 154
 155    #:single-float-matrix
 156    #:array->single-float-matrix
 157    #:random-single-float-matrix
 158
 159    #:double-float-matrix
 160    #:array->double-float-matrix
 161    #:random-double-float-matrix
 162
 163    #:t-matrix
 164    #:array->t-matrix
 165    #:random-t-matrix
 166
 167    #:bit-matrix
 168    #:array->bit-matrix
 169    #:random-bit-matrix
 170
 171    #:integer-matrix
 172    #:array->integer-matrix
 173    #:random-integer-matrix
 174
 175    #:real-matrix
 176    #:array->real-matrix
 177    #:random-real-matrix
 178
 179    #:complex-matrix
 180    #:array->complex-matrix
 181    #:random-complex-matrix
 182
 183    #:number-matrix
 184
 185    ;;; affine transformation stuff
 186    #:affine-transformation
 187    #:make-affine-transformation
 188
 189    ;; 7-parameter parameterization of an affine transformation
 190    #:affine-transformation-7-parameters
 191    #:make-affine-transformation-matrix-from-7-parameters
 192    #:transformation-parameter
 193    #:decf-transformation-parameters
 194    #:copy-affine-transformation-7-parameters
 195    #:move-affine-transformation-7-parameters
 196    #:get-affine-transformation-7-parameters-properties
 197
 198    #:y-scale
 199    #:x-scale
 200    #:theta
 201    #:y-shift
 202    #:x-shift
 203    #:y-shear
 204    #:x-shear
 205
 206    #:affine-transform
 207    #:transform-matrix
 208
 209    #:compute-bounds
 210    #:transform-coord
 211
 212    #:subset-matrix
 213
 214    #:mat-scale
 215    #:mat-scale-range
 216    #:mat-abs
 217    #:mat-abs-range
 218    #:mlog
 219    #:mlog-range
 220
 221    #:matrix-move
 222    #:matrix-move-range-2d
 223
 224    ;;; typed matrix operations
 225
 226    #:m+
 227    #:m-
 228    #:m*
 229    #:m.*
 230
 231    ;;; logical operations
 232
 233    #:mlogior
 234    #:mlogand
 235    #:mlogxor
 236
 237    ;; matrix looping operator
 238    #:mloop
 239
 240    #:matrix-means
 241    #:matrix-medians
 242    ))
 243
 244 (defpackage :clem-user
 245   (:use #:cl #:clem))
 246