Radio Shack TRS-80 Operation Manual page 74

Computer Graphics Operation Manual
- - - - - - - - - - - T R S · B O
® - - - - - - - - - -
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.
- - - - - - - - - l I a d l 8 l h a e l l - - - - - - - - -
-96-