// 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
number EMx,EMy
GlobalSinoImage:= CreateFloatImage("test image",EMWidth, EMHeight);
   for (EMx=0; EMx<EMWidth; EMx++) 
     {
      for (EMy=0; EMy< EMHeight; EMy++) 
          {
           SetPixel(GlobalSinoImage, EMx, EMy,sin(EMx*EMy))
          }
      } 
showimage(GlobalSinoImage)
 
// Comparison with a script which has the function of creating the same image, but much faster computing speed. See at:
// http://www.globalsino.com/EM/page2597_ExprSize_2.s