2015-06-29 19:43:15 -04:00
|
|
|
USING: macros quotations math math.functions math.trig
|
|
|
|
|
sequences.deep kernel make fry combinators grouping ;
|
|
|
|
|
IN: 4DNav.deep
|
|
|
|
|
|
|
|
|
|
! USING: bake ;
|
|
|
|
|
! MACRO: deep-cleave-quots ( seq -- quot )
|
|
|
|
|
! [ [ quotation? ] deep-filter ]
|
|
|
|
|
! [ [ dup quotation? [ drop , ] when ] deep-map ]
|
|
|
|
|
! bi '[ _ cleave _ bake ] ;
|
|
|
|
|
|
|
|
|
|
: make-matrix ( quot width -- matrix )
|
|
|
|
|
[ { } make ] dip group ; inline
|
|
|
|
|
|
