DIRECTORY
PrincOps,
PrincOpsUtils,
Buttons,
ViewerOps,
CKViewerPanel,
CKViewerButtons,
GraphicsColor,
MessageWindow,
Basics,
Real,
Process,
Terminal,
Interminal;

CKViewerOps: PROGRAM
IMPORTS PrincOpsUtils, Buttons, Terminal, Interminal, Basics, Real, Process, MessageWindow, CKViewerButtons, ViewerOps
EXPORTS CKViewerButtons, CKViewerPanel = BEGIN

OPEN MW: MessageWindow;
CKViewer: TYPE = CKViewerButtons.CKViewer;
CKViewerState: TYPE = CKViewerButtons.CKViewerState;
sym: BOOLEAN _ FALSE;

bbspace: PrincOps.BBTableSpace;
bb: PrincOps.BBptr _ InitBB[@bbspace];
grayword: CARDINAL _ 0;



bitmapB: LONG POINTER _ NIL;
lbpp,lbppB: CARDINAL _ 0; -- log (base 2) bits per pixel
bpp,bppB: CARDINAL _ 0; -- bits per pixel
full: BOOLEAN _ FALSE;
ashow,bshow: BOOLEAN _ TRUE;
splat: BOOLEAN _ TRUE;
cornerSize: CARDINAL _ 4;
cornerColor: CARDINAL _ 8;

Triple: TYPE = RECORD[r,g,b: [0..256)];

testmap: ARRAY[0..8] OF Triple _ [
[127,127,127], -- gray (background)
[  0,  0,  0], -- black
[255,  0,  0], -- red
[  0,255,  0], -- green
[255,255,  0], -- yellow
[  0,  0,255], -- blue
[255,  0,255], -- magenta
[  0,255,255], -- cyan
[255,255,255]  -- white
];


Diag: PROC []  = {
Bham: PROC [fx,fy,lx,ly: INTEGER, color: [0..8]]  = {
yt: REAL; xx, xi: INTEGER; yy, yi: INTEGER; 
dx: INTEGER _ lx-fx;
dy: INTEGER _ ly-fy;
IF dy>dx OR dx<=0 OR dy<=0 THEN ERROR;
FOR xi IN [0..dx) DO
yt _ (Real.Float[dy]/Real.Float[dx])*Real.Float[xi];
yi _ Real.FixI[yt+0.5];
xx_fx+xi; yy_fy+yi;
TestRect[xx,yy,1,1,color];
TestRect[iWidth-xx,yy,1,1,color];
TestRect[xx,iHeight-yy,1,1,color];
TestRect[iWidth-xx,iHeight-yy,1,1,color];
ENDLOOP;
};

black: [0..8] = 1; --testmap[1] is black
white: [0..8] = 8; --testmap[8] is white
iWidth: INTEGER _ Interminal.terminal.colorWidth;
iHeight: INTEGER _ Interminal.terminal.colorHeight;
deltaX: INTEGER _ iWidth/40;
deltaY: INTEGER _ (deltaX*iHeight)/iWidth;
xi: INTEGER _ 0;
yi: INTEGER _ 0;
IF full THEN Positive[] ELSE {
FOR i: CARDINAL IN[0..9) DO
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, red: testmap[i].r, green: testmap[i].g, blue: testmap[i].b];
ENDLOOP;
SetShowButtons[TRUE,FALSE,FALSE];
};
TestRect[0,0,Interminal.terminal.colorWidth,Interminal.terminal.colorHeight,black]; --black background
FOR n: INTEGER _ 0, n+1 UNTIL xi >=iWidth DO
Bham[fx: xi, fy: 0, lx: iWidth-1, ly: iHeight-n*deltaY, color: white];
xi_xi+deltaX;
ENDLOOP;
};

ShowTPat: PROC = {
x: CARDINAL = 60;
h: CARDINAL = 60;
w: CARDINAL = 50;
gap: CARDINAL = 15;
IF full THEN Positive[] ELSE {
FOR i: CARDINAL IN[0..9) DO
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, red: testmap[i].r, green: testmap[i].g, blue: testmap[i].b];
ENDLOOP;
SetShowButtons[TRUE,FALSE,FALSE];
};
TestRect[0,0,Interminal.terminal.colorWidth,Interminal.terminal.colorHeight,0];
{ s: CARDINAL = cornerSize;
c: CARDINAL = cornerColor; -- color
TestRect[0,0,s,s,c];
TestRect[Interminal.terminal.colorWidth-s,0,s,s,c];
TestRect[0,Interminal.terminal.colorHeight-s,s,s,c];
TestRect[Interminal.terminal.colorWidth-s,Interminal.terminal.colorHeight-s,s,s,c];
};
FOR i: CARDINAL IN[0..8) DO
r,g,b: [0..256);
r _ (i MOD 2)*255;
g _ ((i/2) MOD 2)*255;
b _ ((i/4) MOD 2)*255;
TestRect[4,i*h+10,x,h-20,i+1];
ENDLOOP;
FOR i: CARDINAL IN[0..8) DO
r,g,b: [0..256);
r _ (i MOD 2)*255;
g _ ((i/2) MOD 2)*255;
b _ ((i/4) MOD 2)*255;
TestRect[x+i*w+gap,0,w-gap,8*h,i+1];
ENDLOOP;
};

TestRect: PROC[x,y,w,h: CARDINAL, i: [0..8]] = {
IF NOT (x<Interminal.terminal.colorWidth AND y<Interminal.terminal.colorHeight) THEN RETURN;
w _ MIN[w,Interminal.terminal.colorWidth-x]; h _ MIN[h,Interminal.terminal.colorHeight-y];
IF full THEN FullRect[x,y,w,h,testmap[i].r,testmap[i].g,testmap[i].b]
ELSE ARect[x,y,w,h,i];
};

Rect: PROC[x,y,w,h: CARDINAL, i: [0..256)] = { --formerly i: [0..8]
IF NOT (x<Interminal.terminal.colorWidth AND y<Interminal.terminal.colorHeight) THEN RETURN;
w _ MIN[w,Interminal.terminal.colorWidth-x]; h _ MIN[h,Interminal.terminal.colorHeight-y];
IF full THEN FullRect[x,y,w,h,i,i,i] --gray value
ELSE ARect[x,y,w,h,i];
};

SetUpColors: PROCEDURE = BEGIN
OPEN Terminal;
k: CARDINAL _ Basics.BITSHIFT[1,bpp]; -- number of pixel values
r,g,b: [0..256);
Alter: PROC[c: [0..256)] RETURNS[[0..256)] = INLINE { RETURN[255-(255-c)/2] };
IF full THEN {
FOR n: CARDINAL IN [0..256) DO
r _ MyRandom[256]; g _ MyRandom[256]; b _ MyRandom[256];
SetRedMap[Interminal.terminal, g,r]; SetGreenMap[Interminal.terminal, b,g]; SetBlueMap[Interminal.terminal, r,b]; --scrambler
ENDLOOP;
}
ELSE {
FOR i: CARDINAL IN [0..k) DO
r _ MyRandom[256]; g _ MyRandom[256]; b _ MyRandom[256];
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, bChannelValue: 0, red: r, green: g, blue: b];
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, bChannelValue: 1, red: Alter[r], green: Alter[g], blue: Alter[b]];
ENDLOOP;
};
END;

Positive: PROC = {
IF NOT full THEN RETURN;
FOR i: CARDINAL IN[0..256) DO
Terminal.SetRedMap[Interminal.terminal, i, i];
Terminal.SetGreenMap[Interminal.terminal, i, i];
Terminal.SetBlueMap[Interminal.terminal, i, i];
ENDLOOP;
};

HalfPositive: PROC = {
i: [0..256] _ 0;
IF NOT full THEN RETURN;
FOR j: CARDINAL IN[128..256) DO
Terminal.SetRedMap[Interminal.terminal, j,i];
Terminal.SetGreenMap[Interminal.terminal, j,i];
Terminal.SetBlueMap[Interminal.terminal, j,i];
i_ i+2;
ENDLOOP;
};

MyRandom: PROCEDURE [max: CARDINAL] RETURNS [CARDINAL] = INLINE BEGIN
RETURN[Random[] MOD max];
END;

SetGray: PROC[g: [0..256)] = { grayword _ MakeGray[g] };

MakeGray: PROC[g: [0..256)] RETURNS[CARDINAL] = {
grayword: CARDINAL _ 0;
IF bpp#0 THEN {
ppw: CARDINAL _ 16/bpp; -- pixels per word
mask: CARDINAL _ Basics.BITNOT[Basics.BITSHIFT[177777B,bpp]];
g _ Basics.BITAND[g,mask];
THROUGH [0..ppw) DO grayword _ Basics.BITSHIFT[grayword,bpp] + g ENDLOOP;
};
RETURN[grayword];
};

InitBB: PROC[bbs: POINTER TO PrincOps.BBTableSpace] RETURNS[PrincOps.BBptr] = INLINE {
bb: PrincOps.BBptr _ PrincOpsUtils.AlignedBBTable[bbs];
bb^ _ [
dst: [word: NIL, bit: 0],
dstBpl: 0,
src: [word: @grayword, bit: 0],
srcDesc: [gray[[yOffset: 0, widthMinusOne: 0, heightMinusOne: 0]]],
width: 0, height: 0,
flags: [disjoint: TRUE, gray: TRUE]
];
RETURN[bb];
};

FullRect: PROC[x,y,w,h: CARDINAL, r,g,b: [0..256)] = {
rgword: CARDINAL _ 256*r + g;
bbword: CARDINAL _ 256*b + b;
IF NOT full THEN RETURN;
bb.dst _ [word: Interminal.terminal.colorBitmapA + LONG[y]*Interminal.terminal.colorWordsPerLineA + x, bit: 0];
bb.dstBpl _ 16*Interminal.terminal.colorWordsPerLineA;
bb.src _ [word: @rgword, bit: 0];
bb.width _ 16*w;
bb.height _ h;
bb.flags.dstFunc _ null;
PrincOpsUtils.BITBLT[bb];
bb.dst _ [word: Interminal.terminal.colorBitmapB + LONG[y]*Interminal.terminal.colorWordsPerLineB + x/2, bit: 8*(x MOD 2)];
bb.dstBpl _ 16*Interminal.terminal.colorWordsPerLineB;
bb.src _ [word: @bbword, bit: bb.dst.bit];
bb.width _ 8*w;
bb.height _ h;
bb.flags.dstFunc _ null;
PrincOpsUtils.BITBLT[bb];
};

ARect: PROC[x,y,w,h: CARDINAL, i: [0..256), fn: PrincOps.DstFunc _ null] = {
iword: CARDINAL _ MakeGray[i];
xbit: CARDINAL _ Basics.BITSHIFT[x,lbpp];
bb.dst _ [word: Interminal.terminal.colorBitmapA + LONG[y]*Interminal.terminal.colorWordsPerLineA + xbit/16, bit: xbit MOD 16];
bb.dstBpl _ 16*Interminal.terminal.colorWordsPerLineA;
bb.src _ [word: @iword, bit: bb.dst.bit];
bb.width _ Basics.BITSHIFT[w,lbpp];
bb.height _ h;
bb.flags.dstFunc _ fn;
PrincOpsUtils.BITBLT[bb];
};

index: [0..256) _ 0;

Rectangle: PROC[lx,ty,rx,by: CARDINAL, fn: PrincOps.DstFunc _ null, clear: BOOLEAN _ FALSE] = {
IF full THEN {
r,g,b: [0..256);
IF clear THEN r_g_b_0 ELSE {r _ MyRandom[256]; g _ MyRandom[256]; b _ MyRandom[256];};
FullRect[lx,ty,rx-lx,by-ty,r,g,b];
}
ELSE {
index _ IF clear THEN 0 ELSE (index + 1) MOD 256;
ARect[lx,ty,rx-lx,by-ty,index,fn];
IF clear AND bitmapB#NIL THEN BRectangle[lx,ty,rx,by,null,TRUE];
};
};

BRectangle: PROC[lx,ty,rx,by: CARDINAL, fn: PrincOps.DstFunc _ xor, clear: BOOLEAN _ FALSE] = {
xbit: CARDINAL _ Basics.BITSHIFT[lx,lbppB];
black: CARDINAL _ IF clear THEN 0 ELSE 177777B;
bb.dst _ [word: Interminal.terminal.colorBitmapB + LONG[ty]*Interminal.terminal.colorWordsPerLineB + xbit/16, bit: xbit MOD 16];
bb.dstBpl _ 16*Interminal.terminal.colorWordsPerLineB;
bb.src _ [word: @black, bit: 0];
bb.width _ Basics.BITSHIFT[(rx-lx),lbppB];
bb.height _ by-ty;
bb.flags.dstFunc _ fn;
PrincOpsUtils.BITBLT[bb];
};

RandomSplat: PROCEDURE [ckViewer: CKViewer] = {
screenX: CARDINAL = Interminal.terminal.colorWidth;
screenY: CARDINAL = Interminal.terminal.colorHeight;
XorRatio: CARDINAL = 3;
ty, ty2, lx, w, h: CARDINAL;
fn: PrincOps.DstFunc _ (IF MyRandom[XorRatio]=0 THEN xor ELSE null);
SetGray[MyRandom[256]];

IF sym THEN {
ty _ ty2 _ MyRandom[screenY/2];
lx _ MyRandom[screenX/2];
w _ MyRandom[screenX/2-lx];
h _ MyRandom[screenY/2-ty];
Rectangle[lx, ty, lx+w, ty+h, fn];
ty _ screenY/2+(screenY/2-ty)-h;
Rectangle[lx, ty, lx+w, ty+h, fn];
lx _ screenX/2+(screenX/2-lx)-w;
Rectangle[lx, ty, lx+w, ty+h, fn];
Rectangle[lx, ty2, lx+w, ty2+h, fn];
}
ELSE {
ty _ MyRandom[screenY];
lx _ MyRandom[screenX];
w _ MyRandom[screenX-lx];
h _ MyRandom[screenY-ty];
Rectangle[lx, ty, lx+w, ty+h, fn];
};
IF bitmapB#NIL THEN {
ty _ MyRandom[screenY];
lx _ MyRandom[screenX];
w _ MyRandom[screenX-lx];
h _ MyRandom[screenY-ty];
BRectangle[lx, ty, lx+w, ty+h];
};
IF ckViewer.state.slow THEN Wait[200]; -- slow mode
};

ShowConverge: PROCEDURE = {
black: [0..8] = 1; --testmap[1] is black
white: [0..8] = 8; --testmap[8] is white
hThick: CARDINAL _ Interminal.terminal.colorHeight/300;
hStep: CARDINAL _ Interminal.terminal.colorHeight/30;
vThick: CARDINAL _ Interminal.terminal.colorHeight/300;
vStep: CARDINAL _ Interminal.terminal.colorHeight/30;

IF full THEN Positive[] ELSE {
FOR i: CARDINAL IN[0..9) DO
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, red: testmap[i].r, green: testmap[i].g, blue: testmap[i].b];
ENDLOOP;
SetShowButtons[TRUE,FALSE,FALSE];
};
TestRect[0,0,Interminal.terminal.colorWidth,Interminal.terminal.colorHeight,black]; --black background
FOR xx: CARDINAL _ 0, xx+hStep UNTIL xx > Interminal.terminal.colorWidth DO
TestRect[xx, 0, vThick, Interminal.terminal.colorHeight, white];
ENDLOOP;
FOR v: CARDINAL _ 0, v+vStep UNTIL v > Interminal.terminal.colorHeight DO
TestRect[0, v, Interminal.terminal.colorWidth, hThick ,white];
ENDLOOP;
};

ShowBig: PROCEDURE [big: BOOLEAN, color: GraphicsColor.Color] = {
r,g,b: CARDINAL;
rectheight: CARDINAL _ Interminal.terminal.colorHeight/16; --sixteen rectangles
cInc: CARDINAL _ IF big THEN 20B ELSE 1;
maxIntensity: CARDINAL _ IF full THEN 400B ELSE (Basics.BITSHIFT[1,bpp]);
groupSize: CARDINAL _ MAX[16/maxIntensity,1];
groupIndex: CARDINAL _ 16/groupSize;
IF NOT full THEN SetShowButtons[TRUE,FALSE,FALSE] ELSE SetShowButtons[TRUE,TRUE,TRUE];

FOR gI: CARDINAL IN [0..groupIndex)  DO
inten: CARDINAL _ gI*cInc;
SELECT color FROM
GraphicsColor.red => {r_inten; b_g_0};
GraphicsColor.green => {g_inten; b_r_0};
GraphicsColor.blue => {b_inten; r_g_0};
ENDCASE => ERROR;
IF full THEN {
OPEN Terminal; SetRedMap[Interminal.terminal, gI,r]; SetGreenMap[Interminal.terminal, gI,g]; SetBlueMap[Interminal.terminal, gI,b];}
ELSE Terminal.SetColor[vt: Interminal.terminal, aChannelValue: gI, red: r, green: g, blue: b];
FOR x: CARDINAL IN [0..groupSize)  DO
nextRect: CARDINAL _ gI*groupSize + x;
Rect[0,nextRect*rectheight,Interminal.terminal.colorWidth,rectheight, gI];
ENDLOOP;
ENDLOOP;
};


ShowBigRed: PROCEDURE [big: BOOLEAN] = {
ShowBig[big, GraphicsColor.red];
};

ShowBigGreen: PROCEDURE [big: BOOLEAN] = {
ShowBig[big, GraphicsColor.green];
};

ShowBigBlue: PROCEDURE [big: BOOLEAN] = {
ShowBig[big, GraphicsColor.blue];
};


ShowCBars: PROCEDURE = {
graywidth: CARDINAL _ Interminal.terminal.colorWidth/128; --this must integer divide evenly
grayheight: CARDINAL _ Interminal.terminal.colorHeight/2; --this must integer divide evenly
cbarwidth: CARDINAL _ (Interminal.terminal.colorWidth)/9; --this may truncate
cbarheight: CARDINAL _ Interminal.terminal.colorHeight/2; --this must integer divide evenly

IF full THEN HalfPositive[] ELSE { --set up gray map
k: CARDINAL _ (Basics.BITSHIFT[1,bpp])/2; -- half the number of pixel values
FOR n: CARDINAL IN [0..k) DO
Terminal.SetColor[vt: Interminal.terminal, aChannelValue: n+200B, red: n*2, green: n*2, blue: n*2]; --use top half of colormap.  Only makes sense for 8 BPP
ENDLOOP;
};
FOR i: CARDINAL IN[0..9) DO --set up color bars
IF full THEN {Terminal.SetRedMap[Interminal.terminal, i,testmap[i].r]; Terminal.SetGreenMap[Interminal.terminal, i,testmap[i].g]; Terminal.SetBlueMap[Interminal.terminal, i,testmap[i].b];}
ELSE Terminal.SetColor[vt: Interminal.terminal, aChannelValue: i, red: testmap[i].r, green: testmap[i].g, blue: testmap[i].b]
ENDLOOP;
FOR x: CARDINAL IN [0..128) DO  --gray wedge
Rect[x*graywidth, 0, graywidth, grayheight, x+128];
ENDLOOP;
FOR x: CARDINAL IN [0..8] DO  --colorbars
Rect[x*cbarwidth, cbarheight, cbarwidth, cbarheight, x];
ENDLOOP;
SetShowButtons[TRUE,full,full];
};

NextRoll: PROCEDURE [] = {
OPEN Terminal;
r,g,b,r0,g0,b0: [0..256);
IF full THEN {
r0_GetRedMap[Interminal.terminal, 0]; g0_GetGreenMap[Interminal.terminal, 0]; b0_GetBlueMap[Interminal.terminal, 0];
FOR i: CARDINAL IN[0..255) DO
r _ GetRedMap[Interminal.terminal, i+1]; g _ GetGreenMap[Interminal.terminal, i+1]; b _ GetBlueMap[Interminal.terminal, i+1]; 
SetRedMap[Interminal.terminal, i,r]; SetGreenMap[Interminal.terminal, i,g]; SetBlueMap[Interminal.terminal, i,b]; 
ENDLOOP;
SetRedMap[Interminal.terminal, 255,r0]; SetGreenMap[Interminal.terminal, 255,g0]; SetBlueMap[Interminal.terminal, 255,b0]; 
}
ELSE {
[r0,g0,b0] _ Terminal.GetColor[vt: Interminal.terminal, aChannelValue: 0];
FOR i: CARDINAL IN[0..255) DO
[r,g,b] _ Terminal.GetColor[vt: Interminal.terminal, aChannelValue: i+1];
Terminal.SetColor[Interminal.terminal,i,0,r,g,b];
ENDLOOP;
Terminal.SetColor[Interminal.terminal,255,0,r0,g0,b0];
};
Wait[100];
};

NextScramble: PROCEDURE [] = {
SetUpColors[]; Wait[200];
};

background: INTEGER _ 0; -- initially black

ClearScreen: PROCEDURE = {
IF NOT full THEN {
Terminal.SetColor[Interminal.terminal, 0, 0, background, background, background];
SetGray[0] }
ELSE {Terminal.SetGreenMap[Interminal.terminal, 0,0]; Terminal.SetBlueMap[Interminal.terminal, 0,0]; Terminal.SetRedMap[Interminal.terminal, 0,0];};
Rectangle[lx: 0, ty: 0, rx: Interminal.terminal.colorWidth, by: Interminal.terminal.colorHeight, fn: null, clear: TRUE];
};

Wait: PROCEDURE[millisecs: CARDINAL] = INLINE {
Process.Pause[Process.MsecToTicks[millisecs]] };


defaultSeed: CARDINAL = 27183;
numCalls: INTEGER = 3;



a: ARRAY [0..55] OF CARDINAL;
p: INTEGER [0..55];



InitRandom: PUBLIC PROC[seed: INTEGER] RETURNS[INTEGER] = {

minSeed: CARDINAL = LAST[CARDINAL]/10;
g, gPrev, gSave: CARDINAL;

IF seed<=0 THEN seed _ defaultSeed;
WHILE seed<minSeed DO seed _ seed*3 ENDLOOP;



a[55] _ gPrev _ seed;
g _ 1;
FOR i: INTEGER IN [1..54] DO
p _ (21*i) MOD 55;
a[p] _ gSave _ g;  g _ gPrev-g;  gPrev _ gSave;
ENDLOOP;
THROUGH [1..numCalls) DO
RandomGen[];
ENDLOOP;
p _ 1;
RETURN[seed]
};--InitRandom


Random: PUBLIC PROC RETURNS[CARDINAL] = INLINE {
p _ p-1;
IF p=0 THEN {  RandomGen[];  p _ 55  };
RETURN[a[p]]
};--Random


RandomGen: PROC = INLINE {
FOR i: INTEGER IN [1..24] DO 
a[i] _ a[i] - a[i+31];
ENDLOOP;
FOR i: INTEGER IN [25..55] DO 
a[i] _ a[i] - a[i-24];
ENDLOOP;
};--RandomGen


Choose: PUBLIC PROC[min, max: CARDINAL] RETURNS[CARDINAL--[min..max]--] = {
intervalLen: CARDINAL;
IF min > max THEN ERROR;
intervalLen _ max - min + 1; --is 0 when min=0, max=LAST[CARDINAL]
IF intervalLen = 0 THEN RETURN[Random[]];
DO
r, rem: CARDINAL;
p _ p-1;
IF p=0 THEN {  RandomGen[];  p _ 55  };
r _ a[p];
rem _ r MOD intervalLen;
IF (r - rem) > LOOPHOLE[-LOOPHOLE[intervalLen,INTEGER],CARDINAL] THEN LOOP;
RETURN[min + rem];
ENDLOOP;
};--Choose

SetLogBitsPerPixel: PROC[n: [0..4)] RETURNS[BOOLEAN] = {
b: CARDINAL _ Basics.BITSHIFT[1,n];
mode: Terminal.ColorMode _ [FALSE,b,1];
IF NOT Terminal.LegalColorMode[Interminal.terminal, mode] THEN {
mode.bitsPerPixelChannelB _ 0;
IF NOT Terminal.LegalColorMode[Interminal.terminal, mode] THEN RETURN[FALSE];
};
[]_Terminal.SetColorMode[Interminal.terminal, mode];
Terminal.TurnOnColorDisplay[Interminal.terminal];
lbpp _ n; bpp _ b; full _ FALSE;
lbppB _ 0; bppB _ 1;
SetShowButtons[TRUE, TRUE, FALSE];
bitmapB _ Interminal.terminal.colorBitmapB;

ClearScreen[];
SetUpColors[];
RETURN[TRUE];
};

Set24BitsPerPixel: PROC = {
mode: Terminal.ColorMode _ [TRUE,0,0];
IF NOT Terminal.LegalColorMode[Interminal.terminal, mode] THEN RETURN;
Process.SetPriority[Process.priorityNormal];
[]_Terminal.SetColorMode[Interminal.terminal, mode];
Terminal.TurnOnColorDisplay[Interminal.terminal];
lbpp _ 0; bpp _ 0; full _ TRUE;
SetShowButtons[TRUE, TRUE, FALSE];
bitmapB _ NIL;
ClearScreen[];
SetUpColors[];
Process.SetPriority[Process.priorityBackground];
};

Go: PUBLIC PROC [ckViewer: CKViewer] = {
[] _ InitRandom[0];
public _ ckViewer;
Terminal.TurnOnColorDisplay[Interminal.terminal];
Terminal.TurnOffColorDisplay[Interminal.terminal];
SELECT TRUE FROM
SetLogBitsPerPixel[3] => NULL;
SetLogBitsPerPixel[2] => NULL;
ENDCASE => {
MW.Append[message: "NO COLOR DISPLAY !!", clearFirst: TRUE];
MW.Blink[];
RETURN;
};
Process.SetPriority[Process.priorityBackground];
DO
IF ckViewer.state.quit THEN {
ClearScreen; ViewerOps.DestroyViewer[ckViewer.container];
[]_Terminal.SetColorBitmapState[vt: Interminal.terminal, newState: none, newMode: Terminal.GetColorMode[Interminal.terminal], newVisibility: none];  EXIT;
};
IF ckViewer.state.testingPanel THEN LOOP; --turned off by FinalizeTest
IF ckViewer.state.bpp=1 AND bpp#1 THEN { [] _ SetLogBitsPerPixel[0];
SetSplat[] };
IF ckViewer.state.bpp=2 AND bpp#2 THEN { [] _ SetLogBitsPerPixel[1];
SetSplat[] };
IF ckViewer.state.bpp=4 AND bpp#4 THEN { [] _ SetLogBitsPerPixel[2];
SetSplat[] };
IF ckViewer.state.bpp=8 AND bpp#8 THEN { [] _ SetLogBitsPerPixel[3];
SetSplat[] };
IF ckViewer.state.bpp=24 AND NOT full THEN { Set24BitsPerPixel[];
SetSplat[] };
IF ckViewer.state.aToggle THEN {
SetShowButtons[NOT ashow, bshow,FALSE];
ckViewer.state.aToggle _ FALSE};
IF ckViewer.state.bToggle THEN {
SetShowButtons[ashow, NOT bshow,FALSE];
ckViewer.state.bToggle _ FALSE};
IF ckViewer.state.random THEN {
sym _ FALSE;  SetSplat[];
ClearScreen[];
ckViewer.state.random _ FALSE};
IF ckViewer.state.symmetric THEN {
sym _ TRUE;  SetSplat[];
ClearScreen[];
ckViewer.state.symmetric _ FALSE};
IF NOT ckViewer.state.freeze THEN {
ckViewer.state.roll _ ckViewer.state.scramble _ FALSE; --only TRUE when frozen
SELECT TRUE FROM
ckViewer.state.testPattern => {
splat _ FALSE; ShowTPat[]; ckViewer.state.testPattern _ FALSE;
};
ckViewer.state.cbars => {ShowCBars[]; splat _ ckViewer.state.cbars _ FALSE};
ckViewer.state.converge => {ShowConverge[]; splat _ ckViewer.state.converge _ FALSE};
ckViewer.state.diag => {Diag[]; splat _ ckViewer.state.diag _ FALSE};
ckViewer.state.bigRed => {ShowBigRed[big: TRUE]; splat _ ckViewer.state.bigRed _ FALSE};
ckViewer.state.bigGreen => {ShowBigGreen[big: TRUE]; splat _ ckViewer.state.bigGreen _ FALSE};
ckViewer.state.bigBlue => {ShowBigBlue[big: TRUE]; splat _ ckViewer.state.bigBlue _ FALSE};
ckViewer.state.smallRed => {ShowBigRed[big: FALSE]; splat _ ckViewer.state.smallRed _ FALSE};
ckViewer.state.smallGreen => {ShowBigGreen[big: FALSE]; splat _ ckViewer.state.smallGreen _ FALSE};
ckViewer.state.smallBlue => {ShowBigBlue[big: FALSE]; splat _ ckViewer.state.smallBlue _ FALSE};
ENDCASE => IF splat THEN RandomSplat[ckViewer];
}
ELSE {
SELECT TRUE FROM
ckViewer.state.scramble => NextScramble[];
ckViewer.state.roll => NextRoll[];
ENDCASE => NULL;
};

ENDLOOP;
};

SetSplat: PROCEDURE [] = {
splat _ TRUE; SetShowButtons[ashow,bshow,FALSE];
CKViewerButtons.SetStaticButtons[public, IF sym THEN public.buttons.symmetricButton ELSE public.buttons.randomButton]
};

SetShowButtons: PROCEDURE [a, b, c: BOOL] = {
vis: Terminal.ChannelsVisible;
ashow_a; bshow_b;
vis _ SELECT TRUE FROM
a AND b => all,
a AND NOT b => aOnly,
NOT a AND b => bOnly,
NOT a AND NOT b => none,
ENDCASE => ERROR;

Terminal.SetVisibility[vt: Interminal.terminal, visibility: vis];
Buttons.SetDisplayStyle[public.buttons.aChanButtton, IF ashow THEN $WhiteOnBlack ELSE $BlackOnWhite];
Buttons.SetDisplayStyle[public.buttons.bChanButton, IF bshow THEN $WhiteOnBlack ELSE $BlackOnWhite];
};

SetUpPanelTest: PUBLIC PROCEDURE [ckViewer: CKViewer]  = {
ckViewer.state.testingPanel _ TRUE;
Wait[2000]; --stupid synchronizer so main loop in Go will quit messing with screen
ClearScreen []; --FILL FIFOS WITH Zeroes
Terminal.SetVisibility[vt: Interminal.terminal, visibility: all]; --so when ChannelOn glitches nothing bad will happen
Wait[36]; --be sure both a and b actually show
SetShowButtons[ashow,bshow,TRUE]; --restore ashow/bshow
};

public: CKViewer_NIL;

END.

ÚCKViewerOps.mesa
Last edited by Ken Pier, February 16, 1984 2:05:54 pm PST
draw a set of diagonal lines
draw a line from (fx,fy) to (lx,ly)
gray background
four corners
various colors at left edge
a bunch of stripes
bitmap A
bitmap B
Constant definitions (meanings described in InitRandom below)
Module state
Holds 55 random cardinals, to be returned by Random. (A[0] is wasted to make the
code generator produce better array accesses.)
a[1..p-1] has not yet been returned by Random; p is [1..55] except within Random.
Procedures
The parameter seed determines the sequence generated by procedure Random below.
If seed=0, a default seed value is used to determine the starting point of the
sequence; if seed>0, seed is scaled if necessary and then used;  if seed<0, a seed
value is derived from the system clock.  In any case, the seed value actually used
(after scaling) is the integer value returned.
Now scale the seed into the proper range (no log routine available...)
Seed can't be too big since LAST[INTEGER] < LAST[CARDINAL]*(9/10)
The array a is initialized by placing seed in a[55], and scattering the values
(-1)**(i-1) * (F(i) - seed*F(i-1)) MOD maxRand, 0<i<55,
(where F(i) denotes the i-th Fibonacci number) throughout the rest of a.  Then
the generating procedure RandomGen is called, numCalls times, to make things
sufficiently random.
Show a as being empty;  first call to Random will call RandomGen again. 
Additive random number generator using the recurrence  y(n) = y(n-55) - y(n-24)
mod maxRand. See John F. Reiser, "Analysis of Additive Random Number Generators",
STAN-CS-77-601, March 1977, or Knuth Volume 2 (second edition.)
Draw a number in [0..LAST[CARDINAL]].  We want to reject this number if it lies in the
"odd interval" at the high end of this range (there is no odd interval if intervalLen
divides 2^16).  The funny test below does it (claim).  The average number of numbers drawn
is less than 2, and much closer to 1 for small intervalLen.
Inline expansion of Random[];
�ÊT˜Jš
œ™Jš
œ9™9š
Ïk	˜	J˜	J˜Jš
œ˜Jš
œ
˜
Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ	˜	Jš
œ˜J˜—Jšœ
�˜Jš�œo˜vJš�œ"�˜.J˜Jš�œ
�œ˜Jšœ
�œ˜*Jšœ�œ!˜4Jšœ�œ�œ
˜J˜J˜J˜&Jšœ
�œ˜J˜J˜J˜Jšœ	�œ
�œ�œ
˜Jšœ�œÏc˜8Jšœ
�œž˜)Jšœ�œ�œ
˜Jšœ
�œ�œ
˜Jšœ�œ�œ
˜Jšœ�œ˜Jšœ
�œ˜J˜Jšœ�œ�œ˜'J˜šœ	�œ�œ˜"Jšœž˜#Jšœž˜Jšœž˜Jšœž˜Jšœž	˜Jšœž˜Jšœž
˜Jšœž˜Jšœž˜J˜J˜—J˜šÏnœ�œ˜Jš
œ™šŸœ�œ�œ˜5Jš
œ#™#Jšœ�œ
�œ
�œ˜,Jšœ�œ	˜Jšœ�œ	˜Jš
�œ�œ�œ�œ
�œ
˜&š�œ�œ	�˜J˜4J˜Jš
œ˜Jš
œ˜Jš
œ!˜!Jš
œ"˜"Jš
œ)˜)Jš�œ
˜—Jš
œ˜—J˜Jšœž˜(Jšœž˜(Jšœ�œ"˜1Jšœ	�œ#˜3Jšœ�œ
˜Jšœ�œ˜*Jšœ�œ˜Jšœ�œ˜š�œ�œ�œ˜š�œ�œ
�œ�˜Jš
œy˜yJš�œ
˜—Jšœ�œ
�œ
�œ˜!J˜—JšœTž˜fš�œ�œ
�œ
�˜,Jš
œF˜FJš
œ
˜
Jš�œ
˜—Jš
œ˜—J˜šŸœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜š�œ�œ�œ˜š�œ�œ
�œ�˜Jš
œy˜yJš�œ
˜—Jšœ�œ
�œ
�œ˜!J˜—Jš
œ™Jš
œO˜OJš
œ™šœ�œ˜Jšœ�œž˜#J˜Jš
œ3˜3Jš
œ4˜4Jš
œS˜SJ˜—Jš
œ™š�œ�œ
�œ�˜J˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜J˜Jš�œ
˜—Jš
œ™š�œ�œ
�œ�˜J˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜J˜$Jš�œ
˜—J˜J˜—šŸœ�œ
�œ˜0Jš
�œ
�œ#�œ$�œ
�œ
˜\Jšœ�œ*�œ&˜ZJš�œ�œ9˜EJš�œ˜J˜J˜—šŸœ�œ
�œž˜CJš
�œ
�œ#�œ$�œ
�œ
˜\Jšœ�œ*�œ&˜ZJš�œ�œž˜1Jš�œ˜J˜J˜—šŸœ�	œ�˜Jš�œ
˜Jšœ�œ
�œ	ž˜?J˜Jš
Ÿœ�œ�œ
�œ�œ˜Nš�œ�œ˜š�œ�œ
�œ
�˜J˜8Jšœrž˜}Jš�œ
˜—J˜
—š�œ˜š�œ�œ
�œ�˜J˜8Jš
œj˜jJš
œ˜Jš�œ
˜—J˜—Jš�œ
˜J˜—šŸœ�œ˜Jš�œ
�œ�œ
�œ
˜š�œ�œ
�œ	�˜Jš
œ.˜.Jš
œ0˜0Jš
œ/˜/Jš�œ
˜—J˜J˜—šŸœ�œ˜Jš
œ˜Jš�œ
�œ�œ
�œ
˜š�œ�œ
�œ�˜Jš
œ-˜-Jš
œ/˜/Jš
œ.˜.Jš
œ˜Jš�œ
˜—J˜J˜—š
Ÿœ�	œ�œ�œ�œ�œ
�˜EJš�œ
�œ˜Jš�œ
˜J˜—JšŸœ�œ+˜8J˜šŸœ�œ�œ
�œ˜1Jšœ
�œ˜š�œ�œ˜Jšœ�œž˜*Jšœ�œ
�œ�œ˜=Jšœ�œ	˜Jš�œ
�œ�œ�œ
˜IJ˜—Jš�œ˜J˜J˜—šŸœ�œ�œ
�œ�œ�œ˜VJ˜7˜Jšœ�œ
˜J˜
J˜J˜CJ˜Jšœ�œ�œ
˜#J˜—Jš�œ˜J˜J˜—šŸœ�œ
�œ˜6Jšœ�œ
˜Jšœ�œ
˜Jš�œ
�œ�œ
�œ
˜Jš
œ™Jšœ3�œ8˜oJš
œ6˜6J˜!J˜J˜J˜Jšœ�œ˜Jš
œ™Jšœ3�œ<�œ˜{Jš
œ6˜6J˜*J˜J˜J˜Jšœ�œ˜J˜J˜—šŸœ�œ
�œ/˜LJšœ�œ˜Jšœ�œ
�œ	˜)Jšœ3�œ@�œ˜Jš
œ6˜6J˜)Jšœ�œ	˜#J˜J˜Jšœ�œ˜J˜J˜—J˜J˜š
Ÿ	œ�œ�œ&�œ�œ˜_š�œ�œ˜J˜Jš�œ�œ	�œ<˜VJ˜"J˜
—š�œ˜Jš	œ�œ�œ�œ
�œ˜1J˜"Jš
�œ�œ	�œ
�œ�œ˜@J˜—J˜J˜—š
Ÿ
œ�œ�œ%�œ�œ˜_Jšœ�œ
�œ˜+Jš	œ�œ�œ�œ�œ	˜/Jšœ3�œA�œ˜€
Jš
œ6˜6J˜ Jšœ�œ˜*J˜Jš
œ˜Jšœ�œ˜J˜J˜—šŸœ�	œ˜/Jšœ	�œ"˜3Jšœ	�œ#˜4Jšœ
�œ˜Jšœ�œ
˜Jšœ�œ�œ�œ˜DJ˜J˜š�œ�œ˜
J˜J˜J˜J˜J˜"J˜ J˜"J˜ J˜"J˜$Jš
œ
˜
—š�œ˜J˜J˜J˜J˜J˜"Jš
œ˜—š�œ	�œ
�œ˜J˜J˜J˜J˜J˜J˜—Jš�œ�œž˜3Jš
œ˜J˜—šŸœ�	œ˜Jšœž˜(Jšœž˜(Jšœ�œ'˜7Jšœ�œ&˜5Jšœ�œ'˜7Jšœ�œ&˜5J˜š�œ�œ�œ˜š�œ�œ
�œ�˜Jš
œy˜yJš�œ
˜—Jšœ�œ
�œ
�œ˜!J˜—JšœTž˜fš�œ�œ�œ%�˜KJš
œ@˜@Jš�œ
˜—š�œ�œ�œ%�˜IJš
œ>˜>Jš�œ
˜—J˜—J˜šŸœ�	œ�œ!˜AJšœ�œ
˜Jšœ�œ'ž˜OJš	œ�œ�œ�œ�œ˜(Jšœ�œ�œ�œ�œ	�œ	˜IJšœ�œ�œ˜-Jšœ�œ˜$Jš�œ
�œ�œ�œ
�œ
�œ�œ�œ
�œ
�œ˜VJ˜š�œ�œ
�œ�˜'Jšœ�œ˜š�œ�˜Jš
œ&˜&Jš
œ(˜(Jš
œ'˜'Jš�œ�œ
˜—š�œ�œ˜Jš�œ€
˜„
—Jš�œZ˜^š�œ�œ
�œ�˜%Jšœ
�œ˜&Jš
œJ˜J—Jš�œ
˜—Jš�œ
˜J˜—J˜J˜šŸ
œ�	œ�œ˜(Jš
œ ˜ Jš
œ˜—J˜šŸœ�	œ�œ˜*Jš
œ"˜"Jš
œ˜—J˜šŸœ�	œ�œ˜)Jš
œ!˜!Jš
œ˜—J˜J˜šŸ	œ�	œ˜Jšœ�œ'ž!˜[Jšœ�œ%ž"˜[Jšœ�œ'ž˜MJšœ�œ&ž!˜[J˜š�œ�œ�œž˜4Jšœ�œ�œž"˜Lš�œ�œ
�œ�˜Jšœdž7˜›
Jš�œ
˜—J˜—š	�œ�œ
�œ�œ
ž˜/Jš�œ�œ°
˜¼
Jš�œy˜}Jš�œ
˜—š	�œ�œ
�œ
�œž˜,J˜3Jš�œ
˜—š	�œ�œ
�œ�œž˜)Jš
œ8˜8Jš�œ
˜—Jšœ�œ˜Jš
œ˜—J˜šŸœ�	œ˜Jš�œ
˜J˜š�œ�œ˜Jš
œt˜tš�œ�œ
�œ	�˜Jš
œ~˜~Jš
œr˜rJš�œ
˜—Jš
œ{˜{J˜
—š�œ˜Jš
œJ˜Jš�œ�œ
�œ	�˜Jš
œI˜IJš
œ1˜1Jš�œ
˜—Jš
œ6˜6J˜—J˜
Jš
œ˜—J˜šŸœ�	œ˜J˜Jš
œ˜—J˜Jšœ�œž˜+J˜šŸœ�	œ˜š�œ
�œ�œ˜Jš
œQ˜QJ˜—Jš�œ�
˜”
Jšœr�œ˜xJ˜J˜—šŸœ�	œ�œ�œ˜/J˜0J˜Jš
œ=™=J˜Jšœ
�œ	˜Jšœ
�œ˜J˜J˜Jš
œ™J˜šœ�œ	�œ
�œ
˜Jš
œP™PJš
œ.™.—šœ�œ	˜Jš
œQ™QJ˜J˜—Jš
œ
™
J˜šŸ
œ�œ
�œ�œ�œ
�œ˜;Jš
œO™OJš
œN™NJš
œR™RJš
œR™RJš
œ.™.J˜Jšœ	�œ�œ
�œ˜&Jšœ�œ
˜J˜Jš�œ	�œ˜#Jš
œF™FJš�œ�œ�œ
˜,Jš
œA™AJš
œN™NJ˜Jš
œ7™7J˜Jš
œN™NJš
œL™LJš
œ™J˜J˜J˜š�œ�œ
�œ	�˜Jšœ�œ˜J˜/—Jš�œ
˜š�œ�˜J˜—Jš�œ
˜Jš
œH™HJ˜Jš�œ˜—Jšœž˜J˜J˜šŸœ�œ
�œ
�œ
�œ�œ˜0J˜Jš�œ�œ˜'Jš�œ˜—Jšœž˜
J˜J˜šŸ	œ�œ�œ˜Jš
œO™OJš
œQ™QJš
œ?™?š�œ�œ
�œ	�œ
˜J˜—Jš�œ
˜š�œ�œ
�œ
�œ
˜J˜—Jš�œ
˜—Jšœž˜
J˜J˜š
Ÿœ�œ
�œ�œ�œ
�žœ˜KJšœ
�œ
˜Jš�œ�œ
�œ
˜Jšœž%˜BJš�œ�œ
�œ˜)š
�˜Jš
œV™VJš
œU™UJš
œZ™ZJš
œ;™;Jšœ�œ
˜Jš
œ™J˜Jš�œ�œ˜'J˜	Jšœ�œ
˜Jš�œ
�œ�œ
�œ�œ�œ
�œ
˜KJš�œ˜—Jš�œ
˜—Jšœž˜
J˜—šŸœ�œ�œ
�œ˜8Jšœ�œ
�œ˜#Jšœ�œ˜'š�œ
�œ4�œ˜@Jš
œ˜Jš
�œ
�œ4�œ
�œ
�œ˜MJ˜—Jš
œ4˜4Jš
œ1˜1Jšœ�œ
˜ J˜Jšœ�œ�œ�œ˜"Jš
œ+˜+J˜J˜J˜Jš�œ
�œ˜
J˜J˜—šŸœ�œ˜Jšœ�œ˜&Jš�œ
�œ4�œ
�œ
˜FJš
œ,˜,Jš
œ4˜4Jš
œ1˜1Jšœ�œ
˜Jšœ�œ�œ�œ˜"Jšœ
�œ
˜Jš
œ˜J˜Jš
œ0˜0J˜J˜—šŸœ�œ
�œ˜(Jš
œ˜Jš
œ˜J˜1J˜2š�œ
�œ
�˜Jšœ�œ
˜Jšœ�œ
˜š�œ˜Jš�œ4�œ˜<Jš�œ	˜Jš�œ
˜J˜——Jš
œ0˜0Jš
�˜š�œ�œ˜Jš
œ9˜9Jšœ•
�œ
˜š
Jš
œ˜—Jš�œ�œ
�œž˜Fš�œ�œ�œ˜DJš
œ
˜
—š�œ�œ�œ˜DJš
œ
˜
—š�œ�œ�œ˜DJš
œ
˜
—š�œ�œ�œ˜DJš
œ
˜
—š�œ�œ
�œ�œ˜AJš
œ
˜
—š�œ�œ˜ Jšœ�œ�œ˜'Jšœ�œ˜ —š�œ�œ˜ Jšœ�œ�œ˜'Jšœ�œ˜ —š�œ�œ˜Jšœ�œ˜J˜Jšœ�œ˜—š�œ�œ˜"Jšœ�œ˜J˜Jšœ�œ˜"—š�œ
�œ�œ˜#Jšœ0�œž˜Nš�œ
�œ
�˜š
œ˜Jšœ�œ+�œ
˜>Jš
œ˜—JšœE�œ˜LJšœN�œ˜UJšœ>�œ˜EJšœ*�œ#�œ˜XJšœ.�œ%�œ˜^Jšœ,�œ$�œ˜[Jšœ,�œ%�œ˜]Jšœ0�œ'�œ˜cJšœ.�œ&�œ˜`Jš�œ�œ�œ˜/—Jš
œ
˜
—š�œ˜š�œ
�œ
�˜Jš
œ*˜*Jš
œ"˜"Jš�œ�œ
˜—˜J˜——Jš�œ
˜˜J˜——šŸœ�	œ˜Jšœ�œ�œ˜0Jšœ)�œ�œ �œ˜uJ˜—J˜šŸœ�	œ�œ˜-Jš
œ˜Jš
œ˜šœ�œ
�œ
�˜Jšœ�œ
˜Jšœ�œ
�œ˜Jš�œ�œ˜Jš�œ�œ
�œ˜Jš�œ�œ
˜J˜—Jš
œA˜AJšœ5�œ�œ�œ˜eJšœ4�œ�œ�œ˜dJ˜—J˜šŸœ�œ
�	œ˜:Jšœ�œ
˜#JšœžF˜RJšœž˜(JšœBž4˜vJšœ
ž$˜.Jšœ�œž˜7Jš
œ˜—J˜Jšœ�œ
˜J˜Jš�œ
˜J˜—…—Q&rT