;EDGE drawing sequence of calls to IMG using Compass gradient 5 level
;edge MASKS --- 
	.SETN COUNT 0
.ENABLE SUBSTITUTION
.ASKS IN INPUT device or filename ?
.ASKS OUT OUTPUT device or filename ?
.ASK LTOD DO YOU WANT LIGHT TO DARK TRANSITIONS ?
.ASK DTOL DO YOU WANT DARK TO LIGHT TRANSITIONS ?
.ASK HORIZN DO YOU WANT HORIZONTAL LINES ?
.ASK VERTIC DO YOU WANT VERTICAL LINES ?
.ASK DIA45 DO YOU WANT DIAGONALS AT 45 degrees ?
.ASK DIA135 DO YOU WANT DIAGONALS AT -45 DEGREES ?
IMG 'OUT'/MO:-='OUT'
.IFF HORIZN .GOTO 200
.IFF LTOD .GOTO 100
;Horizontal lines at light to dark transitions
IMG 'OUT'/MO:|='IN'/ke:1:2:1:0:0:0:-1:-2:-1
.100:	.IFF DTOL .GOTO 200
;horizontal lines at dark to light transitions
IMG 'OUT'/MO:|='IN'/ke:-1:-2:-1:0:0:0:1:2:1
.200: .INC COUNT
.IFF VERTIC .GOTO 300
.IFF LTOD .GOTO 250
;vertical line at light to dark transitions
IMG 'OUT'/MO:|='IN'/ke:1:0:-1:2:0:-2:1:0:-1
.250:	.IFF DTOL .GOTO 300
;vertical lines at dark to light transitions
IMG 'OUT'/MO:|='IN'/ke:-1:0:1:-2:0:2:-1:0:1
.300:	.INC COUNT
.IFF DIA45 .GOTO 500
	.IFF LTOD .GOTO 350
;45  line at light to dark transitions
IMG 'OUT'/MO:|='IN'/ke:2:1:0:1:0:-1:0:-1:-2
.350:	.IFF DTOL .GOTO 500
;45 line at dark to light transitions
IMG 'OUT'/MO:|='IN'/ke:-2:-1:0:-1:0:1:0:1:2
.500:	.INC COUNT
.IFF DIA135 .GOTO 1000
	.IFF LTOD .GOTO 550
;135 line at light to dark transitions
IMG 'OUT'/MO:|='IN'/ke:0:-1:-2:1:0:-1:2:1:0
.550:	.IFF DTOL .GOTO 1000
;135 line at dark to light transitions
IMG 'OUT'/MO:|='IN'/ke:0:1:2:-1:0:1:-2:-1:0
.1000: .INC COUNT
!done at last !