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

  1. string rgb_to_bin( int w, int h, string data )
  2. {
  3.  
  4. return binary("format",
  5. "H${ w*h*6 }",
  6. string("map",
  7. arr("\n", "",
  8. "\r", "",
  9. " ", ""),
  10. data));
  11.  
  12. }
  13.