Radio Shack TRS-80 Operation Manual page 153

Computer Graphics Operation Manual
- - - - - - - - - - T R S · B O
® - - - - - - - - - -
SUBROUTINE VTEST
VIEW AND FVIEW TEST
INTEGER FVIEW
LOGICAL MSG<l9)
CALL CLS
ENCODE (MSG,
1~H1
)
FORMAT( 'VIEW AND FVIEW TEST')
CALL
SETXY(~,~)
CALL LOCATE(~)
CALL GPRINT(19,MSG)
CALL WAIT
DRAW VIEWPORT AND CIRCLES
CALL
VIEW(~,4~,639,239,~,1)
CALL DCIRCL(l)
DRAW VIEWPORT AND LINES
CALL
VIEW(2~,5~,619,229,1,~)
CALL DLINE(~)
DRAW VIEWPORT AND CIRCLES
CALL
VIEW(4~,6~,599,2~9,~,~)
CALL DCIRCL <l)
DRAW VIEWPORT AND LINES
CALL
VIEW(6~,7~,579,199,1,1)
CALL DLINE(~)
CLEAR SCREEN
IX1=FVIEW(~)
IY1=FVIEW <l )
IX2=FVIEW(2)
IY2=FVIEW(3)
CALL
VIEW(6~-IX1,7~-IY1,6~+IX2,4~+IY2,~,1)
CALL CLS
RETURN
END
- - - - - - - - - l I a d l O l h a e l l - - - - - - - - -
-149-