home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd511 / colour_to_stone.amos / colour_to_stone.amosSourceCode
AMOS Source Code  |  1991-06-14  |  1KB  |  30 lines
  1. ' This Proc will turn your current picture in to a blue and white    
  2. ' picture. It will work very well wih highly detailed pictures   
  3. ' but some pictures will not look as good. 
  4. '
  5. Procedure C0LOUR_TO_STONE
  6.    ' Proc written by Brett George 
  7.    C=0 : Z=0
  8.    Repeat 
  9.       Repeat 
  10.          If Colour(Z)=$F Then C=True
  11.          If Colour(Z)=$11F Then C=True
  12.          If Colour(Z)=$22F Then C=True
  13.          If Colour(Z)=$33F Then C=True
  14.          If Colour(Z)=$44F Then C=True
  15.          If Colour(Z)=$55F Then C=True
  16.          If Colour(Z)=$66F Then C=True
  17.          If Colour(Z)=$77F Then C=True
  18.          If Colour(Z)=$88F Then C=True
  19.          If Colour(Z)=$99F Then C=True
  20.          If Colour(Z)=$AAF Then C=True
  21.          If Colour(Z)=$BBF Then C=True
  22.          If Colour(Z)=$CCF Then C=True
  23.          If Colour(Z)=$DDF Then C=True
  24.          If Colour(Z)=$EEF Then C=True
  25.          If Colour(Z)=$FFF Then C=True
  26.          If C=0 Then Colour Z,Colour(Z)-1
  27.       Until C
  28.     C=0 : Inc Z
  29.    Until Z=Screen Colour
  30. End Proc