PainShop Pro Scripting - Re: Vintage Postcard Script

Author

Re: Vintage Postcard Script - PSP 8 version

Spandex Rutabaga

2006-07-10, 7:46 pm

Michelle wrote:

> Nice!!!! Spandex, can this script be used in version 9? I'm
> one of those who are still using it, shhhhh ;-))

I don't see the need for any "shhhh". My script was made in PSP 9.
I don't see why it wouldn't work in PSP X.

Attached to this post is a version of the script for PSP 8. I have
had to come up with a way to emulate the PSP 9 and later Edges >
Find All command, which I think I've done reasonably well, though
at the expense of adding quite a few steps. In addition it was
necessary to change occurrences of True and False in the PSP 9
script to App.Constants.Boolean.X, where X stands for true and
false respectively.

tape

2006-07-10, 7:46 pm

Spandex Rutabaga wrote:
> Attached to this post is a version of the script for PSP 8. I have
> had to come up with a way to emulate the PSP 9 and later Edges >
> Find All command, which I think I've done reasonably well, though
> at the expense of adding quite a few steps.

Below is what I substituted for the FindEdges command when adapting
Matt's Pen & Ink 2 script for PSP 8. The result is a bit darker than
FindEdges, but it was close enough for that. The Pencil effect in v8
does something funny to the right & bottom edges of the image, so I
added a white cutout to hide that.

# Pencil
App.Do( Environment, 'Pencil', {
'Blur': 1,
'Color': (0,0,0),
'Intensity': 9,
'Luminance': 128,
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# NegativeImage
App.Do( Environment, 'NegativeImage', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# Color Adjust HSL
App.Do( Environment, 'ColorAdjustHSL', {
'HSL': {
'Colorize': App.Constants.Boolean.false,
'Master': (0,-100,0),
'MasterColorize': (0,0,0),
'Red': (0,0,0,315,345,15,45),
'Green': (0,0,0,75,105,135,165),
'Blue': (0,0,0,195,225,255,285),
'Cyan': (0,0,0,135,165,195,225),
'Magenta': (0,0,0,255,285,315,345),
'Yellow': (0,0,0,15,45,75,105)
},
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# SelectAll
App.Do( Environment, 'SelectAll', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# FloatSelection
App.Do( Environment, 'FloatSelection', {
'ClearSource': None,
'BackupSelection': None,
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# Cutout
App.Do( Environment, 'Cutout', {
'Blur': 0,
'FillInterior': App.Constants.Boolean.false,
'Horizontal': -2,
'InteriorColor': (95,132,120),
'Opacity': 100,
'ShadowColor': (255,255,255),
'Vertical': -1,
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

# SelectNone
App.Do( Environment, 'SelectNone', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((9,0,1),1)
}
})

--
Tanja Säily, http://www.iki.fi/tape/

Vern Stump

2006-07-10, 7:46 pm

Spandex Rutabaga wrote:
> Michelle wrote:
>
>
> I don't see the need for any "shhhh". My script was made in PSP 9.
> I don't see why it wouldn't work in PSP X.
>
> Attached to this post is a version of the script for PSP 8. I have
> had to come up with a way to emulate the PSP 9 and later Edges >
> Find All command, which I think I've done reasonably well, though
> at the expense of adding quite a few steps. In addition it was
> necessary to change occurrences of True and False in the PSP 9
> script to App.Constants.Boolean.X, where X stands for true and
> false respectively.

It work in PSPX!!!

Vern

Spandex Rutabaga

2006-07-10, 7:46 pm

tape wrote:
>
> Spandex Rutabaga wrote:
>
> Below is what I substituted for the FindEdges command when adapting
> Matt's Pen & Ink 2 script for PSP 8.

My solution uses the User Defined Filter to find brightness
transitions in the eight compass directions (e.g. northwards,
southwards, northeastwards, southwestwards, etc.) and combines
the results using the Multiply blend mode. It doesn't suffer
from the problem you found and it doesn't rely on unknown
behaviors inside effect filters. The resulting edge locations
should be within a pixel of the true edge locations. If you
think it would be helpful I could cook up a script that just
does PSP 9 Edges > Find All emulation for PSP 8.

tape

2006-07-10, 7:46 pm

Spandex Rutabaga wrote:
> My solution uses the User Defined Filter to find brightness
> transitions in the eight compass directions (e.g. northwards,
> southwards, northeastwards, southwestwards, etc.) and combines the
> results using the Multiply blend mode. It doesn't suffer from the
> problem you found and it doesn't rely on unknown behaviors inside
> effect filters. The resulting edge locations should be within a pixel
> of the true edge locations.

Cool :-) It doesn't seem to work in PSP X, though - all I get is a bunch
of transparent layers in a group that is then merged into one
transparent layer. A bug in PSP X's UDF? Works fine in 8.

> If you think it would be helpful I could cook up a script that just
> does PSP 9 Edges > Find All emulation for PSP 8.

I do think it would be helpful, as I've seen people trip over the
difference. It would only be helpful if they knew about it, though -
would have to spread the word. I'm a bit out of the loop these days,
don't know where the most vibrant PSP communities are (are there any?)
aside from this one.

--
Tanja Säily, http://www.iki.fi/tape/

Spandex Rutabaga

2006-07-10, 11:19 pm

tape wrote:
>
> Spandex Rutabaga wrote:
>
> Cool :-) It doesn't seem to work in PSP X, though - all I get is a bunch
> of transparent layers in a group that is then merged into one
> transparent layer. A bug in PSP X's UDF? Works fine in 8.

When I try my PSP 8 script in PSP 9 it works just fine. I don't
have PSP X. When you say you got a bunch of transparent layers
that were merged, how do you know this? Did you do File >
Script > Single Step to go through the script step by step?
Are you sure there was data on the active layer at the time
you started the script. Was the active layer a regular layer or
a background layer? If it was the former, please try the script
on the latter.

If in PSP X you open the attached UDF_Input.png, promote it to a
regular layer, and run the UDF filter on it at the settings shown
in the attached UDF_Settings.png, do you get exactly the result
shown in the right preview of the attachment? Zoom in carefully
if necessary.

>
> I do think it would be helpful, as I've seen people trip over the
> difference. It would only be helpful if they knew about it, though -
> would have to spread the word. I'm a bit out of the loop these days,
> don't know where the most vibrant PSP communities are (are there any?)
> aside from this one.

I don't know where vibrant PSP communities exist. As a vegetable
I was never in any loop. I suspect that the day of the community
is over, though according to press releases Corel is interested
in the vibrant community at Webshots. Do *you* want the script?

Spandex Rutabaga

2006-07-10, 11:19 pm

tape wrote:
>
> Spandex Rutabaga wrote:

>
> I do think it would be helpful, as I've seen people trip over the
> difference. It would only be helpful if they knew about it, though -

Here it is if you want it. Comments in the script explain how it
works.

hå£ê¥

2006-07-13, 7:34 pm

Wow Spandex, great script and it works for me in version X also, Thank you
so much!!

"Vern Stump" <VictorDog@email.suppressed> wrote in message
news:44b28af1$1_3@cnews...
> Spandex Rutabaga wrote:
>
> It work in PSPX!!!
>
> Vern
>
>

Spandex Rutabaga

2006-07-13, 7:34 pm

"hå£ê¥" wrote:
>
> Wow Spandex, great script and it works for me in version X also, Thank you
> so much!!

You're welcome, but it would never have come to pass without Gail.

tape

2006-07-13, 7:34 pm

In-Reply-To: <44B2F3F4.CC49B54@agabatur.xednaps>
Content-Type: multipart/mixed;
boundary="------------050104010409090802060507"
NNTP-Posting-Host: 193.64.243.217
Message-ID: <44b38594$1_1@cnews>
X-Trace: 11 Jul 2006 07:03:48 -0400, 193.64.243.217
Organization: "Another Corel User"
Lines: 284
Path: cnews
Xref: cnews corel.PaintShopPro_Scripting:4116

This is a multi-part message in MIME format.
--------------050104010409090802060507
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit

Spandex Rutabaga wrote:
> When I try my PSP 8 script in PSP 9 it works just fine. I don't have
> PSP X. When you say you got a bunch of transparent layers that were
> merged, how do you know this? Did you do File > Script > Single Step
> to go through the script step by step?

Yes. I tried it with several different images and, when it didn't seem
to produce any data on the sketch layer in any of them, I did Single
Step with one of them, watching the Layers palette.

> Are you sure there was data on the active layer at the time you
> started the script.

Yes.

> Was the active layer a regular layer or a background layer?

It was a background layer. Of course, when it's duplicated, the
duplicate is a regular layer. I seem to remember a bug being discussed
in the X forum that had to do with UDF and regular layers.

> If in PSP X you open the attached UDF_Input.png, promote it to a
> regular layer, and run the UDF filter on it at the settings shown in
> the attached UDF_Settings.png, do you get exactly the result shown in
> the right preview of the attachment? Zoom in carefully if necessary.

See my attachment. That's what happens if I, in addition to promoting
the background layer, increase the colour depth to 16 million (your
image was greyscale). If I don't increase it, I get what you get.

> Do *you* want the script?

I see you did post it :-) Yes, of course I want it, I just didn't want
to have you go through the trouble of making it just for me. Off to
check it out...

--
Tanja Säily, http://www.iki.fi/tape/

--------------050104010409090802060507
Content-Type: image/png;
name="UDF_WTF.png"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="UDF_WTF.png"

iVBORw0KGgoAAAANSUhEUgAAAlIAAALdCAMAAADQ531MAAAAB3RJTUUH1gcLCwEirbyRxwAA
AAlwSFlzAAALEgAACxIB0t1+/AAAAARnQU1BAACxjwv8YQUAAAL0UExURWZmfv7+/qipuuDf
45ycoejn6u3t7fDv9PLy9fj3+OPk6tva2+Pi43eUqiVWhAA8dBZNfmeIovHx7dnW2CdNhU19
wWmC7kpzl7a3ycPF2cDAwEhukNjV1Ymt5L3Azbu2vsvM29TU5AAAAJe36drb5d3e66C+7Ojq
8ajD6/P0+6zH8PX4+rLM8rvT9dXT08HP3M3m/lV9otTe6d7b1uDd2NLNy8fGvKGhkqWssouM
mZydqpOVoj48PNba2Y+Qnq+xwsTI1Iqht9bY4Yeatn2ZtNri6vj49sXlw3fDdTmpNli9VDGv
LSyqKSKgHketRb3K2YTQgUG+PTy5OFnHVkvJR2DPXFjXVO7w7JDcjV3qWXXacc7R3ABG1XFu
ZEdGQPHu4ufp4Orq5MjE0o5aTGBXVFVWViMjJKFkUK5vR8aTZrWtpzZskyxjiubk19XZx83S
v87Twd3hz+fXyN/g3dPN17B0YLyCWdmmcdedbMSahjxxl/PgzYqKikd7oTFnjbmCbuC3idyt
gE2Bpc6gfOm2mM2nko6Ig+XCnta1np2hp7q80cjW6Hd3eJaWmdrCtZimx8DO5Njm9Onz94KD
jMvK1KzD3MK+zrzR6aqxu5u01LnL44yOkuXp69/2/nuNrZykuC8wNJ2yw6GlswAAgICAgHBu
dmdnaKustKioqV1eZA4QED5ARAGZ/5eapnd3kmt1j2x2kKY5RIWJsKo8VcTE1Jmdu8lWXKin
v4mRra2sxdJbXqS82Y2t0dLT29RdYX2DmBYWF0lLUKGeql1gZ4mGkCUlNm5tj05QU9tjY0Ye
GrVZOtWETOGpfcuEVsh1SoteYaBbQc5nY+Ktlsuhg4dSOHVgieBqaMV3Udubc+3Qr+7Submb
hXx8hnVIMunLtayGdqiGbnZbTOXHqH+CjTw9QY2EgfLeyaSouc6zluRybpGYqoeJlul6de+B
euuYi/SLg6OjvfGEeviXifG3nfKrloOMo/6/pPrct/nptoeHm5WUq4iHnb+AalIAAC1USURB
VHja7Z19YBzHeZ+5OOBwOIAgCbgVBNM4YAMEYRCTFiVIlkibIChKdpzEceKYSUBVIlKwTW3S
kui2loSkaerWFUhE37QkKhHjkiB0tIvApmTTLhnJiRKyTdLWTt04dVXXdZPKlavEqZNG+ac7
+zn7OTN3s7uzd7+HxN3ezty7O3MP9utmX2w4Q9gAgAQ0wgZTqL9543MANMkbf2NKZSi14Y05
DQAJzL2xgSi14Y1ZrVKuzgLQFNVyRZs1nNpw5q9nterc6BIATTI6V9Vm/1rbsOFzz4wt7cl7
NwxagT1LY898zjhKP3lp6M9A+zLUEYGpxPfWIvieWbIeASkZunSSKDVzEbQvQx3V8GF2tWPo
4sXvrY2GS0bXvnfx4rfXv/uXf/X/fPzVX353/dtGuBmi1MxS3q0COdJRrURQ7bh4cW0sqmRs
7eLF9ddff/0vAhiz1o1wSzNEqSGLh0yeeujPhkAb0VHpjqDSMTS01j0ZQffa0ND6d/789e9e
vfoXH/uY8d/4uXr1/3739T//zjqJ51Nqaops2Z5+/k/zbiXIkI5qlDhVotTYRARjRKnXXvvO
VU27+n8syOTr33nttaBSex7q6TGMmnriieeffDLvdoLM6Kh2RWApNT4+/rIPY4ap1KuvvkY2
P1dfI1wlk6+99uqrfqV6ekyhCL/+xeef3yNhXb/+Yv1bSeW/e1hkNkiJjmeqETxjK6X9Dg2l
1KumK1eNCdMozZgIKKUd+l+vvPLKnzzwwNe0oeNLS9+2narX6adY6ganv+6f97+NeQsnT59O
eNNJ7911cxGktjsbZEKjSjlOeUYlK/W8vbx6fZ56isVyYsE371v1r8/Pj5w+fTL+TfP0u8kr
UtuceA6bqqxIUGp8bEx7mbqA8Dsvj42NjROlvvpV1ynXqK9+NaDU//z4fd/4xh//yQNfu+1P
jx8/fvEWa3ncSs3PL79Yfywwb8R4Osmj1LyJVducjU1VZnRUIzG3UkSpMRdLqTFLKYLrmvXS
U2p0aGRkSfvvX/7mV77yzW/e+83bRh595JGnP7/HmDmyZHy+5Msb8vTJ0/UXF4zpm0/XD/8P
c95v1Q/bX+6Y1R6rnx6hiw3IozH50reMTdgS9d6lmw/XD9uxl5aoibr1ynxv9KJajJHc6aiW
Iqh2jIysjc3NaS/PuRhKGY9ja0tL61d8TtlGXVk32jM0SpQigbX/+kcfe+WVe//bfd8wlTq+
7xZzeWRTYz+9aHzML50cucV05Z1kXr2+cnKEqmZsWvzF9XnyM2LvFke8wlvsXZ3zbgN7Yn7E
ecd89KKAZDomIiFKzY2Oai+PuhhKGY9zayMj61csp6y93lXbqCvrJJ6p1AUD7Q//8x997Wt/
fO9/uaN7ZHL//k88v4vMvWB8ss6TuXs6eeGl+vL8l+qnybyz82ahW408usVWffudy/O/bfjm
Fb5kHGfV7NikZt2/HOvN0YsCkolT6sKFOKUuXLCVumpvpa46SpF4RKm5GQPtP/zBf/zyl3/v
K3/4n7pHHtm//+nnd5G5M8ZH6zydrx9+6UkyaXKBzLswY2NWG6q/OO8V228lj2ZNa4J+rx3b
rGMw49WecR4iFgUk0zExHsFEx8zM2miUUqNrMzPrl69QRtlOXbm8TuLNGUpdMqv/23/3ex/9
6O//we//+0eH9u/c+cTeXWYU48N0nkbOnq6ff3zUOT1zirxqJ+ovzXvFdrlb05qg3+sG8CL5
yyIXBSTTMR5Jh+GOsf/SXva2Z4ZSZCtkmGYodeWKZdQVyynjtaEUiXeJKGUeet05cKfBwJ1d
2tDOubkv7vu0eUR2uL5wYe7C79YPzxsvHjc+2rnTxt6IMEdeOJDpx8j+zSu2y8mjOeV77+n6
wtwFN4AXyVc7elFAMh3RQzQ75ubWrl1a0l72TiUMpYzHa9fm5tYvX3aMuuI6dfnyOolHlDIj
rJ469ZtDxqnf0NCembkdO57ad4s5e9neUizPzz5nPB2et+cYRcbn7C7fPgCfv+QV2+Xk0Zwi
D27hg/b2x3n3/Kw39WL9S7PGQ302elFAMh2zl7Rlh0sOxuzZtQtRSl1Ym51df+ELl02TLhPs
qS+8sG4GJEqR7VxIqQet7d+D5+v1F1/60vzs+G/V66fPzY+PnzhMZBgfNx9syEf/0m/Pj457
xePeo1fdLXzwcP28G8CLRKZGXlyYHV82jsuiFwUkQ5RyrlHRSo2PW0pR2EqNjztKXb7sOmUq
ReKZSlnXtkqf/4TB008/8cQXn3rq3+z7pH3Ja/xxY9fzkXFjam5+/vGS8XyJ7IyMZ/PBhsz6
iBXIKa56j151t3DcCOYG8CKRqdL8XLU666tOLwrIpeNSlFKXOqrVtaWhIf/4O1Jnaa1aXX/h
hS94RplOGUa9sE7iEaV67fEMn99n83mDz7x9ErQFxkETddOUd4g1ObkWOTZzaW1y0lDqhS8E
MGatk3i9hlKlSqWbDNebOUfzDjKrG7Q8HTEngt3da0NRtywMrXVXiFIRrHcbIpWIUlM9U1Nk
cMuU+WNPTlnzCsZU0ci7w3p6OkajLoCOdvT0rH3m+Qg+s9Yztf7ZKKM+u07iEaX68rgtFajC
TEfUd48dM5r27NpnIlh71ihZ/2wE68+SeH2GUt15NwrkSXmG3GT15JPkv8dM2ZDjWXKT1W/8
Bvnv8ayxCSo/G3XT1bNlEq/bUKqnDwBp9BCl8v4uHLQSplKf/tcASOLTRCmtY0MJACls6NCg
FJAJlAKSgVJAMlAKSAZKAclAKSAZKAUkU3Slyi2K28DB7TTTNmR666BInewovFJ7WhJXqcHr
N/ZvimTzlht6+etkSPGVynt7IgntnbU9tVptz57anptrnlJbN163I3r4wM7rNgrUyRAopQi7
Bl0RBndRSvXH2KJpO/oF6mQIlFKEXZQIlFLbN8UPc9pU5a+TIVBKEWKU2krpsri4uLy8SunS
Fa4TUqor848ESinCLs3NAR2r1ImVhfOnzy/HKaX7gFJWPwi/jSilJ3xSuu8pplQF4pVy73uw
lKrrC9ZLWilzhv4p3amqd+r+OhmijlLUY3IdH/FK6UVTyp1kKaWvsJXSoZSji85Rh6aFlKru
Nm/93V0NKLXNY3V5eeWwrtfNF7RS5gxDKaeiMwmlyBP5V3J2gt6Tbr+w5rhy0UqRWvaz/eBT
yit1ayml1O7dxCnjMV4pkxN1HUrx4O74TG+cae/Jfvb5VPIp5Sike090GT3beamUUuOGTeYP
Q6ltqwtQigf38NyVRvfvDXV6jktwK6UH9nV+pQLiqbWVmpvbTZibCygVzmGwaD7SSpkzDI+c
Gs5keytFT3h+6fRLb45LxFbK3sOFjqXs2bR4Sik1OjpqGGU8xii1aguzeiJWqU85VxA+BaWC
SvkLdH8dxo7Pfoo6PNepTZqKSo0So4JK2Rl7Fut6tWocny+snFg0Z9BKmTMMkTx0f50MUVgp
KcdS1LarrPixlJsxJaCUmd13dYFsfA6fPn+eKGXOopUyZ1BbKWPH56+TIWoqFX3GZx+9h8/4
nH2ZfRIXONmzXyp/xpek1HJdp5SaYChFJqFUo7TQFzJxSpFUhbRSy3Y6RFopc4arFJnU/XUy
RBWl3C224PvaRKnx1fOkc86vLC67GTahVDq0gVL2XwQyDs/HfNBKWXN8Xxv762QIlFKEXSV3
81OKVGpslalUGCglTsso1X3zLQ6+gcKbtNEYaKWYdTKk+Eq1JJ5Sm0eujaG2ucxfJ0MKr1SL
4rRvcMs1Q9G2DL95Szd/nQwpulKtTm9f/A1VAxX+OhkCpRSnq9xd8XDSSpvTlapAneyAUkAy
UApIBkoByUApIBkoBSQDpYBkoBSQDJQCkoFSQDJQCkgGSgHJQCkgGSgFJAOlgGSgFJBMtFLh
+5/E89O1PjwpsdqQGKWox+AkcPDyF+W9JkoBpRpGD+YsAiYspfz556x0BPR0G6P78hZRvdPW
vcI8lgomCwtkqWtnqPRqgd5pcxhbqSilSlDKaX6EUnmvVv6wlPLyz/mUaixJeSuh+7uGTtTX
5vBspUrRW6n2hu6icKK+dgY7vsbwFMKOLwDrUied5pc+Ym/3Mz6fUoFz4PbtFRN8IQMkA6WA
ZKAUkAyUApKBUkAykUp1Agot3Gt5r5JaaDxK3QFc7oxSKu+VUok7oZQgUIoBr1JngEWcUnmv
lzJAKVGgFAMoJQqUYgClRIFSDKCUKFCKAZQSBUoxgFKiQCkGUEoUKMUASokCpRhAKVGgFAMo
JQqUYgClRIFSDKCUKFCKAZQSBUoxgFKiQCkGUEoUKMUASokCpRhAKVGgFAMoJQqUYgClRIFS
DKCUKFCKAZQSBUoxgFKiQCkGUEoUKMUASokCpRhAKVGgFAMoJQqUYgClRIFSDKCUKFCKAZQS
BUoxgFKiQCkGUEoUKMUASokCpRhAKVGgFAMoJQqUYgClRIFSDKCUKFCKAZQSBUoxgFKiQCkG
UEoUKMUASokCpRhAKVGgFAMoJQqUYsCtlAYs4pQaDhB8X9uUQylRoBSUkkycUsF6ynzEWZdD
KVGgFKMcSokCpRjlUEoUKMUoh1KiQClGOZQSBUoxyqGUKFCKUQ6lRIFSjHIoJQqUYpRDKVGg
FKMcSokCpRjlUEoUKMUoh1KiQClGOZQSBUoxyqGUKFCKUQ6lRIFSjHIoJQqG4DHKoZQoUApK
SQZKQSnJQCkoJRkoBaUkA6WglGSgFJSSDJSCUpKBUm2k1JnBLJYCpdpHqZXhxeHmozCBUm2j
1Mp2TVsWdapnoKu3a+A2kbdAqXSU0rkQ/HyboWfF3Ot1CjjVd4pa1V7ut0GplJTi6fwMlaos
2MdRy+d439JjiLS4Wpvuna6tLgroD6UKo1Tf/Llz011Cb3GprLhvPMfrVK9+qs990an38C4L
ShVCqcrqynMnls+dWz7x3Mo57g/XpWuBUvHcMt+bbtM9o7RhfYB3YVCqAEr1nHnO86jy4AKn
Ey5dz/k2buc6+d5GHz710n4lgyF4jHIFlFpdmPbPqC0InbgdW6kEGivqJNlKWUr1VIwzwEri
dhJKMcrzV2qxk29eHIMLleCs4RP8b7foNHd8ve4J4Kn4jRaUYpTnrtSJ6ai5tUWe9xIGVyrh
mdPcb7cwXOoxD9i9M8Czwwei60IpRnneSp05Fj1/mnPnNbwSOXtQZDtlXqAyjuJ074DKnBV9
rQpKMcpzVqqzFlfyINfFgOHnYgoGV3jebtJr7+gGdTrYwPCpaKegFKM8X6WSdlBnOa5R1eI3
Rn0nKuz3E3qdI6dVfdUfIXo7BaUY5fkqtZJwbtV1lvn21aQqXStcTg3ojknP6YGRDH2R2yko
xSjPVanhxBO7M6zv3VaTD5j4nDKUsk4QjK1VsH5feBaUYpbnqlTy8c4A4xB7mXUET31Nk8BZ
SylDn+GIsvAQLCjFKM9TqR6GM8l7vlOnmCvA5dSwvlrbvr12Kkqp4cDhVWSPQSl1lDrHuEj+
4HRC4SLPVYbKWfaglQMJg3EO6OEzSijFKM9TqTOM8q4Ea86ualys8AwerpT7+sqRB15nw18n
QylGeZ5KMS9HxjvHaxSnU7EMh/eGUIpRrvJWKr7CSo31Vo8TzQxIP6CHDuigFKO8kEp1so/M
KRZEKgdZDDUCSjHKld7xxVY4I7CVau5WrFVupZT9iLMuL6ZS2jL3sdSZBsce29RCFzuhlMJK
NXPGx+sUw6iBXsYA4Wm9HJgDpRRWqqnrUss8o/QqJxKNsobcxY6MsqoEB+NBKYWVau7q+Sr7
WmcleTSCYdTq9PRq4iDOaSglWl7g7/iYTjGNskwyh9vFOVXDjk+0vMgjEc4lH4x1MY1yJg2p
4i5LrOLwXLS80OOlEm9b6GIc/fu2TL1x+z7+61LKfKR5lxd7VGeCU30Mo3p0336zN3oIZ68O
pUTLCz72fDrucGyQdYViQPcvujfqID1KNCiltlJN3yETc9vCIPOuqz59e2DGqdD1BKJZ6I1Q
SnGlcruPz1Wqp9dJL2We+j22vFqb3jo4XVtdXow8E4RSqisVfbcx9/cthghhp3juYHd2fD30
DXsDw2f9GbIEbmdQ5iPNuzx/pZrOiRC6bWGY58K6c3hunOsFzOmpDHQdO9Y1EJMaAUqpr1RO
mVtskW7T+6zb13mBUgVQqun8Ur7bFnhzlvXaR+O9ZOymwHAFKFUIpQh909lmwbOOxpfJ3TFS
lGr4I2i18hZJ/1pxhph3chul0UfjEnZ8mX1kqpe3TJJq8YzCFj3l3rKUJNXBesp+5GmXt4xS
jeU9bwAoxShvHaW0s8OLN2awGCjFKG8hpXL+GzLBesp+5GmXt5JS2QClGOVQShQoxSiHUqJA
KUY5lBIFSjHKoZQoUIpRDqVEgVKMciglCpRilEMpUaAUoxxKiQKlGOVQShQoxSiHUqJgCB6j
HEqJAqWglGSgFJSSDJSCUpKBUlBKMlAKSkkGSkEpyUApKCUZKAWlJAOloJRkoBSUkgyUglKS
gVJQSjJQCkpJBkpBKclAKSglGQzBY5RDKVGgFKOcW6kzwCJOqbzXSxmglChQigGUEgVKMYBS
okApBlBKFCjFAEqJAqUYQClRoBQDKCUKlGIApUSBUgyglChQigGUEgVKMYBSokApBlBKFCjF
AEqJAqUYQClRoBQDKCUKlGIApUSBUgyglChQigGUEgVKMYBSokApBlBKFCjFAEqJAqUYQClR
oBQDKCUKlGIApUSBUgyglChQigGUEgVKMYBSokApBlBKFCjFAEqJAqUYQClRoBQDKCUKlGIA
pUSBUgyglChQigGUEgVKMYBSokApBlBKFCjFAEqJAqUYQClRoBQDKCUKlGIApUSBUgyglChQ
igGUEgVKMeBWCjjEKAUc+JS6E3hEKZX3OikFj1J5/3UpxQgrlfcaKQaHUgA0DpQCkoFSQDJQ
CkimAaUGt/uZdiGvtg6K1JJDWsvKrA3ME3XvCFhu76fRQnGlBq/f2L8pls1bbujlryUH/mVN
3zgcz3TjcZvljs5kvPN0ub2fSgvFldq68bod8eeTO6/bKFBLDtzLmt5+10Ash7ZPNxq3ae7o
7E7EU0pu76fSwgaU6k9YC03b0S9QSw7cy7oxwaiBgbtubDRu0wgoJbX3U2mhuFLbN2mJbKry
15ID97KGBxIZbjRu0/ArJbf3U2lhA1sp1mp08deSA/eyBJXKrg0CWympvZ9KC6EUlFJBqSmH
0siTte2VKRqvURy15OAuK3iiFFwWpVS571jfoQNMpaYSyEspjnXiXXN/vQVC8y1sRqnuoV97
6KmH9n6yK7FRSbXk4Cn1r3zosUod6Jsd3z/ee6ysnFJ6gKyUIjaVCbRUGSq1zaQytO9tv3r8
6Sd+vbOyzcNrFEctObjL8rZP5is9uCxXqb7Zye5nqtVSL0upbQmko5T5uZa7u63nKKW8NVhc
1PXFxYh14qtF1Vson9ZPl6d1Q6vphYXmWtiEUqVfe9ujx59++OGHnx1JaFRiLTl4SrnxyS/4
tlilyrOTlWcIx/pElNLVUoqYQtq5SK1YWKmEWj6lzC2UPl0mbi0czkmpoYd+9fjDx48f3/ne
znBH89UKoluPuu57akCpbYlK9Y13TxpCTZarvQJKkZAKKWWrolu+xCmVVCuklAnZyOel1JNP
PfK0ocr+R46fSlAqsVZAKNsh68d7cufKUurY/u6BgTsPDBx45vrCbqUWjR2asUaLpJ2eLcHe
T6wVpZTh08Lh3JSqPfSJh4/vfGRycm45QanEWiGpYpXSedaI2vGR//Fbqb6Be44aHDrAv5XS
nf+KKGXYUt6mk+OkbWVv+xnaSiXVCillHoYa1XJQatLk8b1PPHx8/+Sjjz54ctLDaxRHLQ6l
rB2fzrVGnU54nXqcDCt1yDDq0MCBI3ffdYChlLvC7t6D2YbUlXJXoGyt1WR50V2tYO8n1qLq
LZQ7F2ylDi8YP820sAmlJt/+0MPG5ufRmccoV8KNenuPpmkxtXiUKpUYRlFK+T/3WKUGjhw9
es/AQOXIUdYZn7fGuvM/ZaXYFxHcFThm2jJJNj+LCUrZtYynxeCaU0ot6J1l94Q5e6WqFuMP
3rJ0fKbzxPKNv1J18Rrl1NJ++f6pmFqcSumca9Rp/47r1ks9uCxXqaNHDhhOHTvw4UOHkpWq
0ui+V9V0lPJf44xSiloFq7WLi+6qhXrfrVU1aoXW3K1nbKX0BUqpZlrYhFL2RfueiX/x8Y//
y1iljBq/cP9UTC0+pdzdnyylKkfvGiBOVe6+684j3EoZv+vZKGVsmxYJbKXcZiYqFSJKqfJC
p31snqdSv/wL99//wV+sTN73zz72S/88VilSKa4Wl1LUa0lKDdxjiHTAODz/8KEjR44ot5Uy
lLIPqDJTqrpgHZ6TY/NclJowMWT54C9+qL8y8ZF/8vO/9E/vG7fnuo2ia30ouhaPUs48nb1G
rlLWSz24LFepu44ax+UH7v7w0fK9Rx64IUGpiQTy2vEFVsM+6IrufcaaU/UWTKXIsbnxeLiZ
FjajlM3ExEf+4T/6xx+9L0YpTbv/Q1MxtSKVClzqtEt0jjXiVmrgnruP3HXk6N3l8r33PnDv
DYopxdjxpaPUhHvG5wiVqVLjQab/3t//+X9gTXqNcgq1D35oKqaWHNxluUpZL/XgsqiRCEeO
fvjue4xN1aHpe+89Fq/UeAJ57fgCq2ErFdf7iWvuq0cOzw2fmm6hHKXG53/u79ZilTKIqSUH
Sik/CUoZx+j2Narp6bsUU4qx40tLqfEFn0/ZKjWWgNcojlpy4F6W+BC8jNogdF1KYu+n0kIo
pZZSHEPwWlKp0QS8RnHUkgP3ssSVyqgNQkpJ7P1UWtiAUptHrk2gtrnMX0sO3MsaPpRk1KHh
RuM2jYBSUns/lRY2cLfxlmuG4tdi+M1buvlryYF7WYK3hmbXBn6l5PZ+Ki0UV6q3L/mm54EK
fy058C9L7Ab27NpwB3eiObm9n0oLG0iz0VXurtD0uJivKlWBWnJIa1mZtUFjklLvp9FCJAMC
koFSQDJQCkgGSgHJQCkgGSgFJAOlgGSgFJAMlAKSgVJAMlAKSAZKAclAKSCZBKUOWpQOlsh/
EQSrg5YiSSnfJJcmcAlAKSAbDqVMn8ge0NwVmjMOWvOteea0U15y/pUgWJvCPJZyNlHOhsq1
yBWKLqHnwKj2JEKpGqEU2EoFxLGnvB/aPnuOGwu0PMlKueVhpTxxAkod9NWjlAJtgc+pkFJe
afRWqgSlQAjaqbBSbpHAji+sFI6l2otGlHL2fKXYYyn71LBEnRKCdoFPKQC4kaLUQY+82wNy
B1spIBkoBSQDpYBkoBSQDJQCkoFSQDJQCkgGSgHJQCkgGSgFJAOlgGSgFJAMlAKS4VHq7VLw
FoR4LR2PSyl2Lm42dBMQr5Xj8Sm1x+LvlEXQ3vHO2p5azfh55zsCTRCKg3jFipemUrsGbYMH
d0lpAuIVIl6qSrlbRUlNQLwixONVStf1BpSqVCq7jZ+IJhjxGmgC4hUgHqdShk/Gj7BS1eru
3bur1XATyPqLtgHxihEvXaVGdxNGpTUB8QoQL12lyPKMH2lNQLwCxEt5K2X/YVxpvxWIp368
VJUqjVuUJDUB8YoQL02lum++xeLmbilNQLxCxEtTKfvqai3iam1DTUC8QsRLdccXf7W2sQ0t
4hUhXrqXOuOv1jZ2aQ3xChAv3S9kyAlm5ElrIyBeMeKlq1TFvBRWkdYExCtAvHSVKpeNJVqb
SClNQLwCxONTqtFFVqvV3dWo75QQr3XjpatU7NVaxGvdeKkqFX+1FvFaN16aSiVcrUW81o2X
plLxw+cRr4Xj4aYrxJMcD7eGAslAKSAZKAUkA6WAZKAUkAyUApKBUkAyUApIBpc6EU9yPOSX
Qrxc8ks19h1QQfMjIV5z8VId3FLM/EiI11y8dIfgORQqPxLiNRePVymF8xkhnlrxOJVSOZ8R
4qkVL12lCpkfCfGai5euUoXMj4R4zcVLeStVxPxIiNdcvFSVKmZ+JMRrLl6aShU0PxLiNRcv
TaUKmh8J8ZqLl+qOr5j5kRCvuXjpXuqMv1qLeC0bL90vZAqZHwnxmouXrlKFzI+EeM3FS1ep
QuZHQrzm4iG/FOIhvxTiqR0P+aUQD/mlEE/teMgvhXjIL4V4asfDraFAMlAKSAZKAclAKSAZ
KAUkA6WAZKAUkAyUApLBpU7EkxwP+aUQD/mlEE/teMgvhXjIL4V4asdDfinEQ34pxFM7HvJL
IR7ySyGe2vGQXwrxkF8K8dSOh/xSiIf8Uoindjzkl0I85JdCPLXjIb8U4iG/FOKpHQ/5pRAP
+aUQT+14yC+FeMgvhXhqx0N+KcRDfinEUzsebrpCPMnxcGsokAyUApKBUkAyUApIBkoByUAp
IBkoBSQDpULcIYe8m5EbuNQZineH4uunejzklwrFu0Px9VM9HvJLheLdofj6qR4P+aVC8RpW
qqDtRX6p1OM1rlQx24v8UqnHs5QSDpe8fiZiMYvaf8gvFYpHlGqghxPXjyAas6j9h/xSoXhN
bKVi189CWKlC9h/yS4XiNaFU7PpZCCtVyP5DfqlQvGa2Usl3oIhvpYrYf8gvFYrXuFKx66db
x1GiShWz/5BfKhSvYaWYd6AIKlXQ/kN+qVC8hpVKWD8LQaUK2n/ILxVz9byRHR/r6rTojq+Y
/Yf8UjFXzxs6PGdcnRY+PC9k/yG/VMxFBHXXT/V4yC8ViteEUoVsL/JLpR6vCaUK2V7kl0o9
XhNKFbK9yC+VerwmlCpke5FfKvV4jStVzPYiv1Tq8RpWqqDtRX6p1OM1rFRB24v8UqnHw01X
zcXDraFAMlAKSAZKAclAKSAZKAUkA6WAZKAUkAyUApLBpU7EkxwP+aUQD/mlEE/teMgvhXjI
L4V4asdDfinEQ34pxFM7HvJLIR7ySyGe2vGQXwrxkF8K8dSOh/xSiIf8Uoindjzkl0I85JdC
PLXjIb8U4iG/FOKpHQ/5pRAP+aUQT+14yC+FeMgvhXhqx0N+KcRDfinEUzsebrpCPMnxcGso
kAyUApKBUkAyUApIBkoByUApIBkoBSQDpYBkcKkT8STHQ34pxEN+KcRTOx7ySyEe8kshntrx
kF8K8ZBfCvHUjof8UoiH/FKIp3Y85JdCPOSXQjy14yG/FOIhvxTiqR0P+aUQD/mlEE/teMgv
hXjIL4V4asdDfinEQ34pxFM7HvJLIR7ySyGe2vGQXwrxkF8K8dSOh5uuEE9yPNwaCiQDpYBk
oBSQDJQCkoFSQDJQCkgGSgHJQCkgGVzqRDzJ8ZBfCvGQXwrx1I6H/FKIh/xSiKd2POSXQjzk
l0I8teMhvxTiIb8U4qkdD/mlEA/5pRBP7XjIL4V4yC+FeGrHQ34pxEN+KcRTOx7ySyEe8ksh
ntrxkF8K8ZBfCvHUjof8UoiH/FKIp3Y85JdCPOSXQjy14+GmK8STHA+3hgLJQCkgGSgFJAOl
gGSgFJAMlAKSgVJAMolKwSkgTC1JKTgFhPE5E1aqVANAkFKyUgA0A5QCkoFSQDJQCkgGSgHJ
QCkgGSgFJAOlgGSgFJBMglIHA8/hkiQOWtUOclUuGgcF5rYdYkoJdNpB0TcUCQ6lWrTlHCQp
dZB+sqb5A7eyUjGbXihlwqnUwYPkiTw4/0ol58EqKbm1nHpmkVXVLrDmHix8bx/0mn7Q/1xy
+sXpr8K3VZzEHZ+ngfW6ZMvj/i+VXKH8tfzV3AL3AKvQOE2wPfKe6U0z1ew2I25wS8mnlPn7
5unh9meJeh3uyrBSJa+L8x6OwT9YI9gvdJMj2ut55SqVd2uy7a2EIXjO7110pwkp5RlZjB1f
lFNev/ibw6FUixPorYSBwhKV8iL6ntUl7JSvX2Lb6x25t5FSJcYQPK80WpaDJb8oMUpFH0uV
6N9jpanFzvB+L8LHUm2qVKkBpaxzF/cI1H/GF6hVos74PMEOuioVYcfHqVTojI8qdnb4eTck
E3iVamtqzBkx+/H2cCgAlOKgUaXa0igoxUNjSrXJfi4ElOKARyngAKU4gFIiQCkOoJQIUIoD
KCVCSyg1uJ2TaTak2tbBhE5K7peZvdf091+zdybvLvFzY4BUF9YKSg1ev7F/k0Q2b7mhN76T
kvpldm//xpFq9b239u+dzbtXaG70p5MutlJy0h/HJVe22Lrxuh2aRHZetzGhkxL6ZXbjxrny
gYFK5badt25UyanWUkrmZx1KAW+xtV+qUZq2oz+hkxL6Ze/GPsuo23puu3WvPVM3oOroEe+z
q+glDrgqBYlS6iaTUNWbhIMndk4qSjWU9z/wVwDsv6G7J/g3eS22b5Jt7aZqfCfF98tM/5xj
VI+2v986ntLdh1IpMOmbpWeuVMl7pGgXpeL+Jq/FVvlKdcV3Uny/7N3oGaVp+8zNlG2AJ0JY
CbdKHkqFFGobpdzeUFmpa0Yoo7Qd15B5lEve3s2d9G/CjNe6ryb9FHh/SUguhlLOHpA8ZaqU
rjuHBUm/cwFMpYT/DnNYqUqlstv4iVNqSioNKtVfpYzSKv0BX0rO3s2d1P19qIeL9fBc2yqh
Tzl5x3eTPWHZ1bBKkZ3DUMrfAXyQPxcv/qe9w0pVq7t37w79tUsLdZSijOJRiu7XkqeK/aur
l2iBgu8XIv7wPKhUxlupQA9wIWsrNWr+WebROKW2+SGfybbGaXTH917KqOCOj18puph6okXT
Ba1K3vE5buWplO5usagGUgcIVINlKUV8Cv8x+hildPeBRXSlRg/Pb6WMCh6eM5XSGUqFPgV5
SpXcSTWUCnaEv7HStlKRf5M3Wik9SZcUlZrp3+kZFbyIEK9UlEMxSsk/lqJ3eHkdS/mbFfhd
C+/oJSkV8zd5E5XydoD6NvLkTup2HXs6vJdsUCmymXI+tanQpc6oMz5/FV+xHlAqrTM+Z89n
TmZ+xhetFN3AtJSK+5u8rlKTNLpvwnjQnR/radKatJ9031tMGlVqduOt++1tFL6QsRBQyvst
oualppR99bwWffWcrdQk7VB6SpGvjfftqFR27HO+NtYdUv0QmUQodZOL7IU1dBHBp1TEEQCF
pB0f6+p5lUb3TejWs+5NUrPIfxNfgIaVwuCWUjOXOt2HiGMF702yDs8ZV8+jlNI5laqGaEIp
UJgvZMgFhISLCBM+dPuBfrZ/dN2dpeu+ShRQqhn4ldIbOi6QpVTFvNRZ4VNqgqwl9UwrNeEW
eZbpfqOgVFMUZStVLhtGWbvAKKXGedF5KkGpZiiKUsYRzu5q/Hd80frYZKmUmofnmVIUpRhX
z8d40XkqNXMRQcmx55lSEKVYV8+5leKi8Uudqo49V/QiQkPIUYp59XxUKg1/IcMx9jyZlC6J
qnr1vCHkKOUjrNTmkWulUttcju+k+H4xx57f/tM/9ZM/fnv82PNkoBSbLG66GtxyzZBMo4bf
vKU7vpPi+4WMPb/9Zz/wgfe/74dvjx17nkymSqXxbUwpfaWyoLdP9q2hA5X4TorvFzL2/Kc/
8DOGUu95V8TYc2cgXfCrrZJXEDHyQHy8XQSRSkkaHhWiFZQqdZW7K1z0sDGrVRq66YqMPf+p
DxhbqZ94z7tDA4VLuvdFaFip8GiowKip5hC4Q6Z5WkKptBEYe/6T73//+9/3Ez/iV4oeSh7w
JDzePPlr+MZIGi9Fpvxjpqzx6A3vFKEUBwJjz3/8fe8zjPrR4I5Pp8SJUipiK+V895XWjo9S
6qbwLQ033dTwBgxKcSAw9vz2H37Pe37kR38s4vDcP46TGiUc2HwFxpqXSmnu+NzbGEJKlaBU
moiMPb/9Xe9+97tuD449D+z4GErp2R5LOXeH3hS4W0ZRpbK4iJA6zY89172jKm+HV6Km6PHm
7o1HqZ7xBZQquS/dZ1WV0qSjrlICY8+zHTmccBGheDu+LDK3pE7jY8+jyXw8esKlzpu8oyr/
GV+LK5U89jx1ZA9uyfzuhtb6QiaDzC2pU/gheMreIaNTdyzwQpRqOs8GI3NL6hRfKUUHtwRP
VbggmVvKzd4jw8jckjqFVypTiqJUUuaWbDspcgbwaESp8FWTeM9kKZWUuSXbToqcATwaPJbi
vrYrbSuVMPY8206KnAE8mtlK8XxPLkmpxLHn2XZS5Azg0aBSwbvXY5GjVPLY82w7KXIG8GhW
qVImO77kzC3ZdlLkDODRpFJZHUsV5uo5aPhSp/v9OvuMT8qlTlw9LwxF+UImKXNLtp0kp19a
mMaU4s/hkkXmlmw7KalfVEXVL2QaIovMLalTfKUwEiGsVFLmltSBUiIURSlcPW+GxL/HJ3t0
S0GUwtXzpkj8s0TtqRSunjcHlAopVZDbGZSFpZQ72lzGIE/cdCXaSXL6JVtYx1LUU/MbLdwa
ykFrKlWyH6FUDrSNUlJub4BSHLSNUlIWBqU4aAel5P3ZUCjFQWsqRV/qtP8QXyHO+FqCllQq
NaAUB62oVGo3G0MpHoqvVCsNbmkJCq9UpjCUQt+VonoB/RJPLVkp9F1MH6Bf4gj0TFipUg3U
onsORFNiKQVAM0ApIBkoBSQDpYBkoBSQDJQCkoFSQDJQCkhGSaUGtwsyzQ+pvnWw9ZeVHyoq
NXi93L8yG/6rszf0tvqyckRFpbZufNPbUuVNG6llXbdDS5Gd1+WzrBxRUqn+t6ZMP7WsVD9l
TduRz7JyREWltm96a7pd/9ZNVW9Z6S5K0/JZVo6oqNTW9JXq8paV+secy7JyRE2lfijdnv8h
KJUiqio1lSIBpdJclLGwfJaVI2oq9YPpKvWDUCpFVFVqGyckI6357D6wCSjFFT+5UtLC+JdF
hdJDc7gaBqViEFDKNcn5kawUn6lQikZNpX6AUynvA9AF+l77Ad6POfwBQykmraMUf9cLK7XN
3QEai9Hpl87cNJTygpOl8jQPSsWxddP3a5Nc6O6TrvO9g6B9v+9jZse3J+zF6O5Ld27SwniX
ZS/IZpIObjaOo4FQKo6GlOLp8saVmqQ+Z51ernSlqBZ5SvnXBUoJQ5SqcqG7T7r7gk1AKXZ8
e8Jehrcoa4OSvGSNd1mhFnnBdaoksWFQKoYGleJ2SlgpPU6poHlSlar6J6FUE2zd9H3aBB+6
8+BOcKB9n+9j5olPP3svfaVxC+NelrfA4CJ1fYKrcVAqDgGlJsjOwfso+JwSUMqLT5511157
tvOUhlJUcH3CXgso1SBEqfEUCSiV5qKMhUlYli6+rByBUlBKMmoq9RZtLEW0t/g+5jQXZSxM
wrJ08WXlCJRKdVFylGpgWTmiqlKjKRJQKs1FGQvLZ1k5oqRSm9+SMpvL3rJGrk2VWj7LyhEV
lRrc8qa/9bfT5E1bur1lXTOU5qc8/OZ8lpUjKirV25f2LZQDlVZfVo6oqFSpq9xdEaKHH7N6
pdryy8oPJZUCBUaDUkAqWieUAjLROqEUkIlhFI6lgESIUTiWAvIwjcKOD0jDMgpKAVnYRuFY
CkjCMQrHUkAOrlHY8QEpeEZBKSADyijvWAoASdhKASANUykAJJL3dhK0Hv8fkI5omgokFBMA
AAAASUVORK5CYII=
--------------050104010409090802060507--

tape

2006-07-13, 7:34 pm

In-Reply-To: <44B30D4B.1872CB10@agabatur.xednaps>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
NNTP-Posting-Host: 193.64.243.217
Message-ID: <44b392c9$1_2@cnews>
X-Trace: 11 Jul 2006 08:00:09 -0400, 193.64.243.217
Organization: "Another Corel User"
Lines: 19
Path: cnews
Xref: cnews corel.PaintShopPro_Scripting:4117

Spandex Rutabaga wrote:
> Here it is if you want it. Comments in the script explain how it
> works.

Thankee kindly, ma'am! I don't know what the UDF settings actually do
(well duh, they find edges), but the results seem to look a little bit
but not quite like what you'd get by desaturating a layer, duplicating
it, offsetting the duplicate by 1 in a given direction, and setting the
blend mode of the duplicate to difference.

This script too works in 8, transparent layer in X, too lazy to check in
9. For X I guess one could to a kluge by applying UDF to the background
layer, copying, undoing and pasting as a new layer (if one wanted to use
this as part of a script for all versions). But the important thing is
that it works in 8. The result is a little bit lighter than Find All
Edges in X, by the way.

--
Tanja Säily, http://www.iki.fi/tape/

Spandex Rutabaga

2006-07-13, 7:34 pm

tape wrote:
>
> Spandex Rutabaga wrote:
>
> Thankee kindly, ma'am! I don't know what the UDF settings actually do
> (well duh, they find edges),

A UDF setting like this (only the central portion is shown):
0 0 0
0 1 -1
0 0 0
says "Consider a pixel of interest, the center one in the filter
window. Take its value and multiply it by one. Then add to it
the value of the pixel to the right of it, multiplied by minus
one." That's the same as subtracting the value on the right
from the value of the center pixel. When you have this kernel:
0 0 0
0 -1 1
0 0 0
It means "subtract the value of the center pixel from the one to
its right". UDF can do this for each of the three color channels
in turn or it can do it on grey values. The grey values are
calculated the same way as in the Luminance (Legacy) blend mode.
This is very different from what you get when desaturating with
H/S/L and somewhat different from Image > Greyscale (at least in
PSP 9). You can also desaturate using the UDF simply by setting a
"do nothing" kernel:
0 0 0
0 1 0
0 0 0
and choosing the Grey Values setting. I would recommend this over
the "desaturate in H/S/L" method. Unlike Image > Greyscale this
approach doesn't produce a one-channel image. Instead it makes a
grey image with three channels. That makes it useful as a way of
greyscaling just one layer in a stack of regular layers.

> but the results seem to look a little bit
> but not quite like what you'd get by desaturating a layer,

See what I said about greyscaling above.

> duplicating
> it, offsetting the duplicate by 1 in a given direction, and setting the
> blend mode of the duplicate to difference.

Difference means "subtract one from the other and, irrespective of
whether the result is positive or negative, throw away the sign and
treat it as positive". I think you can see the connection to the UDF
process above.

> This script too works in 8, transparent layer in X, too lazy to check in
> 9.

I don't know why it doesn't work in X. Now you mention it perhaps
I vaguely remember some discussion at one time concerning a bug
in UDF to do with transparency. However, I might be subject to
auto-suggestion here. I am also puzzled why other people say it
works in PSP X. Perhaps they only looked at the overall result and
haven't looked carefully at the contents of individual layers.

> For X I guess one could to a kluge by applying UDF to the background
> layer, copying, undoing and pasting as a new layer (if one wanted to use
> this as part of a script for all versions).

I'm not going to waste my time working around inept itude in the
program ming depar tment and lack of interest in the QA depar tment.
If it doesn't work, then that's what Corel wants for you.

> But the important thing is
> that it works in 8. The result is a little bit lighter than Find All
> Edges in X, by the way.

Well, I don't know what is happening inside the box except by reverse
engineering. If you examined the effect of Edges > Find All and my
script on the square in UDF_Input you will see some strangeness in
the corners. It happens at top left in Find All and at bottom right
in the script. (Maybe that depends on the choice of reference pixel
in the kernels discussed above.) Second, I mentioned that there were
different ways of greyscaling. I have a suspicion about what is done
in Find All but I decided to leave out the extra steps in part to
avoid emphasizing JPEG block edges the way Find All does and to
avoid the extra calculations but also because I thought it was
impossible to do *exactly* the same thing with the tools PSP offers.
Finally, I doubt that Find All combines responses in the different
directions in same way as using the Multiply blend mode. If I had to
guess they combine them as the square root of the sum of the squares,
but they might just use the maximum value for speed. The latter is
more like using the Multiply mode with multiple layers.

> --
> Tanja Säily, http://www.iki.fi/tape/

tape

2006-07-13, 7:34 pm

Spandex Rutabaga wrote:
> A UDF setting like this (only the central portion is shown):
> 0 0 0
> 0 1 -1
> 0 0 0
> says "Consider a pixel of interest, the center one in the filter
> window. Take its value and multiply it by one. Then add to it
> the value of the pixel to the right of it, multiplied by minus
> one."

What a convoluted way of saying a simple thing. From a human
perspective, of course - computers and rutabagas probably find it quite
clear. :-)

> The grey values are
> calculated the same way as in the Luminance (Legacy) blend mode.

Would this be the same thing as having a grey layer below the image
layer and setting the blend mode of the image layer to Luminance (Legacy)?

> Difference means "subtract one from the other and, irrespective of
> whether the result is positive or negative, throw away the sign and
> treat it as positive". I think you can see the connection to the UDF
> process above.

I think I see. Thanks for all the info.

> I don't know why it doesn't work in X. Now you mention it perhaps
> I vaguely remember some discussion at one time concerning a bug
> in UDF to do with transparency. However, I might be subject to
> auto-suggestion here. I am also puzzled why other people say it
> works in PSP X. Perhaps they only looked at the overall result and
> haven't looked carefully at the contents of individual layers.

That would be my guess. I found the UDF thread in the PSP X forum: "UDF
Transparency in X", posted by Davidl1 on 20 September 2005.

--
Tanja Säily, http://www.iki.fi/tape/

Spandex Rutabaga

2006-07-13, 7:34 pm

tape wrote:

> What a convoluted way of saying a simple thing. From a human
> perspective, of course - computers and rutabagas probably find it quite
> clear. :-)

It's only convoluted because it has to be explained with respect
to the possible settings of the UDF instead of just simply describing
the algorithm.

>
> Would this be the same thing as having a grey layer below the image
> layer and setting the blend mode of the image layer to Luminance (Legacy)?

Very, very close. There is (or can be depending on the specifics
of what "grey" is) some slight difference due to rounding errors.
Two layers also use twice the memory of one.

>
> I think I see. Thanks for all the info.
>
>
> That would be my guess. I found the UDF thread in the PSP X forum: "UDF
> Transparency in X", posted by Davidl1 on 20 September 2005.

Well, the thread will expire in two months and then the problem will
spontaneously go away :)

Lori Davis

2006-07-13, 7:34 pm

"Spandex Rutabaga" <SpRu@agabatur.xednaps> wrote in message
news:44B3CCB1.7AD7D744@agabatur.xednaps...[color=darkred]
>
> I don't know why it doesn't work in X. Now you mention it perhaps
> I vaguely remember some discussion at one time concerning a bug
> in UDF to do with transparency. However, I might be subject to
> auto-suggestion here. I am also puzzled why other people say it
> works in PSP X. Perhaps they only looked at the overall result and
> haven't looked carefully at the contents of individual layers.
>

You should be able to get it to work by locking the transparency on the
layer. (I vaguely remember that I tried this when the problem was first
noticed, and that it did do the trick. Can't check right now to make sure,
though.)

Lori

tape

2006-07-13, 7:34 pm

Lori Davis wrote:
> You should be able to get it to work by locking the transparency on the
> layer.

That + the UDF just made the layer all black instead of all transparent.

--
Tanja Säily, http://www.iki.fi/tape/

Lori Davis

2006-07-13, 7:34 pm

"tape" <tape+news@iki.fi> wrote in message news:44b5850a_2@cnews...
> Lori Davis wrote:
>
> That + the UDF just made the layer all black instead of all transparent.
>

Info-gathering question: What do you get on a background layer? On a
Background layer or on a transparency locked true layer, you should get the
same thing.

Lori

Lori Davis

2006-07-13, 7:34 pm

"tape" <tape+news@iki.fi> wrote in message news:44b5850a_2@cnews...
> Lori Davis wrote:
>
> That + the UDF just made the layer all black instead of all transparent.
>

Tanja, does the UDF work if the central value is set to 2 rather than 1?
(With layer transparency locked.)

Lori

tape

2006-07-13, 7:34 pm

Lori Davis wrote:
> Info-gathering question: What do you get on a background layer? On a
> Background layer or on a transparency locked true layer, you should get the
> same thing.

On a background layer I get the correct result, i.e., edges on black. A
transparency locked true layer gives total blackness.

--
Tanja Säily, http://www.iki.fi/tape/

tape

2006-07-13, 7:34 pm

Lori Davis wrote:
> Tanja, does the UDF work if the central value is set to 2 rather than 1?
> (With layer transparency locked.)

Yes, it does, even without locking the transparency. Some values work,
some don't. Interesting.

--
Tanja Säily, http://www.iki.fi/tape/

Spandex Rutabaga

2006-08-02, 12:09 pm

tape wrote:
>
> Lori Davis wrote:
>
> Yes, it does, even without locking the transparency. Some values work,
> some don't. Interesting.

Do the attached presets work in PSP X? Does their behavior differ
depending on the state of the Lock Transparency toggle? Does their
behavior depend on whether they are applied to a background or
regular layer?

BUzz

2006-08-02, 12:09 pm

I would certainly watch for this to be turned into a 'one step photo fix'
button!

BUzz

"Spandex Rutabaga" <SpRu@agabatur.xednaps> wrote in message
news:44B33199.842A5511@agabatur.xednaps...
> "hå£ê¥" wrote:
>
> You're welcome, but it would never have come to pass without Gail.

Lori Davis

2006-08-02, 12:09 pm

Spandex Rutabaga wrote:
> tape wrote:
>
> Do the attached presets work in PSP X? Does their behavior differ
> depending on the state of the Lock Transparency toggle? Does their
> behavior depend on whether they are applied to a background or
> regular layer?

OK, I'm back home and could check: They work as they should on a
background. On a true layer with transparency locked, all you get is
uniform black. On a true layer without transparency locked, all you get
it 100% transparency.

Lori

Lori Davis

2006-08-02, 12:09 pm

tape

2006-08-02, 12:09 pm

Lori Davis wrote:
> OK, I'm back home and could check: They work as they should on a
> background. On a true layer with transparency locked, all you get is
> uniform black. On a true layer without transparency locked, all you get
> is 100% transparency.

Yep, same here. Annoying little bug. Another one that's been hitting me
a lot lately is when you view something full screen (Ctrl+Shift+A) and
come back (by pressing any key), the Materials palette is stretched all
the way across the screen.

--
Tanja Säily, http://www.iki.fi/tape/

Spandex Rutabaga

2006-08-02, 12:09 pm

Lori Davis wrote:
>
> Spandex Rutabaga wrote:
>
> OK, I'm back home and could check: They work as they should on a
> background. On a true layer with transparency locked, all you get is
> uniform black. On a true layer without transparency locked, all you get
> it 100% transparency.

OK, so it is not going to be easy to use UDF. However - and please
correct me if I'm wrong - the only reason to have the UDF stuff is
in PSP 8 where Edges > Find All does not give the black on white
result of PSP 9 and PSP X. In PSP 9 and PSP X you can just use
Edges > Find All. In other words, at the expense of having two
scripts - one for PSP 8 and one for later versions - anyone can
make a vintage postcard successfully. Since this is already done,
no further work is needed. It would be nice to have one script that
works in all versions but that would only be a matter of tidiness.
Is that a correct summary?

Spandex Rutabaga

2006-08-02, 12:09 pm

Lori Davis wrote:

> OK, I'm back home and could check: They work as they should on a
> background. On a true layer with transparency locked, all you get is
> uniform black. On a true layer without transparency locked, all you get
> is 100% transparency.

I think you all should submit more bug reports. UDF is a very
convenient part of PSP for people who know a little about image
editing. To have it be dysfunctional cripples a valuable feature
of the program not easily found elsewhere. Without a push it is
unlikely Corel will fix a "technical" thing like UDF, seeing
more value in simplification and new tools based on presets for
old ones.

Lori Davis

2006-08-02, 12:09 pm

"Spandex Rutabaga" <SpRu@agabatur.xednaps> wrote in message
news:44BABB79.4666E4A9@agabatur.xednaps...
> Lori Davis wrote:
>
>
> I think you all should submit more bug reports. UDF is a very
> convenient part of PSP for people who know a little about image
> editing. To have it be dysfunctional cripples a valuable feature
> of the program not easily found elsewhere. Without a push it is
> unlikely Corel will fix a "technical" thing like UDF, seeing
> more value in simplification and new tools based on presets for
> old ones.

I entirely agree and will post a bug report. Among other things, I think
I'll mention that this behavior is unlike not only that in previous versions
of PSP but also the behavior of custom filters in PS and PSE (and the
equivalent in other image editors as well).

Lori