applescript to split multipage tiff - macos

Question

I'm trying to make a pdf of a multipage tiff file.
I managed to do that in windows with image magick.
In a project we are working together with a macbook with OSX (new to me).
And there should it be possible to.
Is there a script/automator... to do this.
Now I split the multipage tiff (2pages) in preview manually: open the tiff, drag each page to a folder and than I run a script to make a pdf.
Can that be done in a script?

Answer 1

I greet every user who tries to do without third-party applications where possible. The question asked by the OP is much more interesting than many of the trivial questions popping up in this section. Moreover, I do not understand the minuses put down by two users to the question asked. Here's the solution:
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "QuartzCore"
use framework "Quartz"
use framework "AppKit"
property |NSURL| : a reference to current application's |NSURL|
property NSString : a reference to current application's NSString
property PDFPage : a reference to current application's PDFPage
property NSImage : a reference to current application's NSImage
property PDFDocument : a reference to current application's PDFDocument
property NSBitmapImageRep : a reference to current application's NSBitmapImageRep
-- select TIFF
set anAlias to choose file of type {"public.tiff"} with prompt "Select Multi-page tiff file"
-- get selected TIFF's name and base name
tell application "Finder"
set pathString to NSString's stringWithString:(name of anAlias)
set baseName to (pathString's stringByDeletingPathExtension()) as text
end tell
-- make new destination folder (if it doesn't exist already)
tell application "Finder"
try
set destinationFolder to (make new folder at desktop with properties {name:baseName}) as text
on error
set destinationFolder to "" & (path to desktop folder) & baseName
end try
end tell
set destinationFolder to POSIX path of destinationFolder
--Read Multi-Page TIFF
set aURL to |NSURL|'s fileURLWithPath:(POSIX path of anAlias)
set aImage to NSImage's alloc()'s initWithContentsOfURL:aURL
set aRawimg to aImage's TIFFRepresentation()
set eachTiffPages to (NSBitmapImageRep's imageRepsWithData:aRawimg) as list
-- extract each tiff page as PDF file
set pageNum to 1
repeat with curPage in eachTiffPages
set thisImage to contents of curPage
set aImg to (NSImage's alloc()'s initWithSize:(thisImage's |size|()))
(aImg's addRepresentation:thisImage)
--Make Blank PDF
set aPDFdoc to PDFDocument's alloc()'s init()
-- set PDF first page's content to next image
(aPDFdoc's insertPage:(PDFPage's alloc()'s initWithImage:aImg) atIndex:0)
-- write PDF to destination
set outPutPath to destinationFolder & "/Page_" & pageNum & ".pdf"
(aPDFdoc's writeToFile:outPutPath)
set pageNum to pageNum + 1
end repeat