'===========================================================================
' Subject: VARIOUS CIRCLE EFFECTS            Date: 10-19-97 (09:09)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: GRAPHICS.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' CIRCLS13.BAS -- Written in QuickBasic 4.5
'                  
' Name: Circles in SCREEN 13
' Author: Alexander Meyer
' Date: 10-18-1997
' Description: Various circle effects in SCREEN 13
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

SCREEN 13         '--> VGA 320 x 200
RANDOMIZE TIMER
CLS
DO
 Stepped% = Stepped% + 1
 FOR z% = 1 TO 15
  FOR i% = 1 TO 200 STEP Stepped%
    z% = z% + 1
    CIRCLE (160, 95), i%, z%
    IF INKEY$ <> "" THEN GOTO NextCircle
  NEXT i%
NEXT z%
LOOP UNTIL Stepped% = 400

NextCircle:
Stepped% = 400
DO
 Stepped% = Stepped% - 1
 FOR z% = 1 TO 15
  FOR i% = 1 TO 200 STEP Stepped%
    z% = z% + 1
    CIRCLE (160, 95), i%, z%
    IF INKEY$ <> "" THEN GOTO NextCircle2
  NEXT i%
NEXT z%
LOOP UNTIL Stepped% = 1

NextCircle2:
Stepped% = 0
DO
 Stepped% = Stepped% - 1
 FOR z% = 1 TO 15
  FOR i% = 200 TO 1 STEP Stepped%
    z% = z% + 1
    CIRCLE (160, 95), i%, z%
    IF INKEY$ <> "" THEN GOTO NextCircle3
  NEXT i%
NEXT z%
LOOP UNTIL Stepped% = -240

NextCircle3:
CLS
z% = 16
DO
  FOR i% = 1 TO 200
    z% = z% + 1: IF z% = 25 THEN z% = 16
    CIRCLE (150, 95), i%, z%
    IF INKEY$ <> "" THEN GOTO NextCircle4
  NEXT i%
LOOP WHILE INKEY$ = ""

NextCircle4:
CLS
z% = 33
DO
  FOR i% = 1 TO 100
    z% = z% - 1: IF z% = 1 THEN z% = 33
    CIRCLE (150, 95), i%, z%
  NEXT i%
LOOP WHILE INKEY$ = ""

CLS
DO WHILE INKEY$ = ""
Radius% = INT(RND * 400)
Farbe% = INT(RND * 254 + 1)
IF INKEY$ <> "" THEN GOTO NextCircle5
CIRCLE (160, 95), Radius%, Farbe%, , , 2
LOOP

NextCircle5:
CLS
Stepped% = 0
DO
 Stepped% = Stepped% + 1
 FOR z% = 1 TO 15
  FOR i% = 1 TO 200 STEP Stepped%
  Timing% = Timing% + 1
    a% = a% + 1
    b% = b% - 1
    z% = z% + 1
    CIRCLE (160, 95), i%, z%
    PRINT
    IF INKEY$ <> "" OR Timing% = 300 THEN GOTO NextCircle6
  NEXT i%
NEXT z%
LOOP

NextCircle6:
Timing% = 0
Stepped% = 100
DO
 Stepped% = Stepped% - 1
 FOR z% = 1 TO 15
  FOR i% = 200 TO 1 STEP Stepped%
  Timing% = Timing% + 1
    a% = a% + 1
    b% = b% - 1
    z% = z% + 1
    CIRCLE (160, 95), i%, z%
    PRINT
    IF INKEY$ <> "" OR Timing% = 300 THEN GOTO NextCircle7
  NEXT i%
NEXT z%
LOOP

NextCircle7:
CLS
DO
FOR i% = 0 TO 300
CIRCLE (i%, i%), i%, i%
VIEW (1, 1)-(100, 99)
PAINT (1, 1), i%
IF INKEY$ <> "" THEN GOTO NextCircle8
NEXT i%
LOOP WHILE INKEY$ = ""

NextCircle8:
CLS : VIEW
FOR i% = 0 TO 300
CIRCLE (i%, i%), i%, i%
NEXT i%
DO WHILE INKEY$ = "": LOOP

CLS
FOR i% = 1 TO 135
  FOR z% = 1 TO 40
    CIRCLE (i%, i%), z%, i% + z%
NEXT z%, i%
DO WHILE INKEY$ = "": LOOP

CLS
FOR y% = 150 TO 300
  FOR x% = 100 TO 300
    FOR i% = 1 TO 99
      FOR Delay% = 1 TO 20
      IF INKEY$ <> "" THEN GOTO NextCircle9
      z% = z% + 1
      CIRCLE (y%, x%), i%, z%, , , -i% / 25
NEXT Delay%, i%, x%, y%

NextCircle9:
CLS
DO WHILE INKEY$ = ""
FOR i% = 0 TO 300
  IF INKEY$ <> "" THEN GOTO NextCircle10
  CIRCLE (i%, -i%), 300, i%, , , i% / 50
NEXT i%
LOOP

NextCircle10:
CLS
FOR i% = 200 TO 1 STEP -1
  CIRCLE (i%, i%), i%, i%, , , -i% / 50
NEXT i%
DO WHILE INKEY$ = "": LOOP

CLS
DO
FOR z% = 1 TO 15
  FOR i% = 1 TO 200 STEP 50
    z% = z% + 1
    CIRCLE STEP(0, 1), i%, z%
    IF INKEY$ <> "" THEN END
  NEXT i%
NEXT z%
LOOP UNTIL INKEY$ <> ""

END