cast.bif

来自「proe5.0野火版下载(中文版免费下载)」· BIF 代码 · 共 23 行

! 17-JUN-97  H-03-14  LUK  $$1 Created.
! 12-AUG-97  H-03-18  LUK  $$2 Updated from Terry Bleser.
! 25-AUG-97  H-03-19+ twb  $$3 Made transparent background and resized
! 06-JAN-98  H-03-35  twb  $$4 Recolored to be consistent with tree.
(Image new
    (Resources
        (.Width     16)
        (.Height    16)
        (.Depth     4)
    )

    (Data
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFFFFFF
        FFFFFF000F070F070F070F0700FFFFFFFFFF000000000000000000000000FFFF
        FFFF000E060E060E060E060E0600FFFFFFFFFF000E060E060E060E0600FFFFFF
        FFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFF
        FF000F000A0F0A0F0F0F0F0F080F00FF0003070F000A0F0A0F0A0F080F0F0F00
        00000000000000000000000000000000FF0002060206020602060206020600FF
        FFFF000206020602060206020600FFFFFFFFFF00000000000000000000FFFFFF
    )
)