Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Sound 1 CuePoint
Check QuickTime info
Elapsed Time
Spawn
Buddy Saver
Sending a e-mail with attachment using CDO and VbScriptXtra
Replace tabs with spaces
Expire date
Bitbull
Set CommonPlayer properties for Director 2004
 

 

 

Behavior Get properties in a range of castmembers

Added on 7/2/1999

 

Compatibilities:
D6_5 D7 D8 Mac PC Script

This item has not yet been rated

Author: Penworks (website)

Reproduced with permission from Penworks Lingo User"s Journal

-- Source Code from the Lingo User"s Journal
-- Copyright (c) 1995 by Penworks Corporation

on putCastDepth startCast, endCast
-- Set the startCast default value
  if voidP(startCast) then
     set startCast = 1
  end if

-- Set the endCast default value
  if voidP(endCast) then
     set endCast = the number of castmembers
  end if

-- Swap them if startCast being
-- larger than endCast
  if startCast > endCast then
    set origStartCast = startCast
    set startCast = endCast
    set endCast = origStartCast
  end if

  put "This "putCastDepth()" call is for movie "" & the movieName & """
  put "Started:" && the long date && the long time
    
  repeat with currCast = startCast to endCast
    if the castType of cast currCast = #bitmap then
      if the name of cast currCast = 0 then
        set currCastName = "(Cast" && currCast && "does not have a name)"
      else
        set currCastName = the name of cast currCast  
      end if

      put "The bit-depth of cast" &&currCast& ", "" &currCastName& "" is"&&
the depth of cast currCast& "-bit"
    end if
  end repeat
  put "Finished:" && the long date && the long time
end putCastDepth

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail