idamnjanovic@51: function thumbwrite(data,name,opts)
idamnjanovic@51: 
idamnjanovic@51: 
idamnjanovic@51: %   Copyright 2008, Ewout van den Berg and Michael P. Friedlander
idamnjanovic@51: %   http://www.cs.ubc.ca/labs/scl/sparco
idamnjanovic@51: %   $Id: thumbwrite.m 1040 2008-06-26 20:29:02Z ewout78 $
idamnjanovic@51: 
idamnjanovic@51: %
idamnjanovic@51: % data       Thumbnail data in range 0-1
idamnjanovic@51: % name       Name of file (no extension)
idamnjanovic@51: % opts
idamnjanovic@51: %   .thumbtype  Type of image (png, eps, ps, ...)
idamnjanovic@51: %   .thumbdir   Output directory
idamnjanovic@51: %
idamnjanovic@51: 
idamnjanovic@51: [type,ext] = getFigureExt(opts.thumbtype);
idamnjanovic@51: data = round(data * 255) / 255;
idamnjanovic@51: imwrite(data,[opts.thumbpath,name,'.',ext],type);