< Rebol Programming
USAGE:
SPAN? pane /part count
DESCRIPTION:
Returns a block of [min max] bounds for all faces
SPAN? is a function value.
ARGUMENTS
- pane -- (Type: block)
REFINEMENTS
- /part
- count -- Limit the number of faces (Type: integer)
SOURCE CODE
span?: func [
"Returns a block of [min max] bounds for all faces"
pane [block!]
/part count [integer!] "Limit the number of faces"
/local origin margin
][
origin: 100000x100000
margin: 0x0
foreach item pane [
if object? item [
if all [count negative? count: count - 1] [break]
origin: min origin item/offset
margin: max margin item/offset + item/size
]
]
reduce [origin margin]
]
This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.