home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / shade.amos / shade.amosSourceCode
AMOS Source Code  |  1993-01-08  |  583b  |  20 lines
  1. '*                        Shade.AMOS                       * 
  2. '*                ï¿½1992 by Volker Stepprath                * 
  3. '*  Change all colours of an IFF picture in black & White  * 
  4. '**** Select IFF picture ****
  5. FILE$=Fsel$("","","Please choose an IFF picture !")
  6. If FILE$<>""
  7.   '**** Load IFF picture ****
  8.   Load Iff FILE$,0
  9.   Wait Key 
  10.   '**** Change colours ****
  11.   For I=0 To 31
  12.     C$=Hex$(Colour(I),3)-"$"
  13.     C=Val("$"+Left$(C$,1))+Val("$"+Mid$(C$,2,1))+Val("$"+Right$(C$,1))
  14.     C$=Hex$(C/3)-"$"
  15.     C=Val("$"+(C$+C$+C$))
  16.     Colour I,C
  17.   Next I
  18.   Wait Key 
  19. End If 
  20. Edit