From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c

(limited to 'reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c')

diff --git a/reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c b/reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c
new file mode 100644
index 0000000..6ca905d
--- /dev/null
+++ b/reference/C/CONTRIB/OR_PRACTICAL_C/14_09.c
@@ -0,0 +1,12 @@
+
+float point_color(point_number)
+int point_number;
+{
+    float correction;  /* color correction factor */
+    extern float red,green,blue;/* current colors */
+
+    correction = lookup(point_number);
+    return (red*correction * 100.0 + 
+            blue*correction * 10.0 +
+            green*correction);
+}
-- 
cgit v1.2.3-54-g00ecf