Что нового

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

wocafc

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

CreatoR

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

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

wocafc

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

Garrett

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

CreatoR

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

Garrett

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

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
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)
 
Верх