March 2014 update

Task/Fractal-tree/AutoHotkey/fractal-tree.ahk

@@ -0,0 +1,66 @@
+#SingleInstance, Force
+#NoEnv
+SetBatchLines, -1
+
+; Uncomment if Gdip.ahk is not in your standard library
+; #Include, Gdip.ahk
+
+FileOut		:= A_Desktop "\MyNewFile.png"
+TreeColor	:= 0xff0066ff	; ARGB
+TrunkWidth 	:= 10		; Pixels
+TrunkLength	:= 80		; Pixels
+Angle 		:= 60		; Degrees
+ImageWidth 	:= 670		; Pixels
+ImageHeight 	:= 450		; Pixels
+Branches	:= 13
+Decrease	:= 0.81
+
+Angle := (Angle * 0.01745329252) / 2
+	, Points := {}
+	, Points[1, "Angle"] := 0
+	, Points[1, "X"] := ImageWidth // 2
+	, Points[1, "Y"] := ImageHeight - TrunkLength
+
+if (!pToken := Gdip_Startup()) {
+	MsgBox, 48, Gdiplus error!, Gdiplus failed to start. Please ensure you have Gdiplus on your system.
+	ExitApp
+}
+OnExit, Exit
+
+pBitmap := Gdip_CreateBitmap(ImageWidth, ImageHeight)
+	, G := Gdip_GraphicsFromImage(pBitmap)
+	, Gdip_SetSmoothingMode(G, 4)
+	, pBrush := Gdip_BrushCreateSolid(0xff000000)
+	, Gdip_FillRectangle(G, pBrush, -5, -5, ImageWidth + 10, ImageHeight + 10)
+	, Gdip_DeleteBrush(pBrush)
+	, pPen := Gdip_CreatePen(TreeColor, TrunkWidth/Decrease)
+	, Gdip_DrawLine(G, pPen, Points.1.X, Points.1.Y, Points.1.X, ImageHeight)
+	, Gdip_DeletePen(pPen)
+
+Loop, % Branches {
+	NewPoints := {}
+	pPen := Gdip_CreatePen(TreeColor, TrunkWidth)
+	for Each, Point in Points {
+		N1 := A_Index * 2
+			, N2 := (A_Index * 2) + 1
+			, NewPoints[N1, "X"] := Point.X + (TrunkLength * Sin(NewPoints[N1, "Angle"] := Point.Angle - Angle))
+			, NewPoints[N1, "Y"] := Point.Y - (TrunkLength * Cos(NewPoints[N1].Angle))
+			, NewPoints[N2, "X"] := Point.X + (TrunkLength * Sin(NewPoints[N2, "Angle"] := Point.Angle + Angle))
+			, NewPoints[N2, "Y"] := Point.Y - (TrunkLength * Cos(NewPoints[N2].Angle))
+			, Gdip_DrawLine(G, pPen, Point.X, Point.Y, NewPoints[N1].X, NewPoints[N1].Y)
+			, Gdip_DrawLine(G, pPen, Point.X, Point.Y, NewPoints[N2].X, NewPoints[N2].Y)
+	}
+	TrunkWidth *= Decrease
+		, TrunkLength *= Decrease
+		, Points := NewPoints
+		, Gdip_DeletePen(pPen)
+}
+
+Gdip_SaveBitmapToFile(pBitmap, FileOut)
+	, Gdip_DisposeImage(pBitmap)
+	, Gdip_DeleteGraphics(G)
+Run, % FileOut
+
+Exit:
+Gdip_Shutdown(pToken)
+ExitApp

Task/Fractal-tree/Smalltalk/fractal-tree-1.st

@@ -0,0 +1,5 @@
+Object subclass: #FractalTree
+    instanceVariableNames: ''
+    classVariableNames: ''
+    poolDictionaries: ''
+    category: 'RosettaCode'

Task/Fractal-tree/Smalltalk/fractal-tree-2.st

@@ -0,0 +1,25 @@
+tree: aPoint length: aLength angle: anAngle
+    | p a |
+
+    (aLength > 10) ifTrue: [
+        p := Pen new.
+        p up.
+        p goto: aPoint.
+        p turn: anAngle.
+        p down.
+        5 timesRepeat: [
+            p go: aLength / 5.
+            p turn: 5.
+        ].
+        a := anAngle - 30.
+        3 timesRepeat: [
+            self tree: p location length: aLength * 0.7 angle: a.
+            a := a + 30.
+        ]
+    ].
+
+draw
+    Display restoreAfter: [
+        Display fillWhite.
+        self tree: 700@700 length: 200 angle: 0.
+    ]

Task/Fractal-tree/Smalltalk/fractal-tree-3.st

@@ -0,0 +1 @@
+FractalTree new draw.