Слушайте, кто-нить знает какие-нить приколы, хитрости, баги и т.д., которые можно творить с текстом (Print, Text, Write...), а то что-то мне кажется, что эта функция здесь какая-то слабенькая... может я заблуждаюсь, что хотелось бы...
Сообщений: 1,376
Написано 491 полезных сообщений (для 886 пользователей)
Они приводят к тормозам.
Пример:
Graphics3D 800,600,16,2
SetBuffer BackBuffer()
Local x#=0,y#=0,centX#=400,centY#=300,radius#=100,ygol#=Rnd(360)
Local txt$ = "Simple print"
While Not KeyHit (1)
Cls
Locate centX+x,centY+y
Print txt$
x = radius*Cos(ygol)
y = radius*Sin(ygol)
ygol = (ygol+1) Mod 360
Flip
Wend
End
Сообщений: 1
Написано 0 полезных сообщений (для 0 пользователей)
Если вдруг кому пригодится, я в версии 1.66 если нужно было выводить большое количество текста, не слишком часто меняющегося, сначала прорисовывал его в рисунок (создовая его перед этим по ширине и высоте текста) и выводил уже этот рисунок. скорость выростала раза в 3-4. Если интересно сообщите на мыло, найду source.