Fractals

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

mike_g	Created : 20 August 2007 Language : Blitz Fractals
A fractal effect I came up with a while back. Its hideously slow for what it does, but it looks kind of cool. Change the effect by altering the constant values, just dont set 'recursions' much higher cos it wont look any better, it will just eat up all your RAM. And yes, I know they arent really recursions AppTitle "Fractals" Graphics 640, 480, 32, 2 SetBuffer BackBuffer() Const recursions = 8 Const base_length = 100 Const base_lines = 3 Const ox = 320 Const oy = 240 Const spawn = 2 Const shrink# = 1.6 Type lines Field x1, y1 Field x2, y2 Field length Field angle# Field r, g, b End Type Global off While Not KeyHit(1) Cls off=off+1 DrawFractal() Flip Wend Function DrawFractal() length = base_length num_lines = base_lines deg_off = (360/base_lines)+off For i = 1 To base_lines l.lines = New lines l\x1=ox: l\y1=oy l\angle# = i * deg_off l\length = base_length l\x2 = l\x1+Sin(l\angle)l\length l\y2 = l\y1+Cos(l\angle)l\length Next For r = 1 To recursions re=100: gr=200: bl=80 ;Color re-(r8), gr-(r16), bl-(r8) Color re-(r16) Xor bl, gr-(r/8), bl-(r8) For l.lines = Each lines Line l\x1, l\y1, l\x2, l\y2 Next count = 0 For l.lines = Each lines count = count + 1 If r < recursions For i = 1 To spawn l2.lines = New lines l2\x1 = l\x2: l2\y1 = l\y2 l2\length = l\length/shrink# l2\angle = l\angle - (((spawn+1)deg_off)/2) l2\angle = l2\angle + (i * deg_off) l2\x2 = l2\x1+Sin(l2\angle)l2\length l2\y2 = l2\y1+Cos(l2\angle)l2\length Next EndIf Delete l.lines ;delete the old line If r = 1 And count >= base_lines Then Exit If r > 1 And count >= base_lines*(spawn ^ (r-1)) Then Exit Next Next End Function --v

Comments
Monday, 20 August 2007, 17:08
Jayenkai	Mmm.. Nice!!
Monday, 20 August 2007, 17:58
steve_ancell	I have not got a bloomin' clue how to do fratal stuff. I take my hat off and bow down to you .
Monday, 20 August 2007, 18:12
mike_g	Thanks guys. And steve, If you can make a rolling egg, you should be able to make simple fractals like these too
Tuesday, 21 August 2007, 06:57
steve_ancell	I take it that you have seen my rolling egg demo then . I never used fractals, I just used a simple flickbook animation. Have you got any easy to follow tutorials for us to chew on ?. Pretty Pleeeezze.
Tuesday, 21 August 2007, 08:31
mike_g	Yeah sure. This site explains how they work quite well: Link Theres also quite a lot about different fractals on Wikipedia

Comments