; Ersatz für den Manager

; RefManager erscheint direkt auf dem Construct-Schirm
; und kann beliebig oft aufgerufen werden, über
; den Menüpunkt 'Special/Arexx-Funk/RefManager'.
; Kann auch einfach als Befehl über die Shell gestartet
; werden, allerdings sollte dies mittels 'RUN RefManager'
; geschehen, damit die aktuelle Shell wieder freigegeben wird


.KEY ""
.BRA {
.KET }

IF NOT EXISTS ENV:_managerszene                         ;Sind Pfad-Variable schon angelegt ?
  ECHO >ENV:_managerszene "Ref:Reflections/Szenen/"     ;nein -> dann anlegen
  ECHO >ENV:_managerkamli "Ref:Reflections/Szenen/"
  ECHO >ENV:_managerbild "Ref:Reflections/Bild/"
ENDIF

ASKENV GADFILE S:RefManager.req                 ;Requester aufrufen

IF NOT WARN                                     ;wenn dieser nicht abgebrochen wird

  GETENV >T:_parameter$PROCESS _managerszene    ;globale Variable auswerten
  GETENV >>T:_parameter$PROCESS _managerkamli   ;und Parameter-Script für Scan oder
                                                ;Beams aufbauen
  IF `GET _managerbildx` EQ "0"
    ECHO >>T:_parameter$PROCESS "128"
  ENDIF
  IF `GET _managerbildx` EQ "1"
    ECHO >>T:_parameter$PROCESS "320"
  ENDIF
  IF `GET _managerbildx` EQ "2"
    ECHO >>T:_parameter$PROCESS "352"
  ENDIF
  IF `GET _managerbildx` EQ "3"
    ECHO >>T:_parameter$PROCESS "368"
  ENDIF
  IF `GET _managerbildx` EQ "4"
    ECHO >>T:_parameter$PROCESS "640"
  ENDIF
  IF `GET _managerbildx` EQ "5"
    ECHO >>T:_parameter$PROCESS "704"
  ENDIF
  IF `GET _managerbildx` EQ "6"
    ECHO >>T:_parameter$PROCESS "736"
  ENDIF
  IF `GET _managerbildx` EQ "7"
    ECHO >>T:_parameter$PROCESS "800"
  ENDIF
  IF `GET _managerbildx` EQ "8"
    ECHO >>T:_parameter$PROCESS "1024"
  ENDIF
  IF `GET _managerbildx` EQ "9"
    ECHO >>T:_parameter$PROCESS "1280"
  ENDIF

  IF `GET _managerbildy` EQ "0"
    ECHO >>T:_parameter$PROCESS "104"
  ENDIF
  IF `GET _managerbildy` EQ "1"
    ECHO >>T:_parameter$PROCESS "256"
  ENDIF
  IF `GET _managerbildy` EQ "2"
    ECHO >>T:_parameter$PROCESS "283"
  ENDIF
  IF `GET _managerbildy` EQ "3"
    ECHO >>T:_parameter$PROCESS "512"
  ENDIF
  IF `GET _managerbildy` EQ "4"
    ECHO >>T:_parameter$PROCESS "566"
  ENDIF
  IF `GET _managerbildy` EQ "5"
    ECHO >>T:_parameter$PROCESS "580"
  ENDIF
  IF `GET _managerbildy` EQ "6"
    ECHO >>T:_parameter$PROCESS "600"
  ENDIF
  IF `GET _managerbildy` EQ "7"
    ECHO >>T:_parameter$PROCESS "768"
  ENDIF
  IF `GET _managerbildy` EQ "8"
    ECHO >>T:_parameter$PROCESS "1024"
  ENDIF

  GET >>T:_parameter$PROCESS _managerschatt
  GET >>T:_parameter$PROCESS _managerraytiefe
  GET >>T:_parameter$PROCESS _managerantial
  GET >>T:_parameter$PROCESS _managermodus
  GETENV >>T:_parameter$PROCESS _managerbild

  UNSET _managermodus                        ;lokale Variablen löschen
  UNSET _managerantial
  UNSET _managerschatt
  UNSET _managerraytiefe
  UNSET _managerbildy
  UNSET _managerbildx

  IF `GET _managerprgtyp` EQ "0"             ;Scan aufrufen
    Stack 40000
    Ref:Reflections/Scan <T:_parameter$PROCESS >CON:0/0/300/25/SCAN-Berechnung
  ENDIF

  IF `GET _managerprgtyp` EQ "1"             ;Beams aufrufen
    Stack 40000
    Ref:Reflections/Grid `GETENV _managerszene` >CON:0/0/300/25/Grid-Berechnung
    Ref:Reflections/Beams <T:_parameter$PROCESS >CON:0/0/300/25/BEAMS-Berechnung
  ENDIF

  UNSET _managerprgtyp                       ;lokale Variable löschen
  DELETE >NIL: T:_parameter$PROCESS          ;Parameterscript löschen

ENDIF