projects
/
cl-photo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10454: fix exports
[cl-photo.git]
/
dof.lisp
diff --git
a/dof.lisp
b/dof.lisp
index 4117c5a0f7d703dacce30a0e2cd51315c211945f..a98b90a23bbd8ecf738ae5d70c43c69786c04cc7 100644
(file)
--- a/
dof.lisp
+++ b/
dof.lisp
@@
-66,8
+66,7
@@
Default resolving power is 5 lpm at 25cm."
(defun dof-mm (focal-length f-stop distance coc &key (pupil-factor 1))
"Returns depth of field based on focal-length, f-stop, distance, and coc.
Six values are returned:
(defun dof-mm (focal-length f-stop distance coc &key (pupil-factor 1))
"Returns depth of field based on focal-length, f-stop, distance, and coc.
Six values are returned:
-near dof, far dof, total dof, near point, far point, magnification,
-blur size at infinity (mm).
+near point, far point, total dof, magnification, blur size at infinity (mm).
Circle of confusion can either be a number or keyword designating format."
(let* ((aperture (/ focal-length f-stop))
(numerator-1 (* (- pupil-factor 1) (- distance focal-length)
Circle of confusion can either be a number or keyword designating format."
(let* ((aperture (/ focal-length f-stop))
(numerator-1 (* (- pupil-factor 1) (- distance focal-length)