'Topic: On biodiversity again
'Jerry
' cycling alga
' or alga_seasonalis
' derived from
' Floating alga
'
' Vegetable
'* be floating *
cond
*.robage 0 =
start
500 .setboy store
stop
'* descent when ripe *
cond
*.nrg 10000 >
*.body 20000 >
start
10 *.shell sub .mkshell store
0 .setboy store
stop
'* spread seeds when deep enough,
'* then ascend again *
'* boyancy decreases with increasing age *
cond
*.nrg 5000 >
*.depth 10000 >
start
50 .repro store
15 .aimdx store
*.robage -50 div 500 add .setboy store
stop
end