Zaph
Mitglied
- Registriert
- 13.01.03
- Beiträge
- 191
Hi,
die neue Script-Funktion ist Klasse.
ich hab mal eine Funktion geschrieben, die ein Bild so um einen schwarzen Rahmen erweitert, dass ein festes Verhältnis Breite zu Höhe entsteht und einen prozentualen Rahmen hinzufügt.
Anwendung: Vorbereitung von Bildern für eine VCD-Fotoshow (4:3). Was fehlt, ist jetzt noch eine Skalierung auf eine festgelegte Auflösung (was man aber auch mit der Stapelverarbeitung machen kann).
Viel Spass und ohne Gewähr natürlich ;-)
Zaph
die neue Script-Funktion ist Klasse.
ich hab mal eine Funktion geschrieben, die ein Bild so um einen schwarzen Rahmen erweitert, dass ein festes Verhältnis Breite zu Höhe entsteht und einen prozentualen Rahmen hinzufügt.
Anwendung: Vorbereitung von Bildern für eine VCD-Fotoshow (4:3). Was fehlt, ist jetzt noch eine Skalierung auf eine festgelegte Auflösung (was man aber auch mit der Stapelverarbeitung machen kann).
Viel Spass und ohne Gewähr natürlich ;-)
Zaph
Code:
Dim i,j
Dim x,y
Dim imagenum
Dim name
Dim v
Dim dx, dy
Dim vx, vy, vg
Dim prahm
' Verhältnis x/y, hier 4/3
vx = 4
vy = 3
' Rahmenbreite in %, hier 5%
prahm = 5
vg = vy/vx
imagenum = FF_GetImageCount
for i=0 to imagenum-1
name = FF_GetImageName(i)
call FF_LoadImage(name)
x = FF_GetImageWidth
y = FF_GetImageHeight
v=y/x
' ggf. Breite ändern
If v > vg Then
dx = ((y / vy * vx) - x) / 2
Call FF_ExtendCanvas(dx,dx,0,0,0,0,0)
End if
' ggf. Höhe ändern
If v < vg Then
dy = ((x / vx * vy) - y) / 2
Call FF_ExtendCanvas(0,0,dy,dy,0,0,0)
End If
' Rahmen
x = FF_GetImageWidth
y = FF_GetImageHeight
dx = x * prahm/100 / 2
dy = y * prahm/100 / 2
Call FF_ExtendCanvas(dx,dx,dy,dy,0,0,0)
Call FF_SaveImage(name,0)
next
Zuletzt bearbeitet von einem Moderator:
