Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 619 • TDictionary Custom Sort 6 622 • Fast Watermark Sources 6 401 • 3D Designer 9 345 • Sik Screen Capture 6 734 • Patch Maker 7 118 • Айболит (remote control) 7 123 • ListBox Drag & Drop 5 984 • Доска для игры Реверси 97 559 • Графические эффекты 7 319 • Рисование по маске 6 607 • Перетаскивание изображений 5 479 • Canvas Drawing 5 855 • Рисование Луны 5 572 • Поворот изображения 5 086 • Рисование стержней 3 654 • Paint on Shape 2 888 • Генератор кроссвордов 3 786 • Головоломка Paletto 3 039 • Теорема Монжа об окружностях 3 851 • Пазл Numbrix 2 534 • Заборы и коммивояжеры 3 246 • Игра HIP 2 211 • Игра Go (Го) 2 144 • Симулятор лифта 2 524 • Программа укладки плитки 2 166 • Генератор лабиринта 2 661 • Проверка числового ввода 2 318 • HEX View 2 649 • Физический маятник 2 280

Главная

Исходники (более 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);