CDPlotPDNMos.mesa
Copyright c 1984, 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Curry, March 5, 1986 11:58:06 am PST
DIRECTORY
CD,
CDPlot,
CDProperties,
NMos;
CDPlotPDNMos: CEDAR PROGRAM
IMPORTS CDPlot, CDProperties, NMos
EXPORTS CDPlot =
BEGIN OPEN CDPlot, NMos;
initialized: BOOL ← FALSE;
InitNMos: PUBLIC PROC = {
LTS:   REF LayerTonerSipples;
nofLayers: CD.Layer = NMos.cut2+1;
nmosPtrLTS: REF PrinterLTS;
IF initialized THEN RETURN ELSE initialized ← TRUE;
nmosPtrLTS ← NEW[PrinterLTS ← ALL[NIL]];
CDProperties.PutProp[onto: $nmos, prop: $stipples, val: nmosPtrLTS];
nmosPtrLTS[colorVersatec] ←
nmosPtrLTS[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[dif   ][cyan]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[dif   ][yellow]  ← NEW4[[0AH, 4, 0AH, 0]];
LTS[pol   ][yellow]  ← NEW4[[5, 0, 5, 0]];
LTS[pol   ][magenta] ← NEW4[[5, 0, 5, 0]];
LTS[met   ][cyan]  ← NEW4[[5, 0, 5, 0]];
LTS[cut   ][black]  ← NEW4[[5, 0AH, 5, 0AH]];
LTS[met2   ][cyan]  ← NEW8[[1, 2, 4, 8, 10H, 20H, 40H, 80H]];
LTS[cut2   ][black]  ← NEW4[[0CH, 0CH, 3, 3]];
LTS[ovg   ][cyan]  ← NEW8[[0, 20H, 20H, 0F8H, 20H, 20H, 00H, 00H]];
LTS[bur   ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[imp   ][yellow]  ← NEW4[[0AH, 0AH, 3, 3]];
LTS[imp0   ][yellow]  ← NEW4[[0FH, 0, 0, 0]];
LTS[impWeak ][yellow]  ← NEW4[[2, 2, 2, 2]];
nmosPtrLTS[color400]    ← LTS ← NEWLayerTonerSipples[nofLayers];
LTS[error   ][black]  ← NEW8[[32, 32, 255, 32, 32, 32, 32, 32]];
LTS[error   ][magenta] ← NEW8[[32, 32, 255, 32, 32, 32, 32, 32]];
LTS[error   ][cyan]  ← NEW8[[32, 32, 255, 32, 32, 32, 32, 32]];
LTS[error   ][yellow]  ← NEW8[[32, 32, 255, 32, 32, 32, 32, 32]];
LTS[highlight ][cyan]  ← NEW8[[64, 64, 64, 64, 255, 64, 64, 64]];
LTS[combined ][magenta] ← NEW8[[16, 16, 16, 16, 16, 16, 255, 16]];
LTS[dif   ][cyan]  ← NEW4[[12, 9, 3, 6]];
LTS[dif   ][yellow]  ← NEW4[[12+1, 9, 3+4, 6]];
LTS[pol   ][yellow]  ← NEW4[[9, 3, 6, 12]];
LTS[pol   ][magenta] ← NEW4[[9, 3, 6, 12]];
LTS[met   ][cyan]  ← NEW4[[6, 12, 9, 3]];
LTS[cut   ][black]  ← NEW4[[15,15,15,15]];
LTS[cut   ][cyan]  ← NEW4[[15,15,15,15]];
LTS[cut   ][yellow]  ← NEW4[[15,15,15,15]];
LTS[cut   ][magenta] ← NEW4[[15,15,15,15]];
LTS[met2   ][cyan]  ← NEW8[[24, 48, 96, 192, 129, 3, 6, 12]];
LTS[cut2   ][black]  ← NEW4[[3, 6, 12, 9]];
LTS[cut2   ][cyan]  ← NEW4[[3, 6, 12, 9]];
LTS[cut2   ][yellow]  ← NEW4[[3, 6, 12, 9]];
LTS[cut2   ][magenta] ← NEW4[[3, 6, 12, 9]];
LTS[ovg   ][cyan]  ← NEW8[[0, 48, 48, 252, 252, 48, 48, 0]];
LTS[imp0   ][yellow]  ← NEW4[[1, 2, 4, 8]];
LTS[impWeak ][yellow]  ← NEW4[[1, 2, 4, 8]];
LTS[bur   ][black]  ← NEW8[[0, 0, 0, 0, 0, 56, 56, 56]];
LTS[bur   ][cyan]  ← NEW8[[0, 0, 0, 0, 0, 56, 56, 56]];
LTS[bur   ][yellow]  ← NEW8[[0, 0, 0, 0, 0, 56, 56, 56]];
LTS[bur   ][magenta] ← NEW8[[0, 0, 0, 0, 0, 56, 56, 56]];
LTS[imp   ][yellow]  ← NEW4[[15,15,15,15]];
CDPlot.SwapSipples[LTS]; -- seems to be necessary on color400 devices
};
END.