Neue Testversion 20.90b10
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Got the basics working - I remembered the scripting documentation.
After discovering "SelectedLayers" it was smooth sailing from there. Very simple.
Dim pl
Dim doc
Dim layer
Dim layers
Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument
pl.Visible = True
If Not doc Is Nothing Then
Set layers = doc.SelectedLayers
If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", 300, "ValueY", 300, "Interpolation", 6,"ShowDialog",true
Next
End If
End If
After discovering "SelectedLayers" it was smooth sailing from there. Very simple.
Dim pl
Dim doc
Dim layer
Dim layers
Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument
pl.Visible = True
If Not doc Is Nothing Then
Set layers = doc.SelectedLayers
If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", 300, "ValueY", 300, "Interpolation", 6,"ShowDialog",true
Next
End If
End If
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Entwickler
- Beiträge: 4176
- Registriert: Di 19 Nov 2002 15:49
Re: Neue Testversion 20.90b10
I was too slow. The corresponding AppleScript looks like this:Herbert123 hat geschrieben: ↑Fr 18 Mai 2018 09:45 Got the basics working - I remembered the scripting documentation.
Code: Alles auswählen
tell application "PhotoLine"
try
set doc to front document
on error
set doc to missing value
end try
if doc is not missing value then
set selLayers to selected layers of doc
repeat with actLayer in selLayers
-- if type of layer is LTImage then
-- 5 is the fitting scale mode, 6 is Catmull Rom interpolation
actLayer do operation type "Scale" with options {|Mode|:5, |ValueX|:300, |ValueY|:300, |Interpolation|:6}
-- end if
end repeat
end if
end tell
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
How do you call an input dialog? Can't seem to find it. ShowDialog displays a dialog (obviously) for each layer in the array.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
No matter, I got it. I've never used VBA before, so I figured I'd read up on basic VBA dialogs.
This is what I got so far. Error checking I'll add tomorrow morning (it is late!). But this is fun, and it solves my problem with scaling multiple selected layers in one step! Scripting is super useful, and I am very thankful for the addition.
Option Explicit
Dim pl
Dim doc
Dim layer
Dim layers
Dim fsize
Dim scaleNum
Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument
pl.Visible = True
If Not doc Is Nothing Then
Set layers = doc.SelectedLayers
fsize=InputBox("Enter the width or height:","Scale Selected Layers","Enter number here")
scaleNum = CInt(fsize)
If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", scaleNum, "ValueY", scaleNum, "Interpolation", 6
Next
Else
MsgBox("No Layers Selected!")
End If
End If
This is what I got so far. Error checking I'll add tomorrow morning (it is late!). But this is fun, and it solves my problem with scaling multiple selected layers in one step! Scripting is super useful, and I am very thankful for the addition.
Option Explicit
Dim pl
Dim doc
Dim layer
Dim layers
Dim fsize
Dim scaleNum
Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument
pl.Visible = True
If Not doc Is Nothing Then
Set layers = doc.SelectedLayers
fsize=InputBox("Enter the width or height:","Scale Selected Layers","Enter number here")
scaleNum = CInt(fsize)
If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", scaleNum, "ValueY", scaleNum, "Interpolation", 6
Next
Else
MsgBox("No Layers Selected!")
End If
End If
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Actually, I could not sleep until I finished the script. Added some error checking, and handling of the cancel button. Still need to handle the input (check if it is numeric) and Ideally I'd like to create a more complex form in which the user can choose the interpolation mode and some other related options. Later
Again, I have to get used to VBA - never used it before. Google was my best friend tonight! But it proved to be pretty simple so far.
I attached the script for those who are interested (it proportionally scales all selected layers to a defined width or height).
Again, I have to get used to VBA - never used it before. Google was my best friend tonight! But it proved to be pretty simple so far.
I attached the script for those who are interested (it proportionally scales all selected layers to a defined width or height).
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Entwickler
- Beiträge: 4176
- Registriert: Di 19 Nov 2002 15:49
Re: Neue Testversion 20.90b10
Yes, VBS is sometimes a bit strange, but overall quite simple.Herbert123 hat geschrieben: ↑Fr 18 Mai 2018 11:17 Actually, I could not sleep until I finished the script. Added some error checking, and handling of the cancel button. Still need to handle the input (check if it is numeric) and Ideally I'd like to create a more complex form in which the user can choose the interpolation mode and some other related options. Later
Again, I have to get used to VBA - never used it before. Google was my best friend tonight! But it proved to be pretty simple so far.
I am planning to add a ShowOperationDialog command showing the dialog of an operation, but not executing it. Instead it will return the dialog settings which can be used for a DoOperation later on. So something like
Code: Alles auswählen
Dim dialogSettings
Set dialogSettings = layer.ShowOperationDialog("Scale")
layer.doOperation "Scale", dialogSettings
One warning: I just discovered, that PhotoLine won't terminate correctly, if you are using "for each" with an IPLLayerArray. It will continue to run in the background after quit. I will fix that.
Martin
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
For some reason the mini browser scrolling and scroll bar are deactivated when I show the recent files list. Scrolling with the scrollwheel doesn't work either. When I zoom in more, it works again. And yes, there's overflowing content that is hidden, so the scrolling should be working.
When I open one of my favourite image folders, it works.
When I open one of my favourite image folders, it works.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Bug custom rotation point reset
When a layer is rotated around a custom rotation point, and the rotation is reset, PhotoLine will use the top left corner instead of the custom rotation point to reset the rotation, causing the layer to move from its original position.
Ideally PhotoLine would use the same custom rotation point to reset the layer's rotation, and not changing the position.
I mentioned this issue a while ago, but I think I wasn't clear enough.
When a layer is rotated around a custom rotation point, and the rotation is reset, PhotoLine will use the top left corner instead of the custom rotation point to reset the rotation, causing the layer to move from its original position.
Ideally PhotoLine would use the same custom rotation point to reset the layer's rotation, and not changing the position.
I mentioned this issue a while ago, but I think I wasn't clear enough.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Weirdly enough it works again. Must have been a glitch.Herbert123 hat geschrieben: ↑So 20 Mai 2018 02:55 For some reason the mini browser scrolling and scroll bar are deactivated when I show the recent files list. Scrolling with the scrollwheel doesn't work either. When I zoom in more, it works again. And yes, there's overflowing content that is hidden, so the scrolling should be working.
When I open one of my favourite image folders, it works.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Bug layer effect Shadow Inside
Shadow inside with a soft border causes a rendering error (shadow is cut off).
Shadow inside with a soft border causes a rendering error (shadow is cut off).
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Entwickler
- Beiträge: 4176
- Registriert: Di 19 Nov 2002 15:49
Re: Neue Testversion 20.90b10
Do you have a small sample document?Herbert123 hat geschrieben: ↑Mo 21 Mai 2018 08:53 Bug layer effect Shadow Inside
Shadow inside with a soft border causes a rendering error (shadow is cut off).
Martin
-
- Mitglied
- Beiträge: 2172
- Registriert: Sa 12 Mai 2012 21:38
Re: Neue Testversion 20.90b10
Yes, here is a simple example attached.Martin Huber hat geschrieben: ↑Di 22 Mai 2018 17:34Do you have a small sample document?Herbert123 hat geschrieben: ↑Mo 21 Mai 2018 08:53 Bug layer effect Shadow Inside
Shadow inside with a soft border causes a rendering error (shadow is cut off).
Martin
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
/*---------------------------------------------*/
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
System: Win10 64bit - i7 920@3.6Ghz, p6t Deluxe v1, 48gb (6x8gb RipjawsX), Nvidia GTX1080 8GB, Revodrive X2 240gb, e-mu 1820, 2XSamsung SA850 (2560*1440) and 1XHP2408H 1920*1200 portrait
-
- Entwickler
- Beiträge: 4176
- Registriert: Di 19 Nov 2002 15:49
Re: Neue Testversion 20.90b10
I will fix that.Herbert123 hat geschrieben: ↑Di 22 Mai 2018 21:02 Bug layer effect Shadow Inside
Shadow inside with a soft border causes a rendering error (shadow is cut off).
Martin
-
- Mitglied
- Beiträge: 874
- Registriert: Di 14 Okt 2003 08:19
- Wohnort: BW
Re: Neue Testversion 20.90b10
Ich habe ein Wacom Intuos und habe eine der Seitentasten mit doppelklick belegt um bei Verwendung des Vektorlassos einfacher einen Punkt einzufügen. Das funktioniert unter High Sierra leider nicht richtig. Der Doppelklick mit dem Vektorlasso muss so genau gesetzt werden, dass es eher Zufall ist wenn es mal klappt. Unter Windows 7 hab ich mit meinem größeren Wacom kein Problem. Vielleicht könnt ihr da mal reinschauen, danke.
-
- Mitglied
- Beiträge: 90
- Registriert: Mo 23 Dez 2013 07:01
- Wohnort: Palo Alto, California, USA
Rotating in Show Image doesn't.
Looking at an iPhone jpg in Browse, the thumbnail image is rotated automatically correctly (in my case, to portrait). When I use Show Image within Browse, the image is not rotated correctly (it is still landscape). And when I click on the Rotate Right button at the bottom of Show Image, the image I am viewing doesn't rotate, but the thumbnail in the Browse index does! However, after that closing and reopening the image with Show image, the rotation then matches the thumbnail.
If it helps, here's the exif:
$ exiftool-5.26 ~/Desktop/2018-05-27/IMG_1044.jpg
ExifTool Version Number : 10.73
File Name : IMG_1044.jpg
Directory : /Users/asharpe/Desktop/2018-05-27
File Size : 3.3 MB
File Modification Date/Time : 2017:12:28 12:07:18-08:00
File Access Date/Time : 2018:05:28 11:57:15-07:00
File Inode Change Date/Time : 2018:05:28 10:37:07-07:00
File Permissions : rwxr-xr-x
File Type : JPEG
File Type Extension : jpg
MIME Type : image/jpeg
Exif Byte Order : Big-endian (Motorola, MM)
Make : Apple
Camera Model Name : iPhone 5s
Orientation : Rotate 90 CW
X Resolution : 72
Y Resolution : 72
Resolution Unit : inches
Software : 11.1
Modify Date : 2017:12:28 12:07:18
Y Cb Cr Positioning : Centered
Exposure Time : 1/120
F Number : 2.2
Exposure Program : Program AE
ISO : 50
Exif Version : 0221
Date/Time Original : 2017:12:28 12:07:18
Create Date : 2017:12:28 12:07:18
Components Configuration : Y, Cb, Cr, -
Shutter Speed Value : 1/120
Aperture Value : 2.2
Brightness Value : 5.22029148
Exposure Compensation : 0
Metering Mode : Spot
Flash : Off, Did not fire
Focal Length : 4.2 mm
Subject Area : 1682 996 610 612
Run Time Flags : Valid
Run Time Value : 1179109701290750
Run Time Scale : 1000000000
Run Time Epoch : 0
Acceleration Vector : 0.07046475259 -0.8186275365 -0.5698596705
HDR Image Type : HDR Image
Image Unique ID : 94E39CAE-9D77-4527-A49B-AE0F3069F654
Sub Sec Time Original : 858
Sub Sec Time Digitized : 858
Flashpix Version : 0100
Color Space : sRGB
Exif Image Width : 3264
Exif Image Height : 2448
Sensing Method : One-chip color area
Scene Type : Directly photographed
Custom Rendered : HDR
Exposure Mode : Auto
White Balance : Auto
Focal Length In 35mm Format : 29 mm
Scene Capture Type : Standard
Lens Info : 4.15mm f/2.2
Lens Make : Apple
Lens Model : iPhone 5s back camera 4.15mm f/2.2
Compression : JPEG (old-style)
Thumbnail Offset : 1802
Thumbnail Length : 11582
Image Width : 3264
Image Height : 2448
Encoding Process : Baseline DCT, Huffman coding
Bits Per Sample : 8
Color Components : 3
Y Cb Cr Sub Sampling : YCbCr4:2:0 (2 2)
Aperture : 2.2
Image Size : 3264x2448
Megapixels : 8.0
Run Time Since Power Up : 13 days 15:31:49
Scale Factor To 35 mm Equivalent: 7.0
Shutter Speed : 1/120
Create Date : 2017:12:28 12:07:18.858
Date/Time Original : 2017:12:28 12:07:18.858
Thumbnail Image : (Binary data 11582 bytes, use -b option to extract)
Circle Of Confusion : 0.004 mm
Field Of View : 63.7 deg
Focal Length : 4.2 mm (35 mm equivalent: 29.0 mm)
Hyperfocal Distance : 1.82 m
Light Value : 10.2
If it helps, here's the exif:
$ exiftool-5.26 ~/Desktop/2018-05-27/IMG_1044.jpg
ExifTool Version Number : 10.73
File Name : IMG_1044.jpg
Directory : /Users/asharpe/Desktop/2018-05-27
File Size : 3.3 MB
File Modification Date/Time : 2017:12:28 12:07:18-08:00
File Access Date/Time : 2018:05:28 11:57:15-07:00
File Inode Change Date/Time : 2018:05:28 10:37:07-07:00
File Permissions : rwxr-xr-x
File Type : JPEG
File Type Extension : jpg
MIME Type : image/jpeg
Exif Byte Order : Big-endian (Motorola, MM)
Make : Apple
Camera Model Name : iPhone 5s
Orientation : Rotate 90 CW
X Resolution : 72
Y Resolution : 72
Resolution Unit : inches
Software : 11.1
Modify Date : 2017:12:28 12:07:18
Y Cb Cr Positioning : Centered
Exposure Time : 1/120
F Number : 2.2
Exposure Program : Program AE
ISO : 50
Exif Version : 0221
Date/Time Original : 2017:12:28 12:07:18
Create Date : 2017:12:28 12:07:18
Components Configuration : Y, Cb, Cr, -
Shutter Speed Value : 1/120
Aperture Value : 2.2
Brightness Value : 5.22029148
Exposure Compensation : 0
Metering Mode : Spot
Flash : Off, Did not fire
Focal Length : 4.2 mm
Subject Area : 1682 996 610 612
Run Time Flags : Valid
Run Time Value : 1179109701290750
Run Time Scale : 1000000000
Run Time Epoch : 0
Acceleration Vector : 0.07046475259 -0.8186275365 -0.5698596705
HDR Image Type : HDR Image
Image Unique ID : 94E39CAE-9D77-4527-A49B-AE0F3069F654
Sub Sec Time Original : 858
Sub Sec Time Digitized : 858
Flashpix Version : 0100
Color Space : sRGB
Exif Image Width : 3264
Exif Image Height : 2448
Sensing Method : One-chip color area
Scene Type : Directly photographed
Custom Rendered : HDR
Exposure Mode : Auto
White Balance : Auto
Focal Length In 35mm Format : 29 mm
Scene Capture Type : Standard
Lens Info : 4.15mm f/2.2
Lens Make : Apple
Lens Model : iPhone 5s back camera 4.15mm f/2.2
Compression : JPEG (old-style)
Thumbnail Offset : 1802
Thumbnail Length : 11582
Image Width : 3264
Image Height : 2448
Encoding Process : Baseline DCT, Huffman coding
Bits Per Sample : 8
Color Components : 3
Y Cb Cr Sub Sampling : YCbCr4:2:0 (2 2)
Aperture : 2.2
Image Size : 3264x2448
Megapixels : 8.0
Run Time Since Power Up : 13 days 15:31:49
Scale Factor To 35 mm Equivalent: 7.0
Shutter Speed : 1/120
Create Date : 2017:12:28 12:07:18.858
Date/Time Original : 2017:12:28 12:07:18.858
Thumbnail Image : (Binary data 11582 bytes, use -b option to extract)
Circle Of Confusion : 0.004 mm
Field Of View : 63.7 deg
Focal Length : 4.2 mm (35 mm equivalent: 29.0 mm)
Hyperfocal Distance : 1.82 m
Light Value : 10.2