sin cos using SUB SumLocate (x,y,l)

[pmackay]

       
instead of making data and reading it into memory i would like to use sin and cos to create the data so i can vary the size of the circle. there are three in the dimension which circloop1(x,y,show yes/no and explosion in progress status) not programed. but this is only a test so far.






SCREEN _NEWIMAGE(1366, 768, 32): DIM CIRCLOOP1(17, 3)
DIM SHARED SPRITES AS LONG
SPRITES = _LOADIMAGE("inva.png")



FOR I = 1 TO 16: READ CIRCLOOP1(I, 1), CIRCLOOP1(I, 2): NEXT I

DATA 3,1,4,1,5,1,6,2,7,3,7,4,7,5,6,6,5,7,4,7,3,7,2,6,1,5,1,4,1,3,2,2
CLS , _RGB32(&H39, &H2A, &H02)
frame = 1
RR% = 60: XX% = 8
DO
    FOR I = 1 TO 16
        SELECT CASE frame
            CASE 1
                _PUTIMAGE (CIRCLOOP1(I, 1) * 64 + RR%, CIRCLOOP1(I, 2) * 64), SPRITES, , (0, 0)-(63, 63)
            CASE 2
                _PUTIMAGE (CIRCLOOP1(I, 1) * 64 + RR%, CIRCLOOP1(I, 2) * 64), SPRITES, , (64, 0)-(127, 63)
        END SELECT
    NEXT I
    _DISPLAY
    CLS , _RGB32(&H39, &H2A, &H02)
    _LIMIT 10
    frame = frame + 1: IF frame > 2 THEN frame = 1: PLAY "T255L32O1G" ELSE PLAY "T255L32O1C"
    i$ = INKEY$
    RR% = RR% + XX%
    IF RR% > 700 THEN XX% = -8
    IF RR% < 50 THEN XX% = 8
LOOP WHILE i$ <> " "