Ako ti se da probaj sa skriptom u Corel-u. Dobijes puno objekata, pa zato kad budes zadovoljan rezultatom "izravnaj" sliku.
REM Created in CorelPhotoPaint Version 9.337
REM Created On Monday, February, 11, 2002 by Aleksandar
' Ovo ti je najjednostavniji primjer kako uraditi ono sto zelis uz pomoc skripte
' Mislim da na ovaj nacin mozes imati bolju kontroli nego sa "Pattern"
' jer uz malo izmjene koda mozes dobiti fantasticne efekte
WITHOBJECT "CorelPhotoPaint.Automation.9"
.SetDocumentInfo 300, 200 '(sirina i visina slike, corel je sam postavi za aktivnu sliku)
sirinaSlike = .GetDocumentWidth()
visinaSlike = .GetDocumentHeight()
debljinaLinije = 1 ' ovdje upises debljinu linije (pikseli)
transparentnost = 50 ' transparentnost (procenti)
bojaR = 10 ' boja crvena (0-256)
bojaG = 128 ' boja zelena (0-256)
bojaB = 180 ' boja plava (0-256)
for i = 1 to visinaSlike step 4 ' korak pomaka linije (kod mene 4 piksela)
.LineTool debljinaLinije, transparentnost, 0, 0, TRUE, TRUE
.SetPaintColor 5, bojaR, bojaG, bojaB, 0
.StartDraw 1, i*256, 0, 0, 0, 0
.ContinueDraw sirinaSlike*256, (i*256), 0, 0, 0, 0
.EndDraw
next i
END WITHOBJECT