Rebol 程式設計/load-stock

用法

LOAD-STOCK name /block size 

描述

載入並返回庫存圖片。（第一次載入後保留快取）

LOAD-STOCK 是一個函式值。

引數

• 名稱 -- (型別：任何)

細化

• /block
  • 尺寸 -- (型別：任何)

原始碼

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
    ]
]