' *** BOX_GROW.LST *** 2nd GFA-Manual, page 24-4 > PROCEDURE box_grow(x1,y1,x2,y2) ' ' *** Growing box (with GRAF_GROWBOX) before drawing box ' ~GRAF_GROWBOX(DIV(SUB(x2,x1),2),DIV(SUB(y2,y1),2),0,0,x1,y1,SUB(x2,x1),SUB(y2,y1)) BOX x1,y1,x2,y2 RETURN ' *** > PROCEDURE box_shrink(x1,y1,x2,y2) ' ' *** Shrinking box (with GRAF_SHRINKBOX) after erasing box ' *** Procedure changes COLOR ' COLOR 0 ! use background-colour BOX x1,y1,x2,y2 ! erase box ~GRAF_SHRINKBOX(DIV(SUB(x2,x1),2),DIV(SUB(y2,y1),2),0,0,x1,y1,SUB(x2,x1),SUB(y2,y1)) COLOR 1 ! use foreground-colour RETURN ' ********* '