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 = '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, ['Thumbnails, Tripod' num2str(tripodNumber, '%3.0f') '']); fprintf(fileID, '\n'); fwrite(fileID, ['']); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ['']); fprintf(fileID, '\n'); 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\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, '
'); fprintf(fileID, '\n\n'); fwrite(fileID, 'Skip header
'); fprintf(fileID, '\n'); fwrite(fileID, ' Identifier symbol and link to USGS Home page'); 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'); for indexPic = 1:length(fileNames) if rem(indexPic - 1, 6) == 0 fwrite(fileID, ''); fprintf(fileID, '\n'); end fwrite(fileID, '']); fprintf(fileID, '\n'); if rem(indexPic, 6) == 0 fwrite(fileID, ''); fprintf(fileID, '\n'); end end fwrite(fileID, '
'); fwrite(fileID, ['']); fprintf(fileID, '\n'); fwrite(fileID, ['']); fwrite(fileID, ['
' fileNames{indexPic} '
'); fprintf(fileID, '\n'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fwrite(fileID, '
'); fprintf(fileID, '\n\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, 'Skip past USGS Links'); 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, '
'); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); fwrite(fileID, ''); fprintf(fileID, '\n'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% fclose(fileID);