Merge remote-tracking branch 'factorcode/master'
commit
dff5dc8efd
|
@ -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 ] [
|
|
@ -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
|
|
@ -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 ;
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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 -- ))
|
||||||
|
|
Loading…
Reference in New Issue