DIRECTORYCDProperties, CD;VersatecStipples: CEDAR PROGRAM IMPORTS CDProperties, CD =BEGINStipple4: TYPE = ARRAY [0..4) OF [0..16);Stipple8: TYPE = ARRAY [0..8) OF [0..256);currentTech: CD.Technology_NIL;cLev: CD.Level _ CD.combined;Technology: PROC[tech: ATOM] = BEGINIF currentTech#NIL THEN ERROR;currentTech _ CD.FetchTechnology[tech]END;End: PROC [] =BEGINcurrentTech _ NILEND;LevelModify: PROC[uniqueKey: ATOM] =BEGINcLev _ CD.FetchLevel[t: currentTech, uniqueKey: uniqueKey];END;Level: PROC[uniqueKey: ATOM] =BEGINcLev _ CD.FetchLevel[t: currentTech, uniqueKey: uniqueKey];Forgett[cLev]END;LevelNumber: PROC [lev: NAT] =BEGINcLev _ lev;Forgett[cLev]END;LevelNumberModify: PROC [lev: NAT] =BEGINcLev _ levEND;Black8: PROC [stipple: Stipple8] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecBlack, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Black4: PROC [stipple: Stipple4] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecBlack, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Cyan8: PROC [stipple: Stipple8] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecCyan,val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Cyan4: PROC [stipple: Stipple4] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecCyan,val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Magenta8: PROC [stipple: Stipple8] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecMagenta, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Magenta4: PROC [stipple: Stipple4] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecMagenta, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Yellow8: PROC [stipple: Stipple8] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecYellow, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple8 _ stipple]]END;Yellow4: PROC [stipple: Stipple4] =BEGINCDProperties.PutPropOnLevel[onto: cLev, prop: $CDxVersatecYellow, val: IF stipple=ALL[0] THEN NIL ELSE NEW[Stipple4 _ stipple]]END;Forgett: PROC [lev: NAT] =BEGINCDProperties.PutPropOnLevel[onto: lev, prop: $CDxVersatecBlack, val: NIL];CDProperties.PutPropOnLevel[onto: lev, prop: $CDxVersatecCyan, val: NIL];CDProperties.PutPropOnLevel[onto: lev, prop: $CDxVersatecMagenta, val: NIL];CDProperties.PutPropOnLevel[onto: lev, prop: $CDxVersatecYellow, val: NIL];END;END.    Т  VersatecStipples.mesaCopyright c 1984 by Xerox Corporation.  All rights reserved.Last Edited by: Ch. Jacobi, May 11, 1984 9:57:55 pm PDT Э╩о  Ш ЪЬЩJЪЬ
╧mЬ1Щ<JЩ7JШ ЧЪ╧k	Ш	JЪЬЮЬШЧЪ╧bЬЮЬЮЬШ JЪЮЬЮЬШJЪЮШJЪЬ
ЮЬЮЬЮЬ	Ш)JЪЬ
ЮЬЮЬЮЬ
Ш*JШ JШJЪЬЮЬ	ЮЬ
ШJШ Ъ╧n
ЬЮЬЮЬШJЪЮШ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ЪЮШЪЬAШAJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШJШ ЧЪаЬЮЬШ"JЪЮШЪЬAШAJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШJШ ЧЪаЬЮЬШ!JЪЮШЪЬ?Ш?JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ!JЪЮШЪЬ?Ш?JЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ$JЪЮШЪЬCШCJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ$JЪЮШЪЬCШCJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ#JЪЮШЪЬBШBJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬШ#JЪЮШЪЬBШBJЪЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШ<JЪЬШЧJЪЮЬШЧJШ ЪаЬЮЬЮЬШJЪЮШJЪЬEЮЬШJJЪЬDЮЬШIJЪЬGЮЬШLJЪЬFЮЬШKJЪЮЬШJШ ЧJЪЮЬШЧЧ ЕЧ    	╪    