/**/

options results

address "ArtEffect"

dummy = random(,,time(seconds))

createbrush rec size 10 prop 50 angle 45

curve = ""
do i=1 to 128
	curve = curve || '255'
	if i~=128 then curve = curve || ','
end
brushattr intensity curve

curve = ""
do i=1 to 128
	curve = curve || i
	if i~=128 then curve = curve || ','
end
brushattr density curve

curve = ""
do i=1 to 128
	curve = curve || '5'
	if i~=128 then curve = curve || ','
end
brushattr roughness curve

get stem pinfo. pictureinfo
xmax = pinfo.width
do i=0 to xmax+100 by 3
	x1 = i-100+random(0,10)-5
	y1 = random(0,20)
	x2 = i+random(0,10)-5
	y2 = random(pinfo.height-20,pinfo.height)
	line x1 y1 x2 y2 pt cloner mode impressionist strength 100
end