hr

Vocabulary

pdf.layout

Definition

IN: pdf.layout

TUPLE: hr width ;

Methods

USING: accessors kernel math math.order pdf.canvas pdf.layout ;

M: hr pdf-render
    [ f set-style ] dip [
        [ dup 0 > pick avail-lines 0 > and ] [
            over avail-width over min [ - ] keep
            [ overd [ draw-line ] [ inc-x ] 2bi ] unless-zero
            dup 0 > [ over line-break ] when
        ] while
    ] change-width nip dup width>> 0 > and* ;


USING: accessors kernel pdf.layout ;

M: hr pdf-width nip width>> ;