Rebol Programming/make-face

USAGE:

MAKE-FACE style /styles ss /clone /size wh /spec blk /offset xy /keep 

DESCRIPTION:

Make a face from a given style name or example face.

MAKE-FACE is a function value.

ARGUMENTS:

• style -- A name or a face (Type: word object)

REFINEMENTS:

• /styles
  • ss -- Stylesheet (Type: any)
• /clone -- Copy all primary facets
• /size
  • wh -- Size of face (Type: pair)
• /spec
  • blk -- Spec block (Type: block)
• /offset
  • xy -- Offset of face (Type: pair)
• /keep -- Keep style related data

SOURCE CODE

make-face: func [
    {Make a face from a given style name or example face.} 
    style [word! object!] "A name or a face" 
    /styles ss "Stylesheet" 
    /clone "Copy all primary facets" 
    /size wh [pair!] "Size of face" 
    /spec blk [block!] "Spec block" 
    /offset xy [pair!] "Offset of face" 
    /keep "Keep style related data"
][
    if word? style [style: either styles [select ss style] [get-style style]] 
    if none? style [return none] 
    spec: [parent-face: saved-area: line-list: old-offset: old-size: none] 
    if blk [spec: append copy spec blk] 
    style: make style spec 
    if size [style/size: wh] 
    if offset [style/offset: xy] 
    style/flags: exclude style/flags state-flags 
    if clone [
        foreach word [text effect colors texts font para edge] [
            if style/:word [
                set in style word either series? style/:word [copy style/:word] [
                    make style/:word []
                ]
            ]
        ]
    ] 
    do bind style/init in style 'init 
    if not keep [
        style/init: copy [] 
        style/facets: none
    ] 
    style
]