Dark Bit Factory & Gravity

GENERAL => Challenges & Competitions => Topic started by: Shockwave on November 30, 2006

Title: MATHCOMP Grinch Dragon.
Post by: Shockwave on November 30, 2006

Here's a nice little fractal in Freebasic..

Code: [Select]

' Grinch Dragon By Shockwave.
' Thanks to Paul Bourke ( formula taken from his site ).
' Rbraz + Jim for PTC Lib.
'
'-------------------------------------------------------------------------------
    OPTION STATIC
    OPTION EXPLICIT

    CONST   XRES = 800:' SCREEN WIDTH
    CONST   YRES = 600:' SCREEN HEIGHT
   
    #include "ptc.bi"
   
    DIM SHARED AS UINTEGER BUFFER ( XRES * YRES ) :' SCREEN BUFFER
    DIM SHARED AS DOUBLE XX,YY,ZZ,S1,S2,B,A,R,D13,D23,X1,Y1
    DIM  AS INTEGER L,XPL,YPL ,GADD,OX,OY
    DIM AS UINTEGER COLOURS(YRES)
    FOR L=0 TO YRES
        COLOURS(L) = RGB(125+124*SIN(L/44),125+124*SIN(L/74),125+124*SIN(L/114))
    NEXT
   
    D13 = 1/3
    D23 = 2/3

    XX=RND(1)
    YY=RND(1)
    ZZ=RND(1)
   
    A=0
    B=0
   
    S1 = 500
    S2 = S1 * 750 / 1026
   
    RANDOMIZE TIMER
   
    B = 1 / (SQR(3))
    R = 2.0
   
    PTC_SETFLIP(1) :' SCREEN SYNC ON.
   
    ' OPEN THE SCREEN;
   
        IF ( PTC_OPEN ( "GRINCH DRAGON.", XRES, YRES ) = 0 ) THEN
        END -1
        END IF
   
    ' MAIN LOOP;

    WHILE(1)
        GADD=GADD+2
        OX=(160*SIN(GADD/200))+160
        OY=(200*COS(GADD/177))+200
        FOR L=1 TO 20000
            A = RND(1)
            IF A<=D13 THEN
                X1 = (XX+YY*B)/R
                Y1 = (B*XX-YY)/R
            END IF
            IF A>D13 AND A <=D23  THEN
                X1 = (XX-B*YY)/R+1/R
                Y1 = (-B *XX-YY)/R+B/R
            END IF
            IF A>=D23 THEN
                X1 = ( XX+YY*B)/R+1
                Y1 = -(B*XX-YY) / R
            END IF
            XX=X1
            YY=Y1
            IF L>10 THEN
                XPL = OX+S1*XX/(1+ZZ/4)-200
                YPL = OY + S2 * YY/(1+ZZ/4)
                IF XPL>0 AND XPL<XRES AND YPL>0 AND YPL<YRES THEN
                    BUFFER(XPL+(YPL*XRES)) = COLOURS(YPL)
                END IF
            END IF
        NEXT
       
        PTC_UPDATE@BUFFER(0)
        ERASE BUFFER
    WEND


Title: Re: MATHCOMP Grinch Dragon.
Post by: mind on November 30, 2006

neat.. i was thinking about making one of those.. or a koch snowflake thingy or one of them smoking ship fractals.. but i decided on the buddha for my first submission.. might whip up something else later.. i still have like 2-3 days, right?

Title: Re: MATHCOMP Grinch Dragon.
Post by: taj on November 30, 2006

Nice picture but I was vaguely disappointed by the lack of sexual references in the code!  ::) THATS an IFS shockwave :-)

Title: Re: MATHCOMP Grinch Dragon.
Post by: benny! on November 30, 2006

n1 shockwave. Like the structure and the gradient colors of it.

Title: Re: MATHCOMP Grinch Dragon.
Post by: MrP on November 30, 2006

Again very nice, dont know how you manage to make everything look like its got some old school flavour in it somewhere..... All Hail the old school king......

Title: Re: MATHCOMP Grinch Dragon.
Post by: rdc on November 30, 2006

Nice one.

Title: Re: MATHCOMP Grinch Dragon.
Post by: Shockwave on December 01, 2006

Old school king? :) I'm beaming but I don't deserve the accolade. Thanks for the comments :)

Title: Re: MATHCOMP Grinch Dragon.
Post by: Jim on December 01, 2006

Yeah, it's only the 'old' part you deserve :p

Jim

Title: Re: MATHCOMP Grinch Dragon.
Post by: Shockwave on December 03, 2006

Fucking right :) Karma up for that Jim!

Title: Re: MATHCOMP Grinch Dragon.
Post by: lilw4t3rdr0p on December 03, 2006

I love it, but you already know that I like lots of color. And you are NOT OLD! I also like the old school feel!

 :clap: