visible-line ( gadget quot -- n )

Vocabulary

ui.gadgets.line-support

Inputs

gadget	an object
quot	an object

Outputs

n

an object

Definition

USING: kernel math namespaces sequences ui.render ;

IN: ui.gadgets.line-support

: visible-line ( gadget quot -- n )
    [ [ clip get ] ] dip [ origin get [ second ] bi@ - ] compose
    compose [ dip y>line ] curry keep validate-line ; inline