home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / MarkPalette.clssa < prev    next >
Text File  |  1993-05-01  |  576b  |  25 lines
  1. /***********************************************************************
  2.  GADGET: "'Mark Palette'" "6" 21 TYP: "?"
  3.  
  4.  $DAT >>MarkPalette.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. Options Results
  8. Address clariSSA
  9.  
  10.   GetAnimInfo
  11.   IF RESULT~="" THEN DO
  12.     PARSE VAR RESULT . "FORMAT" x y t .
  13.     Max=2**t
  14.     NUM=0
  15.     List=""
  16.     DO UNTIL NUM>=Max
  17.       List=List NUM
  18.       NUM=NUM+1
  19.     END
  20.     GetColor List
  21.     call SetClip("clPalette",RESULT)
  22.   END
  23.   ELSE Message "'No Anim available!"
  24. exit
  25.