Initial import (2.0.2-6)2.0.2-6

1 files changed, 12 insertions, 0 deletions

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);
+}