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




Очень просто и изящно. Кто автор не знаю.

Код
dim as integer X,Y,PX,PY,TX,TY,MTX,MTY
dim as double DX,DY
TX = 640:TY = 480
screenres TX,TY,32

MTX = TX shr 1:MTY = TY shr 1
DX = TX/255:DY = TY/255

for Y = 0 to TY
   for X = 0 to TX
     PX = X-MTX
     PY = Y-MTY
     pset(X,Y),rgb(255-(X/DX),(Y/DY),sqr((PX*PX)+(PY*PY))/DX)     
   next X
next Y

sleep
Прикрепления: 2602792.png (345.6 Kb)


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