/* CreateAlphaFile ©1998 by Felix Schwarz
   Creates an alpha-file off an image.
 */

    options results
    address 'UConv'
    cachepath="UConv:Work2/"
    GETASLFILE "Which_picture_shall_be_converted_to_an_alpha?" ""
    file=result
    GETASLFILE "Enter_the_name_of_the_alpha_file" "UConv:Storage/Alpha/"
    file2=result
    GETFIRSTIN
    sfile=result
    GETLASTIN
    sfile2=result
    GETFIRSTOUT
    sfile3=result
   
    IF EXISTS(file)=1 THEN DO
     BLOCKMAINGUI ON
     OUTFORMATBYNAME "PPM"
     FIRSTINFILE file
     FIRSTOUTFILE file2
     SCALEREQ OFF NOGUI
     ROTATEREQ OFF NOGUI
     DITHERREQ OFF NOGUI
     ANIMFXREQ OFF NOGUI
     ANIMPUBREQ OFF NOGUI
     FILTERREQ OFF NOGUI
     CONVERT
     FIRSTINFILE  sfile
     LASTINFILE   sfile2
     FIRSTOUTFILE sfile3
     BLOCKMAINGUI OFF
    END
    ELSE REQUESTER "Error" "OK!" "The picture doesn`t exist!"
    EXIT