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 % This Matlab m-file was used to create portions of U.S. Geological Survey % Data Series 96. Although this program has been used by the USGS, no % warranty, expressed or implied, is made by the USGS or the United States % Government as to the accuracy and functioning of the program and related % program material nor shall the fact of distribution constitute any such % warranty, and no responsibility is assumed by the USGS in connection % therewith. % Citation: Butman, Bradford, Alexander, P. Soupy, and Bothner, M.H., 2004, % Time-series Photographs of the Sea Floor in Western Massachusetts Bay: % June 1998 to May 1999: U.S. Geological Survey Data Series 96, 1 DVD-ROM. %Set up where to look for the images/thumbnails masterDirectory = 'C:\SCHTUFF\TRIPOD_MOVIE\'; thumbnailDirectory = [masterDirectory 'TRIPOD' num2str(tripodNumber, '%3.0f') ... '\THUMBNAILS\']; imageDirectory = [masterDirectory 'TRIPOD' num2str(tripodNumber, '%3.0f') ... '\IMAGES']; webDirectory = [masterDirectory 'WEBPAGES\']; %Determine what images exist for the deployment theFiles = dir(fullfile(imageDirectory, '*.tif')); [fileNames{1:length(theFiles)}] = deal(theFiles.name); fileNames = sort(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, ' |