CDPlotPDCMosA.mesa
Copyright c 1984, 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Curry, March 5, 1986 11:57:11 am PST
DIRECTORY
CD,
CDPlot,
CDProperties,
CMos;
CDPlotPDCMosA: CEDAR PROGRAM
IMPORTS CDPlot, CDProperties, CMos
EXPORTS CDPlot =
BEGIN OPEN CDPlot, CMos;
initialized: BOOL ← FALSE;
InitCMosA: PUBLIC PROC = {
LTS:   REF LayerTonerSipples;
nofLayers: CD.Layer = CMos.cut2+1;
cmosAPtrLTS: REF PrinterLTS;
IF initialized THEN RETURN ELSE initialized ← TRUE;
cmosAPtrLTS ← NEW[PrinterLTS ← ALL[NIL]];
CDProperties.PutProp[onto: $cmos, prop: $stipples, val: cmosAPtrLTS];
cmosAPtrLTS[colorVersatec] ←
cmosAPtrLTS[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[ndif   ][cyan]  ← NEW4[[0AH, 0, 0AH, 0]];
LTS[ndif   ][yellow]  ← NEW4[[0AH, 4, 0AH, 0]];
LTS[pwellCont ][magenta] ← NEW4[[2, 2, 8, 0]];
LTS[pwellCont ][cyan]  ← NEW4[[0, 0, 0, 8]];
LTS[nwellCont ][cyan]  ← NEW4[[2, 2, 8, 0]];
LTS[nwellCont ][yellow]  ← NEW4[[2, 2, 8, 0]];
LTS[nwellCont ][magenta] ← NEW4[[0, 0, 0, 8]];
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[nwell  ][yellow]  ← NEW4[[0, 6, 0, 0]];
LTS[bur   ][black]  ← NEW4[[2, 0, 8, 0]];
LTS[pdif   ][cyan]  ← NEW4[[8, 2, 4, 1]];
LTS[pdif   ][yellow]  ← NEW4[[8, 6, 4, 1]];
LTS[imp   ][yellow]  ← NEW4[[0AH, 0AH, 3, 3]];
LTS[snerd  ][black]  ← NEW4[[3, 3, 3, 3]];
LTS[pwell  ][black]  ← NEW4[[0FH, 0FH, 0, 0]];
LTS[NOcOL ][black]  ← NEW4[[0FH, 1, 1, 1]];
cmosAPtrLTS[color400]    ← LTS ← NEWLayerTonerSipples[nofLayers];
LTS[combined ][magenta] ← NEW8[[16, 16, 16, 16, 16, 16, 255, 16]];
LTS[highlight ][cyan]  ← NEW8[[64, 64, 64, 64, 255, 64, 64, 64]];
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[ndif   ][cyan]  ← NEW4[[12, 9, 3, 6]];
LTS[ndif   ][yellow]  ← NEW4[[12+1, 9, 3+4, 6]];
LTS[pwellCont ][cyan]  ← NEW4[[0, 6, 6, 0]];
LTS[pwellCont ][yellow]  ← NEW4[[0, 6, 6, 0]];
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[nwell  ][yellow]  ← NEW4[[1, 2, 4, 8]];
LTS[pdif   ][cyan]  ← NEW4[[12, 9, 3, 6]];
LTS[pdif   ][yellow]  ← NEW4[[12, 9, 3, 6]];
LTS[imp   ][yellow]  ← NEW4[[15,15,15,15]];
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[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[met2   ][cyan]  ← NEW8[[24, 48, 96, 192, 129, 3, 6, 12]];
LTS[nwellCont ][cyan]  ← NEW8[[51, 51, 102, 102, 204, 204, 153, 153]];
LTS[nwellCont ][yellow]  ← NEW8[[51, 51, 102, 102, 204, 204, 153, 153]];
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[pwell  ][black]  ← NEW8[[0, 0, 8, 4, 0, 0, 0, 0]];
LTS[pwell  ][cyan]  ← NEW8[[0, 0, 8, 4, 0, 0, 0, 0]];
LTS[pwell  ][yellow]  ← NEW8[[0, 0, 8, 4, 0, 0, 0, 0]];
LTS[pwell  ][magenta] ← NEW8[[0, 0, 8, 4, 0, 0, 0, 0]];
CDPlot.SwapSipples[LTS]; -- seems to be necessary on color400 devices
};
END.