+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: QB64 Rising (https://staging.qb64phoenix.com/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://staging.qb64phoenix.com/forumdisplay.php?fid=3)
+---- Forum: Programs (https://staging.qb64phoenix.com/forumdisplay.php?fid=7)
+---- Thread: BAM _Trees! (/showthread.php?tid=1090)
BAM _Trees! - James D Jarvis - 11-09-2022
Just some digital doodling. Generate a simple forest landscape of leafy trees.
Code: (Select All)
'BAM_Trees
'quick random leafy random trees
'why is it called BAM-Trees? Because the draw_leaves routine is a variant from a sample at:
' https://sites.google.com/view/basicanywheremachine
'
'press any key to generate a new image
'press <esc> to quit
'
Randomize Timer
Screen _NewImage(1100, 600, 32)
_Title "BAM_Trees!"
Do
Cls
hrz = Int(Rnd * 30 + 120)
Line (0, 0)-(_Width, hrz), _RGB32(Rnd * 10, Rnd * 10, Rnd * 200 + 40), BF
Line (0, hrz)-(_Width, _Height), _RGB32(Rnd * 200 + 40, Rnd * 200 + 40, Rnd * 10), BF
For r = 1 To 4
treetopx = 10: treetopy = r * 120
numtinrow = Int(Rnd * 13 + 6)
For b = 1 To numtinrow
treetopx = treetopx + Int(Rnd * 5 + 5) * (10 * 25 / numtinrow): treetopy = Int(Rnd * 100 + r * 100)
draw_trunk treetopx, treetopy
draw_leaves treetopx, treetopy, Int(Rnd * 20) + 20, Rnd * 5 + 6, Int(Rnd * 360)
Next b
Next r
Do
_Limit 30
kk$ = InKey$
Loop Until kk$ <> ""
Loop Until kk$ = Chr$(27)
Sub draw_leaves (x%, y%, length%, line_count%, start_angle%)
angle_increment% = 360 / line_count%
my_color~& = _RGB32(40, Rnd * (256 - (y% / 6)), 60)
For i% = 0 To (line_count% - 1)
_Limit 40000
Draw "bm " + Str$(x%) + "," + Str$(y%)
Draw "C" + Str$(my_color~&) + " TA" + Str$(start_angle% + angle_increment% * i%) + " r" + Str$(length%)
If length% > (Rnd * 11.4 + 3.5) Then
Call draw_leaves(Point(0), Point(1), Int(length% / (1.125 + Rnd * 2.25)), line_count%, start_angle% + angle_increment% * (i% + 1))
End If
Next
End Sub
Sub draw_trunk (tx, ty)
tw = Int(Rnd * 25 + 10)
For t = 1 To tw
trunk~& = _RGB32(Rnd * 50 + 20, Rnd * 50 + 50, Rnd * 20)
Line (tx, ty)-(tx + Rnd * (8 * tw / 30), ty + 60 + Rnd * 30), trunk~&, BF
Next t
End Sub