Small Basic > Getting Started Guide > Appendix A: Fun Samples

### Turtle Fractal

Figure A.1 - Turtle drawing a tree fractal

``````angle = 30
delta = 10
distance = 60
Turtle.Speed = 9
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = "LightGreen"
DrawTree()

Sub DrawTree
If (distance > 0) Then
Turtle.Move(distance)
Turtle.Turn(angle)

Stack.PushValue("distance", distance)
distance = distance - delta
DrawTree()
Turtle.Turn(-angle * 2)
DrawTree()
Turtle.Turn(angle)
distance = Stack.PopValue("distance")

Turtle.Move(-distance)
EndIf
EndSub``````

### Photos from Flickr

Figure A.2 - Retrieving pictures from Flickr

``````GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.MouseDown = OnMouseDown

Sub OnMouseDown
pic = Flickr.GetRandomPicture("mountains, river")
GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)
EndSub``````

### Dynamic Desktop Wallpaper

``````For i = 1 To 10
pic = Flickr.GetRandomPicture("mountains")
Desktop.SetWallPaper(pic)
Program.Delay(10000)
EndFor``````

``````GraphicsWindow.BackgroundColor = "DarkBlue"
GraphicsWindow.MouseMove = OnMouseMove

x = 0
y = 0
deltaX = 1
deltaY = 1

RunLoop:
x = x + deltaX
y = y + deltaY

gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x >= gw - 16 or x <= 0) Then
deltaX = -deltaX
EndIf
If (y <= 0) Then
deltaY = -deltaY
EndIf

If (y = gh - 28 and x >= padX and x <= padX + 120) Then
deltaY = -deltaY
EndIf

Shapes.Move(ball, x, y)
Program.Delay(5)

If (y < gh) Then
Goto RunLoop
EndIf