Contact Sheet Creation: Super slow!

Im making a contact sheet that's 16 pgs long.
It's taking a half an hour to save it as a PDF.
Unacceptable!
Is this as good as it gets?

Ok, Im using a dual processor G5, OSX, over a super fast network.
Shots are RAW from a Canon 5D. 12.3 megapixel.
Contact sheet is 9 up on a page.
Im telling LR to sharpen the page image when it creates the page.
And Im saving the page to a PDF in the print dialog menu.
My PDF was actually 24 pages.
Took forEVER!
Makes me have serious dobts about using this app in a professional capacity.
The fact that LR doesnt natively have a function to save out to a contact sheet is retarded.
(As opposed to only printing it out. What good is a contact sheet if you cant save it?)

Similar Messages

Contact Sheet Creation: Super Fast!

With regards to my previous post:
Wow!
I just created/saved a contact sheet to PDF using Draft mode.
Lightspeed!
Sweet! Im starting to like this application.... : )
Took about 20 seconds to do what would have taken 15 minutes in non draft mode.
Excellent.
I retract my original complaint.
And the quality looks very good.

I just ran through a dry-run of a set of sheets for a project my SO and I are working on. Being able to print to PDF and send her the document via email is really, really sweet.
By the time I actually take the files in to my service we should have most of the question marks sorted.

Contacts Server Super Slow or is it just me?

I just wanted to know if the slow performance of Contacts/Address Book and Contacts server (in Mountain Lion Server) is normal. Mind you I am coming from Marketcircle Daylite, but we're trying to leave it due to cost.
The communication between local Contact/Address Book apps on our office computers and the server just seem abnormally slow to the point of not being efficient to use. We're testing moving contacts from Daylite to Contacts server. Yikes even for barely over 100 contacts the import is slow, the updating on local computers slow. We have over nine thousand contacts.
Here's our setup:
MacMini Server / 2 GHz Intel Core i7/ 8GB Ram
Mountain Lion Server 10.8.2
Setup fake user "sharedcontacts" on server strictly for contacts
User computers all have access to same "sharedcontacts" account via username and password for "sharedcontacts" user account
LAN is gigabit ethernet, business class netgear switch connecting Mac Pros, iMacs, Mac Mini's - 12 computers total, only 5 computers connected to shared contacts.
Other things I don't get:
I can only import the contacts to the server side "sharedcontacts" user account using my local Contacts application. I don't know how to access the actual user contacts on the server itself since I can't open Contacts.app on the server and see them because they're not part of the local user admin account.
I'm not sure how to use/ why there's a directory header on the left side in my Contacts.app application. I can already see the shared contacts for "sharedcontacts" account. Then below is the directory header. Not sure what to do with that and if that could improve performance. Allowing the serach on directory is enabled on Contacts server.
How do I ensure that (for one computer - my boss's) the contacts stay on his computer even when he's disconnected from our local network? He needs these server-based contacts available all of the time.
Any insight would help.
Message was edited by: Tangier Clarke1
Mac mini, OS X Server

Sorry folks, I duplicated and moved this to the Mountain Lion Server discussion. I prematurely put this in the OS X Server discussion because I didn't know there was a differentiation.
I wasn't certain how to delete this discussion.

Contact Server Super Slow or is it just me?

I just wanted to know if the slow performance of Contacts/Address Book and Contacts server (in Mountain Lion Server) is normal. Mind you I am coming from Marketcircle Daylite, but we're trying to leave it due to cost.
The communication between local Contact/Address Book apps on our office computers and the server just seem abnormally slow to the point of not being efficient to use. We're testing moving contacts from Daylite to Contacts server. Yikes even for barely over 100 contacts the import is slow, the updating on local computers slow. We have over nine thousand contacts.
Here's our setup:
MacMini Server / 2 GHz Intel Core i7/ 8GB Ram
Mountain Lion Server 10.8.2
Setup fake user "sharedcontacts" on server strictly for contacts
User computers all have access to same "sharedcontacts" account via username and password for "sharedcontacts" user account
LAN is gigabit ethernet, business class netgear switch connecting Mac Pros, iMacs, Mac Mini's - 12 computers total, only 5 computers connected to shared contacts.
Other things I don't get:
I can only import the contacts to the server side "sharedcontacts" user account using my local Contacts application. I don't know how to access the actual user contacts on the server itself since I can't open Contacts.app on the server and see them because they're not part of the local user admin account.
I'm not sure how to use/ why there's a directory header on the left side in my Contacts.app application. I can already see the shared contacts for "sharedcontacts" account. Then below is the directory header. Not sure what to do with that and if that could improve performance. Allowing the serach on directory is enabled on Contacts server.
How do I ensure that (for one computer - my boss's) the contacts stay on his computer even when he's disconnected from our local network? He needs these server-based contacts available all of the time.
Any insight would help.
Message was edited by: Tangier Clarke1

Sorry folks, I duplicated and moved this to the Mountain Lion Server discussion. I prematurely put this in the OS X Server discussion because I didn't know there was a differentiation.
I wasn't certain how to delete this discussion.

Adobe Bridge CS5, error when creating contact sheet "There is insufficient disk space..."

I am running Bridge CS5 for the first time and I receive this error when attempting to create a contact sheet. "There is insufficient disk space to complete this operation." The image files I am using are web optimized and very small. The error even occurs when attempting one small image. I have gone back to using Bridge CS4 and it works just fine. Any help?
Thanks!

I think I narrowed this down to having a network volume mounted with a share name of "Users". The strange thing is even you if unmount the volume you will still have problems. However, if you avoid mounting the volume entirely (from boot) it will be OK.
The solution, it appears, is to rename the sharepoint to something other than "Users". This worked for us. I'm not sure if it matters whether the server is Windows or Mac OS. In our case the sharepoint was an AFP volume on Mac OS.
We had other errors related to Bridge such as "unable to create folder" and the path in the message appeared to be /Users/currentUser/..... which made no sense at all. However, if Bridge was internally trying to use /Volumes/Users (the mounted sharepoint), it would not only not find "currentUser", but it would not have permissions to create that folder either.
So, another possible solution could be to grant file creation rights on the network volume "Users". Another not-so-great idea.
Hope that helps someone else!

Adobe Bridge and respectable contact sheet

Hi!
How is it that such a set of tools CC does not have a program to easily create a contact sheet of the photos or an entire directory tree with k-art?
I'm working on OS X, probably because at the Bridge program since its creation looked like "prosthesis" for Widnows Explorer. (Sorry, I'm sure I do not want to offend anyone).
CC version is completely left requiring a separate installation so. module with the mysterious name "Adobe Output Module". http://helpx.adobe.com/bridge/kb/install-output-module-bridge-cc.html
but In OS X 10.8.5 has not stopped working!?
On the PC for more than ten years is a fantastic app. Thumbs Plus (unfortunately not for OS X), but it looks like Adobe Bridge that had no patterns.
Do contact sheets from mix material or image are no longer necessary tool in professional graphics work?
I do not understand. I will be grateful for suggestions because I think something missed.
Best Regards!

Thank you for your response.
No, AOM in Bridge does not work.
Finding how to create contac sheets by CC took me some time. I discovered the "trick" of AOM.!? The result disappointed me, It's does not work on my system.
I'm supposed to CC but I wander in this task as a child in the fog. Adobe Help for this simple task of working with graphics seems quite murky.
I would like to learn how to use Adobe to create contact sheet because I do not understand.
Best Regards!

I can't install "Contact Sheet II" from the optional plug-ins

I went to this page to download, install and most importantly of all use the "contact sheet" feature (a feature that was - for some mysterious reason - "removed as an update" on CS5!)
http://www.adobe.com/support/downloads/detail.jsp?ftpID=4965
When I tried to install the plug-ins, however, this message came up :
http://www.solidfiles.com/d/6eb800b218/
This is a perfectly fine example of a feature that was great and was removed during an update. What is really the point of an update that removes features, I don't know... surely it's not the weight of the script! (900ko)

PC users can install CS5 Contact Sheet II plugin into CS6 to get Picture Package back there are 64 bit and 32 bit versions for the PC. Mac users can not install CS5 Contact Sheet II plugin into CS6 for there is only a CS5 32 bit Contact Sheet II plugin for mac and there is only a 64 bit CS6 Photoshop for a mac.
http://forums.adobe.com/message/4575734#4575734
Mac users can use my Photo Collage Toolkit to get the function of Picture Package but it will be slower and use more resources. http://www.mouseprints.net/old/dpr/PhotoCollageToolkit.html
Paste Image Roll Script and Picture Package Support

Contact Sheet II from RAW files?

I'd like to be able to use the Contact Sheet II to make a print as early in the composite Workflow as I can, before opening the RAW images in ACR. Is it possible to make a Contact Sheet II while the images are still RAW files? From Bridge 6, they appear in PS 6 as Layers. I'd appreciate any help. Thanks.

PC users can install CS5 Contact Sheet II plugin into CS6 to get Picture Package back there are 64 bit and 32 bit versions for the PC. Mac users can not install CS5 Contact Sheet II plugin into CS6 for there is only a CS5 32 bit Contact Sheet II plugin for mac and there is only a 64 bit CS6 Photoshop for a mac.
http://forums.adobe.com/message/4575734#4575734
Mac users can use my Photo Collage Toolkit to get the function of Picture Package but it will be slower and use more resources. http://www.mouseprints.net/old/dpr/PhotoCollageToolkit.html
Paste Image Roll Script and Picture Package Support

Bridge to InDesign Contact Sheet - Define Caption Code for name?

Hello,
Another beginners question, but I promise after this I'm done:
I'm using a script written for Bridge CS4 to create contact sheets in InDesign v 5.03.
When the dialog window opens in Bridge to set the parameters for outputting the contact sheet, one of the option is to give the items on the contact sheet a caption - for this it offers some suggested codes.
To add the filename as the caption, the code is <var filename>. This gives me the file name plus extension i.e. image1.jpg.
Creation date is another, code is: <var cdate[YYMMDD]>
I would like the caption to just be the filename without the .jpg extension, i.e. image1
Does anyone know what the code would be to give the script the instruction to leave off the extension, please?
Many thanks in advance.

Oh, you're my hero, Bob!!
I didn't know about Find/Replace - told you I was a novice.
What you've taught me today will save me soooooooo much time!
Cheers!
Yvonne

Eps file quality in Bridge contact sheet

Hi all
Im trying to make a contact sheet of eps files in Bridge, but the quality of the eps' in the final contact sheets are terrible. It doesnt appear to be a dpi issue, more that it appears Bridge is some how using a proxy image instead of the original files to produce the pdf contact sheet. The images look like Quark when the image is missing, jagged and nasty etc.
I have played around with the settings in Bridge as much as it will let me, quality as high as it will go etc. but it doesnt give me the usual pdf creation dialogue box. Do i need to change the settings of the eps' to get a better quality pdf contact sheet?
Any help is much appreciated.
A.

Yes for .eps it is using the image/icon preview. Run an action to save as .ai. In thsi exampel both logos are the same size in illustrator (about 6p pts wide)

Preview contact sheets for CC?

Is there any way that previewing what a contact sheet will look like in Photoshop can be enabled? Like when you go to bridge, select the images then go to "Tools < Photoshop < Contact Sheet II" then in the Contact Sheet options there used to be a little "preview" box. Well at least it used to exist, but it might have been phased out, I don't really follow the changes in the updates much.
Thanks in advance,
Me

No. CantactSheetII has changed over the years. It use to have features like Picture Package, layout and previews and bugs. It was a compiled program. Now a days Contact sheet has been re-implemented using Photoshop Scripting. Script are not compiled programs they are interpreted as they are executed. Script run slower the compiled code so some features like layout previews would be painfully slow not useful imo. Picture Package IMO is a bigger lost then preview layouts. Adobe I believe dropped Contactsheet what we have today is thanks to X. He will be maintaining ContactSheeII script for some time how long that time will be has not been made known.

LIghtroom And Contact Sheets...PLEASE HELP!!!!!!!

Hello, I am in dire need of help (deadlines! ahhhhh!).
So we have been using lightroom for a couple of months now.
I work as an assistant at a professional studio which does weddings and some private family jobs.
We work on power macs which both have enough power to plan a trip to the moon.
We print on a Canon IPF 5100 and a 5000. Matte Epson 3* paper.
Each wedding is generally 5-7 Sets with 400-600 .NEF images each.
So heres the problem. Contact Sheet Resolution!
We never really had too much trouble with contact sheets, and only recently has it been noticed. Our images are printing so blurry it is hard to tell if eyes are open ect.
We had been printing on draft mode until now. I understand draft mode doesn't produce a fine image, but it seems they were never this bad.
So I tried turning draft mode off. It took hours to process every image (render it down/quality) and then it just wouldn't send it to the printer (at this point I want to throw a brick through my screen).
So my options with LR at this point are complete crap and a few wasted hours with no result.
I have gone back to CS3...A program which makes LR look like MS Paint...
The only problem is this is pretty time consuming and not very flexible.
So Please For all the is worthy on this earth...How can I use LR in a productive way???
How do you Print C.S's?
Do you share this problem??
Much thanks.
-A Stressed Out Employee.

Hi, I recently upgraded to LR2 (after having used LR1.4). When making contact sheets (3 across and 3 down) I notice that the quality of the outputted PDF file is terrible (I never recall it being this bad with LR1.4; in fact, I recall being able to zoom into the contact sheet quite far and still see decent resulotion). I have fiddled with the Print settings, tried printing in both draft and otherwise (which can take forever). I have tried re-importing the files and rendering both standard previews and 1:1 previews, but nothing seems to have corrected the problem I am having.
A few interesting points:
- Using the same photos and contact sheet configuration, the actual size of a contact sheet created in LR1.4 vs. LR2 is different (the LR1.4 contact sheet was actually a larger file). This would explain why I recall better resolution from the LR1.4 sheets I used to create.
- In LR2, I notice that the portrait photos on contact sheets are lower quality than the landscape photos. I understand that they are actually larger on the sheet (so it might make sense at first look), but even when zoomed into, the landscape photos retain higher quality longer. I don't recall this happening with LR1.4.
Am I doing something wrong with the creation of my contact sheets or is there a setting that I am missing? Any input would be appreciated.
Thank you, Scott

Creating InDesign Contact Sheets

I just upgraded to CS3 from CS2.
I am trying to use Bridge to create InDesign contact sheets.
The problem is when I am in Bridge CS3 and go to Tools > InDesign > Create InDesign Contact Sheets, I can not get Bridge CS3 to recognize photos in sub folders.
Bridge CS2 had a "Files" button that would open a window that had a "Include Sub Folders" button. That button has been removed in Bridge CS3.
Any ideas on how to tell Bridge CS3 to include sub folders when creating InDesign contact sheets.
Thanks

It can be a little convoluted from a logic perspective, but search for "filename does not equal" and, to find all files, set the value to something stupid like "#@#@#@#@"
Check "Include All Subfolders". If there's any chance you haven't browsed all of the subfolders in bridge (to build the caches for those subfolders), check the "Include Non-indexed Files (may be slow)" checkbox.
I wrote the Contact Sheet script as a contractor for Adobe. I removed the "Files" button because Bridge actually does a much better job of filtering and finding files than the "Find" button ever could.
The "Find" button encouraged people to not use Bridge to its best advantage. I got a number of emails from folks wanting more functionality in the "Find" button than was possible (via scripting) when everything they needed was available in Bridge!
By the way, I am planning on releasing a updated and more feature-rich contact sheet (for InDesign) script in the coming weeks. Check my web site for it in mid-late October.
Regards
Bob
www.creativescripting.net
for all your Bridge and InDesign scripting needs

Contact Sheet Printing Problems

I have been trying to print contact sheets starting with version 1.1 and I'm still not able to print them in 2.1.
Ligthroom will generate the file but the printers (I tried 3 printers) are reporting error messages (Status Error - Printing). The file just stay in the queue for ever or I delete it. First I thought it had to be a printer problem so I tried to print the contact sheets in Draft Mode. That worked and everything was fine except the quality of the pictures on the contact sheet was so bad - unusable.
Now I have tried different relosutions from 150 to 250 and nothing works. Well, not quite nothing. I can print out one contact sheet with up to 20 pictures, but as soon as I need more than one sheet it fails.
I'm also running into the same problem with color shifts printing from Lightroom compared to Photoshop. Also, the speed seems to be very slow. I have about 30,000 slides in my library and I'm constantly waiting until LR catches up.

I was experiencing the same thing (in 4.1RC2). Tried to print a 158-image contact sheet (4 pgs), and it would want to render every image first.
Here's my solution:
I went back to the Library module, selected all the photos I wanted to print, and made sure they all had standard previews rendered. Then I was able to go back and print as draft (to printer, pdf, and jpg) with lightning speed.
Hope that helps,
Cory
**UPDATE**
Today I tried to print another contact sheet, with all previews rendered, and it's being slow again. Apparently my solution doesn't really work 100%. Yeah, it's like Jeckyll and Hyde...

How to produce an image Contact Sheet by way of AppleScript

I have found that the PDF contact sheet action in Automator doesn’t allow for labeling the images (with file name and/or creation date etc).
So, I thought I may try may hand at doing this by way of AppleScript.
Does anyone know whether AppleScript (or any application supplied with Mac OS X) is capable of doing this?
I can see how to get the images and scale them down, as well as find their names and/or creation dates, but I’m not really sure how to print them to a multi page pdf.
20 iMac G5/17 PowerBook/G4 400 AGP/iPod Mac OS X (10.4.3)

Hi,
What is your Quark Xpress version and MAC OS.
I am still working on it. Ihave almost completed but some bugs is there so it doesnot fulfill my requirements.
See the code below:
The problem line is in bold
=========
tell application "QuarkXPress™ 4.1_XU14777929963"
activate
set templateName to (choose file with prompt "Choose your template.")
open templateName use doc prefs yes
tell document 1
set horizontal measure to points
set vertical measure to points
end tell
set pageInfo to (properties of page 1 of spread 1 of document 1) as list
set topMargin to top margin of pageInfo as list
set pageLeftMargin to left margin of pageInfo as list
set bottomMargin to bottom margin of pageInfo as list
set rightMargin to right margin of pageInfo as list
tell page 1 of document 1
set pageBounds to bounds as list
set rightMargin to get right margin as real
set leftMargin to get left margin as real
set topMargin to get top margin as real
set bottomMargin to get bottom margin as real
set pageWidth to get page width of document 1 as real
set pageheight to get page height of document 1 as real
set tot to leftMargin + rightMargin
set totalPageWidth1 to pageWidth - rightMargin
set totalPageHeight1 to pageheight - topMargin
set maxWidth to totalPageWidth1 - tot
set maxHeight to totalPageHeight1 - tot
end tell
tell page 1 of document 1
make new picture box at beginning with properties {bounds:{0, 0, "1\"", "1\""}}
tell picture box 1
set colorbarImage to choose file with prompt "Find color bar."
set image 1 to colorbarImage
set colorbarBounds to bounds of image 1
set colorbarWidth to (item 3 of colorbarBounds) - (item 1 of colorbarBounds)
set colorbarHeight to (item 4 of colorbarBounds) - (item 2 of colorbarBounds)
end tell
delete picture box 1
end tell
set myFolder to choose folder with prompt "Choose your folder containing Images"
set layOnly to false
set myFolderText to myFolder as text
ignoring case
repeat with i from 4 to length of myFolderText
if character i of myFolderText = ":" then
if character (i - 1) of myFolderText = "s" then
if character (i - 2) of myFolderText = "e" then
if character (i - 3) of myFolderText = ":" then
set layOnly to true
display dialog ("Only .lay files will be processed")
end if
end if
end if
end if
end repeat
end ignoring
display dialog ("How many points to add to box size?") default answer "0" buttons {"OK"} default button 1
set addSize to text returned of result
set addSizePts to addSize as real
set theResults to (display dialog ("Enter Job Number") default answer "XXX" buttons {"No ID", "OK"} default button 2)
set textJob to text returned of theResults
set noID to button returned of theResults
if (noID = "No ID") then
set colorbarHeight to 0
set singlleImage to "Yes"
else
display dialog ("Enter batch identification") default answer "Art" buttons {"OK"} default button 1
set textBatch to text returned of result
display dialog ("Enter Chapter identification") default answer "Art" buttons {"OK"} default button 1
set textChapter to text returned of result
set textJobBatch to "Job:" & textJob & " Chapter:" & textChapter & " Batch:" & textBatch & "" as styled text
display dialog ("Enter date") default answer "EPG" buttons {"OK"} default button 1
set textDate to text returned of result
display dialog ("Enter Client Name") default answer "EPG" buttons {"OK"} default button 1
set textClientName to text returned of result
set textClientName to ("Client: " & textClientName)
display dialog ("Enter your code") default answer "IHK" buttons {"OK"} default button 1
set textOpName to text returned of result
set textDateOpNum to (return & "Date:" & textDate & "Operator:" & textOpName) as styled text
display dialog ("One image/page?") buttons {"YES", "NO"} default button 2
set singleImage to button returned of result
end if
copy (list folder (myFolder) without invisibles) to fileList
set currPage to 1
set currSpread to 1
set spreadInfo to (properties of spread currSpread of document 1) as list
set newPage to true
set imageOrigin to 0
-- set leftMargin to leftMargin
set columnWidth to 0
set totalImages to 0
if (noID = "No ID") then
set textBoxHeight to 0
set barCodes to true
else
set textBoxHeight to 58
set barCodes to true
end if
repeat with i from 1 to count of fileList
set imageFile to (myFolder as text) & (item i of fileList as text)
tell application "Finder"
try
set fileType to file type of imageFile
set creatorType to creator type of file imageFile
on error
set fileType to "RRRR"
end try
end tell
if fileType ≠ "fold" then --checking whether it is a folder or file
if ((fileType = "EPSF") or (fileType = "TIFF") or (fileType = "..CT") or (fileType = "JPEG") or (fileType = "GIFF")) then
ignoring case
if layOnly then
if (imageFile ends with ".lay") then
set processFile to true
else
set processFile to false
end if
else
if (imageFile ends with ".C") or (imageFile ends with ".M") or (imageFile ends with ".Y") or (imageFile ends with ".K") then
set processFile to false
else
set processFile to true
end if
end if
end ignoring
if processFile then
set totalImages to (totalImages + 1)
tell page currPage of spread currSpread of document 1
if (imageOrigin + colorbarHeight + textBoxHeight) > maxHeight then
make picture box at begining with properties {bounds:¬
{topMargin + colorbarHeight + imageOrigin, leftMargin, ¬
topMargin + colorbarHeight + imageOrigin + 36, leftMargin + 36}, color:"None"}
end if
tell picture box 1
set image 1 to alias imageFile
set imageBounds to bounds of image 1
set imageWidth to (item 3 of imageBounds) - (item 1 of imageBounds) + addSize
set imageHeight to (item 4 of imageBounds) - (item 2 of limageBounds) + addSize
set saveImageHeight to imageHeight
set saveImageWidth to imageWidth
if imageWidth < colorbarWidth then
set imageWidth to colorbarWidth
end if
end tell
if newPage = false then
ignoring case
if singleImage = "Yes" then
set leftMargin to (maxWidth + 1)
set imageOrigin to (maxHeight + 1)
end if
end ignoring
if (leftMargin + imageWidth) > maxWidth then
set leftMargin to (maxWidth + 1)
set imageOrigin to (maxHeight + 1)
end if
if (imagOrigin + colorbarHeight + imageHeight + textBoxHeight) > maxHeight then
delete picture box 1
set imageOrigin to 0
set newPage to true
set leftMargin to (leftMargin + columnWidth + 24)
set columnWidth to 0
if (leftMargin + imageWidth) > maxWidth then
set currPage to currPage + 1
if currPage > (item 6 of spreadInfo) then
set currSpread to currSpread + 1
set currPage to 1
tell document 1
make new spread at end
show spread currSpread
end tell
set leftMargin to pageLeftMargin
end if
end if
end if
else
set newPage to false
end if
end tell
set fullSize to true
tell page currPage of spread currSpread of document 1
if newPage = true then
set fullImageHeight to imageHeight
set fullImageWidth to imageWidth
if (imageHeight > (maxHeight - (colorbarHeight + textBoxHeight))) then
set imagHeight to (maxHeight - (colorbarHeight + textBoxHeight))
set fullSize to false
end if
if (imageWidth > maxWidth) then
set imagWidth to maxWidth
set fullSize to false
end if
make picture box at beginning with properties {bounds:¬
{topMargin + colorbarHeight + imageOrigin, leftMargin, ¬
topMargin + colorbarHeight + imageOrigin ¬
+ 36, leftMargin + 36}, color:"None"}
tell picture box 1
set image 1 to alias imagFile
set imageBounds to bounds of image 1
set colunWidth to imageWidth
end tell
set newPage to false
end if
tell picture box 1
set height of bounds to imageHeight
set width of bounds to imageWidth
set bounds of image 1 to «constant JUSTcent»
set boxBounds to bounds as list --box bounds reads as {A,B,C,D}
set BoxA to ((item 1 of boxBounds) as point units) as real --converts everything to points
set BoxB to ((item 2 of boxBounds) as point units) as real
set BoxC to ((item 3 of boxBounds) as point units) as real
set BoxD to ((item 4 of boxBounds) as point units) as real
if (noID ≠ "No ID") then
--set imageName to (name of image 1) as text
get file path of image 1 --gets the path name of the imported image
set pathName to result as text --converts the path name from a reference to text
set oldDelims to text item delimiters of AppleScript --puts the current delimiters into a placeholder
set text item delimiters of AppleScript to {":"} --uses the colon as the new delimiter
set fileName to last text item of pathName --asks for the last item of the delimited text string and sets it to variable
set text item delimiters of AppleScript to oldDelims --resets the old delimiters
(* if the operator enters "none" for the bar code, don't ask for any more bar codes *)
if barCodes then
display dialog ("Enter bar code for image " & fileName) ¬
default answer "none" buttons {"OK"} default button "OK"
set textBarCode to text returned of result
if (textBarCode = "none") or (textBarCode = "NONE") or (textBarCode = "None") then
set textBarCode to ""
set barCodes to false
(* set textBoxHeight to 36 *)
else
if textBarCode ≠ "" then
(* set textBarCode to (return & "Bar Code: " & textBarCode) as styled text *)
set textBarCode to (" Bar Code: " & textBarCode)
end if
end if
else
set textBarCode to ""
end if
if (creatorType = "ART5") then
set textCreator to " Creator: Illustrator"
else if (creatorType = "8BIM") then
set textCreator to " Creator: PhotoShop"
else if (creatorType = "FH40") then
set textCreator to " Creator: FreeHand"
else
set textCreator to " CreatorID: " & creatorType as text
end if
--set textClientBarCode to (return & textClientName & textBarCode) as styled text
set textClientBarCode to (return & textClientName & textBarCode & textCreator) as styled text
if fullSize then
set sizeDisclaimer to ""
else
set sizeDisclaimer to " (complete image is not displayed; full size=" & (saveImageWidth as text) ¬
& " x " & (saveImageHeight as text) & ")"
end if
end if
end tell
if (noID ≠ "No ID") then
set textIDSize to (return & "Fig: " & fileName & " Size: " & (saveImageWidth as text) ¬
& " X" & (saveImageHeight as text)) as styled text
(* add a box identifying the figure including job, batch, client, barcode, name, size, date and oper *)
make new text box at beginning with properties ¬
{bounds:{BoxC + 6, BoxB, BoxC + 6 + textBoxHeight, BoxD}, runaround:none runaround, color:"None"} ¬
if sizeDisclaimer ≠ "" then
set story 1 of text box 1 to (fileName & sizeDisclaimer) as styled text
else
set story 1 of text box 1 to (textJobBatch & textClientBarCode & textIDSize & textDateOpNum) as styled text
end if
set justification of story 1 of text box 1 to «constant JUSTcent»
if sizeDisclaimer = "" then
tell paragraph 1 of story 1 of text box 1
(* if (word count) = 2 then *)
(* set style of word 1 to bold *)
(* set style of word 2 to italic *)
(* else *)
set style of word 1 to «constant Stylbold»
(* word 3 *)
--select character 1
(*set textArray to words as list
set arrayLength to length of textArray
repeat with i from 1 to arrayLength
set paraLength to count of words
repeat with i from 1 to paraLength
if word i = "Batch" then
set style of word i to «constant Stylbold»
else if word i = "Chapter" then
set style of word i to «constant Stylbold»
end if
end repeat
(* end if *)
end tell
(* if textBarCode ≠ "" then *)
tell paragraph 2 of story 1 of text box 1
set style of word 1 to «constant Stylbold»
set paraLength to count of words
if textBarCode ≠ "" then
(* set style of words 1 through 2 to bold *)
(* word count *)
repeat with i from 1 to paraLength
if word i = "Bar" then
set style of words i thru (i + 1) to ¬
«constant Stylbold»
end if
end repeat
end if
repeat with i from 1 to paraLength
if word i = "Creator" then
set style of word i to «constant Stylbold»
else if word i = "CreatorID" then
set style of word i to «constant Stylbold»
end if
end repeat
end tell
(* end if *)
tell paragraph 3 of story 1 of text box 1
set style of word 1 to «constant Stylbold»
(* word count *)
set paraLength to count of words
repeat with i from 1 to paraLength
if word i = "Size" then
set style of word i to «constant Stylbold»
end if
end repeat
end tell
tell paragraph 4 of story 1 of text box 1
set style of word 1 to «constant Stylbold»
set paraLength to count of words
repeat with i from 1 to paraLength
if word i = "Oper" then
set style of word i to «constant Stylbold»
end if
end repeat
(* word count *)
end tell
tell text box 1
show
set heightAdjustment to 6
set item3 to (BoxC + 6 + textBoxHeight + heightAdjustment)
--repeat while box overflows and (item3 < maxHeight)
repeat while box overflows
--if box overflows then
set bounds to {BoxC + 6, BoxB, item3, BoxD}
set heightAdjustment to heightAdjustment + 6
set item3 to (BoxC + 6 + textBoxHeight + heightAdjustment)
--end if
end repeat
end tell
end if
end if
if (noID ≠ "No ID") then
(* add the color bar *)
make picture box at beginning with properties ¬
{bounds:{BoxA - colorbarHeight - 1, BoxB, BoxA - 1, BoxB + colorbarWidth}, color:"None"}
tell picture box 1
set image 1 to colorbarImage
end tell
set imageOrigin to BoxC + textBoxHeight -- starting point of next image
if imageWidth > columnWidth then
set columnWidth to imageWidth
end if
end if
end tell
end if
end if
end if
end repeat
display dialog (totalImages as text) & " images processed in " & myFolder & ". " buttons {"OK"} default button {"OK"}
tell document 1
show page -1 --last page
end tell
end tell
Thanks
Rajeev

Contact Sheet Creation: Super slow!

Similar Messages

Maybe you are looking for