DIRECTORY CD USING [Design, Layer, NewLayer, Number, RegisterTechnology, Technology, backgroundLayer, errorLayer, shadeLayer], CDColors USING [Brick, DefineColor, DefineIColor], CDEnvironment USING [SetTipTable], CDIO USING [MakeName], CDOps USING [CreateDesign], CDPanel USING [DefineIntEntry, DefineLayerEntry, DefineNewLine], CDPanelFonts, CDSil USING [], CDValue USING [StoreInt], CDViewer USING [CreateViewer], ColorMaps USING [RegisterMenu], Commander USING [CommandProc, Register], FileNames USING [CurrentWorkingDirectory], ImagerColor USING [ColorFromRGB], IO USING [PutRope], Rope USING [ROPE], TerminalIO USING [WriteRope]; CDSilImpl: CEDAR PROGRAM IMPORTS CD, CDColors, CDEnvironment, CDIO, CDOps, CDPanel, CDPanelFonts, CDValue, CDViewer, ColorMaps, Commander, FileNames, ImagerColor, 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.DefineIColor [xneutral, ImagerColor.ColorFromRGB [rgb: [R: 0, G: 0, B: 0]], bit8]; CDColors.DefineIColor [xred, ImagerColor.ColorFromRGB [rgb: [R: 1, G: 0, B: 0]], bit8]; CDColors.DefineIColor [xyellow, ImagerColor.ColorFromRGB [rgb: [R: 1, G: 1, B: 0]], bit8]; CDColors.DefineIColor [xgreen, ImagerColor.ColorFromRGB [rgb: [R: 0, G: 1, B: 0]], bit8]; CDColors.DefineIColor [xcyan, ImagerColor.ColorFromRGB [rgb: [R: 0, G: 1, B: 1]], bit8]; CDColors.DefineIColor [xviolet, ImagerColor.ColorFromRGB [rgb: [R: 0.45, G: 0.25, B: 0.75]], bit8]; CDColors.DefineIColor [xmagenta, ImagerColor.ColorFromRGB [rgb: [R: 1, G: 0, B: 1]], bit8]; CDColors.DefineIColor [xwhite, ImagerColor.ColorFromRGB [rgb: [R: 1, G: 1, B: 1]], bit8]; CDColors.DefineIColor [xbrown, ImagerColor.ColorFromRGB [rgb: [R: 0.64, G: 0.2752, B: 0.16]], bit8]; CDColors.DefineIColor [xorange, ImagerColor.ColorFromRGB [rgb: [R: 0.64, G: 0.2752, B: 0.16]], bit8]; CDColors.DefineIColor [xlime, ImagerColor.ColorFromRGB [rgb: [R: 0.39, G: 0.75, B: 0.75]], bit8]; CDColors.DefineIColor [xturquise, ImagerColor.ColorFromRGB [rgb: [R: 0.42, G: 0.7, B: 0.92]], bit8]; CDColors.DefineIColor [xaqua, ImagerColor.ColorFromRGB [rgb: [R: 0.42, G: 0.92, B: 0.55]], bit8]; CDColors.DefineIColor [xultraviolet, ImagerColor.ColorFromRGB [rgb: [R: 0.13, G: 0, B: 0.33]], bit8]; CDColors.DefineIColor [xpink, ImagerColor.ColorFromRGB [rgb: [R: 0.9, G: 0.45, B: 0.55]], bit8]; CDColors.DefineIColor [xsmoke, ImagerColor.ColorFromRGB [rgb: [R: 0.5, G: 0.5, B: 0.5]], bit8]; CDColors.DefineIColor [xblue, ImagerColor.ColorFromRGB [rgb: [R: 0, G: 0, B: 1]], bit8]; 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.backgroundLayer, NEW[CDColors.Brick _ [8, 0, 256*8, 0]], bit8]; CDColors.DefineColor [CD.errorLayer, NEW[CDColors.Brick _ [255, 0, 0, 0]], bit8]; CDColors.DefineColor [CD.shadeLayer, 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 CDEnvironment.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, xblue, "blue", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xgreen, "green", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xmagenta, "magenta", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xcyan, "cyan", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xyellow, "yellow", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xpink, "pink", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xorange, "orange", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xbrown, "brown", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xlime, "lime", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xaqua, "aqua", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xturquise, "turquise", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xviolet, "violet", 0, lambda]; CDPanel.DefineLayerEntry [cdsil, xultraviolet, "UV", 0, lambda]; CDPanel.DefineIntEntry [cdValueKey: $CDxSelectNewMode, tech: cdsil, text: "select new:", min: 0, max: 1, default: 1]; CDPanel.DefineNewLine [cdsil]; CDPanel.DefineIntEntry [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: "///Commands/CDSil", proc: Load, doc: "Loads ChipNSil"]; Commander.Register [key: "///Commands/CDNewSil", proc: NewSWorld, doc: "Creates new chipndale 'sil' design"]; TerminalIO.WriteRope ["ChipNSil loaded [version of April 7, 1986].\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, March 19, 1986 5:10:29 pm PST gbb August 5, 1986 12:04:13 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 4 bit 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 gbb July 18, 1986 10:58:32 am PDT Duplicated the "imager colors" from CDSil8BitColors. changes to: DIRECTORY, Init8Patterns (local of Init) gbb July 24, 1986 5:19:00 pm PDT Eliminated registration of a tip table. changes to: DIRECTORY, CDSilImpl, Init gbb August 5, 1986 12:03:44 pm PDT Implemented registration of a dummy tip table. changes to: DIRECTORY, Init Κ ,˜codešœ™Kšœ Οmœ7™BKšœ'™'Kšœ9™9K™"—code2šΟk ˜ Kšžœžœl˜tKšœ žœ$˜2Kšœžœ˜"Kšžœžœ ˜Kšœžœ˜Kšœžœ3˜@Kšœ ˜ Kšœžœ˜Kšœžœ ˜Kšœ žœ˜Kšœ žœ˜Kšœ žœ˜(Kšœ žœ˜*Kšœ žœ˜!Kšžœžœ ˜Kšœžœžœ˜Kšœ žœ ˜—šΟb œžœž˜Lšžœžœžœažœ ˜˜Lšžœ˜—šž˜Lšœžœ ˜Kšœž œžœ4˜TIunit™BKšœ žœžœ Οe˜ Kšœžœžœ  ˜Kšœ žœžœ  ˜Kšœžœžœ  ˜Kšœžœžœ  ˜Kšœ žœžœ  ˜ Kšœ žœžœ  ˜ Kšœžœžœ  ˜Kšœžœžœ  ˜Kšœ žœžœ  ˜Kšœžœžœ  ˜Kšœ žœžœ  ˜!Kšœžœžœ  ˜Kšœžœžœ  ˜$Kšœžœžœ  ˜Kšœžœžœ  ˜Kšœžœžœ  ˜+Lšœžœžœ˜—šΟnœž˜#Kšœ'˜'Kšžœ˜—š‘ œž˜(Kšœžœ%˜/K˜$Kšžœ˜—š‘œžœž˜Kšœžœ˜Kšœžœ˜Kšœžœ ˜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šœ:  ™DKšœžœ˜Kšœžœ˜š ‘œžœžœžœžœž˜BK™ Kšžœ˜Kšžœ˜—š ‘ œžœžœ žœžœž˜TK™ Kšžœžœx˜„Kšžœ˜—š ‘œžœžœžœžœ˜5Kšœ<˜