
<<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.