DIRECTORY CtBasic, CtMap, G2dBasic, G2dVector, ImagerColor, ImagerSample, SF;
CtTransform: CEDAR DEFINITIONS
 ~ BEGIN
PairSequence:	TYPE ~ G2dVector.PairSequence;
IntegerSequence:	TYPE ~ G2dBasic.IntegerSequence;
SampleMaps:		TYPE ~ CtBasic.SampleMaps;
PixelArray:		TYPE ~ CtBasic.PixelArray;
IntegerPair:		TYPE ~ CtBasic.IntegerPair;
Cmap:				TYPE ~ CtMap.Cmap;
Table:				TYPE ~ CtMap.Table;
Box:				TYPE ~ ImagerSample.Box;
SampleMap:		TYPE ~ ImagerSample.SampleMap;
Vec:				TYPE ~ SF.Vec;
RGBProc:			TYPE ~ CtBasic.RGBProc;
ValueProc:		TYPE ~ CtBasic.ValueProc;
Display:					TYPE ~ RECORD [
box:								Box м [[0, 0], [0, 0]],
center:							IntegerPair м [0, 0],
bpp:								INTEGER м 0,
rpa, gpa, bpa, vpa:				PixelArray м NIL
];

EscherData:				TYPE ~ RECORD [
exponent:							REAL м 2.0,				-- client control
rad, scl, x, p:					REAL м 0.0,				-- accelerators and cache
display:							Display м []
];

BugeyeData:				TYPE ~ RECORD [
xSize, ySize:						INTEGER м 20,			-- client control
xSize2, ySize2:					INTEGER м 0,
display:							Display м []
];

ShuffleData:				TYPE ~ RECORD [
xSize, ySize:						INT м 20,					-- client control
xShuf, yShuf:					IntegerSequence м NIL,
wid, hgt:							INTEGER м 0,
display:							Display м []
];

STLaplaceData:			TYPE ~ RECORD [
threshold:						INTEGER м 8,			-- client control
dif:								INTEGER м 11,			-- client control
display:							Display м []
];

PopularityData:			TYPE ~ RECORD [
diameter:							INTEGER м 5,			-- client control
idiameter:							REAL м 0.0,
lowd, highd:						INTEGER м 0,
vpop:								ARRAY [0..255] OF INTEGER м ALL[0],
display:							Display м []
];

EdgesData:				TYPE ~ RECORD [
xSize, ySize:						INTEGER м 20,			-- client control
tmp:								INTEGER м 0,
display:							Display м []
];

WoodcutData:			TYPE ~ RECORD [
cutHeight:						INTEGER м 20,			-- client control
cutBlend:							INTEGER м 2,			-- client control
threshold:						REAL м 1.0,				-- client control
clamp:							BOOL м TRUE,			-- client control
height2:							INTEGER м 0,
maxsum:							INTEGER м 0,
sumscl:							REAL м 0,
vbarscl:							REAL м 0,
rsums:							IntegerSequence м NIL,	-- also used for value sums
gsums:							IntegerSequence м NIL,
bsums:							IntegerSequence м NIL,
yMax:								INTEGER м 0,
tmp:								INTEGER м 0,
display:							Display м []
];

SpinData:					TYPE ~ RECORD [
cycles:							REAL м 1.0,				-- client control
rad, thetaScl:						REAL м 0.0,
tmp:								INTEGER м 0,
display:							Display м []
];

BlockData:				TYPE ~ RECORD [
xSize, ySize:						INTEGER м 20,			-- client control
rsums:							IntegerSequence м NIL,	-- also used for value sums
gsums:							IntegerSequence м NIL,
bsums:							IntegerSequence м NIL,
yMax:								INTEGER м -1,
tmp:								INTEGER м 0,
display:							Display м []
];
EscherSetup: PROC [exp: REAL, maps: SampleMaps] RETURNS [REF EscherData];
EscherRGB: RGBProc;
EscherValue: ValueProc;

BugeyeSetup: PROC [xSize, ySize: NAT, maps: SampleMaps] RETURNS [REF BugeyeData];
BugeyeRGB: RGBProc;
BugeyeValue: ValueProc;

ShuffleSetup: PROC [xSize, ySize: INTEGER, maps: SampleMaps] RETURNS [REF ShuffleData];
ShuffleRGB: RGBProc;
ShuffleValue: ValueProc;

STLaplaceSetup: PROC [threshold, dif: INTEGER, maps: SampleMaps]
RETURNS [REF STLaplaceData];
STLaplaceRGB: RGBProc;
STLaplaceValue: PUBLIC ValueProc;

PopularitySetup: PROC [diameter: INTEGER, maps: SampleMaps]
RETURNS [REF PopularityData];
PopularityRGB: RGBProc;
PopularityValue: PUBLIC ValueProc;

EdgesSetup: PROC [xSize, ySize: INTEGER, maps: SampleMaps] RETURNS [REF EdgesData];
EdgesRGB: RGBProc;
EdgesValue: PUBLIC ValueProc;

WoodcutSetup: PROC [height, blend: INT, threshold: REAL, clamp: BOOL, maps: SampleMaps]
RETURNS [REF WoodcutData];
WoodcutRGB: RGBProc;
WoodcutValue: ValueProc;

SpinSetup: PROC [cycles: REAL, maps: SampleMaps] RETURNS [REF SpinData];
SpinRGB: RGBProc;
SpinValue: ValueProc;

BlockSetup: PROC [xSize, ySize: INTEGER, maps: SampleMaps] RETURNS [REF BlockData];
BlockRGB: RGBProc;
BlockValue: PUBLIC ValueProc;

END.
  	╪  
CtTransform.mesa
Copyright ╙ 1989, 1992 by Xerox Corporation.  All rights reserved.
Glassner, May 18, 1989 2:07:07 pm PDT
Jules Bloomenthal July 3, 1992 1:28 pm PDT


Imported Types
Local Types
Transformations
 For the following RGBProcs and ValueProcs, clientData must be a ref to the appropriate data.

Each point (r, q) takes the value at (r', q); r' = R*(r/R)ed.exponent  , where R is the maximum radius within the specified box (MIN[width, height]/2).  The result is an image that is either "exploded" around the center (if ed.exponent > 1) or "shrunk" around the center (if ed.exponent < 1).
Each point (x, y) takes the value at (x MOD bd.xSize, y MOD bd.ySize).
Each row and column is shifted a random amount.  The amount of relative shift from row to row is controlled by sd.xSize and sd.ySize.
Signed, thresholded Laplacian filter.  A local neighborhood is summed, and then a scaled amount of the center value is removed from the sum (the amount is sd.threshold).  The result is then compared to sd.dif; the returned value is black or white depending on the result of that comparison.
For STLaplaceRGB and STLaplaceValue, clientData should be REF STLaplaceData.
A square region is sampled around each pixel.  The returned value is the most commonly occuring value in that neighborhood.  The size of the region is controlled by pd.diameter.
Extracts edges from local intensity differences. The pixel referenced for is at a distance (ed.xSize, ed.ySize) from the pixel queried.
Simulates a woodcut.  wd.cutHeight is the size of each strip.  wd.cutBlend controls how many horizontal neighbors are averaged together to find the intensity at a pixel; 0 means no neighbors, 1 means 1 neighbor on each side (a total of three samples), and so on.  wd.clamp is a boolean; if TRUE, the result at each pixel is black or white, otherwise, the result is either black (if outside the band) or a value representing the average value in that column of that strip.  The value of wd.threshold is used to pre-scale the pixels before the test is done; it is most useful when wd.clamp is true.  Note that the resulting image may be used as a matte for the original, in either clamp or unclamped modes.
Each point (r, q) takes the value at (r, q'); q' = q + (2p*sd.cycles*r)/R, where R is the maximum radius within the specified box (MIN[width, height]/2).  The result is an image that is "spun" around the center of the box.
Each (bd.xSize x bd.ySize) block in the image is replaced by the average value within that block.


Э╩К  Ц"cedarcode" styleХNewlineDelimiter
Щ ЩJЪЬ
╧eЬ7ЩBJЪЬ%Щ%JЩ*JЩ ЧJЪ╧k	ЬAЮЬШMJЩ JЪ╤blnЬЮЬЮШJЪЬЮШheadЪ╧lЩJЪЬЮЬШ,JЪЬЮЬШ1JЪЬЮЬШ'JЪЬЮЬШ'JЪЬЮЬШ)JЪЬ	ЮЬШJЪЬ
ЮЬШJЪЬЮЬШ JЪЬЮЬШ*JЪЬЮЬЮЬШJЪЬЮЬШ"JЪЬЮЬШ%ЧЪаЩЪЬЮЬЮЬШJШ#JШ#JЪЬЮЬШJЪЬ$ЮШ'JШЧJШ ЪЬЮЬЮЬШJЪЬЮЬ╧cШ0JЪЬЮЬбШ<JШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬ	бШ4JЪЬЮ	ЬШ JШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬбШ2JЪЬ$ЮЬШ(JЪЬЮЬШJШJЪЬШJШ ЧЪЬЮЬЮЬШ JЪЬЮ	ЬбШ0JЪЬ
Ю	Ь	бШ-JШJЪЬШJШ ЧЪЬЮЬЮЬШ!JЪЬЮЬбШ0JЪЬЮЬШJЪЬЮ	ЬШJЪ	ЬЮЬ
ЮЬЮЬЮЬШ0JШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬ	бШ4JЪЬЮЬШJШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬ	бШ1JЪЬЮЬбШ0JЪЬЮЬбШ0JЪЬЮЬЮЬбШ-JЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬбШ?JЪЬЮЬШ#JЪЬЮЬШ#JЪЬЮЬШJЪЬЮЬШJШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬбШ.JЪЬЮЬШJЪЬЮЬШJШJЪЬШJШ ЧЪЬЮЬЮЬШJЪЬЮЬ	бШ4JЪЬЮЬбШ?JЪЬЮЬШ#JЪЬЮЬШ#JЪЬЮЬШJЪЬЮЬШJШJЪЬШЧЧЪаЩЩ]JЩ ЧJЪ
╧nЬЮЬЮЬЮЬЮЬШIJЪв	Ь
ШЪвЬШJЪЬ╧gЬгЬ╨suЬ▌ЩдЧJШ JЪ
вЬЮЬЮЬЮЬЮЬШQJЪв	Ь
ШЪвЬШJЪЬFЩFЧJШ JЪ
вЬЮЬЮЬЮЬЮЬШWJЪв
Ь
ШЪвЬШJЪЬЕЩЕЧJШ ЪвЬЮЬЮЬШ@JЪЮЬЮЬШЧJЪвЬ
ШЪвЬЮЬШ!JЪЬвЩвJЪЬLЩLЧJШ ЪвЬЮЬЮЬШ;JЪЮЬЮЬШЧJЪвЬ
ШЪвЬЮЬШ"JЪЬ▒Щ▒ЧJШ JЪ
в
ЬЮЬЮЬЮЬЮЬШSJЪвЬ
ШЪв
ЬЮЬШJЪЬЗЩЗЧJШ Ъ
вЬЮЬЮЬЮЬ	ЮЬШWJЪЮЬЮЬШЧJЪв
Ь
ШЪвЬШJЪЬ└Щ└ЧJШ JЪ
в	ЬЮЬ
ЮЬЮЬЮЬШHJЪвЬ
ШЪв	ЬШJЪЬгЬгЬгЬгЬгЬдЩ▐ЧJШ JЪ
в
ЬЮЬЮЬЮЬЮЬШSJЪвЬ
ШЪв
ЬЮЬШJЪЬaЩaЧJШ ЧJЩ ЪЮЬШJЩ ЧЧ ЕЧ    о     