gmexe

Блог про любимый комп и все что с ним связанно!

Понедельник, 28.7.2025
Главная » 2011 » Январь » 23 » Интересный эффект
17:33
Интересный эффект

Просто интересный эффект. Я бы даже сказал чудеса математики. Что самое обидное Game maker очень медленно его рисует. Этот эффект отлично работает к примеру на Delphi. Там со скоростью проблем не возникло! Что ж будем довольствоваться тому, что есть…

Код для Create

sx=room_width
sy=room_height
sd=32
h=0.01
a=10.0
b=28.0
c=8.0/3.0
n=10000
x0=0.1
y0=0
z0=0

Код для Draw

var x1, y1, z1, xp, yp;

  if keyboard_check(vk_right) then a+=0.1
  if keyboard_check(vk_left) then a-=0.1
  if keyboard_check(vk_up) then b+=0.1
  if keyboard_check(vk_down) then b-=0.1
  if keyboard_check(vk_pageup) then c+=0.1
  if keyboard_check(vk_down) then c-=0.1

for (i=0; i<n-1; i+=1)
{
  x1=x0+h*a*(y0-x0)
  y1 = y0 + h * (x0 * (b - z0) - y0);
  z1 = z0 + h * (x0 * y0 - c * z0)
  x0 = x1
  y0 = y1
  z0 = z1

  xp=x0*10+round(sx/2)
  yp=y0*10+round(sy/2)

  if (i>100) and xp>0 and xp<sx and yp>0 and yp<sy
  {
  draw_primitive_begin(pr_pointlist)
  draw_vertex_color(xp,yp, make_color_rgb(255,0,i/100*16777000),1)
  draw_primitive_end()
  }
}

Скачать пример .gmk (9kb)

Категория: Примеры | Просмотров: 721 | Добавил: gmExe | Теги: примеры, эффекты
Всего комментариев: 0
dth="100%" cellspacing="1" cellpadding="2" class="commTable">
Имя (обязательно): Сайт (если есть):


Код *: