DIRECTORY
CD USING [Design, Layer, NewLayer, Number, RegisterTechnology, Technology, backGround, highLightError, highLightShade],
CDColors USING [Brick, DefineColor],
CDIO USING [MakeName],
CDOps USING [CreateDesign],
CDPanel USING [DefineIntEntry, DefineLayerEntry, DefineNewLine],
CDPanelExtras,
CDPanelFonts,
CDSil USING [],
CDTipEtc USING [SetTipTable],
CDValue USING [StoreInt],
CDViewer USING [CreateViewer],
ColorMaps USING [RegisterMenu],
Commander USING [CommandProc, Register],
FileNames USING [CurrentWorkingDirectory],
IO USING [PutRope],
Rope USING [ROPE],
TerminalIO USING [WriteRope];

CDSilImpl: CEDAR PROGRAM
IMPORTS CD, CDTipEtc, CDColors, CDIO, CDOps, CDPanel, CDPanelExtras, CDPanelFonts, CDValue, CDViewer, ColorMaps, Commander, FileNames, IO, TerminalIO 
EXPORTS CDSil =
BEGIN

lambda: CD.Number = 2;
cdsil: PUBLIC CD.Technology ~ CD.RegisterTechnology[$chipnsil, "chipnsil", lambda];
xneutral: PUBLIC CD.Layer;		-- 00
xred: PUBLIC CD.Layer;		-- 01
xyellow: PUBLIC CD.Layer;		-- 02
xgreen: PUBLIC CD.Layer;		-- 03
xcyan: PUBLIC CD.Layer;		-- 04
xviolet: PUBLIC CD.Layer; 		-- 05
xmagenta: PUBLIC CD.Layer;		-- 06
xwhite: PUBLIC CD.Layer;		-- 07
xbrown: PUBLIC CD.Layer;		-- 08
xorange: PUBLIC CD.Layer;		-- 09
xlime: PUBLIC CD.Layer;		-- 10
xturquise: PUBLIC CD.Layer;		-- 11
xaqua: PUBLIC CD.Layer;		-- 12
xultraviolet: PUBLIC CD.Layer;		-- 13
xpink: PUBLIC CD.Layer;		-- 14
xsmoke: PUBLIC CD.Layer;		-- 15
xblue: PUBLIC CD.Layer;		-- not a Sil color

tipTable: Rope.ROPE _ NIL;


Load: Commander.CommandProc = 
BEGIN
cmd.out.PutRope["chipnsil loaded\n"];
END;

NewSWorld: Commander.CommandProc = 
BEGIN
design: CD.Design ~ CDOps.CreateDesign[cdsil];
[] _ CDViewer.CreateViewer[design];
END;

Init: PROC [] =
BEGIN
s1: CARDINAL = 1;
s2: CARDINAL = 16;
s3: CARDINAL = 16*16;
s4: CARDINAL = 16*16*16;
ss: CARDINAL = s1+s2+s3+s4;

Init8Patterns: PROC [] =
BEGIN

red: CARDINAL = 1;
green: CARDINAL = 2;
blue: CARDINAL = 4;
cyan: CARDINAL = 8;
magenta: CARDINAL = 16;
yellow: CARDINAL = 32;
white: CARDINAL = 64;
fakeAqua: CARDINAL = green+cyan;	-- 10
fakeTurquoise: CARDINAL = blue + cyan;	-- 12
fakeBrown: CARDINAL = green+magenta;	-- 18
fakeViolet: CARDINAL = cyan+magenta;	-- 24
fakeUltraviolet: CARDINAL = blue + cyan + magenta;	-- 28
orange: CARDINAL = red+yellow;	-- 33 this orange is better than the one used by Sil
fakeSmoke: CARDINAL = blue+yellow;	-- 36
fakeLime: CARDINAL = cyan+yellow;	-- 40
fakePink: CARDINAL = magenta + white;	-- 80
fakeBlack: CARDINAL = white-1; 
pixel1: CARDINAL = 1;
pixel3: CARDINAL = 256;

Mixture: PROC [col: CARDINAL] RETURNS [REF CDColors.Brick] ~ BEGIN
RETURN [Dither1to1 [col, col]]
END;

Dither1to1: PROC [col1, col2: CARDINAL _ white] RETURNS [REF CDColors.Brick] ~ BEGIN
RETURN [NEW [CDColors.Brick _ [col1*pixel1+col2*pixel3, col2*pixel1+col1*pixel3, col1*pixel1+col2*pixel3, col2*pixel1+col1*pixel3]]]
END;

Lighten: PROC[l: CD.Layer, color: CARDINAL] = 
BEGIN 
CDColors.DefineColor[l, Dither1to1[color], bit8, pushedOut];
END;

CDColors.DefineColor[xneutral, Mixture[fakeBlack], bit8];
CDColors.DefineColor[xred, Mixture[red], bit8];
CDColors.DefineColor[xyellow, Mixture[yellow], bit8];
CDColors.DefineColor[xgreen, Mixture[green], bit8]; 
CDColors.DefineColor[xcyan, Mixture[cyan], bit8];
CDColors.DefineColor[xviolet, Mixture[fakeViolet], bit8];
CDColors.DefineColor[xmagenta, Mixture[magenta], bit8];
CDColors.DefineColor[xwhite, Mixture[white], bit8];
CDColors.DefineColor[xbrown, Mixture[fakeBrown], bit8];
CDColors.DefineColor[xorange, Mixture[orange], bit8];
CDColors.DefineColor[xlime, Mixture[fakeLime], bit8];
CDColors.DefineColor[xturquise, Mixture[fakeTurquoise], bit8]; 
CDColors.DefineColor[xaqua, Mixture[fakeAqua], bit8];
CDColors.DefineColor[xultraviolet, Mixture[fakeUltraviolet], bit8];
CDColors.DefineColor[xpink, Mixture[fakePink], bit8];
CDColors.DefineColor[xsmoke, Mixture[fakeSmoke], bit8];
CDColors.DefineColor[xblue, Mixture[blue], bit8];

CDColors.DefineColor[CD.backGround, NEW[CDColors.Brick _ [8, 0, 256*8, 0]], bit8];
CDColors.DefineColor[CD.highLightError, NEW[CDColors.Brick _ [255, 0, 0, 0]], bit8];
CDColors.DefineColor[CD.highLightShade, NEW[CDColors.Brick_[0, 255,0 , 255]], bit8];

Lighten[xneutral, fakeBlack];
Lighten[xred, red];
Lighten[xyellow, yellow];
Lighten[xgreen, green];
Lighten[xcyan, cyan];
Lighten[xviolet, fakeViolet];
Lighten[xmagenta, magenta];
Lighten[xwhite, white];
Lighten[xbrown, fakeBrown];
Lighten[xorange, orange];
Lighten[xlime, fakeLime];
Lighten[xturquise, fakeTurquoise];
Lighten[xaqua, fakeAqua];
Lighten[xultraviolet, fakeUltraviolet];
Lighten[xpink, fakePink];
Lighten[xsmoke, fakeBlack];
Lighten[xblue, blue];
END;
blue: CARDINAL = 1;
green: CARDINAL = 2;
red: CARDINAL = 4;
yellow: CARDINAL = 14;
black: CARDINAL = 0FFFFH;

xneutral _ CD.NewLayer[cdsil, $xneutral];		-- 00
xred _ CD.NewLayer[cdsil, $xred];		-- 01
xyellow _ CD.NewLayer[cdsil, $xyellow];		-- 02
xgreen _ CD.NewLayer[cdsil, $xgreen];		-- 03
xcyan _ CD.NewLayer[cdsil, $xcyan];		-- 04
xviolet _ CD.NewLayer[cdsil, $xviolet];		-- 05
xmagenta _ CD.NewLayer[cdsil, $xmagenta];		-- 06
xwhite _ CD.NewLayer[cdsil, $xwhite];		-- 07
xbrown _ CD.NewLayer[cdsil, $xbrown];		-- 08
xorange _ CD.NewLayer[cdsil, $xorange];		-- 09
xlime _ CD.NewLayer[cdsil, $xlime];		-- 10
xturquise _ CD.NewLayer[cdsil, $xturquise];		-- 11
xaqua _ CD.NewLayer[cdsil, $xaqua];		-- 12
xultraviolet _ CD.NewLayer[cdsil, $xultraviolet];		-- 13
xpink _ CD.NewLayer[cdsil, $xpink];		-- 14
xsmoke _ CD.NewLayer[cdsil, $xsmoke];		-- 15
xblue _ CD.NewLayer[cdsil, $xblue];		-- not a Sil color

CDTipEtc.SetTipTable[cdsil, "Standard"];



CDColors.DefineColor[xneutral, 
NEW[CDColors.Brick_[8*s1, 0, 0, 0]], bit4];
CDColors.DefineColor[xneutral, 
NEW[CDColors.Brick_[05H*1111H, 0AH*1111H, 05H*1111H, 0AH*1111H]], bw];	-- 00

CDColors.DefineColor[xred, 
NEW[CDColors.Brick_[7*ss, 11*ss, 7*ss, 11*ss]], bit4];
CDColors.DefineColor[xred, 
NEW[CDColors.Brick_[8*ss, 4*ss, 2*ss, 1*ss]], bw];	-- 01

CDColors.DefineColor[xyellow, 
NEW[CDColors.Brick_[yellow*ss, yellow*ss, yellow*ss, yellow*ss]], bit4];
CDColors.DefineColor[xyellow, 
NEW[CDColors.Brick_[2*ss, 0, 2*ss, 0]], bw];	-- 02

CDColors.DefineColor[xgreen, 
NEW[CDColors.Brick_[green*ss, green*ss, green*ss, green*ss]], bit4];
CDColors.DefineColor[xgreen, 
NEW[CDColors.Brick_[4*ss, ss, 4*ss, ss]], bw];	-- 03

CDColors.DefineColor[xcyan, 
NEW[CDColors.Brick_[2*(s1+s2+s3), 2*ss, 2*(s1+s2+s3)+15*s4, 2*ss]], bit4];
CDColors.DefineColor[xcyan, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 04

CDColors.DefineColor[xviolet, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xviolet, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 05

CDColors.DefineColor[xmagenta, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xmagenta, 
NEW[CDColors.Brick_[8*ss, 8*ss, 2*ss, 2*ss]], bw];	-- 06

CDColors.DefineColor[xwhite, 
NEW[CDColors.Brick_[11*ss, 11*ss, 11*ss, 11*ss]], bit4];
CDColors.DefineColor[xwhite, 
NEW[CDColors.Brick_[4*ss, 0, 0, 0]], bw];	-- 07

CDColors.DefineColor[xbrown, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xbrown, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 08

CDColors.DefineColor[xorange, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xorange, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 09

CDColors.DefineColor[xlime, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xlime, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 10

CDColors.DefineColor[xturquise, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xturquise, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 11

CDColors.DefineColor[xaqua, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xaqua, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 12

CDColors.DefineColor[xultraviolet, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]], bit4];
CDColors.DefineColor[xultraviolet, 
NEW[CDColors.Brick_[0EH*1111H, 0DH*1111H, 0BH*1111H, 07H*1111H]], bw];	-- 13

CDColors.DefineColor[xpink, 
NEW[CDColors.Brick_[10*1111H, 10*1111H, 10*1111H, 10*1111H]] , bit4];
CDColors.DefineColor[xpink, 
NEW[CDColors.Brick_[8*ss, 2*ss, 0, 0]], bw];	-- 14

CDColors.DefineColor[xsmoke, 
NEW[CDColors.Brick_[red*ss, red*ss, red*ss, red*ss]], bit4];
CDColors.DefineColor[xsmoke, 
NEW[CDColors.Brick_[4*ss, 14*ss, 4*ss, 0*ss]], bw];	-- 15

CDColors.DefineColor[xblue, 
NEW[CDColors.Brick_[blue*ss, blue*ss, blue*ss, blue*ss]], bit4];
CDColors.DefineColor[xblue, 
NEW[CDColors.Brick_[7*ss, 11*ss, 7*ss, 11*ss]], bw];	-- not Sil

Init8Patterns[];

CDPanel.DefineLayerEntry[cdsil, xneutral, "black", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xwhite, "white", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xsmoke, "grey", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xred, "red", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xgreen, "green", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xblue, "blue", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xcyan, "cyan", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xmagenta, "magenta", 0, lambda];
CDPanel.DefineLayerEntry[cdsil, xyellow, "yellow", 0, lambda];
CDPanel.DefineIntEntry[cdValueKey: $CDxSelectNewMode, tech: cdsil,
text: "select new:", min: 0, max: 1, default: 1];
CDPanel.DefineNewLine[cdsil];

CDPanelExtras.DefineIntEntryX[cdValueKey: $CDxStepValue, tech: cdsil, text: "step moves   size:", min: 1, default: 8];
CDPanel.DefineIntEntry[cdValueKey: $CDxStretchyMove, tech: cdsil,
text: "stretchy:", min: 0, max: 1, default: 0];
CDPanel.DefineNewLine[cdsil];

CDValue.StoreInt[boundTo: cdsil, key: $CDxInitScale, value: 9];
CDValue.StoreInt[boundTo: cdsil, key: $CDxInitGrid, value: 8];

ColorMaps.RegisterMenu["ChipNSil", CDIO.MakeName["ChipNSil", "ColorMap", FileNames.CurrentWorkingDirectory[]]];

CDPanelFonts.ImplementIt[cdsil];

Commander.Register[  
key: "CDSil", 
proc: Load,
doc: "loads ChipNSil"
];
Commander.Register[  
key: "cdnewsil", 
proc: NewSWorld,
doc: "Creates new chipndale 'sil' design"
];
TerminalIO.WriteRope["ChipNSil loaded [version of Oct 1, 1985]\n"];
END;

Init[]
END.


ͺCDSilImpl.mesa
Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.
by Ch. Jacobi   August 11, 1983 3:56 pm
Last Edited by: Ch. Jacobi, December 24, 1985 4:32:58 pm PST
gbb September 13, 1985 2:08:54 pm PDT
The colours are the same as on Alto Sil with the addition of blue.

Pixels in a dither:
1	2
3	4
5	6
7	8
Each pixel has 8 bits, one for every element in the table cDefaults.
Full colour
Dither 1 to 1
HackContextColors[];

--4bit colors--
the 1 bit pattern are fair but not great
the 4 bit pattern are nice with cmos-chipmonk
the 8 bit pattern don't fit anywhere
CDColors.DefineColor[xneutral, 
NEW[CDColors.Brick_[black, black, black, black]], bw];	-- 00

Κ+˜š
œ™Jšœ
Οm
œ7™BJš
œ'™'Jš
œ<™<Icode™%—J˜š
Οk	˜	Kšžœ
žœo˜wKšœ	žœ˜$Kšžœ
žœ˜Kšœžœ˜Kšœžœ3˜@Kš
œ˜Kš
œ
˜
Kšœžœ˜Kšœ	žœ˜Kšœžœ˜Kšœ	žœ˜Kšœ
žœ˜Kšœ
žœ˜(Kšœ
žœ˜*Kšžœ
žœ˜Kšœžœžœ˜Kšœžœ
˜J˜—šΟb	œžœ
ž˜Jšžœ
žœŒ
˜–
Jšžœ˜—Jš
ž˜˜J˜Jšœž	œžœ3˜SJ™BJšœ
žœ
žœΟe˜!Jšœžœ
žœ ˜Jšœ	žœ
žœ ˜ Jšœžœ
žœ ˜Jšœžœ
žœ ˜Jšœ	žœ
žœ
 ˜!Jšœ
žœ
žœ ˜!Jšœžœ
žœ ˜Jšœžœ
žœ ˜Jšœ	žœ
žœ ˜ Jšœžœ
žœ ˜Jšœžœ
žœ ˜"Jšœžœ
žœ ˜Jšœžœ
žœ ˜%Jšœžœ
žœ ˜Jšœžœ
žœ ˜Jšœžœ
žœ ˜+J˜Jšœžœžœ
˜J˜—J˜šΟnœ˜Jš
ž˜Jš
œ%˜%Jšžœ
˜J˜—š‘	œ˜#Jš
ž˜Jšœžœ$˜.J˜#Jšžœ
˜—J˜š‘œžœ˜Jš
ž˜Jšœžœ˜Jšœžœ˜Jšœžœ	˜Jšœžœ˜Jšœžœ˜J˜š‘
œ˜Kš
ž˜K˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœ	žœ˜Kšœžœ˜Kšœžœ˜Kšœ
žœΟc˜&Kšœžœ’˜,Kšœžœ’˜*Kšœžœ’˜*Kšœžœ’˜8Kšœžœ’4˜SKšœžœ’˜(Kšœ
žœ’˜'Kšœ
žœ’˜+Kšœžœ˜K™™K™K™K™K™—Kšœ: 
™DKšœžœ˜Kšœžœ˜K˜š‘œžœžœžœžœž˜BK™Kšžœ˜Kšžœ
˜—K˜š‘
œžœžœ
žœžœž˜TK™
Kšžœ
žœx˜„
Kšžœ
˜—K˜š‘œžœžœžœ˜.Kšžœ
˜Kš
œ<˜<Kšžœ
˜—K˜Kš
œ9˜9Kš
œ/˜/Kš
œ5˜5Kš
œ4˜4Kš
œ1˜1Kš
œ9˜9Kš
œ7˜7Kš
œ3˜3Kš
œ7˜7Kš
œ5˜5Kš
œ5˜5Kš
œ?˜?Kš
œ5˜5Kš
œC˜CKš
œ5˜5Kš
œ7˜7Kš
œ1˜1K˜Kšœžœ
žœ+˜RKšœžœžœ)˜TKšœžœžœ)˜TK˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ"˜"Kš
œ˜Kš
œ'˜'Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ™Kšžœ
˜—J™Jš
œ™Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ
˜J˜Jšœžœ! ˜0Jšœžœ ˜(Jšœ
žœ  ˜.Jšœ	žœ ˜,Jšœžœ ˜*Jšœ
žœ  ˜.Jšœžœ! ˜0Jšœ	žœ ˜,Jšœ	žœ ˜,Jšœ
žœ  ˜.Jšœžœ ˜*Jšœžœ" ˜2Jšœžœ ˜*Jšœžœ% ˜8Jšœžœ ˜*Jšœ	žœ ˜,Jšœžœ ˜7J˜Jš
œ(˜(J˜Jš
œ(™(Jš
œ-™-Jš
œ$™$J˜J˜š
œ˜Jšžœ(˜+—š
œ˜JšžœG ˜Lš
œ™Jšžœ7 ™<——J˜š
œ˜Jšžœ3˜6—š
œ˜Jšžœ3 ˜8—J˜š
œ˜JšžœE˜H—š
œ˜Jšžœ- ˜2J˜—š
œ˜JšžœA˜D—š
œ˜Jšžœ/ ˜4J˜—š
œ˜JšžœG˜J—š
œ˜JšžœG ˜LJ˜—š
œ˜JšžœA˜D—š
œ˜JšžœG ˜LJ˜—š
œ˜JšžœA˜D—š
œ˜Jšžœ3 ˜8J˜—š
œ˜Jšžœ5˜8—š
œ˜Jšžœ* ˜/J˜—š
œ˜JšžœA˜D—š
œ˜JšžœG ˜LJ˜—š
œ˜JšžœA˜D—š
œ˜JšžœG ˜LJ˜—š
œ˜JšžœA˜D—š
œ˜JšžœG ˜LJ˜—š
œ ˜ JšžœA˜D—š
œ ˜ JšžœG ˜LJ˜—š
œ˜JšžœA˜D—š
œ˜JšžœG ˜LJ˜—š
œ#˜#JšžœA˜D—š
œ#˜#JšžœG ˜LJ˜—š
œ˜JšžœB˜E—š
œ˜Jšžœ- ˜2J˜—š
œ˜Jšžœ9˜<—š
œ˜Jšžœ4 ˜9——˜š
œ˜Jšžœ=˜@—š
œ˜Jšžœ5 ˜?—J˜Jš
œ˜J˜Jšœ6žœ˜>Jšœ4žœ˜<Jšœ3žœ˜;Jšœ0žœ˜8Jšœ4žœ˜<Jšœ2žœ˜:Jšœ2žœ˜:Jšœ8žœ˜@Jšœ6žœ˜>J™š
œB˜BJ˜1—Jš
œ˜J˜Jš
œv˜vš
œA˜AJ˜/—Jš
œ˜J˜Jš
œ?˜?Jš
œ>˜>J˜Kšœ#žœH˜oJ˜Jš
œ ˜ J˜š
œ˜J˜J˜J˜Jš
œ˜—š
œ˜Jš
œ˜J˜Jš
œ)˜)J˜—J˜CJšžœ
˜J˜—J˜Jšžœ
˜J˜J˜—…—(Β6—