• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag
 

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Re: How do we Convert PICT to JPEG
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: How do we Convert PICT to JPEG


  • Subject: Re: How do we Convert PICT to JPEG
  • From: Yvan KOENIG <email@hidden>
  • Date: Mon, 17 Aug 2015 23:09:59 +0200

Adding a filter was so easy that I didn't wait before inserting it 😉

use scripting additions
use framework "Foundation"
use framework "AppKit"

set thePicture to (path to desktop as text) & "créer clé El Capitan.jpeg"

my convertPictureFileAt:{POSIX path of thePicture, "jpg"}

on convertPictureFileAt:{posixPath, destExt} # may be "png" or "jpg"
-- build new path
if (posixPath ends with ("." & destExt)) or (posixPath ends with ".jpeg" and destExt is "jpg") then
error posixPath & " is already a ." & destExt & " file !"
else
set oldPath to current application's NSString's stringWithString:posixPath
set newPath to oldPath's stringByDeletingPathExtension()'s stringByAppendingPathExtension:destExt # EDITED
-- make NSImage from file
set theImage to current application's NSImage's alloc()'s initWithContentsOfFile:oldPath
-- get TIFF version as data
set theData to theImage's TIFFRepresentation()
-- make bitmap representation from TIFF data
set bitmapImageRep to current application's NSBitmapImageRep's imageRepWithData:theData
-- extract jpeg representation from bitmap
if destExt = "png" then
set theData to bitmapImageRep's representationUsingType:(current application's NSPNGFileType) |properties|:{NSImageCompressionFactor:1.0} -- between 0.0 and 1.0
else
set theData to bitmapImageRep's representationUsingType:(current application's NSJPEGFileType) |properties|:{NSImageCompressionFactor:1.0} -- between 0.0 and 1.0 
end if
--save to file
theData's writeToFile:newPath atomically:true
end if
end convertPictureFileAt:



Yvan KOENIG running Yosemite 10.10.5 in French (VALLAURIS, France) lundi 17 août 2015 23:05:33




 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden

  • Follow-Ups:
    • Re: How do we Convert PICT to JPEG
      • From: Shane Stanley <email@hidden>
References: 
 >How do we Convert PICT to JPEG (From: Malcolm Fitzgerald <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Iurista GmbH <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Mark Hunte <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Shane Stanley <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Shane Stanley <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Yvan KOENIG <email@hidden>)
 >Re: How do we Convert PICT to JPEG (From: Yvan KOENIG <email@hidden>)

  • Prev by Date: Re: How do we Convert PICT to JPEG
  • Next by Date: Re: issues with a find
  • Previous by thread: Re: How do we Convert PICT to JPEG
  • Next by thread: Re: How do we Convert PICT to JPEG
  • Index(es):
    • Date
    • Thread