(FILECREATED "14-Mar-84 13:52:14" ("compiled on " {INDIGO}SOURCES>GAUGES.;37) "25-Feb-84 17:16:34" recompiled exprs: LCD.SmallRegion in LOOPS.SYSOUT dated "14-Mar-84 09:10:21") (FILECREATED "14-Mar-84 13:50:35" {INDIGO}SOURCES>GAUGES.;37 81093 changes to: (VARS GAUGESCOMS GAUGEUTILITYFNS) (METHODS DigiMeter.Update LCD.Reset HorizontalScale.ShowTicks LCD.SmallRegion) ( INSTANCES DigiMeter.Update LCD.Reset HorizontalScale.ShowTicks LCD.SmallRegion) (FNS LCD.SmallRegion) previous date: " 9-Mar-84 17:24:30" {INDIGO}SOURCES>GAUGES.;36) BarChart.DrawInstrument D1 (P 2 triple P 1 labelY I 0 self) b@g @g h@g HhZ@g Jh@g lI@g J@g HX(132Q PRIN1 127Q GetValue 115Q MOVETO 112Q GetValue 75Q STRINGWIDTH 72Q DSPFONT 67Q GetValue 55Q GetValue 30Q DSPLINEFEED 25Q GetValue 15Q GetValue 6 GetValue) (124Q window 107Q window 64Q window 52Q maxLabelWidth 22Q window 12Q scaleBottom 3 displayVal) NIL BarChart.Set D1 (P 3 newSetting P 2 quad I 2 label I 1 reading I 0 self) iB@g @Hg HAlIJ Bo JAJ@g @g lJK@g @g JKh(140Q ChangeVerticalSetting 134Q GetValue 125Q GetValue 104Q GetValue 75Q GetValue 54Q ERROR 25Q FetchMethodOrHelp 12Q FASSOC 7 GetValue) (131Q barWidth 122Q window 101Q barWidth 72Q maxLabelWidth 22Q ComputeDisplayVal 4 displayVal) (51Q "not in this BarChart") BarChart.SetParameters D1 (P 6 triple P 5 totalW P 3 triple P 2 wf P 1 w I 0 self) @g@g@g @g l @g jh@g #H[@gI @g jLY@gM @g@g @g@g @g @g D@gg lذ6IKJ dLLHX^@g MM@g ؽL\j (313Q PutValue 276Q GetValue 262Q GetValue 233Q STRINGWIDTH 215Q GetValue 201Q GetValue 172Q GetValue 163Q GetValue 150Q PutValue 145Q GetValue 131Q PutValue 111Q GetValue 101Q PutValue 62Q DSPFONT 57Q GetValue 46Q GetValue 37Q PutValue 34Q PutValue 25Q GetValue 16Q GetValue) (273Q maxLabelWidth 257Q scaleLeft 212Q tickLength 207Q ticks 176Q ticks 167Q scaleWidth 160Q scaleLeft 154Q width 142Q scaleBottom 136Q lower 125Q scaleWidth 106Q displayVal 75Q maxLabelWidth 54Q window 43Q displayVal 22Q scaleBottom 13Q height 7 scaleHeight 3 range) NIL BarChart.ShowReading D1 (P 2 triple P 1 c I 0 self) M@g @g @g lHhIJ@g J@g @g HX(105Q ChangeVerticalSetting 101Q GetValue 72Q GetValue 57Q GetValue 24Q GetValue 15Q GetValue 6 GetValue) (76Q barWidth 67Q window 54Q scaleBottom 21Q barWidth 12Q maxLabelWidth 3 displayVal) NIL BarChart.Update D1 (P 0 quad I 0 self) >@g !d!H@Zg JHlI@Ig IkJ(65Q GetSuperMethod 30Q FetchMethodOrHelp 6 GetValue) (62Q Update 25Q ComputeDisplayVal 3 displayVal) NIL BoundedMixin.ComputeDisplayVal D1 (P 0 boundedReading I 1 reading I 0 self) FA@g @g @g A@Zg JAHhlI@\g LHlKj(71Q GetSuperMethod 44Q FetchMethodOrHelp 31Q PinnedSetting 25Q GetValue 16Q GetValue 7 GetValue) (66Q ComputeDisplayVal 41Q OutOfBounds 22Q inputRange 13Q inputLower 4 inputLower) NIL BoundedMixin.OutOfBounds D1 (I 1 outFlg I 0 self) !@g Aoo@g (36Q PRIN1 33Q GetValue 11Q MOVETOUPPERLEFT 6 GetValue) (30Q window 3 window) (24Q " " 17Q "??") Dial.DrawInstrument D1 (I 0 self) j@g @g @g lh@g @g @g @g @gg lh@g @lA*@Hg HilI@Hg HkI@Hg HkI(65Q GetSuperMethod 43Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (62Q Close 40Q Detach 12Q Attached?) () Gauge.Detach D1 (P 1 place I 0 self) J@g )o` ` @g 1H @g h@[g KIlJHX(72Q FetchMethodOrHelp 56Q PutValue 40Q GetValue 31Q TERPRI 22Q PRIN1 6 GetValue) (67Q DetachProbe 53Q attachedTo 35Q attachedTo 26Q PROMPTWINDOW 17Q PROMPTWINDOW 3 attachedTo) (14Q "Detaching") Gauge.DetachProbe D1 (P 0 machine I 1 place I 0 self) XAX@Hg HABClI@g@g k @g@g  i(72Q PutValue 67Q DREVERSE 63Q DREVERSE 60Q GetValue 45Q PutValue 40Q GetValue 12Q GetSuperMethod) (55Q labels 51Q labels 35Q ticks 31Q ticks 7 ComputeScale) NIL Meter.DrawInstrument D1 (I 0 self) %@g @g @g lh@g (42Q DRAWCIRCLE 36Q GetValue 24Q GetValue 15Q GetValue 6 GetValue) (33Q window 21Q radius 12Q yc 3 xc) NIL Meter.SetParameters D1 (I 0 self) {@g@g@g @g @g@g@g l @g@g @g llHHl @g@g @gg (170Q PutValue 164Q GetValue 152Q GetValue 137Q PutValue 113Q MAXSTRINGWIDTH 110Q GetValue 101Q GetValue 66Q PutValue 63Q PutValue 55Q GetValue 36Q PutValue 33Q PutValue 30Q MIN 25Q GetValue 16Q GetValue) (161Q tickLength 156Q ticks 147Q radius 143Q needleLength 105Q labels 76Q yc 72Q radius 52Q width 46Q xc 42Q yc 22Q width 13Q height 7 width 3 height) NIL Meter.Shape D1 (P 2 reg I 1 newRegion I 0 self) 1@Hg HAlI@gJJdKK h(55Q PutValue 12Q GetSuperMethod) (32Q width 7 Shape) NIL Meter.ShowLabels D1 (P 3 a P 2 lab I 0 self) V@g <@g l2@g lZo@g @g "IHh@KJ IH(113Q ShowRayLabel 63Q GetValue 54Q EvenIntervals 51Q GetValue 34Q DSPRIGHTMARGIN 31Q GetValue 17Q GetValue 6 GetValue) (60Q labels 46Q ticks 26Q window 14Q width 3 labels) (42Q -550Q) Meter.ShowTicks D1 (P 2 a P 1 incr I 0 self) ClZo@g o@g Hh@J@gg Io HX(73Q DrawTick 62Q GetValue 32Q GetValue 17Q EvenIntervals 14Q GetValue) (57Q smallTicks 54Q ticks 27Q ticks 11Q ticks) (67Q .5 23Q -550Q 5 -550Q) MultiValueMixin.AddLabel D1 (I 2 labelReading I 1 label I 0 self) .@gAj@Hg HBlIBh@g  (53Q PutValue 46Q GetValue 20Q FetchMethodOrHelp) (43Q displayVal 15Q ComputeDisplayVal 3 displayVal) NIL MultiValueMixin.Attach D1 (I 7 y I 6 xOrPos I 5 machine I 4 label I 3 selector I 2 varName I 1 obj I 0 self) Do bdu@g Do @1Hg HD@Zg JABgDhDElIlK@Hg HkI@g @Hg HFGlIh(166Q FetchMethodOrHelp 150Q GetValue 132Q FetchMethodOrHelp 70Q FetchMethodOrHelp 55Q FetchMethodOrHelp 41Q ERROR 30Q FASSOC 25Q GetValue 11Q PromptRead) (163Q Move 145Q attachedTo 127Q Update 77Q Set 65Q AttachProbe 52Q AddLabel 22Q displayVal) (36Q "is already in use in MultiValueMixin" 6 "Label needed to attach on MultiValue Gauges. Type label or NIL to abort:") MultiValueMixin.DeleteLabel D1 (I 2 updateFlg I 1 label I 0 self) 4A@gA@g @g B@Hg HkI(53Q FetchMethodOrHelp 34Q PutValue 24Q PutValue 21Q DELASSOC 16Q GetValue) (50Q Update 31Q displayVal 13Q displayVal 6 displayVal) NIL MultiValueMixin.Detach D1 (P 10Q place P 2 lab P 1 dv I 1 label I 0 self) A,@g AHhY@\g LJlKHX@g A@g @Kg KkL@Kg KAlLo` ` @gP@g 9dAAO@_g OOlNhOh[LK]\M  \K(313Q LAST 307Q PutValue 242Q FetchMethodOrHelp 206Q GetValue 170Q TERPRI 161Q PRIN1 136Q FetchMethodOrHelp 114Q FetchMethodOrHelp 77Q FASSOC 74Q GetValue 63Q GetValue 36Q FetchMethodOrHelp 11Q GetValue) (237Q DetachProbe 203Q attachedTo 174Q attachedTo 165Q PROMPTWINDOW 156Q PROMPTWINDOW 133Q DeleteLabel 111Q Attached? 71Q displayVal 60Q attachedTo 33Q Detach 6 displayVal) (153Q "Detaching") MultiValueMixin.MaxCurrentReading D1 (I 0 self) )@g @g HIdIIHX(15Q GetValue 6 GetValue) (12Q inputLower 3 displayVal) NIL MultiValueMixin.OutOfBounds D1 (I 1 outFlg I 0 self) 6@g g ll@g Aoo@g (63Q PRIN1 60Q GetValue 36Q MOVETO 33Q GetValue 14Q GETWINDOWPROP 6 GetValue) (55Q window 30Q window 11Q REGION 3 window) (51Q " " 44Q "??") MultiValueMixin.SetUp D1 (P 3 label P 2 gaugedObj P 1 obj I 10Q y I 7 xOrPos I 6 machine I 5 path I 4 maxScale I 3 chartTitle I 2 ivName I 1 listOfObjects I 0 self)  A @gC HJD@_g _OjDlO@_g _OkO@_g _OGGlO@YE I I@_g OK@]g MJBgKhKFlLlNHXw(174Q FetchMethodOrHelp 160Q FetchMethodOrHelp 143Q GetObjectName 136Q GetPathObj 107Q FetchMethodOrHelp 63Q FetchMethodOrHelp 34Q FetchMethodOrHelp 13Q PutValue) (203Q Set 171Q AttachProbe 155Q AddLabel 104Q Move 60Q Update 31Q SetScale 7 title) NIL RoundScale.Reset D1 (I 1 newReading I 0 self) -@Hg HkI@gA @Hg HkI(44Q FetchMethodOrHelp 31Q PutValue 12Q FetchMethodOrHelp) (41Q ShowReading 25Q reading 7 ShowReading) NIL RoundScale.Set D1 (P 2 newVal I 1 newReading I 0 self) @Hg HAlIQJ@g ٻjKKjKn@]g MAlLN@gA @_g OkN4@g @g @g @g @gJ @g l h(216Q RotateLine 210Q GetValue 201Q PutValue 171Q GetValue 162Q GetValue 153Q GetValue 144Q GetValue 124Q FetchMethodOrHelp 112Q PutValue 67Q FetchMethodOrHelp 36Q GetValue 12Q FetchMethodOrHelp) (205Q window 175Q displayVal 166Q displayVal 157Q needleLength 150Q yc 141Q xc 121Q HasLispWindow 106Q reading 64Q Reset 33Q displayVal 7 ComputeDisplayVal) NIL RoundScale.ShowReading D1 (I 0 self) H@g @g @g @g@Hg H@g lI lg@g (105Q DrawRay 101Q GetValue 65Q PutValue 54Q GetValue 43Q FetchMethodOrHelp 24Q GetValue 15Q GetValue 6 GetValue) (76Q window 72Q INVERT 51Q reading 40Q ComputeDisplayVal 30Q displayVal 21Q needleLength 12Q yc 3 xc) NIL SelfScaleMixin.Set D1 (P 3 maxDiff P 2 max I 3 otherArg2 I 2 otherArg1 I 1 reading I 0 self) @Hg HABClI@Hg HkIaJ@g [@g *@]g M@g @g KlllLU@g K@g C@g l 7@_g _O@g @g Kll۾l NNl lOh(241Q GetValue 232Q GetValue 216Q FetchMethodOrHelp 200Q GetValue 165Q GetValue 155Q GetValue 126Q GetValue 117Q GetValue 106Q FetchMethodOrHelp 73Q GetValue 62Q GetValue 40Q FetchMethodOrHelp 12Q GetSuperMethod) (236Q inputLower 227Q inputLower 213Q SetScale 175Q inputRange 162Q lowScaleFactor 152Q inputRange 123Q inputLower 114Q inputLower 103Q SetScale 70Q inputRange 57Q inputLower 35Q MaxCurrentReading 7 Set) NIL VerticalScale.DrawInstrument D1 (I 0 self) /@g @g @g @g kkg@g (54Q DrawBox 50Q GetValue 33Q GetValue 24Q GetValue 15Q GetValue 6 GetValue) (45Q window 41Q PAINT 30Q scaleHeight 21Q scaleWidth 12Q scaleBottom 3 scaleLeft) NIL VerticalScale.Set D1 (P 5 newSetting P 4 displayVal P 3 w P 2 x I 1 reading I 0 self) R@gA @g k@g k@g @Hg HAlI@gM JLM@g K h(116Q ChangeVerticalSetting 111Q GetValue 77Q PutValue 53Q FetchMethodOrHelp 40Q GetValue 27Q GetValue 16Q GetValue 7 PutValue) (106Q window 73Q displayVal 50Q ComputeDisplayVal 35Q displayVal 24Q scaleWidth 13Q scaleLeft 3 reading) NIL VerticalScale.SetParameters D1 (I 0 self) @g@g dll @g@g@g @g l @g@g@g k @g@g @g @g @g @gg l؀jHdII (214Q PutValue 167Q GetValue 154Q GetValue 145Q GetValue 136Q GetValue 127Q GetValue 114Q PutValue 111Q PutValue 104Q GetValue 65Q PutValue 62Q PutValue 53Q GetValue 44Q GetValue 25Q PutValue 12Q GetValue) (164Q tickLength 161Q ticks 151Q ticks 142Q scaleWidth 133Q scaleLeft 124Q width 120Q width 101Q scaleBottom 75Q lower 71Q displayVal 50Q scaleBottom 41Q height 35Q scaleHeight 31Q range 7 height 3 height) NIL VerticalScale.ShowLabels D1 (P 5 lab P 4 y P 1 ypos P 0 xlabel I 0 self) @g X@g @g @gg l@g l@g @g ki Y@g I"KJhHL@g M@g KJ(171Q PRIN1 166Q GetValue 155Q MOVETO 152Q GetValue 116Q GetValue 106Q EvenIntervals 100Q GetValue 71Q GetValue 57Q GetValue 40Q GetValue 26Q GetValue 17Q GetValue 6 GetValue) (163Q window 147Q window 113Q labels 75Q ticks 66Q scaleHeight 54Q scaleBottom 35Q tickLength 32Q ticks 23Q scaleWidth 14Q scaleLeft 3 ticks) NIL VerticalScale.ShowReading D1 (I 0 self) I@g k@g k@g@Hg H@g lI @g @g k (106Q ChangeVerticalSetting 100Q GetValue 71Q GetValue 62Q PutValue 51Q GetValue 40Q FetchMethodOrHelp 17Q GetValue 6 GetValue) (75Q scaleWidth 66Q window 46Q reading 35Q ComputeDisplayVal 25Q displayVal 14Q scaleBottom 3 scaleLeft) NIL VerticalScale.ShowTicks D1 (P 2 YT P 1 tickYs P 0 tickX I 0 self) M@g @g l@g @g @g ki IZ@HJJJJ h(104Q DrawHTick 54Q EvenIntervals 46Q GetValue 37Q GetValue 30Q GetValue 15Q GetValue 6 GetValue) (43Q ticks 34Q scaleHeight 25Q scaleBottom 12Q scaleWidth 3 scaleLeft) NIL CenterPrint D1 (I 3 window I 2 ypos I 1 xpos I 0 string) A@hC BC @C (25Q PRIN1 20Q MOVETO 11Q STRINGWIDTH 6 DSPFONT) NIL NIL ChangeHorizontalSetting D1 (I 4 settingWidth I 3 window I 2 newXPos I 1 oldXPos I 0 yPos F 0 self) *ABAB@Pg D BAAB@Pg D (47Q LineRight 42Q GetValue 22Q LineLeft 15Q GetValue) (37Q window 12Q window) NIL ChangeVerticalSetting D1 (I 4 settingWidth I 3 window I 2 newYPos I 1 oldYPos I 0 xPos F 0 self) *AB@ABPg D BA@ABPg D (47Q LineRaise 42Q GetValue 22Q LineLower 15Q GetValue) (37Q window 12Q window) NIL ComputeLabels D1 (P 4 lab P 3 lab1 P 2 endPtr P 1 labelList P 0 incr I 3 labelScale I 2 goodmaxVal I 1 goodIncr I 0 goodMinVal F 5 goodMaxVal) NPkA @@jؼl B@AjbHHj &jHULLULC׻JKhZLAXԼK&I(44Q EQP 7 ABS) NIL NIL ConcatNSpaces D1 (I 1 string I 0 N) M@djo/ko&@dlolo@loo@l@lA A (112Q CONCAT 105Q ConcatNSpaces) NIL (70Q " " 63Q " " 51Q " " 37Q " " 22Q " " 11Q "") DrawBox D1 (P 1 topx P 0 topy I 6 window I 5 operation I 4 lineWidth I 3 height I 2 width I 1 bottom I 0 left) 8AC@B@A@HDEF @AIADEF IAIHDEF @HIHDEF h(64Q DRAWLINE 51Q DRAWLINE 36Q DRAWLINE 23Q DRAWLINE) NIL NIL DrawHTick D1 (P 0 ysmall I 3 incr I 2 y I 1 x I 0 self) ]ABA@gg Blg@g C;@gg /BClkAHA@gg lHkg@g h(131Q DRAWLINE 125Q GetValue 105Q GetValue 53Q GetValue 36Q DRAWLINE 32Q GetValue 14Q GetValue) (122Q window 116Q PAINT 102Q tickLength 77Q ticks 50Q smallTicks 45Q ticks 27Q window 23Q PAINT 11Q tickLength 6 ticks) NIL DrawLines D1 (P 4 point P 3 i P 0 pointTail I 6 color I 5 operation I 4 width I 3 toPointN I 2 fromPointN I 1 window I 0 pointList) UBkbC@ b@B HdHA HCBkIhKJLLDEAF KkػIY(111Q DRAWTO 74Q BLOCK 43Q MOVETO 23Q NTH 13Q LENGTH) NIL NIL DrawRay D1 (P 1 c P 0 s I 10Q invisLength I 7 color I 6 window I 5 operation I 4 width I 3 angle I 2 length I 1 y I 0 x) 7 C C G@GIԀ@GAGHԀA@BIABHDEFG h(63Q DRAWLINE 7 COS 3 SIN) NIL NIL DrawTick D1 (P 4 nt1 P 3 i P 1 invisLength P 0 tickLength I 4 smallSizeFactor I 3 incr I 2 numExtraTicks I 1 angle I 0 self) @gg @g @g @g Alg@g h@g H Bh@g DHDրHYBkBkKJ@g @g @g AKCLlg@g hI Kk[(213Q DrawRay 205Q GetValue 162Q GetValue 153Q GetValue 144Q GetValue 107Q GetValue 74Q DrawRay 66Q GetValue 56Q GetValue 41Q GetValue 32Q GetValue 23Q GetValue 11Q GetValue) (202Q window 176Q PAINT 157Q radius 150Q yc 141Q xc 104Q radius 63Q radius 53Q window 47Q PAINT 36Q radius 27Q yc 20Q xc 6 tickLength 3 ticks) NIL DrawVTick D1 (P 0 xsmall I 3 incr I 2 y I 1 x I 0 self) ]ABAB@gg lg@g C;@gg /AClkHBHB@gg lkg@g h(131Q DRAWLINE 125Q GetValue 106Q GetValue 53Q GetValue 36Q DRAWLINE 32Q GetValue 15Q GetValue) (122Q window 116Q PAINT 103Q tickLength 100Q ticks 50Q smallTicks 45Q ticks 27Q window 23Q PAINT 12Q tickLength 7 ticks) NIL EvenIntervals D1 (L (3 includeLastFlg 2 numIntervals 1 range 0 lower)) 1Bj2IH&CIdB@IABؼK Lh[IkYL&JNIL NIL NIL GetPathObj D1 (I 1 path I 0 obj) A@@A Abb(11Q GetValue) NIL NIL LineLeft D1 (P 1 I I 6 shade I 5 wait I 4 height I 3 window I 2 Y I 1 XB I 0 XA) <@AkIHhEl hddC@IBkDlggFn IkY(63Q BITBLT 24Q WAITMS) (51Q INVERT 46Q TEXTURE) NIL LineLower D1 (P 1 I I 6 shade I 5 wait I 4 width I 3 window I 2 YB I 1 YA I 0 X) OBAjHHjHkIHhEl hddC@AdBBIDlkggFn IkY(106Q BITBLT 41Q WAITMS) (74Q INVERT 71Q TEXTURE) NIL LineRaise D1 (P 1 I I 6 shade I 5 wait I 4 width I 3 window I 2 YB I 1 YA I 0 X) QBAjHHjHkjIHhEl hddC@IAdBBDlkggFn IkY(110Q BITBLT 43Q WAITMS) (76Q PAINT 73Q TEXTURE) NIL LineRight D1 (P 1 I I 6 shade I 5 wait I 4 height I 3 window I 2 Y I 1 XB I 0 XA) >A@kjIHhEl hddCI@BkDlggFn IkY(65Q BITBLT 26Q WAITMS) (53Q PAINT 50Q TEXTURE) NIL MoveImageRight D1 (P 2 CLIPREG P 1 EXTENT P 0 DSP I 1 XDELTA I 0 WINDOW) @g @g RhH ZAjIRi@j@ j@ @A@ j@ JJ AH @AjLj@ j@ AJdL]LYmJIJJIIdAAdKKbjhJA@ JdMMj@ jAJdNNJh h(324Q FILLWITHBACKGROUND 271Q WTODSY 253Q WTODSX 141Q WTODSY 134Q WTODSX 120Q WXOFFSET 112Q BITBLT 75Q WTODSY 70Q WTODSX 62Q WTODSY 55Q WTODSX 25Q DSPCLIPPINGREGION 15Q GETWINDOWPROP 6 GETWINDOWPROP) (12Q EXTENT 3 DSP) NIL PinnedSetting D1 (L (2 maxSetting 1 minSetting 0 reading)) A@A@dBBNIL NIL NIL PrintLabelScale D1 (I 0 self) 9@g k-kd@g g@g @g @g h(64Q PRIN1 61Q GetValue 52Q GetValue 43Q PRIN1 40Q GetValue 26Q MOVETO 23Q GetValue 6 GetValue) (56Q window 47Q labelScale 35Q window 31Q X 20Q window 3 labelScale) NIL RotateLine D1 (P 4 a P 1 incr P 0 diff I 10Q color I 7 deltaAngle I 6 width I 5 window I 4 newAngle I 3 angle I 2 length I 1 yorg I 0 xorg)  DC!CD h@ABCFgEG mHjGlٰHl`GHlۺlJJlDICIMMj;jMLDILDI)@ABLFgEG @ABLFgEG LI]ؼ@ABDFgEG h(237Q DrawRay 207Q DrawRay 167Q DrawRay 34Q DrawRay 12Q EQUAL) (230Q INVERT 200Q INVERT 160Q INVERT 25Q INVERT) NIL SetUpBarChart D1 (P 3 bc P 2 gaugedObj P 1 obj I 4 path I 3 maxScale I 2 chartTitle I 1 ivName I 0 listOfObjects) k @ g ]g MkL[gB HKYD K_g OJAgI IlNCK_g _OjClOHX(126Q FetchMethodOrHelp 101Q GetObjectName 65Q FetchMethodOrHelp 53Q GetPathObj 36Q PutValue 20Q FetchMethodOrHelp 11Q GetObjectRec) (123Q SetScale 75Q Set 62Q Attach 32Q title 15Q New 6 BarChart) NIL ShowRayLabel D1 (P 2 c P 1 s P 0 length I 2 string I 1 angle I 0 self) Y@g @g llA A B@g HJ@g h@g lHIl@g h(125Q CenterPrint 122Q GetValue 100Q DSPLINEFEED 75Q GetValue 65Q GetValue 52Q GetValue 37Q COS 33Q SIN 20Q MAXSTRINGWIDTH 15Q GetValue 6 GetValue) (117Q window 72Q window 62Q yc 47Q xc 12Q labels 3 radius) NIL TellInstrument D1 (P 3 instrument P 0 temp I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) 5DB@ACE !@AgE dKZg JBlIH(44Q FetchMethodOrHelp 25Q GetIt 11Q PutLocalState) (41Q Set 21Q myGauges) NIL TitleWidth D1 (I 0 str F 0 WindowTitleDisplayStream) @hP (10Q STRINGWIDTH 5 DSPFONT) NIL NIL (PRETTYCOMPRINT GAUGESCOMS) (RPAQQ GAUGESCOMS ((* Copyright (c) Xerox Corporation 1983) (CLASSES * GAUGESCLASSES) (METHODS BarChart.DrawInstrument BarChart.Set BarChart.SetParameters BarChart.ShowReading BarChart.Update BoundedMixin.ComputeDisplayVal BoundedMixin.OutOfBounds Dial.DrawInstrument Dial.SetParameters Dial.ShowLabels Dial.ShowTicks DigiMeter.ComputeScale DigiMeter.Set DigiMeter.SetParameters DigiMeter.ShowReading DigiMeter.Update DigiScale.Set DigiScale.SetParameters DigiScale.ShowReading Gauge.Attach Gauge.AttachProbe Gauge.Attached? Gauge.Close Gauge.Detach Gauge.DetachProbe Gauge.MaxCurrentReading Gauge.Reset Gauge.SetScale Gauge.ShowInstrument Gauge.Update Gauge.Update? HBarChart.DrawInstrument HBarChart.Set HBarChart.SetParameters HBarChart.ShowReading HorizontalScale.DrawInstrument HorizontalScale.OutOfBounds HorizontalScale.Set HorizontalScale.SetParameters HorizontalScale.ShowLabels HorizontalScale.ShowReading HorizontalScale.ShowTicks Instrument.ComputeDisplayVal Instrument.ComputeScale Instrument.PrintLabelScale Instrument.SetParameters Instrument.ShowInstrument LCD.ComputeScale LCD.PrintReading LCD.Reset LCD.Set LCD.SetParameters LCD.ShowInstrument LCD.ShowReading LCD.SmallRegion Meter.ComputeScale Meter.DrawInstrument Meter.SetParameters Meter.Shape Meter.ShowLabels Meter.ShowTicks MultiValueMixin.AddLabel MultiValueMixin.Attach MultiValueMixin.DeleteLabel MultiValueMixin.Detach MultiValueMixin.MaxCurrentReading MultiValueMixin.OutOfBounds MultiValueMixin.SetUp RoundScale.Reset RoundScale.Set RoundScale.ShowReading SelfScaleMixin.Set VerticalScale.DrawInstrument VerticalScale.Set VerticalScale.SetParameters VerticalScale.ShowLabels VerticalScale.ShowReading VerticalScale.ShowTicks ) (* * Utility functions for Gauges) (FNS * GAUGEUTILITYFNS) (VARS GB))) (RPAQQ GAUGESCLASSES (BarChart BoundedMixin Dial DigiMeter DigiScale Gauge HBarChart HorizontalScale Instrument LCD Meter MultiValueMixin RoundScale SSBarChart SSDigiMeter SSHBarChart SelfScaleMixin VerticalScale)) (DEFCLASSES BarChart BoundedMixin Dial DigiMeter DigiScale Gauge HBarChart HorizontalScale Instrument LCD Meter MultiValueMixin RoundScale SSBarChart SSDigiMeter SSHBarChart SelfScaleMixin VerticalScale) (DEFCLASS BarChart (MetaClass Class doc (* A gauge with multiple vertical scales.) Edited: (* dgb: "22-JUL-83 15:50")) (Supers MultiValueMixin VerticalScale) (InstanceVariables (maxLabelWidth 0 doc (* maximum widt of a label string.)) (scaleLeft 3) (scaleBottom 30))) (DEFCLASS BoundedMixin (MetaClass Class Edited: (* dgb: " 9-JUN-83 23:04") doc (* * For use as a mixin for Instruments. Computes a bounded scale for displayVal)) (Supers Object)) (DEFCLASS Dial (MetaClass Class doc (* A dial with bounded range, like an auto speedometer) Edited: (* dgb: "22-FEB-83 15:11")) (Supers BoundedMixin RoundScale) (InstanceVariables (ticks 7) (labels (0 20 40 60 80 100 120)) (width 121) (displayVal 120) (inputRange 120) (lower 120) (range -60))) (DEFCLASS DigiMeter (MetaClass Class doc (* A combination Meter and LCD, for both analog and digital readout.) Edited: (* dgb: "28-OCT-83 11:30")) (Supers Meter LCD) (InstanceVariables (readingY 100) ( width 120) (inputRange 100) (labels (0 10 20 30 40 50 60 70 80 90 doc (* labels for the instrument))) (ticks 10))) (DEFCLASS DigiScale (MetaClass Class doc (* Combines a numeric display with an unlabelled proportional horizontal scale) Edited: (* dgb: " 6-JUN-83 17:55")) (Supers HorizontalScale LCD) (InstanceVariables (ticks NIL tickLength NIL) (scaleHeight 6) (scaleLeft 6) (height 24) (width 70))) (DEFCLASS Gauge (MetaClass Class doc (* An object which presents a dynamic graphical image of a Loops value) Edited: (* dgb: "22-JUL-83 16:24")) (Supers Window) (ClassVariables (LeftButtonItems ((Update ( QUOTE Update) "Update gauge to show all labels") ("Save in IT" (QUOTE SaveInIT) "Save Gauge as value of variable IT"))) (MiddleButtonItems ((Attached? (QUOTE Attached?) "Print where gauge attached") (Detach (QUOTE Detach) "Detach gauge")))) (InstanceVariables (reading 0 doc (* external value of reading)) (attachedTo NIL ivName NIL machine NIL doc (* value is object this gauge is attached to. ivName tells the name of iv. machine is NIL if local, else is ETHERHOSTNUMBER or name of remote machine)))) (DEFCLASS HBarChart (MetaClass Class doc (* Horizontally oriented BarChart) Edited: (* dgb: "22-JUL-83 23:19")) (Supers MultiValueMixin HorizontalScale) (InstanceVariables (width 250 doc (* Inside width of entire window)) (scaleLeft 40 doc (* position From left of names)) (width 250 doc (* Inside width of entire window)) (maxLabelWidth 0 doc (* maxSize in dots of the widest label)))) (DEFCLASS HorizontalScale (MetaClass Class doc (* A labelled bounded scale with a bar which fills to the right) Edited: (* dgb: "22-FEB-83 15:13")) (Supers BoundedMixin Instrument) (InstanceVariables ( labels (0 10 20 30 40 50 60 70 80 90 100)) (ticks 11) (height 57 doc (* a window high enough for 11 labels)) (width 208) (scaleWidth 120 doc (* width of inside of scale)) (scaleHeight 15 doc (* height of scale)) (scaleLeft 12 doc (* left edge of scale)) (scaleBottom 10 doc (* bottom edge of scale)))) (DEFCLASS Instrument (MetaClass AbstractClass doc (* A numeric gauge scaled externally by inputLower and inputRange, and internally by lower and range) Edited: (* dgb: "22-FEB-83 15:03")) (Supers Gauge) (InstanceVariables (displayVal 0 doc (* Internal value relative to instrument)) (ticks 5 tickLength 9 smallTicks 1 doc (* * ticks on the instrument; value is number or NIL; smallTicks is number between each large tick)) (labels NIL doc (* labels for the instrument)) (labelScale 1 doc (* scaleFactor for labels e.g. value 1000 means 3000 is indicated by 3)) (lower 0 doc (* lower bound for internal displayVal)) (inputLower 0 doc (* lower bound for external reading)) (range 100 doc (* range for internal displayVal)) (inputRange 100 doc (* range for external reading)))) (DEFCLASS LCD (MetaClass Class doc (* A gauge which gives an alphanumeric display of a value) Edited: (* dgb: "13-JUN-83 10:42")) (Supers Gauge) (ClassVariables (Font (GACHA 12 BOLD))) (InstanceVariables (height 14) (width 30) (readingY 7 doc (* y position of center of reading)) (precision 5 readingRegion NIL doc (* value= num chars in reading. readingRegion is derived from precision and rading)))) (DEFCLASS Meter (MetaClass Class doc (* A circular instrument that will wrap around any number of times) Edited: (* dgb: "22-FEB-83 15:10")) (Supers RoundScale) (InstanceVariables (ticks 10) (lower 90 ) (displayVal 90) (range -360) (labels (0 10 20 30 40 50 60 70 80 90)) (height 120) (width 100))) (DEFCLASS MultiValueMixin (MetaClass Class Edited: (* dgb: "22-JUL-83 16:56")) (Supers Object) ( InstanceVariables (displayVal NIL doc (* List of participants. Each elementof displayVal is a triple ( Label xPos YValue) where label is an atom, and will be used both to identify the column, and label it on the bottom. xPos is the horizontal position, and Ypos is the vertical height starting at scaleBottom+1)) (barWidth 10 doc (* standard width of the bar)) (scaleBottom 30 doc (* Bottom edge of scale)))) (DEFCLASS RoundScale (MetaClass AbstractClass Edited: (* mjs: "28-JAN-83 10:19") doc (* AbstractClass for instrucments with circular (arc) scales)) (Supers Instrument) (InstanceVariables (needleLength 15 doc (* radius of needle)) (radius 10 doc (* radius of arc in instrument)) (xc 0 doc (* x center of arc )) (yc 0 doc (* y center of arc)))) (DEFCLASS SSBarChart (MetaClass Class doc (* Self-scaling BarChart) Edited: (* edited: "10-JUL-83 14:03")) (Supers SelfScaleMixin BarChart)) (DEFCLASS SSDigiMeter (MetaClass Class doc (* Self-scaling DigiMeter.) Edited: (* edited: "10-JUL-83 14:04")) (Supers SelfScaleMixin DigiMeter)) (DEFCLASS SSHBarChart (MetaClass Class doc (* This is a self scaling Horizontally oriented barChart) Edited: (* dgb: "23-JUL-83 00:46")) (Supers SelfScaleMixin HBarChart)) (DEFCLASS SelfScaleMixin (MetaClass Class Edited: (* dgb: "10-JUN-83 02:32")) (Supers Object) ( InstanceVariables (lowScaleFactor 5 doc (* If maxCurrentReading shrinks so that it will fit more than lowScaleFactor times in inputRange, the gauge rescales)))) (DEFCLASS VerticalScale (MetaClass Class doc (* A labelled bounded scale with a black bar which rises proportional to its reading) Edited: (* dgb: "23-JUN-83 16:38")) (Supers BoundedMixin Instrument) ( InstanceVariables (labels (0 10 20 30 40 50 60 70 80 90 100)) (ticks 11 tickLength 7) (height 160 doc (* a window high enough for 11 labels)) (width 77) (scaleWidth 15 doc (* width of inside of scale)) ( scaleHeight 120 doc (* height of scale)) (scaleLeft 15 doc (* left edge of scale)) (scaleBottom 12 doc (* bottom edge of scale)))) (METH BarChart DrawInstrument NIL (* Print the labels under each bar.)) (METH BarChart Set (reading label) (* show reading on vertical scale)) (METH BarChart SetParameters NIL (* Set scale hieght from height)) (METH BarChart ShowReading NIL (* dgb: " 9-JUN-83 22:14")) (METH BarChart Update NIL (* Scale internal readings to min and max for update)) (METH BoundedMixin ComputeDisplayVal (reading) (* dgb: "26-JAN-83 17:09")) (METH BoundedMixin OutOfBounds (outFlg) (* Print ? if out, space other wise)) (METH Dial DrawInstrument NIL (* Draw two concentric circles to contain ticks)) (METH Dial SetParameters NIL (* Set up center of circle for dial and needle, and length of radius.)) (METH Dial ShowLabels NIL (* If there are any labels, show them on the dial)) (METH Dial ShowTicks NIL (* Draw ticks in even intervals from angle of 120 down to 60)) (METH DigiMeter ComputeScale (min max labelScale) (* Compute scale for both dial and alphaDisplay)) (METH DigiMeter Set (reading) (* set both on dial and on digits)) (METH DigiMeter SetParameters NIL (* Set all params)) (METH DigiMeter ShowReading (reading) (* Show displayVal both on dial and on digits)) (METH DigiMeter Update NIL (*)) (METH DigiScale Set (reading) (* Combined method for Set)) (METH DigiScale SetParameters NIL (* Set parameters for unscaled horizontal gauge combined with LCD on bottom)) (METH DigiScale ShowReading NIL (* dgb: " 9-JUN-83 21:34")) (METH Gauge Attach (obj varName selector otherArgs label machine xOrPos y) (* Attach a self to obj/varName)) (METH Gauge AttachProbe (obj varName selector otherArgs label machine) (* Attach a probe to an object, and record attachment here in Gauge. Returns current value of obj varName)) (METH Gauge Attached? (dontPrintFlg) (* dgb: "17-FEB-83 13:12")) (METH Gauge Close NIL (* Detach the gauge and close the window)) (METH Gauge Detach NIL (* Detach gauge from attachedPlaces it is attached to)) (METH Gauge DetachProbe (place) (* Detach a probe on a place specified by place, a list of form ( objName varName . otherStuff) %. Called by Detach)) (METH Gauge MaxCurrentReading NIL (* Returns the reading now, since in general there is only one)) (METH Gauge Reset (newReading) (* set reading to value, and then update gauge so that it shows that reading without going through intermediate states)) (METH Gauge SetScale (min max labelScale) (* compute the scale and redisplay if necessary)) (METH Gauge ShowInstrument NIL (* Cause an error, becuase this should be implemented in subclass)) (METH Gauge Update NIL (* Set up display window for instrument. Reinitialize to reflect current state) ) (METH Gauge Update? NIL (* Update if there is a window and it is open)) (METH HBarChart DrawInstrument NIL (* Print the labels next to each bar.)) (METH HBarChart Set (reading label) (* show reading on vertical scale)) (METH HBarChart SetParameters NIL (* Set scale hieght from height)) (METH HBarChart ShowReading NIL (* show the line at initial level. intrnal displayVal is really line heigt)) (METH HorizontalScale DrawInstrument NIL (* Draw a horizontal tube for instrument)) (METH HorizontalScale OutOfBounds NIL (* Print " " or ?? depending on whether reading is out of bounds)) (METH HorizontalScale Set (newReading) (* show reading on horizontal scale)) (METH HorizontalScale SetParameters NIL (* Set scale width from width)) (METH HorizontalScale ShowLabels NIL (* Put labels next to ticks)) (METH HorizontalScale ShowReading NIL (* dgb: " 9-JUN-83 22:37")) (METH HorizontalScale ShowTicks NIL (* Show ticks along bottom edge of scale)) (METH Instrument ComputeDisplayVal (reading) (* Computes displayVal of instrument in bounded range)) (METH Instrument ComputeScale (min max labelScale) (* DECLARATIONS: MIXED)) (METH Instrument PrintLabelScale NIL (* Print the scale of labelling on instrument)) (METH Instrument SetParameters NIL (* Set scale hieght from height)) (METH Instrument ShowInstrument NIL (* show the instrument including the current displayVal)) (METH LCD ComputeScale (min max) (* Sets the precision based on the width of min and max)) (METH LCD PrintReading NIL (* dgb: " 9-JUN-83 22:15")) (METH LCD Reset (newReading) (* set reading to value. Same as Set since there is no special way to do this)) (METH LCD Set (newReading) (* Put number in box)) (METH LCD SetParameters NIL (* Set the font for the window)) (METH LCD ShowInstrument NIL (* Nothing needed)) (METH LCD ShowReading NIL (* dgb: " 9-JUN-83 22:15")) (METH LCD SmallRegion NIL (* Create small LCD region for mixin display)) (METH Meter ComputeScale NIL (* dgb: "29-JAN-83 01:48")) (METH Meter DrawInstrument NIL (*)) (METH Meter SetParameters NIL (* Compute center and radius for meters)) (METH Meter Shape NIL (*)) (METH Meter ShowLabels NIL (* If there are any labels, show them on the dial)) (METH Meter ShowTicks NIL (* *Draw ticks at even intervals around the circle starting from 90)) (METH MultiValueMixin AddLabel (label labelReading) (* add to the list of bars on the chart)) (METH MultiValueMixin Attach (obj varName selector label machine xOrPos y) (* Attach to obj varName and label it in chart with label)) (METH MultiValueMixin DeleteLabel (label updateFlg) (* Remove a bar from a chart)) (METH MultiValueMixin Detach (label) (* Detach gauge from attachedPlaces it is attached to)) (METH MultiValueMixin MaxCurrentReading NIL (* return the max readinr in (@ reading))) (METH MultiValueMixin OutOfBounds (outFlg) (* Print ? if out, space other wise)) (METH MultiValueMixin SetUp (listOfObjects ivName chartTitle maxScale path) (* Attach a bar chart to the iv of specified by the object in the list, and the path. path can be an atom, meaning that IV, or it can be a list of atoms to be followed, each an iv name. Each bar on the chart will be labelled with the name of the object on listOfObjects. title will be used for the BarChart.)) (METH RoundScale Reset (newReading) (* set reading to value, and then update gauge so that it shows that reading without going through intermediate states)) (METH RoundScale Set (newReading) (* dgb: "27-JAN-83 11:34")) (METH RoundScale ShowReading NIL (* dgb: "26-JAN-83 23:43")) (METH SelfScaleMixin Set (reading otherArg1 otherArg2) (* Check if reading is too high or too low, and if so see if gauge needs to rescale)) (METH VerticalScale DrawInstrument NIL (* Draw a vertical tube for instrument)) (METH VerticalScale Set (reading) (* show reading on vertical scale)) (METH VerticalScale SetParameters NIL (* Set scale hieght from height)) (METH VerticalScale ShowLabels NIL (* Put labels next to ticks)) (METH VerticalScale ShowReading NIL (* dgb: " 9-JUN-83 22:37")) (METH VerticalScale ShowTicks NIL (* Show ticks along right edge of scale)) (RPAQQ GAUGEUTILITYFNS (CenterPrint ChangeHorizontalSetting ChangeVerticalSetting ComputeLabels ConcatNSpaces DrawBox DrawHTick DrawLines DrawRay DrawTick DrawVTick EvenIntervals GetPathObj LineLeft LineLower LineRaise LineRight MoveImageRight PinnedSetting PrintLabelScale RotateLine SetUpBarChart ShowRayLabel TellInstrument TitleWidth)) (RPAQQ GB (MultiValueMixin SelfScaleMixin SelfScaleBarChart BoundedMixin VerticalScale BarChart RoundScale HorizontalScale DigiScale LCD Gauge DigiMeter Instrument Meter Dial)) (PUTPROPS GAUGES COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL