Packages August 2022

packages@lists.squeakfoundation.org

1 participants
47 discussions

The Trunk: Graphics-mt.531.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.531.mcz ==================== Summary ==================== Name: Graphics-mt.531 Author: mt Time: 10 August 2022, 10:15:13.741587 am UUID: d7b78221-c876-6a43-8455-dba637d950dc Ancestors: Graphics-eem.529, Graphics-kfr.530 Merge kfr.528, kfr.529, kfr.530 from inbox. Graphics-kfr.530: Avoid call to allButFirstDo: in Rectangle class>>encompassing: and Rectangle class>>merging:. But keep the call to Rectangle class>>origin: corner: so subclasses can use these methods Graphics-kfr.529: Floyd Steinberg dither for forms of 1 to 8 bit depth. Graphics-kfr.528: Color>>at: is slow. Speed up by using variable =============== Diff against Graphics-eem.529 =============== Item was added: + ----- Method: Form>>at:bias: (in category 'processing') ----- + at: aPoint bias: aQuantError + | x y color point oldColor | + x := aPoint x. + y := aPoint y. + + point := (x + 1 min: self width)@ y. + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.4375). "7/16" + self colorAt: point put: color. + + point := (x - 1 max: 0)@ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.1875)."3/16" + self colorAt: point put: color. + + point := x @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.3125 ) ."5/16" + self colorAt: point put: color. + + point := (x + 1 min: self width) @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.0625 ) ."1/16" + self colorAt: point put: color. + ! Item was added: + ----- Method: Form>>dither: (in category 'processing') ----- + dither: aDepth + | newColor oldColor quantError result | + "Floyd Steinberg dithering for depth 1 to 8 bits" + result := self copy. + (0 to: height) do:[:y| + (0 to: width) do:[:x| + oldColor := (result colorAt: x@y). + newColor := Color colorFromPixelValue: (oldColor pixelValueForDepth: aDepth) depth: aDepth. + result colorAt: x@y put: newColor. + quantError := (oldColor - newColor). + result at: x@y bias: quantError]]. + ^result.! Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result ! Item was changed: ----- Method: Rectangle class>>encompassing: (in category 'instance creation') ----- encompassing: listOfPoints "A number of callers of encompass: should use this method." | topLeft bottomRight | + topLeft := bottomRight := nil. + listOfPoints do: + [:p | topLeft == nil + ifTrue: [topLeft := bottomRight := p] + ifFalse: [topLeft := topLeft min: p. + bottomRight := bottomRight max: p]]. + ^self origin: topLeft corner: bottomRight! - topLeft := bottomRight := listOfPoints first. - listOfPoints allButFirstDo: - [:p |topLeft := topLeft min: p. - bottomRight := bottomRight max: p]. - ^self origin: topLeft corner: bottomRight - ! Item was changed: ----- Method: Rectangle class>>merging: (in category 'instance creation') ----- merging: listOfRects "A number of callers of merge: should use this method." + | minX minY maxX maxY | - | bottomRight topLeft | - topLeft := listOfRects first topLeft. - bottomRight := listOfRects first bottomRight. listOfRects + do: [:r | minX + ifNil: [minX := r topLeft x. minY := r topLeft y. + maxX := r bottomRight x. maxY := r bottomRight y] + ifNotNil: [minX := minX min: r topLeft x. minY := minY min: r topLeft y. + maxX := maxX max: r bottomRight x. maxY := maxY max: r bottomRight y]]. + ^self origin: minX@minY corner: maxX@maxY! - allButFirstDo: [:r | topLeft := topLeft min: r topLeft. - bottomRight := bottomRight max: r bottomRight]. - ^self origin: topLeft corner: bottomRight. - !

1 0

The Trunk: Sound-eem.92.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.92.mcz ==================== Summary ==================== Name: Sound-eem.92 Author: eem Time: 9 August 2022, 7:08:53.016079 pm UUID: 6e13b207-ddca-4f1c-854d-8b6124f946f0 Ancestors: Sound-eem.91 fix a typo =============== Diff against Sound-eem.91 =============== Item was changed: ----- Method: SoundPlayer class>>soundQuickStart (in category 'preferences') ----- soundQuickStart <preference: 'Quickstart Sounds' category: 'media' + description: 'If true, attempt to start playing sounds immediately rather than waiting for the next chance to fill the sound buffers"' - description: 'If true, attempt to start playing sounds immediately rather than waiting for the next chance to fill the sound bufffers"' type: #Boolean> ^SoundsShouldStartQuick ifNil: [self defaultQuickStartForPlatform]!

1 0

The Trunk: Sound-eem.91.mcz
by commits＠source.squeak.org 09 Aug '22

09 Aug '22

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.91.mcz ==================== Summary ==================== Name: Sound-eem.91 Author: eem Time: 8 August 2022, 5:19:40.710296 pm UUID: 0396e865-eb12-410b-9fc7-cf7e62e48327 Ancestors: Sound-eem.90 Fix the length of WAV files produced by AbstractSound>>storeSampleCount:bigEndian:on:. The old code incorrectly rounded up the output size to the buffer size (2 * samplingRate). =============== Diff against Sound-eem.90 =============== Item was changed: ----- Method: AbstractSound>>storeSampleCount:bigEndian:on: (in category 'file i/o') ----- storeSampleCount: samplesToStore bigEndian: bigEndianFlag on: aBinaryStream "Store my samples on the given stream at the current SoundPlayer sampling rate. If bigFlag is true, then each 16-bit sample is stored most-significant byte first (AIFF files), otherwise it is stored least-significant byte first (WAV files). If self isStereo is true, both channels are stored, creating a stereo file. Otherwise, only the left channel is stored, creating a mono file." | bufSize stereoBuffer reverseBytes streamDirect | self reset. bufSize := (2 * self samplingRate rounded) min: samplesToStore. "two second buffer" stereoBuffer := SoundBuffer newStereoSampleCount: bufSize. streamDirect := aBinaryStream isKindOf: StandardFileStream. reverseBytes := (bigEndianFlag xor: Smalltalk isBigEndian) xor: streamDirect not. 'Storing audio...' displayProgressFrom: 0 to: samplesToStore during: [:bar | | remaining out | remaining := samplesToStore. [remaining > 0] whileTrue: [ bar value: samplesToStore - remaining. stereoBuffer primFill: 0. "clear the buffer" self playSampleCount: (bufSize min: remaining) into: stereoBuffer startingAt: 1. out := self isStereo ifTrue: [stereoBuffer] ifFalse: [stereoBuffer extractLeftChannel]. reverseBytes ifTrue: [out reverseEndianness]. streamDirect + ifTrue: "optimization for files: write sound buffer directly to file" + [aBinaryStream next: (out size // 2 min: remaining) putAll: out startingAt: 1] "size in words" + ifFalse: "for non-file streams:" + [1 to: (out monoSampleCount min: remaining) do: [:i | aBinaryStream int16: (out at: i)]]. - ifTrue: [ "optimization for files: write sound buffer directly to file" - aBinaryStream next: (out size // 2) putAll: out startingAt: 1] "size in words" - ifFalse: [ "for non-file streams:" - 1 to: out monoSampleCount do: [:i | aBinaryStream int16: (out at: i)]]. remaining := remaining - bufSize]].!

1 0

The Trunk: Morphic-mt.2022.mcz
by commits＠source.squeak.org 08 Aug '22

08 Aug '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2022.mcz ==================== Summary ==================== Name: Morphic-mt.2022 Author: mt Time: 8 August 2022, 12:09:48.81904 pm UUID: 00f8498c-9d4e-794a-a5bb-56f9322b1b4d Ancestors: Morphic-eem.2021 Fixes halo box for transformed targets. Always show the box of the rendered morph, not the renderer. I will backport this to Squeak 6.0. Thanks to Stef (spfa) for the tip! =============== Diff against Morphic-eem.2021 =============== Item was changed: ----- Method: HaloMorph>>addHandlesForWorldHalos (in category 'private') ----- addHandlesForWorldHalos "Add handles for world halos, like the man said" | box w | w := self world ifNil:[target world]. self removeAllMorphs. "remove old handles, if any" self bounds: target bounds. box := w bounds insetBy: self handleSize // 2. target addWorldHandlesTo: self box: box. Preferences uniqueNamesInHalos ifTrue: [innerTarget assureExternalName]. self + addNameBeneath: box - addNameBeneath: ((box insetBy: (0@0 corner: 0@10)) - scaleBy: RealEstateAgent scaleFactor) string: innerTarget externalName. growingOrRotating := false. self layoutChanged. self changed. ! Item was changed: ----- Method: HaloMorph>>basicBox (in category 'private') ----- basicBox | minSide outset anExtent aBox w | minSide := 4 * self handleSize. + outset := (8 * RealEstateAgent scaleFactor) truncated. - outset := 8 * RealEstateAgent scaleFactor. anExtent := (self extent + self handleSize + outset) max: minSide asPoint. aBox := Rectangle center: self center extent: anExtent. w := self world ifNil:[target outermostWorldMorph]. ^ w ifNil: [aBox] ifNotNil: [aBox intersect: (w viewBox insetBy: self handleSize // 2)] ! Item was changed: ----- Method: SimpleHaloMorph>>updateBounds (in category 'updating') ----- updateBounds + self bounds: (self haloBoundsFor: self target renderedMorph).! - self bounds: (self haloBoundsFor: self target).!

1 0

The Trunk: TrueType-mt.97.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.97.mcz ==================== Summary ==================== Name: TrueType-mt.97 Author: mt Time: 4 August 2022, 11:24:52.723989 am UUID: 14ab8945-1550-4d43-9954-697bee6f6538 Ancestors: TrueType-mt.96 Fixes regression in backwards compatibility with TrueType fonts that only have a deprecated Unicode mapping table. Thanks to Stef (spfa) for pointing this out! I will backport this to Squeak 6.0. =============== Diff against TrueType-mt.96 =============== Item was added: + Notification subclass: #TTCharacterMappingDeprecated + instanceVariableNames: 'mappingTable' + classVariableNames: '' + poolDictionaries: '' + category: 'TrueType-Support'! Item was added: + ----- Method: TTCharacterMappingDeprecated>>defaultAction (in category 'priv handling') ----- + defaultAction + + Transcript showln: '[TTFontReader] Character mapping is deprecated: ', mappingTable. + ^ true! Item was added: + ----- Method: TTCharacterMappingDeprecated>>mappingTable (in category 'accessing') ----- + mappingTable + + ^ mappingTable! Item was added: + ----- Method: TTCharacterMappingDeprecated>>mappingTable: (in category 'accessing') ----- + mappingTable: anObject + + mappingTable := anObject.! Item was changed: ----- Method: TTCharacterMappingTable>>encodingNameForSqueak (in category 'accessing') ----- encodingNameForSqueak "After #prepare 'ing the cmap table from the font file for squeak, we basically have mappings for Unicode code points. Those can be restricted to < 256 (i.e., 'Latin1' or encodingID = 0). Windows' symbol fonts can also have the speciality that its symbols are also available from 16r20 to 16rFF (i.e., 'Symbol' or encoding ID = 1). Other than that, we distinguish the basic multilingual plane (short: BMP) and full Unicode support. Note that those encodings are not relevant for mapping code points to glyphs as missing code points are automatically mapped to the fallback glyph, that is, the glyph index 0. See TTGlyph >> #isFallback." + ^ #('Latin1' 'Symbol' 'Unicode BMP' 'Unicode Full' 'Deprecated') at: encodingID + 1! - ^ #('Latin1' 'Symbol' 'Unicode BMP' 'Unicode Full') at: encodingID + 1! Item was changed: ----- Method: TTCharacterMappingTable>>prepareFromUnicode (in category 'initialization') ----- prepareFromUnicode "Nothing to do. #characterMap is already organized in Unicode code points. See TTFontReader >> #cmapArrayOfSize:." + encodingID < 3 ifTrue: [ + TTCharacterMappingDeprecated new + mappingTable: self; + signal]. - self - assert: [encodingID >= 3] - description: 'Encoding not supported: ', self encodingName. platformID := -1. "Squeak" + encodingID := encodingID < 3 + ifTrue: [4 "Deprecated"] ifFalse: [ + encodingID = 3 ifTrue: [2 "BMP"] ifFalse: [3"Full"]]. - encodingID := encodingID = 3 ifTrue: [2 "BMP"] ifFalse: [3"Full"]. macLanguageID := nil.! Item was added: + Notification subclass: #TTCharacterMappingUnsupported + instanceVariableNames: 'cmapFmt' + classVariableNames: '' + poolDictionaries: '' + category: 'TrueType-Support'! Item was added: + ----- Method: TTCharacterMappingUnsupported>>cmapFmt (in category 'accessing') ----- + cmapFmt + + ^ cmapFmt! Item was added: + ----- Method: TTCharacterMappingUnsupported>>cmapFmt: (in category 'accessing') ----- + cmapFmt: anObject + + cmapFmt := anObject.! Item was added: + ----- Method: TTCharacterMappingUnsupported>>defaultAction (in category 'priv handling') ----- + defaultAction + + Transcript showln: '[TTFontReader] Unsupported format of cmap: ', cmapFmt. + ^ true! Item was changed: ----- Method: TTFontReader>>decodeCmapFmtTable (in category 'reading - decode cmap') ----- decodeCmapFmtTable "Decode cmap table. Currently supports formats 0, 4, 6, and 12 https://docs.microsoft.com/en-us/typography/opentype/spec/cmap#format-0-byt…" | cmapFmt | ^ (cmapFmt := self nextUnsignedShort) caseOf: { [0] -> [self decodeCmapFmtTable0]. "[2] -> [ High-byte mapping through table ]" [4] -> [self decodeCmapFmtTable4]. [6] -> [self decodeCmapFmtTable6]. "[8] -> [ Mixed 16-bit and 32-bit coverage ]" "[10] -> [ Trimmed array ]" [12] -> [self decodeCmapFmtTable12]. "[13] -> [ Many-to-one range mappings -- last-resort fonts ]" "[14] -> [ Unicode variation sequences ]" } otherwise: [ + TTCharacterMappingUnsupported new + cmapFmt: cmapFmt; + signal. - Transcript showln: '[TTFontReader] Unsupported format of cmap: ', cmapFmt. {nil.nil}]! Item was changed: ----- Method: TTFontReader>>readCharacterMappingTable (in category 'reading - tables') ----- readCharacterMappingTable "Read the font's character to glyph index mapping table. If an appropriate mapping can be found then return an association with the format identifier and the contents of the table" | initialOffset numTables tables ourTable | initialOffset := self offset. self skipShort. "version" numTables := self nextUnsignedShort. tables := Array new: numTables. "1) Get an overview of all included mappings." 1 to: numTables do: [:index | | platformID encodingID offset cmap | platformID := self nextUnsignedShort. encodingID := self nextUnsignedShort. offset := self nextUnsignedLong. tables at: index put: (TTCharacterMappingTable new platformID: platformID; encodingID: encodingID; characterMap: offset; yourself)]. "2*) Read all mappings" "tables do: [:subTable | self offset: initialOffset + subTable characterMap during: [ | cmap | cmap := self decodeCmapFmtTable. subTable characterMap: cmap second; macLanguageID: cmap first]]." "2**) Read the most useful mapping -- skip format 13 and 14 for now." ourTable := tables detect: [:t | t platformID = 0 "Unicode" and: [t encodingID = 4 "Full"]] ifNone: [ tables detect: [:t | t platformID = 3 "Windows" and: [t encodingID = 10 "Full"]] ifNone: [ tables detect: [:t | t platformID = 0 and: [t encodingID = 3 "BMP"]] ifNone: [ tables detect: [:t | t platformID = 3 and: [t encodingID = 1 "BMP"]] ifNone: [ + tables detect: [:t | t platformID = 0 "Unicode" and: [t encodingID < 3 "Deprecated"]] ifNone: [ + tables detect: [:t | t platformID = 3 "Windows Symbol encoding?"] ifNone: [tables last] ]]]]]. - tables detect: [:t | t platformID = 3 "Windows Symbol encoding?"] ifNone: [tables last] ]]]]. self offset: initialOffset + ourTable characterMap during: [ | cmap | cmap := self decodeCmapFmtTable. ourTable characterMap: cmap second; macLanguageID: cmap first]. tables := {ourTable}. "3) Finished. See #processCharacterMappingTable." cmapTables := tables.!

1 0

The Trunk: Tools-mt.1170.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1170.mcz ==================== Summary ==================== Name: Tools-mt.1170 Author: mt Time: 4 August 2022, 9:56:14.130989 am UUID: f1a0f561-f71d-624a-8ba4-8c4bdf7999b8 Ancestors: Tools-mt.1169 Adds two utility methods to easily browse the glyphs of fonts as forms. Use it to debug rendering issues. =============== Diff against Tools-mt.1169 =============== Item was added: + ----- Method: StrikeFont>>collectAllGlyphs (in category '*Tools-Browsing') ----- + collectAllGlyphs + "Answer all (pre-rendered) glyphs as a collection of forms. + Example: + StrikeFont someInstance collectAllGlyphs explore + " + + | allGlyphs | + allGlyphs := OrderedCollection new: 1000. + self minCodePoint to: self maxCodePoint do: [:codePoint | + (self hasGlyphOf: (Character value: codePoint)) + ifTrue: [allGlyphs add: (self formOf: (Character value: codePoint))]]. + ^ allGlyphs! Item was added: + ----- Method: TTCFont>>collectAllGlyphs (in category '*Tools-Browsing') ----- + collectAllGlyphs + "Answer all (uncached) glyphs as a collection of forms. Note that the current font cache will not be modified by calling this utility method. + Example: + TTCFont someInstance collectAllGlyphs explore + " + + | allGlyphs | + foregroundColor ifNil: [self foregroundColor: Color black]. + allGlyphs := OrderedCollection new: 1000. + self minCodePoint to: self maxCodePoint do: [:codePoint | + (self hasGlyphOf: (Character value: codePoint)) + ifTrue: [allGlyphs add: (self computeForm: codePoint)]]. + ^ allGlyphs!

1 0

The Trunk: Tools-mt.1169.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1169.mcz ==================== Summary ==================== Name: Tools-mt.1169 Author: mt Time: 4 August 2022, 9:48:36.935989 am UUID: de9240c0-3910-f74c-b22d-12e615be3271 Ancestors: Tools-eem.1168 To single-byte text-conversion "browsers," add header for rows and colums to, for example, quickly look up E4. =============== Diff against Tools-eem.1168 =============== Item was changed: ----- Method: ByteTextConverter class>>browseAllCodePointsUsing: (in category '*Tools-Browsing') ----- browseAllCodePointsUsing: aFont "Apply the receivers encoding (code points 0 to 255) to browse the result using glyphs of aFont (and its #fallbackFont)." aFont + browseGlyphsOf: (Array streamContents: [:s | + "1) Header for columns" + s tab. 0 to: 15 do: [:col | s tab; nextPutAll: col printStringHex]. s cr. + "2) Cells" - browseGlyphsOf: (Array streamContents: [:s | | | self decodeTable withIndexDo: [:ea :i | | codePoint | codePoint := ea = -1 ifTrue: [ea] ifFalse: [ea bitAnd: 16r1FFFFF "Drop language info / leadingChar"]. codePoint := codePoint caseOf: { [-1] -> [32]. [9 "tab"] -> [32]. [10 "line break"] -> [32]. [13 "line break"] -> [32]. } otherwise: [codePoint]. + (i-1 \\ 16 = 0 and: [s position > 0]) "3) Header for rows" + ifTrue: [s cr; tab; nextPutAll: (i-1 // 16) printStringHex]. - (i-1 \\ 16 = 0 and: [s position > 0]) ifTrue: [s cr]. s tab; nextPut: codePoint]]) label: self name, ' decoding table'.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2022