DRAW CIRCLE, DRAW DISK (original enhancement)
DRAW circle
draws a circle of radius 1 and of center the origin with the line color.
The beam shall be set off.
DRAW disk
draws a circle and fill the interior of it with the area color.
The beam shall remain.
These can be transformed. For example,
if you want to draw a circle of radius r, center (x,y), write
DRAW circle WITH SCALE(r)*SHIFT(x,y)
Refer to picture definition
<Note>
CIRCLE and DISK are not reserved words.
Thus a user can define a picture of its name "CIRCLE" or "DISK".
<Note>
If the circle crosses a line at infinity as a result of transformation, The DRAW statements above do not draw proper figures.
On such a case, the following picture definition is effective.
1000 EXTERNAL PICTURE circle 1010 OPTION ANGLE DEGREES 1020 FOR t=0 TO 360 1030 PLOT LINES : COS(t),SIN(t); 1040 NEXT t 1050 END PICTURE 2000 EXTERNAL PICTURE disk 2010 OPTION ANGLE DEGREES 2020 OPTION BASE 0 2030 DIM x(359),y(359) 2040 FOR t=0 TO 359 2050 LET x(t)=COS(t) 2060 LET y(t)=SIN(t) 2070 NEXT t 2080 MAT PLOT AREA : x,y 2090 END PICTURE