

// Script function: Create Tags


// Unless named starting with GlobalSino, EM, My, Self, the function commands are defined 
//by Gatan DM, please see at link: http://www.globalsino.com/EM/page2597.html


image EMImg := RealImage( "GlobalSino test image", 8, 400, 400 )
EMImg = random()
 
Number EMNumber
String EMString
EMString = "This is a GlobalSino test image"
EMNumber = 2006
EMImg.SetStringNote("String tag at EM", EMString)
EMImg.SetNumberNote("Number tag at EM", EMNumber)
EMImg.SetRectNote("Rectangle tag at EM", 2, 0, 0, 6)
ShowImage(EMImg)

// EM Tags see: http://www.globalsino.com/EM/page1332.html