an L function

Posted to tcl by hat0 at Thu Nov 08 23:49:14 GMT 2007view raw

string rgb_to_bin( int w, int h, string data )
{
return binary("format",
"H${ w*h*6 }",
string("map",
arr("\n", "",
"\r", "",
" ", ""),
data));
}