| Scripting Resources for DigitalMicrograph™ |
Propagate Calibration |
|
Function |
Takes the calibration of the front-most image and propagates it to all open images. |
Version |
version:20121225, v4.0 |
Author |
D. R. G. Mitchell |
Acknowledgements |
- |
Comments |
The script will check to see if images are of the same size. The user is alerted if size differences exist. These may be insignificant eg EFTEMs are often a few pixels smaller than their corresponding bright field image, due to the cross-correlation process. The user may then proceed with the calibration or abort. This script can be handy when creating images with no inherent magnifcation, or where a communications issue with the microscope causes images to be acquired at the wrong magnificaiton. It is also useful, if calibrating images from other data streams, such as optical microscopy. v4.0 Updated to include compatibility with GMS 2.x |
System Requirements |
Should be compatible with all recent versions of DigitalMicrograph. |
Known Issues |
- |
Supported |
Yes |
Included Files |
Main script file. |
Source Code |
// Script to spatially calibrate all open images from the chosen calibration image (front-most image is the default) // D.R.G. Mitchell, adminnospam@dmscripting.com (remove the nospam to make this work), www.dmscripting.com // version:20121225, v4.0, December 2012
// version 4.0 - GMS compatible
// Variable declaration
image calibimage, nextimage string prompt="Select the calibration image", imgname, stringtitle = "Choose Calibration Image" string imgunits, name number i=0, sizex, sizey number calibx, caliby, nextx, nexty, imageno
// Checks for the presence of an appropriate image
try calibimage:=getfrontimage() catch throw("Ensure a calibration image is open")
if(!getoneimage(prompt, calibimage) ) exit(0)
// Checks foremost image for calibration - if none prompts to calibrate or abort
imgunits=getunitstring(calibimage) getsize(calibimage, calibx, caliby)
If(imgunits=="") { Beep()
if(!twobuttondialog("This image is not calibrated.Do you wish to calibrate it or cancel?", "Calibrate", " Cancel")) { exit(0) }
else { OKdialog("1. Use the dotted line tool from the ROI Tools to define a feature of known dimension.\n2. Calibrate using the Analysis/Calibrate menu item.\n3. Then rerun this script.") exit(0) }
}
hideimage(calibimage)
// Works through all open images, writing their ids to the calibration image for future reference
number shown=countdocumentwindowsoftype(5)
for(i=0; i<shown; ++i) { imagedocument imgdoc=getimagedocument(i) nextimage:=ImageDocumentGetimage(imgdoc,0) imageno=getimageid(nextimage) setnumbernote(calibimage,"Images:Image "+i,imageno) }
// Checks that all images are the same size as the calibration image
for(i=0;i<shown;++i) { getnumbernote(calibimage,"Images:Image "+i, imageno) nextimage:=getimagefromid(imageno) name=getname(nextimage) getsize(nextimage, nextx, nexty)
if(calibx!=nextx || caliby!=nexty) { beep() if(!twobuttondialog("Image "+name+" is a different size to the calibration image!", "Proceed", "Cancel")) { showimage(calibimage) exit(0) } } }
// Copies the calibration between the calibration image and all the open images
for(i=0;i<shown;++i) { getnumbernote(calibimage,"Images:Image "+i, imageno) nextimage:=getimagefromid(imageno) ImageCopyCalibrationFrom( nextimage, calibimage) hideimage(nextimage) }
// Prompt to add scale bars
number addscalebarflag=0 if(twobuttondialog("Add scale bars to the calibrated images?", "Yes", "No")) addscalebarflag=1
// Works through all the calibrated images (hidden), displays them and adds a scale bar
for(i=shown-1; i>-1; i--) { getnumbernote(calibimage,"Images:Image "+i, imageno) nextimage:=getimagefromid(imageno) showimage(nextimage) getsize(nextimage, sizex, sizey) ImageDisplay display = nextimage.ImageGetImageDisplay(0) if(addscalebarflag==1) display.ApplyDataBar() updateimage(nextimage) }
// Displays the calibration image
showimage(calibimage)
// Applies a scale bar to the calibration image if none is present
ImageDisplay display = calibimage.ImageGetImageDisplay(0) if(addscalebarflag==1)display.ApplyDataBar() deletenote(calibimage, "Images")
|