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

  $DAT >>Form02.clssa<<       23.09.1992 - (C) ProDAD Holger Burkarth
                              20.01.1995 - (C) ProDAD Michael Christoph

  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 99
  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 Source-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 "'Animations-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 Source-Animation vorhanden!"'

    LEAVE
  END

  FailAt AltFail
exit