Radio Shack TRS-80 - Page 74

Computer Graphics Operation Manual
-----------TRS·BO ® ----------
Sample Program
This example draws and paints a circle.
SAMPLE PROGRAM FOR CIRCLE
LOGICAL COLOR,OPTION
COLOR=1
OPTION=~
CALL GRPINI(OPTION)
CALL CLS
CALL SETXY(3~~,I~~)
CALL CIRCLE(I~~,COLOR,~.~,~.~,~.~)
CALL PAINT(COLOR,COLOR)
END
CLS
Clears Graphics Screen
Example
CALL CLS
Sample Program (see CIRCLE)
GET
Reads Contents of a Rectangular Pixel Area into an Array
GET reads the contents of a rectangular pixel area into an
array for future use by PUT. The pixel area is a group of
pixels which are defined by the current x and y, and the
previous X- and Y-coordinates specified by the SETXY call.
---------lIadl8lhaell---------
-96-