Fractal Tree

Monkey Forums/Monkey Code/Fractal Tree

NoOdle (Posted 2012) [#1]

Draws a fractal tree and it crudely sways in the wind. Try playing with the controls, they produce some cool effects! SpaceKey Starts / stops wind Left / Right Rotates tree A / D Changes angle difference (Very Cool Effect!!!) - / + Changes depth of tree, makes the tree shrink/grow Import mojo Global ANGLE_DIF : Float = 20.0 Global SHAKE : Float = 0.0 Global SHAKE_STRENGTH : Float = 0.0 Global MAX_SHAKE_STRENGTH : Float = 1.0 '/ Recursively Draw Tree Function DrawTree( x1 : Float, y1 : Float, angle : Float, depth : Int ) SHAKE = SHAKE + 0.01 If depth <> 0 Local x2 : Float = x1 + ( Cos( angle ) * depth * 10.0 ) Local y2 : Float = y1 + ( Sin( angle ) * depth * 10.0 ) SetColor 0, 0, 0 DrawThickLine( x1, y1, x2, y2, depth, True ) DrawTree( x2, y2, angle - ANGLE_DIF + ( Sin( SHAKE ) * SHAKE_STRENGTH ), depth - 1 ) DrawTree( x2, y2, angle + ANGLE_DIF + ( Sin( SHAKE ) * SHAKE_STRENGTH ), depth - 1 ) Endif End Function '/ Draws thick line Function DrawThickLine( x1 : Float, y1 : Float, x2 : Float, y2 : Float, thickness : Float = 2.0, rounded : Bool = False ) Local dx : Float = x2 - x1 Local dy : Float = y2 - y1 Local d : Float = Sqrt( dx * dx + dy * dy ) Local vx : Float = dx / d Local vy : Float = dy / d Local nx : Float = vy Local ny : Float = -vx Local points : Float[ 8 ] points[ 0 ] = x1 + ( nx * ( thickness / 2.0 )) points[ 1 ] = y1 + ( ny * ( thickness / 2.0 )) points[ 2 ] = x1 + ( -nx * ( thickness / 2.0 )) points[ 3 ] = y1 + ( -ny * ( thickness / 2.0 )) points[ 4 ] = x2 + ( -nx * ( thickness / 2.0 )) points[ 5 ] = y2 + ( -ny * ( thickness / 2.0 )) points[ 6 ] = x2 + ( nx * ( thickness / 2.0 )) points[ 7 ] = y2 + ( ny * ( thickness / 2.0 )) DrawPoly( points ) If rounded = True DrawEllipse x1, y1, thickness / 2.0, thickness / 2.0 DrawEllipse x2, y2, thickness / 2.0, thickness / 2.0 Endif End Function Class MyApp Extends App Field angle : Float = 0.0 Field depth : Int = 9 Field mode : Bool = False Method OnCreate() SetUpdateRate 60 End Method Method OnUpdate() If KeyDown( KEY_LEFT ) angle = angle - 1.0 Endif If KeyDown( KEY_RIGHT ) angle = angle + 1.0 Endif If KeyDown( KEY_A ) ANGLE_DIF = ANGLE_DIF - 1.0 Endif If KeyDown( KEY_D ) ANGLE_DIF = ANGLE_DIF + 1.0 Endif If KeyHit( KEY_MINUS ) depth = depth - 1 If depth < 1 Then depth = 1 Endif If KeyHit( KEY_EQUALS ) depth = depth + 1 Endif If KeyHit( KEY_SPACE ) mode = Not mode Endif End Method Method OnRender() Cls 255, 255, 255 SetColor 0, 0, 0 If mode If SHAKE_STRENGTH < MAX_SHAKE_STRENGTH SHAKE_STRENGTH = SHAKE_STRENGTH + 0.01 Endif Else If SHAKE_STRENGTH > 0 SHAKE_STRENGTH = SHAKE_STRENGTH - 0.01 Endif Endif DrawTree( 300, 480, -90 + angle, depth ) End Method End Class Function Main() New MyApp() End Function

muddy_shoes (Posted 2012) [#2]

Fun. Here, I had a play and added randomisation and an additional sway element (it's fun to have them both going as they interact). 'R' changes random seed. 'S' turns on the sway. Import mojo Global ANGLE_DIF : Float = 20.0 Global SHAKE : Float = 0.0 Global SHAKE_STRENGTH : Float = 0.0 Global MAX_SHAKE_STRENGTH : Float = 1.0 Global DrawSeed:Int = 0 Global sway:Bool = False Global sway_angle:Float = 0.0 Global sway_speed:Float = 0.15 Const MAX_SWAY:Float = 3.0 Const MIN_SWAY:Float = -MAX_SWAY '/ Recursively Draw Tree Function DrawTree(x1:Float, y1:Float, angle:Float, sway:Float, depth:Int) SHAKE = SHAKE + 0.01 If depth <> 0 Local x2:Float = x1 + (Cos(angle + sway) * depth * 10.0 * (Rnd() + 0.5)) Local y2:Float = y1 + (Sin(angle + sway) * depth * 10.0 * (Rnd() + 0.5)) SetColor 0, 0, 0 DrawThickLine( x1, y1, x2, y2, depth, True ) sway *= 1.2 DrawTree(x2, y2, angle - (Rnd() + 0.5) * ANGLE_DIF + (Sin(SHAKE) * SHAKE_STRENGTH), sway, depth - 1) DrawTree(x2, y2, angle + (Rnd() + 0.5) * ANGLE_DIF + (Sin(SHAKE) * SHAKE_STRENGTH), sway, depth - 1) Endif End Function '/ Draws thick line Function DrawThickLine( x1 : Float, y1 : Float, x2 : Float, y2 : Float, thickness : Float = 2.0, rounded : Bool = False ) Local dx : Float = x2 - x1 Local dy : Float = y2 - y1 Local d : Float = Sqrt( dx * dx + dy * dy ) Local vx : Float = dx / d Local vy : Float = dy / d Local nx : Float = vy Local ny : Float = -vx Local points : Float[ 8 ] points[ 0 ] = x1 + ( nx * ( thickness / 2.0 )) points[ 1 ] = y1 + ( ny * ( thickness / 2.0 )) points[ 2 ] = x1 + ( -nx * ( thickness / 2.0 )) points[ 3 ] = y1 + ( -ny * ( thickness / 2.0 )) points[ 4 ] = x2 + ( -nx * ( thickness / 2.0 )) points[ 5 ] = y2 + ( -ny * ( thickness / 2.0 )) points[ 6 ] = x2 + ( nx * ( thickness / 2.0 )) points[ 7 ] = y2 + ( ny * ( thickness / 2.0 )) DrawPoly( points ) If rounded = True DrawEllipse x1, y1, thickness / 2.0, thickness / 2.0 DrawEllipse x2, y2, thickness / 2.0, thickness / 2.0 Endif End Function Class MyApp Extends App Field angle : Float = 0.0 Field depth : Int = 9 Field mode : Bool = False Method OnCreate() SetUpdateRate 30 End Method Method OnUpdate() If KeyDown( KEY_LEFT ) angle = angle - 1.0 Endif If KeyDown( KEY_RIGHT ) angle = angle + 1.0 Endif If KeyDown(KEY_S) sway = Not sway Endif If KeyDown(KEY_A) ANGLE_DIF = ANGLE_DIF - 1.0 Endif If KeyDown( KEY_D ) ANGLE_DIF = ANGLE_DIF + 1.0 Endif If KeyHit( KEY_MINUS ) depth = depth - 1 If depth < 1 Then depth = 1 Endif If KeyHit( KEY_EQUALS ) depth = depth + 1 Endif If KeyHit(KEY_R) DrawSeed = Int(Rnd() * 32768) End If KeyHit( KEY_SPACE ) mode = Not mode Endif End Method Method OnRender() Cls 255, 255, 255 SetColor 0, 0, 0 If sway sway_angle += sway_speed If sway_angle >= MAX_SWAY Or sway_angle <= MIN_SWAY sway_speed *= - 1 End End If mode If SHAKE_STRENGTH < MAX_SHAKE_STRENGTH SHAKE_STRENGTH = SHAKE_STRENGTH + 0.01 Endif Else If SHAKE_STRENGTH > 0 SHAKE_STRENGTH = SHAKE_STRENGTH - 0.01 Endif Endif random.Seed = DrawSeed DrawTree(300, 480, -90 + angle, sway_angle, depth) End Method End Class Function Main() New MyApp() End Function

NoOdle (Posted 2012) [#3]

Nice. I didn't know you could assign a value to the seed, very handy!