Paste: region-faces

Author: slava
Mode: factor
Date: Sat, 1 May 2010 22:03:44
Plain Text | 
[
    shell>> [
        [
            dup child>> face?
            [ , ] [ drop ] if
        ] each-pface
    ] each-shell
] { } make

Annotation: this one produces faces instead of pfaces

Author: slava
Mode: factor
Date: Sat, 1 May 2010 22:04:46
Plain Text | 
[
    shell>> [
        [
            child>> dup face?
            [ child>> , ] [ drop ] if
        ] each-pface
    ] each-shell
] { } make

New Annotation

Summary:
Author:
Mode:
Body: