REM SET MODE TO 8 USING VDU VDU 22,8 REM SET LINE THICKNESS TO 3 VDU 23,23,3| OFF GCOL 1 PROC_border(500,500,320,350,170,200,170,5) END DEF PROC_border(H,V,BEGIN,SIZE,X,C,A,DI) R=X G=C B=A P=SIZE-BEGIN P=P/2 P=BEGIN+P FOR Y=P TO SIZE COLOUR 1,X,C,A LINE H-Y,V-Y,H+Y,V-Y LINE H+Y,V-Y,H+Y,V+Y LINE H+Y,V+Y,H-Y,V+Y LINE H-Y,V+Y,H-Y,V-Y X=X-DI C=C-DI A=A-DI IF X<2 THEN X=2 IF C<2 THEN C=2 IF A<2 THEN A=2 NEXT Y P=SIZE-BEGIN P=P/2 P=BEGIN+P FOR Y=BEGIN TO P COLOUR 1,X,C,A LINE H-Y,V-Y,H+Y,V-Y LINE H+Y,V-Y,H+Y,V+Y LINE H+Y,V+Y,H-Y,V+Y LINE H-Y,V+Y,H-Y,V-Y X=X+DI C=C+DI A=A+DI NEXT Y ENDPROC
REM SET MODE TO 8 USING VDU VDU 22,8 OFF GCOL 1 PROCborder(500,500,320,200,21,200,170,170,10) END DEF PROCborder(x%, y%, dx%, dy%, wide%, r%, g%, b%, grade%) LOCAL midx%, midy%, I% midx%=x%+wide%/2 midy%=y%+wide%/2 FOR I% =1 TO wide%/2 COLOUR 1,r%,g%,b% RECTANGLE midx%-I%,midy%-I%, dx%+2*I%, dy%+2*I% RECTANGLE midx%+I%,midy%+I%, dx%-2*I%, dy%-2*I% r%-=grade% g%-=grade% b%-=grade% IF r%<2 THEN r%=2 IF g%<2 THEN g%=2 IF b%<2 THEN b%=2 NEXT ENDPROC
|