image IMG1
IMG1 := RealImage ("New", 4, 100, 100)
IMG1 = sin(2*Pi()/iwidth*icol)
ShowImage(IMG1)
