home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_e_Wipe.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  2.1 KB  |  92 lines
  1. /*
  2.  
  3. Effektmodul-Beispiel mit EASY Schnittliste
  4.  
  5. Überblendung zweier Szenen mit Wipe
  6.  
  7. Edwin Bielawski 18.3.95
  8.  
  9. */
  10.  
  11. OPTIONS RESULTS
  12. OPTIONS FAILAT 21
  13.  
  14. /* ----------------------------------------------------- */
  15.  
  16. Example = 'E_Wipe'
  17.  
  18. InitRun = GetClip('mstl_'Example)
  19. /* ----------------------------------------------------- */
  20.  
  21. If (tl_init.msx(EASY 2)>0) Then Exit 10
  22.  
  23. /* ----------------------------------------------------- */
  24.  
  25. Path_Wipe = InitOperator('Wipe')
  26.  
  27. ADDRESS MOVIESHOP
  28.  
  29. /* ----------------------------------------------------- */
  30.  
  31. TIMETONUMBER '1:00'
  32. Offset = RESULT
  33.  
  34. /* ----------------------------------------------------- */
  35.  
  36. GOTOSCENE 'NUMBER 0'
  37. If (RC>0) Then Exit 10
  38. GETFRAMENUMBER
  39. If (RC>0) Then Exit 10
  40. Sc1Len = RESULT
  41.  
  42. SCENETOTIMELINE 'TIME 0 TRACK 0'
  43. If (RC>0) Then Exit 10                  /* Erste Szene */
  44.  
  45. /* ----------------------------------------------------- */
  46.  
  47. GOTOSCENE 'NUMBER 1'
  48. If (RC>0) Then Exit 10
  49. GETFRAMENUMBER
  50. If (RC>0) Then Exit 10
  51. Sc2Len = RESULT
  52.  
  53. Sc2Pos = ((Sc1Len%2+Offset)%Offset)*Offset /* Runden auf Sekunden */
  54.  
  55. If (Sc2Pos>Sc1Len) Then Sc2Pos=0
  56. If ((Sc1Len-Sc2Pos)>(2*Offset)) Then Sc2Pos=Sc1Len-2*Offset
  57. If ((Sc2Pos+Sc2Len)<Sc1Len) Then Sc2Pos=Sc1Len-Sc2Len
  58.  
  59. NUMBERTOTIME Sc2Pos
  60. Sc2PosTime = RESULT
  61.  
  62. SCENETOTIMELINE 'TIME' Sc2PosTime 'TRACK 2'
  63. If (RC>0) Then Exit 10                  /* Zweite Szene */
  64.  
  65. /* ----------------------------------------------------- */
  66.  
  67. NUMBERTOTIME Sc1Len-Sc2Pos
  68. Op1LenTime = RESULT
  69.  
  70. EFFECTTOTIMELINE Path_Wipe 'TRACK 1 TIME' Sc2PosTime 'LENGTH' Op1LenTime
  71. If (RC>0) Then Exit 10
  72.  
  73. Call tl_calc.msx(Example 'Demo')
  74.  
  75. Exit 0
  76.  
  77. /* ----------------------------------------------------- */
  78.  
  79. InitOperator:
  80.   Parse ARG OpName
  81.  
  82.   Call tl_search.msx(OpName)
  83.   OpFullName = GetClip('OpFullName')
  84.   Call SetClip('OpFullName')
  85.  
  86.   If (Exists('MS_GUIDE:Prefs/'Example'.'OpName)) Then ADDRESS COMMAND 'Copy >NIL:' 'MS_GUIDE:Prefs/'Example'.'OpName TO OpFullName'.prefs'
  87.   Else Do
  88.     Call SetClip('mstl_'Example,'1')
  89.     If (InitRun=1) Then ADDRESS COMMAND 'Copy >NIL:' OpFullName'.prefs' TO 'MS_GUIDE:Prefs/'Example'.'OpName
  90.   End
  91.   Return(OpFullName)
  92.