Computer Graphics
Operation Manual
TRS-BO®
'~
Sample Program
~~l~~
C
PRESET EXAMPLE
~~2~~
LOGICAL COLOR
~~3~~
COLOR=l
~~4~~
CALL
GRPINI(~)
~~5~~
CALL CLS
~~6~~
C
SET PIXEL TO ON
~~6~~
CALL
SETXY(3~~,l2~)
~~8~~
CALL PRESET(COLOR)
~~9~~
C
TEST PIXEL WHETHER ON OR OFF
~l~~~
K=POINT(M)
~ll~~
3~
WRITE (3,35)K
~l2~~
35
FORMAT ('2' ,'PIXEL VALUE IS',14)
~l3~~
END
PSET
Sets Pixel ON/OFF
PSET sets the pixel defined
by
the current
(~,y)
coordinates either ON or OFF.
Example
CALL
PSET(~)
----------ltadI81hae1l----------
-l~6-