#N canvas 419 47 865 807 10;
#X obj 96 49 moses 380;
#X obj 147 80 moses 440;
#X obj 198 118 moses 490;
#X obj 249 149 moses 510;
#X obj 300 188 moses 580;
#X obj 351 219 moses 645;
#X obj 147 188 expr -($f1-440)/(440-380);
#X msg 166 207 0;
#X msg 186 227 1;
#X obj 147 157 t f b b;
#X obj 96 72 bang;
#X msg 96 118 0;
#X msg 126 118 0;
#X msg 156 118 0;
#X msg 198 299 0;
#X msg 237 299 1;
#X obj 217 276 expr ($f1-440)/(490-440);
#X obj 198 250 t b f b;
#X msg 249 359 0;
#X msg 268 379 1;
#X obj 249 330 t b b f;
#X obj 288 358 expr -($f1-510)/(510-490);
#X obj 300 379 t f b b;
#X msg 319 429 1;
#X msg 339 449 0;
#X obj 300 410 expr ($f1-510)/(580-510);
#X obj 351 476 t b f b;
#X msg 351 525 1;
#X msg 390 525 0;
#X obj 370 502 expr -($f1-645)/(645-580);
#X obj 402 248 moses 780;
#X obj 402 549 bang;
#X msg 402 574 1;
#X obj 499 169 moses 380;
#X obj 499 192 bang;
#X msg 499 217 0;
#X obj 652 248 moses 780;
#X obj 550 191 moses 419;
#X obj 601 219 moses 700;
#X obj 550 281 expr 0.3+0.7*($f1-380)/(420-380);
#X obj 652 331 expr 0.3+0.7*(780-$f1)/(780-700);
#X obj 601 306 bang;
#X msg 601 331 1;
#X obj 96 25 t f f;
#X obj 96 3 inlet wavelength in nm;
#X text 829 21 comment;
#X text 455 662 Adapted from Monte Goulding's WavelengthToRGB function
for libcolor. http://www.mail-archive.com/use-revolution@lists.runrev.com/msg17390.html
;
#X text 543 751 derek@umatic.nl;
#X obj 96 577 outlet R;
#X obj 136 617 outlet G;
#X obj 186 657 outlet B;
#X obj 499 452 outlet A;
#X msg 432 574 0;
#X msg 462 574 0;
#X connect 0 0 10 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 1 1 2 0;
#X connect 2 0 17 0;
#X connect 2 1 3 0;
#X connect 3 0 20 0;
#X connect 3 1 4 0;
#X connect 4 0 22 0;
#X connect 4 1 5 0;
#X connect 5 0 26 0;
#X connect 5 1 30 0;
#X connect 6 0 48 0;
#X connect 7 0 49 0;
#X connect 8 0 50 0;
#X connect 9 0 6 0;
#X connect 9 1 7 0;
#X connect 9 2 8 0;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 11 0 48 0;
#X connect 12 0 49 0;
#X connect 13 0 50 0;
#X connect 14 0 48 0;
#X connect 15 0 50 0;
#X connect 16 0 49 0;
#X connect 17 0 14 0;
#X connect 17 1 16 0;
#X connect 17 2 15 0;
#X connect 18 0 48 0;
#X connect 19 0 49 0;
#X connect 20 0 18 0;
#X connect 20 1 19 0;
#X connect 20 2 21 0;
#X connect 21 0 50 0;
#X connect 22 0 25 0;
#X connect 22 1 23 0;
#X connect 22 2 24 0;
#X connect 23 0 49 0;
#X connect 24 0 50 0;
#X connect 25 0 48 0;
#X connect 26 0 27 0;
#X connect 26 1 29 0;
#X connect 26 2 28 0;
#X connect 27 0 48 0;
#X connect 28 0 50 0;
#X connect 29 0 49 0;
#X connect 30 0 31 0;
#X connect 30 1 10 0;
#X connect 31 0 32 0;
#X connect 31 0 52 0;
#X connect 31 0 53 0;
#X connect 32 0 48 0;
#X connect 33 0 34 0;
#X connect 33 1 37 0;
#X connect 34 0 35 0;
#X connect 35 0 51 0;
#X connect 36 0 40 0;
#X connect 36 1 34 0;
#X connect 37 0 39 0;
#X connect 37 1 38 0;
#X connect 38 0 41 0;
#X connect 38 1 36 0;
#X connect 39 0 51 0;
#X connect 40 0 51 0;
#X connect 41 0 42 0;
#X connect 42 0 51 0;
#X connect 43 0 0 0;
#X connect 43 1 33 0;
#X connect 44 0 43 0;
#X connect 52 0 49 0;
#X connect 53 0 50 0;