Short Intro Challenge: Roto-Sinus (FireWheel v2.0)

[Rattrapmax6]

Second one for the quotta... 

These normaly fall under "Just for the hell of it" codes, I have a few different versions I've made in the past.. (including one that looks like the Mazda Rotory logo, I should release that sometime..) .. This one is a 20x prettier version of "Flame Wheel", a demo I released on QBN.. Enjoy!

Code: [Select]

SCREENRES 400, 400, 32, 2
WINDOWTITLE "x.t.r.GRAPHICS: Flame-Wheel v2.0"
DIM AS SINGLE X, Y, RAD, ANG, Flare, Patt = .3, P1, P2 = 1
DIM AS INTEGER PTR BLUR = IMAGECREATE(400,400)
DO
    SCREENSET P1, P2
    SWAP P1, P2
    CLS
    PUT (0,0), BLUR, ALPHA, 230
    PUT (1,0), BLUR, ALPHA, 100
    FOR ANG = 0 TO 360 STEP .1
        Flare += Patt
        COL = ABS(SIN(ANG * 3.14 / 180) * 255)
        PSET(COS(ANG * 3.14 / 180) * ((SIN(Flare * 3.14 / 180) * 100) + 50) + 200, SIN(ANG * 3.14 / 180) * ((SIN(Flare * 3.14 / 180) * 100) + 50) + 200), RGB(255, COL, 0)
    NEXT
    IF Flare > 500000 THEN Flare = 0
    GET(0, 0)-(399, 399), BLUR
    SLEEP 50
LOOP UNTIL INKEY <> ""
EXE: http://www.xteraco.com/xtrgraphics/Temp/20LinerIntro(2).zip  ... 

[Shockwave]

Cool effect there and the code is readable Well done.

[Clyde]

Wow mate, thats excellent. Welldone dude.