summaryrefslogtreecommitdiff
path: root/server/xml/macros/keratometri-1.0.xml
diff options
context:
space:
mode:
Diffstat (limited to 'server/xml/macros/keratometri-1.0.xml')
-rw-r--r--server/xml/macros/keratometri-1.0.xml26
1 files changed, 3 insertions, 23 deletions
diff --git a/server/xml/macros/keratometri-1.0.xml b/server/xml/macros/keratometri-1.0.xml
index 2b54164..e568d0e 100644
--- a/server/xml/macros/keratometri-1.0.xml
+++ b/server/xml/macros/keratometri-1.0.xml
@@ -1,33 +1,13 @@
<?xml version='1.0' encoding='UTF-8'?>
-<!--
- 20081203: Bent Bisballe Nyeng
- Feltnavnene ændret så de giver mening.
- -->
-<!--
- 20090108: Bent Bisballe Nyeng
- Højre/venstre byttet om.
- -->
-<!--
- 20090202: Bent Bisballe Nyeng
- 'missing eye' tilføjet.
- -->
<macro name="keratometri" version="1.0">
<resume language="lua">
out = ''
if ( getValue('keratometri.right.missing') == '' )
then
- out = out .. 'Keratometri, højre øje:\n' ..
- 'Radius 1: ' .. getValue('keratometri.right.r1') ..
- 'Radius 2: ' .. getValue('keratometri.right.r2') ..
- 'Cylinder: ' .. getValue('keratometri.right.x1')
+ if ( getValue('keratometri.right.x1') > 0 and getValue('keratometri.right.x1') < 90 )
+
end
-
- if ( getValue('keratometri.left.missing') == '' )
- then
- out = out .. 'Keratometri, venstre øje:\n' ..
- 'Radius 1: ' .. getValue('keratometri.left.r1') ..
- 'Radius 2: ' .. getValue('keratometri.left.r2') ..
- 'Cylinder: ' .. getValue('keratometri.left.x1')
+ out = out .. 'Keratometri, højre øje:\n' .. 'Radius 1: ' .. getValue('keratometri.right.r1') .. ' mm (' .. string.format('%f', 337.50 / getValue('keratometri.right.r1')) .. ' D) i ' .. getValue('keratometri.right.x1') .. ' grader.\n\nRadius 2: ' .. getValue('keratometri.right.r2') .. ' mm (' .. string.format('%f', 337.50 / getValue('keratometri.right.r2')) .. ' D) i ' .. getValue('keratometri.right.x2')'
end
return out