Merge remote-tracking branch 'factorcode/master'

db4
John Benediktsson 2011-08-27 17:39:49 -07:00
commit dff5dc8efd
32 changed files with 7 additions and 5 deletions

View File

@ -1,6 +1,6 @@
USING: images accessors kernel tools.test literals math.ranges USING: images accessors kernel tools.test literals math.ranges
byte-arrays ; byte-arrays ;
IN: images.tesselation IN: images.tessellation
! Check an invariant we depend on ! Check an invariant we depend on
[ t ] [ [ t ] [

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences kernel math grouping fry columns locals accessors USING: sequences kernel math grouping fry columns locals accessors
images math.vectors arrays ; images math.vectors arrays ;
IN: images.tesselation IN: images.tessellation
: group-rows ( bitmap bitmap-dim -- rows ) : group-rows ( bitmap bitmap-dim -- rows )
first <sliced-groups> ; inline first <sliced-groups> ; inline

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.data assocs cache colors.constants USING: accessors alien.data assocs cache colors.constants
destructors kernel opengl opengl.gl opengl.capabilities destructors kernel opengl opengl.gl opengl.capabilities
combinators images images.tesselation grouping sequences math combinators images images.tessellation grouping sequences math
math.vectors generalizations fry arrays namespaces system locals math.vectors generalizations fry arrays namespaces system locals
literals specialized-arrays ; literals specialized-arrays ;
FROM: alien.c-types => int float ; FROM: alien.c-types => int float ;

View File

@ -6,6 +6,7 @@ fry io kernel literals math prettyprint sequences splitting
system memoize graphviz ; system memoize graphviz ;
IN: graphviz.ffi IN: graphviz.ffi
<<
"libgraph" { "libgraph" {
{ [ os macosx? ] [ "libgraph.dylib" ] } { [ os macosx? ] [ "libgraph.dylib" ] }
{ [ os unix? ] [ "libgraph.so" ] } { [ os unix? ] [ "libgraph.so" ] }
@ -18,6 +19,7 @@ IN: graphviz.ffi
{ [ os unix? ] [ "libgvc.so" ] } { [ os unix? ] [ "libgvc.so" ] }
{ [ os winnt? ] [ "gvc.dll" ] } { [ os winnt? ] [ "gvc.dll" ] }
} cond cdecl add-library } cond cdecl add-library
>>
LIBRARY: libgraph LIBRARY: libgraph

View File

@ -110,7 +110,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: define-graphviz-by-engine ( -K -- ) : define-graphviz-by-engine ( -K -- )
[ create-in dup make-inline ] [ "graphviz.render" create dup make-inline ]
[ [ graphviz ] curry ] bi [ [ graphviz ] curry ] bi
(( graph -O -T -- )) (( graph -O -T -- ))
define-declared ; define-declared ;
@ -118,7 +118,7 @@ PRIVATE>
: define-graphviz-by-format ( -T -- ) : define-graphviz-by-format ( -T -- )
[ [
dup supported-engines member? [ "-file" append ] when dup supported-engines member? [ "-file" append ] when
create-in dup make-inline "graphviz.render" create dup make-inline
] ]
[ [ graphviz* ] curry ] bi [ [ graphviz* ] curry ] bi
(( graph -O -- )) (( graph -O -- ))