: create-new ( -- )
    img2 get {
        [ dim>> ]
        [ component-order>> ]
        [ component-type>> ]
        [ upside-down?>> ]
    } cleave f image boa new-image set ;

or

: create-new ( -- )
    img2 get
    { [ dim>> ] [ component-order>> ] [ component-type>> ] [ upside-down?>> ] } cleave
    f image boa new-image set ;