DIRECTORY CedarProcess, Commander, Controls, ImagerColor, InterminalBackdoor, ImagerPixelMap, Interminal, IO, Process, Random, Real, Spline3d, Terminal, ViewerClasses;CmSlitherImpl: CEDAR PROGRAMIMPORTS CedarProcess, Commander, Controls, ImagerColor, InterminalBackdoor, Process, Random, Real, Terminal, Spline3d~ {out: IO.STREAM;Triple: TYPE ~ Spline3d.Triple;CmSlither: Commander.CommandProc ~ {outer: ViewerClasses.Viewer _ Controls.OuterViewer[name: "Slither"];out _ cmd.out;TRUSTED {Process.Detach[FORK Slither[NARROW[outer.data, Controls.OuterData]]]};};Slither: PROC [data: Controls.OuterData] ~ {v: ImagerColor.RGB;r, g, b: Terminal.ColorValue;vt: Terminal.Virtual _ InterminalBackdoor.terminal;CedarProcess.SetPriority[background];WHILE NOT data.stop DOFOR i: NAT IN[0..253] DO[r, g, b] _ Terminal.GetColor[vt: vt, aChannelValue: 254-i];Terminal.SetColor[vt, 255-i, , r, g, b];ENDLOOP;v _ ImagerColor.RGBFromHSV[GetSlitherHSV[]];Terminal.SetColor[vt, 1,, Real.RoundI[255.0*v.R], Real.RoundI[255.0*v.G], Real.RoundI[255.0*v.B]];ENDLOOP; };index, count: NAT _ 0;p0: Triple _ GetRandomPt[];p1: Triple _ GetRandomPt[];p2: Triple _ GetRandomPt[];p3: Triple _ GetRandomPt[];triples: Spline3d.TripleSequence _ NEW[Spline3d.TripleSequenceRec[50]];GetSlitherHSV: PROC RETURNS [ImagerColor.HSV] ~ {Range: PROC [p: Triple] RETURNS [Triple] ~ {InnerRange: PROC [r: REAL] RETURNS [REAL] ~ {RETURN[IF r < 0.01 THEN 0.01 ELSE IF r > 0.99 THEN 0.99 ELSE r];};RETURN[[InnerRange[p.x], InnerRange[p.y], InnerRange[p.z]]];};IF (index _ index+1) >= count THEN {index _ 0;count _ Random.ChooseInt[min: 7, max: 30];p0 _ p3;p1 _ [p3.x+p3.x-p2.x, p3.y+p3.y-p2.y, p3.z+p3.z-p2.z];p2 _ GetRandomPt[];p3 _ GetRandomPt[];[] _ Spline3d.Samples[Spline3d.BezierToCoeffs[[p0, p1, p2, p3]], count, triples];FOR n: NAT IN[0..count) DO triples[n] _ Range[triples[n]]; ENDLOOP;};RETURN[[triples[index].x, triples[index].y, triples[index].z]];};GetRandomPt: PROC RETURNS [Triple] ~ {ChooseReal: PROC RETURNS [REAL] ~ {RETURN[(1.0/1024.0)*Random.ChooseInt[min: 1, max: 1024]];};RETURN[[ChooseReal[], ChooseReal[], ChooseReal[]]];};Commander.Register["CmSlither", CmSlither, "\nSlither through color space."];}.    „  CmSlitherImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Bloomenthal, January 13, 1986 11:00:01 pm PSTÊ’  ˜ šœ™Jšœ
Ïmœ1™<J™-—J˜ JšÏk	œažœ;˜§J˜ šÐblœžœž˜Jšžœn˜u—šœ˜J˜ Jšœžœžœ˜Jšœžœ˜J˜ šÏb	œ˜$JšœD˜DJ˜Jšžœžœ	žœ$˜OJ˜—J˜ šÏnœžœ˜,Jšœžœ˜Jšœ˜Jšœ3˜3Jšœ%˜%šžœžœž˜šžœžœžœ	ž˜Jšœ<˜<Jšœ(˜(Jšžœ˜—Jšœ,˜,Jšœb˜bJšžœ˜	—Jšœ˜J˜ —Jšœžœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ#žœ!˜GJ˜ š¡œžœžœžœ˜1š¡œžœžœ˜,š
¡
œžœžœžœžœ˜-Jšžœžœ
žœžœžœ
žœžœ˜@J˜—Jšžœ6˜<J˜—šžœžœ˜$J˜
Jšœ*˜*J˜J˜6J˜J˜JšœQ˜QJš
žœžœžœžœ!žœ˜CJ˜—Jšžœ9˜?Jšœ˜J˜ —š¡œžœžœ˜&š¡
œžœžœžœ˜#Jšžœ3˜9J˜—Jšžœ-˜3J˜—Icode˜ —JšœM˜MJ˜— …—    Ê  à  