Разумеется. Просто автор не разобрался в вопросе, либо не знает что такое Юникод:
как видно, есть и латиница, и кириллица, и даже некоторые греческие буквы я себе добавил. Правда, латиница пока от другого шрифта — еще не нарисовал.
Поправка: такое только в Interlaced. При Non-interlaced таки получил несколько полегшавшую картинку. С чем может быть связана настолько большая разница между Interlaced и Non-interlaced?
Накидал простенький VBA-скрипт для рандомизации шрифтов и параметров букв. Проверялось в Ворде 2010
Sub RandomFont()
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
Set objRandom = CreateObject("System.Random")
Set objRange = objDoc.Range()
Set colCharacters = objRange.Characters
For Each strCharacter In colCharacters
'strCharacter.Font.Reset
strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта
strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии
strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта
strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга
Select Case objRandom.Next_2(1, 5) 'рандомный шрифт
Case 1
strCharacter.Font.Name = "ZimM-1"
Case 2
strCharacter.Font.Name = "ZimM-2"
Case 3
strCharacter.Font.Name = "ZimM-3"
Case 4
strCharacter.Font.Name = "ZimM-4"
End Select
Next
Application.ScreenUpdating = True
End Sub
Накидал простенький VBA-скрипт для рандомизации шрифтов и параметров букв. Проверялось в Ворде 2010
Sub RandomFont()
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
Set objRandom = CreateObject("System.Random")
Set objRange = objDoc.Range()
Set colCharacters = objRange.Characters
For Each strCharacter In colCharacters
'strCharacter.Font.Reset
strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта
strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии
strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта
strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга
Select Case objRandom.Next_2(1, 5) 'рандомный шрифт
Case 1
strCharacter.Font.Name = "ZimM-1"
Case 2
strCharacter.Font.Name = "ZimM-2"
Case 3
strCharacter.Font.Name = "ZimM-3"
Case 4
strCharacter.Font.Name = "ZimM-4"
End Select
Next
Application.ScreenUpdating = True
End Sub
Я бы согласился, если бы там значилось несколько характерных («фирменный красный цвет Ferrari») цветов. Но в рамочке перечислены чуть ли не все цвета радуги, поэтому сей список мне показался немного абсурдным.
Ну тогда достаточно одного лишь круга :) Прямая — суть окружность бесконечного радиуса, отрезок — дуга этой окружности, всякие там кривые — тоже набор дуг разных окружностей.
уж простите, но мне почему-то показалось, что топикстартер хотел именно оригинальный шрифт. Не было никакого желания разводиТь демагогию, посему предлагаю на этом и закончить.
именно, что гарнитуру проектировать не надо. Просто утверждение «Шрифт колы вообще существует» не совсем соотвествует истине, на что я всего-навсего и указал
Это означает, что кто-то взял и нарисовал шрифт в том стиле, причем так, чтобы им можно было набирать логотип Кока-Колы. Соббсна, по вашей сссылке так и сказано — «American Pop resembles the famous cola logo that we all know and love, please stay tuned for more versions of this font coming in the future», и автор — некто Michael Hagemann, не имеющий к коле никакого отношения
как видно, есть и латиница, и кириллица, и даже некоторые греческие буквы я себе добавил. Правда, латиница пока от другого шрифта — еще не нарисовал.
(тут только один вариант шрифта, больше пока просто не сделал)
Sub RandomFont() Application.ScreenUpdating = False Set objDoc = ActiveDocument Set objRandom = CreateObject("System.Random") Set objRange = objDoc.Range() Set colCharacters = objRange.Characters For Each strCharacter In colCharacters 'strCharacter.Font.Reset strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга Select Case objRandom.Next_2(1, 5) 'рандомный шрифт Case 1 strCharacter.Font.Name = "ZimM-1" Case 2 strCharacter.Font.Name = "ZimM-2" Case 3 strCharacter.Font.Name = "ZimM-3" Case 4 strCharacter.Font.Name = "ZimM-4" End Select Next Application.ScreenUpdating = True End SubSub RandomFont() Application.ScreenUpdating = False Set objDoc = ActiveDocument Set objRandom = CreateObject("System.Random") Set objRange = objDoc.Range() Set colCharacters = objRange.Characters For Each strCharacter In colCharacters 'strCharacter.Font.Reset strCharacter.Font.Scaling = 100 + objRandom.Next_2(-50, 50) / 8 'разброс ширины шрифта strCharacter.Font.Position = objRandom.Next_2(-200, 300) / 700 'разброс позиции относительно базовой линии strCharacter.Font.Size = strCharacter.Font.Size + objRandom.Next_2(-300, 400) / 400 'разброс размеров шрифта strCharacter.Font.Kerning = 12 + objRandom.Next_2(-10, 40) / 5 'разброс кернинга Select Case objRandom.Next_2(1, 5) 'рандомный шрифт Case 1 strCharacter.Font.Name = "ZimM-1" Case 2 strCharacter.Font.Name = "ZimM-2" Case 3 strCharacter.Font.Name = "ZimM-3" Case 4 strCharacter.Font.Name = "ZimM-4" End Select Next Application.ScreenUpdating = True End Subмм. Эппл скоро запатентует видимый спектр света :)