Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 147 • TDictionary Custom Sort 3 328 • Fast Watermark Sources 3 075 • 3D Designer 4 837 • Sik Screen Capture 3 330 • Patch Maker 3 543 • Айболит (remote control) 3 650 • ListBox Drag & Drop 3 004 • Доска для игры Реверси 81 645 • Графические эффекты 3 932 • Рисование по маске 3 240 • Перетаскивание изображений 2 620 • Canvas Drawing 2 744 • Рисование Луны 2 570 • Поворот изображения 2 177 • Рисование стержней 2 166 • Paint on Shape 1 567 • Генератор кроссвордов 2 230 • Головоломка Paletto 1 766 • Теорема Монжа об окружностях 2 220 • Пазл Numbrix 1 684 • Заборы и коммивояжеры 2 055 • Игра HIP 1 280 • Игра Go (Го) 1 227 • Симулятор лифта 1 472 • Программа укладки плитки 1 215 • Генератор лабиринта 1 543 • Проверка числового ввода 1 360 • HEX View 1 494 • Физический маятник 1 357

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Как нарисовать график функции 2

Автор: Baa
WEB сайт: http://forum.vingrad.ru

Забавная штука синусы:

for i := 1 to 500 do
  paintbox1.Canvas.Pixels[round(sin(i * 5) * 10 + 50), round(sin(i * 10) * 10 +
    50)] := RGB(0, 0, 0);