X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=blobdiff_plain;f=dof.lisp;h=a98b90a23bbd8ecf738ae5d70c43c69786c04cc7;hp=4117c5a0f7d703dacce30a0e2cd51315c211945f;hb=6e3e14862bad7d74c6e15b06519660848e41cb44;hpb=fa6f225e030638160cbd91d19cebd29f741068e8 diff --git a/dof.lisp b/dof.lisp index 4117c5a..a98b90a 100644 --- 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: -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)