random-segment ( previous-segment -- segment )


Vocabulary
jamshred.tunnel

Inputs
previous-segmentan object


Outputs
segmentan object


Definition
USING: accessors jamshred.oint kernel ;

IN: jamshred.tunnel

: random-segment ( previous-segment -- segment )
clone dup random-rotation-angle random-turn
tunnel-segment-distance over go-forward random-color >>color
dup segment-number++ ;