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
|
|||
|
|
|