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