X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=dof.lisp;h=a98b90a23bbd8ecf738ae5d70c43c69786c04cc7;hb=6e3e14862bad7d74c6e15b06519660848e41cb44;hp=4117c5a0f7d703dacce30a0e2cd51315c211945f;hpb=3c1c551f36fe090936bf5d21e7eb65acbcc0d457;p=cl-photo.git

diff --git a/dof.lisp b/dof.lisp
old mode 100755
new mode 100644
index 4117c5a..a98b90a
--- 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)