wolffd@0: function [clips, score] = get_similar_clips(extid, sim, sim_ids)
wolffd@0: % clips = get_similar_clips(id, sim, sim_id)
wolffd@0: %
wolffd@0: % searches for similar clips for clip with base_id id
wolffd@0: %
wolffd@0: 
wolffd@0: if nargin < 3
wolffd@0:     warning 'no similarity id codebook given'
wolffd@0:     sim_ids = 1:size(sim,1);
wolffd@0: end
wolffd@0: 
wolffd@0: % get internal clip id
wolffd@0: id = find(sim_ids == extid);
wolffd@0: 
wolffd@0: if isempty(id) 
wolffd@0:     error 'no similarity data available'
wolffd@0: end
wolffd@0: 
wolffd@0: clips = [find(sim(id,:) ~= 0)]; 
wolffd@0: 
wolffd@0: % get clip scores
wolffd@0: score = sim(id,clips);
wolffd@0: 
wolffd@0: clips = sim_ids(clips);