golden-section-window ( -- )

Vocabulary

golden-section

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.worlds ui.pixel-formats ;

IN: golden-section

: golden-section-window ( -- )
    [
        f
        T{ world-attributes
            { title "Golden Section" }
            { pixel-format-attributes
                { legacy-context windowed double-buffered }
            }
        }
        clone
        <golden-section>
        >>gadgets
        open-window
    ] with-ui ;