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