~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to build/SmalltalkSketches/stats.st

• browse files at revision 276.1.3
• compare with another revision
• download diff
• download tarball
• view history from revision 276.1.3

Show diffs side-by-side

added

removed

build/SmalltalkSketches/stats.st

 

1

|canvas s stats points|

 

 

b'points :=Array new: 12.'

 

 

b'stats := Array new: 12 withAll: 0.'

 

 

b'canvas := DrGeoCanvas new.'

 

 

b'canvas \tscale: 20;'

 

 

b'\tcenterTo: 6@10.'

 

 

b'2 to: 12 do: [:i |'

 

 

b'\tpoints at: i put: (canvas point: i@0.1).'

 

 

b'\t(points at: i) square; color: Color blue.'

 

 

b'\ts := canvas segment: i@0 to: (points at: i).'

 

 

b'\ts color: Color red].'

 

 

b'canvas do: ['

 

 

b'\t1 to: 10000 do: [:i|'

 

 

b'\t\ts := 6 atRandom + 6 atRandom.'

 

 

b'\t\tstats at: s put: ((stats at: s)+1).'

 

 

b'\t\t(points at: s) '

 

 

b'\t\t\tname: (stats at: s) asString;'

 

 

b'\t\t\tmoveTo: s @ ((stats at: s) / 100).'

 

 

b'\t\tcanvas update].'

 

 

b'\tcanvas gridOn.'

 

 

b'\t2 to: 12 do: [:i |'

 

 

b'\t\t(points at: i) name: (stats at: i) / 100.0]].'

 

 

b'\t'

 

 

b'\\ No newline at end of file'

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1