Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

Makra - Przezroczystość z automatu

mtkk - 17 Czerwiec 2011, 00:57
Temat postu: Przezroczystość z automatu
Witajcie
Przepraszam że od razu wyskakuję tutaj z prośbą ale bardzo zależy mi na usprawnieniu trochę mojej pracy dlatego chciałem Was prosić o pomoc.
Robię zdjęcia na białym tle i potem usuwam z nich tło i zapisuję w formacie z przezroczystością aby wykorzystać je na stronie www.
Ponieważ zdjęć jest coraz więcej to pomyślałem że łatwiej byłoby gdyby skrypt z automatu kolor z biały - z tolerancją np. 25 zamieniał na przezroczystość i eksportował do formatu z przezroczystością.
Czy możecie mi w czymś takim dopomóc?
A może znacie inną metodę na zautomatyzowanie takiego działania

Mam Corel'a 12 ale byłbym skłonny nawet kupić inną wersję jeśli dostępne byłoby dla niej jakieś makro.

Pozdrawiam

wawel - 17 Czerwiec 2011, 07:31

To jest do zrobienia ale w Corel photo-paint (jest w pakiecie z draw)
Tam masz przetwarzanie wsadowe i rejstrator. Nagrywasz konkretne czynnosci w aplikacji (powielenie tla, kasowanie "dolnego" tla, tworzenie maski na bazie koloru - tu tez ustawiamy potrzebne parametry np dot. tolerancji, usuniecie pikseli z zaznaczenia, odworocenie maski) potem te akcje zapisujesz i uzywasz w przetwarzaniu wsadowym.
Natomiast lepiej aby zdjecia byly robione nie na bieli, bo w samym przedmiocie moze byc cos bialego i to tez zostanie usuniete, mozna uzyc np. zielonej tkaniny cos jak do green boxa na filmach.

Dzialanie przetwarzania wsadowego znajdziesz na forum w watku: jak dodac znak wodny.
http://corel.wodip.opole....er=asc&start=25
na drugiej podstronie tego watku.

a sam skrypt po nagraniu moze byc podobny do tego
REM Utworzony w Corel PHOTO-PAINT Wersja 12
REM Utworzony Friday, June, 17, 2011 przez User

WITHOBJECT "CorelPhotoPaint.Automation.12"
.SetDocumentInfo 467, 631
.ObjectCreateFromBackground
.ObjectEdit 0, FALSE
.ObjectDelete
.ObjectSelectNone
.EndObject
.ColorMaskCreateMask 0, 1, 0, 0, FALSE, 127, 0
.ColorMaskColor 0, 5, 148, 199, 110, 0, 3, 20, 20, 20
.EndColorMask
.EditClear 5, 255, 255, 255, 0
.MaskInvert
END WITHOBJECT
Tu tylko jest zdefiniowany inny kolor do zaznaczania niz bialy.
Przy przetwarzaniu wsadowym wybierz zapisz typ jako png i powinno dzialac u mnie dziala.
plik png zapisywany jest z osobnym kanalem maskujacym.

mtkk - 17 Czerwiec 2011, 12:53

Bardzo dziękuję. Rozumiem że to nagrywanie makra jak w MS Office?
Zaraz będę próbował.


Powered by phpBB modified by Przemo © 2003 phpBB Group