;*****************************************************************************************
;*                   Voy-View 1.00 (c) 1996 Richter Arno                                 *
;*                                                                                       *
;* The script is divided in several blocks (datatypes), which means that every block     *
;* is nearly identical.                                                                  *
;* The differences are the text at >requestchoice<, the viewer and the IDs (JPEG,GIF,..  *
;*                                                                                       *
;* Lines to edit I have marked with >******<                                             *
;*                                                                                       *
;* On my system the MUI-Screen is named >MUI-Screen.16bit< and runs under CyberGFX       *
;* on a Retina board.                                                                    *
;*                                                                                       *
;* I think that if V runs on 16bit screen it doesn't have to be that the viewer gets     *
;* a screen for its own.                                                                 *
;*                                                                                       *
;*****************************************************************************************

; Please enter the Drawers here !!!!
setenv VerzA hd2:dfü/download/www ; Drawer, in that V saves the files ******
setenv VerzB hd2:dfü/download/www/gfx ; Drawer, to where VoyView moves the files. ******
setenv Schirm MUI-Screen.16bit ;Name of the MUI Public screen ******


failat 21
delete > nil: env:ende ; ...if the variable is already set...
wait 10 ; wait until V have been fully loaded.


cd $VerzA

lab start

;*** JPEG ***
setenv Typ #?jpg ;Enter here the datatype (#?. - please leave !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei ;select files to process

list sub $typ2 lformat %e > env:dateityp ;filter datatypes

IF $dateityp eq $typ2 ;if it is a JPEG file...

  requestchoice VoyView "View JPEG-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis ;Prompt, if the file should be viewed or not

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95 ;View the file on the V screen
     endif

rename > nil: $datei TO $VerzB ; Move the file...
endif


;*** JPEG 2 ***
setenv Typ #?jpeg ;Enter here the datatype (#?. - please leave !!!) ******
ECHO $typ len 4 > env:typ2 ; ...4, because the suffix has 4 letters

dir $typ > env:datei

list sub $typ2 lformat %e > env:dateityp

IF $dateityp eq $typ2

  requestchoice VoyView "View JPEG-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95
     endif

rename > nil: $datei TO $VerzB
endif


;*** GIF ***
setenv Typ #?gif ;Enter here the datatype (#? - please leave !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei

list sub $typ2 lformat %e > env:dateityp

IF $dateityp eq $typ2

  requestchoice VoyView "View GIF-Graphic ?" Yes|No pubscreen $schirm > env:ergebnis

     IF $ergebnis eq "1"
        hd1:utilities/cyberutils/cybershow $datei AS PS=$schirm BT Effects PF JPegQual=95
     endif

rename > nil: $datei TO $VerzB
endif


;*** MPEG ***
setenv Typ #?mpg ;please enter here the datatype (#? - please leave !!!) ******
ECHO $typ len 3 > env:typ2

dir $typ > env:datei

list sub $typ2 lformat %e > env:dateityp

IF $dateityp eq $typ2

  requestchoice VoyView "Play MPEG-Animation ?" Yes|No pubscreen $schirm > env:ergebnis

     IF $ergebnis eq "1"
         stack 50000
         setenv x11/usepub $schirm
         hd1:utilities/xanim/xanim +Ae +Ak +Av100 +b +r +R +T1 $datei
         setenv x11/usepub 70Hz.2
     endif

rename > nil: $datei TO $VerzB
endif


  
wait 5

IF exists env:ende ;if V exits, $ende must get any value that this script can exit, too.
  delete env:ende
  delete > nil: env:datei
  delete > nil: env:ergebnis
  delete > nil: env:dateityp
  delete > nil: env:typ
  delete > nil: env:typ2
  delete > nil: env:verza
  delete > nil: env:verzb
  delete > nil: env:schirm
  quit
endif


skip start back ; after >wait 5< it starts above.