home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS02.DMS / in.adf / Guide / MovieShop / tl_u_Unknown.msx < prev    next >
Encoding:
Text File  |  1995-03-18  |  3.3 KB  |  120 lines
  1. /*
  2.  
  3. Effektmodul-Beispiel mit UPN Schnittliste
  4.  
  5. Erläuterungen zu den Skripts tl_(e|u)_#?.msx
  6.  
  7. Edwin Bielawski 18.3.95
  8.  
  9. */
  10.  
  11. OPTIONS RESULTS
  12. OPTIONS FAILAT 21
  13.  
  14. /* -----------------------------------------------------
  15.                 Die Bezeichnung des Beispiels darf
  16.                 nicht mehrmals verwendet werden, da
  17.                 sie zur Sicherung der Operator-Prefs
  18.                 benötigt wird!
  19. */
  20.  
  21. Example = 'Unknown'
  22.  
  23. InitRun = GetClip('mstl_'Example)
  24. /* -----------------------------------------------------
  25.                 Löschen der Schnittliste und Einstellung
  26.                 des gewünschten Modus, sowie Angabe der
  27.                 benötigten Szenenanzahl. Hier:
  28.                 UPN-Modus, 2 Szenen
  29. */
  30.  
  31. If (tl_init.msx(UPN 2)>0) Then Exit 10
  32.  
  33. /* -----------------------------------------------------
  34.                 Auswahl der benötigten Operatoren. Es
  35.                 wird der Pfad des Operators ermittelt
  36.                 und die zugehörige Prefs-Datei umkopiert.
  37.                 Beim ersten Aufruf dieses Skriptes sollte
  38.                 die Schnittliste noch nicht berechnet
  39.                 werden. Stattdessen sollten die Einstellungen
  40.                 der Operatoren überprüft werden anschließend
  41.                 dieses Skript erneut gestartet werden. 
  42.                 Dadurch wird automatisch eine Kopie der
  43.                 benötigten Prefs-Dateien erstellt!
  44. */
  45.  
  46. Path_QuickScale = InitOperator('QuickScale')
  47. Path_Border     = InitOperator('Border')
  48. Path_Compose    = InitOperator('Compose')
  49.  
  50. /* -----------------------------------------------------
  51.                 Ablage der Szenen in die Schnittliste.
  52. */
  53.  
  54. ADDRESS MOVIESHOP
  55.  
  56. GOTOSCENE NUMBER 1
  57. If (RC>0) Then Exit 10
  58. GETFRAMENUMBER
  59. If (RC>0) Then Exit 10
  60. Len1 = RESULT
  61. SCENETOTIMELINE TIME 0 TRACK 0
  62. If (RC>0) Then Exit 10
  63.  
  64. GOTOSCENE NUMBER 0
  65. If (RC>0) Then Exit 10
  66. GETFRAMENUMBER
  67. If (RC>0) Then Exit 10
  68. Len2 = RESULT
  69. SCENETOTIMELINE TIME 0 TRACK 3
  70. If (RC>0) Then Exit 10
  71.  
  72. /* -----------------------------------------------------
  73.                 Berechnung der benötigten Positionen, da
  74.                 nicht von einer festen Länge der Szenen
  75.                 ausgegangen wird
  76. */
  77.  
  78. if (Len1<Len2) Then OpLen = Len1
  79. Else OpLen = Len2
  80.  
  81. NUMBERTOTIME OpLen
  82. OpLenTime = RESULT
  83.  
  84. /* -----------------------------------------------------
  85.                 Ablage der Operatoren in die
  86.                 Schnittliste.
  87. */
  88.  
  89. EFFECTTOTIMELINE Path_QuickScale 'TRACK 1 TIME 0 LENGTH' OpLenTime
  90. If (RC>0) Then Exit 10
  91. EFFECTTOTIMELINE Path_Border 'TRACK 2 TIME 0 LENGTH' OpLenTime
  92. If (RC>0) Then Exit 10
  93. EFFECTTOTIMELINE Path_Compose 'TRACK 4 TIME 0 LENGTH' OpLenTime
  94. If (RC>0) Then Exit 10
  95.  
  96. Call tl_calc.msx(Example 'Demo')
  97.  
  98. Exit 0
  99.  
  100. /* -----------------------------------------------------
  101.                 Automatische Erzeuzung der Prefs-Datei,
  102.                 einschließlich Suche des Operators.
  103.                 Diese Funktion sollte nicht verändert
  104.                 werden!
  105. */
  106.  
  107. InitOperator:
  108.   Parse ARG OpName
  109.  
  110.   Call tl_search.msx(OpName)
  111.   OpFullName = GetClip('OpFullName')
  112.   Call SetClip('OpFullName')
  113.  
  114.   If (Exists('MS_GUIDE:Prefs/'Example'.'OpName)) Then ADDRESS COMMAND 'Copy >NIL:' 'MS_GUIDE:Prefs/'Example'.'OpName TO OpFullName'.prefs'
  115.   Else Do
  116.     Call SetClip('mstl_'Example,'1')
  117.     If (InitRun=1) Then ADDRESS COMMAND 'Copy >NIL:' OpFullName'.prefs' TO 'MS_GUIDE:Prefs/'Example'.'OpName
  118.   End
  119.   Return(OpFullName)
  120.