Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=RGC563-0' /> </object>
' Turn the background to black
'Start the branch length to 60
'DrawBranch (recipe below)
'Recipe for DrawBranch
'PickColorForBranchLength (recipe below)
'Move the turtle the branch length
'DrawLowerBranch (recipe below)
'PickColorForBranchLength (recipe below)
'Move the Turtle backwards the length of the branch
'Recipe for DrawLowerBranch
'Decrease the branch length by 10
'if the branch length is more than 0 then
' turn the turtle 30 degrees
'DrawBranch (recipe above)
' turn the turtle back 60 degrees
'DrawBranch (recipe above)
'turn the turtle 30 degrees
'Increase the branch length by 10
'Recipe for PickColorForBranchLength
'Color #10 is Lime
'Color #20 is ForestGreen
'Color #30 is DarkGreen
'Color #40 is Olive
'Color #50 is Sienna
'Color #60 is SaddleBrown
'set the pen color to the Color for the branch length
Copyright (c) Microsoft Corporation. All rights reserved.