Squeak-dev June 2017

squeak-dev@lists.squeakfoundation.org

36 participants
130 discussions

The Trunk: 60Deprecated-mt.7.mcz
by commits＠source.squeak.org 30 Jun '17

30 Jun '17

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.7.mcz ==================== Summary ==================== Name: 60Deprecated-mt.7 Author: mt Time: 30 June 2017, 9:28:45.255527 am UUID: 52918b74-85a9-bc4b-9af5-d9c234c32635 Ancestors: 60Deprecated-eem.6 Companion for Morphic-mt.1342. Deprecates specific handler-priority callbacks, which can easily be replaced by using the generic callback #handlerForMouseDown:. =============== Diff against 60Deprecated-eem.6 =============== Item was added: + ----- Method: Morph>>blueButtonDown: (in category '*60Deprecated-meta-actions') ----- + blueButtonDown: anEvent + "Nothing." + + self deprecated: 'Use #mouseDown:.'.! Item was added: + ----- Method: Morph>>blueButtonUp: (in category '*60Deprecated-meta-actions') ----- + blueButtonUp: anEvent + "Ignored. Theoretically we should never get here since control is transferred to the halo on #blueButtonDown: but subclasses may implement this differently." + + self deprecated: 'Use #mouseUp:.'.! Item was added: + ----- Method: Morph>>handlerForBlueButtonDown: (in category '*60Deprecated-meta-actions') ----- + handlerForBlueButtonDown: anEvent + + self deprecated: 'Use #handlerForMouseDown:.'. + ^ nil! Item was added: + ----- Method: Morph>>handlerForMetaMenu: (in category '*60Deprecated-meta-actions') ----- + handlerForMetaMenu: evt + + self deprecated: 'Use #handlerForMouseDown: or #wantsMetaMenu or #mouseDownPriority.'. + ^ nil!

1 0

Graphing weather data
by tim Rowledge 30 Jun '17

30 Jun '17

Now that I have my Pi based weather station[1] in operation and mounted up on the peak of my garage roof ... … I need to do something with the data it provides. Sadly the code reading the sensors is in Python (for now!) but it sends it as MQTT packets to a mac-mini running the broker. I’m working with Craig on an MQTT client (very early state on http://www.squeaksource.com/@gWFeIvLx-rTHKE2R/Gtrt3pje) to read it but then what? Are there any current projects that will work in squeak5.1/spur that can draw nice graphs? What kind of graphs are good for weather data? Should there be chocolate? I guess I ought to store some amount of collected data so maybe it’s time I got to grips with Magma. I’m interested in all ideas that might lead somewhere fun with this. With those ESP8266 wi-fi enabled sorta-arduino things so cheap and easy to set up there must be a gazillion interesting things that could be monitored and analyzed and graphed and indeed actuated in response; let’s not forget that MQTT works both ways. How about a rain sensor sending a message that its raining (duh) which gets collected and turned into a message to your car to close the sunroof before the velvet seat covers (with painted portrait of Elvis, natch) get wet? Or a strain gauge on your security fence alerting you that something heavier than 20 pounds has climbed over so the remote gatling needs hotting up? tim [1] Pi model A+ with gpio attached interface board for rain bucket, wind speed/direction, outdoor temp/humidity, indoor temp, RTC and USB attached Ethernet interface to POE adaptor. WiFi wasn’t practical due to metal roof. Besides, POE means I can hard-reboot by pulling a plug in my server room :-) -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: IIB: Ignore Inquiry and Branch anyway

12 37

PositionableStream >> peekBack
by Jakob Reschke 30 Jun '17

30 Jun '17

Hi all, I just stumbled upon the behavior of #peekBack. I expected that it would give me a "preview" of what I would get when I send #back, but without changing the position of the Stream (like #peek does for #next). Or in other words, I expected to get the last read (or written) element. As it turned out it answers the next-to-last element instead. There even is a test case in RWBinaryOrTextStreamTest for this behavior. But does it make sense? I have my doubts mainly because of the inconsistency with the return value of #back. There is also #peekLast, which does what I expected, but it is only defined for File- and WriteStream and the comment says it is intended to get the last put element, not a last read/extracted/next-ed element. Kind regards, Jakob

4 4

File URI on Windows
by Ron Teitelbaum 30 Jun '17

30 Jun '17

Hi All, I just ran into an error with FileDirectory >> uri and saw this commit comment. >>>* Network-fbs.102 <<< *Fix TestURI>>testDirWithHash. Given that FileDirectory>>uri had "encodeForHTTP" commented out, I'd appreciate extra pair of eyes on this change. If there are good reasons not to URI-encode the path bits, please add a comment explaining why! HTTP encoding of the drive letter colon on Windows breaks uri's and other http encoded characters or even an encoded space also fail if you use the uri path to do something like retrieving files. It seems to me the FileDirectory class >> pathFromURI: should return something that works with FileDirectory class >> on: Our code does this: (FileDirectory on: (FileDirectory default pathFromURI: aPathName )) fileNames I started doing some research and windows seems to require UTF-16 for file names. I saw convertToSystemString which I thought might actually be the right answer but it only does UTF8 which is wrong. the two possible solutions are that I change my code to do (FileDirectory on: (FileDirectory default pathFromURI: aPathName ) unescapePercents) fileNames or we remove the encodeForHTTP and put it back the way it was on FileDirectory >> uri I'll also note that FileURL >> pathString also does encodeForHTTP which I think is correct since you are looking for a URL not a FileDirectory and would expect HTTP encoding. Thoughts? All the best, Ron Teitelbaum

1 0

Solarized dark theme: text selection colour a little hard to see
by Tony Garnock-Jones 30 Jun '17

30 Jun '17

In my image, I've replaced SolarizedTheme class >> #darkBackgroundHighlights with the following, since with the default I find it very difficult to spot which list item is selected, where the text selection is, etc etc: darkBackgroundHighlights ^ self base02 lighter (The original had just "^ self base02".) Does anyone else suffer similarly with the default? Should something like my change make it into the master image? Tony

7 8

The Trunk: MorphicExtras-tpr.208.mcz
by commits＠source.squeak.org 29 Jun '17

29 Jun '17

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.208.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.208 Author: tpr Time: 29 June 2017, 1:39:47.531472 pm UUID: fa32d395-0aae-4754-bda1-d184dd95713c Ancestors: MorphicExtras-nice.207 Move the rotary dial morphs into this package as suggested by Marcel. =============== Diff against MorphicExtras-nice.207 =============== Item was added: + RotaryDialMorph subclass: #BarometerMorph + instanceVariableNames: 'priorPressureIndicator' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !BarometerMorph commentStamp: 'tpr 4/13/2017 16:48' prior: 0! + I am a model of a moderately visually ornate barometer, complete with curly tailed needle and the adjustable 'last pressure' needle used to help display the recent changes in pressure. In this case a d-click makes the 'last pressure' needle move to the current pressure position. + + ! Item was added: + ----- Method: BarometerMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "start by making a damn big Form, twice the size we want to end up with" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle tickLabelSize maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + "inner ring" + self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + "outer scale for inches of HG" + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.8 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.73 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "since we're going from 28in. to 31in. of Hg for the outer scale and want alternating full and half ticks as we go round we need 31-28 * 10 * 2 -> 60 ticks" + maxTicks := 31 - 28 * 10 * 2. + tickAngle := endAngle - beginAngle / maxTicks. + 0 to: maxTicks do: [:tick| + tickLabel := nil. + tickLength := {outerRadius * 0.07. outerRadius * 0.14} atWrap: tick+1. + tick \\ 20 = 0 ifTrue: [ + tickLabel := #( '28' '29' '30' '31') at: tick // 20 + 1. + tickLabelSize := 24. + ] ifFalse: [ + tick \\ 2 = 0 ifTrue: [ + tickLabel := (tick // 2 \\ 10) asString. + tickLabelSize := 18. + ]. + ]. + self drawTickRadius: outerRadius * 0.73 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick * tickAngle) onCanvas: canvas. + self tickLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) + tickLength angle: beginAngle + (tick * tickAngle) onCanvas: canvas. + ]. + + self tickInnerLabel: 'mB' fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. + + "inner scale for mB" + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.71 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.63 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "since we're going from 948mB to 1050 for this inner scale and want thick ticks at each 10mB interval with narrow ones elsewhere we have (1050 - 948) total ticks " + maxTicks := stopValue - startValue. + tickAngle := endAngle - beginAngle / maxTicks. + tickLength := outerRadius * 0.07. + startValue to: stopValue do: [ :tick ||tickThickness| + tickLabel := nil. + tick \\ 10 = 0 ifTrue: [ + tickLabelSize := 20. + tickThickness := 3. + tickLabel := tick asString. + ] ifFalse: [ + tickThickness := 2. + ]. + self drawTickRadius: outerRadius * 0.63 length: tickLength thickness: tickThickness color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + self tickInnerLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.63) angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + tickLabel := nil. + tick = 970 ifTrue:[tickLabel := 'Rain']. + tick = 1000 ifTrue:[tickLabel := 'Change']. + tick = 1030 ifTrue:[tickLabel := 'Fair']. + self tickInnerLabel: tickLabel fontSize: 24 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.5) angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + + ]. + self tickLabel: '"Hg' fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: BarometerMorph>>doubleClick: (in category 'initialize-release') ----- + doubleClick: evt + "the user has just tapped on the glass of the barometer, so move the priorPressureIndicator to match the current value" + priorPressureIndicator rotationDegrees: needleMorph rotationDegrees! Item was added: + ----- Method: BarometerMorph>>handlesMouseDown: (in category 'initialize-release') ----- + handlesMouseDown: evt + ^true! Item was added: + ----- Method: BarometerMorph>>initialize (in category 'initialize-release') ----- + initialize + "assemble a nice barometer morph. The background is an ImageMorph with scale/dial drawn with code adapted from a generous donation of time and effort by Bob Arning; similarly for the needle" + | pointerMorph | + + super initialize. + "set up as a barometer type display; running clockwise with increasing values. + A decent range for a barometer is 950mB to 1050mB; it covers most plausible weather and matches decently with an additional inches-of-Hg scale going from 28 to 31. + 28in. -> 948mB and 31in. -> 1050 (to enough accuracy for a screen based widget) so we need a small tweak at the lower end of the dial. If we aim initially for 150deg each side of north we have 3deg per milliBar; to accomodate the extra 2mB we can add 6deg at the low end, which makes 1000mB sit nicely at due north. + So we will use angles of -156 to 150 and values of 948 to 1050 as our limits." + + self startAngle: -156 stopAngle: 150; + startValue: 948 stopValue: 1050. + self extent: 200@200; color: Color transparent; borderWidth: 0. + dialCenter := self center. + + "build the dial background. This is amazingly complex to think about programmatically; this example is fairly hard-coded by hand but somebody out there almost certainly has ideas about parameterizing this to amke a nice general utility" + self buildDial. + + "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" + pointerMorph := self fancyNeedleOfLength: (self height * 0.65) rounded. + pointerMorph position: pointerMorph extent * ( -0.5@ -0.65). + + "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + + "Add the simpler needle used to indicate the prior 'remembered' reading; we will make a click update it to the current value" + pointerMorph := self simpleNeedleOfLength: (self height * 0.35) rounded color: (Color r: 16rFF g: 16rD7 b: 16r0 range: 512). + pointerMorph position: pointerMorph extent * ( -0.5@ -1). + priorPressureIndicator := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: priorPressureIndicator. + + "add a central near-to-gold colored dot. Because we just do." + self addMorph: (CircleMorph new extent: 20@20; color: (Color r: 16rFF g: 16rD7 b: 16r0 range: 256); center: dialCenter) + ! Item was added: + ----- Method: BarometerMorph>>mouseDown: (in category 'event handling') ----- + mouseDown: evt + "Do nothing upon mouse-down except inform the hand to watch for a + double-click; wait until an ensuing click:, doubleClick:, or drag: + message gets dispatched" + evt hand + waitForClicksOrDrag: self + event: evt + selectors: #( #click: #doubleClick: #doubleClickTimeout: #startDrag:) + threshold: HandMorph dragThreshold! Item was added: + RotaryDialMorph subclass: #ClockDialMorph + instanceVariableNames: 'hourHandMorph' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !ClockDialMorph commentStamp: 'tpr 6/29/2017 13:26' prior: 0! + A ClockDialMorph is a clock implemented as a rotary dial morph. The intersting part of this is having two needles that continuously rotate as opposed to the normal rule of having a single needle limited in range. + + Instance Variables + hourHandMorph: <Morph, typically wrapped ina a TransformationMorph>! Item was added: + ----- Method: ClockDialMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "start by making a damn big Form, twice the size we want to end up with" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + "inner ring" + self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + "outer scale for degrees" + beginAngle := startAngle . + endAngle := stopAngle. + + maxTicks := stopValue - startValue . + tickAngle := endAngle - beginAngle / maxTicks. + startValue to: stopValue do: [:tick| + tickLength := outerRadius * 0.07. + tickLabel := nil. + tick \\ 6 = 0 ifTrue:["tick every 6 degrees on the outer ring" + self drawTickRadius: outerRadius * 0.9 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + ]. + tick \\ 30 = 0 ifTrue: ["tick every 30 degrees on the inner ring" + self drawTickRadius: outerRadius * 0.83 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + (tick \\ 30 = 0 and: [tick < 360]) ifTrue:["numbered ticks every 30 degrees, don't overwrite 0 with 360" + self tickInnerLabel: (tick // 30) asString fontSize: 24 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.75) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas + ] + ] + ]. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: ClockDialMorph>>initialize (in category 'initialization') ----- + initialize + "assemble a nice clock morph. The background is an ImageMorph with scale/dial drawn with code adapted from a generous donation of time and effort by Bob Arning; the minute needle is the inherited needleMorph and we added a new hourHandMorph. Both are simple rectangleMorphs" + | pointerMorph | + + super initialize. + + self startAngle: 0 stopAngle: 360; + startValue: 0 stopValue: 360. + self extent: 200@200; color: Color transparent; borderWidth: 0. + dialCenter := self center. + + "build the dial background; basic clock with miute ticks and hour long-ticks + arabic numerals" + self buildDial. + + pointerMorph := self basicNeedleOfLength: (self height * 0.45) rounded width: 4 color: Color red. + pointerMorph position: pointerMorph extent * ( -0.5@ -1). + + "we keep track of the TransformationMorph since that is what we have to rotate" + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + + "additional neelde for the hours" + pointerMorph := self basicNeedleOfLength: (self height * 0.35) rounded width: 6 color: Color black. + pointerMorph position: pointerMorph extent * ( -0.5@ -1). + + "we keep track of the TransformationMorph since that is what we have to rotate" + hourHandMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: hourHandMorph. + + "add a central colored dot. Because we just do." + self addMorph: (CircleMorph new extent: 8@8; color: Color red twiceDarker; center: dialCenter) + ! Item was added: + ----- Method: ClockDialMorph>>setTime: (in category 'updating') ----- + setTime: aTime + + needleMorph rotationDegrees: aTime minutes * 6 + (aTime seconds / 10). + hourHandMorph rotationDegrees: (aTime hours * 30) + (aTime minutes / 2)! Item was added: + ----- Method: ClockDialMorph>>step (in category 'stepping and presenter') ----- + step + self setTime: Time now! Item was added: + ----- Method: ClockDialMorph>>stepTime (in category 'stepping and presenter') ----- + stepTime + ^5000! Item was added: + RotaryDialMorph subclass: #CompassDialMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !CompassDialMorph commentStamp: 'tpr 4/14/2017 13:21' prior: 0! + A CompassDialMorph shows a navigation compass. Unusually for most dials it has a full 360 degree span.! Item was added: + ----- Method: CompassDialMorph>>basicNeedleOfLength:width:color: (in category 'needle graphics') ----- + basicNeedleOfLength: nLength width: nWidth color: aColor + "make a really trivial needle as a colored rhombus" + | fancy | + + fancy := Form extent: nWidth@nLength depth: 32. + fancy fillColor: Color transparent. + fancy getCanvas asBalloonCanvas + aaLevel: 4; + drawPolygon: (Array with: (nWidth/ 2)@0 with: (nWidth)@( nLength / 2) with:0@(nLength / 2) with: (nWidth/ 2)@0) fillStyle: aColor borderWidth: 1 borderColor: Color black; + drawPolygon: (Array with: (nWidth)@( nLength / 2) with: (nWidth/ 2)@(nLength) with:0@(nLength / 2) with: (nWidth)@( nLength / 2)) fillStyle: Color black borderWidth: 0 borderColor: Color black. + + ^fancy asMorph. + ! Item was added: + ----- Method: CompassDialMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "start by making a damn big Form, twice the size we want to end up with" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + "inner ring" + self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + "outer scale for degrees" + beginAngle := startAngle . + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.9 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.83 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.55 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "We use a simple % range, just one scale" + maxTicks := stopValue - startValue . + tickAngle := endAngle - beginAngle / maxTicks. + startValue to: stopValue do: [:tick| + tickLength := outerRadius * 0.07. + tickLabel := nil. + tick \\ 2 = 0 ifTrue:["tick every 2 degrees on the outer ring" + self drawTickRadius: outerRadius * 0.9 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + ]. + tick \\ 10 = 0 ifTrue: ["tick every 10 degrees on the inner ring" + self drawTickRadius: outerRadius * 0.83 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + (tick \\ 30 = 0 and: [tick < 360]) ifTrue:["numbered ticks every 30 degrees, don't overwrite 0 with 360" + self tickInnerLabel: tick asString fontSize: 24 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.75) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas + ] + ]. + (tick \\ 90 = 0 and: [tick < 360]) ifTrue:["Major cardianl at the full points" + tickLabel := { 'N'. 'E'. 'S'. 'W'. nil.} atWrap: tick // 90 +1. + self tickInnerLabel: tickLabel fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.65) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas + ]. + (tick \\ 90 = 45 and: [tick < 360]) ifTrue:["minor cardinal at the half-points" + tickLabel := { 'NE'. 'SE'. 'SW'. 'NW'. nil.} atWrap: tick // 90 +1. + self tickInnerLabel: tickLabel fontSize: 30 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.48) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas + ] + ]. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: CompassDialMorph>>initialize (in category 'initialize-release') ----- + initialize + "assemble a nice compass morph. The background is an ImageMorph with scale/dial drawn with code adapted from a generous donation of time and effort by Bob Arning; similarly for the needle" + | pointerMorph | + + super initialize. + "A compass runs from 0 deg to 360, clockwise. Traditional compass roses can be very ornate." + + self startAngle: 0 stopAngle: 360; + startValue: 0 stopValue: 360. + self extent: 200@200; color: Color transparent; borderWidth: 0. + dialCenter := self center. + + "build the dial background. This is amazingly complex to think about programmatically; this example is fairly hard-coded by hand but somebody out there almost certainly has ideas about parameterizing this to amke a nice general utility" + self buildDial. + + "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" + pointerMorph := self basicNeedleOfLength: (self height * 0.65) rounded width: 10 color: Color red. + pointerMorph position: pointerMorph extent * ( -0.5@ -0.5). + + "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + + "add a central colored dot. Because we just do." + self addMorph: (CircleMorph new extent: 20@20; color: Color red twiceDarker; center: dialCenter) + ! Item was added: + RotaryDialMorph subclass: #HygrometerDialMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !HygrometerDialMorph commentStamp: 'tpr 4/14/2017 10:13' prior: 0! + A Hygrometer measures the relative humidity of the air; a HygrometerDialMorph provides a way to display the value of R.H.! Item was added: + ----- Method: HygrometerDialMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "start by making a damn big Form, twice the size we want to end up with" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle tickLabelSize maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + "inner ring" + self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + "just one scale for a hygrometer" + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.8 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.73 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "We use a simple % range, just one scale" + maxTicks := stopValue - startValue . + tickAngle := endAngle - beginAngle / maxTicks. + startValue to: stopValue do: [:tick| + tickLength := outerRadius * 0.07. + tickLabel := nil. + tick \\ 10 = 0 ifTrue: [ + tickLabel := tick asString. + tickLabelSize := 24 + ] ifFalse: [ + tick \\ 2 = 0 ifTrue:[ + tickLabel := (tick \\ 10) asString. + tickLabelSize := 18 + ] ifFalse: [ + tickLength := tickLength * 2 + ] + ]. + self drawTickRadius: outerRadius * 0.73 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + self tickLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + ]. + + self tickLabel: '% R.H.' fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.53) angle: 180 onCanvas: canvas. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: HygrometerDialMorph>>initialize (in category 'initialize-release') ----- + initialize + "Build a hygrometer. The background is an ImageMorph showing a dial derived from the same general principles as the BarometerMorph. " + | pointerMorph | + super initialize. + + self startAngle: -140 stopAngle: 140; + startValue: 25 stopValue: 100. + self extent: 200@200; color: Color transparent; borderWidth: 0. + dialCenter := self center. + + self buildDial. + + "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" + pointerMorph := self fancyNeedleOfLength: (self height * 0.65) rounded. + pointerMorph position: pointerMorph extent * ( -0.5@ -0.65). + + "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + + "add a central colored dot. Because we just do." + self addMorph: (CircleMorph new extent: 20@20; color: Color black; center: dialCenter) + ! Item was added: + Morph subclass: #RotaryDialMorph + instanceVariableNames: 'startAngle stopAngle startValue stopValue needleMorph needleRotationCenter dialCenter currentValue' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !RotaryDialMorph commentStamp: 'tpr 4/13/2017 16:58' prior: 0! + RotaryDialMorph is the beginnings of a suite of morphs to display values in a round dial manner. Things like pressure, speed, time, voltage etc are al well absorbed from a rotary display. + + Instance Variables + dialCenter: <Point> - usuall the centre of the dial but consider VU meters where the pivot is pretty much at an edge. + needleMorph: <TransformationMorph> - wrapped around the morphs that make up the value indicating needle. This might a simple rectanglemorph, a composite like an ArrowMorph, an ImageMorph , whatever. + startAngle: <Number> - the start & stop angles are given in degrees from vertical up; although this causes much fun in working out the geometry it is much easier to think of a barometer going from -150 to +150 than -4.1887902047863905 to 1.0471975511965976 radians. The stopAngle needs to be further clockwise than the startAngle. + startValue: <Number> - the start & stopValues tell us what input data we must handle. It is possible to have the stopValue smaller than the startValue and effectively have the needle move backwards. This can be useful for dial where the pivot is at the top and the needle waggles around at the bottom. + stopAngle: <Number> + stopValue: <Number> + ! Item was added: + ----- Method: RotaryDialMorph>>allaroundometer (in category 'examples') ----- + allaroundometer + "set up as an all-round type display like a clock or compass" + "RotaryDialMorph new allaroundometer openInWorld" + | pointerMorph | + self startAngle: 0 stopAngle: 360; + startValue: 0 stopValue: 1. + self extent: 200@200; + color: Color transparent. + dialCenter := self center. + self addMorph: (CircleMorph new extent: self extent). + pointerMorph := LineMorph from: 0@0 to: 0@ (self height // 2) color: Color red width: 2. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0.25 + + ! Item was added: + ----- Method: RotaryDialMorph>>backwardsometer (in category 'examples') ----- + backwardsometer + "set up as a backwards type display, ie +1 to left, -1 to right" + "RotaryDialMorph new backwardsometer openInWorld" + | pointerMorph | + self startAngle: -90 stopAngle: 90; + startValue: 1 stopValue: -1. + self extent: 200@200; + color: Color transparent. + dialCenter := self center. + + self addMorph: (CircleMorph new extent: self extent). + pointerMorph := LineMorph from: 0@0 to: 0@ (self height // 2) color: Color red width: 2. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0 + + + ! Item was added: + ----- Method: RotaryDialMorph>>backwardsupsidedownometer (in category 'examples') ----- + backwardsupsidedownometer + "set up as upsidedown backwards type display, ie -1 to left, 1 to right" + "RotaryDialMorph new backwardsupsidedownometer openInWorld" + | pointerMorph | + self startAngle: 110 stopAngle: -110; + startValue: -1 stopValue: 1. + self extent: 200@200; + color: Color transparent. + dialCenter := self center. + + self addMorph: (CircleMorph new extent: self extent). + pointerMorph := LineMorph from: 0@0 to: 0@ (self height // 2) color: Color blue width: 2. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0 + + ! Item was added: + ----- Method: RotaryDialMorph>>basicNeedleOfLength:width:color: (in category 'needle graphics') ----- + basicNeedleOfLength: nLength width: nWidth color: aColor + "make a really trivial needle as a colored rectangle" + ^RectangleMorph new extent: nWidth @ nLength; color: aColor; borderWidth: 1! Item was added: + ----- Method: RotaryDialMorph>>basicometer (in category 'examples') ----- + basicometer + "set up as a forwards type display, ie 1 to left, +1 to right" + "RotaryDialMorph new basicometer openInWorld" + | pointerMorph | + self startAngle: -90 stopAngle: 90; + startValue: -1 stopValue: 1. + self extent: 200@200; + color: Color transparent. + dialCenter := self center. + + self addMorph: (CircleMorph new extent: self extent). + pointerMorph := LineMorph from: 0@0 to: 0@ (self height // 2) color: Color red width: 2. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0 + + + ! Item was added: + ----- Method: RotaryDialMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "attempt a plausible default dial" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle tickLabelSize maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.8 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.73 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "Since this is a wild-guess default we'll try having 1 tick per integer value" + maxTicks := stopValue - startValue. + tickAngle := endAngle - beginAngle / maxTicks. + tickLength := outerRadius * 0.07. + startValue to: stopValue do: [:tick| + tickLabel := nil. + tickLabel := tick asString. + tickLabelSize := 24. + self drawTickRadius: outerRadius * 0.73 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + "self tickLabel1." + self tickLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) + tickLength angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + ]. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: RotaryDialMorph>>colorfulBasicometer (in category 'examples') ----- + colorfulBasicometer + "set up as a forwards type display, ie 1 to left, +1 to right" + "RotaryDialMorph new colorfulBasicometer openInWorld" + | pointerMorph textM | + self startAngle: -120 stopAngle: 120; + startValue: -1 stopValue: 1. + self extent: 300@300; + color: GradientFillStyle sample. + dialCenter := self center. + + self addMorph: (textM := TextMorph fancyPrototype). + textM extent: 250@30; contents: 'Wild colored RotaryDial HippieLand!!'; fontName: 'Darkmap DejuVu Sans' size: 22. + textM align: textM topCenter with: self topCenter. + pointerMorph := CurveMorph new vertices: {0@0. -10@ -50. 10@ -100} color: Color yellow borderWidth: 5 borderColor: Color blue. + pointerMorph makeOpen; makeForwardArrow.. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0 + + + ! Item was added: + ----- Method: RotaryDialMorph>>drawArcAt:radius:thickness:color:beginAngle:endAngle:onForm: (in category 'dial drawing') ----- + drawArcAt: arcCenter radius: arcRadius thickness: arcThickness color: arcColor beginAngle: beginAngle endAngle: endAngle onForm: dest + "angles clockwise from North in degrees; the endAngle must be clockwise of beginAngle. + To make life more fun we then convert to anti-clockwise-from-east radians for the geometry." + + | angle lw2 stop step newPt c diff form rho cell endRho | + + form := Form extent: dest extent depth: 32. + lw2 := arcThickness * 0.5. + angle := (90 - endAngle) degreesToRadians. + stop := (90 - beginAngle) degreesToRadians min: angle + Float twoPi. + step := 0.9 / arcRadius. + [ + rho := arcRadius - lw2 - 0.5. + endRho := arcRadius + lw2 + 0.5. + [rho <= endRho] whileTrue: [ + cell := (rho * angle cos) rounded @ (rho * angle sin) rounded negated. + newPt := arcCenter + cell. + diff := (cell r - arcRadius) abs. + c := diff <= lw2 ifTrue: [arcColor] ifFalse: [arcColor alpha: 1.0 - (diff - lw2)]. + form colorAt: newPt put: c. + rho := rho + 0.5. + ]. + (angle := angle + step) <= stop + ] whileTrue. + dest getCanvas translucentImage: form at: 0@0. + ! Item was added: + ----- Method: RotaryDialMorph>>drawTickRadius:length:thickness:color:angle:onCanvas: (in category 'dial drawing') ----- + drawTickRadius: radius length: length thickness: thickness color: color angle: angle onCanvas: canvas + "angles clockwise from North in degrees" + + | newPt cell pts rads | + rads := (90 - angle) degreesToRadians. + pts := {radius. radius + length + 0.5} collect: [ :rho | + cell := (rho * rads cos) rounded @ (rho * rads sin) rounded negated. + newPt := dialCenter * 2 + cell. + ]. + canvas line: pts first to: pts second width: thickness color: color + ! Item was added: + ----- Method: RotaryDialMorph>>fancyNeedleOfLength: (in category 'needle graphics') ----- + fancyNeedleOfLength: aNumber + "we can make a fancy-schmancy barometer type needle with a curly arrow and moon-shaped tail and then scale it to a length" + ^self fancyNeedleOfLength: aNumber color: Color black! Item was added: + ----- Method: RotaryDialMorph>>fancyNeedleOfLength:color: (in category 'needle graphics') ----- + fancyNeedleOfLength: aNumber color: aColor + "we can make a fancy-schmancy barometer type needle with a curly arrow and moon-shaped tail and then scale it to a length" + | fancy smaller | + + fancy := Form extent: 100@500 depth: 32. + fancy fillColor: Color white. + fancy getCanvas + fillOval: (5@405 extent: 90@90) color: aColor; + fillOval: (15@430 extent: 70@70) color: Color white; + fillRectangle: (20@40 extent: 60@60) color: aColor; + fillOval: (-348@ -200 extent: 400@400) color: Color white; + fillOval: (48@ -200 extent: 400@400) color: Color white; + fillRectangle: (48@10 extent: 4@400) color: aColor. + fancy replaceColor: Color white withColor: Color transparent. + + smaller := fancy magnify: fancy boundingBox by: (aNumber / fancy boundingBox height) smoothing: 2. + ^smaller asMorph. + ! Item was added: + ----- Method: RotaryDialMorph>>inputValue: (in category 'updating') ----- + inputValue: aNumber + "move the needleMorph to display the value; we clamp it to the range + [startValue, stopValue]" + | input newDegrees | + stopValue > startValue + ifTrue: [input := aNumber min: stopValue max: startValue] + ifFalse: [input := aNumber min: startValue max: stopValue]. + currentValue := input. + newDegrees := currentValue - startValue / (stopValue - startValue) * ((stopAngle - startAngle)\\360) + startAngle. + needleMorph rotationDegrees: newDegrees \\ 360! Item was added: + ----- Method: RotaryDialMorph>>simpleNeedleOfLength: (in category 'needle graphics') ----- + simpleNeedleOfLength: aNumber + + ^self simpleNeedleOfLength: aNumber color: Color black! Item was added: + ----- Method: RotaryDialMorph>>simpleNeedleOfLength:color: (in category 'needle graphics') ----- + simpleNeedleOfLength: aNumber color: aColor + "we can make a simpler type needle with a curly arrow and no tail and then scale it to a length" + | fancy smaller | + + fancy := Form extent: 100@500 depth: 32. + fancy fillColor: Color white. + fancy getCanvas + fillRectangle: (20@40 extent: 60@60) color: aColor; + fillOval: (-348@ -200 extent: 400@400) color: Color white; + fillOval: (48@ -200 extent: 400@400) color: Color white; + fillRectangle: (48@10 extent: 4@490) color: aColor. + fancy replaceColor: Color white withColor: Color transparent. + + smaller := fancy magnify: fancy boundingBox by: (aNumber / fancy boundingBox height) smoothing: 2. + ^smaller asMorph. + ! Item was added: + ----- Method: RotaryDialMorph>>startAngle:stopAngle: (in category 'accessing') ----- + startAngle: angle1 stopAngle: angle2 + "set the start and stop angles of the dial; we modulo them with 360 to keep things logical" + startAngle := angle1 \\ 360. + stopAngle := angle2 \\ 360. + + "if the two angles end up the same then we will guess that in fact the user wants a full-rotation rather than nothing. " + startAngle = stopAngle ifTrue:[ + angle1 < angle2 ifTrue:[stopAngle := (startAngle +359.9) \\360]. + angle2 < angle1 ifTrue:[stopAngle := (startAngle - 359.9) \\360]] + "if the input angles actually were the same then the user has made a mistake and we can't really solve it. Install a better user?"! Item was added: + ----- Method: RotaryDialMorph>>startValue:stopValue: (in category 'accessing') ----- + startValue: value1 stopValue: value2 + "set the start and stop values for the dial readings. Note that they can be backwards to allow the needle to rotate counter clockwise for increasing inputs" + startValue := value1. + stopValue := value2! Item was added: + ----- Method: RotaryDialMorph>>tickInnerLabel:fontSize:color:centeredAt:radius:angle:onCanvas: (in category 'dial drawing') ----- + tickInnerLabel: aString fontSize: fSize color: aColor centeredAt: aPoint radius: radius angle: angle onCanvas: canvas + "draw the label string centered on the point radius from the centre point, at the angle. Long strings will almost certainly cause problems" + | cell font pos rads rho stringExtent f rot | + aString ifNil: [^self]. + font := TextStyle default fontOfSize: fSize. + "draw the string and rotate it; we flip the angle to keep the letters kinda-sorta the right way up to read easily" + stringExtent := (StringMorph contents: aString font: font ) imageForm boundingBox extent. + f := Form extent: stringExtent depth: 32. + f getCanvas drawString: aString in: (0@0 extent: stringExtent) font: font color: aColor. + (angle \\ 360 between: 90.5 and: 269.5) ifTrue:[ + rot := angle - 180] ifFalse: [ + rot := angle ]. + f := f rotateBy: rot smoothing: 2. + + "the radius is reduced by a bit more than half the string height to fit it reasonably neatly inside the radius" + rho := radius - (stringExtent y /1.7). + rads := (90 - angle) degreesToRadians. + cell := (rho * rads cos) rounded @ (rho * rads sin) rounded negated. + pos := aPoint * 2 + cell - (f extent // 2). + canvas translucentImage: f at: pos! Item was added: + ----- Method: RotaryDialMorph>>tickLabel:fontSize:color:centeredAt:radius:angle:onCanvas: (in category 'dial drawing') ----- + tickLabel: aString fontSize: fSize color: aColor centeredAt: aPoint radius: radius angle: angle onCanvas: canvas + "draw the label string unrotated outside the radius centered on the centre point. We try to get the center of the string bounds on the relevant point but it may look odd for certain strings" + | cell font pos rads rho stringExtent | + aString ifNil: [^self]. + + font := TextStyle default fontOfSize: fSize. + stringExtent := (StringMorph contents: aString font: font ) imageForm boundingBox extent. + rho := radius + (stringExtent r /2). + rads := (90 - angle) degreesToRadians. + cell := (rho * rads cos) rounded @ (rho * rads sin) rounded negated. + pos := aPoint * 2 + cell - (stringExtent // 2). + canvas drawString: aString in: (pos extent: stringExtent) font: font color: aColor! Item was added: + ----- Method: RotaryDialMorph>>upsidedownometer (in category 'examples') ----- + upsidedownometer + "set up as a forwards but upside-down type display, ie 1 to left, +1 to right" + "RotaryDialMorph new upsidedownometer openInWorld" + | pointerMorph | + self startAngle: 100 stopAngle: -100; + startValue: -1 stopValue: 1. + self extent: 200@200; + color: Color transparent. + dialCenter := self center. + + self addMorph: (CircleMorph new extent: self extent). + pointerMorph := LineMorph from: 0@0 to: 0@ (self height // 2) color: Color red width: 2. + pointerMorph bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self inputValue: 0 + + + ! Item was added: + ----- Method: RotaryDialMorph>>vumeter (in category 'examples') ----- + vumeter + "set up as a VU meter type display" + "RotaryDialMorph new vumeter openInWorld" + | pointerMorph | + self startAngle: 35 stopAngle: 145; + startValue: -10 stopValue: 10. + self extent: 100@200. + dialCenter := -60@100. + pointerMorph := RectangleMorph new extent: 4@150; color: Color black; bottomRight: 0@0. + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + self addMorph: (CircleMorph new extent: 200@200; center: dialCenter). + self inputValue: 0. + self color: Color white; borderWidth: 3; borderColor: Color black; clipSubmorphs: true + + ! Item was added: + RotaryDialMorph subclass: #ThermometerDialMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Widgets'! + + !ThermometerDialMorph commentStamp: 'tpr 6/29/2017 13:29' prior: 0! + A ThermometerDialMorph is a rotary thermometer; the default is to set the range to typical outdoor temperatures but of course that can be altered with the normal #startValue:stopValue: message! Item was added: + ----- Method: ThermometerDialMorph>>buildDial (in category 'dial drawing') ----- + buildDial + "start by making a damn big Form, twice the size we want to end up with" + |outerRadius destForm canvas tickLabel tickLength beginAngle endAngle tickAngle tickLabelSize maxTicks | + outerRadius := self height - 1. + destForm := Form extent: self extent * 2 depth: 32. + (canvas := destForm getCanvas) fillOval: (0@0 extent: self extent * 2) color: Color white. + "outer ring" + self drawArcAt: destForm center radius: outerRadius thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + "inner ring" + self drawArcAt: destForm center radius: outerRadius * 0.97 thickness: 1 color: Color black beginAngle: 0 endAngle: 360 onForm: destForm. + + "outer scale for Fahrenheit" + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.8 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.73 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + "The Fahrenheit values of our range are + startValue -5/ 5 * 9 + 32 ->23 + stopValue 30 / 5 * 9 + 32 -> 86 + which is very conveniently integral but sadly it corresponds to 4.44444 deg per ... degree." + maxTicks := stopValue - startValue / 5 * 9 . + tickAngle := endAngle - beginAngle / maxTicks. + (startValue / 5 * 9 +32) to: (stopValue / 5 * 9 +32) do: [:tick| + tickLength := outerRadius * 0.07. + tickLabel := nil. + tick \\ 10 = 0 ifTrue: [ + tickLabel := tick asString. + tickLabelSize := 24 + ] ifFalse: [ + tick \\ 2 = 0 ifTrue:[ + tickLabel := (tick \\ 10) asString. + tickLabelSize := 18 + ] ifFalse: [ + tickLength := tickLength * 2 + ] + ]. + self drawTickRadius: outerRadius * 0.73 length: tickLength thickness: 2 color: Color black angle: beginAngle + (tick - (startValue / 5 * 9 +32) * tickAngle) onCanvas: canvas. + self tickLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) + tickLength angle: beginAngle + (tick - (startValue / 5 * 9 +32) * tickAngle) onCanvas: canvas. + ]. + + self tickInnerLabel: (String with: (Unicode value: 16rB0) with: $C) fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. + + "inner scale for Celsius" + beginAngle := startAngle -360. "needs cleaning up about this" + endAngle := stopAngle. + + self drawArcAt: destForm center radius: outerRadius * 0.71 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + self drawArcAt: destForm center radius: outerRadius * 0.63 thickness: 1 color: Color black beginAngle:beginAngle endAngle: stopAngle onForm: destForm. + maxTicks := stopValue - startValue. + tickAngle := endAngle - beginAngle / maxTicks. + tickLength := outerRadius * 0.07. + startValue to: stopValue do: [ :tick ||tickThickness| + tickLabel := nil. + tick \\ 5 = 0 ifTrue: [ + tickLabelSize := 20. + tickThickness := 3. + tickLabel := tick asString. + ] ifFalse: [ + tickThickness := 2. + ]. + self drawTickRadius: outerRadius * 0.63 length: tickLength thickness: tickThickness color: Color black angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + self tickInnerLabel: tickLabel fontSize: tickLabelSize color: Color black centeredAt: dialCenter radius: (outerRadius * 0.63) angle: beginAngle + (tick - startValue * tickAngle) onCanvas: canvas. + + ]. + + self tickLabel: (String with: (Unicode value: 16rB0) with: $F) fontSize: 36 color: Color black centeredAt: dialCenter radius: (outerRadius * 0.73) angle: 180 onCanvas: canvas. + + self addMorph: (destForm magnify: destForm boundingBox by: 0.5 smoothing: 2) asMorph! Item was added: + ----- Method: ThermometerDialMorph>>initialize (in category 'initialize-release') ----- + initialize + "Build a thermometer. The background is an ImageMorph showing a dial derived from the same general principles as the BarometerMorph. + The temperature scale is fixed for now at -5C to 30C but ought to be parameterised someday. We'll have the Celcius scale as the inner and a conversion to Fahrenheit as the outer" + | pointerMorph | + super initialize. + + self startAngle: -140 stopAngle: 140; + startValue: -5 stopValue: 30. + self extent: 200@200; color: Color transparent; borderWidth: 0. + dialCenter := self center. + + self buildDial. + + "build our fancy needle as an ImageMorph, set the position to horizontal centre and about 2/3 down so that it rotates about that point when inside the TransformationMorph" + pointerMorph := self fancyNeedleOfLength: (self height * 0.65) rounded. + pointerMorph position: pointerMorph extent * ( -0.5@ -0.65). + + "we keep track of the TransformationMorph since that is what we have to rotate as the incoming pressure values change" + needleMorph := TransformationMorph new position: dialCenter; addMorph: pointerMorph. + self addMorph: needleMorph. + + "add a central colored dot. Because we just do." + self addMorph: (CircleMorph new extent: 20@20; color: Color black; center: dialCenter) + !

1 0

Mouse button tester question
by H. Hirzel 29 Jun '17

29 Jun '17

Hello, http://wiki.squeak.org/squeak/2332 'Mouse button tester' has m := Morph new. m on: #mouseDown send: #value: to:[:evt| evt redButtonPressed ifTrue:[m color: Color red]. evt yellowButtonPressed ifTrue:[m color: Color yellow]. evt blueButtonPressed ifTrue:[m color: Color blue] ]. m openInWorld. red and yellow button work, but the blue button brings up the halo as it is noted on the wiki page (tested with a three button mouse). I wonder if there is a way to make the change of the button to blue possible? --Hannes

4 8

Rotary dial morphs
by tim Rowledge 29 Jun '17

29 Jun '17

I’ve factored out the barometer etc code from my weather station project and added http://www.squeaksource.com/RotaryDialMorphs for more general use. It seems to me there has to be some nice factoring of the style of the dial markings that could be applied, perhaps something like text styling and line styling that we see in drawing programs. Perhaps a student project even? Don’t forget that partial-rotary displays are also useful - think analogue VU meters (there’s an example included for that) and old car-dashboard ammeters etc. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Oxymorons: Good grief

2 2

[CfP][Meta'17] Workshop on Meta-Programming Techniques and Reflection
by Stefan Marr 29 Jun '17

29 Jun '17

Call for Papers: Meta’17 ======================== Workshop on Meta-Programming Techniques and Reflection Co-located with SPLASH 2017 October 22, 2017, Vancouver, Canada Twitter @MetaAtSPLASH http://2017.splashcon.org/track/meta-2017 The heterogeneity of mobile computing, cloud applications, multicore architectures, and other systems leads to increasing complexity of software and requires new approaches to programming languages and software engineering tools. To manage the complexity, we require generic solutions that can be adapted to specific application domains or use cases, making metaprogramming an important topic of research once more. However, the challenges with metaprogramming are still manifold. They start with fundamental issues such as typing of reflective programs, continue with practical concerns such as performance and tooling, and reach into the empirical field to understand how metaprogramming is used and how it affects software maintainability. Thus, while industry accepted metaprogramming on a wide scale with Ruby, Scala, JavaScript and others, academia still needs to answer a wide range of questions to bring it to the same level of convenience, tooling, and programming styles to cope with the increasing complexity of software systems. This workshop aims to explore meta-level technologies that help tackling the heterogeneity, scalability and openness requirements of emerging computations platforms. ### Topics of Interest The workshop is a venue for all approaches that embrace metaprogramming: - from static to dynamic techniques - reflection, meta-level architectures, staging, open language runtimes applications to middleware, frameworks, and DSLs - optimization techniques to minimize runtime overhead - contract systems, or typing of reflective programs reflection and metaobject protocols to enable tooling - case studies and evaluation of such techniques, e.g., to build applications, language extensions, or tools - empirical evaluation of metaprogramming solutions - security in reflective systems and capability-based designs - meta-level architectures and reflective middleware for modern runtime platforms (e.g. IoT, cyber-physical systems, mobile/cloud/grid computing, etc) - surveys, conceptualization, and taxonomization of existing approaches In short, we invite contributions to the workshop on a wide range of topics related to design, implementation, and application of reflective APIs and meta-programming techniques, as well as empirical studies and typing for such systems and languages. ### Workshop Format and Submissions This workshop welcomes the presentation of new ideas and emerging problems as well as mature work as part of a mini-conference format. Furthermore, we plan interactive brainstorming and demonstration sessions between the formal presentations to enable an active exchange of ideas. The workshop papers will be published in the ACM DL, if not requested otherwise by the authors. Thus, they will be part of SPLASH workshop proceedings. Therefore, papers are to be submitted using the SIGPLAN acmart style: http://www.sigplan.org/Resources/Author/. Please use the provided double-column templates for Latex http://www.sigplan.org/sites/default/files/acmart/current/acmart-sigplanpro…) or Word http://www.acm.org/publications/proceedings-template. - technical paper: max. 8 pages, excluding references - position and work-in-progress paper: 1-4 pages, excluding references - technology demos or a posters: 1-page abstract Demos, posters, position and work-in-progress papers can be submitted on a second, later deadline to discuss the latest results and current work. For the submission, please use the submission system at: https://meta17.hotcrp.com/ ### Important Dates Abstract Submission: 07 August 2017 Paper Submission: 14 August 2017 Author Notification: 06 September 2017 Position/WIP Paper Deadline: 08 September 2017 Camera Ready Deadline: 18 September 2017 Position/WIP Notification: 21 September 2017 ### Program Committee The program committee consists of the organizers and the following reviewers: Anya Helen Bagge, University of Bergen, Norway Daniele Bonetta, Oracle Labs, Austria Nicolas Cardozo, Universidad de los Andes, Colombia Sebastian Erdweg, TU Delf, The Nederlands Robert Hirschfeld, HPI, Germany Roberto Ierusalimschy, PUC-Rio, Brazil Pablo Inostroza, CWI, The Nederlands Kim Mens, Universite Catholique de Louvain, Belgium Cyrus Omar, Carnegie Mellon University, USA Guillermo Polito, CNRS, France Tiark Rompf, Purdue University, USA Tom Van Cutsem, Nokia Bell Labs, Belgium Takuo Watanabe, Tokyo Institute of Technology, Japan ### Workshop Organizers Shigeru Chiba, University of Tokyo Elisa Gonzalez Boix, Vrije Universiteit Brussel Stefan Marr, Johannes Kepler University Linz

1 0

The Trunk: SystemReporter-mt.37.mcz
by commits＠source.squeak.org 29 Jun '17

29 Jun '17

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.37.mcz ==================== Summary ==================== Name: SystemReporter-mt.37 Author: mt Time: 29 June 2017, 3:03:50.636613 pm UUID: 677772f4-1903-2e48-8fd7-67c47c5ff48e Ancestors: SystemReporter-nice.36 Fixes some glitch with the font in the system reporter's report. =============== Diff against SystemReporter-nice.36 =============== Item was changed: ----- Method: SystemReporter>>buildReportWith: (in category 'building') ----- buildReportWith: aBuilder ^ aBuilder pluggableTextSpec new model: self; + font: Preferences standardFixedFont; menu: #reportMenu:; getText: #reportText; yourself.! Item was changed: ----- Method: SystemReporter>>updateReport (in category 'updating') ----- updateReport report := Text streamContents: [:stream | + self categoryList do: [:each | + (categoriesSelected includes: each) ifTrue: [ + self perform: ((categories at: each), ':') asSymbol with: stream. + stream cr]]]. + self changed: #reportText.! - stream - withAttribute: (TextFontReference toFont: Preferences standardFixedFont) - do: [ - self categoryList do: [:each | - (categoriesSelected includes: each) ifTrue: [ - self perform: ((categories at: each), ':') asSymbol with: stream. - stream cr]]]]. - self changed: #reportText!

1 0

← Newer
1
2
3
4
5
6
7
...
13
Older →