FreeBasic
Главная
Вход
Регистрация
Воскресенье, 03.03.2024, 23:23Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Меняющиеся узоры (Меняющиеся узоры)
Меняющиеся узоры
haavДата: Среда, 17.10.2012, 07:29 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1360
Репутация: 49
Статус: Offline
Меняющиеся узоры


Всего по паре синусов и косинусов и небольшой простенький алгоритм. В итоге перед вами меняющиеся узоры

Автор: неизвестен



Code
'===================================================================
' Lissajous Blender
'===================================================================
Const As Double TwoPi = 8 * Atn(1)
Dim As Integer m, n=1, p=1, q=1, c = 14
Dim As Double r, s
Dim As String k
Screen 19
Window (-1.01, -1.01)-( 1.01, 1.01)
Randomize

'-------------------------------------------------------------------
Do
     m = p
     n = q
     p = q
     q = 1 + Rnd * 20
     windowtitle "   m = "+Str(m) + "      n = "+Str(n) + "      p = "+Str(p) + "      q = "+Str(q)
     For s = 0 To 1 Step .002
         Screenlock
         Cls
         Pset(0,1), c
         For t As Double = 0 To TwoPi Step 1/(10*(5+m*n))
             Line -((1-s)*Sin(m*t) + s*Sin(p*t), (1-s)*Cos(n*t) + s*Cos(q*t)), c
         Next t
         Line -(0,1), c
         Screenunlock
         Sleep 1
         k = Inkey
         If k <> "" Then Exit For
     Next s
Loop While k = ""

'===================================================================
Sleep
'===================================================================
Прикрепления: 0525551.png (52.1 Kb)


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Меняющиеся узоры (Меняющиеся узоры)
  • Страница 1 из 1
  • 1
Поиск: