如何在Smalltalk中制作非常大的文本？

Question

我正在嘗試使用以下代碼在Squeak Smalltalk中制作一個大文本橫幅：

t := TextMorph new.
t string: 'You win!' fontName: 'BitstreamVeraSans' size: 400.
t extent: 600@100.
t center: Display center.
t openInWorld.

但文字大小似乎最多約為60.我使用錯誤的課程嗎？ 我不需要文本可編輯。

Answer 1

兩種方式：

1. 添加另一種字體大小： (TextStyle named: #BitstreamVeraSans) addNewFontSize: 200並像以前一樣使用常規文本變形。

2. 使用可以任意縮放的“Truetype banner”：從對象目錄中獲取一個，或者使用TTSampleStringMorph new initializeToStandAlone openInHand 。 查看initializeToStandAlone方法來創建自己的方法。

對於大型標題，我可能會使用

Answer 2

我認為這是因為Squeak使用位圖字體作為標准。 包含在Squeak圖像中的BitstreamVeraSans的最大大小似乎是36.因此，雖然您可以縮放變形，但文本本身不會變得更大。

在Pharo中，您可以在TextMorph中使用TrueType字體，如下所示：

|font textMorph text|
font := (TextFontReference toFont: (LogicalFont familyName: 'Cochin' pointSize: 99)).
text := 'You win!' asText addAttribute: font.
textMorph := TextMorph new.
textMorph contents: text.
textMorph openInWorld

在Squeak中也可能有類似的東西。 包含一些TrueType支持。