FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 19:25Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Кривые Гильберта (Кривые Гильберта)
Кривые Гильберта
haavДата: Воскресенье, 31.03.2013, 18:47 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Кривые Гильберта




Код
Sub Proc(depth As Integer, X As Single, Y As Single)
  If depth > 1 Then Proc depth - 1, Y, X
  Line -Step(X, Y)
  If depth > 1 Then Proc depth - 1, X, Y
  Line -Step(Y, X)
  If depth > 1 Then Proc depth - 1, X, Y
  Line -Step(-X, -Y)
  If depth > 1 Then Proc depth - 1, -Y, -X
End Sub

Screen 15
PSet (100,50)
Proc(5,0,7)
sleep
Прикрепления: 8187733.png (18.6 Kb)


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