--- rat/client/parameter.html 2002/10/25 13:47:37 1.19 +++ rat/client/parameter.html 2003/04/18 20:21:38 1.21 @@ -3,7 +3,7 @@ The LearningOnline Network with CAPA Parameter Input Window // -// $Id: parameter.html,v 1.19 2002/10/25 13:47:37 www Exp $ +// $Id: parameter.html,v 1.21 2003/04/18 20:21:38 www Exp $ // // Copyright Michigan State University Board of Trustees // @@ -29,7 +29,6 @@ Parameter Input Window // 06/16/00,06/17,11/17,11/18,11/23,11/27,11/28,12/15,12/16, 03/21/01,03/24,06/26 Gerd Kortemeyer -07/24/01 Scott Harrison 08/08 Gerd Kortemeyer --> @@ -316,7 +315,23 @@ function intervaldis() { choicewrite(cdays+' days '+chours+' hours ' +cmins+' mins '+csecs+' secs'); } - + +function pickcolor(picked) { + svalue=picked; + draw(); +} + +function colorfield(ir,ig,ib) { + var col=new Array; + col=["00","11","22","33","44","55","66","77","88","99","AA","BB","CC","DD","EE","FF"]; + var color='#'+col[ir]+col[ig]+col[ib]; + var selection="   "; + if (color==svalue) { selection="X"; } + choicewrite(''+selection+''); + +} + function draw() { choicestart(); choicewrite('
'); } } + + if (ptype=='color') { + tablestart('Choose a Color'); + choicewrite(''); + if (svalue) { + choicewrite(''); + } + for (var ir=1; ir<=15; ir++) { + for (var ig=1; ig<=15; ig++) { + choicewrite(''); + for (var ib=1; ib<=15; ib++) { + colorfield(ir,ig,ib); + } + choicewrite(''); + } + } + choicewrite('
Current choice: 
'); + } choicewrite('
'); choiceend();