; Ersatz für den Manager

; RefAnimator erscheint direkt auf dem Construct-Schirm
; und kann beliebig oft aufgerufen werden.
; Kann auch einfach als Befehl über die Shell gestartet
; werden.
; Zwei Modi werden unterstützt:

; Construct-Szene : Startet den Animator im interaktiven Modus
;                   und erlaubt das Erstellen einer neuen
;                   Animation.

; Job-Datei       : Startet den Animator, der aus der angegebenen
;                   Job-Datei die Szene mit der angegebenen Bildnr.
;                   speichert.


ASKENV GADFILE S:RefAnimator.req                        ;Requester aufrufen

IF NOT WARN                                             ;dieser wurde nicht abgebrochen

  IF `GET _animatormodus` EQ "0"                        ;Modus 'Construct-Szene'
    STACK 40000                                         ;Stack für Animator setzen
    Ref:Reflections/Animator `GET _animatorszene`       ;Animator mit Szene aufrufen
  ENDIF

  IF `GET _animatormodus` EQ "1"                        ;Modus 'Job-Datei'
    STACK 40000                                         ;Stack für Animator setzen
    Ref:Reflections/Animator `GET _animatorszene` `GET _animatorbildnr`  ;Animator speichert die Szene Bildnr. der Job-Datei
  ENDIF
 
  UNSET _animatormodus                                  ;lokale Variable löschen
  UNSET _animatorszene
  UNSET _animatorbildnr

ENDIF