home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _outline.amos / _outline.amosSourceCode
AMOS Source Code  |  1994-02-02  |  491b  |  18 lines
  1. Load Iff "dh0:__pics/error-soft",0
  2. Flash Off 
  3. Curs Off 
  4. OUTLINE[5,2]
  5. Wait 50
  6. Procedure OUTLINE[_COLOUR,_OUTLINE_COLOUR]
  7.    Ink _OUTLINE_COLOUR
  8.    For Y=0 To Screen Height
  9.       For X=0 To Screen Width
  10.          If Point(X,Y)<>_COLOUR Then Goto SKIP
  11.          If Point(X-1,Y)<>_COLOUR Then Plot X-1,Y
  12.          If Point(X+1,Y)<>_COLOUR Then Plot X+1,Y
  13.          If Point(X,Y-1)<>_COLOUR Then Plot X,Y-1
  14.          If Point(X,Y+1)<>_COLOUR Then Plot X,Y+1
  15.       SKIP:
  16.       Next X
  17.    Next Y
  18. End Proc