Что нового

разрезать изображение

wocafc

Новичок
Сообщения
3
Репутация
1
Подскажите, пожалуйста, как разрезать изображение формата bmp
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
wocafc [?]
как разрезать изображение формата bmp
Берём изображение, берём в руки ножницы, и...

А если серъёзно, вопрос очень широкий, что значит разрезать?
 
Автор
W

wocafc

Новичок
Сообщения
3
Репутация
1
Есть изображение 400x200 px, нужно из него сделать 4 100x200px
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Photoshop поможет! ;)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Garrett [?]
Он то поможет, но у нас форум по AutoIt, и если автор темы обратился именно сюда, то разумно предположить что ему нужно решение на AutoIt...
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
wocafc [?]
Есть изображение 400x200 px, нужно из него сделать 4 100x200px
Примерно так:

Код:
#include <GDIPlus.au3>

$sImageFile = @DesktopDir & '\001.bmp'
$sExt = StringRegExpReplace($sImageFile, '^.*\.', '')
$sOutImageFile = StringRegExpReplace($sImageFile, '\.[^\.]*$', '')

_GDIPlus_Startup()

$hImage = _GDIPlus_ImageLoadFromFile($sImageFile)
$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)

$iXCloneSize = $iX / 4
$iXCropPos = 0

For $i = 1 To 4
	; Create 32 bit bitmap clone
	$hClone = _GDIPlus_BitmapCloneArea($hImage, $iXCropPos, 0, $iXCloneSize, $iY, $GDIP_PXF32RGB)
	
	; Save bitmap to file
	_GDIPlus_ImageSaveToFile($hClone, $sOutImageFile & '_' & $iXCropPos & '-' & ($iXCropPos + $iXCloneSize) & '.' & $sExt)
	
	; Release resources
	_WinAPI_DeleteObject($hClone)
	
	$iXCropPos += $iXCloneSize
Next

; Release resources
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
 

StarEdik

Новичок
Сообщения
365
Репутация
4
CreatoR
Хороший пример. :ok:
А как сделать так ,чтоб взятое из PDF файла изображение разделить на 2 равные части , с запасом для переплета для каждого. Первая половина берет запас от второго, а 2-я от первого .Разрезат та разрезал
Код:
$iXCloneSize = $iX / 2

Получил 2 части с одинаковыми размерами.Но дальше ...не получается.Может поможете ? :-[
Формат 420 x 595 pix (A5)
 
Верх