Is there no AS'r up to the challenge of helping a beginner?
Is there no AS'r up to the challenge of helping a beginner?
- Subject: Is there no AS'r up to the challenge of helping a beginner?
- From: Scott Schrader <email@hidden>
- Date: Thu, 23 May 2002 15:04:18 -0700
I've tried 2 different subjects on this to no help at all :-( . I feel
I'm on the cusp of not giving up again for time if someone would just
hold my hand through this. Here it is again:
http://www.apple.com/applescript/qtas.html
- the QUICKTIME 5.0.2 SCRIPTS -
1. Would like to combine the "Set Transfer Mode of Track(s)" & "Set
Operation Color of Track(s)" within the "Tracks" of the "QuickTime Player
Scripts" for use in the OSA menu or whatever you call it in OSX when #2
below won't cut it.
2. Would like these combined to do a transparent mode of white.
Out of the Media Skin Droplet I pulled this code:
property operation_color : "50% Gray"
property operation_RBG : {32768, 32768, 32768}
tell movie 1
set the operation color of track WaterMark_filename to the
operation_RBG
set the transfer mode of track WaterMark_filename to
transparent of mode_list
end tell
tried switching the above line: from "to transparent of mode_list " to "of
mode_list to transparent"
The 1st gives an error at runtime in Script Editor of Can't get
transparent of mode_list. Access not allowed. The 2nd says Quicktime
Player got an error: Unknown object type.
See the code below:
3. Would like to add #2 to the "Hotpick Builder" within the "Automation
Example".
See the code below:
4. In the Hotpick Builder script I've tried changing one of the .jpg's
to .mov which returns the message "The required images must be in the
same folder as this script." The movie is in the same folder and my movie
is definitely QT creator and type so I don't get why this won't work
since the track created by this script is a movie track? The main point
here is that I want to composite 2-3 banner movies into one for DV & web
which I can then burn a dvd portfolio of, not to mention the experience
of figuring out how to write an AS.
Below is the code I've come up with:
property movie_width : 720
property movie_height : 480
property VIlogo_filename : "LogoGold720x480.psd"
property VI_HREF : "
http://www.videointegrations.com";
property VIlogo_offset : {0, 0}
property benevolence_filename : "benevolence.jpg"
property love_HREF : "
http://www.applescript.com";
property benevolence_offset : {300, 260}
property WaterMark_filename : "VIwatermark2"
property WaterMark_offset : {340, 225}
property operation_RBG : {32768, 32768, 32768}
property mode_list : {"dither copy", "no dither copy", "blend", ,
"transparent", "straight alpha", "premul white alpha", ,
"premul black alpha", "straight alpha blend", "composition"}
property VItext_filename : "VI_text.txt"
property VItext_width : 225
property VItext_height : 70
property VItext_position : {300, 359}
property VIHREF_filename : "videointeg_href.txt"
try
display dialog "Hotpick Builder" & return & return & ,
"This script demonstrates how movies can be auto-generated by
building a movie from elements located in the same folder as this
script."
set this_app to the path to me
set AppleScript's text item delimiters to ":"
set the source_folder to ((text items 1 thru -2 of (this_app as
string)) as string) & ":"
set AppleScript's text item delimiters to ""
try
set VILogo to alias ((source_folder & VIlogo_filename) as string)
set Luv to alias ((source_folder & benevolence_filename) as
string)
set WaterMark_image to alias ((source_folder &
WaterMark_filename) as string)
set VideoInteg_textfile to alias ((source_folder &
VItext_filename) as string)
set VideoInteg_hreffile to alias ((source_folder &
VIHREF_filename) as string)
on error
error "The required images must be in the same folder as this
script."
end try
set VideoInteg_text to read VideoInteg_textfile
set VideoInteg_HREF to read VideoInteg_hreffile
tell application "QuickTime Player"
launch -- bypass promo movie
activate
stop every movie
make new movie
set the full text of annotation "Full Name" of movie 1 to "Video
Integrations Composites"
-- CREATE THE BACKGROUND TRACK
set this_track to make new track at movie 1 with data " "
set the duration of the first frame of this_track to (the time
scale of movie 1) * 10 -- 10 seconds
tell this_track
set dimensions to {movie_width, movie_height}
set the position to {0, 0}
tell frame 1
set background color to {0, 0, 0}
end tell
set the name to "Background"
end tell
-- CREATE THE VI LOGO TRACK
set this_track to make new track at movie 1 with data VILogo
tell this_track
set the position to VIlogo_offset
set href to VI_HREF
set the name to "Video Integrations Logo"
end tell
-- CREATE THE Benevolence LOGO TRACK
set this_track to make new track at movie 1 with data Luv
tell this_track
set the position to benevolence_offset
set href to love_HREF
set the name to "Movie ????"
end tell
-- CREATE THE WaterMark IMAGE TRACK (** How do I add transparent
Graphics Mode of White for WaterMark? **)
set this_track to make new track at movie 1 with data
WaterMark_image
tell this_track
set the position to WaterMark_offset
set href to VideoInteg_HREF
set the name to "Water Mark"
end tell
tell movie 1
set the operation color of track WaterMark_filename to the
operation_RBG
set the transfer mode of track WaterMark_filename of
mode_list to transparent
end tell
-- CREATE THE Video Integrations TEXT TRACK
set this_track to make new track at movie 1 with data
VideoInteg_text
tell this_track
set the dimensions to {VItext_width, VItext_height}
set position to VItext_position
tell frame 1
set the dimensions to {VItext_width, VItext_height}
set the background color to {0, 0, 0}
set the foreground color to {65535, 65535, 65535}
set the default font to "Geneva"
set the default font size to 9
set the justification to center
end tell
set the name to "Video Integrations Description"
end tell
end tell
on error error_message number error_number
if the error_number is not -128 then
activate
beep
display dialog error_message buttons {"Cancel"} default button 1
end if
end try
--
Regards,
Scott Schrader
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.