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