image IMG1
IMG1 := RealImage ("New", 4, 100, 100)
IMG1 = exp(-iradius**2/(iheight/10)**2)
ShowImage(IMG1)
