Zitat

set myfilecount to 0

on open names
set myfilecount to 1

set myapppath to path to me as string
set myapppath to POSIX path of myapppath

repeat with this_item in names
set myfilecount to myfilecount + 1

set appcmd to myapppath
set appcmd to appcmd & "../ktransform"
set appcmd to quoted form of appcmd

set param1 to quoted form of POSIX path of this_item
set param2 to POSIX path of this_item
set param2 to param2 & "_pano.jpg" //hier stand vorher _cube.tif
set param2 to quoted form of param2

set mycmd to appcmd & " cube6 " & param1 & " " & param2
tell application "Terminal"
do script mycmd
end tell

end repeat
end open

Zitat

set myfilecount to 0

on open names
set myfilelist to " "
set myfilecount to 1

repeat with this_item in names
set myfilecount to myfilecount + 1
set myPath to quoted form of POSIX path of this_item
set myfilelist to myfilelist & " " & myPath
end repeat

set myapppath to path to me as string
set myapppath to POSIX path of myapppath
set myapppath to myapppath & "../kcube2sphere"
set myapppath to quoted form of myapppath

set mycmd to myapppath & " " & myfilelist

tell application "Terminal"
do script mycmd
end tell
end open

if myfilecount < 1 then
display alert "CUBE to SPHERE DROPLET (kcube2sphere)" & return & "(krpano.com - krpanotools 1.0.8)" & return & return & "usage:" & return & return & "- drag & drop the cube panorama images on this droplet to generate a spherical panoramas of it (only 8bit RGB and RGBA jpeg or tiff images supported)" & return & return & "- the cubical images must have suffixes like '_l', '_r', or 'left', 'front' ... in their filename to allow automatic identification of the cubeside" & return & return


end if

Zitat

set myfilecount to 0

on open names
set myfilelist to " "
set myfilecount to 1

repeat with this_item in names
set myfilecount to myfilecount + 1
set myPath to quoted form of POSIX path of this_item
set myfilelist to myfilelist & " " & myPath
end repeat

set myapppath to path to me as string
set myapppath to POSIX path of myapppath
set myapppath to myapppath & "../kcube2sphere"
set myapppath to quoted form of myapppath

set mycmd to myapppath & " " & myfilelist & " " & "-o=/Users/Marc/Desktop/pano.jpg" & " " & "-jpegquality=50"

tell application "Terminal"
do script mycmd
end tell
end open

if myfilecount < 1 then
display alert "CUBE to SPHERE DROPLET (kcube2sphere)" & return & "(krpano.com - krpanotools 1.0.8)" & return & return & "usage:" & return & return & "- drag & drop the cube panorama images on this droplet to generate a spherical panoramas of it (only 8bit RGB and RGBA jpeg or tiff images supported)" & return & return & "- the cubical images must have suffixes like '_l', '_r', or 'left', 'front' ... in their filename to allow automatic identification of the cubeside" & return & return


end if

Zitat von »klaus.krpano«

Zitat von »MarcW.«

Kurze NEbenfrage noch, wie komm ich als angemeldeter User in die englischen Foren? Ich muss mich dazu immer ausloggen, erst dann kann ich auch die englischen Beiträge lesen.

das kann in den Profil Einstellungen festgelegt werden,
dort gibt es diese Option:

"Zeige Inhalte in folgenden Sprachen an [x] Deutsch [x] English"

Schöne Grüße,
Klaus