home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / MixPalette.clssa < prev    next >
Text File  |  1993-05-01  |  745b  |  27 lines
  1. /***********************************************************************
  2.  GADGET: "'Mix Palette'" "6" 23 TYP: "?"
  3.  
  4.  $DAT >>MixPalette.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.     List=GetClip("clPalette")
  13.     IF List~="" THEN DO
  14.       GetColor
  15.       PARSE VAR RESULT x r g b
  16.       St=""
  17.       DO UNTIL List=""
  18.         PARSE VAR List n rr gg bb List
  19.         St=St n TRUNC((r+rr)/2) TRUNC((g+gg)/2) TRUNC((b+bb)/2)
  20.       END
  21.       SetColor St
  22.     END
  23.     ELSE Message "'No Work Palette available.''Use Mark Palette''to produce Work Palette.'"
  24.   END
  25.   ELSE Message "'No anim available!'"
  26. exit
  27.