Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: SmallLand-ColorTheme-nice.5.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-nice.5.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-nice.5 Author: nice Time: 25 December 2013, 11:29:31.632 pm UUID: fecc0c3f-d3c5-47cd-981d-1f8bfd1db692 Ancestors: SmallLand-ColorTheme-nice.4 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) BIS, sorry for the noise. =============== Diff against SmallLand-ColorTheme-nice.4 =============== Item was changed: ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- labelForColor: aColor + ^ (aColor red printShowingMaxDecimalPlaces: 2) , ' ' , (aColor green printShowingMaxDecimalPlaces: 2) , ' ' , (aColor blue printShowingMaxDecimalPlaces: 2)! - ^ (aColor red printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor green printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor blue printShowingMaxDecimalPlaces: 2) asString!

1 0

The Trunk: Sound-nice.38.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-nice.38.mcz ==================== Summary ==================== Name: Sound-nice.38 Author: nice Time: 25 December 2013, 11:27:25.908 pm UUID: b626daf0-be23-4fb8-b2d5-04b9cd370539 Ancestors: Sound-fbs.37 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Sound-fbs.37 =============== Item was changed: ----- Method: FWT>>viewPhiAndPsi (in category 'testing') ----- viewPhiAndPsi "(FWT new nSamples: 256 nLevels: 6) viewPhiAndPsi" "View the scaling function and mother wavelets for this transform" | p | Display fillWhite: (0@0 extent: 300@300). Display border: (0@0 extent: 300@300) width: 2. [Sensor anyButtonPressed] whileFalse: ["Move mouse around in the outer rectangle to explore" p := Sensor cursorPoint min: 300@300. self setAlpha: (p x - 150) / 150.0 * Float pi beta: (p y - 150) / 150.0 * Float pi. + 'alpha=', (alpha printShowingMaxDecimalPlaces: 2), ' ', + 'beta=', (beta printShowingMaxDecimalPlaces: 2), ' ' displayAt: 50@5. - 'alpha=', (alpha roundTo: 0.01) printString, ' ', - 'beta=', (beta roundTo: 0.01) printString, ' ' displayAt: 50@5. transform do: [:w | w atAllPut: 0.0]. (transform at: transform size - 1) at: (nSamples>>nLevels) put: 1.0. self transformForward: false. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (20@30 extent: nSamples@100). transform do: [:w | w atAllPut: 0.0]. (transform at: transform size) at: (nSamples>>nLevels) put: 1.0. self transformForward: false. FFT new plot: (samples copyFrom: 1 to: nSamples) in: (20@170 extent: nSamples@100)]. Sensor waitNoButton! Item was changed: ----- Method: SoundRecorder>>segmentsAbove:normalizedVolume: (in category 'trimming') ----- segmentsAbove: threshold normalizedVolume: percentOfMaxVolume "Break the current recording up into a sequence of sound segments separated by silences." | dcOffset firstPlace endPlace resultBuf nFactor lastPlace segments gapSize minDur minLull soundSize restSize max min sum totalSamples | stereo ifTrue: [self error: 'stereo trimming is not yet supported']. paused ifFalse: [self error: 'must stop recording before trimming']. (recordedSound == nil or: [recordedSound sounds isEmpty]) ifTrue:[^ self]. "Reconstruct buffers so old trimming code will work" recordedBuffers := recordedSound sounds collect: [:snd | snd samples]. soundSize := restSize := 0. max := min := sum := totalSamples := 0. recordedBuffers do: [:buf | | bufSize s | bufSize := buf size. totalSamples := totalSamples + buf size. 1 to: bufSize do: [:i | s := buf at: i. s > max ifTrue: [max := s]. s < min ifTrue: [min := s]. sum := sum + s]]. dcOffset := sum // totalSamples. minDur := (samplingRate/20.0) asInteger. " 1/20 second " minLull := (samplingRate/4.0) asInteger. " 1/2 second " segments := SequentialSound new. endPlace := self endPlace. lastPlace := #(1 1). [firstPlace := self scanForStartThreshold: threshold dcOffset: dcOffset minDur: minDur startingAt: lastPlace. firstPlace = endPlace] whileFalse: [firstPlace = lastPlace ifFalse: ["Add a silence equal to the gap size" "Wasteful but simple way to get gap size..." gapSize := (self copyFrom: lastPlace to: firstPlace normalize: 1000 dcOffset: dcOffset) size - 2. "... -2 makes up for overlap of one sample on either end" segments add: (RestSound dur: gapSize asFloat / samplingRate). restSize := restSize + gapSize. "Transcript cr; print: firstPlace; space; print: lastPlace; space; print: gapSize; space; show: 'gap'." ]. lastPlace := self scanForEndThreshold: threshold dcOffset: dcOffset minLull: minLull + minDur startingAt: firstPlace. "Allow room for lead time of next sound" lastPlace := self place: lastPlace plus: minDur negated. nFactor := self normalizeFactorFor: percentOfMaxVolume min: min max: max dcOffset: dcOffset. resultBuf := self copyFrom: firstPlace to: lastPlace normalize: nFactor dcOffset: dcOffset. soundSize := soundSize + resultBuf size. "Transcript cr; print: firstPlace; space; print: lastPlace; space; print: resultBuf size; space; show: 'sound'." segments add: (codec == nil ifTrue: [SampledSound new setSamples: resultBuf samplingRate: samplingRate] ifFalse: [codec compressSound: (SampledSound new setSamples: resultBuf samplingRate: samplingRate)])]. "Final gap for consistency" gapSize := (self copyFrom: lastPlace to: self endPlace normalize: 1000 dcOffset: dcOffset) size - 1. segments add: (RestSound dur: gapSize asFloat / samplingRate). restSize := restSize + gapSize. + self inform: (soundSize+restSize/samplingRate printShowingMaxDecimalPlaces: 1) , ' secs reduced to ' , (soundSize/samplingRate printShowingMaxDecimalPlaces: 1). - self inform: ((soundSize+restSize/samplingRate) roundTo: 0.1) printString , ' secs reduced to ' , ((soundSize/samplingRate) roundTo: 0.1) printString. recordedBuffers := nil. ^ segments! Item was changed: ----- Method: TempoEvent>>printOn: (in category 'as yet unclassified') ----- printOn: aStream aStream nextPut: $(. time printOn: aStream. aStream nextPutAll: ': tempo '. + aStream nextPutAll: (120.0 * (500000.0 / tempo) printShowingMaxDecimalPlaces: 2). - ((120.0 * (500000.0 / tempo)) roundTo: 0.01) printOn: aStream. aStream nextPut: $). !

1 0

The Trunk: Sound-nice.38.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

The Trunk: Sound-nice.38.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

The Trunk: SmallLand-ColorTheme-nice.4.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-nice.4.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-nice.4 Author: nice Time: 25 December 2013, 11:23:59.635 pm UUID: 77bff137-008b-4390-a5cb-1f284354de48 Ancestors: SmallLand-ColorTheme-fbs.3 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against SmallLand-ColorTheme-fbs.3 =============== Item was changed: ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- labelForColor: aColor + ^ (aColor red printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor green printShowingMaxDecimalPlaces: 2) asString , ' ' , (aColor blue printShowingMaxDecimalPlaces: 2) asString! - ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString!

1 0

The Trunk: SmallLand-ColorTheme-nice.4.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

The Trunk: SmallLand-ColorTheme-nice.4.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

The Trunk: Network-nice.150.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-nice.150.mcz ==================== Summary ==================== Name: Network-nice.150 Author: nice Time: 25 December 2013, 11:22:19.983 pm UUID: c844e5ea-c919-44fc-905e-69487b035947 Ancestors: Network-nice.149 Change a few print:(aFloat roundTo: 0.01) into nextPutAll:(aFloat printShowingMaxDecimalPlaces: 2) =============== Diff against Network-nice.149 =============== Item was changed: ----- Method: Socket class>>loopbackTest (in category 'tests') ----- loopbackTest "Send data from one socket to another on the local machine. Tests most of the socket primitives." "100 timesRepeat: [Socket loopbackTest]" | sock1 sock2 bytesToSend sendBuf receiveBuf done bytesSent bytesReceived t extraBytes packetsSent packetsRead | Transcript cr; show: 'starting loopback test'; cr. Transcript show: '---------- Connecting ----------'; cr. self initializeNetwork. sock1 := self new. sock2 := self new. sock1 listenOn: 54321. sock2 connectTo: NetNameResolver localHostAddress port: 54321. sock1 waitForConnectionFor: self standardTimeout. sock2 waitForConnectionFor: self standardTimeout. sock1 isConnected ifFalse: [self error: 'sock1 not connected']. sock2 isConnected ifFalse: [self error: 'sock2 not connected']. Transcript show: 'connection established'; cr. bytesToSend := 5000000. sendBuf := String new: 5000 withAll: $x. receiveBuf := String new: 50000. done := false. packetsSent := packetsRead := bytesSent := bytesReceived := 0. t := Time millisecondsToRun: [[done] whileFalse: [(sock1 sendDone and: [bytesSent < bytesToSend]) ifTrue: [packetsSent := packetsSent + 1. bytesSent := bytesSent + (sock1 sendSomeData: sendBuf)]. sock2 dataAvailable ifTrue: [packetsRead := packetsRead + 1. bytesReceived := bytesReceived + (sock2 receiveDataInto: receiveBuf)]. done := bytesSent >= bytesToSend and: [bytesReceived = bytesSent]]]. Transcript show: 'closing connection'; cr. sock1 waitForSendDoneFor: self standardTimeout. sock1 close. sock2 waitForDisconnectionFor: self standardTimeout. extraBytes := sock2 discardReceivedData. extraBytes > 0 ifTrue: [Transcript show: ' *** received ' , extraBytes size printString , ' extra bytes ***'; cr]. sock2 close. sock1 waitForDisconnectionFor: self standardTimeout. sock1 isUnconnectedOrInvalid ifFalse: [self error: 'sock1 not closed']. sock2 isUnconnectedOrInvalid ifFalse: [self error: 'sock2 not closed']. Transcript show: '---------- Connection Closed ----------'; cr. sock1 destroy. sock2 destroy. Transcript show: 'loopback test done; time = ' , t printString; cr. Transcript + show: (bytesToSend asFloat / t printShowingMaxDecimalPlaces: 2), '* 1000 bytes/sec'; - show: (bytesToSend asFloat / t roundTo: 0.01) printString - , '* 1000 bytes/sec'; cr. Transcript endEntry! Item was changed: ----- Method: Socket class>>sendTest (in category 'tests') ----- sendTest "Send data to the 'discard' socket of the given host. Tests the speed of one-way data transfers across the network to the given host. Note that most hosts do not run a discard server." "Socket sendTest" | sock bytesToSend sendBuf bytesSent t serverName serverAddr | Transcript cr; show: 'starting send test'; cr. self initializeNetwork. serverName := UIManager default request: 'What is the destination server?' initialAnswer: 'create.ucsb.edu'. serverAddr := NetNameResolver addressForName: serverName timeout: 10. serverAddr = nil ifTrue: [^self inform: 'Could not find an address for ' , serverName]. sock := self new. Transcript show: '---------- Connecting ----------';cr. sock connectTo: serverAddr port: 9. sock isConnected ifFalse: [ sock destroy. ^self inform: 'could not connect']. Transcript show: 'connection established; sending data'; cr. bytesToSend := 1000000. sendBuf := String new: 64 * 1024 withAll: $x. bytesSent := 0. t := Time millisecondsToRun: [[bytesSent < bytesToSend] whileTrue: [sock sendDone ifTrue: [bytesSent := bytesSent + (sock sendSomeData: sendBuf)]]]. sock waitForSendDoneFor: self standardTimeout. sock destroy. Transcript show: '---------- Connection Closed ----------'; cr; show: 'send test done; time = ' , t printString; cr; + show: (bytesToSend asFloat / t printShowingMaxDecimalPlaces: 2), ' * 1000 bytes/sec';cr;endEntry! - show: (bytesToSend asFloat / t roundTo: 0.01) printString, ' * 1000 bytes/sec';cr;endEntry!

1 0

The Trunk: Network-nice.150.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

The Trunk: Network-nice.150.mcz
by commits＠source.squeak.org 25 Dec '13

25 Dec '13

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
48
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2013