home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _Change_Colour.AMOS / _Change_Colour.amosSourceCode
AMOS Source Code  |  2008-12-10  |  368b  |  14 lines
  1. Load Iff "dh0:__pics/error-soft",0
  2. Flash Off 
  3. Curs Off 
  4. CHANGECOL[2,5]
  5. Wait 50
  6. Procedure CHANGECOL[_COLOUR,_CHANGE_COLOUR]
  7.    For Y=0 To Screen Height
  8.       For X=0 To Screen Width
  9.          If Point(X,Y)=_COLOUR Then Ink _CHANGE_COLOUR : Plot X,Y : Goto SKIP
  10.          If Point(X,Y)=_CHANGE_COLOUR Then Ink _COLOUR : Plot X,Y
  11.       SKIP:
  12.       Next X
  13.    Next Y
  14. End Proc