46 lines
896 B
QBasic
46 lines
896 B
QBasic
REM DEMONSTRATION PROGRAM FOR CIRCLE DRAWING FUNCTIONS
|
||
REM
|
||
REM PROGRAM NAME: TSTCIR.BAS
|
||
REM
|
||
%INCLUDE GRAPHCOM.BAS
|
||
%INCLUDE CIRCOM.BAS
|
||
GRAPHIC OPEN 1
|
||
CLEAR
|
||
PRINT "COMPUTING"
|
||
CALL BEG.CIR
|
||
PRINT "ENDED"
|
||
CALL PLOT.CIR
|
||
KEY% = CONCHAR% REM WAIT FOR KEYBOARD
|
||
|
||
REM SCALE THE WINDOW TO DRAW A PROPERLY PROPORTIONED CIRCLE
|
||
|
||
ASK DEVICE X.AXIS,Y.AXIS
|
||
PRINT X.AXIS,Y.AXIS
|
||
SET WINDOW 0,X.AXIS/Y.AXIS,0,1
|
||
CALL PLOT.CIR
|
||
KEY%=CONCHAR%
|
||
CALL FILL.CIR
|
||
KEY%=CONCHAR%
|
||
|
||
REM CHANGE THE VIEWPORT TO REPOSITION THE CIRCLE
|
||
|
||
SET VIEWPORT 0,.5,0,.5 REM LOWER LEFT QUARTER
|
||
CLEAR
|
||
CALL PLOT.CIR
|
||
KEY%=CONCHAR%
|
||
|
||
SET VIEWPORT .5,1,0,.5 REM LOWER RIGHT QUARTER
|
||
CALL PLOT.CIR
|
||
KEY%=CONCHAR%
|
||
|
||
SET VIEWPORT 0,.5,.5,1 REM UPPER LEFT QUARTER
|
||
CALL PLOT.CIR
|
||
KEY%=CONCHAR%
|
||
|
||
SET VIEWPORT .5,1,.5,1 REM UPPER RIGHT QUARTER
|
||
CALL PLOT.CIR
|
||
KEY%=CONCHAR%
|
||
|
||
STOP
|
||
END
|
||
|