DIRECTORYCDProperties, CD, Rope, CDValue;CDSetupPD: CEDAR PROGRAM IMPORTS CDProperties, CD, CDValue =BEGINStipple4: TYPE = ARRAY [0..4) OF [0..16);Stipple8: TYPE = ARRAY [0..8) OF [0..256);currentTech: CD.Technology_NIL;cLev: CD.Layer _ CD.undefLayer;blackX: REF  	_ $CDxVersatecBlack;cyanX: REF  	_ $CDxVersatecCyan;yellowX: REF	_ $CDxVersatecYellow;magentaX: REF	_ $CDxVersatecMagenta;Technology: PROC[tech: ATOM] = BEGINIF currentTech#NIL THEN ERROR;currentTech _ CD.FetchTechnology[tech];END;Keys: PROC[device, b, c, m, y: ATOM, text: Rope.ROPE_NIL, invert: BOOL_FALSE] = BEGINblackX _ b;cyanX _ c;yellowX _ y;magentaX _ m;CDValue.Store[currentTech, device, text];IF invert THEN {CDProperties.PutAtomProp[device, $CDxColorPDPlotBlack, yellowX];CDProperties.PutAtomProp[device, $CDxColorPDPlotCyan, magentaX];CDProperties.PutAtomProp[device, $CDxColorPDPlotYellow, blackX];CDProperties.PutAtomProp[device, $CDxColorPDPlotMagenta, cyanX];}ELSE {CDProperties.PutAtomProp[device, $CDxColorPDPlotBlack, blackX];CDProperties.PutAtomProp[device, $CDxColorPDPlotCyan, cyanX];CDProperties.PutAtomProp[device, $CDxColorPDPlotYellow, yellowX];CDProperties.PutAtomProp[device, $CDxColorPDPlotMagenta, magentaX];};CDProperties.PutAtomProp[device, $CDxLastTechnology, currentTech.key];FOR l: CD.Layer IN CD.Layer DOForgett[l]ENDLOOP;END;End: PROC [] =BEGINcurrentTech _ NILEND;LayerModify: PROC[uniqueKey: ATOM] =BEGINcLev _ CD.FetchLayer[t: currentTech, uniqueKey: uniqueKey];END;Layer: PROC[uniqueKey: ATOM] =BEGINcLev _ CD.FetchLayer[t: currentTech, uniqueKey: uniqueKey];Forgett[cLev]END;LayerNumber: PROC [lev: NAT] =BEGINcLev _ lev;Forgett[cLev]END;LayerNumberModify: PROC [lev: NAT] =BEGINcLev _ levEND;Black8: PROC [stipple: Stipple8] =BEGINIF blackX#NIL THENCDProperties.PutLayerProp[onto: cLev, prop: blackX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Black4: PROC [stipple: Stipple4] =BEGINIF blackX#NIL THENCDProperties.PutLayerProp[onto: cLev, prop: blackX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Cyan8: PROC [stipple: Stipple8] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: cyanX,val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Cyan4: PROC [stipple: Stipple4] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: cyanX,val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Magenta8: PROC [stipple: Stipple8] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: magentaX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Magenta4: PROC [stipple: Stipple4] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: magentaX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Yellow8: PROC [stipple: Stipple8] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: yellowX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Yellow4: PROC [stipple: Stipple4] =BEGINCDProperties.PutLayerProp[onto: cLev, prop: yellowX, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Forgett: PROC [lev: NAT] =BEGINIF blackX#NIL THEN CDProperties.PutLayerProp[onto: lev, prop: blackX, val: NIL];IF cyanX#NIL THEN CDProperties.PutLayerProp[onto: lev, prop: cyanX, val: NIL];IF magentaX#NIL THEN CDProperties.PutLayerProp[onto: lev, prop: magentaX, val: NIL];IF yellowX#NIL THEN CDProperties.PutLayerProp[onto: lev, prop: yellowX, val: NIL];END;END.   ╠  CDSetupPD.mesaCopyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Last Edited by: Ch. Jacobi,  May 11, 1984 9:57:55 pm PDTLast Edited by: Ch. Jacobi,  March 25, 1986 5:14:04 pm PSTЭ╩  Ш ЪЬЩJЪЬ
╧mЬ7ЩBJЩ8JЩ:JШ ЧЪ╧k	Ш	JЪЬЮЬШ ЧЪ╧b	ЬЮЬЮЬШJЪЮЬЮЬШ#JЪЮШJЪЬ
ЮЬЮЬЮЬ	Ш)JЪЬ
ЮЬЮЬЮЬ
Ш*JШ JЪЬЮЬЮЬШJЪЬЮЬ	ЮЬШJШ JЪЬЮЬШ"JЪЬЮЬШ JЪЬ	ЮЬШ"JЪЬ
ЮЬШ$JШ Ъ╧n
ЬЮЬЮЬШJЪЮШJЪЮЬЮЬЮЬЮЬШJЪЬЮЬШ'JЪЮЬШЧJШ ЪаЬЮЬЮЬЮЬЮЬ
ЮЬЮЬШPJЪЮШJЪЬШJЪЬ
Ш
JЪЬШJЪЬШJЪЬ)Ш)ЪЮЬЮЬШJЪЬ@Ш@JЪЬ@Ш@JЪЬ@Ш@JЪЬ@Ш@JЪЬШЧЪЮЬШJЪЬ?Ш?JЪЬ=Ш=JЪЬAШAJЪЬCШCJШЧJЪЬFШFЪ	ЮЬЮЬЮЬЮЬЮШJЪЬ
Ш
JЪЮЬШЧJЪЮЬШЧJШ ЪаЬЮЬШJЪЮШJЪЬЮШJЪЮЬШЧJШ ЪаЬЮЬЮЬШ$JЪЮШJЪЬЮЬ2Ш;JЪЮЬШЧJШ ЪаЬЮЬЮЬШJЪЮШJЪЬЮЬ2Ш;JЪЬШJЪЮЬШЧJШ ЪаЬЮЬЮЬШJЪЮШJЪЬШJЪЬШJЪЮЬШЧЪаЬЮЬЮЬШ$JЪЮШJЪЬ
Ш
JЪЮЬШЧЪаЬЮЬШ"JЪЮШЪЮЬЮЬЮШЪЬ4Ш4JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧЧJЪЮЬШJШ ЧЪаЬЮЬШ"JЪЮШЪЮЬЮЬЮШЪЬ4Ш4JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧЧJЪЮЬШJШ ЧЪаЬЮЬШ!JЪЮШЪЬ2Ш2JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ!JЪЮШЪЬ2Ш2JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ$JЪЮШЪЬ6Ш6JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ$JЪЮШЪЬ6Ш6JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ#JЪЮШЪЬ5Ш5JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ#JЪЮШЪЬ5Ш5JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬЮЬШJЪЮШJЪЮЬЮЬЮЬ9ЮЬШPJЪЮЬЮЬЮЬ8ЮЬШNJЪЮЬ
ЮЬЮЬ;ЮЬШTJЪЮЬ	ЮЬЮЬ:ЮЬШRJЪЮЬШJШ ЧJЪЮЬШЧЧ ЕЧ    и  Й  