home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
procedures
/
_outline.amos
/
_outline.amosSourceCode
Wrap
AMOS Source Code
|
1994-04-26
|
491b
|
18 lines
Load Iff "dh0:__pics/error-soft",0
Flash Off
Curs Off
OUTLINE[5,2]
Wait 50
Procedure OUTLINE[_COLOUR,_OUTLINE_COLOUR]
Ink _OUTLINE_COLOUR
For Y=0 To Screen Height
For X=0 To Screen Width
If Point(X,Y)<>_COLOUR Then Goto SKIP
If Point(X-1,Y)<>_COLOUR Then Plot X-1,Y
If Point(X+1,Y)<>_COLOUR Then Plot X+1,Y
If Point(X,Y-1)<>_COLOUR Then Plot X,Y-1
If Point(X,Y+1)<>_COLOUR Then Plot X,Y+1
SKIP:
Next X
Next Y
End Proc