USING: kernel math typed classes.struct locals ; QUALIFIED-WITH: alien.c-types c IN: sim STRUCT: svec { x c:double } { y c:double } { z c:double } { a c:double } { b c:double } { c c:double } ; :: s+ ( v1 : svec v2 : svec -- c : svec ) svec new v1 x>> v2 x>> + >>x v1 y>> v2 y>> + >>y v1 z>> v2 z>> + >>z v1 a>> v2 a>> + >>a v1 b>> v2 b>> + >>b v1 c>> v2 c>> + >>c ;