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

•  3D Designer  438

•  Sik Screen Capture  311

•  Patch Maker  272

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

•  ListBox Drag & Drop  250

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

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

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

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

•  Canvas Drawing  269

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

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

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

•  Paint on Shape  110

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

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

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

•  Пазл Numbrix  106

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

•  Игра HIP  127

 

 

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

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

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

 

Delphi Sources

Delphi Sources

 




 

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

 

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

 

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

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

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

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

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

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

 

 

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


 

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


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

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

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

 

© 2004-2021 "DS"

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