DIRECTORY
CDExtras,
CDSequencer,
ColorMap, 
ColorWorld, 
Commander USING [CommandProc, Register],
Convert, 
FS,
IO,
Rope,
Terminal,
TerminalIO,
UserProfile,
WindowManager; 

CDColorsImpl: CEDAR PROGRAM
IMPORTS CDExtras, CDSequencer, ColorMap, ColorWorld, Commander, Convert, FS, IO, Rope, Terminal, TerminalIO, UserProfile, WindowManager =
BEGIN

virtual: Terminal.Virtual = Terminal.Current[];

MyBackGround: TYPE = {whiteBackground, blackBackground};
myBackGround: MyBackGround _ whiteBackground;

Is4BitMode: PROC [] RETURNS [yes: BOOL_FALSE] =
BEGIN
IF virtual.hasColorDisplay AND WindowManager.colorDisplayOn THEN {
m: Terminal.ColorMode = Terminal.GetColorMode[virtual];
yes _ ~m.full AND m.bitsPerPixelChannelA=4
};  
END;

XCursor: PROC[] =
BEGIN
c: Terminal.ColorCursorPresentation _ Terminal.GetColorCursorPresentation[virtual];
c _ IF c=onesAreWhite THEN onesAreBlack ELSE onesAreWhite; 
[] _ Terminal.SetColorCursorPresentation[virtual, c];
END;

SetCursor: PROC[onesWhite: BOOL] =
BEGIN
c: Terminal.ColorCursorPresentation _ Terminal.GetColorCursorPresentation[virtual];
IF onesWhite THEN {IF c#onesAreWhite THEN XCursor[]}
ELSE {IF c=onesAreWhite THEN XCursor[]};
END;

SetMyColor: PROC [p: MyBackGround_whiteBackground] =
BEGIN
SetParityColors: PROC [p: MyBackGround] =
BEGIN
IF virtual.hasColorDisplay THEN {
m: Terminal.ColorMode = Terminal.GetColorMode[virtual];
highIndex: CARDINAL = IF m.bitsPerPixelChannelA=8 THEN 255 ELSE 15;
IF m.full THEN RETURN;
IF p=blackBackground THEN {
ColorMap.SetRGBColor[index: highIndex, r:1, g:1, b:1]; -- [white] outline
ColorMap.SetRGBColor[index: 0, r:0, g:0, b:0]; -- [black] background
}
ELSE {
ColorMap.SetRGBColor[index: highIndex, r:0, g:0, b:0]; -- [black] outline
ColorMap.SetRGBColor[index: 0, r:1, g:1, b:1]; -- [white] background
}
}
END;
myBackGround _ p;
IF virtual.hasColorDisplay AND WindowManager.colorDisplayOn THEN 
BEGIN 
m: Terminal.ColorMode = Terminal.GetColorMode[virtual];
IF m.full OR m.bitsPerPixelChannelA<4 THEN RETURN;
[] _ Terminal.SetColorCursorPresentation[virtual, onesAreWhite];
SetParityColors[p];
ColorMap.SetRGBColor[index: 1, r:0, g:1, b:0]; -- [green] diff
ColorMap.SetRGBColor[index: 2, r:0, g:0, b:1]; -- [blue] met
ColorMap.SetRGBColor[index: 4, r:1, g:0, b:0]; -- [red] poly
ColorMap.SetRGBColor[index: 8, r:0.9, g:0.9, b:0]; 

ColorMap.SetRGBColor[index: 3, r:0, g:0.4, b:0.7]; -- met+diff
ColorMap.SetRGBColor[index: 5, r:0.8, g:0.3, b:0]; -- poly+diff
ColorMap.SetRGBColor[index: 6, r:0.5, g:0, b:0.5]; -- poly+met
ColorMap.SetRGBColor[index: 7, r:0.8, g:0.3, b:0.6]; -- poly+diff+met
ColorMap.SetRGBColor[index: 9, r:0.9, g:0.8, b:0.9]; --nearly background
ColorMap.SetRGBColor[index: 10, r:0.8, g:0.9, b:0.8]; -- nearly background 
ColorMap.SetRGBColor[index: 11, r:0.0, g:0.9, b:0.8]; 
ColorMap.SetRGBColor[index: 12, r:1, g:0.2, b:0.2]; 
ColorMap.SetRGBColor[index: 13, r:1, g:1, b:0.2]; 
ColorMap.SetRGBColor[index: 14, r:1, g:1, b:0.0]; -- [yellow] imp
END
END;

cTabCnt: CARDINAL _ 0; 
colorTabsNum: CARDINAL = 40;
colorTabs: REF ColorTabs _ NEW[ColorTabs];
ColorTabs: TYPE = ARRAY [0..colorTabsNum) OF ARRAY [0..49) OF CARDINAL;

SetChipmonkColorMap: PROC [i: INT] =
BEGIN
IF i=0 THEN {SetMyColor[myBackGround]; RETURN};
IF Is4BitMode[] THEN {
IF i>0 AND i<=cTabCnt THEN {
--gamma: REAL = ColorMap.GetGamma[];
ColorMap.SetGamma[1.0];
i _ i-1;
FOR j: CARDINAL IN [0..16) DO
r: REAL = MAX[0, MIN[1, 1.0/255*(255-colorTabs[i][1+j*3])]];
g: REAL = MAX[0, MIN[1, 1.0/255*(255-colorTabs[i][2+j*3])]];
b: REAL = MAX[0, MIN[1, 1.0/255*(255-colorTabs[i][3+j*3])]];
ColorMap.SetRGBColor[index: j, r:r, g:g, b:b];
ENDLOOP;
--ColorMap.SetGamma[gamma];
ColorMap.SetGamma[2.2];
}
ELSE TerminalIO.WriteRope["out of range\n"];
}
ELSE TerminalIO.WriteRope["not in 4 bit mode\n"];
END;

SetColorBPP: PROC [bpp: CARDINAL, pos: WindowManager.ScreenPos, force: BOOL_FALSE] =
BEGIN
m: Terminal.ColorMode = Terminal.GetColorMode[virtual];
IF WindowManager.colorDisplayOn THEN {
IF NOT force AND NOT m.full AND m.bitsPerPixelChannelA=bpp THEN {
SetMyColor[myBackGround];
RETURN;
};
WindowManager.StopColorViewers[];
};
WindowManager.StartColorViewers[screenPos: pos, bitsPerPixel: bpp];
SetMyColor[myBackGround];
END;

DoColor: PROC[] =
BEGIN
n: CARDINAL;
IF NOT ColorWorld.HasMode[4] THEN 
   {TerminalIO.WriteRope["no color display\n"]; RETURN};
n _ TerminalIO.RequestSelection[
label: "color",
choice: IF ColorWorld.HasMode[8] THEN
LIST["cedar", "readentry", "mycolors", "Cursor-X", "4 bit left", "4 bit right", "8 bit left", "8 bit right"] 
ELSE LIST["cedar", "readentry", "mycolors", "Cursor-X", "4 bit left", "4 bit right"]
];
SELECT n FROM
1 => {ColorMap.StandardMap[]; WindowManager.RestoreCursor[]; SetCursor[FALSE]};
2 => {SetColorMap[]};
3 => SetMyColor[IF myBackGround=whiteBackground THEN blackBackground ELSE whiteBackground];
4 => XCursor[];
5 => SetColorBPP[4, left, TRUE];
6 => SetColorBPP[4, right, TRUE];
7 => SetColorBPP[8, left, TRUE];
8 => SetColorBPP[8, right, TRUE];
ENDCASE => TerminalIO.WriteRope["skipped\n"];
END;

SetColorMap: PROC [val: INT_-1, file: Rope.ROPE_NIL] =
BEGIN
IF cTabCnt=0 THEN ReadCMColorMap[file];
IF cTabCnt=0 THEN {TerminalIO.WriteRope["no color map table read\n"]; RETURN};
IF NOT Is4BitMode[] THEN {TerminalIO.WriteRope["not in 4 bit mode\n"]; RETURN};
IF val<0 THEN {
TerminalIO.WriteRope["color map ( <="];
TerminalIO.WriteInt[cTabCnt];
TerminalIO.WriteRope[") > "];
val _ TerminalIO.RequestInt["" ! TerminalIO.UserAbort => GOTO UserAbort];
};
SetChipmonkColorMap[val] 
EXITS
UserAbort => {NULL};
END;

ReadCMColorMap: PROC [fileName: Rope.ROPE_NIL] =
BEGIN
binfile: IO.STREAM;
k, i: CARDINAL;
GetByte: PROC [] RETURNS[c: [0..255]] = INLINE {
c _ LOOPHOLE[IO.GetChar[binfile], [0..255]];
};
Get2Bytes: PROC [] RETURNS [c: CARDINAL] = INLINE {
h: [0..255] = GetByte[];
c _ h*256+GetByte[];
};
IF Rope.IsEmpty[fileName] THEN fileName_UserProfile.Token[
key: "Chipndale.ChipmonkColorMaps", 
default: "default.CDColorMaps"
];
fileName _ CDExtras.AppendExt[fileName, "CDColorMaps"];
binfile _ FS.StreamOpen[fileName ! FS.Error => 
IF error.group # bug THEN {
TerminalIO.WriteRope[fileName];
TerminalIO.WriteRope[" not opened: "];
TerminalIO.WriteRope[error.explanation]; 
TerminalIO.WriteLn[];
GOTO FileName 
}];
cTabCnt _ 0;
k _ MIN[Get2Bytes[], colorTabsNum];
FOR k IN [0..k) DO
FOR i IN [0..49) DO colorTabs[k][i] _ Get2Bytes[]; ENDLOOP;
ENDLOOP;
IO.Close[binfile];
cTabCnt _ k
EXITS
FileName => {NULL};
END;

ColorMenu: CDSequencer.CommandProc = {DoColor[]};
ColorMapMenu: CDSequencer.CommandProc = {SetColorMap[]};

ColorComm: Commander.CommandProc = 
BEGIN
s: IO.STREAM ~ IO.RIS[cmd.commandLine];
bbp: INT _ 0;
side: INT _ 0;
DO
token: Rope.ROPE _ IO.GetTokenRope[s ! IO.EndOfStream => EXIT].token;
IF Rope.IsEmpty[token] THEN EXIT;
SELECT Rope.Fetch[token, 0] FROM
'4 => bbp _ 4;
'8 => bbp _ 8;
'r, 'R => side _ 1;
'l, 'L => side _ -1;
ENDCASE => EXIT;
ENDLOOP;
IF bbp>0 AND side#0 THEN SetColorBPP[bbp, IF side=1 THEN right ELSE left, TRUE]
ELSE DoColor[]
END;

ColorMapComm: Commander.CommandProc = 
BEGIN
mapNum: INT _ -1;
mapFile: Rope.ROPE _ NIL;
s: IO.STREAM ~ IO.RIS[cmd.commandLine];
DO
token: Rope.ROPE _ IO.GetTokenRope[s ! IO.EndOfStream => EXIT].token;
IF Rope.IsEmpty[token] THEN EXIT;
IF Rope.Fetch[token, 0] IN ['0..'9] THEN {
mapNum _ Convert.IntFromRope[token ! Convert.Error => EXIT];
}
ELSE mapFile _ CDExtras.AppendExt[token, "CDColorMaps"];
ENDLOOP;
SetColorMap[mapNum, mapFile]
END;

IF ColorWorld.HasMode[4] OR ColorWorld.HasMode[8] THEN {
strategy: INT = UserProfile.Number[key: "Chipndale.ColorStartBits", default: -1];
colorMapNum: INT = UserProfile.Number[key: "Chipndale.ChipmonkColorMapNum", default: -1];
pos: WindowManager.ScreenPos = 
IF UserProfile.Boolean[key: "Chipndale.ColorStartLeft", default: TRUE] THEN left ELSE right;
myBackGround: MyBackGround _ whiteBackground;
IF UserProfile.Boolean[key: "Chipndale.ColorBackWhite", default: FALSE] THEN myBackGround _ whiteBackground;
IF UserProfile.Boolean[key: "Chipndale.ColorBackBlack", default: FALSE] THEN myBackGround _ blackBackground;
SetCursor[UserProfile.Boolean[key: "Chipndale.CursorOnesWhite", default: TRUE]];
IF strategy=0 THEN {SetMyColor[myBackGround]}
ELSE IF strategy=4 THEN SetColorBPP[4, pos]
ELSE IF strategy=8 THEN SetColorBPP[8, pos];
IF colorMapNum>0 THEN {
ReadCMColorMap[];
SetChipmonkColorMap[colorMapNum]
};
};
Commander.Register[  
	key: "CDColor", 
	proc: ColorComm,
	doc: "Chipndale color setup"
	];
Commander.Register[  
key: "CDColorMap", 
proc: ColorMapComm,
doc: "read colormap from chipmonk file"
];
CDSequencer.ImplementCommand[$ColorMenu, ColorMenu];
END.

šCDColorsImpl.mesa 
by Ch. Jacobi October 28, 1983 4:21 pm
last edited by Christian Jacobi   November 1, 1983 2:44 pm
--p only in [whiteBackground, blackBackground]
--force position by putting off and on again
-- val<0 :  read it
-- val>=0 : use it 
-- Module initialization
--strategy is
--	-1 don't touch
--	0 take bitmode as is and initialize, if possible
--	>0 do bitmode and initialize, if possible
Κ
ο˜Jš
œ™Jš
œ&™&Jš
œ:™:J˜š
Οk	˜	Jš
œ	˜	Jš
œ˜Jš
œ
˜
Jš
œ˜Jšœ
œ˜(Jš
œ	˜	Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ	˜	Jš
œ˜Jš
œ˜Jš
œ˜—J˜šΟbœœ
˜Jšœ‚
˜‰
—Jš
˜J˜Jš
œ/˜/J˜Jšœœ&˜8Jš
œ-˜-J˜š
Οn
œœœœ
œ˜/Jš
˜šœœœ˜BJš
œ7˜7Jšœœ˜*Jš
œ˜—Jšœ
˜—J˜šŸœœ˜Jš
˜Jš
œS˜SJšœœœœ˜;Jš
œ5˜5Jšœ
˜J˜—šŸ	œœœ˜"Jš
˜Jš
œS˜SJšœœœœ˜4Jšœœœ˜(Jšœ
˜J˜—šŸ
œœ$˜4Jš
˜šŸœœ˜)Jš
œ.™.Jš
˜šœœ˜!Jš
œ7˜7Jš	œœœœœ˜CJšœœ
œ
˜šœœ˜Jšœ6Οc˜IJšœ/ ˜DJ˜
—šœ˜Jšœ7 ˜IJšœ/ ˜DJ˜
—J˜
—Jšœ
˜—Jš
œ˜šœœœ
˜AJšœ
˜Jš
œ7˜7Jšœœœ
œ
˜2Jš
œ@˜@Jš
œ˜Jšœ/ ˜>Jšœ/ 
˜<Jšœ/ 
˜<Jšœ3 
˜4Jšœ3 ˜>Jšœ3 ˜?Jšœ3 ˜>Jšœ5 ˜EJšœ5 ˜HJšœ6 œ
˜KJš
œ6˜6Jš
œ4˜4Jš
œ2˜2Jšœ2 ˜AJš
˜—Jšœ˜—Jšœ	œ˜Jšœœ˜Jšœœ
œ˜*Jš
œœœœ
œ	œ
œ
˜GJ˜šŸœœœ˜$Jš
˜Icodešœœœ˜/šœœ˜šœœœ˜Kš
œ$˜$Kš
œ˜Kš
œ˜šœœ
œ	˜Kšœœœœ(˜<Kšœœœœ(˜<Kšœœœœ(˜<Kš
œ.˜.Kš
˜—Kš
œ˜Kš
œ˜K˜
—Jšœ(˜,J˜
—Jšœ-˜1Jšœ
˜—J˜š
Ÿœœœ'œ
œ˜TJš
œ,™,Jš
˜Jš
œ7˜7šœœ˜&šœ
œœ
œœœ˜AJš
œ˜Jšœ
˜J˜—Jš
œ!˜!J˜—Jš
œC˜CJš
œ˜Jšœ
˜—J˜šŸœœ˜Jš
˜Jšœœ
˜Jšœ
œœ2œ˜[š
œ ˜ J˜šœœ˜%Jšœi˜mJšœ
œK˜T—J˜—šœ˜
JšœGœ˜OJš
œ˜Jšœœœœ˜[J˜Jšœœ˜ Jšœœ˜!Jšœœ˜ Jšœœ˜!Jšœ&˜-—Jšœ˜—š
Πbnœœœœ
œ˜6Jš
œ™Jš
œ™Jš
˜Jšœœ˜'Jšœœ5œ˜NJšœ
œœ/œ˜Ošœœ˜Jš
œ'˜'Jš
œ˜Jš
œ˜Jšœ9œ˜IJ˜—Jš
œ˜š
˜Jšœœ˜—Jšœ
˜—J˜š‘œœœ
œ˜0Jš
˜Jšœ	œ
œ
˜Jšœœ
˜šŸœœœœ˜0Jšœœ
œ˜,Jš
œ˜—š
Ÿ	œœœœœ˜3Jš
œ˜Jš
œ˜J˜—šœœ˜:Jš
œ$˜$Jš
œ˜Jš
œ˜—Jš
œ7˜7Jšœ
œœ
˜/šœœ˜Jš
œ˜Jš
œ&˜&Jš
œ)˜)Jš
œ˜Jšœ
˜Jš
œ˜—Jš
œ˜Jšœœ˜#šœœ˜Jšœœ	œ œ
˜;Jšœ
˜—Jšœ˜Jš
œ˜š
˜Jšœ
œ˜—Jšœ
˜—J˜Jšž	œ(˜1Jšžœ,˜8J˜šž	œ˜#Jš
˜Jš	œœ
œœ
œ˜'Jšœœ˜
Jšœœ˜š
˜Jš	œœœœœ˜EJšœœ
œ
˜!šœ˜ J˜J˜J˜J˜Jšœœ
˜—Jšœ
˜—Jšœœœœœœœ
˜OJšœ
˜Jšœ
˜—J˜šžœ˜&Jš
˜Jšœœ˜Jšœœœ
˜Jš	œœ
œœ
œ˜'š
˜Jš	œœœœœ˜EJšœœ
œ
˜!šœœ
œ˜*Jšœ6œ˜<J˜
—Jšœ4˜8Jšœ
˜—Jš
œ˜šœ
˜J˜——Jš
œ™šœœœ˜8Jš
œ
™
Jš
œ™Jš
œ3™3Jš
œ,™,Jšœ
œD˜QJšœ
œI˜Yš
œ˜Jšœ?œœœ˜\—Jš
œ-˜-Jšœ?œœ ˜lJšœ?œœ ˜lJšœIœ˜PJšœœ˜-Jšœ
œœ˜+Jšœ
œœ˜,šœœ˜Jš
œ˜Jš
œ ˜ J˜—J˜—Jš
œ[˜[š
œ˜J˜Jš
œ˜˜'Jš
œ˜——Jš
œ4˜4Jšœ
˜—…—!¨.1