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