#N canvas 8 22 664 468 10;
#N canvas 0 22 454 304 gemwin 0;
#X obj 132 136 gemwin;
#X obj 67 89 outlet;
#X obj 67 10 inlet;
#X obj 67 41 route create;
#X msg 67 70 set destroy;
#X msg 182 68 set create;
#X msg 132 112 create \, 1;
#X msg 238 112 destroy;
#N canvas 87 154 247 179 Gem.init 0;
#X obj 59 46 loadbang;
#X msg 118 81 reset;
#X obj 118 113 outlet;
#X obj 59 65 t b b;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 1 1 0;
#X restore 289 80 pd Gem.init;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 3 1 7 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X restore 25 53 pd gemwin;
#X msg 25 29 create;
#X text 21 9 Create window and render;
#X obj 102 190 gemhead;
#X obj 102 306 square;
#X obj 102 250 colorRGB;
#X obj 194 126 hsl 205 15 370 780 0 0 empty empty empty -2 -6 0 10
-262144 -1 -1 20400 1;
#X floatatom 219 149 5 0 0 0 - - -;
#X obj 102 278 alpha;
#X floatatom 191 248 5 0 0 0 - - -;
#X floatatom 222 268 5 0 0 0 - - -;
#X floatatom 253 288 5 0 0 0 - - -;
#X floatatom 152 126 5 0 0 0 - - -;
#X floatatom 284 308 5 0 0 0 - - -;
#X obj 191 178 WavelengthToRGBA;
#X text 190 93 Input range = 380-780 (ultraviolet to infrared wavelengths)
;
#X text 464 398 derek@umatic.nl;
#X text 343 245 R;
#X text 343 265 G;
#X text 343 288 B;
#X text 343 308 A;
#X text 179 329 Convert wavelength in nanometers to colors in RGB.
Let the intensity fall off near the limits of vision \, as represented
by A (Alpha).;
#X connect 0 0 1 0;
#X connect 1 0 0 0;
#X connect 3 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 0 14 0;
#X connect 8 0 4 0;
#X connect 12 0 14 0;
#X connect 14 0 5 1;
#X connect 14 0 9 0;
#X connect 14 1 5 2;
#X connect 14 1 10 0;
#X connect 14 2 5 3;
#X connect 14 2 11 0;
#X connect 14 3 5 4;
#X connect 14 3 13 0;