function create_thumbnail_page(tripodNumber) % % create_thumbnail_page(tripodNumber) % % Function to look through the THUMBNAILS directory for a given tripod % number and create an HTML page with the thumbnails themselves and links % to the actual images. %Soupy Alexander, 12/18/03 %Set up where to look for the images/thumbnails masterDirectory = 'D:\USGS\TRIPOD_MOVIE\JUST_MOVIES\'; %masterDirectory = 'D:\USGS\TRIPOD_MOVIE\REDO_PUBLISHED\'; thumbnailDirectory = [masterDirectory 'TRIPOD' num2str(tripodNumber, '%3.0f') ... '\THUMBNAILS\']; imageDirectory = [masterDirectory 'TRIPOD' num2str(tripodNumber, '%3.0f') ... '\IMAGES']; webDirectory = [masterDirectory]; %Determine what images exist for the deployment theFiles = dir(fullfile(imageDirectory, '*.png')); [fileNames{1:length(theFiles)}] = deal(theFiles.name); fileNames = sort(fileNames); %fileNames = fliplr(fileNames); %Open the HTML page fileID = fopen(fullfile(webDirectory, ... ['t' num2str(tripodNumber, '%3.0f') '_thumb.html']), 'w'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, '
'); fprintf(fileID, '\n'); fwrite(fileID, [''); fprintf(fileID, '\n\n');
fwrite(fileID, ' '); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ' '); fprintf(fileID, '\n\n'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fwrite(fileID, [' Tripod ' num2str(tripodNumber, '%3.0f') '']); fprintf(fileID, '\n'); fwrite(fileID, 'Thumbnails'); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n\n'); %Set up the table fwrite(fileID, '
'); fprintf(fileID, '\n\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ' Department of Interior > U.S.'); fprintf(fileID, '\n'); fwrite(fileID, 'Geological Survey > Coastal and Marine Geology >'); fprintf(fileID, '\n'); fwrite(fileID, 'Woods Hole Field Center'); fprintf(fileID, '\n'); fwrite(fileID, ' '); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, 'USGS Privacy Statement and'); fprintf(fileID, '\n'); fwrite(fileID, 'Disclaimer and Accessibility '); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n\n'); fprintf(fileID, '\n'); fwrite(fileID, ' |