The Trunk: Nebraska-nice.36.mcz

Nicolas Cellier uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-nice.36.mcz

==================== Summary ====================

Name: Nebraska-nice.36
Author: nice
Time: 25 December 2013, 11:20:43.521 pm
UUID: cc80dca4-ed72-4c39-952c-3b37886100de
Ancestors: Nebraska-ul.35

Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2)

=============== Diff against Nebraska-ul.35 ===============

Item was changed:
  ----- Method: CanvasEncoder class>>explainTestVars (in category 'as yet unclassified') -----
  explainTestVars
  "
  CanvasEncoder explainTestVars
  "
  | answer oneBillion total |
 
  SimpleCounters ifNil: [^ Beeper beep].
  total := 0.
  oneBillion := 1000 * 1000 * 1000.
  answer := String streamContents: [ :strm | | data putter |
  data := SimpleCounters copy.
  putter := [ :msg :index :nSec | | nReps |
  nReps := data at: index.
  total := total + (nSec * nReps).
  strm nextPutAll: nReps asStringWithCommas,' * ',nSec printString,' ',
+ (nSec * nReps / oneBillion printShowingMaxDecimalPlaces: 2),' secs for ',msg; cr
- (nSec * nReps / oneBillion roundTo: 0.01) printString,' secs for ',msg; cr
  ].
  putter value: 'string socket' value: 1 value: 8000.
  putter value: 'rectangles' value: 2 value: 40000.
  putter value: 'points' value: 3 value: 18000.
  putter value: 'colors' value: 4 value: 8000.
  ].
  StringHolder new
  contents: answer;
  openLabel: 'put integer times'.
 
  !

Item was changed:
  ----- Method: CanvasEncoder class>>timeSomeThings (in category 'as yet unclassified') -----
  timeSomeThings
  "
  CanvasEncoder timeSomeThings
  "
  | answer array color iter |
 
  iter := 1000000.
  array := Array new: 4.
  color := Color red.
  answer := String streamContents: [ :strm | | bm rect writer pt s |
  writer := [ :msg :doer | | ms |
  ms := [iter timesRepeat: doer] timeToRun.
+ strm nextPutAll: msg,((ms * 1000 / iter) printShowingMaxDecimalPlaces: 2),' usec'; cr.
- strm nextPutAll: msg,((ms * 1000 / iter) roundTo: 0.01) printString,' usec'; cr.
  ].
  s := String new: 4.
  bm := Bitmap new: 20.
  pt := 100@300.
  rect := pt extent: pt.
  iter := 1000000.
  writer value: 'empty loop ' value: [self].
  writer value: 'modulo ' value: [12345678 \\ 256].
  writer value: 'bitAnd: ' value: [12345678 bitAnd: 255].
  strm cr.
  iter := 100000.
  writer value: 'putInteger ' value: [s putInteger32: 12345678 at: 1].
  writer value: 'bitmap put ' value: [bm at: 1 put: 12345678].
  writer value: 'encodeBytesOf: (big) ' value: [bm encodeInt: 12345678 in: bm at: 1].
  writer value: 'encodeBytesOf: (small) ' value: [bm encodeInt: 5000 in: bm at: 1].
  writer value: 'array at: (in) ' value: [array at: 1].
  writer value: 'array at: (out) ' value: [array at: 6 ifAbsent: []].
  strm cr.
  iter := 10000.
  writer value: 'color encode ' value: [color encodeForRemoteCanvas].
  writer value: 'pt encode ' value: [pt encodeForRemoteCanvas].
  writer value: 'rect encode ' value: [self encodeRectangle: rect].
  writer value: 'rect encode2 ' value: [rect encodeForRemoteCanvas].
  writer value: 'rect encodeb ' value: [rect encodeForRemoteCanvasB].
  ].
 
  StringHolder new contents: answer; openLabel: 'send/receive stats'.
  !