<element> ( atomic-number/f -- element )

Vocabulary

periodic-table

Inputs

atomic-number/f

an object

Outputs

element

an object

Definition

USING: accessors assocs kernel math sequences ui.gadgets.borders
ui.gadgets.labels ui.pens.solid ;

IN: periodic-table

: <element> ( atomic-number/f -- element )
    [
        dup 1 - elements nth first3
        [ <element-label> ] [ group-colors at ] bi*
    ] [ "" <label> f ] if*
    [ { 40 35 } >>pref-dim { 5 5 } <border> ]
    [ [ <solid> >>interior ] when* ] bi* ;