| Scripting Resources for DigitalMicrograph™ |
Adjust Gamma |
|
Function |
Dynamically adjusts the gamma value of the front-most image. |
Version |
version:20030718, v1.0 |
Author |
D. R. G. Mitchell |
Acknowledgements |
Based on a script by Andreas Rucki |
Comments |
Use the up and down arrow keys to change gamma on the fly. Hit the space-bar when finished. |
System Requirements |
Should be compatible with all recent versions of DigitalMicrograph. |
Known Issues |
- |
Supported |
Yes |
Included Files |
Main script file. |
Source Code |
// Script to dynamically vary the gamma of an image. // Based on a script proposed by Andreas Rucki, July 2003. // Dynamic adjustment added by Dave Mitchell // version:20030718, v1.0 // adminnospam@dmscripting.com (remove the nospam to make this email address work)
Image Img, ITT; ImageDisplay ImgDisp Number gamma=0.5 GetFrontImage(Img) ImgDisp=Img.ImageGetImageDisplay(0) ITT:=RealImage("",4,256,1)
result("\n\nScript to dynamically change the gamma of the image.\nUse the up and down keys to change the gamma and hit SPACE when you've finished")
okdialog("Use the Up and Down Arrows to increase/decrease the gamma. Hit SPACE when finished.\n\n")
while(3>2) { number hitkey=getkey()
if (hitkey==30) gamma=gamma+0.01 if (hitkey==31) gamma=gamma-0.01 if(hitkey==32) break
openandsetprogresswindow("Current gamma = "+gamma,"","SPACE to end")
ITT=icol/255 ITT=256*exp((1-gamma)/gamma*log(ITT));
ImgDisp.ImageDisplaySetIntensityTransformation(ITT) updateimage(img) } beep() openandsetprogresswindow("","","")
|