23 lines
376 B
Factor
23 lines
376 B
Factor
|
|
USING: kernel arrays math.vectors ;
|
|
|
|
IN: math.points
|
|
|
|
<PRIVATE
|
|
|
|
: X ( x -- point ) 0 0 3array ;
|
|
: Y ( y -- point ) 0 swap 0 3array ;
|
|
: Z ( z -- point ) 0 0 rot 3array ;
|
|
|
|
PRIVATE>
|
|
|
|
: v+x ( seq x -- seq ) X v+ ;
|
|
: v-x ( seq x -- seq ) X v- ;
|
|
|
|
: v+y ( seq y -- seq ) Y v+ ;
|
|
: v-y ( seq y -- seq ) Y v- ;
|
|
|
|
: v+z ( seq z -- seq ) Z v+ ;
|
|
: v-z ( seq z -- seq ) Z v- ;
|
|
|