CDPlotPDSil.mesa
Copyright c 1984, 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Curry, March 5, 1986 11:57:46 am PST
DIRECTORY
CD,
CDPlot,
CDProperties,
CDSil;
CDPlotPDSil: CEDAR PROGRAM
IMPORTS CDPlot, CDProperties, CDSil
EXPORTS CDPlot =
BEGIN OPEN CDPlot, CDSil;
initialized: BOOL ← FALSE;
InitSil: PUBLIC PROC = {
LTS:   REF LayerTonerSipples;
nofLayers: CD.Layer = CDSil.xblue+1;
silPtrLTS:  REF PrinterLTS;
silBWPtrLTS: REF PrinterLTS;
sticksPtrLTS: REF PrinterLTS;
IF initialized THEN RETURN ELSE initialized ← TRUE;
silPtrLTS  ← NEW[PrinterLTS ← ALL[NIL]];
silBWPtrLTS ← NEW[PrinterLTS ← ALL[NIL]];
sticksPtrLTS ← NEW[PrinterLTS ← ALL[NIL]];
CDProperties.PutProp[onto: $chipnsil, prop: $stipples, val: silPtrLTS];
CDProperties.PutProp[onto: $silBW, prop: $stipples, val: silBWPtrLTS]; -- var interpretation
CDProperties.PutProp[onto: $sticks, prop: $stipples, val: sticksPtrLTS]; -- var interpretation
silPtrLTS[colorVersatec] ←
silPtrLTS[c150]   ← LTS  ← NEWLayerTonerSipples[nofLayers];
LTS[error   ][black]  ← NEW8[[20H, 20H, 0FFH, 20H, 20H, 20H, 20H, 20H]];
LTS[highlight ][cyan]  ← NEW8[[40H, 40H, 40H, 40H, 0FFH, 40H, 40H, 40H]];
LTS[combined ][magenta] ← NEW8[[10H, 10H, 10H, 10H, 10H, 10H, 0FFH, 10H]];
LTS[xgreen  ][cyan]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xgreen  ][yellow]  ← NEW4[[0AH, 4, 0AH, 0]];
LTS[xred   ][yellow]  ← NEW4[[5, 0, 5, 0]];
LTS[xred   ][magenta] ← NEW4[[5, 0, 5, 0]];
LTS[xblue  ][cyan]  ← NEW4[[5, 0, 5, 0]];
LTS[xneutral  ][black]  ← NEW4[[5, 0AH, 5, 0AH]];
LTS[xgrey1  ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[xsmoke ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[xyellow  ][yellow]  ← NEW4[[0AH, 0AH, 3, 3]];
silBWPtrLTS[colorVersatec] ← -- should this be versatec, does it matter?
silBWPtrLTS[c150]  ← LTS  ← NEWLayerTonerSipples[nofLayers];
LTS[error   ][black]  ← NEW4[[0FH, 0FH, 0FH, 0FH]];
LTS[highlight ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[combined ][black]  ← NEW4[[0FH, 0FH, 0FH, 0FH]];
LTS[xneutral  ][black]  ← NEW4[[0FH, 0FH, 0FH, 0FH]];
LTS[xred   ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xyellow  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xgreen  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xcyan  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xviolet  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xmagenta ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xwhite  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xbrown  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xorange  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xlime   ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xturquise ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xaqua  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xultraviolet ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xpink  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[xsmoke  ][black]  ← NEW4[[0AH, 0, 0AH, 0]];
sticksPtrLTS[c150] ← LTS   ← NEWLayerTonerSipples[nofLayers];
LTS[error   ][cyan]  ← NEW4[[0, 0, 0, 0]];
LTS[highlight ][cyan]  ← NEW4[[0, 0, 0, 0]];
LTS[combined ][black]  ← NEW4[[15,15,15,15]];
LTS[xgreen  ][cyan]  ← NEW4[[10, 5, 10, 5]];
LTS[xgreen  ][yellow]  ← NEW4[[10, 5, 10, 5]];
LTS[xred   ][yellow]  ← NEW4[[15,15,15,15]];
LTS[xred   ][magenta] ← NEW4[[15,15,15,15]];
LTS[xblue  ][cyan]  ← NEW4[[15,15,15,15]];
LTS[xneutral  ][black]  ← NEW4[[15,15,15,15]];
LTS[xgrey1  ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[xsmoke ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[xyellow  ][yellow]  ← NEW4[[15,15,15,15]];
};
END.