component-type? ( object -- ? )

Vocabulary

images

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the component-type class.

Definition

USING: kernel ;

IN: images

: component-type? ( object -- ? )
    dup float-11-11-10-components?
    [ drop t ] [
        dup u-9-9-9-e5-components?
        [ drop t ] [
            dup float-32-u-8-components?
            [ drop t ] [
                dup u-24-8-components?
                [ drop t ] [
                    dup u-24-components?
                    [ drop t ] [
                        dup u-10-10-10-2-components? ~quotation~
                        ~quotation~ if
                    ] if
                ] if
            ] if
        ] if
    ] if ;