Squeak-dev March 2022

squeak-dev@lists.squeakfoundation.org

33 participants
303 discussions

The Trunk: Collections-mt.991.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.991.mcz ==================== Summary ==================== Name: Collections-mt.991 Author: mt Time: 1 March 2022, 5:39:24.888136 pm UUID: f34c5b0e-4785-3045-b7ac-4d2913b6b3bb Ancestors: Collections-mt.990 Complements Morphic-mt.1917 =============== Diff against Collections-mt.990 =============== Item was added: + ----- Method: Text class>>codeSample (in category 'filler text') ----- + codeSample + + ^ 'exampleWithNumber: x + "A method that illustrates every part of Smalltalk method syntax + including primitives. It has unary, binary, and keyboard messages, + declares arguments and temporaries, accesses a global variable + (but not an instance variable), uses literals (array, character, + symbol, string, integer, float), uses the pseudo variables true, + false, nil, self, and super, and has sequence, assignment, return + and cascade. It has both zero argument and one argument blocks." + <primitive: ''primitiveCopyBits'' module: #BitBltPlugin error: ec> + | y | + true & false not & (nil isNil) ifFalse: [self halt]. + y := self size + super size. + #($a #a ''a'' "a" 1 1.0) + do: [ :each | + Transcript + show: (each class name); + show: '' '']. + ^ x < y'! Item was added: + ----- Method: Text class>>forssmanSample (in category 'filler text') ----- + forssmanSample + "Detailtypografie. Friedrich Forssmann, Ralf de Jong. Verlag Hermann Schmidt. 2004. ISBN 978-3874395687. http://www.detailtypografie.de/" + + ^ self fromString: 'Wien, Venedig, Ravenna? Also gut: Ravenna. Gleichmäßiger + Regen hüllt den Abend ein. Die Fassaden der Häuser haben ihr + Antlitz verloren. Ein korpulenter Polizist humpelt auf + Krücken zum Strand. Vergeblich halten wir Ausschau, + melancholisch spielt Frau Löwe mit ihrem Zirkel. Wir öffnen + die Tür. Wir sehen nichts. In der Ferne ein Gewitter. Früher + wägte man den Sinn und den Unsinn und entschied sich für den + Unsinn. Das war eine Geschmackssache. Wir liegen in Fesseln, + ach und in Feuchte. Frau Löwe malt ein vergangenes Bild der + Wissenschaft auf die bröcklige Leinwand der Herzen. Sie + verneigt sich und küßt uns die Augen. Wir finden keine Luft + mehr, wir halten uns nur noch auf dem laufenden. Gott im + Himmel, laß es ein Ende haben!! Gott im Himmel, erweiche dein + Herz!! Gott im Himmel schenk uns dein Fleisch!! Wir finden ... + Luft ... Das Leselicht erlischt. »Blind ist der Blinde nur + hinter der Binde.« Schiller & Goethe reichen sich die Hände. + »Na denn? Na denn!!«'! Item was added: + ----- Method: Text class>>melvilleSample (in category 'filler text') ----- + melvilleSample + " + https://en.wikipedia.org/wiki/Moby-Dick + " + + ^ self fromString: 'Call me Ishmael. Some years ago - never mind how long + precisely - having little or no money in my purse, and + nothing particular to interest me on shore, I thought I + would sail about a little and see the watery part of the + world. It is a way I have of driving off the spleen and + regulating the circulation. Whenever I find myself growing + grim about the mouth; whenever it is a damp, drizzly + November in my soul; whenever I find myself involuntarily + pausing before coffin warehouses, and bringing up the rear + of every funeral I meet; and especially whenever my hypos + get such an upper hand of me, that it requires a strong + moral principle to prevent me from deliberately stepping + into the street, and methodically knocking people''s hats off + - then, I account it high time to get to sea as soon as I + can. This is my substitute for pistol and ball. With a + philosophical flourish Cato throws himself upon his sword; I + quietly take to the ship. There is nothing surprising in + this. If they but knew it, almost all men in their degree, + some time or other, cherish very nearly the same feelings + towards the ocean with me. + + There now is your insular city of the Manhattoes, belted + round by wharves as Indian isles by coral reefs - commerce + surrounds it with her surf. Right and left, the streets take + you waterward. Its extreme down-town is the battery, where + that noble mole is washed by waves, and cooled by breezes, + which a few hours previous were out of sight of land. Look + at the crowds of water-gazers there. + + -- Herman Melville'! Item was changed: ----- Method: Text class>>symbolSample (in category 'filler text') ----- symbolSample + "Symbols are specific to a font family. We cannot know which code points are supported and how symbols will look like. Thus, you should ask the font of your choice to provide you with a #symbolSample." + + ^ TextStyle defaultFont symbolSample! - - ^ self streamContents: [:stream | | lineLength character| - lineLength := 0. - 33 to: 255 do:[ :index | - character := stream nextPut: (Character value: index). - lineLength := lineLength + 1. - (('@Z`z' includes: character) or: [lineLength >= 30]) - ifTrue: [ - lineLength :=0. - stream cr]]]!

2 1

The Trunk: ToolBuilder-Morphic-mt.305.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.305.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.305 Author: mt Time: 1 March 2022, 5:46:53.070212 pm UUID: df06fa81-ad88-4206-9a04-6a7e35391d92 Ancestors: ToolBuilder-Morphic-mt.304 Minor tweaks in text-field construction through tool builder regarding padding. Also, when drawing help texts in text fields, use the current text font, not UI property #balloonTextFont. I think we can remove that property of #PluggableTextMorphPlus from UI themes. =============== Diff against ToolBuilder-Morphic-mt.304 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') ----- buildPluggableText: aSpec | widget | widget := self textPaneClass new. aSpec stylerClass ifNotNil: [:c | widget styler: (c new view: widget)]. widget on: aSpec model text: aSpec getText accept: aSpec setText readSelection: aSpec selection menu: aSpec menu. aSpec textStyle ifNotNil: [:ts | ts isSymbol ifTrue: [widget getTextStyleSelector: ts] ifFalse: [widget setTextStyle: ts]] ifNil: [ aSpec font ifNotNil: [:f | f isSymbol ifTrue: [widget getFontSelector: f] ifFalse: [widget setTextStyle: f asNewTextStyle]] ]. widget readOnly: aSpec readOnly. widget plainTextOnly: aSpec plainTextOnly. widget editTextSelector: aSpec editText. widget wantsFrameAdornments: aSpec indicateUnacceptedChanges. widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits. widget setProperty: #alwaysAccept toValue: aSpec askBeforeDiscardingEdits not. widget wrapFlag: (aSpec softLineWrap ifNil: [true]). self register: widget id: aSpec name. widget getColorSelector: aSpec color. widget getTextColorSelector: aSpec textColor. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. + self setLayoutHintsForTextField: widget spec: aSpec. - self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget! Item was added: + ----- Method: MorphicToolBuilder>>setLayoutHintsForTextField:spec: (in category 'private') ----- + setLayoutHintsForTextField: widget spec: aSpec + + aSpec minimumWidth >= 0 + ifTrue: [widget minimumWidth: aSpec minimumWidth]. + aSpec minimumHeight >= 0 + ifTrue: [widget minimumHeight: aSpec minimumHeight]. + aSpec padding + ifNotNil: [:p | widget textMorph margins: p]. + "aSpec margin + ifNotNil: [:m | widget layoutOutset: m]." + + widget hResizing: (aSpec horizontalResizing ifNil: [#spaceFill]). + widget vResizing: (aSpec verticalResizing ifNil: [#spaceFill]).! Item was changed: ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') ----- drawBalloonTextOn: aCanvas "Show balloon text in the text morph if it has no contents. Catch errors to guard against broken models." | helpText helpFont helpColor box | textMorph contents ifNotEmpty: [ ^ self ]. helpText := [ self balloonText ] on: Error do: [ :err | '<error in #balloonText>' ]. helpText ifNil: [ ^ self ]. + helpFont := self textMorph textStyle defaultFont. + "self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont]." - helpFont := self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont]. helpColor := self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]. box := self innerBounds insetBy: (self textMorph margins ifNil: [0]). box := box insetBy: (0 @ helpFont lineGapSlice corner: 0@0). aCanvas drawString: helpText in: box font: helpFont color: helpColor.!

1 0

The Trunk: ReleaseBuilder-mt.229.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.229.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.229 Author: mt Time: 1 March 2022, 5:37:28.624136 pm UUID: 5f6536e8-f210-4749-9b1a-8fd47e4e8ae5 Ancestors: ReleaseBuilder-mt.228 Complements TrueType-mt.78 =============== Diff against ReleaseBuilder-mt.228 =============== Item was changed: ----- Method: ReleaseBuilder class>>cleanUpBitstreamVeraSans (in category 'scripts - support') ----- cleanUpBitstreamVeraSans + | descriptions styleNames default handles | + descriptions := OrderedCollection new. + styleNames := Set new. + default := TTFontDescription descriptionNamed: #BitstreamVeraSans. - | descriptions | - descriptions := Dictionary new. + "1) Collect the font descriptions we want to keep." + TTFontDescription allSubInstancesDo: [:tt | + styleNames add: tt name. - TTFontDescription allInstancesDo: [:tt | (tt familyName beginsWith: 'Bitstream Vera') + ifTrue: [descriptions add: tt]]. + styleNames addAll: (TextStyle actualTextStyles select: [:ea | ea isTTCStyle]) keys. "Also aliases" - ifTrue: [(descriptions at: tt name ifAbsentPut: [Set new]) add: tt]]. + "2) Uninstall *all* TrueType font descriptions from the system." TTCFont registry removeAll. TTFontDescription clearDefault; clearDescriptions. + styleNames do: [:styleName | TextConstants removeKey: styleName ifAbsent: []]. + "3) Install the fonts we want to have." + handles := TTFontFileHandle allHandlesFromFontDescriptions: descriptions. + handles do: [:handle | handle installFont]. + TTFontDescription setDefault: default. "Must do this only now. See #addAllFromFont: ... Sigh." - descriptions keysAndValuesDo: [:name :tts | - TextConstants removeKey: name ifAbsent: []. - tts do: [:ea | TTFontDescription addToDescription: ea]]. + "3*) Alias Bitstream Bold as ComicSansMS" + TextConstants at: #ComicSansMS put: (TextStyle fontArray: {(TextStyle named: #BitstreamVeraSans) defaultFont emphasized: 1 "bold"}). + + "4) Configure the properties we want to use in the Squeak UI. Slightly larger glyphs to improve legibility for lower PPI. Note that such extra scaling typically does not match 0.5 points and should thus not be expressed with using a larger point size. We have glyph caches for each point size." + #( BitstreamVeraSans 1.059 24 'Bitstream Vera Sans For Squeak' + BitstreamVeraSansMono 1.059 24 'Bitstream Vera Sans Mono For Squeak' ) + groupsDo: [:name :scale :gap :customName | + (TextStyle named: name) asHandle + rename: customName; + ttExtraScale: scale; ttExtraGap: gap; + installFont].! - TTFontDescription setDefault. - - descriptions valuesDo: [:tts | - (FontImporterTool new importFontFamily: tts) in: [:textStyle | - TTCFont - register: textStyle fontArray - at: textStyle defaultFont name asSymbol]].!

1 0

The Trunk: System-mt.1315.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1315.mcz ==================== Summary ==================== Name: System-mt.1315 Author: mt Time: 1 March 2022, 5:36:54.207136 pm UUID: ae33a7e8-ebe5-ec4e-bdb8-04890c3a90de Ancestors: System-mt.1314 Complements TrueType-mt.78 =============== Diff against System-mt.1314 =============== Item was changed: ----- Method: SARInstaller>>fileInTrueTypeFontNamed: (in category 'client services') ----- fileInTrueTypeFontNamed: memberOrName | member description | member := self memberNamed: memberOrName. member ifNil: [^self errorNoSuchMember: memberOrName]. + description := TTFontDescription addFromBinaryStream: member contentStream. - description := TTFontDescription addFromTTStream: member contentStream. TTCFont newTextStyleFromTT: description. Project current world doOneCycle. self installed: member! Item was changed: ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme theme set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFixedFont to: (TTCFont familyName: #BitstreamVeraSansMonoForSqueak pointSize: 10.5); - set: #standardFixedFont to: (TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 10.5); set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode); set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #wizardStandardFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); set: #wizardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); set: #wizardHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); set: #wizardTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 23.5).! Item was changed: ----- Method: StrikeFont class>>fromUser:allowKeyboard: (in category '*System-Fonts') ----- fromUser: priorFont allowKeyboard: aBoolean "StrikeFont fromUser" "Present a menu of available fonts, and if one is chosen, return it. Otherwise return nil. Using ToolBuilder for added abstraction." | fontList fontMenu font builder resultBlock widget style result item | builder := ToolBuilder default. fontList := StrikeFont actualFamilyNames. fontMenu := builder pluggableMenuSpec new. resultBlock := [:value| result := value]. fontList do: [:fontName | | active ptMenu | style := TextStyle named: fontName. active := priorFont familyName sameAs: fontName. ptMenu := builder pluggableMenuSpec new. style pointSizes do: [:pt | | label | label := pt printString, ' pt'. item := ptMenu add: label target: resultBlock selector: #value: argumentList: {{fontName. pt}}. item checked: (active and:[pt = priorFont pointSize]). ]. style isTTCStyle ifTrue: [ ptMenu add: 'new size' target: style selector: #addNewFontSizeDialog: argumentList: {{fontName. fontMenu}}. ]. item := fontMenu add: fontName action: nil. item subMenu: ptMenu. item checked: active. ]. - TTFileDescription offerNonPortableFonts ifTrue:[ - fontMenu addSeparator. - item := fontMenu add: 'More (non-portable) Fonts...' - target: resultBlock - selector: #value: - argumentList: #(TTFileDescription). - ]. widget := builder open: fontMenu. builder runModal: widget. result ifNil:[^nil]. "Pick a non-portable font if requested" result == #TTFileDescription ifTrue:[ ^Smalltalk at: #TTFileDescription ifPresent:[:ttf| ttf fontFromUser: priorFont allowKeyboard: aBoolean]]. style := TextStyle named: result first. style ifNil: [^ self]. font := style fonts detect: [:any | any pointSize = result last] ifNone: [nil]. ^ font! Item was changed: ----- Method: UserInterfaceTheme class>>addDefaultFonts: (in category 'initialize-release') ----- addDefaultFonts: theme "There must be fonts installed in the default theme. Unlike all other theme properties, there are no defaults encoded throughout the system for these properties. That is, there are no #ifNil: checks when requesting a font from the current theme." | defaultBuilder | + defaultBuilder := TTCFont familyName: #BitstreamVeraSansForSqueak pointSize: TTCFont referencePointSize. + self knownFontSymbols do: [:symbolicName | theme set: symbolicName to: defaultBuilder].! - defaultBuilder := TTCFont familyName: 'BitstreamVeraSans' pointSize: TTCFont referencePointSize. - #( - standardSystemFont - standardFixedFont - - standardCodeFont - standardListFont - standardButtonFont - standardMenuFont - standardFlapFont - - windowTitleFont - balloonHelpFont - haloLabelFont - - wizardStandardFont - wizardButtonFont - wizardHelpFont - wizardTitleFont - ) - do: [:symbolicName | theme set: symbolicName to: defaultBuilder].! Item was added: + ----- Method: UserInterfaceTheme class>>knownFontSymbols (in category 'initialize-release') ----- + knownFontSymbols + + ^ #( + standardSystemFont + standardFixedFont + + standardCodeFont + standardListFont + standardButtonFont + standardMenuFont + standardFlapFont + + windowTitleFont + balloonHelpFont + haloLabelFont + + wizardStandardFont + wizardButtonFont + wizardHelpFont + wizardTitleFont + )! Item was changed: ----- Method: UserInterfaceTheme>>ttcFallbackName (in category 'private - display scale') ----- ttcFallbackName "Answer the name of the TTCFont that should be used as a fallback for pre-rendered StrikeFonts that do not have the requested #pointSize available." + ^ #BitstreamVeraSansForSqueak! - ^ 'BitstreamVeraSans'!

1 0

The Trunk: Tools-mt.1138.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1138.mcz ==================== Summary ==================== Name: Tools-mt.1138 Author: mt Time: 1 March 2022, 5:36:12.550136 pm UUID: 18107322-ed21-a74d-8d0b-922e83e066c7 Ancestors: Tools-ct.1137 Complements TrueType-mt.78 =============== Diff against Tools-ct.1137 =============== Item was changed: ----- Method: AbstractFont>>browseAllSymbols (in category '*Tools-Browsing') ----- browseAllSymbols "This is a variation of #browseAllGlyphs that is optimized to show all available glyphs in a single run, even though their code points may be scattered all over the Unicode range. See #browseAllSymbolsByCategory." + "self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]." - self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]. ^ self + browseGlyphsOf: (((self minCodePoint max: 16r1000) to: self maxCodePoint) select: [:ea | self hasGlyphForCode: ea]) - browseGlyphsOf: ((self minCodePoint to: self maxCodePoint) select: [:ea | self hasGlyphForCode: ea]) label: 'All symbols in ', self familyName! Item was added: + ----- Method: TTCFont>>browseAllGlyphsScaledToDisplay (in category '*Tools-Browsing') ----- + browseAllGlyphsScaledToDisplay + "Overwritten to support not-yet-registered fonts, e.g. through the FontImporterTool." + + ^ self isInstalled + ifTrue: [super browseAllGlyphsScaledToDisplay] + ifFalse: [self browseAllGlyphs]! Item was added: + ----- Method: TTCFont>>browseGlyphsByCategoryOf:select:label: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil + "Overwritten to speed up browsing for remote fonts. We have to compose a paragraph with a lot of new glyphs in a paragraph ... even though we will not render all at the same time." + + ttcDescription cacheGlyphDataDuring: [ + ^ super browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil].! Item was added: + ----- Method: TTCFont>>browseGlyphsOf:select:label: (in category '*Tools-Browsing') ----- + browseGlyphsOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil + "Overwritten to speed up browsing for remote fonts. We have to compose a paragraph with a lot of new glyphs in a paragraph ... even though we will not render all at the same time." + + ttcDescription cacheGlyphDataDuring: [ + ^ super browseGlyphsOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil].!

1 0

The Trunk: Help-Squeak-Project-mt.87.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-mt.87.mcz ==================== Summary ==================== Name: Help-Squeak-Project-mt.87 Author: mt Time: 1 March 2022, 5:35:13.559136 pm UUID: 31843766-5c46-3b47-a329-059d7741b571 Ancestors: Help-Squeak-Project-mt.86 Complements TrueType-mt.78 =============== Diff against Help-Squeak-Project-mt.86 =============== Item was changed: ----- Method: SqueakMessageCategoriesHelp>>testing (in category 'testing') ----- testing "The testing category contains predicate methods which typically answer a Boolean value." + ^ {SMPackage>>#isAvailable . TTFontFileHandle>>#hasChildren} - ^ {SMPackage>>#isAvailable . FontImporterFontDescription>>#hasChildren} !

1 0

The Trunk: EToys-mt.465.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.465.mcz ==================== Summary ==================== Name: EToys-mt.465 Author: mt Time: 1 March 2022, 5:32:01.728136 pm UUID: c28e837f-7902-1544-a001-b6ed9b8bd2e7 Ancestors: EToys-mt.464 Complements TrueType-mt.78 =============== Diff against EToys-mt.464 =============== Item was changed: ----- Method: TTCFontSet class>>newTextStyleFromSmartRefStream: (in category '*Etoys-Squeakland-file out/in') ----- newTextStyleFromSmartRefStream: ref | descriptions | + descriptions := TTCFontDescription addFromSmartRefStream: ref. - descriptions := TTFontDescription addFromSmartRefStream: ref. descriptions do: [:desc | self newTextStyleFromTT: desc].!

1 0

The Trunk: 60Deprecated-mt.107.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.107.mcz ==================== Summary ==================== Name: 60Deprecated-mt.107 Author: mt Time: 1 March 2022, 5:31:15.469136 pm UUID: 442bd414-30a2-7141-9e0f-9a336155713b Ancestors: 60Deprecated-ct.106 Complements TrueType-mt.78 =============== Diff against 60Deprecated-ct.106 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! + SystemOrganization addCategory: #'60Deprecated-Compiler-Support'! + SystemOrganization addCategory: #'60Deprecated-Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'60Deprecated-HelpSystem-Core-Model'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! + SystemOrganization addCategory: #'60Deprecated-Kernel-Numbers-Exceptions'! SystemOrganization addCategory: #'60Deprecated-Morphic-Events'! SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'! SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! + SystemOrganization addCategory: #'60Deprecated-TrueType-Fonts'! - SystemOrganization addCategory: #'60Deprecated-Etoys-Squeakland-System-Support'! - SystemOrganization addCategory: #'60Deprecated-Kernel-Numbers-Exceptions'! - SystemOrganization addCategory: #'60Deprecated-Compiler-Support'! Item was added: + Object subclass: #TTFileDescription + instanceVariableNames: 'fileName fileOffset familyName subfamilyName copyright ascender descender lineGap unitsPerEm numGlyphs indexToLocOffset indexToLocFormat glyphTableOffset cmapType cmapOffset numHMetrics hmtxTableOffset sTypoAscender sTypoDescender sTypoLineGap sxHeight sCapHeight minCodePoint maxCodePoint' + classVariableNames: 'AllFontsAndFiles FontPaths' + poolDictionaries: '' + category: '60Deprecated-TrueType-Fonts'! + + !TTFileDescription commentStamp: 'mt 2/18/2022 15:01' prior: 0! + Original comment from ar 7/29/2009 22:18: + Contrary to TTFontDescritption, this class leaves true type files on disk and only reads the required portions when constructing glyphs. This avoids the need of reading the entire font into memory at the cost of having to hit disk whenever a glyph is requested. + + ** + + In 2022, we combined the two TrueType parsers -- one in TTFileDescription and one in TTFontReader -- into a single TTFontReader. A specialization of TTFontDescription, namely TTRemoteFontDescription, can use TTFontReader to also fetch glyph data on demand.! Item was added: + ----- Method: TTFileDescription class>>allFamilyNamesAndFiles (in category 'font paths') ----- + allFamilyNamesAndFiles + "Answer a dictionary of all known family names and their corresponding file names." + + AllFontsAndFiles ifNil:[ + AllFontsAndFiles := Dictionary new. + Cursor wait showWhile:[self allFontsDo:[:font| + | names | + names := AllFontsAndFiles at: font familyName + ifAbsentPut:[OrderedCollection new]. + names add: font fileName]]]. + ^AllFontsAndFiles ! Item was added: + ----- Method: TTFileDescription class>>allFontsAndFiles (in category 'font paths') ----- + allFontsAndFiles + "Answer a dictionary of all known family names and their corresponding file names." + + AllFontsAndFiles ifNil:[ + AllFontsAndFiles := Dictionary new. + Cursor wait showWhile:[self allFontsDo:[:font| + | names | + names := AllFontsAndFiles at: font familyName + ifAbsentPut:[OrderedCollection new]. + names add: font fileName]]]. + ^AllFontsAndFiles ! Item was added: + ----- Method: TTFileDescription class>>allFontsDo: (in category 'font paths') ----- + allFontsDo: aBlock + "Evaluate aBlock with all the fonts we can find. Use sparingly." + self fontPathsDo:[:path| + self fontFilesIn: path do:[:font| + font familyName + ifNotNil:[aBlock value: font]]]! Item was added: + ----- Method: TTFileDescription class>>findFontFile: (in category 'font paths') ----- + findFontFile: fontFileName + "Find the path containing the font with the given name. + If it can't be found, return nil." + + self fontPathsDo:[:path| + | fd | + fd := FileDirectory on: path. + ([fd fileExists: fontFileName] on: Error do:[false]) + ifTrue:[^fd fullNameFor: fontFileName]. + ]. + ^nil! Item was added: + ----- Method: TTFileDescription class>>fontFilesIn:do: (in category 'font paths') ----- + fontFilesIn: path do: aBlock + "TTFileDescription loadAllFilesIn: 'C:\Windows\Fonts'" + "Load all the TTF files we can find in the given path" + | fd | + fd := FileDirectory on: path. + (fd fileNamesMatching: '*.ttf;*.ttc') do:[:fn| + ([self readFontsFrom: fn] on: Error do: [#()]) do: aBlock ]! Item was added: + ----- Method: TTFileDescription class>>fontFromUser (in category 'user interaction') ----- + fontFromUser + "TTFileDescription fontFromUser" + ^self fontFromUser: TextStyle defaultFont! Item was added: + ----- Method: TTFileDescription class>>fontFromUser: (in category 'user interaction') ----- + fontFromUser: priorFont + ^self fontFromUser: priorFont allowKeyboard: true! Item was added: + ----- Method: TTFileDescription class>>fontFromUser:allowKeyboard: (in category 'user interaction') ----- + fontFromUser: priorFont allowKeyboard: aBoolean + "TTFileDescription fontFromUser" + | fontMenu fontNames builder resultBlock style font widget result | + builder := ToolBuilder default. + fontNames := self allFontsAndFiles keys asArray sort. + fontMenu := builder pluggableMenuSpec new. + fontMenu label: 'Non-portable fonts'. + resultBlock := [:value| result := value]. + fontNames do: [:fontName | | active ptMenu item | + active := priorFont familyName sameAs: fontName. + ptMenu := builder pluggableMenuSpec new. + TTCFont pointSizes do: [:pt | | label | + label := pt printString, ' pt'. + item := ptMenu add: label + target: resultBlock + selector: #value: + argumentList: {{fontName. pt}}. + item checked: (active and:[pt = priorFont pointSize]). + ]. + item := fontMenu add: fontName action: nil. + item subMenu: ptMenu. + item checked: active. + ]. + widget := builder open: fontMenu. + builder runModal: widget. + result ifNil:[^nil]. + style := (TextStyle named: result first) ifNil:[self installFamilyNamed: result first]. + style ifNil: [^ self]. + font := style fonts detect: [:any | any pointSize = result last] ifNone: [nil]. + ^ font + ! Item was added: + ----- Method: TTFileDescription class>>fontOffsetsInFile: (in category 'instance creation') ----- + fontOffsetsInFile: file + "Answer a collection of font offsets in the given file" + | tag version nFonts | + file position: 0. + tag := file next: 4. + tag caseOf: { + ['true' asByteArray] -> ["Version 1.0 TTF file" + "http://developer.apple.com/textfonts/TTRefMan/RM06/Chap6.html + The values 'true' (0x74727565) and 0x00010000 are recognized by the Mac OS + as referring to TrueType fonts." + ^Array with: 0 "only one font" + ]. + [#[0 1 0 0]] -> ["Version 1.0 TTF file" + ^Array with: 0 "only one font" + ]. + ['ttcf' asByteArray] -> ["TTC file" + version := file next: 4. + (version = #[0 1 0 0] or: [version = #[0 2 0 0]]) ifFalse: [^self error: 'Unsupported TTC version']. + nFonts := file nextNumber: 4. + ^(1 to: nFonts) collect: [:i | file nextNumber: 4]. + ]. + } otherwise:[ + self error: 'This is not a valid Truetype file'. + ].! Item was added: + ----- Method: TTFileDescription class>>fontPathsDo: (in category 'font paths') ----- + fontPathsDo: aBlock + "Evaluate aBlock with all of the font paths that should be searched on the current platform" + + "Start with the current directory" + aBlock value: FileDirectory default pathName. + + "Then subdirectory 'fonts'" + aBlock value: (FileDirectory default directoryNamed: 'fonts') pathName. + + "Platform specific directories" + Smalltalk platformName caseOf:{ + ['Win32'] -> [ + "Standard Windows fonts directory" + aBlock value: 'C:\Windows\Fonts'. + ]. + ['Mac OS'] -> [ + "Standard system fonts directories" + #('/System/Library/Fonts' '/Library/Fonts') do: [:fontDir | + aBlock value: fontDir]. + ]. + ['unix'] -> [ | base | + "Standard fonts are in /usr/share/fonts/*" + base := '/usr/share/fonts'. + (FileDirectory on: base) directoryTreeDo: [ :path | + path last isDirectory ifTrue: [ + aBlock value: path last fullName ] ]. + ]. + } otherwise:[]. + ! Item was added: + ----- Method: TTFileDescription class>>initialize (in category 'class initialization') ----- + initialize + "TTFileDescription initialize" + Smalltalk addToShutDownList: self. + FontPaths := Dictionary new. + AllFontsAndFiles := nil.! Item was added: + ----- Method: TTFileDescription class>>installFamilyNamed: (in category 'instance creation') ----- + installFamilyNamed: familyName + "Install all the corresponding fonts for this family" + " + TTFileDescription installFamilyNamed: 'Arial'. + TTFileDescription installFamilyNamed: 'Batang'. + " + | fontFiles | + fontFiles := self allFontsAndFiles at: familyName ifAbsent:[#()]. + fontFiles do:[:fileName| | ttDesc | + ttDesc := (self readFontsFrom: fileName) detect:[:fnt| fnt familyName = familyName]. + TTCFont newTextStyleFromTT: ttDesc. + ]. + ^TextStyle named: familyName! Item was added: + ----- Method: TTFileDescription class>>loadAllFontFiles (in category 'examples') ----- + loadAllFontFiles + "Load all the TTF files we can find in all font paths" + " + TTFileDescription loadAllFontFiles. + " + self fontPathsDo:[:path| | fd | + fd := FileDirectory on: path. + (fd fileNamesMatching: '*.ttf;*.ttc') do:[:fn| + (self readFontsFrom: fn) do:[:font| + (1 to: font numGlyphs) + do:[:i| font readGlyphAt: i-1] + displayingProgress: 'Reading ', font name]. + ] displayingProgress: 'Scanning ', path. + ].! Item was added: + ----- Method: TTFileDescription class>>openFontFile:do: (in category 'instance creation') ----- + openFontFile: fontFileName do: aBlock + "Open the font with the given font file name" + | fontFilePath file | + fontFilePath := FontPaths at: fontFileName + ifAbsentPut:[self findFontFile: fontFileName]. + fontFilePath ifNil:[^nil]. + file := [FileStream readOnlyFileNamed: fontFilePath] on: Error do:[:ex| + "We lost the font; someone might have moved it away" + fontFilePath removeKey: fontFileName ifAbsent:[]. + ^nil + ]. + ^[aBlock value: file binary] ensure:[file close].! Item was added: + ----- Method: TTFileDescription class>>readFontsFrom: (in category 'instance creation') ----- + readFontsFrom: aFilename + "Reads and returns all the fonts in the given file" + " + TTFileDescription readFontsFrom: 'batang.ttc'. + " + ^self openFontFile: aFilename do:[:file| + (self fontOffsetsInFile: file) + collect:[:offset| self new on: aFilename offset: offset] + thenSelect:[:font| font notNil]]. + ! Item was added: + ----- Method: TTFileDescription class>>shutDown (in category 'class initialization') ----- + shutDown + "Flush my caches" + FontPaths := Dictionary new. + AllFontsAndFiles := nil.! Item was added: + ----- Method: TTFileDescription>>ascender (in category 'accessing') ----- + ascender + "Ascender of the font. Relative to unitsPerEm. + Easily confused with the typographic ascender." + ^ascender! Item was added: + ----- Method: TTFileDescription>>at: (in category 'accessing') ----- + at: charOrCode + "Compatibility with TTFontDescription" + ^self glyphAt: charOrCode! Item was added: + ----- Method: TTFileDescription>>cacheGlyphDataDuring: (in category 'glyphs') ----- + cacheGlyphDataDuring: aBlock + "We don't have an extra cache." + + ^ aBlock value! Item was added: + ----- Method: TTFileDescription>>capHeight (in category 'accessing') ----- + capHeight + "https://docs.microsoft.com/en-us/typography/opentype/spec/os2#scapheight + + This metric specifies the distance between the baseline and the approximate height of uppercase letters measured in FUnits. This value would normally be specified by a type designer but in situations where that is not possible, for example when a legacy font is being converted, the value may be set equal to the top of the unscaled and unhinted glyph bounding box of the glyph encoded at U+0048 (LATIN CAPITAL LETTER H). If no glyph is encoded in this position the field should be set to 0." + + ^ sCapHeight ifNil: [ + | glyph | + glyph := self at: 16r48 "$H". + glyph isFallback + ifTrue: [sCapHeight := 0] + ifFalse: [sCapHeight := glyph bounds bottom "=top ..."] ]! Item was added: + ----- Method: TTFileDescription>>childGlyphAt:in:fromFile: (in category 'glyphs') ----- + childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile + "Get the glyph with the given glyph index. Look in cache first, then read from file. + Ensure file is positioned at point where it was when it came here." + ^glyphCache at: glyphIndex ifAbsentPut:[ | glyph filePos | + filePos := fontFile position. + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + fontFile position: filePos. + glyph].! Item was added: + ----- Method: TTFileDescription>>copyright (in category 'accessing') ----- + copyright + + ^ copyright! Item was added: + ----- Method: TTFileDescription>>descender (in category 'accessing') ----- + descender + "Descender of the font. Relative to unitsPerEm. + Easily confused with the typographic descender." + ^descender! Item was added: + ----- Method: TTFileDescription>>displayAll (in category 'private') ----- + displayAll + "Read all the glyphs and display them" + | glyph form scale points x y | + points := 24. + scale := points asFloat / unitsPerEm. + x := y := 0. + Display deferUpdates: true. + 1 to: numGlyphs do:[:i| + glyph := self readGlyphAt: i-1. + form := glyph asFormWithScale: scale + ascender: ascender + descender: descender. + Display fillWhite: (x@y extent: form extent). + form displayOn: Display at: x@y rule: 34. + Display forceToScreen: (x@y extent: form extent). + x := x + form width. + x > Display width ifTrue:[y := y + form height. x := 0]. + y > Display height ifTrue:[y := 0]. + Sensor anyButtonPressed ifTrue:[^Display restore]. + ].! Item was added: + ----- Method: TTFileDescription>>externalLeading (in category 'rendering') ----- + externalLeading + "https://freetype.org/freetype2/docs/glyphs/glyphs-3.html" + + ^ lineGap! Item was added: + ----- Method: TTFileDescription>>fallbackGlyph (in category 'glyphs') ----- + fallbackGlyph + "Answer the fallback glyph, the first in the loca table " + | glyph | + self withFileDo:[:fontFile| + glyph := self readGlyphAt: 0 fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>familyName (in category 'accessing') ----- + familyName + "The family name for the font" + ^familyName! Item was added: + ----- Method: TTFileDescription>>fileName (in category 'accessing') ----- + fileName + "The name of the Truetype file" + ^fileName! Item was added: + ----- Method: TTFileDescription>>fileOffset (in category 'accessing') ----- + fileOffset + + ^fileOffset! Item was added: + ----- Method: TTFileDescription>>findTable:in: (in category 'ttf tables') ----- + findTable: tag in: fontFile + "Position the fontFile at the beginning of the table with the given tag. + Answer true if we found the table, false otherwise." + | maxTables chksum offset length table | + fontFile position: fileOffset. + fontFile skip: 4. "version" + maxTables := fontFile nextNumber: 2. + fontFile skip: 6. + 1 to: maxTables do:[:i| + table := (fontFile next: 4) asString. + chksum := fontFile nextNumber: 4. + offset := fontFile nextNumber: 4. + length := fontFile nextNumber: 4. + table = tag ifTrue:[ + fontFile position: offset. + ^true]. + ]. + chksum. length. "fake usage" + ^false! Item was added: + ----- Method: TTFileDescription>>fontHeight (in category 'accessing') ----- + fontHeight + ^ascender - descender! Item was added: + ----- Method: TTFileDescription>>getGlyphFlagsFrom:size: (in category 'glyphs') ----- + getGlyphFlagsFrom: fontFile size: nPts + "Read in the flags for this glyph. The outer loop gathers the flags that + are actually contained in the table. If the repeat bit is set in a flag + then the next byte is read from the table; this is the number of times + to repeat the last flag. The inner loop does this, incrementing the + outer loops index each time." + | flags index repCount flagBits | + flags := ByteArray new: nPts. + index := 1. + [index <= nPts] whileTrue:[ + flagBits := fontFile next. + flags at: index put: flagBits. + (flagBits bitAnd: 8) = 8 ifTrue:[ + repCount := fontFile next. + repCount timesRepeat:[ + index := index + 1. + flags at: index put: flagBits]]. + index := index + 1]. + ^flags! Item was added: + ----- Method: TTFileDescription>>glyphAt: (in category 'glyphs') ----- + glyphAt: charOrCode + "Answer the glyph with the given code point" + | codePoint glyph | + codePoint := charOrCode asCharacter charCode. + self withFileDo:[:fontFile| | glyphIndex | + glyphIndex := self readCmapTableAt: codePoint fromFile: fontFile. + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>hasGlyphForCode: (in category 'testing') ----- + hasGlyphForCode: aCharacterCode + + ^ (self at: aCharacterCode) isFallback not! Item was added: + ----- Method: TTFileDescription>>internalLeading (in category 'rendering') ----- + internalLeading + "https://freetype.org/freetype2/docs/glyphs/glyphs-3.html" + + ^ ascender - descender - unitsPerEm! Item was added: + ----- Method: TTFileDescription>>isProtected (in category 'testing') ----- + isProtected + + ^ false! Item was added: + ----- Method: TTFileDescription>>isRegular (in category 'testing') ----- + isRegular + "Answer true if I am a Regular/Roman font (i.e. not bold, etc.)" + ^ (TTCFont indexOfSubfamilyName: (self subfamilyName)) = 0. + ! Item was added: + ----- Method: TTFileDescription>>isRemoteFont (in category 'testing') ----- + isRemoteFont + "Answer whether the receiver get's its data from an external file." + + ^ true! Item was added: + ----- Method: TTFileDescription>>isSymbolFont (in category 'testing') ----- + isSymbolFont + + ^ false! Item was added: + ----- Method: TTFileDescription>>lineGap (in category 'accessing') ----- + lineGap + "Leading of the font. Relative to unitsPerEm. + Easily confused with the typographic linegap." + ^lineGap! Item was added: + ----- Method: TTFileDescription>>maxCodePoint (in category 'accessing') ----- + maxCodePoint + + ^ maxCodePoint ifNil: [maxCodePoint := ((self size - 1 to: 0 by: -1) + detect: [:ea | (self at: ea) isFallback not] ifNone: [0])]! Item was added: + ----- Method: TTFileDescription>>minCodePoint (in category 'accessing') ----- + minCodePoint + + ^ minCodePoint ifNil: [minCodePoint := (0 to: self size - 1) + detect: [:ea | (self at: ea) isFallback not] ifNone: [1]]! Item was added: + ----- Method: TTFileDescription>>name (in category 'accessing') ----- + name + "For compatibility with TTFontDescription" + ^familyName copyWithout: Character space! Item was added: + ----- Method: TTFileDescription>>numGlyphs (in category 'accessing') ----- + numGlyphs + "The number of glyphs represented in this font" + ^numGlyphs! Item was added: + ----- Method: TTFileDescription>>on: (in category 'initialize') ----- + on: aFileName + "Initialize the receiver from a file name" + fileName := aFileName. + self withFileDo:[:fontFile| + (self findTable: 'head' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processFontHeaderTable: fontFile. + (self findTable: 'maxp' in: fontFile) + ifFalse:[^self error: 'File does not have a profile table']. + self processMaximumProfileTable: fontFile. + (self findTable: 'name' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + self processNamingTable: fontFile. + (self findTable: 'hhea' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + self processHorizontalHeaderTable: fontFile. + (self findTable: 'hmtx' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + hmtxTableOffset := fontFile position. + (self findTable: 'loca' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + indexToLocOffset := fontFile position. + (self findTable: 'glyf' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + glyphTableOffset := fontFile position. + (self findTable: 'cmap' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processCharacterMappingTable: fontFile. + ].! Item was added: + ----- Method: TTFileDescription>>on:offset: (in category 'initialize') ----- + on: aFileName offset: fontOffset + "Initialize the receiver from a file name" + fileName := aFileName. + fileOffset := fontOffset. + self withFileDo:[:fontFile| + "Some TTC fonts may actually be collection of PostScript-Based OpenType fonts" + (self findTable: 'CFF ' in: fontFile) + ifTrue: [^ nil] + ifFalse: [fontFile position: fileOffset "reset"]. + "Some bitmap fonts are called .ttf; skip anything that doesn't have a header" + (self findTable: 'head' in: fontFile) ifFalse:[^nil]. + self processFontHeaderTable: fontFile. + (self findTable: 'maxp' in: fontFile) + ifFalse:[^self error: 'File does not have a profile table']. + self processMaximumProfileTable: fontFile. + (self findTable: 'name' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + self processNamingTable: fontFile. + (self findTable: 'hhea' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + self processHorizontalHeaderTable: fontFile. + (self findTable: 'OS/2' in: fontFile) + ifTrue:[self processOS2Table: fontFile]. + (self findTable: 'hmtx' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + hmtxTableOffset := fontFile position. + (self findTable: 'loca' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + indexToLocOffset := fontFile position. + (self findTable: 'glyf' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + glyphTableOffset := fontFile position. + (self findTable: 'cmap' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processCharacterMappingTable: fontFile. + ].! Item was added: + ----- Method: TTFileDescription>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream nextPutAll: '('; print: fileName; nextPutAll: ')'.! Item was added: + ----- Method: TTFileDescription>>processCharacterMappingTable: (in category 'ttf tables') ----- + processCharacterMappingTable: fontFile + "Read the font's character to glyph index mapping table." + | initialOffset nSubTables pID sID offset | + initialOffset := fontFile position. + fontFile skip: 2. "Skip table version" + nSubTables := fontFile nextNumber: 2. + 1 to: nSubTables do:[:i| + pID := fontFile nextNumber: 2. + sID := fontFile nextNumber: 2. + offset := fontFile nextNumber: 4. + "Check if this is either a Unicode (0), Macintosh (1), + or a Windows (3) encoded table" + (#(0 1 3) includes: pID) ifTrue:[ + cmapType := pID. + cmapOffset := initialOffset + offset. + cmapType = 0 ifTrue:[^self]. "found Unicode table; use it" + ]. + ].! Item was added: + ----- Method: TTFileDescription>>processCompositeGlyph:contours:from: (in category 'glyphs') ----- + processCompositeGlyph: glyph contours: nContours from: fontFile + "Read a composite glyph from the font data. The glyph passed into this method contains some state variables that must be copied into the resulting composite glyph." + | flags glyphIndex hasInstr ofsX ofsY iLen a11 a12 a21 a22 m glyphCache | + glyphCache := Dictionary new. + a11 := a22 := 16r4000. "1.0 in F2Dot14" + a21 := a12 := 0. "0.0 in F2Dot14" + "Copy state" + hasInstr := false. + [ flags := fontFile nextNumber: 2. + glyphIndex := fontFile nextNumber: 2. + (flags bitAnd: 1) = 1 ifTrue:[ + ofsX := self short: (fontFile nextNumber: 2). + ofsY := self short: (fontFile nextNumber: 2). + ] ifFalse:[ + (ofsX := fontFile next) > 127 ifTrue:[ofsX := ofsX - 256]. + (ofsY := fontFile next) > 127 ifTrue:[ofsY := ofsY - 256]. + ]. + ((flags bitAnd: 2) = 2) ifFalse:[ + | i1 i2 p1 p2 | + (flags bitAnd: 1) = 1 ifTrue: [ + i1 := ofsX + 65536 \\ 65536. + i2 := ofsY + 65536 \\ 65536] + ifFalse: [ + i1 := ofsX + 256 \\ 256. + i2 := ofsY + 256 \\ 256]. + p1 := glyph referenceVertexAt: i1+1. + p2 := (self childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile) referenceVertexAt: i2+1. + ofsX := p1 x - p2 x. + ofsY := p1 y - p2 y. + ]. + (flags bitAnd: 8) = 8 ifTrue:[ + a11 := a22 := self short: (fontFile nextNumber: 2)]. + (flags bitAnd: 64) = 64 ifTrue:[ + a11 := self short: (fontFile nextNumber: 2). + a22 := self short: (fontFile nextNumber: 2). + ]. + (flags bitAnd: 128) = 128 ifTrue:[ + "2x2 transformation" + a11 := self short: (fontFile nextNumber: 2). + a21 := self short: (fontFile nextNumber: 2). + a12 := self short: (fontFile nextNumber: 2). + a22 := self short: (fontFile nextNumber: 2). + ]. + m := MatrixTransform2x3 new. + "Convert entries from F2Dot14 to float" + m a11: (a11 asFloat / 16r4000). + m a12: (a12 asFloat / 16r4000). + m a21: (a21 asFloat / 16r4000). + m a22: (a22 asFloat / 16r4000). + m a13: ofsX. + m a23: ofsY. + glyph addGlyph: (self childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile) transformation: m. + hasInstr := hasInstr or:[ (flags bitAnd: 256) = 256]. + "Continue as long as the MORE:=COMPONENTS bit is set" + (flags bitAnd: 32) = 32] whileTrue. + hasInstr ifTrue:[ + iLen := fontFile nextNumber: 2. + fontFile skip: iLen].! Item was added: + ----- Method: TTFileDescription>>processFontHeaderTable: (in category 'ttf tables') ----- + processFontHeaderTable: fontFile + "Value Data Type Description + unitsPerEm USHORT Granularity of the font's em square. + xMax USHORT Maximum X-coordinate for the entire font. + xMin USHORT Minimum X-coordinate for the entire font. + yMax USHORT Maximum Y-coordinate for the entire font. + yMin USHORT Minimum Y-coordinate for the entire font. + indexToLocFormat SHORT Used when processing the Index To Loc Table." + + fontFile skip: 4. "Skip table version number" + fontFile skip: 4. "Skip font revision number" + fontFile skip: 4. "Skip check sum adjustment" + fontFile skip: 4. "Skip magic number" + fontFile skip: 2. "Skip flags" + + unitsPerEm := fontFile nextNumber: 2. + + fontFile skip: 8. "Skip creation date" + fontFile skip: 8. "Skip modification date" + + "Skip min/max values of all glyphs" + fontFile skip: 2. + fontFile skip: 2. + fontFile skip: 2. + fontFile skip: 2. + + fontFile skip: 2. "Skip mac style" + fontFile skip: 2. "Skip lowest rec PPEM" + fontFile skip: 2. "Skip font direction hint" + + indexToLocFormat := fontFile nextNumber: 2. + ! Item was added: + ----- Method: TTFileDescription>>processHorizontalHeaderTable: (in category 'ttf tables') ----- + processHorizontalHeaderTable: fontFile + " + ascender SHORT Typographic ascent. + descender SHORT Typographic descent. + lineGap SHORT Typographic lineGap. + numberOfHMetrics USHORT Number hMetric entries in the HTMX + Table; may be smaller than the total + number of glyphs. + " + fontFile skip: 4. "Skip table version" + ascender := self short: (fontFile nextNumber: 2). + descender := self short: (fontFile nextNumber: 2). + lineGap := self short: (fontFile nextNumber: 2). + fontFile skip: 2. "Skip advanceWidthMax" + fontFile skip: 2. "Skip minLeftSideBearing" + fontFile skip: 2. "Skip minRightSideBearing" + fontFile skip: 2. "Skip xMaxExtent" + fontFile skip: 2. "Skip caretSlopeRise" + fontFile skip: 2. "Skip caretSlopeRun" + fontFile skip: 10. "Skip 5 reserved shorts" + fontFile skip: 2. "Skip metricDataFormat" + + numHMetrics := fontFile nextNumber: 2. + + ^numHMetrics! Item was added: + ----- Method: TTFileDescription>>processMaximumProfileTable: (in category 'ttf tables') ----- + processMaximumProfileTable: fontFile + " + numGlyphs USHORT The number of glyphs in the font. + " + fontFile skip: 4. "Skip Table version number" + numGlyphs := fontFile nextNumber: 2.! Item was added: + ----- Method: TTFileDescription>>processNamingTable: (in category 'ttf tables') ----- + processNamingTable: fontFile + "copyright CHARPTR The font's copyright notice. + familyName CHARPTR The font's family name. + subfamilyName CHARPTR The font's subfamily name. + uniqueName CHARPTR A unique identifier for this font. + fullName CHARPTR The font's full name (a combination of + familyName and subfamilyName). + versionName CHARPTR The font's version string. + " + | nRecords initialOffset storageOffset format | + initialOffset := fontFile position. + format := fontFile nextNumber: 2. + format = 0 ifFalse: [self error: 'Cannot handle format 1 naming tables']. + "Get the number of name records" + nRecords := fontFile nextNumber: 2. + "Offset from the beginning of this table" + storageOffset := (fontFile nextNumber: 2) + initialOffset. + 1 to: nRecords do:[:i| | pID sID lID nID length offset string | + fontFile position: initialOffset + 6 + ((i-1) * 12). + pID := fontFile nextNumber: 2. + sID := fontFile nextNumber: 2. + lID := fontFile nextNumber: 2. + nID := fontFile nextNumber: 2. + length := fontFile nextNumber: 2. + offset := fontFile nextNumber: 2. + "Read only Macintosh or Microsoft strings" + (pID = 1 or:[pID = 3 and:[sID = 1]]) ifTrue:[ + "MS uses Unicode all others single byte" + "multiBytes := pID = 3." + fontFile position: storageOffset+offset. + string := (fontFile next: length) asString. + pID = 3 ifTrue:[ | keep | + keep := true. + string := string select:[:ch| keep := keep not]. + ]. + "Select only English names, prefer Macintosh" + ((pID = 1 and: [lID = 0]) or: [pID = 3 and: [lID = 16r0409]]) ifTrue: [ + nID caseOf: { + [0] -> [(pID = 1 or:[copyright == nil]) ifTrue:[copyright := string]]. + [1] -> [(pID = 1 or:[familyName == nil]) ifTrue:[familyName := string]]. + [2] -> [(pID = 1 or:[subfamilyName == nil]) ifTrue:[subfamilyName := string]]. + "[3] -> [(pID = 1 or:[uniqueName == nil]) ifTrue:[uniqueName := string]]." + "[4] -> [(pID = 1 or:[fullName == nil]) ifTrue:[fullName := string]]." + "[5] -> [(pID = 1 or:[versionName == nil]) ifTrue:[versionName := string]]." + "[6] -> [(pID = 1 or:[postscriptName == ni]) ifTrue:[postscriptName := string]]." + "[7] -> [(pID = 1 or:[trademark == nil]) ifTrue:[trademark := string]]." + } otherwise:["ignore"]. + ] + ]. + ]. + ! Item was added: + ----- Method: TTFileDescription>>processOS2Table: (in category 'ttf tables') ----- + processOS2Table: fontFile + " + USHORT version 0x0004 + SHORT xAvgCharWidth + USHORT usWeightClass + USHORT usWidthClass + USHORT fsType + SHORT ySubscriptXSize + SHORT ySubscriptYSize + SHORT ySubscriptXOffset + SHORT ySubscriptYOffset + SHORT ySuperscriptXSize + SHORT ySuperscriptYSize + SHORT ySuperscriptXOffset + SHORT ySuperscriptYOffset + SHORT yStrikeoutSize + SHORT yStrikeoutPosition + SHORT sFamilyClass + BYTE panose[10] + ULONG ulUnicodeRange1 Bits 0-31 + ULONG ulUnicodeRange2 Bits 32-63 + ULONG ulUnicodeRange3 Bits 64-95 + ULONG ulUnicodeRange4 Bits 96-127 + CHAR achVendID[4] + USHORT fsSelection + USHORT usFirstCharIndex + USHORT usLastCharIndex + SHORT sTypoAscender + SHORT sTypoDescender + SHORT sTypoLineGap + USHORT usWinAscent + USHORT usWinDescent + ULONG ulCodePageRange1 Bits 0-31 + ULONG ulCodePageRange2 Bits 32-63 + SHORT sxHeight + SHORT sCapHeight + USHORT usDefaultChar + USHORT usBreakChar + USHORT usMaxContext " + | version fsSelection minAscii maxAscii | + version := self short: (fontFile nextNumber: 2). "table version" + version = 0 ifTrue:[^self]. + fontFile skip: 60. + fsSelection := fontFile nextNumber: 2. + minAscii := fontFile nextNumber: 2. + maxAscii := fontFile nextNumber: 2. + sTypoAscender := self short: (fontFile nextNumber: 2). + sTypoDescender := self short: (fontFile nextNumber: 2). + sTypoLineGap := self short: (fontFile nextNumber: 2). + ! Item was added: + ----- Method: TTFileDescription>>processSimpleGlyph:contours:from: (in category 'glyphs') ----- + processSimpleGlyph: glyph contours: nContours from: fontFile + "Construct a simple glyph frm the font file" + | endPts nPts iLength flags | + endPts := Array new: nContours. + 1 to: nContours do:[:i| endPts at: i put: (fontFile nextNumber: 2)]. + glyph initializeContours: nContours with: endPts. + nContours = 0 ifTrue:[^self]. + nPts := endPts last + 1. + iLength := fontFile nextNumber: 2. "instruction length" + fontFile skip: iLength. + flags := self getGlyphFlagsFrom: fontFile size: nPts. + self readGlyphXCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts. + self readGlyphYCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts.! Item was added: + ----- Method: TTFileDescription>>readCmapTableAt:fromFile: (in category 'glyphs') ----- + readCmapTableAt: codePoint fromFile: fontFile + | cmapFmt length firstCode entryCount segCount segIndex startCode idDelta idRangeOffset offset | + fontFile position: cmapOffset. + cmapFmt := fontFile nextNumber: 2. + length := fontFile nextNumber: 2. + fontFile skip: 2. "skip version" + + cmapFmt = 0 ifTrue:["byte encoded table" + codePoint > 255 ifTrue:[^0]. + length := length - 6. "should be always 256" + length <= 0 ifTrue: [^0]. "but sometimes, this table is empty" + fontFile skip: codePoint. "move to correct byte offset in table" + ^fontFile next]. + + cmapFmt = 4 ifTrue:[ "segment mapping to deltavalues" + codePoint > 16rFFFF ifTrue:[^0]. + segCount := (fontFile nextNumber: 2) // 2. + fontFile skip: 6. "skip searchRange, entrySelector, rangeShift" + segIndex := (0 to: segCount-1) + detect:[:i| | endCode | (endCode := (fontFile nextNumber: 2)) >= codePoint]. + fontFile position: cmapOffset + 16 + (segCount*2) + (segIndex*2). + startCode := fontFile nextNumber: 2. + startCode <= codePoint ifFalse:[^0]. "not in segment range" + fontFile position: cmapOffset + 16 + (segCount*4) + (segIndex*2). + idDelta := fontFile nextNumber: 2. + fontFile position: cmapOffset + 16 + (segCount*6) + (segIndex*2). + idRangeOffset := fontFile nextNumber: 2. + idRangeOffset = 0 ifTrue:[^(idDelta + codePoint) bitAnd: 16rFFFF]. + offset := (fontFile position - 2) + idRangeOffset + ((codePoint - startCode) * 2). + fontFile position: offset. + ^fontFile nextNumber: 2. + ]. + + cmapFmt = 6 ifTrue:[ "trimmed table" + firstCode := fontFile nextNumber: 2. + entryCount := fontFile nextNumber: 2. + (codePoint between: firstCode and: firstCode+entryCount) ifFalse:[^0]. + fontFile skip: (codePoint-firstCode) * 2. + ^fontFile nextNumber: 2]. + + ^0! Item was added: + ----- Method: TTFileDescription>>readGlyphAt: (in category 'glyphs') ----- + readGlyphAt: glyphIndex + | glyph | + self withFileDo:[:fontFile| + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>readGlyphAt:fromFile: (in category 'glyphs') ----- + readGlyphAt: glyphIndex fromFile: fontFile + "Answer the glyph with the given glyph index" + | glyphOffset nextOffset glyphLength glyph nContours left top right bottom | + indexToLocFormat = 0 ifTrue:["Format0: offset/2 is stored" + fontFile position: indexToLocOffset+(glyphIndex * 2). + glyphOffset := (fontFile nextNumber: 2) * 2. + nextOffset := (fontFile nextNumber: 2) * 2. + ] ifFalse:["Format1: store actual offset" + fontFile position: indexToLocOffset+(glyphIndex * 4). + glyphOffset := fontFile nextNumber: 4. + nextOffset := fontFile nextNumber: 4. + ]. + glyphLength := nextOffset - glyphOffset. + glyphLength = 0 ifTrue:[^TTGlyph new glyphIndex: glyphIndex]. + + fontFile position: glyphTableOffset+glyphOffset. + nContours := self short: (fontFile nextNumber: 2). + left := self short: (fontFile nextNumber: 2). + top := self short: (fontFile nextNumber: 2). + right := self short: (fontFile nextNumber: 2). + bottom := self short: (fontFile nextNumber: 2). + nContours >= 0 ifTrue:[ + glyph := TTGlyph new glyphIndex: glyphIndex. + self processSimpleGlyph: glyph contours: nContours from: fontFile. + ] ifFalse:[ + glyph := TTCompositeGlyph new glyphIndex: glyphIndex. + self processCompositeGlyph: glyph contours: nContours from: fontFile. + ]. + glyph buildAllContours. + glyph bounds: (left@top corner: right@bottom). + ^glyph + ! Item was added: + ----- Method: TTFileDescription>>readGlyphXCoords:glyph:nContours:flags:endPoints: (in category 'glyphs') ----- + readGlyphXCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts + "Read the x coordinates for the given glyph from the font file." + | startPoint endPoint flagBits xValue contour ttPoint | + startPoint := 1. + 1 to: nContours do:[:i| + contour := glyph contours at: i. + "Get the end point" + endPoint := (endPts at: i) + 1. + "Store number of points" + startPoint to: endPoint do:[:j| + ttPoint := contour points at: (j - startPoint + 1). + flagBits := flags at: j. + "If bit zero in the flag is set then this point is an on-curve + point, if not, then it is an off-curve point." + (flagBits bitAnd: 1) = 1 + ifTrue:[ ttPoint type: #OnCurve] + ifFalse:[ttPoint type: #OffCurve]. + "First we check to see if bit one is set. This would indicate that + the corresponding coordinate data in the table is 1 byte long. + If the bit is not set, then the coordinate data is 2 bytes long." + (flagBits bitAnd: 2) = 2 ifTrue:[ "one byte" + xValue := fontFile next. + xValue := (flagBits bitAnd: 16)=16 ifTrue:[xValue] ifFalse:[xValue negated]. + ttPoint x: xValue. + ] ifFalse:[ "two byte" + "If bit four is set, then this coordinate is the same as the + last one, so the relative offset (of zero) is stored. If bit + is not set, then read in two bytes and store it as a signed value." + (flagBits bitAnd: 16) = 16 ifTrue:[ ttPoint x: 0 ] + ifFalse:[ + xValue := self short: (fontFile nextNumber: 2). + ttPoint x: xValue]]]. + startPoint := endPoint + 1]! Item was added: + ----- Method: TTFileDescription>>readGlyphYCoords:glyph:nContours:flags:endPoints: (in category 'glyphs') ----- + readGlyphYCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts + "Read the y coordinates for the given glyph from the font file." + | startPoint endPoint flagBits yValue contour ttPoint | + startPoint := 1. + 1 to: nContours do:[:i| + contour := glyph contours at: i. + "Get the end point" + endPoint := (endPts at: i) + 1. + "Store number of points" + startPoint to: endPoint do:[:j| + ttPoint := contour points at: (j - startPoint + 1). + flagBits := flags at: j. + "Check if this value one or two byte encoded" + (flagBits bitAnd: 4) = 4 ifTrue:[ "one byte" + yValue := fontFile next. + yValue := (flagBits bitAnd: 32)=32 ifTrue:[yValue] ifFalse:[yValue negated]. + ttPoint y: yValue. + ] ifFalse:[ "two byte" + (flagBits bitAnd: 32) = 32 ifTrue:[ ttPoint y: 0 ] + ifFalse:[ + yValue := self short: (fontFile nextNumber: 2). + ttPoint y: yValue]]]. + startPoint := endPoint + 1]! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:extraScale:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: fontHeight extraScale: extraScale fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + + ^ self + renderGlyph: code height: fontHeight extraScale: extraScale + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:extraScale:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category 'rendering') ----- + renderGlyph: code height: fontHeight extraScale: extraScale fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis + "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." + + | form pixelScale offset | + pixelScale := fontHeight asFloat / self fontHeight. + offset := 0 @ ( ((self ascender - (self ascender * extraScale)) * pixelScale) truncated ). + form := (self at: code) + asFormWithScale: pixelScale * extraScale + ascender: self ascender + descender: self descender + fgColor: fgColor bgColor: bgColor depth: depth + replaceColor: false + lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth + emphasis: emphasis. + form offset: form offset + offset. + ^ form! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + + self flag: #deprecated. + ^ self + renderGlyph: code height: fontHeight extraScale: 1.0 + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category 'rendering') ----- + renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis + "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." + + self flag: #deprecated. + ^ self + renderGlyph: code height: fontHeight extraScale: 1.0 + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis! Item was added: + ----- Method: TTFileDescription>>sampleText (in category 'accessing') ----- + sampleText + + ^ ''! Item was added: + ----- Method: TTFileDescription>>short: (in category 'private') ----- + short: aNumber + (aNumber bitAnd: 16r8000) = 0 + ifTrue: [^aNumber] + ifFalse: [^-1 - (aNumber bitXor: 16rFFFF)]! Item was added: + ----- Method: TTFileDescription>>size (in category 'accessing') ----- + size + "Compatibility with TTFontDescription" + ^16rFFFF! Item was added: + ----- Method: TTFileDescription>>subfamilyName (in category 'accessing') ----- + subfamilyName + "The subfamily name for the font" + ^subfamilyName! Item was added: + ----- Method: TTFileDescription>>typographicAscender (in category 'accessing') ----- + typographicAscender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoAscender ifNil:[ascender]! Item was added: + ----- Method: TTFileDescription>>typographicDescender (in category 'accessing') ----- + typographicDescender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoDescender ifNil:[descender]! Item was added: + ----- Method: TTFileDescription>>typographicFontHeight (in category 'accessing') ----- + typographicFontHeight + "cope for the fact that typographicAscender and + typographicDescender may not be available and + 0-height fonts are a bit useless" + | tfh | + tfh := self typographicAscender - self typographicDescender. + ^ tfh = 0 ifTrue: [self fontHeight] ifFalse: [tfh]! Item was added: + ----- Method: TTFileDescription>>typographicLineGap (in category 'accessing') ----- + typographicLineGap + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoLineGap ifNil:[lineGap]! Item was added: + ----- Method: TTFileDescription>>unitsPerEm (in category 'accessing') ----- + unitsPerEm + + ^unitsPerEm! Item was added: + ----- Method: TTFileDescription>>updateGlyphMetrics:fromFile: (in category 'glyphs') ----- + updateGlyphMetrics: glyph fromFile: fontFile + "Update the horizontal metrics for the given glyph" + | glyphIndex | + glyphIndex := glyph glyphIndex. + glyphIndex <= numHMetrics ifTrue:[ + fontFile position: hmtxTableOffset + (glyphIndex*4). + glyph advanceWidth: (fontFile nextNumber: 2). + glyph leftSideBearing: (self short: (fontFile nextNumber: 2)). + ] ifFalse:[ + fontFile position: hmtxTableOffset + ((numHMetrics-1) *4). + glyph advanceWidth: (fontFile nextNumber: 2). + fontFile position: hmtxTableOffset + (numHMetrics * 4) + ((glyphIndex-numHMetrics)*2). + glyph leftSideBearing: (self short: (fontFile nextNumber: 2)). + ]. + glyph updateRightSideBearing.! Item was added: + ----- Method: TTFileDescription>>withFileDo: (in category 'initialize') ----- + withFileDo: aBlock + "Open the font file for the duration of aBlock" + ^self class openFontFile: fileName do: aBlock.! Item was added: + ----- Method: TTFileDescription>>xHeight (in category 'accessing') ----- + xHeight + "https://docs.microsoft.com/en-us/typography/opentype/spec/os2#sxheight + + This metric specifies the distance between the baseline and the approximate height of non-ascending lowercase letters measured in FUnits. This value would normally be specified by a type designer but in situations where that is not possible, for example when a legacy font is being converted, the value may be set equal to the top of the unscaled and unhinted glyph bounding box of the glyph encoded at U+0078 (LATIN SMALL LETTER X). If no glyph is encoded in this position the field should be set to 0." + + ^ sxHeight ifNil: [ + | glyph | + glyph := self at: 16r78 "$x". + glyph isFallback + ifTrue: [sxHeight := 0] + ifFalse: [sxHeight := glyph bounds bottom "=top ..."] ]!

1 0

The Trunk: Graphics-mt.489.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.489.mcz ==================== Summary ==================== Name: Graphics-mt.489 Author: mt Time: 1 March 2022, 4:52:26.923172 pm UUID: 7699a405-9499-7549-9985-d0ef424ae0df Ancestors: Graphics-mt.488 Some quality-of-life enhancements for fonts: - Look up the regular version of any font instance you have at hand via #asRegular (complements #isRegular) - Use #larger or #smaller to resize a font (like Color's #darker or #lighter) - Offer a way to access a default style and font that definitely uses flexible TrueType data, which is not the case, e.g., for our 100% default where a pre-rendered StrikeFont is used =============== Diff against Graphics-mt.488 =============== Item was added: + ----- Method: AbstractFont>>asRegular (in category 'converting') ----- + asRegular + "Try to lookup the receiver with normal emphasis. If the receiver itself looks bold face, this might be okay. Rely on what is registered on the font family's text style. Not that this is different from #emphasized: with 0, which does nothing." + + self emphasis = 0 ifTrue: [^ self]. + ^ self textStyleOrNil + ifNil: [self] + ifNotNil: [:style | style fontOfPointSize: self pointSize]! Item was added: + ----- Method: AbstractFont>>larger (in category 'converting') ----- + larger + "Answer a font that is about 20% larger than the receiver but has the same font family and emphasis. Round to 0.5 points to not yield so many different font instances." + + ^ self asPointSize: ((self pointSize asFloat * 1.2) roundTo: 0.5)! Item was added: + ----- Method: AbstractFont>>smaller (in category 'converting') ----- + smaller + "Answer a font that is about 20% smaller than the receiver but has the same font family and emphasis. Round to 0.5 points to not yield so many different font instances." + + ^ self asPointSize: ((self pointSize asFloat * 0.8) roundTo: 0.5)! Item was added: + ----- Method: TextStyle class>>defaultTT (in category 'constants') ----- + defaultTT + "Answer the default TrueType text style." + + ^ self default isTTCStyle + ifTrue: [self default] + ifFalse: [self named: #BitstreamVeraSans]! Item was added: + ----- Method: TextStyle class>>defaultTTFont (in category 'constants') ----- + defaultTTFont + + ^ self defaultTT defaultFont!

1 0

The Trunk: TrueType-mt.77.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.77.mcz ==================== Summary ==================== Name: TrueType-mt.77 Author: mt Time: 1 March 2022, 4:46:05.378172 pm UUID: 295b5945-b51f-8946-b43e-254b9151ba2a Ancestors: TrueType-mt.76 I forgot to commit 'familyName' instVar. Sorry for the noise. Nuke unused 'NamesToIndexes' and 'Scale' classVars. =============== Diff against TrueType-mt.76 =============== Item was changed: AbstractFont subclass: #TTCFont + instanceVariableNames: 'ttcDescription pointSize foregroundColor cache derivatives fallbackFont height ascent descent colorToCacheMap lineGap lineGapSlice minCodePoint maxCodePoint extraGlyphScale extraLineGap familyName' + classVariableNames: 'GlyphCacheData GlyphCacheIndex GlyphCacheReady GlyphCacheSize Registry ShutdownList' - instanceVariableNames: 'ttcDescription pointSize foregroundColor cache derivatives fallbackFont height ascent descent colorToCacheMap lineGap lineGapSlice minCodePoint maxCodePoint extraGlyphScale extraLineGap' - classVariableNames: 'GlyphCacheData GlyphCacheIndex GlyphCacheReady GlyphCacheSize NamesToIndexes Registry Scale ShutdownList' poolDictionaries: '' category: 'TrueType-Fonts'! !TTCFont commentStamp: 'nk 4/2/2004 11:32' prior: 0! I represent a font that uses TrueType derived glyph. Upon a request for glyph for a character through a call to #formOf: (or #widthOf:), I first search corresponding glyph in the cache. If there is not, it creates a 32bit depth form with the glyph. The cache is weakly held. The entries are zapped at full GC. Structure: ttcDescription TTFontDescription -- The Squeak data structure for a TrueType font data file. pointSize Number -- Nominal Em size in points. Conversion to pixel sizes depends on the definition of TextStyle class>>pixelsPerInch. foregroundColor Color -- So far, this font need to know the glyph color in cache. cache WeakArray of <Color -> <Array(256) of glyph>> derivatives Array -- stores the fonts in the same family but different emphasis. !

1 0

Jump to page: