Listing of file='6P19.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'
5 REM PROGRAM 6.19 6 REM ERASE SCREEN USING VECTOR PLOT -- II 10 PLOT 29:REM FLAG OFF 20 PLOT 6,2:REM SET COLOR TO GREEN 30 PLOT 27,25,65:REM FILL SCREEN USING TEST MODE 40 PLOT 3,64,0,6,0:REM HIDE CURSOR AND SET COLOR=BLACK 49 50 PLOT 2:REM GENERAL PLOT MODE 58 59 REM UPPER TRIANGLE OF SCREEN 60 Y= 127 69 70 FOR X= 0TO 127:GOSUB 200:NEXT 78 79 REM RIGHT TRIANGLE OF SCREEN 80 X= 127 89 90 FOR Y= 127TO 0STEP - 1:GOSUB 200:NEXT 98 99 REM LOWER TRIANGLE OF SCREEN 100 Y= 0 109 110 FOR X= 127TO 0STEP - 1:GOSUB 200:NEXT 118 119 REM LEFT TRIANGLE OF SCREEN 120 X= 0 129 130 FOR Y= 0TO 127:GOSUB 200:NEXT 139 140 PLOT 255:REM EXIT PLOT MODE 150 PLOT 6,2:REM BACK TO SOME COLOR 160 END 197 198 REM ***** SUBROUTINE TO DRAW A VECTOR ***** 199 200 PLOT 253,63,63:REM 1ST POINT OF VECTOR IS CENTER OF SCREEN 210 PLOT 242:REM VECTOR PLOT SUBMODE 220 PLOT X,Y:REM END POINT OF VECTOR AT EDGE OF SCREEN 230 RETURN