home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_u_PIPBorder.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  1.9 KB  |  85 lines
  1. /*
  2.  
  3. Effektmodul-Beispiel mit UPN Schnittliste
  4.  
  5. Bild im Bild (mit Rahmen)
  6.  
  7. Edwin Bielawski 18.3.95
  8.  
  9. */
  10.  
  11. OPTIONS RESULTS
  12. OPTIONS FAILAT 21
  13.  
  14. /* ----------------------------------------------------- */
  15.  
  16. Example = 'U_PiPB'
  17.  
  18. InitRun = GetClip('mstl_'Example)
  19. /* ----------------------------------------------------- */
  20.  
  21. If (tl_init.msx(UPN 2)>0) Then Exit 10
  22.  
  23. /* ----------------------------------------------------- */
  24.  
  25. Path_QuickScale = InitOperator('QuickScale')
  26. Path_Border     = InitOperator('Border')
  27. Path_Compose    = InitOperator('Compose')
  28.  
  29. /* ----------------------------------------------------- */
  30.  
  31. ADDRESS MOVIESHOP
  32.  
  33. GOTOSCENE NUMBER 1
  34. If (RC>0) Then Exit 10
  35. GETFRAMENUMBER
  36. If (RC>0) Then Exit 10
  37. Len1 = RESULT
  38. SCENETOTIMELINE TIME 0 TRACK 0
  39. If (RC>0) Then Exit 10
  40.  
  41. GOTOSCENE NUMBER 0
  42. If (RC>0) Then Exit 10
  43. GETFRAMENUMBER
  44. If (RC>0) Then Exit 10
  45. Len2 = RESULT
  46. SCENETOTIMELINE TIME 0 TRACK 3
  47. If (RC>0) Then Exit 10
  48.  
  49. /* ----------------------------------------------------- */
  50.  
  51. if (Len1<Len2) Then OpLen = Len1
  52. Else OpLen = Len2
  53.  
  54. NUMBERTOTIME OpLen
  55. OpLenTime = RESULT
  56.  
  57. /* ----------------------------------------------------- */
  58.  
  59. EFFECTTOTIMELINE Path_QuickScale 'TRACK 1 TIME 0 LENGTH' OpLenTime
  60. If (RC>0) Then Exit 10
  61. EFFECTTOTIMELINE Path_Border 'TRACK 2 TIME 0 LENGTH' OpLenTime
  62. If (RC>0) Then Exit 10
  63. EFFECTTOTIMELINE Path_Compose 'TRACK 4 TIME 0 LENGTH' OpLenTime
  64. If (RC>0) Then Exit 10
  65.  
  66. Call tl_calc.msx(Example 'Demo')
  67.  
  68. Exit 0
  69.  
  70. /* ----------------------------------------------------- */
  71.  
  72. InitOperator:
  73.   Parse ARG OpName
  74.  
  75.   Call tl_search.msx(OpName)
  76.   OpFullName = GetClip('OpFullName')
  77.   Call SetClip('OpFullName')
  78.  
  79.   If (Exists('MS_GUIDE:Prefs/'Example'.'OpName)) Then ADDRESS COMMAND 'Copy >NIL:' 'MS_GUIDE:Prefs/'Example'.'OpName TO OpFullName'.prefs'
  80.   Else Do
  81.     Call SetClip('mstl_'Example,'1')
  82.     If (InitRun=1) Then ADDRESS COMMAND 'Copy >NIL:' OpFullName'.prefs' TO 'MS_GUIDE:Prefs/'Example'.'OpName
  83.   End
  84.   Return(OpFullName)
  85.