image IMG1
IMG1 := RealImage ("New", 4, 100, 100)
IMG1 = tert(iradius<iwidth/4, icol, irow)
ShowImage(IMG1)
