PROCslate(x,y,size,R,G,B)

Although there is slight similarity to SBOX, this tool was designed to make depth on edges,
rather than border lines.
Its purpose was to allow creation of tiles or slates for board games and different uses.

PROCslate(x,y,size,R,G,B)

x,y is location
size is the size of the slate (it will be a square)
R- is a shade of red (120-255)
G- is a shade of green (120-255)
B- is a shade of blue (120-255)
(you can put in lower values, but the lowest practical color is 120 due to shading)


    MODE 8
     OFF
     PROCslate(100,100,100,200,200,220)
     END

     REM x,y,size,R,G,B
     DEFPROCslate(x%,y%,size%,r%,g%,b%)
     IF r%<120 THEN r%=120:IF g%<120 THEN g%=120:IF b%<120 THEN b%=120
     LOCAL cun%,cd%,fy%,sx%,sy%,w%,h%
     FOR cun%=120 TO 0 STEP-10
       COLOUR 0,r%-cun%,g%-cun%,b%-cun% :GCOL 0
       sx%=x%+cd%:sy%=y%+cd%:w%=x%+size%-cd%:h%=y%+size%-cd%
       LINE sx%,sy%,w%,sy%
       LINE w%,sy%,w%,h%
       LINE w%,h%,sx%,h%
       LINE sx%,h%,sx%,sy%
       cd%+=1
     NEXT cun%
     COLOUR 0,r%,g%,b% : GCOL 0
     fy%=y%+cd%
     REPEAT
       LINE x%+cd%+1,fy%,x%+size%-cd%-1,fy%
       fy%+=1
     UNTIL fy% = y%+size%-cd%
     COLOUR 0,r%-120,g%-120,b%-120:GCOL 0
     LINE sx%,sy%,w%,sy%
     LINE w%,sy%,w%,h%
     LINE w%,h%,sx%,h%
     LINE sx%,h%,sx%,sy%

     COLOUR 0,0,0,0
     ENDPROC