
// 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


number EMWidth=500, EMHeight=500
Image GlobalSinoImage
GlobalSinoImage:=ExprSize(EMWidth,EMHeight,sin(irow*icol))  
showimage(GlobalSinoImage)

// Comparison with a script which has the function of creating the same image, but much slower computing speed. See at:
// http://www.globalsino.com/EM/page2597_for.s