/***********************************************************************
  GADGET: "'Make LACE'" "3" AUTO TYP: "?"

  $DAT >>Form02.clssa<<   23 Sep 1992 - (C)1992 ProDAD Holger Burkarth

  Wandelt eine Anim, die kein Lace besitzt, in eine Lace-Anim um.
  Die Lacekompensation hat einen großen Einfluß auf den Umwandlungs-
  prozeß.
************************************************************************/

Options Results
Address clariSSA

  FailAt 10
  AltFail=RESULT

  DO FOREVER
    Anims=""
    GetAnimInfo Source_A
    IF RESULT~='' THEN Anims=Anims||" Source_A "
    GetAnimInfo Source_B
    IF RESULT~='' THEN Anims=Anims||" Source_B "
    GetAnimInfo Source_C
    IF RESULT~='' THEN Anims=Anims||" Source_C "
    GetAnimInfo Source_D
    IF RESULT~='' THEN Anims=Anims||" Source_D "

    IF Anims~='' THEN DO
      SelectAnim Anims "TITLE 'Wählen Sie die Animtion@für die Umwandlung aus.' REQ"
      IF rc~=0 THEN LEAVE
      SelectAnim RESULT

      GetAnimInfo
      PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .

      IF FIND(viewmode,"LACE")~=0 THEN DO
        Message "'Anim-Format beinhaltet bereits' 'LACE !'"

      END; ELSE DO
        PARSE VAR format x y t
        OpenAnim MASTER "FORMAT" x y*2 t "VIEWMODE" viewmode "LACE"
        IF RC~=0 THEN LEAVE
        Record AREA
      END

    END; ELSE Message '"Keine Anim vorhanden!"'
    LEAVE
  END
  FailAt AltFail
exit