'LineStyle','none',... 'FaceColor',[1 0 0]);
surf(x3+0.8,y3+0,z3+1.1,'Parent',axes1,'FaceLighting','phong',... 'LineStyle','none',... 'FaceColor',[1 0 0]);
surf(x3-0.8,y3+0,z3+1.1,'Parent',axes1,'FaceLighting','phong',... 'LineStyle','none',... 'FaceColor',[1 0 0]);
surf(x4,y4,z4,'Parent',axes1,'FaceLighting','phong',... 'LineStyle','none',...
'FaceColor',[0.925490200519562 0.839215695858002 0.839215695858002]);
surf(x5,y5,z5,'Parent',axes1,'FaceLighting','phong',... 'LineStyle','none',...
'FaceColor',[0.925490200519562 0.839215695858002 0.839215695858002]); if(flame==1)
surf(x6,y6,z6,'Parent',axes1,'FaceLighting','phong',... 'LineStyle','none',... 'FaceColor',[1 1 0]); end
light('Parent',axes1,'Style','local',...
'Position',[-10.162701816704 -0.924193626363743 14.9951905283833]);
if(flame==0) for i=1:110
view(axes1,[-10*i 20+0.2727*i]) pause(0.205) %0.15 end end % EOF
function [Y,FS,NBITS,encoding_info,tag_info,out] = mp3read(FILE) %MP3READ Read MP3 (\
% Y = MP3READ(FILE) reads a MP3 file specified by the string FILE, % returning the sampled data in Y. Amplitude values are in the range [-1,+1]. %
% [Y,FS,NBITS,encoding_info,ID3v1_tag_info] = MP3READ(FILE) returns the sample rate (FS) in Hertz
% and the number of bits per sample (NBITS) used to encode the % data in the file. %
% 'encoding_info' is a string containing information about the mp3 % encoding used %
% 'ID3v1_tag_info' is a string containing the tag information of the file
% (only ID3v1 tag supported in this version) % %
% Supports two channel or mono encoded data, with up to 16 bits per sample. %
% See also MP3WRITE, WAVWRITE, AUREAD, AUWRITE. a = length(FILE); if a >= 4
exten = FILE(a-3:a); if exten ~= '.mp3'
FILE = strcat(FILE,'.mp3'); end end if a <= 3
FILE = strcat(FILE,'.mp3'); end
if exist(FILE) ~= 2
error('File not Found') end
%%%%%% Location of the \s = which('mp3read.m'); ww = findstr('mp3read.m',s); location = s(1:ww-2); %%%%Temporary file%%%%%% tmpfile = ['temp.wav'];
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%% Data Decoding using \%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [stat,raw_info] = dos([location,'\\mpg123', ' -w ', tmpfile, ' ', '\
data_init = findstr(raw_info,'MPEG'); blocks = findstr(raw_info,'[0:'); if raw_info(blocks+3) == '0'
error('Error while decoding file. File may be corrupted') end
[Y,FS,NBITS] = wavread(tmpfile); % Load the data and delete temporary file
delete(tmpfile);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% tag_info_start = strfind(raw_info,'Title');
tag_info_end = (strfind(raw_info,'Playing MPEG'))-1; tag_info = raw_info(tag_info_start:tag_info_end); encoding_info = raw_info(data_init(3):data_init(3)+53);