DIRECTORY Complex USING [Vec], ImagerPixelMaps USING [PixelMap], Rope USING [ROPE], Seq USING [ComplexSequence]; ImageFFT: CEDAR DEFINITIONS ~ BEGIN Image: TYPE ~ LIST OF ComplexSequence; ComplexSequence: TYPE ~ Seq.ComplexSequence; PixelMap: TYPE ~ ImagerPixelMaps.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: ImagerPixelMaps.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, Xerox Corporation. Michael Plass, June 27, 1984 2:44:14 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. Êu˜J™ J™&™+J˜—š Ïk œ œœœœœ˜pJ˜—šœ œ œ˜#J˜šœœœœ˜&J™"J˜—šœœ˜,J˜—šœ œ˜*J˜—šœœœ˜J˜—šÏn œœœ ˜;J˜—šž œœœ˜-J˜—šžœœ˜ J™!J˜—šžœœ9œ˜UJ™GJ˜—šžœœœœ˜FJšœc™cJ˜—šž œœ˜+J™%J˜—šžœœœ˜0J™$J˜—š žœœœœœ ˜GJ˜—šž œœ!˜0J˜—šžœœ˜ J˜—šžœœ˜%J˜—šžœœ œ œ˜,J˜—šžœœ œ œ˜-J˜—šžœœ œœ˜>J˜—šž œœœœ˜VJ˜—šžœœœœ ˜?J˜—šžœœ œ œ˜/J˜—šž œœ œ ˜.J˜—šžœœ ˜!J˜—šž œœœ˜1J˜—Jšœ˜——…—z “