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 ]