Недавно добавленные исходники

•  3D Designer  829

•  Sik Screen Capture  571

•  Patch Maker  513

•  Айболит (remote control)  627

•  ListBox Drag & Drop  464

•  Доска для игры Реверси  8 589

•  Графические эффекты  561

•  Рисование по маске  441

•  Перетаскивание изображений  487

•  Canvas Drawing  488

•  Рисование Луны  380

•  Поворот изображения  259

•  Рисование стержней  315

•  Paint on Shape  189

•  Генератор кроссвордов  247

•  Головоломка Paletto  225

•  Теорема Монжа об окружностях  270

•  Пазл Numbrix  185

•  Заборы и коммивояжеры  302

•  Игра HIP  204

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Поворот изображения : .

 

Delphi - Пример, как повернуть фигуру, заданную массивом точек, без потери качества

Исходник программы, показывающей пример того, как повернуть фигуру, заданную массивом точек, без потери качества.

Проблема в том, что точки с целочисленными координатами обычно будут иметь нецелочисленные координаты после поворота на произвольный угол. Хитрость заключается в том, чтобы поддерживать значения координат в формате с плавающей запятой и округлять их до целых значений только тогда, когда процедурам рисования холста изображения требуются целые числа.

Приведенная выше программа позволяет пользователю нарисовать произвольную фигуру в целочисленном или реальном формате, скопировать ее в потомок TPaintBox другого формата и повернуть оба изображения на произвольный угол.

Два дочерних класса TPaintbox - TIntegerRotate и TRealRotate обрабатывают механику сбора данных. Каждый из классов хранит две копии данных: один сохраняет исходные данные для сравнения (FDataOrig), а другой - повернутые точки (FData).

Просмотры: 259
Дата: 13.07.2021, Автор: Gary Darby
Написать сообщение:
 

 

 

Скачать (11 Кб)   ↓ 6   Регистрация >>


 

Похожие исходники


Шифр - Поворотная решетка

Изменение цвета изображения

TGIFImage (GIF изображения)

 

© 2004-2021 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software