'===========================================================================
' Subject: FLOATING/ROTATING LINES           Date: 07-25-99 (12:02)       
' Author:  Marc Santa                        Code: QB, QBasic, PDS        
' Origin:  santa@tir.com                   Packet: DEMOS.ABC
'===========================================================================
CLS
DO
DO
SCREEN 13
WINDOW (-25, -8)-(25, 25)
c = c + 1
COLOR 0
        PRINT c
        IF c < 45 THEN
                LINE (0, 0)-(9, 9), 0
        ELSE
                FOR r = 0 TO 8.3 STEP .1
                COLOR 0
                        PRINT r
                        y = r * COS(r)
                        x = r * SIN(r)
                                LINE (-x, y)-(x, -y), r * 10 + 16
                                LINE (-x - 15, y)-(x - 15, -y), r * 10 + 16
                                LINE (-x + 15, y)-(x + 15, -y), r * 10 + 16
                NEXT r
        END IF
LOOP UNTIL c > 44
FOR u = 8.3 TO 0 STEP -.1
                a = u * COS(u)
                B = u * SIN(u)
COLOR 0
PRINT u
                LINE (-B, a)-(B, -a), u * 10 + 16
                LINE (-B - 15, a)-(B - 15, -a), u * 10 + 16
                LINE (-B + 15, a)-(B + 15, -a), u * 10 + 16
NEXT u
DO
SCREEN 13
WINDOW (-25, -8)-(25, 25)
c = c + 1
COLOR 0
        PRINT c
        IF c < 45 THEN
                LINE (0, 0)-(9, 9), 0
        ELSE
                FOR r = 0 TO 8.3 STEP .1
                COLOR 0
                        PRINT r
                        y = r * COS(r)
                        x = r * SIN(r)
                                LINE (-x, y)-(x, -y), r * 10 + 16
                                LINE (-x - 15, y)-(x - 15, -y), r * 10 + 16
                                LINE (-x + 15, y)-(x + 15, -y), r * 10 + 16
                NEXT r
        END IF
LOOP UNTIL c > 44
COLOR 15
FOR u = 8.3 TO 0 STEP -.1
                a = u * COS(u)
                B = u * SIN(u)
                LINE (-B, a)-(B, -a), u * 10 + 16
                LINE (-B - 15, a)-(B - 15, -a), u * 10 + 16
                LINE (-B + 15, a)-(B + 15, -a), u * 10 + 16
NEXT u
CLS
LOOP