Radio Shack TRS-80 - Page 141

Computer Graphics Operation Manual
---------- TRS·BO @ ----------
SUBROUTINE CTEST
THIS SUBROUTINE TESTS CIRCLE, SETXY, AND PAINT
LOGICAL MSG(29)
CALL CLS
ENCODE C MSG, HJJ;J)
FORMATC'TEST CIRCLE, SETXY, AND PAINT')
CALL SETXYC~,~)
CALL LOCATEC~)
CALL GPRINTC29,MSG)
CALL WAIT
CALL VIEWC~,3~,639,239,~,~)
DO 1~ I=l,l~~
IX=MODCI*17,64~)
IY=MODCI*13,21~)
IR=I*1.5
START=MODCI,13)-6.~
END=MODCI*3,13)-6.~
IF CSTART.LT.END) GOTO 1
T=START
START=END
END=T
CONTINUE
RATIO=MODCI*3,1~~)
IF CRATIO.GT.~) RATIO=RATIO/4~.
CALL SETXYCIX,IY)
CALL CIRCLECIR,l,START,END,RATIO)
CONTINUE
RANDOMLY FILL IN THE AREAS
DO 11 I=1,5~
IX=MODCI*23,64~)
IY=MODCI*11,21~)
CALL SETXYCIX,IY)
CALL PAINTCl,l)
CONTINUE
CALL WAIT
CALL VIEWC~,~,639,239,-1,-l)
RETURN
END
---------ltadlOlllaell---------
-137-