Dark Bit Factory & Gravity

GENERAL => Challenges & Competitions => Topic started by: Rattrapmax6 on June 17, 2006

Title: Short Intro Challenge: Roto-Sinus (FireWheel v2.0)
Post by: Rattrapmax6 on June 17, 2006

Second one for the quotta...  ;D

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  ...  :)

Title: Re: Short Intro Challenge: Roto-Sinus (FireWheel v2.0)
Post by: Shockwave on June 17, 2006

Cool effect there and the code is readable :) Well done.

Title: Re: Short Intro Challenge: Roto-Sinus (FireWheel v2.0)
Post by: Clyde on June 17, 2006

Wow mate, thats excellent. Welldone dude.