image IMG1
IMG1 := RealImage ("New", 4, 100, 100)
IMG1 = tan(itheta)
ShowImage(IMG1)
