Get properties in a range of castmembers

 

Compatibilities:

This item has not yet been rated

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