Rebol Programming/load-stock

USAGE:

LOAD-STOCK name /block size 

DESCRIPTION:

Load and return stock image. (Keep cache after first load)

LOAD-STOCK is a function value.

ARGUMENTS:

• name -- (Type: any)

REFINEMENTS:

• /block
  • size -- (Type: any)

SOURCE CODE

load-stock: func [
    {Load and return stock image. (Keep cache after first load)} 
    name 
    /block size 
    /local image
][
    if not image: find system/view/vid/image-stock name [
        make error! reform ["Image not in stock:" name]
    ] 
    either block [
        block: copy [] 
        loop size [
            if not image? second image [change next image load second image] 
            append block second image 
            image: skip image 3
        ] 
        return block
    ] [
        if not image? second image [change next image load second image] 
        return second image
    ]
]