turtles-own [steps is-axillary]
to initialize
clear-all
create-turtles 1
ask turtles [
set color yellow
set xcor 0
set ycor -1 * screen-edge-y * 0.5
set heading 0
set steps internode-length
set is-axillary false
]
ask turtles [
while [steps > 0] [
set pcolor-of patch-here yellow
forward 1
set steps steps - 1
]
]
ask turtles [
hatch 1[
set is-axillary true
ifelse random 2 = 0 [right divergence-angle][left divergence-angle]
]
]
end
to make-axillary
end
to make-apical
end
to go-once
ask turtles [
ifelse is-axillary [
if random 1000 < 1000 * axillary-probability [
set is-axillary false
set steps internode-length
while [steps > 0] [
set pcolor-of patch-here yellow
forward 1
set steps steps - 1
]
hatch 1[
set is-axillary true
ifelse random 2 = 0 [right divergence-angle][left divergence-angle]
]
]
][
if random 1000 < 1000 * apical-probability [
set is-axillary false
set steps internode-length
while [steps > 0] [
set pcolor-of patch-here yellow
forward 1
set steps steps - 1
]
hatch 1[
set is-axillary true
ifelse random 2 = 0 [right divergence-angle][left divergence-angle]
]
]
]
]
end
