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

@bond95 · Регистрация: 16.04.2009

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток. Хотел бы узнать как можно реализовать поворот изображения как в браузере Safari. Заранее благодарен.

@serrg · 26.07.2010, 19:40

В 6-м билдерее вроде такой специальной функции нет, в старших не знаю мало писал в них ещё. Вообще это можно сделать по всем правилам геометрии, изображения как-то крутил таким образом когда канву тестерил. Второй вариант использовать более сожную систему типа directX, но так не делал очень сложно с самой системой работать. и третий вариант пойти влоб, используя канву, копируя с изображения к примеру через один столбик пиксели и с каждым следущим пропускать в столце на 2 пикселя больше.

@bond95 · 26.07.2010, 21:03 **[ТС]**

Думал как сделать по третьему варианту но ничего не выходит. Помогите с кодом, а то мозги скоро расплавятся.

@serrg · 26.07.2010, 21:25

с канвой давно работал, могу только алгортм накинуть
К примеру у тебя начальная картинка находится в image1 а результат помещаем на форму, тогда циклом обходишь для начала все чётные точки по x image1 (пусть это будет пиксель с номером i берёшь их цвет, не помню точно функцию, и помещаеiшь на форму в позицию i/2. таким образом ты сжал изображение по горизонтали.

@NiTan · 26.07.2010, 21:32

serrg, не знаю, как поможет этот алгоритм bond95, но вот его программный вид:

C++
1
2
3
4
5
6
7
 for(int i=0;i<Image1->Picture->Bitmap->Width;i+=2)
 {
     for(int j=0;j<Image1->Picture->Bitmap->Height;j+=2)
     {
     Canvas->Pixels[i/2][j/2]=Image1->Canvas->Pixels[i][j];
     }
 }

@serrg · 26.07.2010, 21:55

теперь делаем подцикл и берём не весь столбец а действуем по следущему закону:
пусть высота изображения будет l а номер пикселя по горизонтали и вертикале x и y соответственно, тогда тебе надо не брать точку с начального изображения, находящейся в позициях y имеющих шаг l/x, т.е. пусть у нас высота 100, тогда в первой колонке нам не нужен пиксель с номером (100/1)=100, во втором с номером 100/2=50 (значит точки 50 и 100 исключаем), третьем 100/3=33 (точки 33,66,99) четвёртый 100/4=25 (пропускаем 25,50,75,100) и т.д.

Добавлено через 1 минуту
Nitan, это ты его под 45 градусов в обоих направлениях сжал, но почти то, что надо

Добавлено через 5 минут
Nitan, кстати спасибо что напомнил материал а то всё пытался сначало назначить позицию

C++
1
2
3
Image1->Canvas->PenPos=d; 
//а потом считать цвет 
Caption=Image1->Canvas->Pixels;

забыв про индексирование.
Сейчас тогда весь алгоритм перепишу

Добавлено через 7 минут
Nitan,виноват, иногда забываю, кстати твой вариант что-то не работает вроде, опять что-то наверно я упускаю

@bond95 · 26.07.2010, 22:04 **[ТС]**

Ну с этим понятно теперь следующий вопрос как вырезать пиксель, а на его место поставить следующий?

@NiTan · 26.07.2010, 22:17

Хм, кое-что сделал (в Image1 изображение размером 100*100):

C++
1
2
3
4
5
6
for(int i=0;i<100;i++){
        for(int j=0;j<100;j++){
        Canvas->Pixels[i+j][100+j]=Image1->Canvas->Pixels[i][j];
        }
 
      }

Только с математикой не очень дружу, потому и такой кривой поворот.

@serrg · 26.07.2010, 22:41

вот что-то близкое, но ещё где-то недочёт

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
for(int i=0;i<Image1->Picture->Bitmap->Width/2;i++)
 {
     for(int j=0,z=0;j<Image1->Picture->Bitmap->Height/2;j++,z++)
     {
         if (j%(Image1->Picture->Bitmap->Height/(i+1)))
         Canvas->Pixels[i][z+i]=Image1->Canvas->Pixels[i*2][j*2];
        else
        {
          z--;
          Canvas->Pixels[i][z+i]=Image1->Canvas->Pixels[i*2][j*2];
        }
     }
  }

Добавлено через 18 минут
вот подправил, но что-то не то, может с утра со свежей головой разберусь

C++
1
2
3
4
5
6
7
8
9
10
11
12
for(int i=0;i<Image1->Picture->Bitmap->Width/2;i++)
 {
     for(int j=0,z=0;j<Image1->Picture->Bitmap->Height/2;j++,z++)
     {
         if (j%(Image1->Picture->Bitmap->Height/(i+1)))
         Canvas->Pixels[i][z+i/2]=Image1->Canvas->Pixels[i*2][j*2];
         else
         {
            z-=2;
         }
     }
  }

@MikeSoft · 26.07.2010, 22:46

Для таких целей советую изучить OpenGL.
Поворот через Pixels - это не выход по одной простой причине.
Метод Pixels будет существенно замедлять работу.
Если у вас нет желания разбираться с OpenGL, тогда пробуйте работать с методом ScanLine[i].

@serrg · 27.07.2010, 10:08

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

Добавлено через 10 часов 39 минут
Переделал через числа с плавающей точкой

C++
1
2
3
4
5
6
7
8
9
#define K 1.1
   for(int i=0;i<Image1->Picture->Bitmap->Width/2;i++)
   {
     double z=1,t=0,st=1.00/Image1->Picture->Bitmap->Width;
     for(int j=0;j<Image1->Picture->Bitmap->Height;j++,t+=z,z=1-i*st*K)
     {
         Canvas->Pixels[i][t+i]=Image1->Canvas->Pixels[i*2][j];
     }
   }

тут K это коэффициент сжатия от низу его надо подбират под конкретную разрешения, если нужно могу переделать всё под коэффициент сжатия
вот результат.

@serrg · 27.07.2010, 10:11

а вот другой вариант, более красивый

C++
1
2
3
4
5
6
7
8
9
10
#define K 1.1
Caption="K="+String(K);
   for(int i=0;i<Image1->Picture->Bitmap->Width/3;i++)
   {
     double z=1,t=0,st=1.00/Image1->Picture->Bitmap->Width;
     for(int j=0;j<Image1->Picture->Bitmap->Height;j++,t+=z,z=1-i*st*K)
     {
         Canvas->Pixels[i][t+i*z]=Image1->Canvas->Pixels[i*3][j];
     }
   }

@NiTan · 27.07.2010, 10:15

serrg, в первом варианте (сообщение №11) неплохо было бы и нижнюю правую границу поднять.

@serrg · 27.07.2010, 10:29

она какраз подбирается коэффициентом, может что-то перемудрил конечно, но от жары голова туго соображает.
Во втором варианте тоже подбирается, но более эффектно смотрится.

@bond95 · 27.07.2010, 14:51 **[ТС]**

мне больше всего понравился первый вариант. Спасибо всем кто мне помог.

Добавлено через 30 минут
Новую тему для этого вопроса создавать нехочу поэтому...

Комментарий модератора

...ваш вопрос переезжает в отдельную тему. Читайте правила форума, а именно пункт 2.4

@NiTan · 27.07.2010, 15:07

Вы друзья сейчас по карточке получите. Создана отдельная тема для этого вопроса: Как узнать какие файлы находятся в определеной папке?

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489

	Поворот изображения 26.07.2010, 19:02. Показов 3758. Ответов 15 Метки нет (Все метки) Доброго всем времени суток. Хотел бы узнать как можно реализовать поворот изображения как в браузере Safari. Заранее благодарен. Миниатюры 0

@serrg 70 / 70 / 4 Регистрация: 02.07.2010 Сообщений: 228
	26.07.2010, 19:40
	В 6-м билдерее вроде такой специальной функции нет, в старших не знаю мало писал в них ещё. Вообще это можно сделать по всем правилам геометрии, изображения как-то крутил таким образом когда канву тестерил. Второй вариант использовать более сожную систему типа directX, но так не делал очень сложно с самой системой работать. и третий вариант пойти влоб, используя канву, копируя с изображения к примеру через один столбик пиксели и с каждым следущим пропускать в столце на 2 пикселя больше. 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	26.07.2010, 21:03 [ТС]
	Думал как сделать по третьему варианту но ничего не выходит. Помогите с кодом, а то мозги скоро расплавятся. 0

@serrg 70 / 70 / 4 Регистрация: 02.07.2010 Сообщений: 228
	26.07.2010, 21:25
	с канвой давно работал, могу только алгортм накинуть К примеру у тебя начальная картинка находится в image1 а результат помещаем на форму, тогда циклом обходишь для начала все чётные точки по x image1 (пусть это будет пиксель с номером i берёшь их цвет, не помню точно функцию, и помещаеiшь на форму в позицию i/2. таким образом ты сжал изображение по горизонтали. 0

@bond95 Мы все БОЛЬШАЯ программа 52 / 52 / 5 Регистрация: 16.04.2009 Сообщений: 489
	26.07.2010, 22:04 [ТС]
	Ну с этим понятно теперь следующий вопрос как вырезать пиксель, а на его место поставить следующий? 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	26.07.2010, 22:46
	Для таких целей советую изучить OpenGL. Поворот через Pixels - это не выход по одной простой причине. Метод Pixels будет существенно замедлять работу. Если у вас нет желания разбираться с OpenGL, тогда пробуйте работать с методом ScanLine[i]. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	27.07.2010, 10:15
	serrg, в первом варианте (сообщение №11) неплохо было бы и нижнюю правую границу поднять. 0

@serrg 70 / 70 / 4 Регистрация: 02.07.2010 Сообщений: 228
	27.07.2010, 10:29
	она какраз подбирается коэффициентом, может что-то перемудрил конечно, но от жары голова туго соображает. Во втором варианте тоже подбирается, но более эффектно смотрится. 0

@NiTan Покинул форум 3189 / 1368 / 109 Регистрация: 29.01.2010 Сообщений: 2,887
	27.07.2010, 15:07
	Вы друзья сейчас по карточке получите. Создана отдельная тема для этого вопроса: Как узнать какие файлы находятся в определеной папке? 0

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

Решение