REBOL Programming/load-stock

USAGE:Edit

LOAD-STOCK name /block size 

DESCRIPTION:Edit

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

LOAD-STOCK is a function value.

ARGUMENTS:Edit

  • name -- (Type: any)

REFINEMENTS:Edit

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

SOURCE CODEEdit

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
    ]
]
Last modified on 31 October 2012, at 12:43