Chris Muller uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-cmm.35.mcz==================== Summary ====================
Name: TrueType-cmm.35
Author: cmm
Time: 26 March 2015, 5:27:01.756 pm
UUID: 93cf2b3b-dd5a-477f-b8d2-e2b3de539016
Ancestors: TrueType-topa.34
Ran FixUnderscores on this package.
=============== Diff against TrueType-topa.34 ===============
Item was changed:
----- Method: MultiTTCFont>>indexFor: (in category 'all') -----
indexFor: char
| triplet |
map size > 511 ifTrue: [
+ cacheIndex := 512 atRandom.
- cacheIndex _ 512 atRandom.
triplet := self cache at: cacheIndex.
triplet ifNotNil: [map removeKey: (triplet at: 1) ifAbsent: []].
^ cacheIndex
].
^ (cacheIndex := cacheIndex + 1 \\ 512) + 1.
!
Item was changed:
----- Method: TTCFontSet class>>getExistings: (in category 'private') -----
getExistings: fontArray
| result em |
+ result := OrderedCollection new.
- result _ OrderedCollection new.
result add: fontArray.
1 to: 3 do: [:i |
em := (fontArray collect: [:f | f emphasized: i]).
(em at: 1) ~= (fontArray at: 1) ifTrue: [
result add: em.
].
].
^ result asArray.
!