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.    X  --VersatecStipples.mesa--Last Edited by: Ch. Jacobi, May 11, 1984 9:57:55 pm PDTЭ╩б  Ш JЪЬЩJЩ9JШ Ъ╧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ЪЭЬШЧЧ ЕЧ    	╪  ╤  