PSP_9_Frame_Script
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
Newsgroups: corel.PaintShopPro_Scrapbooking
Subject: Re: Simple Ribbon Frame script (attachments 83kb and 2 whole kb!)
I've only gotten it to work in 9 - still trying to work out the bugs in 8. But for those using 9, here it is
Sally Beacham wrote:
> On Mon, 16 Jan 2006 09:38:21 -0500, Spica <eafagel@nsnetscape.net>
> wrote:
>
>> Sally, I had to make some adjustments to your script for it to work in
>> PSP9 - since I don't use vX.
>>
>> Would like your permission to post the new version for those still using 9.
>
> Certainly - please do!
>
> Sally
from JascApp import *
def ScriptProperties():
return {
'Author': u'Sally Beacham',
'Copyright': u'dizteq 2005',
'Description': u'Modified to work in PSP9 via permission from Sally.
Elizabeth Hancock',
'Host': u'Paint Shop Pro 9',
'Host Version': u''
}
def Do(Environment):
# EnableOptimizedScriptUndo
App.Do( Environment, 'EnableOptimizedScriptUndo', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,0,2),1)
}
})
# ResizeCanvas
App.Do( Environment, 'ResizeCanvas', {
'AspectRatio': 6.25,
'FillColor': (255,255,255),
'HoriPlace': App.Constants.HorizontalType.Center,
'MaintainAspect': False,
'NewDimUnits': App.Constants.UnitsOfMeasure.Inches,
'NewHeight': 3,
'NewWidth': 3,
'PlaceBottom': 1.26,
'PlaceLeft': 0,
'PlaceRight': 0,
'PlaceTop': 1.26,
'VertPlace': App.Constants.VerticalType.Center,
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,0,2),1)
}
})
# Kaleidoscope
App.Do( Environment, 'Kaleidoscope', {
'Angle': 90,
'HorizontalOffset': -100,
'Scale': -10,
'VerticalOffset': -100,
'NumOrbits': 0,
'RadialSuction': 1,
'NumPetals': 4,
'EdgeMode': App.Constants.EdgeMode.Wrap,
'FillColor': (61,188,148),
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,0,2),1)
}
})
INDEX NEXT