http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl? http://www.eblah.com en http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1258091883/ http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1258091883/#num1
from PSPApp import *

def ScriptProperties():
    return {
        'Author': u'',
        'Copyright': u'',
        'Description': u'',
        'Host': u'Paint Shop Pro X',
        'Host Version': u'10.03'
        }

def Do(Environment):
    # EnableOptimizedScriptUndo
    App.Do( Environment, 'EnableOptimizedScriptUndo', {
            'GeneralSettings': {
                'ExecutionMode': App.Constants.ExecutionMode.Default,
                'AutoActionMode': App.Constants.AutoActionMode.Match,
                'Version': ((10,0,3),1)
                }
            })

    # Resize
    App.Do( Environment, 'Resize', {
            'AspectRatio': 1.25,     I'd like to have it apply to any aspect ratio
            'CurrentDimensionUnits': App.Constants.UnitsOfMeasure.Pixels,
            'CurrentResolutionUnits': App.Constants.ResolutionUnits.PixelsPerIn,
            'Height': 1520,     I'd like to have it apply to any height
            'MaintainAspectRatio': True,
            'Resample': True,
            'ResampleType': App.Constants.ResampleType.Bicubic,
            'ResizeAllLayers': True,
            'Resolution': 300, I don't care about this; how can I leave it out?  But it can stay if it must.
            'Width': 1900, I do want this width, but "longer side" would be better.  Better still would be the
                                 capability of changing this number--but running it interactively would do that, yes?
            'GeneralSettings': {
                'ExecutionMode': App.Constants.ExecutionMode.Default,
                'AutoActionMode': App.Constants.AutoActionMode.Match,
                'Version': ((10,0,3),1)
                }
            })

    # Resize
    App.Do( Environment, 'Resize', {
            'AspectRatio': 1.25,     I'd like to have it apply to any aspect ratio
            'CurrentDimensionUnits': App.Constants.UnitsOfMeasure.Pixels,
            'CurrentResolutionUnits': App.Constants.ResolutionUnits.PixelsPerIn,
            'Height': 912,      again, any height; it occurs to me that, since PSP records and specifies only the
                                       current height, that the resize command works on a height-preferred basis; for my needs (web
                                       images),  width-preferred works much better, and longer-side would work best
            'MaintainAspectRatio': True,
            'Resample': True,
            'ResampleType': App.Constants.ResampleType.SmartSize,
            'ResizeAllLayers': True,
            'Resolution': 300,
            'Width': 1140,          I do want this width as I did above.
            'GeneralSettings': {
                'ExecutionMode': App.Constants.ExecutionMode.Default,
                'AutoActionMode': App.Constants.AutoActionMode.Match,
                'Version': ((10,0,3),1)
                }
            })

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

In brief, I want a resizing script that will maintain the image's aspect ratio as it first resizes (bicubic) to 1900 on longer side, then resizes (smartsize) to 1140 on longer side, and then displays the image at 100%.   If the longer-side values can be changed while the script runs, so much the better; but I don't mind having several scripts to use for the several sizes I use most.

I tried to make sense of and then use the resizing script that Jerseyguy posted a while back (here), but I couldn't get it to run because of an "environment not defined" error that prevented the script from loading even though I appended the
from PSPApp import *

def ScriptProperties():
    return {
        'Author': u'',
        'Copyright': u'',
        'Description': u'',
        'Host': u'Paint Shop Pro X',
        'Host Version': u'10.03'
        }

def Do(Environment):
from a script that I recorded and that did run.  And I've been trying to use the "Paint Shop Pro X Scripting for Script Authors (Revision 7   March 10, 2006)" document, but my mind is not working well with it, and I couldn't even find where it tells how to specify "Environment."

Re Jerseyguy's script, where he specified
ImageInfo = App.Do( Environment, 'ReturnImageInfo',)
    BrooksWidth = (ImageInfo['Width'] + 0.1 - 0.1)
    BrooksHeight = (ImageInfo['Height'] + 0.1 - 0.1)
    BrooksAspect = (BrooksWidth / BrooksHeight)
    BrooksChange = (825 / BrooksWidth)
    BrooksNewHeight = (BrooksHeight * BrooksChange), and you (Willy) suggested a revision so it would be

ImageInfo = App.Do( Environment, 'ReturnImageInfo',)
    BrooksWidth = ImageInfo['Width']*1.0    
    BrooksHeight = ImageInfo['Height']*1.0
    BrooksAspect = (BrooksWidth / BrooksHeight)
    BrooksChange = (825 / BrooksWidth)
    BrooksNewHeight = (BrooksHeight * BrooksChange) ,  I have these questions:

(1) Is what I copied immediately above how you would have those lines?
(2) Is the "Brooks" in this script an arbitrary identifier?  I mean, could it be "PurpleWidth" and "PurpleHeight" all the way through and still work?
(3) Isn't this--"ImageInfo = App.Do( Environment, 'ReturnImageInfo',)"--the definition of Environment? is it okay?  I'm assuming that that line is what my error message about not having defined Environment refers to, since it's the first instance of "Environment" and the script doesn't even finish loading...  How should Environment be defined so a script will run?  Or am I missing another, earlier-in-Jerseyguy's-script (which part he didn't post), definition of Environment?

Now my headache is coming back      from just phrasing this stuff.  Any help you can give me, including (if you want) telling me where to look in the Scripting-for-Script-Authors document, or any other place (if it's clearly written), I'll appreciate greatly.  I think I am running up against new-information-overload.  I've even had to copy down the steps to follow to get my Nikon to do autobracketing . . .         (That's really easy compared to this scripting: only one FN button, two setting wheels, and one release-mode button to depress and then turn the thingy up there, but maybe I've left something out.)]]> Fri, 13 Nov 2009 00:58:03 D_Spider http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1258044484/ http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1258044484/#num1
It seems like it would need to be paused somehow and then they choose their tube, and then click something to continue with the script.

Hope someone can help

Joanne]]> Thu, 12 Nov 2009 11:48:04 jojomart http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1257454544/ http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1257454544/#num1 ]]> Thu, 5 Nov 2009 15:55:44 Ginni Morey http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1254756218/ http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1254756218/#num1
Anything 701 pixels wide or larger needs to be resized (lock aspect ratio) to 700 pixels wide.

Thanks,
Paige]]> Mon, 5 Oct 2009 11:23:38 rnguslo http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1252007488/ http://pspug.org/cgi-bin/forum/Blah.pl/Blah.pl?m-1252007488/#num1
I have thousands of pictures I need resized to 825 pixels wide, while locking the aspect ratio.
The images are all different sizes, and all different aspect ratios.

To do this with 1 image I can do.
I can also create a script to do this.

But when I run the script on the whole batch of images, it locks the aspect ratio of the image that I recorded the script with, and imposes this on all images.  So some images appear squished or stretched
I tried playing around with the script itself, to no avail.

Can anyone help?
Here's the part of the script for the resize...

# Resize
    App.Do( Environment, 'Resize', {
            'AspectRatio': 2.42907,
            'CurrentDimensionUnits': App.Constants.UnitsOfMeasure.Pixels,
            'CurrentResolutionUnits': App.Constants.ResolutionUnits.PixelsPerIn,
            'Height': 340,
            'MaintainAspectRatio': True,
            'Resample': True,
            'ResampleType': App.Constants.ResampleType.SmartSize,
            'ResizeAllLayers': True,
            'Resolution': 300,
            'Width': 825,
            'SharpnessValue': 50,
            'AdvancedMode': True,
            'GeneralSettings': {
                'ExecutionMode': App.Constants.ExecutionMode.Default,
                'AutoActionMode': App.Constants.AutoActionMode.Match,
                'Version': ((12,5,0),1)
                }
            })

You can see the height shows 340, which is only for the part I created the script on.  I tried removing this line, but it didn't solve my problem.]]> Thu, 3 Sep 2009 15:51:28 jerseyguy