home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Script / GTQLib1.2.as folder / Sample Scripts / tracks < prev   
Encoding:
Text File  |  1994-05-03  |  395 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     repeat with i from 1 to (number of tracks on audio CD)
  3.         set ti to (track information for audio CD for track i)
  4.         display dialog (convert(ti))
  5.     end repeat
  6.     return
  7. end run
  8.  
  9. on convert(t)
  10.     set s to "{"
  11.     set s to s & "minutes=" & (mins of t as string) & ","
  12.     set s to s & "seconds=" & (secs of t as string) & ","
  13.     set s to s & "frames=" & (frames of t as string) & "}"
  14.     return s
  15. end convert