Показать сообщение отдельно
Старый 26.12.2005, 12:44   #2
Жека
Дэвелопер
 
Регистрация: 04.09.2005
Адрес: Красноярск
Сообщений: 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
(Offline)
 
Ответить с цитированием