home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Loads_Of_Source.lha / colour_2_bw.amos / colour_2_bw.amosSourceCode
Encoding:
AMOS Source Code  |  1980-10-03  |  902 b   |  58 lines
  1. ' ******************** 
  2. ' *** COLOUR 2 B/W *** 
  3. ' ******************** 
  4.  
  5. ' *** This Program Converts A 32 Colour Picture Into A Black & White One.
  6.  
  7. ' *** Load IFF Picture.
  8.  
  9. F$=Fsel$("","","Load IFF Picture.")
  10.  
  11. If F$<>""
  12.    Load Iff F$,0
  13. Else 
  14.    Direct 
  15. End If 
  16.  
  17. ' *** Convert Picture. 
  18.  
  19. For C=0 To 15
  20.    If Colour(C)<>C*$111
  21.       For Y=0 To Screen Height
  22.          For X=0 To Screen Width
  23.             C=Colour(Point(X,Y))
  24.             Plot X,Y,C/$111
  25.          Next 
  26.       Next 
  27.       For F=0 To 15
  28.          Colour F,F*$111
  29.       Next 
  30.    End If 
  31. Next 
  32.  
  33. ' *** Place Picture On New Screen. 
  34.  
  35. Screen Open 1,Screen Width,Screen Height,16,Screen Mode
  36. Curs Off 
  37. Flash Off 
  38. Cls 0
  39. Get Palette 0
  40. Screen Copy 0 To 1
  41.  
  42. ' *** Close Old Screen.
  43.  
  44. Screen Close 0
  45.  
  46. ' *** Save Converted Picture.
  47.  
  48. F$=Fsel$("","","Save IFF Picture")
  49.  
  50. If F$<>""
  51.    Save Iff F$,0
  52. End If 
  53.  
  54. ' *** Close Screen & Quit. 
  55.  
  56. Screen Close 1
  57.  
  58. Direct