X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=blobdiff_plain;f=tests.lisp;h=403977caed421e6b7dd114c62a4a75a49f0d89ee;hp=3f1c57cbb3b4a353d417f6e77b57d75c6b912673;hb=HEAD;hpb=cd49c092c9ede840170af3301b9296cec4b0be3e diff --git a/tests.lisp b/tests.lisp index 3f1c57c..403977c 100644 --- a/tests.lisp +++ b/tests.lisp @@ -41,96 +41,96 @@ (def-numeric-test :aov.1 (aov 50 36 24) 39.5977 26.9915 46.7930) - -(def-numeric-test + +(def-numeric-test :fov.1 (fov 50 24 16 :magnification 1 :units :mm) 24 16 28.8444 1 100 100) -(def-numeric-test +(def-numeric-test :fov.2 (fov 50 24 16 :magnification 1 :units :feet) 0.07874 0.052494 0.094634 1 0.328084 100) -(def-numeric-test +(def-numeric-test :fov.3 (fov 50 24 16 :image-distance 100 :units :mm) 24 16 28.8444 1 100 100) -(def-numeric-test +(def-numeric-test :fov.4 (fov 50 24 16 :image-distance 100 :units :feet) 0.07874 0.052494 0.094634 1 0.328084 100) -(def-numeric-test +(def-numeric-test :fov.5 (fov 50 24 16 :object-distance 100 :units :mm) 24 16 28.8444 1 100 100) -(def-numeric-test +(def-numeric-test :fov.6 (fov 50 24 16 :object-distance (cl-photo::mm->feet 100) :units :feet) 0.07874 0.052494 0.094634 1 0.328084 100) -(def-numeric-test +(def-numeric-test :mag.1 (magnification :focal-length 50 :image-distance 100 :units :mm) 1) -(def-numeric-test +(def-numeric-test :mag.2 (magnification :focal-length 50 :image-distance 100 :units :feet) 1) -(def-numeric-test +(def-numeric-test :mag.3 (magnification :focal-length 50 :object-distance 100 :units :mm) 1) -(def-numeric-test +(def-numeric-test :mag.4 (magnification :focal-length 50 :object-distance (cl-photo::mm->feet 100) :units :feet) 1) -(def-numeric-test +(def-numeric-test :mag.5 (magnification :image-distance 100 :object-distance 100 :units :mm) 1) -(def-numeric-test +(def-numeric-test :mag.6 (magnification :image-distance 100 :object-distance (cl-photo::mm->feet 100) :units :feet) 1) -(def-numeric-test +(def-numeric-test :cu.1 (close-up :focal-length 65 :magnification 5 :units :mm) 65 78 390 5 6) -(def-numeric-test - :cu.2 (close-up :focal-length 65 :object-distance 78 :units :mm) +(def-numeric-test + :cu.2 (close-up :focal-length 65 :object-distance 78 :units :mm) 65 78 390 5 6) -(def-numeric-test - :cu.3 (close-up :focal-length 65 :image-distance 390 :units :mm) +(def-numeric-test + :cu.3 (close-up :focal-length 65 :image-distance 390 :units :mm) 65 78 390 5 6) -(def-numeric-test - :cu.4 (close-up :object-distance 78 :image-distance 390 :units :mm) +(def-numeric-test + :cu.4 (close-up :object-distance 78 :image-distance 390 :units :mm) 65 78 390 5 6) -(def-numeric-test - :cu.5 (close-up :object-distance 78 :magnification 5 :units :mm) +(def-numeric-test + :cu.5 (close-up :object-distance 78 :magnification 5 :units :mm) 65 78 390 5 6) -(def-numeric-test +(def-numeric-test :cu.6 (close-up :image-distance 390 :magnification 5 :units :mm) 65 78 390 5 6) -(def-numeric-test +(def-numeric-test :cu.7 (close-up :focal-length 65 :magnification 5 :units :feet) 65 0.2559055 390 5 6) -(def-numeric-test - :cu.8 (close-up :focal-length 65 :object-distance 0.2559055 :units :feet) +(def-numeric-test + :cu.8 (close-up :focal-length 65 :object-distance 0.2559055 :units :feet) 65 0.2559055 390 5 6) -(def-numeric-test - :cu.9 (close-up :focal-length 65 :image-distance 390 :units :feet) +(def-numeric-test + :cu.9 (close-up :focal-length 65 :image-distance 390 :units :feet) 65 0.2559055 390 5 6) -(def-numeric-test - :cu.10 (close-up :object-distance 0.2559055 :image-distance 390 :units :feet) +(def-numeric-test + :cu.10 (close-up :object-distance 0.2559055 :image-distance 390 :units :feet) 65 0.2559055 390 5 6) -(def-numeric-test - :cu.11 (close-up :object-distance 0.2559055 :magnification 5 :units :feet) +(def-numeric-test + :cu.11 (close-up :object-distance 0.2559055 :magnification 5 :units :feet) 65 0.2559055 390 5 6) -(def-numeric-test +(def-numeric-test :cu.12 (close-up :image-distance 390 :magnification 5 :units :feet) 65 0.2559055 390 5 6)