DIRECTORY Complex USING [VEC], ImagerPixelMap USING [PixelMap], Rope USING [ROPE], Seq USING [ComplexSequence]; ImageFFT: CEDAR DEFINITIONS ~ BEGIN Image: TYPE ~ LIST OF ComplexSequence; ComplexSequence: TYPE ~ Seq.ComplexSequence; PixelMap: TYPE ~ ImagerPixelMap.PixelMap; Error: ERROR [code: ATOM]; FromPixelMap: PROC [pixelMap: PixelMap] RETURNS [a: Image]; Transform: PROC [a: Image, inverse: BOOLEAN]; Mul: PROC [dest, source: Image]; TransferToPixels: PROC [dest: ImagerPixelMap.PixelMap, source: Image, scalar: REAL]; MakeMask: PROC [a: Image, threshold: REAL] RETURNS [bitmap: PixelMap]; ApplyMask: PROC [a: Image, mask: PixelMap]; Store: PROC [image: Image, fileName: Rope.ROPE]; Load: PROC [fileName: Rope.ROPE, scratch: Image _ NIL] RETURNS [Image]; ScalarMul: PROC [a: Image, scalar: Complex.VEC]; Add: PROC [dest, source: Image]; Subtract: PROC [dest, source: Image]; Width: PROC [a: Image] RETURNS [width: NAT]; Height: PROC [a: Image] RETURNS [width: NAT]; Range: PROC [a: Image] RETURNS [xmin, ymin, xmax, ymax: REAL]; MaskedRange: PROC [a: Image, bitmap: PixelMap] RETURNS [xmin, ymin, xmax, ymax: REAL]; Copy: PROC [a: Image, scratch: Image _ NIL] RETURNS [b: Image]; Destroy: PROC [a: Image] RETURNS [Image _ NIL]; Transpose: PROC [a: Image] RETURNS [b: Image]; InSituTranspose: PROC [a: Image]; TransformRows: PROC [a: Image, inverse: BOOLEAN]; END. ÒImageFFT.mesa Copyright (c) 1984, 1985, Xerox Corporation. Michael Plass, June 27, 1984 2:44:14 pm PDT Tim Diebert May 21, 1985 6:08:12 pm PDT Each pixel may be a complex value. does componentwise multipication. Transfers the absolute values multiplied by the scalar, clipped to fit. The bitmap has a one bit where the absolute value of the corresponding pixel exceeds the threshold. Forces all the masked pixels to zero. Stores the square image in raw form. Êœ˜™ J™,J™+Icode™'J˜—šÏk œ œœ˜Jšœœ ˜ Jšœœœ˜Jšœœ˜J˜—šÏnœœ œ˜#J˜šœœœœ˜&J™"J˜—šœœ˜,J˜—šœ œ˜)J˜—šœœœ˜J˜—šž œœœ ˜;J˜—šž œœœ˜-J˜—šžœœ˜ J™!J˜—šžœœ8œ˜TJ™GJ˜—šžœœœœ˜FJšœc™cJ˜—šž œœ˜+J™%J˜—šžœœœ˜0J™$J˜—š žœœœœœ ˜GJ˜—šž œœœ˜0J˜—šžœœ˜ J˜—šžœœ˜%J˜—šžœœ œ œ˜,J˜—šžœœ œ œ˜-J˜—šžœœ œœ˜>J˜—šž œœœœ˜VJ˜—šžœœœœ ˜?J˜—šžœœ œ œ˜/J˜—šž œœ œ ˜.J˜—šžœœ ˜!J˜—šž œœœ˜1J˜—Jšœ˜——…—v ä