projects
/
cl-photo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10494: add cp5900, formats, remove incorrect function
[cl-photo.git]
/
dof.lisp
diff --git
a/dof.lisp
b/dof.lisp
index ee9250a745c0d613716cdc405e798f8a8e191019..b937da03b19055df8c85133905be2bc4d355bf8d 100644
(file)
--- a/
dof.lisp
+++ b/
dof.lisp
@@
-133,5
+133,3
@@
Output: NEAR-POINT, FAR-POINT, TOTAL-DOF, MAGNIFICATION, BLUR-SIZE-OF-INFINITY-P
(defun mtf-scanner (freq dscan-freq &optional (order 3))
(abs (expt (kmrcl:sinc (* pi (/ freq dscan-freq))) order)))
(defun mtf-scanner (freq dscan-freq &optional (order 3))
(abs (expt (kmrcl:sinc (* pi (/ freq dscan-freq))) order)))
-(defun freq-mtf-scanner (dscan-freq mtf &optional (order 3))
- (* dscan-freq (/ (asin (* x (exp (/ (log mtf) order)))) pi)))