simple-segment ( n -- segment )

Vocabulary

jamshred.tunnel

Inputs

n

an object

Outputs

segment

an object

Definition

USING: kernel math.vectors
specialized-arrays.instances.alien.c-types.float ;

IN: jamshred.tunnel

: simple-segment ( n -- segment )
    [
        float-array{ 0.0 0.0 -1.0 } n*v
        float-array{ 0.0 0.0 -1.0 } float-array{ 0.0 1.0 0.0 }
        float-array{ -1.0 0.0 0.0 }
    ] keep random-color default-segment-radius <segment> ;